From 49e8b9fab84a2286ffe11269563ee27fd6442bfe Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 29 Nov 2000 18:52:56 -0500 Subject: [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) --- fortran/src/H5f90global.f90 | 2 +- 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, & -- cgit v0.12