diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2017-11-29 15:52:37 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2017-11-29 15:52:37 (GMT) |
| commit | 4db7461569a90f466ba6be14d7e292a040bc3a36 (patch) | |
| tree | f95f7affdcb77215fe876cd10a8d42a5e339ebcd | |
| parent | bdd2d3a1beef336e1835332763b9711d2fb31a8c (diff) | |
| download | hdf5-4db7461569a90f466ba6be14d7e292a040bc3a36.zip hdf5-4db7461569a90f466ba6be14d7e292a040bc3a36.tar.gz hdf5-4db7461569a90f466ba6be14d7e292a040bc3a36.tar.bz2 | |
intialized h5open_f arrays
| -rw-r--r-- | fortran/src/H5f90global.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90 index ee8959e..d4a9008 100644 --- a/fortran/src/H5f90global.F90 +++ b/fortran/src/H5f90global.F90 @@ -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 |