diff options
| -rw-r--r-- | fortran/src/H5f90global.f90 | 2 | ||||
| -rw-r--r-- | fortran/src/H5ff.f90 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index ad815ac..955521a 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -84,7 +84,7 @@ ! H5T_IEEE_F32LE, & ! H5T_IEEE_F64BE, & ! H5T_IEEE_F64LE - COMMON /FLOATING_TYPES/ floatinig_types + COMMON /FLOATING_TYPES/ floating_types ! ! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & ! H5T_STD_I8LE, & diff --git a/fortran/src/H5ff.f90 b/fortran/src/H5ff.f90 index 198a616..234c012 100644 --- a/fortran/src/H5ff.f90 +++ b/fortran/src/H5ff.f90 @@ -9,7 +9,7 @@ INTEGER, EXTERNAL :: h5open_c error_0 = h5open_c() error_1 = h5init_types_c(predef_types, floating_types, integer_types) - error_1 = h5init_flags_c(H5D_flags, & + error_2 = h5init_flags_c(H5D_flags, & H5E_flags, & H5F_flags, & H5FD_flags, & |