diff --git a/cbind/base/psb_d_serial_cbind_impl.F90 b/cbind/base/psb_d_serial_cbind_impl.F90
index 72323d3a..beed5956 100644
--- 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