diff options
| -rw-r--r-- | fortran/src/H5_buildiface.F90 | 40 | ||||
| -rw-r--r-- | fortran/src/H5fortkit.F90 | 10 | ||||
| -rw-r--r-- | fortran/test/H5_test_buildiface.F90 | 6 | ||||
| -rw-r--r-- | fortran/test/tH5F_F03.F90 | 4 | ||||
| -rw-r--r-- | fortran/test/tH5P_F03.F90 | 7 | ||||
| -rw-r--r-- | fortran/test/tHDF5.F90 | 2 | ||||
| -rw-r--r-- | fortran/test/tHDF5_1_8.F90 | 2 | ||||
| -rw-r--r-- | fortran/test/tHDF5_F03.F90 | 2 |
8 files changed, 22 insertions, 51 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index 471052f..d58b384 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -717,45 +717,9 @@ PROGRAM H5_buildiface WRITE(11,'(A)') ' file_space_id_default, xfer_prp_default, f_ptr)' WRITE(11,'(A)') ' END SUBROUTINE h5dread_ckind_rank'//chr_rank(j) ENDDO -! +!********************** ! h5dwrite_f - -!****s* H5D (F03)/h5dwrite_f_F03 -! -! NAME -! h5dwrite_f_F03 -! -! PURPOSE -! Writes raw data from a dataset into a buffer. -! -! Inputs: -! dset_id - Identifier of the dataset to write to. -! mem_type_id - Identifier of the memory datatype. -! buf - Buffer with data to be written to the file. -! -! Outputs: -! hdferr - Returns 0 if successful and -1 if fails -! -! Optional parameters: -! mem_space_id - Identifier of the memory dataspace. -! file_space_id - Identifier of the dataset's dataspace in the file. -! xfer_prp - Identifier of a transfer property list for this I/O operation. -! -! AUTHOR -! M. Scot Breitenfeld -! September 17, 2011 -! -! Fortran2003 Interface: -!! SUBROUTINE h5dwrite_f(dset_id, mem_type_id, buf, hdferr, & -!! mem_space_id, file_space_id, xfer_prp) -!! INTEGER(HID_T), INTENT(IN) :: dset_id -!! INTEGER(HID_T), INTENT(IN) :: mem_type_id -!! TYPE(C_PTR) , INTENT(IN) :: buf -!! INTEGER , INTENT(OUT) :: hdferr -!! INTEGER(HID_T), INTENT(IN) , OPTIONAL :: mem_space_id -!! INTEGER(HID_T), INTENT(IN) , OPTIONAL :: file_space_id -!! INTEGER(HID_T), INTENT(IN) , OPTIONAL :: xfer_prp -!***** +!********************** DO i = 1, num_rkinds k = rkind(i) WRITE(chr2,'(I2)') k diff --git a/fortran/src/H5fortkit.F90 b/fortran/src/H5fortkit.F90 index 9afd890..3062c28 100644 --- a/fortran/src/H5fortkit.F90 +++ b/fortran/src/H5fortkit.F90 @@ -1,4 +1,11 @@ -!****h* H5fortkit/H5fortkit +!****h* ROBODoc/H5fortkit +! +! NAME +! MODULE H5fortkit +! +! FILE +! fortran/src/H5fortkit.F90 +! ! PURPOSE ! Routines to deal with C-FORTRAN issues. ! @@ -18,6 +25,7 @@ ! access to either file, you may request a copy from help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! +!***** MODULE H5fortkit CONTAINS diff --git a/fortran/test/H5_test_buildiface.F90 b/fortran/test/H5_test_buildiface.F90 index 30687df..e0323cc 100644 --- a/fortran/test/H5_test_buildiface.F90 +++ b/fortran/test/H5_test_buildiface.F90 @@ -1,10 +1,10 @@ -!****p* Program/H5_buildiface +!****p* Program/H5_test_buildiface ! ! NAME -! Executable: H5_buildiface +! Executable: H5_test_buildiface ! ! FILE -! fortran/src/H5_buildiface.f90 +! fortran/src/H5_test_buildiface.F90 ! ! PURPOSE ! This stand alone program is used at build time to generate the program diff --git a/fortran/test/tH5F_F03.F90 b/fortran/test/tH5F_F03.F90 index 9e23d19..2425bba 100644 --- a/fortran/test/tH5F_F03.F90 +++ b/fortran/test/tH5F_F03.F90 @@ -1,7 +1,7 @@ -!****h* root/fortran/test/tH5F_F03.f90 +!****h* root/fortran/test/tH5F_F03 ! ! NAME -! tH5F_F03.f90 +! tH5F_F03.F90 ! ! FUNCTION ! Test FORTRAN HDF5 H5F APIs which are dependent on FORTRAN 2003 diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90 index 15bd86f..f64c4e3 100644 --- a/fortran/test/tH5P_F03.F90 +++ b/fortran/test/tH5P_F03.F90 @@ -1,7 +1,7 @@ -!****h* root/fortran/test/tH5P_F03.f90 +!****h* root/fortran/test/TH5P_F03 ! ! NAME -! tH5P_F03.f90 +! tH5P_F03.F90 ! ! FUNCTION ! Test FORTRAN HDF5 H5P APIs which are dependent on FORTRAN 2003 @@ -618,8 +618,7 @@ SUBROUTINE external_test_offset(cleanup,total_error) END SUBROUTINE external_test_offset -!****h* root/fortran/test/tH5P_F03.f90 -! +!------------------------------------------------------------------------- ! NAME ! test_vds ! diff --git a/fortran/test/tHDF5.F90 b/fortran/test/tHDF5.F90 index d12bb25..e9e0892 100644 --- a/fortran/test/tHDF5.F90 +++ b/fortran/test/tHDF5.F90 @@ -1,4 +1,4 @@ -!****h* ROBODoc/HDF5 +!****h* ROBODoc/THDF5 ! ! NAME ! MODULE THDF5 diff --git a/fortran/test/tHDF5_1_8.F90 b/fortran/test/tHDF5_1_8.F90 index 9d1c3ec..6a3f74b 100644 --- a/fortran/test/tHDF5_1_8.F90 +++ b/fortran/test/tHDF5_1_8.F90 @@ -1,4 +1,4 @@ -!****h* ROBODoc/HDF5 +!****h* ROBODoc/THDF5_1_8 ! ! NAME ! MODULE THDF5_1_8 diff --git a/fortran/test/tHDF5_F03.F90 b/fortran/test/tHDF5_F03.F90 index 3dbec11..b3b1885 100644 --- a/fortran/test/tHDF5_F03.F90 +++ b/fortran/test/tHDF5_F03.F90 @@ -1,4 +1,4 @@ -!****h* ROBODoc/HDF5 +!****h* ROBODoc/THDF5_F03 ! ! NAME ! MODULE THDF5_F03 |