fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed spurious message from JAD.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-12-03 10:28:12 +00:00
parent e059235257
commit 915eb24a85
2 changed files with 0 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_dspgtdiag.f90
-2
View File
@@ -84,7 +84,6 @@ subroutine psb_dspgtdiag(a,d,info)
rng=min(a%m,a%k)
nrb=16
write(0,*)'in spgtdiag'
do i=1, rng, nrb
irb=min(i+nrb-1,rng)
call psb_sp_getblk(i,a,tmpa,info,lrw=irb)
@@ -103,7 +102,6 @@ subroutine psb_dspgtdiag(a,d,info)
enddo
end do
write(0,*)'leaving spgtdiag'
end if
base/serial/psb_zspgtdiag.f90
-2
View File
@@ -84,7 +84,6 @@ subroutine psb_zspgtdiag(a,d,info)
rng=min(a%m,a%k)
nrb=16
write(0,*)'in spgtdiag'
do i=1, rng, nrb
irb=min(i+nrb-1,rng)
call psb_sp_getblk(i,a,tmpa,info,lrw=irb)
@@ -103,7 +102,6 @@ subroutine psb_zspgtdiag(a,d,info)
enddo
end do
write(0,*)'leaving spgtdiag'
end if