Reinstate target-

ILmat
Salvatore Filippone 8 years ago
parent cfc60d2419
commit 9e5b76331a

@ -75,8 +75,8 @@ module psb_c_prec_type
& psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type, &
& psb_cprec_type, psb_i_base_vect_type
implicit none
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold

@ -75,8 +75,8 @@ module psb_d_prec_type
& psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type, &
& psb_dprec_type, psb_i_base_vect_type
implicit none
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold

@ -75,8 +75,8 @@ module psb_s_prec_type
& psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type, &
& psb_sprec_type, psb_i_base_vect_type
implicit none
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold

@ -75,8 +75,8 @@ module psb_z_prec_type
& psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type, &
& psb_zprec_type, psb_i_base_vect_type
implicit none
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold

Loading…
Cancel
Save