summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2006-10-24 18:52:05 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2006-10-24 18:52:05 (GMT)
commit5975624f97d4d8f8075e2afa8cdc1c67c6d224b0 (patch)
tree6e1dff12994b4a339550aa3dc0e547916445a206
parentfbe677a029da788a1c9ff393990b703b8acf0db2 (diff)
downloadhdf5-5975624f97d4d8f8075e2afa8cdc1c67c6d224b0.zip
hdf5-5975624f97d4d8f8075e2afa8cdc1c67c6d224b0.tar.gz
hdf5-5975624f97d4d8f8075e2afa8cdc1c67c6d224b0.tar.bz2
[svn-r12808] Fixed a few typos in the recent changes to support g95 that were exposed on Windows.
Platforms tested: Those were changes to the Windows related code only; will be tested by windows daily tests.
-rw-r--r--fortran/src/H5Aff.f902
-rw-r--r--fortran/src/H5Dff.f906
2 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
index feae22f..b847039 100644
--- a/fortran/src/H5Aff.f90
+++ b/fortran/src/H5Aff.f90
@@ -2052,7 +2052,7 @@
INTEGER FUNCTION h5aread_double_s_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_s_C'::h5aread_double_s_c
+ !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_S_C'::h5aread_double_s_c
!DEC$ ENDIF
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index f15f1f6..0a2b103 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -1972,7 +1972,7 @@
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_s_C'::h5dwrite_double_s_c
+ !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_S_C'::h5dwrite_double_s_c
!DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2344,7 +2344,7 @@
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_6_c'::h5dwrite_double_6_c
+ !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_6_C'::h5dwrite_double_6_c
!DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2963,7 +2963,7 @@
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
- !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_5_c'::h5dread_integer_5_c
+ !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_5_C'::h5dread_integer_5_c
!DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id