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-r18074] Description:

Browse Source 
renamed the fortran constants H5L_LINK_*_F to H5L_TYPE_*_F to be consistent with C as noted in bug 1720
This commit is contained in:
Scot Breitenfeld 2010-01-08 10:05:07 -05:00
parent 86d40d2265
commit 3d585fe0fe
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fortran/src/H5f90global.f90
View File

@ -473,10 +473,10 @@ MODULE H5GLOBAL
INTEGER, PARAMETER :: H5L_FLAGS_LEN = 6
INTEGER :: H5L_flags(H5L_FLAGS_LEN)
INTEGER :: H5L_LINK_ERROR_F
INTEGER :: H5L_LINK_HARD_F
INTEGER :: H5L_LINK_SOFT_F
INTEGER :: H5L_LINK_EXTERNAL_F
INTEGER :: H5L_TYPE_ERROR_F
INTEGER :: H5L_TYPE_HARD_F
INTEGER :: H5L_TYPE_SOFT_F
INTEGER :: H5L_TYPE_EXTERNAL_F
INTEGER :: H5L_SAME_LOC_F
INTEGER :: H5L_LINK_CLASS_T_VERS_F
@ -485,10 +485,10 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5L_FLAGS/ H5L_flags
EQUIVALENCE(H5L_flags(1), H5L_LINK_ERROR_F)
EQUIVALENCE(H5L_flags(2), H5L_LINK_HARD_F)
EQUIVALENCE(H5L_flags(3), H5L_LINK_SOFT_F)
EQUIVALENCE(H5L_flags(4), H5L_LINK_EXTERNAL_F)
EQUIVALENCE(H5L_flags(1), H5L_TYPE_ERROR_F)
EQUIVALENCE(H5L_flags(2), H5L_TYPE_HARD_F)
EQUIVALENCE(H5L_flags(3), H5L_TYPE_SOFT_F)
EQUIVALENCE(H5L_flags(4), H5L_TYPE_EXTERNAL_F)
EQUIVALENCE(H5L_flags(5), H5L_SAME_LOC_F)
EQUIVALENCE(H5L_flags(6), H5L_LINK_CLASS_T_VERS_F)
!