diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2006-10-24 18:52:05 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2006-10-24 18:52:05 (GMT) |
| commit | 5975624f97d4d8f8075e2afa8cdc1c67c6d224b0 (patch) | |
| tree | 6e1dff12994b4a339550aa3dc0e547916445a206 /fortran/src/H5Dff.f90 | |
| parent | fbe677a029da788a1c9ff393990b703b8acf0db2 (diff) | |
| download | hdf5-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.
Diffstat (limited to 'fortran/src/H5Dff.f90')
| -rw-r--r-- | fortran/src/H5Dff.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
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 |