mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r10728] Purpose:

Browse Source 
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:
This commit is contained in:
Pedro Vicente Nunes 2005-05-04 13:24:15 -05:00
parent 17b3d2b13e
commit a78417597b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/testpar/hyper.f90
View File

@ -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)
!//////////////////////////////////////////////////////////