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

Switch off some debug write

Browse Source
This commit is contained in:
sfilippone
2025-04-01 11:09:47 +02:00
parent 448312d27f
commit 110a66e7d0
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.F90
+2 -2
View File
@@ -2879,9 +2879,9 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
! Build phase. Must handle reallocations in a sensible way.
if (isza < (nza+nz)) then
write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
call a%reallocate(max(nza+nz,int(1.5*isza)))
write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
endif
isza = a%get_size()
if (isza < (nza+nz)) then
base/serial/impl/psb_d_coo_impl.F90
+2 -2
View File
@@ -2879,9 +2879,9 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
! Build phase. Must handle reallocations in a sensible way.
if (isza < (nza+nz)) then
write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
call a%reallocate(max(nza+nz,int(1.5*isza)))
write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
endif
isza = a%get_size()
if (isza < (nza+nz)) then
base/serial/impl/psb_s_coo_impl.F90
+2 -2
View File
@@ -2879,9 +2879,9 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
! Build phase. Must handle reallocations in a sensible way.
if (isza < (nza+nz)) then
write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
call a%reallocate(max(nza+nz,int(1.5*isza)))
write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
endif
isza = a%get_size()
if (isza < (nza+nz)) then
base/serial/impl/psb_z_coo_impl.F90
+2 -2
View File
@@ -2879,9 +2879,9 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
! Build phase. Must handle reallocations in a sensible way.
if (isza < (nza+nz)) then
write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
call a%reallocate(max(nza+nz,int(1.5*isza)))
write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
!write(0,*) ' after reallocate in csput ',psb_errstatus_fatal(),info
endif
isza = a%get_size()
if (isza < (nza+nz)) then