diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-24 16:28:46 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-24 16:28:46 (GMT) |
| commit | 3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6 (patch) | |
| tree | 0214f33598d9aa74a79420ae29597405087c24dc | |
| parent | 8866806873cd1ff5a1cc1bbbd59d186aa8065cca (diff) | |
| download | hdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.zip hdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.tar.gz hdf5-3a26bc2d0f8ab9b9bcecb1e412d42d8ffe287ac6.tar.bz2 | |
[svn-r15691] Cosmetic changes.
| -rw-r--r-- | fortran/src/H5Sff.f90 | 5 |
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 |