summaryrefslogtreecommitdiffstats
path: root/hl/fortran/test
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2010-01-30 04:33:04 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2010-01-30 04:33:04 (GMT)
commitfa1f33701da4489a4626a057844fa799878feddf (patch)
treebfb0efbe3f126b46fbf0bf9bd8516bf1076ab8a4 /hl/fortran/test
parente3c80277440ec153a180ef89f7867bdedb51b87a (diff)
downloadhdf5-fa1f33701da4489a4626a057844fa799878feddf.zip
hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.gz
hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.bz2
[svn-r18198] Description:
Trim trailing whitespace from source code files, with following command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
Diffstat (limited to 'hl/fortran/test')
-rwxr-xr-xhl/fortran/test/tstimage.f9090
-rw-r--r--hl/fortran/test/tstlite.f90162
-rwxr-xr-xhl/fortran/test/tsttable.f9044
3 files changed, 148 insertions, 148 deletions
diff --git a/hl/fortran/test/tstimage.f90 b/hl/fortran/test/tstimage.f90
index 9eee787..3794bbf 100755
--- a/hl/fortran/test/tstimage.f90
+++ b/hl/fortran/test/tstimage.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,21 +11,21 @@
! is linked from the top-level documents page. It can also be found at *
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
! access to either file, you may request a copy from help@hdfgroup.org. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program image_test
call make_image1()
-end program image_test
+end program image_test
!-------------------------------------------------------------------------
-! make_image1
+! make_image1
!-------------------------------------------------------------------------
subroutine make_image1()
@@ -39,7 +39,7 @@ character(len=8), parameter :: filename = "f1img.h5" ! file name
character(len=4), parameter :: dsetname1 = "img1" ! dataset name
character(len=4), parameter :: dsetname2 = "img2" ! dataset name
character(len=15), parameter :: il ="INTERLACE_PIXEL"! dataset name
-integer(hid_t) :: file_id ! file identifier
+integer(hid_t) :: file_id ! file identifier
integer(hsize_t), parameter :: width = 500 ! width of image
integer(hsize_t), parameter :: height = 200 ! height of image
integer, parameter :: pal_entries = 9 ! palette number of entries
@@ -47,39 +47,39 @@ integer, dimension(width*height) :: buf1 ! data buffer
integer, dimension(width*height) :: bufr1 ! data buffer
integer, dimension(width*height*3) :: buf2 ! data buffer
integer, dimension(width*height*3) :: bufr2 ! data buffer
-integer(hsize_t) :: widthr ! width of image
+integer(hsize_t) :: widthr ! width of image
integer(hsize_t) :: heightr ! height of image
integer(hsize_t) :: planesr ! color planes
integer(hsize_t) :: npalsr ! palettes
-character(len=15) :: interlacer ! interlace
+character(len=15) :: interlacer ! interlace
integer :: errcode ! error flag
integer :: is_image ! error flag
integer :: i, j, n ! general purpose integers
!
! palette
-! create a 9 entry palette
+! create a 9 entry palette
!
character(len=4), parameter :: pal_name = "pal1" ! dataset name
integer(hsize_t), dimension(2) :: pal_dims = (/pal_entries,3/) ! palette dimensions
integer(hsize_t), dimension(2) :: pal_dims_out ! palette dimensions
integer, dimension(pal_entries*3) :: pal_data_out ! data buffer
integer(hsize_t) :: npals ! number of palettes
-integer :: pal_number ! palette number
-integer :: is_palette ! is palette
+integer :: pal_number ! palette number
+integer :: is_palette ! is palette
integer :: space
integer, dimension(pal_entries*3) :: pal_data_in = (/&
- 0,0,168,& ! dark blue
- 0,0,252,& ! blue
- 0,168,252,& ! ocean blue
- 84,252,252,& ! light blue
- 168,252,168,& ! light green
- 0,252,168,& ! green
- 252,252,84,& ! yellow
- 252,168,0,& ! orange
- 252,0,0/) ! red
+ 0,0,168,& ! dark blue
+ 0,0,252,& ! blue
+ 0,168,252,& ! ocean blue
+ 84,252,252,& ! light blue
+ 168,252,168,& ! light green
+ 0,252,168,& ! green
+ 252,252,84,& ! yellow
+ 252,168,0,& ! orange
+ 252,0,0/) ! red
-! create an 8bit image of 9 values divided evenly by the array
+! create an 8bit image of 9 values divided evenly by the array
!
space = width*height / pal_entries;
n = 0; j = 0;
@@ -110,7 +110,7 @@ end do
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -119,17 +119,17 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
-! indexed image
+! indexed image
!-------------------------------------------------------------------------
call test_begin(' Make/Read image 8bit ')
!
-! write image.
+! write image.
!
call h5immake_image_8bit_f(file_id,dsetname1,width,height,buf1,errcode)
!
-! read image.
+! read image.
!
call h5imread_image_f(file_id,dsetname1,bufr1,errcode)
!
@@ -144,7 +144,7 @@ do i = 1, width*height
end do
!
-! get image info.
+! get image info.
!
call h5imget_image_info_f(file_id,dsetname1,widthr,heightr,planesr,interlacer,npalsr,errcode)
@@ -163,18 +163,18 @@ endif
call passed()
!-------------------------------------------------------------------------
-! true color image
+! true color image
!-------------------------------------------------------------------------
call test_begin(' Make/Read image 24bit ')
!
-! write image.
+! write image.
!
call h5immake_image_24bit_f(file_id,dsetname2,width,height,il,buf2,errcode)
!
-! read image.
+! read image.
!
call h5imread_image_f(file_id,dsetname2,bufr2,errcode)
@@ -190,7 +190,7 @@ do i = 1, width*height*3
end do
!
-! get image info.
+! get image info.
!
call h5imget_image_info_f(file_id,dsetname2,widthr,heightr,planesr,interlacer,npalsr,errcode)
@@ -210,15 +210,15 @@ endif
call passed()
!-------------------------------------------------------------------------
-! palette
+! palette
!-------------------------------------------------------------------------
call test_begin(' Make palette ')
!
-! make palette.
+! make palette.
!
-call h5immake_palette_f(file_id,pal_name,pal_dims,pal_data_in,errcode)
+call h5immake_palette_f(file_id,pal_name,pal_dims,pal_data_in,errcode)
call passed()
@@ -226,13 +226,13 @@ call passed()
call test_begin(' Link/Unlink palette ')
!
-! link palette.
+! link palette.
!
call h5imlink_palette_f(file_id,dsetname1,pal_name,errcode)
!
-! read palette.
+! read palette.
!
pal_number = 0
call h5imget_palette_f(file_id,dsetname1,pal_number,pal_data_out,errcode)
@@ -251,7 +251,7 @@ end do
!
! get number of palettes
!
-call h5imget_npalettes_f(file_id,dsetname1,npals,errcode)
+call h5imget_npalettes_f(file_id,dsetname1,npals,errcode)
if ( npals /= 1) then
print *, 'h5imget_npalettes_f bad value'
@@ -262,7 +262,7 @@ endif
! get palette info
!
pal_number = 0
-call h5imget_palette_info_f(file_id,dsetname1,pal_number,pal_dims_out,errcode)
+call h5imget_palette_info_f(file_id,dsetname1,pal_number,pal_dims_out,errcode)
if ( (pal_dims_out(1) /= pal_dims(1)) .or. (pal_dims_out(2) /= pal_dims(2))) then
print *, 'h5imget_palette_info_f bad value'
@@ -270,9 +270,9 @@ if ( (pal_dims_out(1) /= pal_dims(1)) .or. (pal_dims_out(2) /= pal_dims(2))) the
endif
!
-! is palette
+! is palette
!
-is_palette = h5imis_palette_f(file_id,pal_name)
+is_palette = h5imis_palette_f(file_id,pal_name)
if ( is_palette /= 1 ) then
print *, 'h5imis_palette_f bad value'
@@ -280,14 +280,14 @@ if ( is_palette /= 1 ) then
endif
!
-! unlink palette.
+! unlink palette.
!
call h5imunlink_palette_f(file_id,dsetname1,pal_name,errcode)
!
! get number of palettes
!
-call h5imget_npalettes_f(file_id,dsetname1,npals,errcode )
+call h5imget_npalettes_f(file_id,dsetname1,npals,errcode )
if ( npals /= 0) then
print *, 'h5imget_npalettes_f bad value'
@@ -304,7 +304,7 @@ call passed()
!-------------------------------------------------------------------------
-! end
+! end
!-------------------------------------------------------------------------
!
@@ -323,17 +323,17 @@ call h5close_f(errcode)
end subroutine make_image1
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(len=*), intent(in) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index 168bb99..504b8d7 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! is linked from the top-level documents page. It can also be found at *
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
! access to either file, you may request a copy from help@hdfgroup.org. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program lite_test
@@ -25,16 +25,16 @@ call test_dataset3D()
call test_datasets()
call test_attributes()
-end program lite_test
+end program lite_test
!-------------------------------------------------------------------------
-! test_dataset1D
+! test_dataset1D
!-------------------------------------------------------------------------
subroutine test_dataset1D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -44,7 +44,7 @@ character(len=9), parameter :: filename = "dsetf1.h5"! File name
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(1) :: dims = (/DIM1/) ! Dataset dimensions
integer :: rank = 1 ! Dataset rank
integer, dimension(DIM1) :: buf1 ! Data buffer
@@ -72,7 +72,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -80,16 +80,16 @@ call h5open_f(errcode)
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
-! H5T_NATIVE_INTEGER
+! H5T_NATIVE_INTEGER
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf1, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr1, dims, errcode)
@@ -105,16 +105,16 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! H5T_NATIVE_REAL
+! H5T_NATIVE_REAL
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_REAL, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_REAL, bufr2, dims, errcode)
@@ -130,16 +130,16 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! H5T_NATIVE_DOUBLE
+! H5T_NATIVE_DOUBLE
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_DOUBLE, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_DOUBLE, bufr3, dims, errcode)
@@ -169,14 +169,14 @@ call passed()
! end function.
!
end subroutine test_dataset1D
-
+
!-------------------------------------------------------------------------
-! test_dataset2D
+! test_dataset2D
!-------------------------------------------------------------------------
subroutine test_dataset2D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -189,7 +189,7 @@ character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
character(LEN=5), parameter :: dsetname4 = "dset4" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(2) :: dims = (/4,6/) ! Dataset dimensions
integer :: rank = 2 ! Dataset rank
integer, dimension(DIM1*DIM2) :: buf ! Data buffer
@@ -222,12 +222,12 @@ do i = 1, dims(1)
buf4(i,j) = (i-1)*dims(2) + j;
end do
end do
-
+
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -239,12 +239,12 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr, dims, errcode)
@@ -264,12 +264,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_INTEGER, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_INTEGER, buf2r, dims, errcode)
@@ -291,12 +291,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_REAL, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_REAL, buf3r, dims, errcode)
@@ -318,12 +318,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, buf4r, dims, errcode)
@@ -354,7 +354,7 @@ call passed()
!
! end function.
!
-end subroutine test_dataset2D
+end subroutine test_dataset2D
!-------------------------------------------------------------------------
@@ -364,7 +364,7 @@ end subroutine test_dataset2D
subroutine test_dataset3D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -377,7 +377,7 @@ character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
character(LEN=5), parameter :: dsetname4 = "dset4" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(3) :: dims = (/DIM1,DIM2,DIM3/) ! Dataset dimensions
integer(HSIZE_T), dimension(3) :: dimsr ! Dataset dimensions
integer, dimension(DIM1*DIM2*DIM3) :: buf ! Data buffer
@@ -421,7 +421,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -433,12 +433,12 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr, dims, errcode)
@@ -458,12 +458,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_INTEGER, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_INTEGER, buf2r, dims, errcode)
@@ -487,12 +487,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_REAL, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_REAL, buf3r, dims, errcode)
@@ -516,12 +516,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, buf4r, dims, errcode)
@@ -540,7 +540,7 @@ do i = 1, dims(1)
end do
end do
-call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
+call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
!
! compare dimensions
@@ -576,13 +576,13 @@ end subroutine test_dataset3D
subroutine test_datasets()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
character(len=9), parameter :: filename = "dsetf4.h5"! File name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer :: errcode ! Error flag
integer, parameter :: DIM1 = 10; ! Dimension of array
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
@@ -610,7 +610,7 @@ integer(SIZE_T) :: type_size
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -629,18 +629,18 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! int
+! int
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (integer) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_int_f(file_id, dsetname2, rank, dims, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_int_f(file_id, dsetname2, bufr2, dims, errcode)
@@ -658,19 +658,19 @@ end do
call passed()
!-------------------------------------------------------------------------
-! real
+! real
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (float) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_float_f(file_id, dsetname3, rank, dims, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_float_f(file_id, dsetname3, bufr3, dims, errcode)
@@ -688,19 +688,19 @@ end do
call passed()
!-------------------------------------------------------------------------
-! double
+! double
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (double) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_double_f(file_id, dsetname4, rank, dims, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_double_f(file_id, dsetname4, bufr4, dims, errcode)
@@ -719,19 +719,19 @@ call passed()
!-------------------------------------------------------------------------
-! string
+! string
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (string) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_string_f(file_id, dsetname5, buf1, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_string_f(file_id, dsetname5, buf1r, errcode)
@@ -754,7 +754,7 @@ call passed()
call test_begin(' Get dataset dimensions/info ')
!-------------------------------------------------------------------------
-! h5ltget_dataset_ndims_f
+! h5ltget_dataset_ndims_f
!-------------------------------------------------------------------------
call h5ltget_dataset_ndims_f(file_id, dsetname4, rankr, errcode)
@@ -780,7 +780,7 @@ endif
!-------------------------------------------------------------------------
-call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
+call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
!
! compare dimensions
@@ -811,22 +811,22 @@ call passed()
! end function.
!
end subroutine test_datasets
-
-
+
+
!-------------------------------------------------------------------------
-! test_attributes
+! test_attributes
!-------------------------------------------------------------------------
subroutine test_attributes()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
character(len=9), parameter :: filename = "dsetf5.h5"! File name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer, parameter :: DIM1 = 10; ! Dimension of array
character(LEN=5), parameter :: attrname1 = "attr1" ! Attribute name
character(LEN=5), parameter :: attrname2 = "attr2" ! Attribute name
@@ -856,13 +856,13 @@ integer, dimension(DIM1) :: buf ! Data buffer
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
!
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!
-! make a dataset.
+! make a dataset.
!
call h5ltmake_dataset_int_f(file_id, dsetname1, rank, dims, buf, errcode)
@@ -887,12 +887,12 @@ call test_begin(' Set/Get attributes int ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_int_f(file_id,dsetname1,attrname2,buf2,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_int_f(file_id,dsetname1,attrname2,bufr2,errcode)
@@ -917,12 +917,12 @@ call test_begin(' Set/Get attributes float ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_float_f(file_id,dsetname1,attrname3,buf3,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_float_f(file_id,dsetname1,attrname3,bufr3,errcode)
@@ -948,12 +948,12 @@ call test_begin(' Set/Get attributes double ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_double_f(file_id,dsetname1,attrname4,buf4,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_double_f(file_id,dsetname1,attrname4,bufr4,errcode)
@@ -980,12 +980,12 @@ call test_begin(' Set/Get attributes string ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_string_f(file_id,dsetname1,attrname5,buf1,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_string_f(file_id,dsetname1,attrname5,bufr1,errcode)
@@ -1009,7 +1009,7 @@ call passed()
call test_begin(' Get attribute rank/info ')
-call h5ltget_attribute_ndims_f(file_id,dsetname1,attrname2,rankr,errcode)
+call h5ltget_attribute_ndims_f(file_id,dsetname1,attrname2,rankr,errcode)
if ( rankr .ne. 1 ) then
print *, 'h5ltget_attribute_ndims_f return error'
@@ -1017,7 +1017,7 @@ if ( rankr .ne. 1 ) then
endif
-call h5ltget_attribute_info_f(file_id,dsetname1,attrname2,dimsr,type_class,type_size,errcode)
+call h5ltget_attribute_info_f(file_id,dsetname1,attrname2,dimsr,type_class,type_size,errcode)
!
! compare dimensions
@@ -1051,17 +1051,17 @@ end subroutine test_attributes
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(LEN=*), intent(IN) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()
diff --git a/hl/fortran/test/tsttable.f90 b/hl/fortran/test/tsttable.f90
index c9c6b33..a6ce27f 100755
--- a/hl/fortran/test/tsttable.f90
+++ b/hl/fortran/test/tsttable.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! is linked from the top-level documents page. It can also be found at *
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
! access to either file, you may request a copy from help@hdfgroup.org. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program table_test
@@ -22,23 +22,23 @@ program table_test
call test_table1()
-end program table_test
+end program table_test
!-------------------------------------------------------------------------
-! test_table1
+! test_table1
!-------------------------------------------------------------------------
subroutine test_table1()
-use H5TB ! module of H5TB
+use H5TB ! module of H5TB
use HDF5 ! module of HDF5 library
implicit none
character(len=8), parameter :: filename = "f1tab.h5" ! File name
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), parameter :: nfields = 4; ! nfields
integer(HSIZE_T), parameter :: nrecords = 5; ! nrecords
character(LEN=6), dimension(nfields) :: field_names ! field names
@@ -49,7 +49,7 @@ integer, parameter :: compress = 0 ! compress
integer :: errcode ! Error flag
integer :: i ! general purpose integer
integer(SIZE_T) :: type_size ! Size of the datatype
-integer(SIZE_T) :: type_sizec ! Size of the character datatype
+integer(SIZE_T) :: type_sizec ! Size of the character datatype
integer(SIZE_T) :: type_sizei ! Size of the integer datatype
integer(SIZE_T) :: type_sized ! Size of the double precision datatype
integer(SIZE_T) :: type_sizer ! Size of the real datatype
@@ -84,7 +84,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -142,9 +142,9 @@ call test_begin(' Make table ')
call h5tbmake_table_f(dsetname1,&
- file_id,&
+ file_id,&
dsetname1,&
- nfields,&
+ nfields,&
nrecords,&
type_size,&
field_names,&
@@ -163,7 +163,7 @@ call passed()
call test_begin(' Read/Write field by name ')
call h5tbwrite_field_name_f(file_id,dsetname1,field_names(1),start,nrecords,type_sizec,&
- bufs,errcode)
+ bufs,errcode)
call h5tbwrite_field_name_f(file_id,dsetname1,field_names(2),start,nrecords,type_sizei,&
bufi,errcode)
@@ -236,7 +236,7 @@ do i = 1, nrecords
endif
end do
-
+
call passed()
@@ -247,7 +247,7 @@ call passed()
call test_begin(' Read/Write field by index ')
call h5tbwrite_field_index_f(file_id,dsetname1,1,start,nrecords,type_sizec,&
- bufs,errcode)
+ bufs,errcode)
call h5tbwrite_field_index_f(file_id,dsetname1,2,start,nrecords,type_sizei,&
bufi,errcode)
@@ -320,12 +320,12 @@ do i = 1, nrecords
endif
end do
-
+
call passed()
!-------------------------------------------------------------------------
-! Insert field
+! Insert field
! we insert a field callsed "field5" with the same type and buffer as field 4 (Real)
!-------------------------------------------------------------------------
@@ -362,12 +362,12 @@ call passed()
!-------------------------------------------------------------------------
-! Gets the number of records and fields
+! Gets the number of records and fields
!-------------------------------------------------------------------------
call test_begin(' Get table info ')
-call h5tbget_table_info_f(file_id,dsetname1,nfieldsr,nrecordsr,errcode )
+call h5tbget_table_info_f(file_id,dsetname1,nfieldsr,nrecordsr,errcode )
if ( nfieldsr .ne. nfields .and. nrecordsr .ne. nrecords ) then
print *, 'h5tbget_table_info_f return error'
@@ -384,7 +384,7 @@ call passed()
!call test_begin(' Get fields info ')
!call h5tbget_field_info_f(file_id,dsetname1,nfields,field_namesr,field_sizesr,&
-! field_offsetr,type_sizeout,errcode )
+! field_offsetr,type_sizeout,errcode )
!call passed()
@@ -416,17 +416,17 @@ end subroutine test_table1
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(LEN=*), intent(IN) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()