diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-19 19:09:34 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-19 19:09:34 (GMT) |
| commit | 5126111606cf941ead418a81be4a18eb78dd0236 (patch) | |
| tree | 180cf56414c74a772a20e1b2ee98c6cde84c57f1 /fortran/src | |
| parent | 0859dd40bb0cfb45933d5def97178e6e389bf160 (diff) | |
| download | hdf5-5126111606cf941ead418a81be4a18eb78dd0236.zip hdf5-5126111606cf941ead418a81be4a18eb78dd0236.tar.gz hdf5-5126111606cf941ead418a81be4a18eb78dd0236.tar.bz2 | |
[svn-r29165] Various rododoc fixes. Effects comments only.
Diffstat (limited to 'fortran/src')
| -rw-r--r-- | fortran/src/H5_buildiface.F90 | 40 | ||||
| -rw-r--r-- | fortran/src/H5fortkit.F90 | 10 |
2 files changed, 11 insertions, 39 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 |