summaryrefslogtreecommitdiffstats
path: root/hl
diff options
context:
space:
mode:
Diffstat (limited to 'hl')
-rw-r--r--hl/fortran/src/H5LTff.F9026
-rw-r--r--hl/fortran/src/H5TBff.F9054
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
generated by cgit v0.12 at 2024-10-31 07:03:49 (GMT)