Take out spurious target attribute.

pull/6/head
Salvatore Filippone 7 years ago
parent baf1c740f9
commit 9ca93af839

@ -36,8 +36,8 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type),intent(inout) :: p
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold
class(psb_c_base_vect_type), intent(in), optional :: vmold

@ -36,8 +36,8 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type),intent(inout) :: p
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold
class(psb_d_base_vect_type), intent(in), optional :: vmold

@ -36,8 +36,8 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type),intent(inout) :: p
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold
class(psb_s_base_vect_type), intent(in), optional :: vmold

@ -36,8 +36,8 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type),intent(inout) :: p
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold
class(psb_z_base_vect_type), intent(in), optional :: vmold

@ -77,7 +77,7 @@ module psb_c_prec_type
implicit none
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
class(psb_cprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold
class(psb_c_base_vect_type), intent(in), optional :: vmold

@ -77,7 +77,7 @@ module psb_d_prec_type
implicit none
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
class(psb_dprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold
class(psb_d_base_vect_type), intent(in), optional :: vmold

@ -77,7 +77,7 @@ module psb_s_prec_type
implicit none
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
class(psb_sprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold
class(psb_s_base_vect_type), intent(in), optional :: vmold

@ -77,7 +77,7 @@ module psb_z_prec_type
implicit none
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
class(psb_zprec_type), intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold
class(psb_z_base_vect_type), intent(in), optional :: vmold

Loading…
Cancel
Save