*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 75e4669ada
commit e33cdba6f9

@ -77,11 +77,13 @@ $ptype$ string as follows\footnote{The string is case-insensitive}:
\end{description} \end{description}
Note that the default corresponds to a Restricted Additive Schwarz Note that the default corresponds to a Restricted Additive Schwarz
preconditioner with $ILU(0)$ and 1 level of overlap. preconditioner with $ILU(0)$ and 1 level of overlap.
\item[2L] Second level of a multilevel preconditioner, see below
\end{description} \end{description}
If a multilevel preconditioner is desired, the user should call If a multilevel preconditioner is desired, the user should call
\verb|psb_precset| once choosing AS, and a second time specifying \verb|psb_precset| twice, the first time choosing an AS variant, and
$ptype=ML$ with the following optional parameters in $iv$ (see a second time specifying
also~\cite{APNUM,DD2}): $ptype=2L$ with the following optional parameters in $iv$ (see
also~\cite{APNUM06,DD2}):
\begin{description} \begin{description}
\item[$iv(1)$] Type of multilevel correction, legal values: \verb|no_ml_|, \item[$iv(1)$] Type of multilevel correction, legal values: \verb|no_ml_|,
\verb|add_ml_prec_|, \verb|mult_ml_prec_|, \verb|add_ml_prec_|, \verb|mult_ml_prec_|,

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 end if
case ('ML', '2LEV') case ('ML', '2L', '2LEV')
select case (size(p%baseprecv)) select case (size(p%baseprecv))
case(1) case(1)

@ -120,7 +120,7 @@ subroutine psb_zprecset(p,ptype,iv,rs,rv,info)
end if end if
case ('ML', '2LEV') case ('ML', '2L','2LEV')
select case (size(p%baseprecv)) select case (size(p%baseprecv))
case(1) 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/)) & iv=(/mult_ml_prec_,loc_aggr_,smth_omg_,mat_distr_,post_smooth_,f_ilu_n_,4/))
case(8) case(8)
call psb_precset(pre,'asm',iv=(/ml,halo_,none_/)) 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/)) & iv=(/mult_ml_prec_,loc_aggr_,smth_omg_,mat_distr_,post_smooth_,f_umf_,4/))
case default case default

Loading…
Cancel
Save