|
|
|
@ -52,7 +52,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
|
|
|
|
|
use psb_serial_mod
|
|
|
|
|
Use psi_mod
|
|
|
|
|
use psb_realloc_mod
|
|
|
|
|
use psb_tools_mod, only : psb_descprt, psb_spfree
|
|
|
|
|
use psb_tools_mod, only : psb_cdprt, psb_spfree
|
|
|
|
|
use psb_error_mod
|
|
|
|
|
use psb_const_mod
|
|
|
|
|
Implicit None
|
|
|
|
@ -660,7 +660,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
if (.false.) then
|
|
|
|
|
call psb_descprt(70+myrow,desc_p,.false.)
|
|
|
|
|
call psb_cdprt(70+myrow,desc_p,.false.)
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
if (debug) write(0,*) myrow,'Done ConvertComm'
|
|
|
|
|