Fixed spurious message from JAD.

17 years ago · 915eb24a85
parent e059235257
commit 915eb24a85
2 changed files with 0 additions and 4 deletions
--- a/base/serial/psb_dspgtdiag.f90
+++ b/base/serial/psb_dspgtdiag.f90
@ -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

--- a/base/serial/psb_zspgtdiag.f90
+++ b/base/serial/psb_zspgtdiag.f90
@ -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