|
|
@ -35,10 +35,10 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
|
|
|
|
use psb_c_prec_type, psb_protect_name => psb_cprecbld
|
|
|
|
use psb_c_prec_type, psb_protect_name => psb_cprecbld
|
|
|
|
Implicit None
|
|
|
|
Implicit None
|
|
|
|
|
|
|
|
|
|
|
|
type(psb_cspmat_type), intent(in), target :: a
|
|
|
|
type(psb_cspmat_type), intent(in), target :: a
|
|
|
|
type(psb_desc_type), intent(inout), target :: desc_a
|
|
|
|
type(psb_desc_type), intent(inout), target :: desc_a
|
|
|
|
class(psb_cprec_type),intent(inout) :: p
|
|
|
|
class(psb_cprec_type),intent(inout), target :: p
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
class(psb_c_base_sparse_mat), intent(in), optional :: amold
|
|
|
|
class(psb_c_base_sparse_mat), intent(in), optional :: amold
|
|
|
|
class(psb_c_base_vect_type), intent(in), optional :: vmold
|
|
|
|
class(psb_c_base_vect_type), intent(in), optional :: vmold
|
|
|
|
class(psb_i_base_vect_type), intent(in), optional :: imold
|
|
|
|
class(psb_i_base_vect_type), intent(in), optional :: imold
|
|
|
|