summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Eff.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2009-04-07 15:16:42 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2009-04-07 15:16:42 (GMT)
commit858cb12fe42008021362903bda747c64859212f9 (patch)
tree2ba0a7baf17817ba7d3d480b4b29e266f305c5b1 /fortran/src/H5Eff.f90
parent92bbd705f1fabb4d7ad8527133d26ed4e9bf5df4 (diff)
downloadhdf5-858cb12fe42008021362903bda747c64859212f9.zip
hdf5-858cb12fe42008021362903bda747c64859212f9.tar.gz
hdf5-858cb12fe42008021362903bda747c64859212f9.tar.bz2
[svn-r16678] Description:
Fixed warnings from absoft's compiler for !DEC$ statements. Solution: There should not be a space after !DEC$ statements, removed the spaces. Platforms tested: Jam with gcc and f95
Diffstat (limited to 'fortran/src/H5Eff.f90')
-rw-r--r--fortran/src/H5Eff.f9036
1 files changed, 18 insertions, 18 deletions
diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90
index c7870fe..b385f39 100644
--- a/fortran/src/H5Eff.f90
+++ b/fortran/src/H5Eff.f90
@@ -77,9 +77,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eclear_c()
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ECLEAR_C'::h5eclear_c
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5ECLEAR_C'::h5eclear_c
+ !DEC$ENDIF
END FUNCTION h5eclear_c
END INTERFACE
hdferr = h5eclear_c()
@@ -117,9 +117,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eprint_c1(name, namelen)
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C1'::h5eprint_c1
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C1'::h5eprint_c1
+ !DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER :: namelen
CHARACTER(LEN=*),INTENT(IN) :: name
@@ -129,9 +129,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eprint_c2()
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C2'::h5eprint_c2
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C2'::h5eprint_c2
+ !DEC$ENDIF
END FUNCTION h5eprint_c2
END INTERFACE
namelen = LEN(NAME)
@@ -178,9 +178,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eget_major_c(error_no, name, namelen)
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5EGET_MAJOR_C'::h5eget_major_c
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5EGET_MAJOR_C'::h5eget_major_c
+ !DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER :: error_no
CHARACTER(LEN=*) :: name
@@ -228,9 +228,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eget_minor_c(error_no, name)
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5EGET_MINOR_C'::h5eget_minor_c
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5EGET_MINOR_C'::h5eget_minor_c
+ !DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER :: error_no
CHARACTER(LEN=*) :: name
@@ -279,9 +279,9 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5eset_auto_c(printflag)
USE H5GLOBAL
- !DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ESET_AUTO_C'::h5eset_auto_c
- !DEC$ ENDIF
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5ESET_AUTO_C'::h5eset_auto_c
+ !DEC$ENDIF
INTEGER :: printflag
END FUNCTION h5eset_auto_c
END INTERFACE