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.f03
 prec/psb_c_diagprec.f03
 prec/psb_c_nullprec.f03
 prec/psb_d_bjacprec.f03
 prec/psb_d_diagprec.f03
 prec/psb_d_nullprec.f03
 prec/psb_prec_type.f03
 prec/psb_s_bjacprec.f03
 prec/psb_s_diagprec.f03
 prec/psb_s_nullprec.f03
 prec/psb_z_bjacprec.f03
 prec/psb_z_diagprec.f03
 prec/psb_z_nullprec.f03
 util/psb_hbio_mod.f90

Fixes for HBIO.
Name of methods in base preconditioners.
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent f13a6775dc
commit 76b1d9cdf9
14 changed files with 97 additions and 97 deletions
Show Stats Download Patch File Download Diff File

12
prec/psb_c_bjacprec.f03
Unescape Escape View File

@ -10,12 +10,12 @@ module psb_c_bjacprec
procedure, pass(prec) :: apply => c_bjac_apply procedure, pass(prec) :: apply => c_bjac_apply
procedure, pass(prec) :: precbld => c_bjac_precbld procedure, pass(prec) :: precbld => c_bjac_precbld
procedure, pass(prec) :: precinit => c_bjac_precinit procedure, pass(prec) :: precinit => c_bjac_precinit
procedure, pass(prec) :: c_base_precseti => c_bjac_precseti procedure, pass(prec) :: precseti => c_bjac_precseti
procedure, pass(prec) :: c_base_precsetr => c_bjac_precsetr procedure, pass(prec) :: precsetr => c_bjac_precsetr
procedure, pass(prec) :: c_base_precsetc => c_bjac_precsetc procedure, pass(prec) :: precsetc => c_bjac_precsetc
procedure, pass(prec) :: precfree => c_bjac_precfree procedure, pass(prec) :: precfree => c_bjac_precfree
procedure, pass(prec) :: precdescr => c_bjac_precdescr procedure, pass(prec) :: precdescr => c_bjac_precdescr
procedure, pass(prec) :: sizeof => c_bjac_sizeof procedure, pass(prec) :: sizeof => c_bjac_sizeof
end type psb_c_bjac_prec_type end type psb_c_bjac_prec_type

12
prec/psb_c_diagprec.f03
Unescape Escape View File

@ -8,12 +8,12 @@ module psb_c_diagprec
procedure, pass(prec) :: apply => c_diag_apply procedure, pass(prec) :: apply => c_diag_apply
procedure, pass(prec) :: precbld => c_diag_precbld procedure, pass(prec) :: precbld => c_diag_precbld
procedure, pass(prec) :: precinit => c_diag_precinit procedure, pass(prec) :: precinit => c_diag_precinit
procedure, pass(prec) :: c_base_precseti => c_diag_precseti procedure, pass(prec) :: precseti => c_diag_precseti
procedure, pass(prec) :: c_base_precsetr => c_diag_precsetr procedure, pass(prec) :: precsetr => c_diag_precsetr
procedure, pass(prec) :: c_base_precsetc => c_diag_precsetc procedure, pass(prec) :: precsetc => c_diag_precsetc
procedure, pass(prec) :: precfree => c_diag_precfree procedure, pass(prec) :: precfree => c_diag_precfree
procedure, pass(prec) :: precdescr => c_diag_precdescr procedure, pass(prec) :: precdescr => c_diag_precdescr
procedure, pass(prec) :: sizeof => c_diag_sizeof procedure, pass(prec) :: sizeof => c_diag_sizeof
end type psb_c_diag_prec_type end type psb_c_diag_prec_type

12
prec/psb_c_nullprec.f03
Unescape Escape View File

@ -7,12 +7,12 @@ module psb_c_nullprec
procedure, pass(prec) :: apply => c_null_apply procedure, pass(prec) :: apply => c_null_apply
procedure, pass(prec) :: precbld => c_null_precbld procedure, pass(prec) :: precbld => c_null_precbld
procedure, pass(prec) :: precinit => c_null_precinit procedure, pass(prec) :: precinit => c_null_precinit
procedure, pass(prec) :: c_base_precseti => c_null_precseti procedure, pass(prec) :: precseti => c_null_precseti
procedure, pass(prec) :: c_base_precsetr => c_null_precsetr procedure, pass(prec) :: precsetr => c_null_precsetr
procedure, pass(prec) :: c_base_precsetc => c_null_precsetc procedure, pass(prec) :: precsetc => c_null_precsetc
procedure, pass(prec) :: precfree => c_null_precfree procedure, pass(prec) :: precfree => c_null_precfree
procedure, pass(prec) :: precdescr => c_null_precdescr procedure, pass(prec) :: precdescr => c_null_precdescr
procedure, pass(prec) :: sizeof => c_null_sizeof procedure, pass(prec) :: sizeof => c_null_sizeof
end type psb_c_null_prec_type end type psb_c_null_prec_type

12
prec/psb_d_bjacprec.f03
Unescape Escape View File

@ -10,12 +10,12 @@ module psb_d_bjacprec
procedure, pass(prec) :: apply => d_bjac_apply procedure, pass(prec) :: apply => d_bjac_apply
procedure, pass(prec) :: precbld => d_bjac_precbld procedure, pass(prec) :: precbld => d_bjac_precbld
procedure, pass(prec) :: precinit => d_bjac_precinit procedure, pass(prec) :: precinit => d_bjac_precinit
procedure, pass(prec) :: d_base_precseti => d_bjac_precseti procedure, pass(prec) :: precseti => d_bjac_precseti
procedure, pass(prec) :: d_base_precsetr => d_bjac_precsetr procedure, pass(prec) :: precsetr => d_bjac_precsetr
procedure, pass(prec) :: d_base_precsetc => d_bjac_precsetc procedure, pass(prec) :: precsetc => d_bjac_precsetc
procedure, pass(prec) :: precfree => d_bjac_precfree procedure, pass(prec) :: precfree => d_bjac_precfree
procedure, pass(prec) :: precdescr => d_bjac_precdescr procedure, pass(prec) :: precdescr => d_bjac_precdescr
procedure, pass(prec) :: sizeof => d_bjac_sizeof procedure, pass(prec) :: sizeof => d_bjac_sizeof
end type psb_d_bjac_prec_type end type psb_d_bjac_prec_type

12
prec/psb_d_diagprec.f03
Unescape Escape View File

@ -8,12 +8,12 @@ module psb_d_diagprec
procedure, pass(prec) :: apply => d_diag_apply procedure, pass(prec) :: apply => d_diag_apply
procedure, pass(prec) :: precbld => d_diag_precbld procedure, pass(prec) :: precbld => d_diag_precbld
procedure, pass(prec) :: precinit => d_diag_precinit procedure, pass(prec) :: precinit => d_diag_precinit
procedure, pass(prec) :: d_base_precseti => d_diag_precseti procedure, pass(prec) :: precseti => d_diag_precseti
procedure, pass(prec) :: d_base_precsetr => d_diag_precsetr procedure, pass(prec) :: precsetr => d_diag_precsetr
procedure, pass(prec) :: d_base_precsetc => d_diag_precsetc procedure, pass(prec) :: precsetc => d_diag_precsetc
procedure, pass(prec) :: precfree => d_diag_precfree procedure, pass(prec) :: precfree => d_diag_precfree
procedure, pass(prec) :: precdescr => d_diag_precdescr procedure, pass(prec) :: precdescr => d_diag_precdescr
procedure, pass(prec) :: sizeof => d_diag_sizeof procedure, pass(prec) :: sizeof => d_diag_sizeof
end type psb_d_diag_prec_type end type psb_d_diag_prec_type

12
prec/psb_d_nullprec.f03
Unescape Escape View File

@ -7,12 +7,12 @@ module psb_d_nullprec
procedure, pass(prec) :: apply => d_null_apply procedure, pass(prec) :: apply => d_null_apply
procedure, pass(prec) :: precbld => d_null_precbld procedure, pass(prec) :: precbld => d_null_precbld
procedure, pass(prec) :: precinit => d_null_precinit procedure, pass(prec) :: precinit => d_null_precinit
procedure, pass(prec) :: d_base_precseti => d_null_precseti procedure, pass(prec) :: precseti => d_null_precseti
procedure, pass(prec) :: d_base_precsetr => d_null_precsetr procedure, pass(prec) :: precsetr => d_null_precsetr
procedure, pass(prec) :: d_base_precsetc => d_null_precsetc procedure, pass(prec) :: precsetc => d_null_precsetc
procedure, pass(prec) :: precfree => d_null_precfree procedure, pass(prec) :: precfree => d_null_precfree
procedure, pass(prec) :: precdescr => d_null_precdescr procedure, pass(prec) :: precdescr => d_null_precdescr
procedure, pass(prec) :: sizeof => d_null_sizeof procedure, pass(prec) :: sizeof => d_null_sizeof
end type psb_d_null_prec_type end type psb_d_null_prec_type

44
prec/psb_prec_type.f03
Unescape Escape View File

@ -68,11 +68,11 @@ module psb_prec_type
contains contains
procedure, pass(prec) :: apply => s_base_apply procedure, pass(prec) :: apply => s_base_apply
procedure, pass(prec) :: precbld => s_base_precbld procedure, pass(prec) :: precbld => s_base_precbld
procedure, pass(prec) :: s_base_precseti procedure, pass(prec) :: precseti => s_base_precseti
procedure, pass(prec) :: s_base_precsetr procedure, pass(prec) :: precsetr => s_base_precsetr
procedure, pass(prec) :: s_base_precsetc procedure, pass(prec) :: precsetc => s_base_precsetc
procedure, pass(prec) :: sizeof => s_base_sizeof procedure, pass(prec) :: sizeof => s_base_sizeof
generic, public :: precset => s_base_precseti, s_base_precsetr, s_base_precsetc generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => s_base_precinit procedure, pass(prec) :: precinit => s_base_precinit
procedure, pass(prec) :: precfree => s_base_precfree procedure, pass(prec) :: precfree => s_base_precfree
procedure, pass(prec) :: precdescr => s_base_precdescr procedure, pass(prec) :: precdescr => s_base_precdescr
@ -88,13 +88,13 @@ module psb_prec_type
type psb_d_base_prec_type type psb_d_base_prec_type
contains contains
procedure, pass(prec) :: apply => d_base_apply procedure, pass(prec) :: apply => d_base_apply
procedure, pass(prec) :: precbld => d_base_precbld procedure, pass(prec) :: precbld => d_base_precbld
procedure, pass(prec) :: d_base_precseti procedure, pass(prec) :: precseti => d_base_precseti
procedure, pass(prec) :: d_base_precsetr procedure, pass(prec) :: precsetr => d_base_precsetr
procedure, pass(prec) :: d_base_precsetc procedure, pass(prec) :: precsetc => d_base_precsetc
procedure, pass(prec) :: sizeof => d_base_sizeof procedure, pass(prec) :: sizeof => d_base_sizeof
generic, public :: precset => d_base_precseti, d_base_precsetr, d_base_precsetc generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => d_base_precinit procedure, pass(prec) :: precinit => d_base_precinit
procedure, pass(prec) :: precfree => d_base_precfree procedure, pass(prec) :: precfree => d_base_precfree
procedure, pass(prec) :: precdescr => d_base_precdescr procedure, pass(prec) :: precdescr => d_base_precdescr
@ -113,11 +113,11 @@ module psb_prec_type
contains contains
procedure, pass(prec) :: apply => c_base_apply procedure, pass(prec) :: apply => c_base_apply
procedure, pass(prec) :: precbld => c_base_precbld procedure, pass(prec) :: precbld => c_base_precbld
procedure, pass(prec) :: c_base_precseti procedure, pass(prec) :: precseti => c_base_precseti
procedure, pass(prec) :: c_base_precsetr procedure, pass(prec) :: precsetr => c_base_precsetr
procedure, pass(prec) :: c_base_precsetc procedure, pass(prec) :: precsetc => c_base_precsetc
procedure, pass(prec) :: sizeof => c_base_sizeof procedure, pass(prec) :: sizeof => c_base_sizeof
generic, public :: precset => c_base_precseti, c_base_precsetr, c_base_precsetc generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => c_base_precinit procedure, pass(prec) :: precinit => c_base_precinit
procedure, pass(prec) :: precfree => c_base_precfree procedure, pass(prec) :: precfree => c_base_precfree
procedure, pass(prec) :: precdescr => c_base_precdescr procedure, pass(prec) :: precdescr => c_base_precdescr
@ -133,13 +133,13 @@ module psb_prec_type
type psb_z_base_prec_type type psb_z_base_prec_type
contains contains
procedure, pass(prec) :: apply => z_base_apply procedure, pass(prec) :: apply => z_base_apply
procedure, pass(prec) :: precbld => z_base_precbld procedure, pass(prec) :: precbld => z_base_precbld
procedure, pass(prec) :: z_base_precseti procedure, pass(prec) :: precseti => z_base_precseti
procedure, pass(prec) :: z_base_precsetr procedure, pass(prec) :: precsetr => z_base_precsetr
procedure, pass(prec) :: z_base_precsetc procedure, pass(prec) :: precsetc => z_base_precsetc
procedure, pass(prec) :: sizeof => z_base_sizeof procedure, pass(prec) :: sizeof => z_base_sizeof
generic, public :: precset => z_base_precseti, z_base_precsetr, z_base_precsetc generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => z_base_precinit procedure, pass(prec) :: precinit => z_base_precinit
procedure, pass(prec) :: precfree => z_base_precfree procedure, pass(prec) :: precfree => z_base_precfree
procedure, pass(prec) :: precdescr => z_base_precdescr procedure, pass(prec) :: precdescr => z_base_precdescr

12
prec/psb_s_bjacprec.f03
Unescape Escape View File

@ -10,12 +10,12 @@ module psb_s_bjacprec
procedure, pass(prec) :: apply => s_bjac_apply procedure, pass(prec) :: apply => s_bjac_apply
procedure, pass(prec) :: precbld => s_bjac_precbld procedure, pass(prec) :: precbld => s_bjac_precbld
procedure, pass(prec) :: precinit => s_bjac_precinit procedure, pass(prec) :: precinit => s_bjac_precinit
procedure, pass(prec) :: s_base_precseti => s_bjac_precseti procedure, pass(prec) :: precseti => s_bjac_precseti
procedure, pass(prec) :: s_base_precsetr => s_bjac_precsetr procedure, pass(prec) :: precsetr => s_bjac_precsetr
procedure, pass(prec) :: s_base_precsetc => s_bjac_precsetc procedure, pass(prec) :: precsetc => s_bjac_precsetc
procedure, pass(prec) :: precfree => s_bjac_precfree procedure, pass(prec) :: precfree => s_bjac_precfree
procedure, pass(prec) :: precdescr => s_bjac_precdescr procedure, pass(prec) :: precdescr => s_bjac_precdescr
procedure, pass(prec) :: sizeof => s_bjac_sizeof procedure, pass(prec) :: sizeof => s_bjac_sizeof
end type psb_s_bjac_prec_type end type psb_s_bjac_prec_type

12
prec/psb_s_diagprec.f03
Unescape Escape View File

@ -8,12 +8,12 @@ module psb_s_diagprec
procedure, pass(prec) :: apply => s_diag_apply procedure, pass(prec) :: apply => s_diag_apply
procedure, pass(prec) :: precbld => s_diag_precbld procedure, pass(prec) :: precbld => s_diag_precbld
procedure, pass(prec) :: precinit => s_diag_precinit procedure, pass(prec) :: precinit => s_diag_precinit
procedure, pass(prec) :: s_base_precseti => s_diag_precseti procedure, pass(prec) :: precseti => s_diag_precseti
procedure, pass(prec) :: s_base_precsetr => s_diag_precsetr procedure, pass(prec) :: precsetr => s_diag_precsetr
procedure, pass(prec) :: s_base_precsetc => s_diag_precsetc procedure, pass(prec) :: precsetc => s_diag_precsetc
procedure, pass(prec) :: precfree => s_diag_precfree procedure, pass(prec) :: precfree => s_diag_precfree
procedure, pass(prec) :: precdescr => s_diag_precdescr procedure, pass(prec) :: precdescr => s_diag_precdescr
procedure, pass(prec) :: sizeof => s_diag_sizeof procedure, pass(prec) :: sizeof => s_diag_sizeof
end type psb_s_diag_prec_type end type psb_s_diag_prec_type

12
prec/psb_s_nullprec.f03
Unescape Escape View File

@ -7,12 +7,12 @@ module psb_s_nullprec
procedure, pass(prec) :: apply => s_null_apply procedure, pass(prec) :: apply => s_null_apply
procedure, pass(prec) :: precbld => s_null_precbld procedure, pass(prec) :: precbld => s_null_precbld
procedure, pass(prec) :: precinit => s_null_precinit procedure, pass(prec) :: precinit => s_null_precinit
procedure, pass(prec) :: s_base_precseti => s_null_precseti procedure, pass(prec) :: precseti => s_null_precseti
procedure, pass(prec) :: s_base_precsetr => s_null_precsetr procedure, pass(prec) :: precsetr => s_null_precsetr
procedure, pass(prec) :: s_base_precsetc => s_null_precsetc procedure, pass(prec) :: precsetc => s_null_precsetc
procedure, pass(prec) :: precfree => s_null_precfree procedure, pass(prec) :: precfree => s_null_precfree
procedure, pass(prec) :: precdescr => s_null_precdescr procedure, pass(prec) :: precdescr => s_null_precdescr
procedure, pass(prec) :: sizeof => s_null_sizeof procedure, pass(prec) :: sizeof => s_null_sizeof
end type psb_s_null_prec_type end type psb_s_null_prec_type

12
prec/psb_z_bjacprec.f03
Unescape Escape View File

@ -10,12 +10,12 @@ module psb_z_bjacprec
procedure, pass(prec) :: apply => z_bjac_apply procedure, pass(prec) :: apply => z_bjac_apply
procedure, pass(prec) :: precbld => z_bjac_precbld procedure, pass(prec) :: precbld => z_bjac_precbld
procedure, pass(prec) :: precinit => z_bjac_precinit procedure, pass(prec) :: precinit => z_bjac_precinit
procedure, pass(prec) :: z_base_precseti => z_bjac_precseti procedure, pass(prec) :: precseti => z_bjac_precseti
procedure, pass(prec) :: z_base_precsetr => z_bjac_precsetr procedure, pass(prec) :: precsetr => z_bjac_precsetr
procedure, pass(prec) :: z_base_precsetc => z_bjac_precsetc procedure, pass(prec) :: precsetc => z_bjac_precsetc
procedure, pass(prec) :: precfree => z_bjac_precfree procedure, pass(prec) :: precfree => z_bjac_precfree
procedure, pass(prec) :: precdescr => z_bjac_precdescr procedure, pass(prec) :: precdescr => z_bjac_precdescr
procedure, pass(prec) :: sizeof => z_bjac_sizeof procedure, pass(prec) :: sizeof => z_bjac_sizeof
end type psb_z_bjac_prec_type end type psb_z_bjac_prec_type

12
prec/psb_z_diagprec.f03
Unescape Escape View File

@ -8,12 +8,12 @@ module psb_z_diagprec
procedure, pass(prec) :: apply => z_diag_apply procedure, pass(prec) :: apply => z_diag_apply
procedure, pass(prec) :: precbld => z_diag_precbld procedure, pass(prec) :: precbld => z_diag_precbld
procedure, pass(prec) :: precinit => z_diag_precinit procedure, pass(prec) :: precinit => z_diag_precinit
procedure, pass(prec) :: z_base_precseti => z_diag_precseti procedure, pass(prec) :: precseti => z_diag_precseti
procedure, pass(prec) :: z_base_precsetr => z_diag_precsetr procedure, pass(prec) :: precsetr => z_diag_precsetr
procedure, pass(prec) :: z_base_precsetc => z_diag_precsetc procedure, pass(prec) :: precsetc => z_diag_precsetc
procedure, pass(prec) :: precfree => z_diag_precfree procedure, pass(prec) :: precfree => z_diag_precfree
procedure, pass(prec) :: precdescr => z_diag_precdescr procedure, pass(prec) :: precdescr => z_diag_precdescr
procedure, pass(prec) :: sizeof => z_diag_sizeof procedure, pass(prec) :: sizeof => z_diag_sizeof
end type psb_z_diag_prec_type end type psb_z_diag_prec_type

12
prec/psb_z_nullprec.f03
Unescape Escape View File

@ -7,12 +7,12 @@ module psb_z_nullprec
procedure, pass(prec) :: apply => z_null_apply procedure, pass(prec) :: apply => z_null_apply
procedure, pass(prec) :: precbld => z_null_precbld procedure, pass(prec) :: precbld => z_null_precbld
procedure, pass(prec) :: precinit => z_null_precinit procedure, pass(prec) :: precinit => z_null_precinit
procedure, pass(prec) :: z_base_precseti => z_null_precseti procedure, pass(prec) :: precseti => z_null_precseti
procedure, pass(prec) :: z_base_precsetr => z_null_precsetr procedure, pass(prec) :: precsetr => z_null_precsetr
procedure, pass(prec) :: z_base_precsetc => z_null_precsetc procedure, pass(prec) :: precsetc => z_null_precsetc
procedure, pass(prec) :: precfree => z_null_precfree procedure, pass(prec) :: precfree => z_null_precfree
procedure, pass(prec) :: precdescr => z_null_precdescr procedure, pass(prec) :: precdescr => z_null_precdescr
procedure, pass(prec) :: sizeof => z_null_sizeof procedure, pass(prec) :: sizeof => z_null_sizeof
end type psb_z_null_prec_type end type psb_z_null_prec_type

6
util/psb_hbio_mod.f90
Unescape Escape View File

@ -562,7 +562,7 @@ contains
select type(aa=>a%a) select type(aa=>a%a)
type is (psb_s_csc_sparse_mat) type is (psb_d_csc_sparse_mat)
acpnt => aa acpnt => aa
@ -909,7 +909,7 @@ contains
select type(aa=>a%a) select type(aa=>a%a)
type is (psb_s_csc_sparse_mat) type is (psb_c_csc_sparse_mat)
acpnt => aa acpnt => aa
@ -1255,7 +1255,7 @@ contains
select type(aa=>a%a) select type(aa=>a%a)
type is (psb_s_csc_sparse_mat) type is (psb_z_csc_sparse_mat)
acpnt => aa acpnt => aa

Write Preview
Loading…
Cancel
Save