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

Clean debug message from remote_vect

Browse Source
This commit is contained in:
Salvatore Filippone
2022-04-03 13:18:07 +02:00
parent fafe128516
commit fc345e13b6
4 changed files with 0 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_c_remote_mat.F90
-2
View File
@@ -324,8 +324,6 @@ subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': Start'
write(0,*) me, 'X_remote_vect implementation to be completed '
Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
& bsdindx(np+1), stat=info)
base/tools/psb_d_remote_mat.F90
-2
View File
@@ -324,8 +324,6 @@ subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': Start'
write(0,*) me, 'X_remote_vect implementation to be completed '
Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
& bsdindx(np+1), stat=info)
base/tools/psb_s_remote_mat.F90
-2
View File
@@ -324,8 +324,6 @@ subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': Start'
write(0,*) me, 'X_remote_vect implementation to be completed '
Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
& bsdindx(np+1), stat=info)
base/tools/psb_z_remote_mat.F90
-2
View File
@@ -324,8 +324,6 @@ subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': Start'
write(0,*) me, 'X_remote_vect implementation to be completed '
Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
& bsdindx(np+1), stat=info)