Clean debug message from remote_vect

base/tools/psb_c_remote_mat.F90

@@ -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

@@ -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

@@ -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

@@ -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)