fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
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.
This commit is contained in:
Salvatore Filippone
2009-11-06 14:15:46 +00:00
parent f13a6775dc
commit 76b1d9cdf9
14 changed files with 97 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_bjacprec.f03
+6 -6
View File
@@ -10,12 +10,12 @@ module psb_c_bjacprec
procedure, pass(prec) :: apply => c_bjac_apply
procedure, pass(prec) :: precbld => c_bjac_precbld
procedure, pass(prec) :: precinit => c_bjac_precinit
procedure, pass(prec) :: c_base_precseti => c_bjac_precseti
procedure, pass(prec) :: c_base_precsetr => c_bjac_precsetr
procedure, pass(prec) :: c_base_precsetc => c_bjac_precsetc
procedure, pass(prec) :: precfree => c_bjac_precfree
procedure, pass(prec) :: precdescr => c_bjac_precdescr
procedure, pass(prec) :: sizeof => c_bjac_sizeof
procedure, pass(prec) :: precseti => c_bjac_precseti
procedure, pass(prec) :: precsetr => c_bjac_precsetr
procedure, pass(prec) :: precsetc => c_bjac_precsetc
procedure, pass(prec) :: precfree => c_bjac_precfree
procedure, pass(prec) :: precdescr => c_bjac_precdescr
procedure, pass(prec) :: sizeof => c_bjac_sizeof
end type psb_c_bjac_prec_type
prec/psb_c_diagprec.f03
+6 -6
View File
@@ -8,12 +8,12 @@ module psb_c_diagprec
procedure, pass(prec) :: apply => c_diag_apply
procedure, pass(prec) :: precbld => c_diag_precbld
procedure, pass(prec) :: precinit => c_diag_precinit
procedure, pass(prec) :: c_base_precseti => c_diag_precseti
procedure, pass(prec) :: c_base_precsetr => c_diag_precsetr
procedure, pass(prec) :: c_base_precsetc => c_diag_precsetc
procedure, pass(prec) :: precfree => c_diag_precfree
procedure, pass(prec) :: precdescr => c_diag_precdescr
procedure, pass(prec) :: sizeof => c_diag_sizeof
procedure, pass(prec) :: precseti => c_diag_precseti
procedure, pass(prec) :: precsetr => c_diag_precsetr
procedure, pass(prec) :: precsetc => c_diag_precsetc
procedure, pass(prec) :: precfree => c_diag_precfree
procedure, pass(prec) :: precdescr => c_diag_precdescr
procedure, pass(prec) :: sizeof => c_diag_sizeof
end type psb_c_diag_prec_type
prec/psb_c_nullprec.f03
+6 -6
View File
@@ -7,12 +7,12 @@ module psb_c_nullprec
procedure, pass(prec) :: apply => c_null_apply
procedure, pass(prec) :: precbld => c_null_precbld
procedure, pass(prec) :: precinit => c_null_precinit
procedure, pass(prec) :: c_base_precseti => c_null_precseti
procedure, pass(prec) :: c_base_precsetr => c_null_precsetr
procedure, pass(prec) :: c_base_precsetc => c_null_precsetc
procedure, pass(prec) :: precfree => c_null_precfree
procedure, pass(prec) :: precdescr => c_null_precdescr
procedure, pass(prec) :: sizeof => c_null_sizeof
procedure, pass(prec) :: precseti => c_null_precseti
procedure, pass(prec) :: precsetr => c_null_precsetr
procedure, pass(prec) :: precsetc => c_null_precsetc
procedure, pass(prec) :: precfree => c_null_precfree
procedure, pass(prec) :: precdescr => c_null_precdescr
procedure, pass(prec) :: sizeof => c_null_sizeof
end type psb_c_null_prec_type
prec/psb_d_bjacprec.f03
+6 -6
View File
@@ -10,12 +10,12 @@ module psb_d_bjacprec
procedure, pass(prec) :: apply => d_bjac_apply
procedure, pass(prec) :: precbld => d_bjac_precbld
procedure, pass(prec) :: precinit => d_bjac_precinit
procedure, pass(prec) :: d_base_precseti => d_bjac_precseti
procedure, pass(prec) :: d_base_precsetr => d_bjac_precsetr
procedure, pass(prec) :: d_base_precsetc => d_bjac_precsetc
procedure, pass(prec) :: precfree => d_bjac_precfree
procedure, pass(prec) :: precdescr => d_bjac_precdescr
procedure, pass(prec) :: sizeof => d_bjac_sizeof
procedure, pass(prec) :: precseti => d_bjac_precseti
procedure, pass(prec) :: precsetr => d_bjac_precsetr
procedure, pass(prec) :: precsetc => d_bjac_precsetc
procedure, pass(prec) :: precfree => d_bjac_precfree
procedure, pass(prec) :: precdescr => d_bjac_precdescr
procedure, pass(prec) :: sizeof => d_bjac_sizeof
end type psb_d_bjac_prec_type
prec/psb_d_diagprec.f03
+6 -6
View File
@@ -8,12 +8,12 @@ module psb_d_diagprec
procedure, pass(prec) :: apply => d_diag_apply
procedure, pass(prec) :: precbld => d_diag_precbld
procedure, pass(prec) :: precinit => d_diag_precinit
procedure, pass(prec) :: d_base_precseti => d_diag_precseti
procedure, pass(prec) :: d_base_precsetr => d_diag_precsetr
procedure, pass(prec) :: d_base_precsetc => d_diag_precsetc
procedure, pass(prec) :: precfree => d_diag_precfree
procedure, pass(prec) :: precdescr => d_diag_precdescr
procedure, pass(prec) :: sizeof => d_diag_sizeof
procedure, pass(prec) :: precseti => d_diag_precseti
procedure, pass(prec) :: precsetr => d_diag_precsetr
procedure, pass(prec) :: precsetc => d_diag_precsetc
procedure, pass(prec) :: precfree => d_diag_precfree
procedure, pass(prec) :: precdescr => d_diag_precdescr
procedure, pass(prec) :: sizeof => d_diag_sizeof
end type psb_d_diag_prec_type
prec/psb_d_nullprec.f03
+6 -6
View File
@@ -7,12 +7,12 @@ module psb_d_nullprec
procedure, pass(prec) :: apply => d_null_apply
procedure, pass(prec) :: precbld => d_null_precbld
procedure, pass(prec) :: precinit => d_null_precinit
procedure, pass(prec) :: d_base_precseti => d_null_precseti
procedure, pass(prec) :: d_base_precsetr => d_null_precsetr
procedure, pass(prec) :: d_base_precsetc => d_null_precsetc
procedure, pass(prec) :: precfree => d_null_precfree
procedure, pass(prec) :: precdescr => d_null_precdescr
procedure, pass(prec) :: sizeof => d_null_sizeof
procedure, pass(prec) :: precseti => d_null_precseti
procedure, pass(prec) :: precsetr => d_null_precsetr
procedure, pass(prec) :: precsetc => d_null_precsetc
procedure, pass(prec) :: precfree => d_null_precfree
procedure, pass(prec) :: precdescr => d_null_precdescr
procedure, pass(prec) :: sizeof => d_null_sizeof
end type psb_d_null_prec_type
prec/psb_prec_type.f03
+22 -22
View File
@@ -68,11 +68,11 @@ module psb_prec_type
contains
procedure, pass(prec) :: apply => s_base_apply
procedure, pass(prec) :: precbld => s_base_precbld
procedure, pass(prec) :: s_base_precseti
procedure, pass(prec) :: s_base_precsetr
procedure, pass(prec) :: s_base_precsetc
procedure, pass(prec) :: sizeof => s_base_sizeof
generic, public :: precset => s_base_precseti, s_base_precsetr, s_base_precsetc
procedure, pass(prec) :: precseti => s_base_precseti
procedure, pass(prec) :: precsetr => s_base_precsetr
procedure, pass(prec) :: precsetc => s_base_precsetc
procedure, pass(prec) :: sizeof => s_base_sizeof
generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => s_base_precinit
procedure, pass(prec) :: precfree => s_base_precfree
procedure, pass(prec) :: precdescr => s_base_precdescr
@@ -88,13 +88,13 @@ module psb_prec_type
type psb_d_base_prec_type
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) :: d_base_precseti
procedure, pass(prec) :: d_base_precsetr
procedure, pass(prec) :: d_base_precsetc
procedure, pass(prec) :: sizeof => d_base_sizeof
generic, public :: precset => d_base_precseti, d_base_precsetr, d_base_precsetc
procedure, pass(prec) :: precseti => d_base_precseti
procedure, pass(prec) :: precsetr => d_base_precsetr
procedure, pass(prec) :: precsetc => d_base_precsetc
procedure, pass(prec) :: sizeof => d_base_sizeof
generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => d_base_precinit
procedure, pass(prec) :: precfree => d_base_precfree
procedure, pass(prec) :: precdescr => d_base_precdescr
@@ -113,11 +113,11 @@ module psb_prec_type
contains
procedure, pass(prec) :: apply => c_base_apply
procedure, pass(prec) :: precbld => c_base_precbld
procedure, pass(prec) :: c_base_precseti
procedure, pass(prec) :: c_base_precsetr
procedure, pass(prec) :: c_base_precsetc
procedure, pass(prec) :: sizeof => c_base_sizeof
generic, public :: precset => c_base_precseti, c_base_precsetr, c_base_precsetc
procedure, pass(prec) :: precseti => c_base_precseti
procedure, pass(prec) :: precsetr => c_base_precsetr
procedure, pass(prec) :: precsetc => c_base_precsetc
procedure, pass(prec) :: sizeof => c_base_sizeof
generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => c_base_precinit
procedure, pass(prec) :: precfree => c_base_precfree
procedure, pass(prec) :: precdescr => c_base_precdescr
@@ -133,13 +133,13 @@ module psb_prec_type
type psb_z_base_prec_type
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) :: z_base_precseti
procedure, pass(prec) :: z_base_precsetr
procedure, pass(prec) :: z_base_precsetc
procedure, pass(prec) :: sizeof => z_base_sizeof
generic, public :: precset => z_base_precseti, z_base_precsetr, z_base_precsetc
procedure, pass(prec) :: precseti => z_base_precseti
procedure, pass(prec) :: precsetr => z_base_precsetr
procedure, pass(prec) :: precsetc => z_base_precsetc
procedure, pass(prec) :: sizeof => z_base_sizeof
generic, public :: precset => precseti, precsetr, precsetc
procedure, pass(prec) :: precinit => z_base_precinit
procedure, pass(prec) :: precfree => z_base_precfree
procedure, pass(prec) :: precdescr => z_base_precdescr
prec/psb_s_bjacprec.f03
+6 -6
View File
@@ -10,12 +10,12 @@ module psb_s_bjacprec
procedure, pass(prec) :: apply => s_bjac_apply
procedure, pass(prec) :: precbld => s_bjac_precbld
procedure, pass(prec) :: precinit => s_bjac_precinit
procedure, pass(prec) :: s_base_precseti => s_bjac_precseti
procedure, pass(prec) :: s_base_precsetr => s_bjac_precsetr
procedure, pass(prec) :: s_base_precsetc => s_bjac_precsetc
procedure, pass(prec) :: precfree => s_bjac_precfree
procedure, pass(prec) :: precdescr => s_bjac_precdescr
procedure, pass(prec) :: sizeof => s_bjac_sizeof
procedure, pass(prec) :: precseti => s_bjac_precseti
procedure, pass(prec) :: precsetr => s_bjac_precsetr
procedure, pass(prec) :: precsetc => s_bjac_precsetc
procedure, pass(prec) :: precfree => s_bjac_precfree
procedure, pass(prec) :: precdescr => s_bjac_precdescr
procedure, pass(prec) :: sizeof => s_bjac_sizeof
end type psb_s_bjac_prec_type
prec/psb_s_diagprec.f03
+6 -6
View File
@@ -8,12 +8,12 @@ module psb_s_diagprec
procedure, pass(prec) :: apply => s_diag_apply
procedure, pass(prec) :: precbld => s_diag_precbld
procedure, pass(prec) :: precinit => s_diag_precinit
procedure, pass(prec) :: s_base_precseti => s_diag_precseti
procedure, pass(prec) :: s_base_precsetr => s_diag_precsetr
procedure, pass(prec) :: s_base_precsetc => s_diag_precsetc
procedure, pass(prec) :: precfree => s_diag_precfree
procedure, pass(prec) :: precdescr => s_diag_precdescr
procedure, pass(prec) :: sizeof => s_diag_sizeof
procedure, pass(prec) :: precseti => s_diag_precseti
procedure, pass(prec) :: precsetr => s_diag_precsetr
procedure, pass(prec) :: precsetc => s_diag_precsetc
procedure, pass(prec) :: precfree => s_diag_precfree
procedure, pass(prec) :: precdescr => s_diag_precdescr
procedure, pass(prec) :: sizeof => s_diag_sizeof
end type psb_s_diag_prec_type
prec/psb_s_nullprec.f03
+6 -6
View File
@@ -7,12 +7,12 @@ module psb_s_nullprec
procedure, pass(prec) :: apply => s_null_apply
procedure, pass(prec) :: precbld => s_null_precbld
procedure, pass(prec) :: precinit => s_null_precinit
procedure, pass(prec) :: s_base_precseti => s_null_precseti
procedure, pass(prec) :: s_base_precsetr => s_null_precsetr
procedure, pass(prec) :: s_base_precsetc => s_null_precsetc
procedure, pass(prec) :: precfree => s_null_precfree
procedure, pass(prec) :: precdescr => s_null_precdescr
procedure, pass(prec) :: sizeof => s_null_sizeof
procedure, pass(prec) :: precseti => s_null_precseti
procedure, pass(prec) :: precsetr => s_null_precsetr
procedure, pass(prec) :: precsetc => s_null_precsetc
procedure, pass(prec) :: precfree => s_null_precfree
procedure, pass(prec) :: precdescr => s_null_precdescr
procedure, pass(prec) :: sizeof => s_null_sizeof
end type psb_s_null_prec_type
prec/psb_z_bjacprec.f03
+6 -6
View File
@@ -10,12 +10,12 @@ module psb_z_bjacprec
procedure, pass(prec) :: apply => z_bjac_apply
procedure, pass(prec) :: precbld => z_bjac_precbld
procedure, pass(prec) :: precinit => z_bjac_precinit
procedure, pass(prec) :: z_base_precseti => z_bjac_precseti
procedure, pass(prec) :: z_base_precsetr => z_bjac_precsetr
procedure, pass(prec) :: z_base_precsetc => z_bjac_precsetc
procedure, pass(prec) :: precfree => z_bjac_precfree
procedure, pass(prec) :: precdescr => z_bjac_precdescr
procedure, pass(prec) :: sizeof => z_bjac_sizeof
procedure, pass(prec) :: precseti => z_bjac_precseti
procedure, pass(prec) :: precsetr => z_bjac_precsetr
procedure, pass(prec) :: precsetc => z_bjac_precsetc
procedure, pass(prec) :: precfree => z_bjac_precfree
procedure, pass(prec) :: precdescr => z_bjac_precdescr
procedure, pass(prec) :: sizeof => z_bjac_sizeof
end type psb_z_bjac_prec_type
prec/psb_z_diagprec.f03
+6 -6
View File
@@ -8,12 +8,12 @@ module psb_z_diagprec
procedure, pass(prec) :: apply => z_diag_apply
procedure, pass(prec) :: precbld => z_diag_precbld
procedure, pass(prec) :: precinit => z_diag_precinit
procedure, pass(prec) :: z_base_precseti => z_diag_precseti
procedure, pass(prec) :: z_base_precsetr => z_diag_precsetr
procedure, pass(prec) :: z_base_precsetc => z_diag_precsetc
procedure, pass(prec) :: precfree => z_diag_precfree
procedure, pass(prec) :: precdescr => z_diag_precdescr
procedure, pass(prec) :: sizeof => z_diag_sizeof
procedure, pass(prec) :: precseti => z_diag_precseti
procedure, pass(prec) :: precsetr => z_diag_precsetr
procedure, pass(prec) :: precsetc => z_diag_precsetc
procedure, pass(prec) :: precfree => z_diag_precfree
procedure, pass(prec) :: precdescr => z_diag_precdescr
procedure, pass(prec) :: sizeof => z_diag_sizeof
end type psb_z_diag_prec_type
prec/psb_z_nullprec.f03
+6 -6
View File
@@ -7,12 +7,12 @@ module psb_z_nullprec
procedure, pass(prec) :: apply => z_null_apply
procedure, pass(prec) :: precbld => z_null_precbld
procedure, pass(prec) :: precinit => z_null_precinit
procedure, pass(prec) :: z_base_precseti => z_null_precseti
procedure, pass(prec) :: z_base_precsetr => z_null_precsetr
procedure, pass(prec) :: z_base_precsetc => z_null_precsetc
procedure, pass(prec) :: precfree => z_null_precfree
procedure, pass(prec) :: precdescr => z_null_precdescr
procedure, pass(prec) :: sizeof => z_null_sizeof
procedure, pass(prec) :: precseti => z_null_precseti
procedure, pass(prec) :: precsetr => z_null_precsetr
procedure, pass(prec) :: precsetc => z_null_precsetc
procedure, pass(prec) :: precfree => z_null_precfree
procedure, pass(prec) :: precdescr => z_null_precdescr
procedure, pass(prec) :: sizeof => z_null_sizeof
end type psb_z_null_prec_type
util/psb_hbio_mod.f90
+3 -3
View File
@@ -562,7 +562,7 @@ contains
select type(aa=>a%a)
type is (psb_s_csc_sparse_mat)
type is (psb_d_csc_sparse_mat)
acpnt => aa
@@ -909,7 +909,7 @@ contains
select type(aa=>a%a)
type is (psb_s_csc_sparse_mat)
type is (psb_c_csc_sparse_mat)
acpnt => aa
@@ -1255,7 +1255,7 @@ contains
select type(aa=>a%a)
type is (psb_s_csc_sparse_mat)
type is (psb_z_csc_sparse_mat)
acpnt => aa