summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5_ff.f90
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5_ff.f90')
-rw-r--r--fortran/src/H5_ff.f9019
1 files changed, 14 insertions, 5 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90
index 2cf0a5a..53d4bec 100644
--- a/fortran/src/H5_ff.f90
+++ b/fortran/src/H5_ff.f90
@@ -37,6 +37,7 @@
INTEGER :: error_0, error_1, error_2
! INTEGER, EXTERNAL :: h5init_types_c
! INTEGER, EXTERNAL :: h5init_flags_c
+! INTEGER, EXTERNAL :: h5init1_flags_c
! INTEGER, EXTERNAL :: h5open_c
!
@@ -71,7 +72,7 @@
i_H5R_flags, &
i_H5S_flags, &
i_H5T_flags, &
- i_H5Z_flags )
+ i_H5Z_flags)
USE H5GLOBAL
INTEGER i_H5F_flags(H5F_FLAGS_LEN)
INTEGER i_H5G_flags(H5G_FLAGS_LEN)
@@ -84,12 +85,20 @@
INTEGER i_H5S_flags(H5S_FLAGS_LEN)
INTEGER i_H5T_flags(H5T_FLAGS_LEN)
INTEGER i_H5Z_flags(H5Z_FLAGS_LEN)
-
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5INIT_FLAGS_C'::h5init_flags_c
!DEC$ ENDIF
END FUNCTION h5init_flags_c
END INTERFACE
+! INTERFACE
+! INTEGER FUNCTION h5init1_flags_c( i_H5LIB_flags )
+! USE H5GLOBAL
+! INTEGER(HADDR_T) i_H5LIB_flags(H5LIB_FLAGS_LEN)
+! !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+! !MS$ATTRIBUTES C,reference,alias:'_H5INIT1_FLAGS_C'::h5init1_flags_c
+! !DEC$ ENDIF
+! END FUNCTION h5init1_flags_c
+! END INTERFACE
error_0 = h5open_c()
error_1 = h5init_types_c(predef_types, floating_types, integer_types)
error_2 = h5init_flags_c(H5D_flags, &
@@ -102,9 +111,9 @@
H5R_flags, &
H5S_flags, &
H5T_flags, &
- H5Z_flags )
- error = error_0 + error_1 + error_2
-
+ H5Z_flags)
+! error_3 = h5init1_flags_c(H5LIB_flags )
+ error = error_0 + error_1 + error_2
END SUBROUTINE h5open_f
!----------------------------------------------------------------------