diff options
Diffstat (limited to 'hl/fortran/src/H5TBff.f90')
| -rwxr-xr-x | hl/fortran/src/H5TBff.f90 | 642 |
1 files changed, 321 insertions, 321 deletions
diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90 index 03ecc6e..9acdcee 100755 --- a/hl/fortran/src/H5TBff.f90 +++ b/hl/fortran/src/H5TBff.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,15 +11,15 @@ ! 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 FORTRAN90 interfaces for H5TB functions ! - + module h5tb use h5fortran_types -use hdf5 +use hdf5 interface h5tbwrite_field_name_f @@ -80,9 +80,9 @@ contains !------------------------------------------------------------------------- subroutine h5tbmake_table_f(table_title,& - loc_id,& + loc_id,& dset_name,& - nfields,& + nfields,& nrecords,& type_size,& field_names,& @@ -90,7 +90,7 @@ subroutine h5tbmake_table_f(table_title,& field_types,& chunk_size,& compress,& - errcode ) + errcode ) implicit none @@ -101,10 +101,10 @@ subroutine h5tbmake_table_f(table_title,& !DEC$endif ! - character(len=*), intent(in) :: table_title ! name of the dataset - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(in) :: nfields ! fields + character(len=*), intent(in) :: table_title ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(in) :: nfields ! fields integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size character(len=*), dimension(nfields), intent(in) :: field_names ! field names @@ -118,7 +118,7 @@ subroutine h5tbmake_table_f(table_title,& integer, dimension(nfields) :: namelen2 ! name lengths integer :: i ! general purpose integer - + interface integer function h5tbmake_table_c(namelen1,& table_title,& @@ -141,10 +141,10 @@ subroutine h5tbmake_table_f(table_title,& !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: table_title - character(len=*), intent(in) :: table_title ! name of the dataset - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(in) :: nfields ! fields + character(len=*), intent(in) :: table_title ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(in) :: nfields ! fields integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size character(len=*), dimension(nfields), intent(in) :: field_names ! field names @@ -197,17 +197,17 @@ end subroutine h5tbmake_table_f ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_name_f_int(loc_id,& +subroutine h5tbwrite_field_name_f_int(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -215,13 +215,13 @@ subroutine h5tbwrite_field_name_f_int(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -229,20 +229,20 @@ subroutine h5tbwrite_field_name_f_int(loc_id,& interface integer function h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_INT_C'::h5tbwrite_field_name_int_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -251,7 +251,7 @@ subroutine h5tbwrite_field_name_f_int(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -272,17 +272,17 @@ end subroutine h5tbwrite_field_name_f_int ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_name_f_float(loc_id,& +subroutine h5tbwrite_field_name_f_float(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -290,13 +290,13 @@ subroutine h5tbwrite_field_name_f_float(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -304,20 +304,20 @@ subroutine h5tbwrite_field_name_f_float(loc_id,& interface integer function h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_FL_C'::h5tbwrite_field_name_fl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -326,7 +326,7 @@ subroutine h5tbwrite_field_name_f_float(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -349,17 +349,17 @@ end subroutine h5tbwrite_field_name_f_float ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_name_f_double(loc_id,& +subroutine h5tbwrite_field_name_f_double(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -367,13 +367,13 @@ subroutine h5tbwrite_field_name_f_double(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -381,20 +381,20 @@ subroutine h5tbwrite_field_name_f_double(loc_id,& interface integer function h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_DL_C'::h5tbwrite_field_name_dl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -403,7 +403,7 @@ subroutine h5tbwrite_field_name_f_double(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -424,17 +424,17 @@ end subroutine h5tbwrite_field_name_f_double ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_name_f_string(loc_id,& +subroutine h5tbwrite_field_name_f_string(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -442,13 +442,13 @@ subroutine h5tbwrite_field_name_f_string(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -456,20 +456,20 @@ subroutine h5tbwrite_field_name_f_string(loc_id,& interface integer function h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_ST_C'::h5tbwrite_field_name_st_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -478,7 +478,7 @@ subroutine h5tbwrite_field_name_f_string(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -500,17 +500,17 @@ end subroutine h5tbwrite_field_name_f_string ! !------------------------------------------------------------------------- -subroutine h5tbread_field_name_f_int(loc_id,& +subroutine h5tbread_field_name_f_int(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -518,13 +518,13 @@ subroutine h5tbread_field_name_f_int(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -532,20 +532,20 @@ subroutine h5tbread_field_name_f_int(loc_id,& interface integer function h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_INT_C'::h5tbread_field_name_int_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -554,7 +554,7 @@ subroutine h5tbread_field_name_f_int(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -575,17 +575,17 @@ end subroutine h5tbread_field_name_f_int ! !------------------------------------------------------------------------- -subroutine h5tbread_field_name_f_float(loc_id,& +subroutine h5tbread_field_name_f_float(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -593,13 +593,13 @@ subroutine h5tbread_field_name_f_float(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -607,20 +607,20 @@ subroutine h5tbread_field_name_f_float(loc_id,& interface integer function h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_FL_C'::h5tbread_field_name_fl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -629,7 +629,7 @@ subroutine h5tbread_field_name_f_float(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -650,17 +650,17 @@ end subroutine h5tbread_field_name_f_float ! !------------------------------------------------------------------------- -subroutine h5tbread_field_name_f_double(loc_id,& +subroutine h5tbread_field_name_f_double(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -668,13 +668,13 @@ subroutine h5tbread_field_name_f_double(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -682,20 +682,20 @@ subroutine h5tbread_field_name_f_double(loc_id,& interface integer function h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_DL_C'::h5tbread_field_name_dl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -704,7 +704,7 @@ subroutine h5tbread_field_name_f_double(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -725,17 +725,17 @@ end subroutine h5tbread_field_name_f_double ! !------------------------------------------------------------------------- -subroutine h5tbread_field_name_f_string(loc_id,& +subroutine h5tbread_field_name_f_string(loc_id,& dset_name,& - field_name,& + field_name,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -743,13 +743,13 @@ subroutine h5tbread_field_name_f_string(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -757,20 +757,20 @@ subroutine h5tbread_field_name_f_string(loc_id,& interface integer function h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_ST_C'::h5tbread_field_name_st_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length integer :: namelen1 ! name length @@ -779,7 +779,7 @@ subroutine h5tbread_field_name_f_string(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,buf) @@ -801,17 +801,17 @@ end subroutine h5tbread_field_name_f_string ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_index_f_int(loc_id,& +subroutine h5tbwrite_field_index_f_int(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -819,39 +819,39 @@ subroutine h5tbwrite_field_index_f_int(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_INT_C'::h5tbwrite_field_index_int_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbwrite_field_index_int_c end interface namelen = len(dset_name) - + errcode = h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -872,17 +872,17 @@ end subroutine h5tbwrite_field_index_f_int ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_index_f_float(loc_id,& +subroutine h5tbwrite_field_index_f_float(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -890,39 +890,39 @@ subroutine h5tbwrite_field_index_f_float(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_FL_C'::h5tbwrite_field_index_fl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbwrite_field_index_fl_c end interface namelen = len(dset_name) - + errcode = h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -945,17 +945,17 @@ end subroutine h5tbwrite_field_index_f_float ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_index_f_double(loc_id,& +subroutine h5tbwrite_field_index_f_double(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -963,39 +963,39 @@ subroutine h5tbwrite_field_index_f_double(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_DL_C'::h5tbwrite_field_index_dl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbwrite_field_index_dl_c end interface namelen = len(dset_name) - + errcode = h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1016,17 +1016,17 @@ end subroutine h5tbwrite_field_index_f_double ! !------------------------------------------------------------------------- -subroutine h5tbwrite_field_index_f_string(loc_id,& +subroutine h5tbwrite_field_index_f_string(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1034,39 +1034,39 @@ subroutine h5tbwrite_field_index_f_string(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_ST_C'::h5tbwrite_field_index_st_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbwrite_field_index_st_c end interface namelen = len(dset_name) - + errcode = h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1088,17 +1088,17 @@ end subroutine h5tbwrite_field_index_f_string ! !------------------------------------------------------------------------- -subroutine h5tbread_field_index_f_int(loc_id,& +subroutine h5tbread_field_index_f_int(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1106,39 +1106,39 @@ subroutine h5tbread_field_index_f_int(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_INT_C'::h5tbread_field_index_int_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbread_field_index_int_c end interface namelen = len(dset_name) - + errcode = h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1159,17 +1159,17 @@ end subroutine h5tbread_field_index_f_int ! !------------------------------------------------------------------------- -subroutine h5tbread_field_index_f_float(loc_id,& +subroutine h5tbread_field_index_f_float(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1177,39 +1177,39 @@ subroutine h5tbread_field_index_f_float(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_FL_C'::h5tbread_field_index_fl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbread_field_index_fl_c end interface namelen = len(dset_name) - + errcode = h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1230,17 +1230,17 @@ end subroutine h5tbread_field_index_f_float ! !------------------------------------------------------------------------- -subroutine h5tbread_field_index_f_double(loc_id,& +subroutine h5tbread_field_index_f_double(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1248,39 +1248,39 @@ subroutine h5tbread_field_index_f_double(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_DL_C'::h5tbread_field_index_dl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbread_field_index_dl_c end interface namelen = len(dset_name) - + errcode = h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1301,17 +1301,17 @@ end subroutine h5tbread_field_index_f_double ! !------------------------------------------------------------------------- -subroutine h5tbread_field_index_f_string(loc_id,& +subroutine h5tbread_field_index_f_string(loc_id,& dset_name,& - field_index,& + field_index,& start,& nrecords,& type_size,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1319,39 +1319,39 @@ subroutine h5tbread_field_index_f_string(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length interface integer function h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_ST_C'::h5tbread_field_index_st_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset integer, intent(in) :: field_index ! index - integer(hsize_t), intent(in) :: start ! start record + integer(hsize_t), intent(in) :: start ! start record integer(hsize_t), intent(in) :: nrecords ! records integer(size_t), intent(in) :: type_size ! type size - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: errcode ! error code integer :: namelen ! name length end function h5tbread_field_index_st_c end interface namelen = len(dset_name) - + errcode = h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,buf) @@ -1373,15 +1373,15 @@ end subroutine h5tbread_field_index_f_string ! !------------------------------------------------------------------------- -subroutine h5tbinsert_field_f_int(loc_id,& +subroutine h5tbinsert_field_f_int(loc_id,& dset_name,& - field_name,& + field_name,& field_type,& field_index,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1389,12 +1389,12 @@ subroutine h5tbinsert_field_f_int(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length integer :: errcode ! error code @@ -1403,19 +1403,19 @@ subroutine h5tbinsert_field_f_int(loc_id,& interface integer function h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_INT_C'::h5tbinsert_field_int_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - integer, intent(in), dimension(*) :: buf ! data buffer + integer, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length end function h5tbinsert_field_int_c @@ -1423,7 +1423,7 @@ subroutine h5tbinsert_field_f_int(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) @@ -1446,15 +1446,15 @@ end subroutine h5tbinsert_field_f_int ! !------------------------------------------------------------------------- -subroutine h5tbinsert_field_f_float(loc_id,& +subroutine h5tbinsert_field_f_float(loc_id,& dset_name,& - field_name,& + field_name,& field_type,& field_index,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1462,12 +1462,12 @@ subroutine h5tbinsert_field_f_float(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length integer :: errcode ! error code @@ -1476,19 +1476,19 @@ subroutine h5tbinsert_field_f_float(loc_id,& interface integer function h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_FL_C'::h5tbinsert_field_fl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - real, intent(in), dimension(*) :: buf ! data buffer + real, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length end function h5tbinsert_field_fl_c @@ -1496,7 +1496,7 @@ subroutine h5tbinsert_field_f_float(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) @@ -1519,15 +1519,15 @@ end subroutine h5tbinsert_field_f_float ! !------------------------------------------------------------------------- -subroutine h5tbinsert_field_f_double(loc_id,& +subroutine h5tbinsert_field_f_double(loc_id,& dset_name,& - field_name,& + field_name,& field_type,& field_index,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1535,12 +1535,12 @@ subroutine h5tbinsert_field_f_double(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length integer :: errcode ! error code @@ -1549,19 +1549,19 @@ subroutine h5tbinsert_field_f_double(loc_id,& interface integer function h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_DL_C'::h5tbinsert_field_dl_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - double precision, intent(in), dimension(*) :: buf ! data buffer + double precision, intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length end function h5tbinsert_field_dl_c @@ -1569,7 +1569,7 @@ subroutine h5tbinsert_field_f_double(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) @@ -1593,15 +1593,15 @@ end subroutine h5tbinsert_field_f_double ! !------------------------------------------------------------------------- -subroutine h5tbinsert_field_f_string(loc_id,& +subroutine h5tbinsert_field_f_string(loc_id,& dset_name,& - field_name,& + field_name,& field_type,& field_index,& buf,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1609,12 +1609,12 @@ subroutine h5tbinsert_field_f_string(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length integer :: errcode ! error code @@ -1623,19 +1623,19 @@ subroutine h5tbinsert_field_f_string(loc_id,& interface integer function h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_ST_C'::h5tbinsert_field_st_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer(hid_t), intent(in) :: field_type ! field type integer, intent(in) :: field_index ! field_index - character(len=*), intent(in), dimension(*) :: buf ! data buffer + character(len=*), intent(in), dimension(*) :: buf ! data buffer integer :: namelen ! name length integer :: namelen1 ! name length length end function h5tbinsert_field_st_c @@ -1643,7 +1643,7 @@ subroutine h5tbinsert_field_f_string(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,field_index,buf) @@ -1667,12 +1667,12 @@ end subroutine h5tbinsert_field_f_string ! !------------------------------------------------------------------------- -subroutine h5tbdelete_field_f(loc_id,& +subroutine h5tbdelete_field_f(loc_id,& dset_name,& field_name,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1680,8 +1680,8 @@ subroutine h5tbdelete_field_f(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset character(len=*), intent(in) :: field_name ! name of the field integer :: namelen ! name length integer :: namelen1 ! name length @@ -1690,15 +1690,15 @@ subroutine h5tbdelete_field_f(loc_id,& interface integer function h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name) - + use h5global !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBDELETE_FIELD_C'::h5tbdelete_field_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name !DEC$ATTRIBUTES reference :: field_name - integer(HID_T), intent(IN) :: loc_id ! file or group identifier - character(LEN=*), intent(IN) :: dset_name ! name of the dataset + integer(HID_T), intent(IN) :: loc_id ! file or group identifier + character(LEN=*), intent(IN) :: dset_name ! name of the dataset character(LEN=*), intent(IN) :: field_name ! name of the field integer :: namelen ! name length integer :: namelen1 ! name length length @@ -1707,7 +1707,7 @@ subroutine h5tbdelete_field_f(loc_id,& namelen = len(dset_name) namelen1 = len(field_name) - + errcode = h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name) end subroutine h5tbdelete_field_f @@ -1731,14 +1731,14 @@ end subroutine h5tbdelete_field_f ! !------------------------------------------------------------------------- -subroutine h5tbget_table_info_f(loc_id,& +subroutine h5tbget_table_info_f(loc_id,& dset_name,& nfields,& nrecords,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1746,10 +1746,10 @@ subroutine h5tbget_table_info_f(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(inout):: nfields ! nfields - integer(hsize_t), intent(inout):: nrecords ! nrecords + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(inout):: nfields ! nfields + integer(hsize_t), intent(inout):: nrecords ! nrecords integer :: errcode ! error code integer :: namelen ! name length @@ -1760,10 +1760,10 @@ subroutine h5tbget_table_info_f(loc_id,& !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_TABLE_INFO_C'::h5tbget_table_info_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(inout):: nfields ! nfields - integer(hsize_t), intent(inout):: nrecords ! nrecords + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(inout):: nfields ! nfields + integer(hsize_t), intent(inout):: nrecords ! nrecords integer :: namelen ! name length end function h5tbget_table_info_c end interface @@ -1791,17 +1791,17 @@ end subroutine h5tbget_table_info_f ! !------------------------------------------------------------------------- -subroutine h5tbget_field_info_f(loc_id,& +subroutine h5tbget_field_info_f(loc_id,& dset_name,& nfields,& field_names,& field_sizes,& field_offsets,& type_size,& - errcode ) + errcode ) implicit none - + ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -1809,13 +1809,13 @@ subroutine h5tbget_field_info_f(loc_id,& !DEC$endif ! - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(in):: nfields ! nfields + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(in):: nfields ! nfields character(len=*), dimension(nfields), intent(inout) :: field_names ! field names integer(size_t), dimension(nfields), intent(inout) :: field_sizes ! field sizes integer(size_t), dimension(nfields), intent(inout) :: field_offsets ! field offsets - integer(size_t), intent(inout):: type_size ! type size + integer(size_t), intent(inout):: type_size ! type size integer :: errcode ! error code integer :: namelen ! name length integer, dimension(nfields) :: namelen2 ! name lengths @@ -1830,13 +1830,13 @@ subroutine h5tbget_field_info_f(loc_id,& !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_FIELD_INFO_C'::h5tbget_field_info_c !DEC$ENDIF !DEC$ATTRIBUTES reference :: dset_name - integer(hid_t), intent(in) :: loc_id ! file or group identifier - character(len=*), intent(in) :: dset_name ! name of the dataset - integer(hsize_t), intent(in):: nfields ! nfields + integer(hid_t), intent(in) :: loc_id ! file or group identifier + character(len=*), intent(in) :: dset_name ! name of the dataset + integer(hsize_t), intent(in):: nfields ! nfields character(len=*), dimension(nfields), intent(inout) :: field_names ! field names integer(size_t), dimension(nfields), intent(inout) :: field_sizes ! field sizes integer(size_t), dimension(nfields), intent(inout) :: field_offsets ! field offsets - integer(size_t), intent(inout):: type_size ! type size + integer(size_t), intent(inout):: type_size ! type size integer :: namelen ! name length integer, dimension(nfields) :: namelen2 ! name lengths end function h5tbget_field_info_c @@ -1856,9 +1856,9 @@ end subroutine h5tbget_field_info_f ! end ! end module H5TB - - + + |