fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
util/psb_c_mmio_impl.f90
 util/psb_d_mmio_impl.f90
 util/psb_s_mmio_impl.f90
 util/psb_z_mmio_impl.f90

Use i0 while generating a format string for array_write.
psblas-3.2.0
Salvatore Filippone 11 years ago
parent 30346971b0
commit 1e878989c6
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
util/psb_c_mmio_impl.f90
Unescape Escape View File

@ -217,7 +217,7 @@ subroutine mm_cvet2_write(b, header, info, iunit, filename)
ncol = size(b,2) ncol = size(b,2)
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i5.5,a)') '(',2*ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',2*ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i,1:ncol) write(outfile,frmtv) b(i,1:ncol)
@ -273,7 +273,7 @@ subroutine mm_cvet1_write(b, header, info, iunit, filename)
ncol = 1 ncol = 1
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i5.5,a)') '(',2*ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',2*ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i) write(outfile,frmtv) b(i)

4
util/psb_d_mmio_impl.f90
Unescape Escape View File

@ -210,7 +210,7 @@ subroutine mm_dvet2_write(b, header, info, iunit, filename)
ncol = size(b,2) ncol = size(b,2)
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i3.3,a)') '(',ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i,1:ncol) write(outfile,frmtv) b(i,1:ncol)
@ -266,7 +266,7 @@ subroutine mm_dvet1_write(b, header, info, iunit, filename)
ncol = 1 ncol = 1
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i3.3,a)') '(',ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i) write(outfile,frmtv) b(i)

4
util/psb_s_mmio_impl.f90
Unescape Escape View File

@ -212,7 +212,7 @@ subroutine mm_svet2_write(b, header, info, iunit, filename)
ncol = size(b,2) ncol = size(b,2)
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i3.3,a)') '(',ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i,1:ncol) write(outfile,frmtv) b(i,1:ncol)
@ -268,7 +268,7 @@ subroutine mm_svet1_write(b, header, info, iunit, filename)
ncol = 1 ncol = 1
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i3.3,a)') '(',ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i) write(outfile,frmtv) b(i)

4
util/psb_z_mmio_impl.f90
Unescape Escape View File

@ -217,7 +217,7 @@ subroutine mm_zvet2_write(b, header, info, iunit, filename)
ncol = size(b,2) ncol = size(b,2)
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i5.5,a)') '(',2*ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',2*ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i,1:ncol) write(outfile,frmtv) b(i,1:ncol)
@ -273,7 +273,7 @@ subroutine mm_zvet1_write(b, header, info, iunit, filename)
ncol = 1 ncol = 1
write(outfile,*) nrow,ncol write(outfile,*) nrow,ncol
write(frmtv,'(a,i5.5,a)') '(',2*ncol,'(es26.18,1x))' write(frmtv,'(a,i0,a)') '(',2*ncol,'(es26.18,1x))'
do i=1,size(b,1) do i=1,size(b,1)
write(outfile,frmtv) b(i) write(outfile,frmtv) b(i)

Write Preview
Loading…
Cancel
Save