diff options
Diffstat (limited to 'hl/fortran/src')
-rw-r--r-- | hl/fortran/src/H5LTff.F90 | 26 | ||||
-rw-r--r-- | hl/fortran/src/H5TBff.F90 | 54 |
2 files changed, 40 insertions, 40 deletions
diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90 index f5fa703..f1c182f 100644 --- a/hl/fortran/src/H5LTff.F90 +++ b/hl/fortran/src/H5LTff.F90 @@ -35,7 +35,7 @@ #include <H5config_f.inc> -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE H5LT #else MODULE H5LT_CONST @@ -45,7 +45,7 @@ MODULE H5LT_CONST USE h5fortran_types USE hdf5 -#ifndef H5_DOXYGEN_FORTRAN +#ifndef H5_DOXYGEN INTERFACE h5ltmake_dataset_f MODULE PROCEDURE h5ltmake_dataset_f_ptr @@ -130,7 +130,7 @@ CONTAINS ! Make/Read dataset functions !------------------------------------------------------------------------- -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5LT !! @@ -173,13 +173,13 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5ltmake_dataset_f #else END SUBROUTINE h5ltmake_dataset_f_ptr #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5LT !! @@ -215,7 +215,7 @@ CONTAINS INTEGER, INTENT(in) :: rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims INTEGER(hid_t), INTENT(in) :: type_id -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(in), DIMENSION(*,*,...) :: buf #else INTEGER, INTENT(in), DIMENSION(*), TARGET :: buf @@ -227,7 +227,7 @@ CONTAINS f_ptr = C_LOC(buf(1)) namelen = LEN(dset_name) errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5ltmake_dataset_f #else END SUBROUTINE h5ltmake_dataset_f_int1 @@ -375,7 +375,7 @@ CONTAINS END SUBROUTINE h5ltmake_dataset_f_int7 #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5LT !! @@ -411,13 +411,13 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id, buf) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5ltread_dataset_f #else END SUBROUTINE h5ltread_dataset_f_ptr #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5LT !! @@ -450,7 +450,7 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name INTEGER(hid_t), INTENT(in) :: type_id INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(inout), DIMENSION(*,*,...) :: buf #else INTEGER, INTENT(inout), DIMENSION(*), TARGET :: buf @@ -464,7 +464,7 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5ltread_dataset_f #else END SUBROUTINE h5ltread_dataset_f_int1 @@ -1845,7 +1845,7 @@ CONTAINS END SUBROUTINE h5ltpath_valid_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END MODULE H5LT #else END MODULE H5LT_CONST diff --git a/hl/fortran/src/H5TBff.F90 b/hl/fortran/src/H5TBff.F90 index 4798f2e..adf42d6 100644 --- a/hl/fortran/src/H5TBff.F90 +++ b/hl/fortran/src/H5TBff.F90 @@ -33,7 +33,7 @@ ! This is needed for Windows based operating systems. ! #include "H5config_f.inc" -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE H5TB #else MODULE H5TB_CONST @@ -44,7 +44,7 @@ USE hdf5 INTERFACE h5tbwrite_field_name_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE PROCEDURE h5tbwrite_field_name_f #else MODULE PROCEDURE h5tbwrite_field_name_f_int @@ -53,7 +53,7 @@ END INTERFACE INTERFACE h5tbread_field_name_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE PROCEDURE h5tbread_field_name_f #else MODULE PROCEDURE h5tbread_field_name_f_int @@ -62,7 +62,7 @@ END INTERFACE INTERFACE h5tbwrite_field_index_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE PROCEDURE h5tbwrite_field_index_f #else MODULE PROCEDURE h5tbwrite_field_index_f_int @@ -71,7 +71,7 @@ END INTERFACE INTERFACE h5tbread_field_index_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE PROCEDURE h5tbread_field_index_f #else MODULE PROCEDURE h5tbread_field_index_f_int @@ -80,7 +80,7 @@ END INTERFACE INTERFACE h5tbinsert_field_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN MODULE PROCEDURE h5tbinsert_field_f #else MODULE PROCEDURE h5tbinsert_field_f_int @@ -89,7 +89,7 @@ END INTERFACE -#ifndef H5_DOXYGEN_FORTRAN +#ifndef H5_DOXYGEN INTERFACE h5tbmake_table_f MODULE PROCEDURE h5tbmake_table_f90 @@ -218,7 +218,7 @@ CONTAINS !! !! See C API: @ref H5TBmake_table() !! -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN SUBROUTINE h5tbmake_table_f(& #else SUBROUTINE h5tbmake_table_f90(& @@ -307,7 +307,7 @@ CONTAINS type_size, field_offset, field_types, chunk_size, compress, char_len_field_names, & max_char_size_field_names, field_names) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbmake_table_f #else END SUBROUTINE h5tbmake_table_f90 @@ -337,7 +337,7 @@ CONTAINS !! !! See C API: @ref H5TBmake_table() !! -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN SUBROUTINE h5tbmake_table_f(& #else SUBROUTINE h5tbmake_table_ptr_f(& @@ -435,7 +435,7 @@ CONTAINS type_size, field_offset, field_types, chunk_size, fill_data, compress, char_len_field_names, & max_char_size_field_names, field_names, data) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbmake_table_f #else END SUBROUTINE h5tbmake_table_ptr_f @@ -510,7 +510,7 @@ CONTAINS END SUBROUTINE h5tbread_table_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5TB !! @@ -547,7 +547,7 @@ CONTAINS INTEGER(hsize_t), INTENT(in) :: start INTEGER(hsize_t), INTENT(in) :: nrecords INTEGER(size_t), INTENT(in) :: type_size -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(in), DIMENSION(*) :: buf #else INTEGER, INTENT(in), DIMENSION(*), TARGET :: buf @@ -563,7 +563,7 @@ CONTAINS errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbwrite_field_name_f #else END SUBROUTINE h5tbwrite_field_name_f_int @@ -602,7 +602,7 @@ CONTAINS END SUBROUTINE h5tbwrite_field_name_f_string #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5TB !! @@ -640,7 +640,7 @@ CONTAINS INTEGER(hsize_t), INTENT(in) :: start INTEGER(hsize_t), INTENT(in) :: nrecords INTEGER(size_t), INTENT(in) :: type_size -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(INOUT), DIMENSION(*):: buf #else INTEGER, INTENT(INOUT), DIMENSION(*), TARGET :: buf @@ -658,7 +658,7 @@ CONTAINS errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,& start,nrecords,type_size,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbread_field_name_f #else END SUBROUTINE h5tbread_field_name_f_int @@ -696,7 +696,7 @@ CONTAINS END SUBROUTINE h5tbread_field_name_f_string #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5TB !! @@ -733,7 +733,7 @@ CONTAINS INTEGER(hsize_t), INTENT(in) :: start INTEGER(hsize_t), INTENT(in) :: nrecords INTEGER(size_t), INTENT(in) :: type_size -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN INTEGER, INTENT(in), DIMENSION(*) :: buf #else INTEGER, INTENT(in), DIMENSION(*), TARGET :: buf @@ -749,7 +749,7 @@ CONTAINS errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbwrite_field_index_f #else END SUBROUTINE h5tbwrite_field_index_f_int @@ -784,7 +784,7 @@ CONTAINS END SUBROUTINE h5tbwrite_field_index_f_string #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5TB !! @@ -821,7 +821,7 @@ CONTAINS INTEGER(hsize_t), INTENT(in) :: start INTEGER(hsize_t), INTENT(in) :: nrecords INTEGER(size_t), INTENT(in) :: type_size -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(INOUT), DIMENSION(*) :: buf #else INTEGER, INTENT(INOUT), DIMENSION(*), TARGET :: buf @@ -835,7 +835,7 @@ CONTAINS errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,& start,nrecords,type_size,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbread_field_index_f #else END SUBROUTINE h5tbread_field_index_f_int @@ -870,7 +870,7 @@ CONTAINS END SUBROUTINE h5tbread_field_index_f_string #endif -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN !> !! \ingroup FH5TB !! @@ -903,7 +903,7 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: field_name INTEGER(hid_t), INTENT(in) :: field_type INTEGER, INTENT(in) :: position -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN TYPE(TYPE), INTENT(in), DIMENSION(*) :: buf #else INTEGER, INTENT(in), DIMENSION(*), TARGET :: buf @@ -922,7 +922,7 @@ CONTAINS errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,& field_type,position,f_ptr) -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END SUBROUTINE h5tbinsert_field_f #else END SUBROUTINE h5tbinsert_field_f_int @@ -1128,7 +1128,7 @@ CONTAINS END SUBROUTINE h5tbget_field_info_f -#ifdef H5_DOXYGEN_FORTRAN +#ifdef H5_DOXYGEN END MODULE H5TB #else END MODULE H5TB_CONST |