mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r2972]

Browse Source 
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
This commit is contained in:
Elena Pourmal 2000-11-17 15:08:37 -05:00
parent 9735b6ed76
commit 2bc81f8736
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/src/H5f90global.f90
View File

@ -78,13 +78,13 @@
! H5T_NATIVE_CHARACTER, & ! H5T_NATIVE_CHARACTER, &
! H5T_STD_REF_OBJ, & ! H5T_STD_REF_OBJ, &
! H5T_STD_REF_DSETREG ! H5T_STD_REF_DSETREG
COMMON /PREDEFINED_TYPES/ predef_types(PREDEF_TYPES_LEN) COMMON /PREDEFINED_TYPES/ predef_types
! COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, & ! COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, &
! H5T_IEEE_F32LE, & ! H5T_IEEE_F32LE, &
! H5T_IEEE_F64BE, & ! H5T_IEEE_F64BE, &
! H5T_IEEE_F64LE ! H5T_IEEE_F64LE
COMMON /FLOATING_TYPES/ floatinig_types(FLOATING_TYPES_LEN) COMMON /FLOATING_TYPES/ floatinig_types
! !
! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & ! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, &
! H5T_STD_I8LE, & ! H5T_STD_I8LE, &
@ -102,7 +102,7 @@
! H5T_STD_U32LE, & ! H5T_STD_U32LE, &
! H5T_STD_U64BE, & ! H5T_STD_U64BE, &
! H5T_STD_U64LE ! H5T_STD_U64LE
COMMON /INTEGER_TYPES/ integer_types(INTEGER_TYPES_LEN) COMMON /INTEGER_TYPES/ integer_types
! !
! Fortran flags ! Fortran flags
! !