mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

misc. clean-up

Browse Source
This commit is contained in:
M. Scot Breitenfeld 2017-11-29 10:08:10 -06:00
parent caaca121bd
commit 4f7af1390b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5f90global.F90
View File

@ -83,7 +83,8 @@ MODULE H5GLOBAL
INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 27
! These arrays need to be global because they are used in
! both h5open_f and in h5close_f
! both h5open_f and in h5close_f; initialize to fix linking issues
! on OSX and Intel compilers.
INTEGER(HID_T), DIMENSION(1:PREDEF_TYPES_LEN) :: predef_types = -1
INTEGER(HID_T), DIMENSION(1:FLOATING_TYPES_LEN) :: floating_types = -1
INTEGER(HID_T), DIMENSION(1:INTEGER_TYPES_LEN) :: integer_types = -1
@ -437,7 +438,6 @@ MODULE H5GLOBAL
INTEGER :: H5_SZIP_EC_OM_F
INTEGER :: H5_SZIP_NN_OM_F
CONTAINS
! Copy a c string to a Fortran string