mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 21:02:26 +00:00
psblas3:
base/modules/psb_c_linmap_mod.f90 base/modules/psb_s_linmap_mod.f90 base/modules/psb_z_linmap_mod.f90 prec/psb_cprecbld.f90 prec/psb_cprecinit.f90 prec/psb_dprecbld.f90 prec/psb_dprecinit.f90 prec/psb_sprecbld.f90 prec/psb_sprecinit.f90 prec/psb_zprecbld.f90 prec/psb_zprecinit.f90 test/kernel/Makefile test/kernel/pdgenspmv.f90 util/Makefile Fixed map_cscnv for S/C/Z. Mods for precbld/precinit USE statements for the benefit of the Cray compiler.
This commit is contained in:
@@ -32,7 +32,7 @@
|
||||
subroutine psb_cprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_cprecbld
|
||||
use psb_c_prec_type
|
||||
Implicit None
|
||||
|
||||
type(psb_cspmat_type), intent(in), target :: a
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_cprecinit(p,ptype,info)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_cprecinit
|
||||
use psb_c_prec_type
|
||||
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
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_dprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_dprecbld
|
||||
use psb_d_prec_type
|
||||
Implicit None
|
||||
|
||||
type(psb_dspmat_type), intent(in), target :: a
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_dprecinit(p,ptype,info)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_dprecinit
|
||||
use psb_d_prec_type
|
||||
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
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_sprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_sprecbld
|
||||
use psb_s_prec_type
|
||||
Implicit None
|
||||
|
||||
type(psb_sspmat_type), intent(in), target :: a
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_sprecinit(p,ptype,info)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_sprecinit
|
||||
use psb_s_prec_type
|
||||
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
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_zprecbld(a,desc_a,p,info,upd,amold,afmt,vmold)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_zprecbld
|
||||
use psb_z_prec_type
|
||||
Implicit None
|
||||
|
||||
type(psb_zspmat_type), intent(in), target :: a
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
subroutine psb_zprecinit(p,ptype,info)
|
||||
|
||||
use psb_base_mod
|
||||
use psb_prec_mod, psb_protect_name => psb_zprecinit
|
||||
use psb_z_prec_type
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user