diff --git a/src/tools/psb_zspasb.f90 b/src/tools/psb_zspasb.f90 index 684d3e52..d50d8670 100644 --- a/src/tools/psb_zspasb.f90 +++ b/src/tools/psb_zspasb.f90 @@ -162,7 +162,6 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl) ! Do the real conversion into the requested storage format ! result is put in A - write(0,*) 'Calling csdp from SPASB' call psb_csdp(atemp,a,info,ifc=2,upd=upd_,dupl=dupl_) IF (debug) WRITE (*, *) myrow,' ASB: From DCSDP',info,' ',A%FIDA