From 2bc81f8736c26a40451f1915cb83f830b3781cd2 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 17 Nov 2000 15:08:37 -0500 Subject: [svn-r2972] Purpose: Bug fix Description: HP and AIX compilers did not like duplicate array declarations in common blocks statements. Solution: Removed duplication Platforms tested: SP2 and HPUX 11.00 --- fortran/src/H5f90global.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 6752754..ad815ac 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -78,13 +78,13 @@ ! H5T_NATIVE_CHARACTER, & ! H5T_STD_REF_OBJ, & ! H5T_STD_REF_DSETREG - COMMON /PREDEFINED_TYPES/ predef_types(PREDEF_TYPES_LEN) + COMMON /PREDEFINED_TYPES/ predef_types ! COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, & ! H5T_IEEE_F32LE, & ! H5T_IEEE_F64BE, & ! H5T_IEEE_F64LE - COMMON /FLOATING_TYPES/ floatinig_types(FLOATING_TYPES_LEN) + COMMON /FLOATING_TYPES/ floatinig_types ! ! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & ! H5T_STD_I8LE, & @@ -102,7 +102,7 @@ ! H5T_STD_U32LE, & ! H5T_STD_U64BE, & ! H5T_STD_U64LE - COMMON /INTEGER_TYPES/ integer_types(INTEGER_TYPES_LEN) + COMMON /INTEGER_TYPES/ integer_types ! ! Fortran flags ! -- cgit v0.12