recover seriall_cbind_impl

2 weeks ago · 9b95e14b2c
parent 263621b524
commit 9b95e14b2c
1 changed files with 0 additions and 1 deletions
--- a/cbind/base/psb_d_serial_cbind_impl.F90
+++ b/cbind/base/psb_d_serial_cbind_impl.F90
@ -162,7 +162,6 @@ contains
      return
    end if

-    write(0,*) 'C_set_scal ',val,size(xp%v%v)
    call xp%set(val)

    info = 0