fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2015-08-27 10:56:00 +00:00
parent 9db22eb26f
commit 61daa33425
36 changed files with 44 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_c_bjacprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_c_diagprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_c_nullprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_c_prec_type_impl.f90
+2 -2
View File
@@ -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
prec/impl/psb_d_bjacprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_d_diagprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_d_nullprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_d_prec_type_impl.f90
+2 -2
View File
@@ -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
prec/impl/psb_s_bjacprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_s_diagprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_s_nullprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_s_prec_type_impl.f90
+2 -2
View File
@@ -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
prec/impl/psb_z_bjacprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_z_diagprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_z_nullprec_impl.f90
+1 -1
View File
@@ -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(:)
prec/impl/psb_z_prec_type_impl.f90
+2 -2
View File
@@ -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
prec/psb_c_base_prec_mod.f90
+1 -1
View File
@@ -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(:)
prec/psb_c_bjacprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_c_diagprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_c_nullprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_c_prec_type.f90
+2 -2
View File
@@ -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
prec/psb_d_base_prec_mod.f90
+1 -1
View File
@@ -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(:)
prec/psb_d_bjacprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_d_diagprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_d_nullprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_d_prec_type.f90
+2 -2
View File
@@ -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
prec/psb_s_base_prec_mod.f90
+1 -1
View File
@@ -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(:)
prec/psb_s_bjacprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_s_diagprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_s_nullprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_s_prec_type.f90
+2 -2
View File
@@ -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
prec/psb_z_base_prec_mod.f90
+1 -1
View File
@@ -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(:)
prec/psb_z_bjacprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_z_diagprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_z_nullprec.f90
+1 -1
View File
@@ -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(:)
prec/psb_z_prec_type.f90
+2 -2
View File
@@ -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