mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

misc. clean-up

Browse Source
This commit is contained in:
M. Scot Breitenfeld 2017-11-17 14:23:01 -07:00
parent 5683be3427
commit c9b78a6714
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5_ff.F90
View File

@ -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