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

psblas3

Browse Source 
prec/psb_c_prec_type.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_prec_type.f90
Made X vector in APPLY as INTENT(INOUT) to allow for preconditioners
that apply SPMM.
This commit is contained in:
Salvatore Filippone
2011-03-04 16:56:06 +00:00
parent 241f90a13c
commit 298b1adafc
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_prec_type.f90
+1 -1
View File
@@ -170,7 +170,7 @@ contains
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(in) :: x(:)
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)
integer, intent(out) :: info
character(len=1), optional :: trans
prec/psb_d_prec_type.f90
+5 -5
View File
@@ -200,9 +200,9 @@ contains
subroutine d_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(in) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)
integer, intent(out) :: info
character(len=1), optional :: trans
real(psb_dpk_),intent(inout), optional, target :: work(:)
@@ -269,8 +269,8 @@ contains
subroutine d_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
integer, intent(out) :: info
character(len=1), optional :: trans
prec/psb_s_prec_type.f90
+5 -5
View File
@@ -172,9 +172,9 @@ contains
subroutine s_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(in) :: x(:)
real(psb_spk_),intent(inout) :: y(:)
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)
integer, intent(out) :: info
character(len=1), optional :: trans
real(psb_spk_),intent(inout), optional, target :: work(:)
@@ -241,8 +241,8 @@ contains
subroutine s_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
integer, intent(out) :: info
character(len=1), optional :: trans
prec/psb_z_prec_type.f90
+1 -1
View File
@@ -170,7 +170,7 @@ contains
use psb_sparse_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(in) :: x(:)
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)
integer, intent(out) :: info
character(len=1), optional :: trans