From 3d585fe0feeb51f98880c5664b78a68aae587500 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 8 Jan 2010 10:05:07 -0500
Subject: [svn-r18074] Description:

renamed the fortran constants H5L_LINK_*_F to H5L_TYPE_*_F to be consistent with C as noted in bug 1720
---
 fortran/src/H5f90global.f90 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index 28d00f7..da21f6e 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -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)
   !
-- 
cgit v0.12