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

intialized h5open_f arrays

Browse Source
This commit is contained in:
M. Scot Breitenfeld 2017-11-29 09:52:37 -06:00
parent bdd2d3a1be
commit 4db7461569
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/src/H5f90global.F90
View File

@ -84,9 +84,9 @@ MODULE H5GLOBAL
! These arrays need to be global because they are used in
! both h5open_f and in h5close_f
INTEGER(HID_T), DIMENSION(1:PREDEF_TYPES_LEN) :: predef_types
INTEGER(HID_T), DIMENSION(1:FLOATING_TYPES_LEN) :: floating_types
INTEGER(HID_T), DIMENSION(1:INTEGER_TYPES_LEN) :: integer_types
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
!
INTEGER(HID_T) :: H5T_NATIVE_REAL_C_FLOAT
INTEGER(HID_T) :: H5T_NATIVE_REAL_C_DOUBLE