diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-02 21:42:41 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-02 21:42:41 (GMT) |
commit | cd1b5623f0b092960542d38751b6f3453d18e7e7 (patch) | |
tree | 92f25216f3a49716394d37f877634422deefb74c /fortran/src/H5_ff.f90 | |
parent | 6e9724c46c38649b2ddc95a878e872a3c3eb5972 (diff) | |
download | hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.zip hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.tar.gz hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.tar.bz2 |
[svn-r6573]
Purpose: Maintenance
Description: New fortran APIs h5pset_fapl_multi and h5pget_fapl_multi have been
added
Solution:
Platforms tested: burrwhite with PGI compilers, arabica and modi4 with
--enable-parallel
Misc. update:
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 !---------------------------------------------------------------------- |