mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 04:42:08 +00:00
Take out spurious target attribute.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user