summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-08 15:53:10 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-08 15:53:10 (GMT)
commit908f3a8c8d704f0a11248e3499b47c0cdda268d5 (patch)
tree69f5a7152c08562f906443982dbd298650a2da3b /fortran/src
parentd1c337058461311d0c583c99c6fbf45d945ed555 (diff)
downloadhdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.zip
hdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.tar.gz
hdf5-908f3a8c8d704f0a11248e3499b47c0cdda268d5.tar.bz2
[svn-r14953] Maintenance: Fixed some minor bugs exposed by the Intel compiler on tungsten.
Platforms tested: tungsten is still configuring.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Aff.f908
-rw-r--r--fortran/src/H5Dff.f901
-rw-r--r--fortran/src/H5Lff.f902
-rw-r--r--fortran/src/H5Tff.f902
4 files changed, 5 insertions, 8 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
index a6c0162..cad5231 100644
--- a/fortran/src/H5Aff.f90
+++ b/fortran/src/H5Aff.f90
@@ -3197,7 +3197,7 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ARENAME_BY_NAME_C'::h5arename_by_name_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: obj_name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER(SIZE_T) :: obj_namelen
@@ -3272,7 +3272,7 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5AOPEN_C'::h5aopen_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: attr_name
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: attr_name
INTEGER(HID_T) :: aapl_id_default
@@ -3365,7 +3365,7 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ADELETE_BY_IDX_C'::h5adelete_by_idx_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: obj_name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER, INTENT(IN) :: idx_type
@@ -3433,7 +3433,7 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5ADELETE_BY_NAME_C'::h5adelete_by_name_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: obj_name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
CHARACTER(LEN=*), INTENT(IN) :: attr_name
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index a94339f..4dfad01 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -5738,7 +5738,6 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DCREATE_ANON_C'::h5dcreate_anon_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(IN) :: space_id
diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90
index 5594342..9d1c2e5 100644
--- a/fortran/src/H5Lff.f90
+++ b/fortran/src/H5Lff.f90
@@ -505,7 +505,7 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LDELETE_BY_IDX_C'::h5ldelete_by_idx_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: group_name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: group_name
INTEGER, INTENT(IN) :: index_field
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index c60e78b..9b03ef0 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -3348,7 +3348,6 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TCOMMIT_ANON_C'::h5tcommit_anon_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: loc_id
INTEGER(HID_T), INTENT(IN) :: dtype_id
INTEGER(HID_T) :: tcpl_id_default
@@ -3414,7 +3413,6 @@ CONTAINS
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TCOMMITTED_C'::h5tcommitted_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: dtype_id
END FUNCTION h5tcommitted_c
END INTERFACE