prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_diagprec_impl.f90
 prec/impl/psb_c_nullprec_impl.f90
 prec/impl/psb_c_prec_type_impl.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_diagprec_impl.f90
 prec/impl/psb_d_nullprec_impl.f90
 prec/impl/psb_d_prec_type_impl.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_diagprec_impl.f90
 prec/impl/psb_s_nullprec_impl.f90
 prec/impl/psb_s_prec_type_impl.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_diagprec_impl.f90
 prec/impl/psb_z_nullprec_impl.f90
 prec/impl/psb_z_prec_type_impl.f90
 prec/psb_c_base_prec_mod.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_base_prec_mod.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90

Fix INTENT of PREC in application of preconditioner.
psblas-3.4-maint
Salvatore Filippone 9 years ago
parent 9db22eb26f
commit 61daa33425

@ -228,7 +228,7 @@ subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_c_bjacprec, psb_protect_name => psb_c_bjac_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_bjac_prec_type), intent(in) :: prec
class(psb_c_bjac_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(in) :: alpha,beta
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)

@ -135,7 +135,7 @@ subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_diag_prec_type), intent(in) :: prec
class(psb_c_diag_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(in) :: alpha, beta
complex(psb_spk_),intent(inout) :: y(:)

@ -84,7 +84,7 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_c_nullprec, psb_protect_name => psb_c_null_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_null_prec_type), intent(in) :: prec
class(psb_c_null_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(in) :: alpha, beta
complex(psb_spk_),intent(inout) :: y(:)

@ -209,7 +209,7 @@ subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_c_prec_type, psb_protect_name => psb_c_apply2v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
class(psb_cprec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -276,7 +276,7 @@ subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
use psb_c_prec_type, psb_protect_name => psb_c_apply1v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
class(psb_cprec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -228,7 +228,7 @@ subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_d_bjacprec, psb_protect_name => psb_d_bjac_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_bjac_prec_type), intent(in) :: prec
class(psb_d_bjac_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(in) :: alpha,beta
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)

@ -135,7 +135,7 @@ subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_diag_prec_type), intent(in) :: prec
class(psb_d_diag_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(in) :: alpha, beta
real(psb_dpk_),intent(inout) :: y(:)

@ -84,7 +84,7 @@ subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_d_nullprec, psb_protect_name => psb_d_null_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_null_prec_type), intent(in) :: prec
class(psb_d_null_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(in) :: alpha, beta
real(psb_dpk_),intent(inout) :: y(:)

@ -209,7 +209,7 @@ subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_d_prec_type, psb_protect_name => psb_d_apply2v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
class(psb_dprec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -276,7 +276,7 @@ subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
use psb_d_prec_type, psb_protect_name => psb_d_apply1v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
class(psb_dprec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -228,7 +228,7 @@ subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_s_bjacprec, psb_protect_name => psb_s_bjac_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_bjac_prec_type), intent(in) :: prec
class(psb_s_bjac_prec_type), intent(inout) :: prec
real(psb_spk_),intent(in) :: alpha,beta
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)

@ -135,7 +135,7 @@ subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_diag_prec_type), intent(in) :: prec
class(psb_s_diag_prec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(in) :: alpha, beta
real(psb_spk_),intent(inout) :: y(:)

@ -84,7 +84,7 @@ subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_s_nullprec, psb_protect_name => psb_s_null_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_null_prec_type), intent(in) :: prec
class(psb_s_null_prec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(in) :: alpha, beta
real(psb_spk_),intent(inout) :: y(:)

@ -209,7 +209,7 @@ subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_s_prec_type, psb_protect_name => psb_s_apply2v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
class(psb_sprec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -276,7 +276,7 @@ subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
use psb_s_prec_type, psb_protect_name => psb_s_apply1v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
class(psb_sprec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -228,7 +228,7 @@ subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_z_bjacprec, psb_protect_name => psb_z_bjac_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_bjac_prec_type), intent(in) :: prec
class(psb_z_bjac_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(in) :: alpha,beta
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)

@ -135,7 +135,7 @@ subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_diag_prec_type), intent(in) :: prec
class(psb_z_diag_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(in) :: alpha, beta
complex(psb_dpk_),intent(inout) :: y(:)

@ -84,7 +84,7 @@ subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_z_nullprec, psb_protect_name => psb_z_null_apply
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_null_prec_type), intent(in) :: prec
class(psb_z_null_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(in) :: alpha, beta
complex(psb_dpk_),intent(inout) :: y(:)

@ -209,7 +209,7 @@ subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_z_prec_type, psb_protect_name => psb_z_apply2v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
class(psb_zprec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -276,7 +276,7 @@ subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
use psb_z_prec_type, psb_protect_name => psb_z_apply1v
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
class(psb_zprec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -95,7 +95,7 @@ module psb_c_base_prec_mod
& psb_c_base_sparse_mat
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_base_prec_type), intent(in) :: prec
class(psb_c_base_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(in) :: alpha, beta
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)

@ -87,7 +87,7 @@ module psb_c_bjacprec
import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_bjac_prec_type), intent(in) :: prec
class(psb_c_bjac_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(in) :: alpha,beta
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)

@ -73,7 +73,7 @@ module psb_c_diagprec
subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_diag_prec_type), intent(in) :: prec
class(psb_c_diag_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(in) :: alpha, beta
complex(psb_spk_),intent(inout) :: y(:)

@ -68,7 +68,7 @@ module psb_c_nullprec
subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_c_null_prec_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_null_prec_type), intent(in) :: prec
class(psb_c_null_prec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(in) :: alpha, beta
complex(psb_spk_),intent(inout) :: y(:)

@ -98,7 +98,7 @@ module psb_c_prec_type
subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
class(psb_cprec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -111,7 +111,7 @@ module psb_c_prec_type
subroutine psb_c_apply1v(prec,x,desc_data,info,trans)
import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
class(psb_cprec_type), intent(inout) :: prec
complex(psb_spk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -95,7 +95,7 @@ module psb_d_base_prec_mod
& psb_d_base_sparse_mat
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_base_prec_type), intent(in) :: prec
class(psb_d_base_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(in) :: alpha, beta
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)

@ -87,7 +87,7 @@ module psb_d_bjacprec
import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_bjac_prec_type), intent(in) :: prec
class(psb_d_bjac_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(in) :: alpha,beta
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)

@ -73,7 +73,7 @@ module psb_d_diagprec
subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_diag_prec_type), intent(in) :: prec
class(psb_d_diag_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(in) :: alpha, beta
real(psb_dpk_),intent(inout) :: y(:)

@ -68,7 +68,7 @@ module psb_d_nullprec
subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_d_null_prec_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_null_prec_type), intent(in) :: prec
class(psb_d_null_prec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(in) :: alpha, beta
real(psb_dpk_),intent(inout) :: y(:)

@ -98,7 +98,7 @@ module psb_d_prec_type
subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
class(psb_dprec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -111,7 +111,7 @@ module psb_d_prec_type
subroutine psb_d_apply1v(prec,x,desc_data,info,trans)
import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
class(psb_dprec_type), intent(inout) :: prec
real(psb_dpk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -95,7 +95,7 @@ module psb_s_base_prec_mod
& psb_s_base_sparse_mat
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_base_prec_type), intent(in) :: prec
class(psb_s_base_prec_type), intent(inout) :: prec
real(psb_spk_),intent(in) :: alpha, beta
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)

@ -87,7 +87,7 @@ module psb_s_bjacprec
import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_bjac_prec_type), intent(in) :: prec
class(psb_s_bjac_prec_type), intent(inout) :: prec
real(psb_spk_),intent(in) :: alpha,beta
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)

@ -73,7 +73,7 @@ module psb_s_diagprec
subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_diag_prec_type), intent(in) :: prec
class(psb_s_diag_prec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(in) :: alpha, beta
real(psb_spk_),intent(inout) :: y(:)

@ -68,7 +68,7 @@ module psb_s_nullprec
subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_s_null_prec_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_null_prec_type), intent(in) :: prec
class(psb_s_null_prec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(in) :: alpha, beta
real(psb_spk_),intent(inout) :: y(:)

@ -98,7 +98,7 @@ module psb_s_prec_type
subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
class(psb_sprec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -111,7 +111,7 @@ module psb_s_prec_type
subroutine psb_s_apply1v(prec,x,desc_data,info,trans)
import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
class(psb_sprec_type), intent(inout) :: prec
real(psb_spk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

@ -95,7 +95,7 @@ module psb_z_base_prec_mod
& psb_z_base_sparse_mat
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_base_prec_type), intent(in) :: prec
class(psb_z_base_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(in) :: alpha, beta
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)

@ -87,7 +87,7 @@ module psb_z_bjacprec
import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_bjac_prec_type), intent(in) :: prec
class(psb_z_bjac_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(in) :: alpha,beta
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)

@ -73,7 +73,7 @@ module psb_z_diagprec
subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_diag_prec_type), intent(in) :: prec
class(psb_z_diag_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(in) :: alpha, beta
complex(psb_dpk_),intent(inout) :: y(:)

@ -68,7 +68,7 @@ module psb_z_nullprec
subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_z_null_prec_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_null_prec_type), intent(in) :: prec
class(psb_z_null_prec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(in) :: alpha, beta
complex(psb_dpk_),intent(inout) :: y(:)

@ -98,7 +98,7 @@ module psb_z_prec_type
subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work)
import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
class(psb_zprec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)
integer(psb_ipk_), intent(out) :: info
@ -111,7 +111,7 @@ module psb_z_prec_type
subroutine psb_z_apply1v(prec,x,desc_data,info,trans)
import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
class(psb_zprec_type), intent(inout) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans

Loading…
Cancel
Save