summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorPedro Vicente Nunes <pvn@hdfgroup.org>2005-05-04 18:24:15 (GMT)
committerPedro Vicente Nunes <pvn@hdfgroup.org>2005-05-04 18:24:15 (GMT)
commita78417597b82adc7841d1aa318e816e5e79422dd (patch)
tree72e6459e46b4ce62b0d3cd6f2919f25975df3cbf /fortran/testpar
parent17b3d2b13e272849b88402c3ebeb1214ad61ac02 (diff)
downloadhdf5-a78417597b82adc7841d1aa318e816e5e79422dd.zip
hdf5-a78417597b82adc7841d1aa318e816e5e79422dd.tar.gz
hdf5-a78417597b82adc7841d1aa318e816e5e79422dd.tar.bz2
[svn-r10728] Purpose:
bug fix Description: some lines were longer that 132 characters (the "official" max lenght of a line in F95) the g95 compiler complained about it Solution: reduce the line lenght Platforms tested: linux (g95, intel) Misc. update:
Diffstat (limited to 'fortran/testpar')
-rw-r--r--fortran/testpar/hyper.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90
index 4b972df..d4e069d 100644
--- a/fortran/testpar/hyper.f90
+++ b/fortran/testpar/hyper.f90
@@ -178,7 +178,7 @@ endif
! write dataset
!//////////////////////////////////////////////////////////
-call h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, wbuf, dims, hdferror, file_space_id = fspace_id, mem_space_id = mspace_id, xfer_prp = dxpl_id)
+call h5dwrite_f(dset_id,H5T_NATIVE_INTEGER,wbuf,dims,hdferror,file_space_id=fspace_id,mem_space_id=mspace_id,xfer_prp=dxpl_id)
call check("h5dwrite_f", hdferror, nerrors)
@@ -259,7 +259,7 @@ endif
! read dataset
!//////////////////////////////////////////////////////////
-call h5dread_f(dset_id, H5T_NATIVE_INTEGER, rbuf, dims, hdferror, file_space_id = fspace_id, mem_space_id = mspace_id, xfer_prp = dxpl_id)
+call h5dread_f(dset_id,H5T_NATIVE_INTEGER,rbuf,dims,hdferror,file_space_id=fspace_id,mem_space_id=mspace_id,xfer_prp=dxpl_id)
call check("h5pcreate_f", hdferror, nerrors)
!//////////////////////////////////////////////////////////