From 3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 24 Sep 2008 11:28:46 -0500
Subject: [svn-r15691] Cosmetic changes.

---
 fortran/src/H5Sff.f90 | 5 ++---
 1 file 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
-- 
cgit v0.12