diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2011-10-13 20:25:17 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2011-10-13 20:25:17 (GMT) |
commit | b0dceeb6a9dab3a283875f3533a1638135733804 (patch) | |
tree | 6a0f27bbac8ec3e0bf87b1fbcdb15228049d303d /fortran/src/H5_ff.f90 | |
parent | 6f50b718192e2b6c7be0cea3c631bad2f1e3c128 (diff) | |
download | hdf5-b0dceeb6a9dab3a283875f3533a1638135733804.zip hdf5-b0dceeb6a9dab3a283875f3533a1638135733804.tar.gz hdf5-b0dceeb6a9dab3a283875f3533a1638135733804.tar.bz2 |
[svn-r21551] Maintenance: Addressed HDFFV-915 - investigate if H5open and H5close are needed in the corresponding
Fortran wrappers.
Solutions: The calls were not needed and were removed from the C stubs h5open_c and h5close_c for the correspnding
Fortran subroutines h5open_f and h5close_f.
Platforms tested: jam with gcc and gfortran, PGI and Intel
koala with PGI and Intel
linew with the standard Sun compilers
Diffstat (limited to 'fortran/src/H5_ff.f90')
-rw-r--r-- | fortran/src/H5_ff.f90 | 40 |
1 files changed, 12 insertions, 28 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index fdb8748..21449d3 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -48,7 +48,7 @@ CONTAINS ! h5open_f ! ! PURPOSE -! Initializes the HDF5 library and Fortran90 interface. +! Initializes HDF5 Fortran interface. ! ! OUTPUTS ! error - error code @@ -63,26 +63,17 @@ CONTAINS ! called C functions (it is needed for Windows ! port). February 28, 2001 ! +! Removed call to h5open_c since this may cause a problem for an +! application that uses HDF5 library outside HDF5 Fortran APIs. +! October 13, 2011 ! SOURCE SUBROUTINE h5open_f(error) USE H5GLOBAL IMPLICIT NONE INTEGER, INTENT(OUT) :: error !***** - INTEGER :: error_0, error_1, error_2, error_3 + INTEGER :: error_1, error_2, error_3 -! INTEGER, EXTERNAL :: h5init_types_c -! INTEGER, EXTERNAL :: h5init_flags_c -! INTEGER, EXTERNAL :: h5init1_flags_c -! INTEGER, EXTERNAL :: h5open_c - - INTERFACE - INTEGER FUNCTION h5open_c() - !DEC$IF DEFINED(HDF5F90_WINDOWS) - !DEC$ATTRIBUTES C,reference,decorate,alias:'H5OPEN_C'::h5open_c - !DEC$ENDIF - END FUNCTION h5open_c - END INTERFACE INTERFACE INTEGER FUNCTION h5init_types_c(p_types, f_types, i_types) USE H5GLOBAL @@ -144,7 +135,6 @@ CONTAINS !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, & H5E_flags, & @@ -164,7 +154,7 @@ CONTAINS H5Z_flags, & H5generic_flags) error_3 = h5init1_flags_c(H5LIB_flags ) - error = error_0 + error_1 + error_2 + error_3 + error = error_1 + error_2 + error_3 END SUBROUTINE h5open_f !****s* H5LIB/h5close_f @@ -173,7 +163,7 @@ CONTAINS ! h5close_f ! ! PURPOSE -! Closes the HDF5 library and Fortran90 interface. +! Closes HDF5 Fortran interface. ! ! OUTPUTS ! error - error code @@ -190,21 +180,16 @@ CONTAINS ! called C functions (it is needed for Windows ! port). February 28, 2001 ! +! Removed call to h5close_c since this may cause a problem for an +! application that uses HDF5 library outside HDF5 Fortran APIs. +! October 13, 2011 ! SOURCE SUBROUTINE h5close_f(error) USE H5GLOBAL IMPLICIT NONE INTEGER, INTENT(OUT) :: error !***** - INTEGER :: error_1, error_2 - ! INTEGER, EXTERNAL :: h5close_types_c, h5close_c - INTERFACE - INTEGER FUNCTION h5close_c() - !DEC$IF DEFINED(HDF5F90_WINDOWS) - !DEC$ATTRIBUTES C,reference,decorate,alias:'H5CLOSE_C'::h5close_c - !DEC$ENDIF - END FUNCTION h5close_c - END INTERFACE + INTEGER :: error_1 INTERFACE INTEGER FUNCTION h5close_types_c(p_types, P_TYPES_LEN, & f_types, F_TYPES_LEN, & @@ -224,8 +209,7 @@ CONTAINS error_1 = h5close_types_c(predef_types, PREDEF_TYPES_LEN, & floating_types, FLOATING_TYPES_LEN, & integer_types, INTEGER_TYPES_LEN ) - error_2 = h5close_c() - error = error_1 + error_2 + error = error_1 END SUBROUTINE h5close_f |