mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-06 22:55:08 +00:00
*** empty log message ***
This commit is contained in:
+5
-3
@@ -77,11 +77,13 @@ $ptype$ string as follows\footnote{The string is case-insensitive}:
|
||||
\end{description}
|
||||
Note that the default corresponds to a Restricted Additive Schwarz
|
||||
preconditioner with $ILU(0)$ and 1 level of overlap.
|
||||
\item[2L] Second level of a multilevel preconditioner, see below
|
||||
\end{description}
|
||||
If a multilevel preconditioner is desired, the user should call
|
||||
\verb|psb_precset| once choosing AS, and a second time specifying
|
||||
$ptype=ML$ with the following optional parameters in $iv$ (see
|
||||
also~\cite{APNUM,DD2}):
|
||||
\verb|psb_precset| twice, the first time choosing an AS variant, and
|
||||
a second time specifying
|
||||
$ptype=2L$ with the following optional parameters in $iv$ (see
|
||||
also~\cite{APNUM06,DD2}):
|
||||
\begin{description}
|
||||
\item[$iv(1)$] Type of multilevel correction, legal values: \verb|no_ml_|,
|
||||
\verb|add_ml_prec_|, \verb|mult_ml_prec_|,
|
||||
|
||||
+815
-777
File diff suppressed because one or more lines are too long
@@ -120,7 +120,7 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
|
||||
end if
|
||||
|
||||
|
||||
case ('ML', '2LEV')
|
||||
case ('ML', '2L', '2LEV')
|
||||
|
||||
select case (size(p%baseprecv))
|
||||
case(1)
|
||||
|
||||
@@ -120,7 +120,7 @@ subroutine psb_zprecset(p,ptype,iv,rs,rv,info)
|
||||
end if
|
||||
|
||||
|
||||
case ('ML', '2LEV')
|
||||
case ('ML', '2L','2LEV')
|
||||
|
||||
select case (size(p%baseprecv))
|
||||
case(1)
|
||||
|
||||
@@ -254,7 +254,7 @@ program df_sample
|
||||
& iv=(/mult_ml_prec_,loc_aggr_,smth_omg_,mat_distr_,post_smooth_,f_ilu_n_,4/))
|
||||
case(8)
|
||||
call psb_precset(pre,'asm',iv=(/ml,halo_,none_/))
|
||||
call psb_precset(pre,'ml',&
|
||||
call psb_precset(pre,'2l',&
|
||||
& iv=(/mult_ml_prec_,loc_aggr_,smth_omg_,mat_distr_,post_smooth_,f_umf_,4/))
|
||||
|
||||
case default
|
||||
|
||||
Reference in New Issue
Block a user