fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
prec/psb_c_bjacprec.f90
 prec/psb_cprecinit.f90
 prec/psb_d_bjacprec.f90
 prec/psb_dprecinit.f90
 prec/psb_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_sprecinit.f90
 prec/psb_z_bjacprec.f90
 prec/psb_zprecinit.f90

Fixes from tests on vargas.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 997cef4a94
commit 1a47c6a675
9 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File

1
prec/psb_c_bjacprec.f90
Unescape Escape View File

@ -218,7 +218,6 @@ contains
subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_base_mod
use psb_prec_mod
Implicit None
type(psb_cspmat_type), intent(in), target :: a

6
prec/psb_cprecinit.f90
Unescape Escape View File

@ -33,9 +33,9 @@ subroutine psb_cprecinit(p,ptype,info)
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecinit
use psb_c_nullprec
use psb_c_diagprec
use psb_c_bjacprec
use psb_c_nullprec, only : psb_c_null_prec_type
use psb_c_diagprec, only : psb_c_diag_prec_type
use psb_c_bjacprec, only : psb_c_bjac_prec_type
implicit none
type(psb_cprec_type), intent(inout) :: p

1
prec/psb_d_bjacprec.f90
Unescape Escape View File

@ -213,7 +213,6 @@ contains
subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_base_mod
use psb_prec_mod
Implicit None
type(psb_dspmat_type), intent(in), target :: a

6
prec/psb_dprecinit.f90
Unescape Escape View File

@ -33,9 +33,9 @@ subroutine psb_dprecinit(p,ptype,info)
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_dprecinit
use psb_d_nullprec
use psb_d_diagprec
use psb_d_bjacprec
use psb_d_nullprec, only : psb_d_null_prec_type
use psb_d_diagprec, only : psb_d_diag_prec_type
use psb_d_bjacprec, only : psb_d_bjac_prec_type
implicit none
type(psb_dprec_type), intent(inout) :: p
character(len=*), intent(in) :: ptype

8
prec/psb_prec_mod.f90
Unescape Escape View File

@ -106,16 +106,16 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_dprecinit
subroutine psb_cprecinit(prec,ptype,info)
use psb_base_mod
use psb_prec_type
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_
use psb_prec_type, only : psb_cprec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer, intent(out) :: info
end subroutine psb_cprecinit
subroutine psb_zprecinit(prec,ptype,info)
use psb_base_mod
use psb_prec_type
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_
use psb_prec_type, only : psb_zprec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype

1
prec/psb_s_bjacprec.f90
Unescape Escape View File

@ -212,7 +212,6 @@ contains
subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_base_mod
use psb_prec_mod
Implicit None
type(psb_sspmat_type), intent(in), target :: a

6
prec/psb_sprecinit.f90
Unescape Escape View File

@ -33,9 +33,9 @@ subroutine psb_sprecinit(p,ptype,info)
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_sprecinit
use psb_s_nullprec
use psb_s_diagprec
use psb_s_bjacprec
use psb_s_nullprec, only : psb_s_null_prec_type
use psb_s_diagprec, only : psb_s_diag_prec_type
use psb_s_bjacprec, only : psb_s_bjac_prec_type
implicit none
type(psb_sprec_type), intent(inout) :: p
character(len=*), intent(in) :: ptype

1
prec/psb_z_bjacprec.f90
Unescape Escape View File

@ -218,7 +218,6 @@ contains
subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_base_mod
use psb_prec_mod
Implicit None
type(psb_zspmat_type), intent(in), target :: a

6
prec/psb_zprecinit.f90
Unescape Escape View File

@ -33,9 +33,9 @@ subroutine psb_zprecinit(p,ptype,info)
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_zprecinit
use psb_z_nullprec
use psb_z_diagprec
use psb_z_bjacprec
use psb_z_nullprec, only : psb_z_null_prec_type
use psb_z_diagprec, only : psb_z_diag_prec_type
use psb_z_bjacprec, only : psb_z_bjac_prec_type
implicit none
type(psb_zprec_type), intent(inout) :: p

Write Preview
Loading…
Cancel
Save