|
|
@ -36,8 +36,8 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
|
|
|
|
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) :: 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
|
|
|
|