diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
| commit | a496f905b8c9ca6428d27efaaf354eb475e2a531 (patch) | |
| tree | 17962b1a4dc82b599502651f0b38759da9d7578a /fortran/src/H5_ff.f90 | |
| parent | 15a0473d746c22992b549238c852bac72ffb006c (diff) | |
| download | hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.zip hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.gz hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.bz2 | |
[svn-r6641]
Purpose: Catching up with C library
Description: I added four new functions
h5pset_szip_f
h5pget_filter_by_id_f
h5pmodify_filetr_f
h5pall_filters_avail_f
Solution:
Platforms tested: arabica (with and without SZIP Library),
modi4 (with SZIP and parallel)
burrwhite (with SZIP and PGI C and Fortran compilers)
Misc. update:
Diffstat (limited to 'fortran/src/H5_ff.f90')
| -rw-r--r-- | fortran/src/H5_ff.f90 | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index 53d4bec..4d353dc 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -34,7 +34,7 @@ IMPLICIT NONE INTEGER, INTENT(OUT) :: error - INTEGER :: error_0, error_1, error_2 + INTEGER :: error_0, error_1, error_2, error_3 ! INTEGER, EXTERNAL :: h5init_types_c ! INTEGER, EXTERNAL :: h5init_flags_c ! INTEGER, EXTERNAL :: h5init1_flags_c @@ -90,15 +90,15 @@ !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 + INTERFACE + INTEGER FUNCTION h5init1_flags_c( i_H5LIB_flags ) + USE H5GLOBAL + INTEGER 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, & @@ -112,8 +112,8 @@ H5S_flags, & H5T_flags, & H5Z_flags) -! error_3 = h5init1_flags_c(H5LIB_flags ) - error = error_0 + error_1 + error_2 + error_3 = h5init1_flags_c(H5LIB_flags ) + error = error_0 + error_1 + error_2 + error_3 END SUBROUTINE h5open_f !---------------------------------------------------------------------- |