From 77e6a52f9a5b80e125b603d5752e3eb86568726f Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Tue, 27 Nov 2001 13:40:35 -0500
Subject: [svn-r4652] Purpose:     Bug fix Description:     Somehow I forgot to
 add DEC compiler directives to the H5Eff.f90     file. Linking failed on OSF
 5.1 Solution:     Added necessary compiler directives for name translations.
 Platforms tested:     Not tested yet but without this change it would fail.

---
 fortran/src/H5Eff.f90 | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90
index a43c119..f835901 100644
--- a/fortran/src/H5Eff.f90
+++ b/fortran/src/H5Eff.f90
@@ -48,7 +48,9 @@
             INTERFACE
               INTEGER FUNCTION h5eclear_c()
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5ECLEAR_C'::h5eclear_c
+              !DEC$ ENDIF
               END FUNCTION h5eclear_c
             END INTERFACE
             hdferr = h5eclear_c()
@@ -95,7 +97,9 @@
             INTERFACE
               INTEGER FUNCTION h5eprint_c1(name, namelen)
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5EPRINT_C1'::h5eprint_c1
+              !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER :: namelen
               CHARACTER(LEN=*),INTENT(IN) :: name
@@ -106,12 +110,14 @@
             INTERFACE
               INTEGER FUNCTION h5eprint_c2()
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5EPRINT_C2'::h5eprint_c2
+              !DEC$ ENDIF
               END FUNCTION h5eprint_c2
             END INTERFACE
             namelen = LEN(NAME)
             if (present(name)) then
-                hdferr = h5eprint_c1(name, namelen) 
+               hdferr = h5eprint_c1(name, namelen) 
             else
             hdferr = h5eprint_c2() 
             endif
@@ -160,7 +166,9 @@
             INTERFACE
               INTEGER FUNCTION h5eget_major_c(error_no, name)
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5EGET_MAJOR_C'::h5eget_major_c
+              !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER :: error_no
                CHARACTER(LEN=*) :: name 
@@ -216,7 +224,9 @@
             INTERFACE
               INTEGER FUNCTION h5eget_minor_c(error_no, name)
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5EGET_MINOR_C'::h5eget_minor_c
+              !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER :: error_no
                CHARACTER(LEN=*) :: name 
@@ -274,7 +284,9 @@
             INTERFACE
               INTEGER FUNCTION h5eset_auto_c(printflag)
               USE H5GLOBAL
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
               !MS$ATTRIBUTES C,reference,alias:'_H5ESET_AUTO_C'::h5eset_auto_c
+              !DEC$ ENDIF
               INTEGER :: printflag
               END FUNCTION h5eset_auto_c
             END INTERFACE
-- 
cgit v0.12