diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-04-06 18:30:16 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-04-06 18:30:16 (GMT) |
| commit | 02a07cb0cfc2af288b62c1370c422fb72b93e751 (patch) | |
| tree | 36096e729e07140f52526c1b0db66895b67ac79e | |
| parent | 01f479abb49d378b44648e1c0f353839b18b548c (diff) | |
| download | hdf5-02a07cb0cfc2af288b62c1370c422fb72b93e751.zip hdf5-02a07cb0cfc2af288b62c1370c422fb72b93e751.tar.gz hdf5-02a07cb0cfc2af288b62c1370c422fb72b93e751.tar.bz2 | |
[svn-r29649] changed indentation format, updated comments
| -rw-r--r-- | hl/fortran/src/H5TBff.F90 | 29 |
1 files changed, 12 insertions, 17 deletions
diff --git a/hl/fortran/src/H5TBff.F90 b/hl/fortran/src/H5TBff.F90 index 0e2c3dd..266f74a 100644 --- a/hl/fortran/src/H5TBff.F90 +++ b/hl/fortran/src/H5TBff.F90 @@ -365,27 +365,22 @@ CONTAINS END SUBROUTINE h5tbmake_table_ptr_f - SUBROUTINE h5tbread_table_f(loc_id,& - table_name,& - nfields,& - dst_size,& - dst_offset, & - dst_sizes, & - dst_buf, & - errcode) + SUBROUTINE h5tbread_table_f(loc_id, table_name, nfields, dst_size, dst_offset, & + dst_sizes, dst_buf, errcode) USE ISO_C_BINDING IMPLICIT NONE - INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier - CHARACTER(LEN=*), INTENT(in) :: table_name ! name of the dataset - INTEGER(hsize_t), INTENT(in) :: nfields ! fields - INTEGER(size_t), INTENT(in) :: dst_size ! type size - INTEGER(size_t), DIMENSION(1:nfields), INTENT(in) :: dst_offset ! An array containing the sizes of the fields + INTEGER(hid_t), INTENT(in) :: loc_id ! An array containing the sizes of the fields + CHARACTER(LEN=*), INTENT(in) :: table_name ! The name of the dataset to read + INTEGER(hsize_t), INTENT(in) :: nfields ! number of fields + INTEGER(size_t), INTENT(in) :: dst_size ! The size of the structure type + INTEGER(size_t), DIMENSION(1:nfields), INTENT(in) :: dst_offset ! An array containing the offsets of the fields INTEGER(size_t), DIMENSION(1:nfields), INTENT(in) :: dst_sizes ! An array containing the sizes of the fields - TYPE(C_PTR), INTENT(OUT) :: dst_buf - INTEGER :: errcode ! error code - INTEGER(size_t) :: namelen ! name length - INTEGER(hsize_t) :: i ! general purpose integer + TYPE(C_PTR), INTENT(OUT) :: dst_buf ! Buffer with data + INTEGER :: errcode ! error code + + INTEGER(size_t) :: namelen ! name length + INTEGER(hsize_t) :: i ! general purpose integer INTERFACE INTEGER FUNCTION h5tbread_table_c(loc_id,& |