diff options
Diffstat (limited to 'fortran/src/H5_ff.f90')
| -rw-r--r-- | fortran/src/H5_ff.f90 | 19 |
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 !---------------------------------------------------------------------- |