mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4652]

Browse Source 
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.
This commit is contained in:
Elena Pourmal 2001-11-27 13:40:35 -05:00
parent fad0ffac14
commit 77e6a52f9a
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fortran/src/H5Eff.f90
View File

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