|
|
|
@ -422,7 +422,7 @@ contains
|
|
|
|
use psi_serial_mod
|
|
|
|
use psi_serial_mod
|
|
|
|
use psb_realloc_mod
|
|
|
|
use psb_realloc_mod
|
|
|
|
implicit none
|
|
|
|
implicit none
|
|
|
|
class(psb_c_base_vect_type), intent(out) :: x
|
|
|
|
class(psb_c_base_vect_type), intent(inout) :: x
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
logical, intent(in), optional :: clear
|
|
|
|
logical, intent(in), optional :: clear
|
|
|
|
logical :: clear_
|
|
|
|
logical :: clear_
|
|
|
|
|