diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2017-11-17 21:23:01 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2017-11-17 21:23:01 (GMT) |
| commit | c9b78a6714e6f7a781ab49b8ccecc022b3ef8529 (patch) | |
| tree | bf92d9db0c182a9965ab8d35bd3e47d0e702f640 | |
| parent | 5683be342751e642719d14fa1baed83acaa71532 (diff) | |
| download | hdf5-c9b78a6714e6f7a781ab49b8ccecc022b3ef8529.zip hdf5-c9b78a6714e6f7a781ab49b8ccecc022b3ef8529.tar.gz hdf5-c9b78a6714e6f7a781ab49b8ccecc022b3ef8529.tar.bz2 | |
misc. clean-up
| -rw-r--r-- | fortran/src/H5_ff.F90 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index f875d0e..79ab280 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -638,7 +638,6 @@ CONTAINS IMPLICIT NONE INTEGER, INTENT(OUT) :: error !***** - INTEGER :: error_1 INTERFACE INTEGER FUNCTION h5close_types_c(p_types, P_TYPES_LEN, & f_types, F_TYPES_LEN, & @@ -653,10 +652,9 @@ CONTAINS INTEGER(HID_T), DIMENSION(I_TYPES_LEN) :: i_types END FUNCTION h5close_types_c END INTERFACE - error_1 = h5close_types_c(predef_types, PREDEF_TYPES_LEN, & + error = h5close_types_c(predef_types, PREDEF_TYPES_LEN, & floating_types, FLOATING_TYPES_LEN, & integer_types, INTEGER_TYPES_LEN ) - error = error_1 END SUBROUTINE h5close_f |