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-r3034]

Browse Source 
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)
This commit is contained in:
Elena Pourmal 2000-11-29 18:52:56 -05:00
parent 55bc19a6d7
commit 49e8b9fab8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/src/H5f90global.f90
View File

@ -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, &

2
fortran/src/H5ff.f90
View File

@ -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, &