diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:52:56 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:52:56 (GMT) |
| commit | 49e8b9fab84a2286ffe11269563ee27fd6442bfe (patch) | |
| tree | 2b7943a5a24da92661d16da4d84d7ad582998ac6 /fortran | |
| parent | 55bc19a6d7f04822a949cb5c688cec66dc8c844a (diff) | |
| download | hdf5-49e8b9fab84a2286ffe11269563ee27fd6442bfe.zip hdf5-49e8b9fab84a2286ffe11269563ee27fd6442bfe.tar.gz hdf5-49e8b9fab84a2286ffe11269563ee27fd6442bfe.tar.bz2 | |
[svn-r3034]
Purpose:
Bug fix.
Description:
H5f90global.f90:
One of the common block arrays (floating_types) had a typo in the name.
DEC compiler was the only compiler to warn about the problem.
H5Ff.f90
Compiler gave warnings about a variable that was used before its value was defined.
Fixed. Turned to be a typo in a variable name.
Platforms tested:
DEC UNIX (gondolin)
Diffstat (limited to 'fortran')
| -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, & |