From a78417597b82adc7841d1aa318e816e5e79422dd Mon Sep 17 00:00:00 2001 From: Pedro Vicente Nunes Date: Wed, 4 May 2005 13:24:15 -0500 Subject: [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: --- fortran/testpar/hyper.f90 | 4 ++-- 1 file 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) !////////////////////////////////////////////////////////// -- cgit v0.12