summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-24 16:28:46 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-24 16:28:46 (GMT)
commit3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6 (patch)
tree0214f33598d9aa74a79420ae29597405087c24dc /fortran/src
parent8866806873cd1ff5a1cc1bbbd59d186aa8065cca (diff)
downloadhdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.zip
hdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.tar.gz
hdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.tar.bz2
[svn-r15691] Cosmetic changes.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Sff.f905
1 files changed, 2 insertions, 3 deletions
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
index 17c8012..f7feca2 100644
--- a/fortran/src/H5Sff.f90
+++ b/fortran/src/H5Sff.f90
@@ -564,8 +564,7 @@
INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
INTEGER(SIZE_T), INTENT(IN) :: num_elements ! Number of elements to be
! selected
- INTEGER(HSIZE_T), &
- DIMENSION(rank,num_elements), INTENT(IN) :: coord
+ INTEGER(HSIZE_T), DIMENSION(rank,num_elements), INTENT(IN) :: coord
! Array with the coordinates
! of the selected elements
! coord(rank, num_elements)
@@ -587,7 +586,7 @@
END FUNCTION h5sselect_elements_c
END INTERFACE
- ALLOCATE(c_coord(rank,num_elements), stat = error)
+ ALLOCATE(c_coord(rank,num_elements), STAT = error)
IF (error.NE. 0) THEN
hdferr = -1
RETURN