mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
Fix date on cover page.
This commit is contained in:
+18
-20
@@ -3,8 +3,8 @@
|
||||
<html >
|
||||
<head><title>Adding new smoother and solver objects to AMG4PSBLAS</title>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<meta name="generator" content="TeX4ht (http://www.tug.org/tex4ht/)">
|
||||
<meta name="originator" content="TeX4ht (http://www.tug.org/tex4ht/)">
|
||||
<meta name="generator" content="TeX4ht (https://tug.org/tex4ht/)">
|
||||
<meta name="originator" content="TeX4ht (https://tug.org/tex4ht/)">
|
||||
<!-- html,3 -->
|
||||
<meta name="src" content="userhtml.tex">
|
||||
<link rel="stylesheet" type="text/css" href="userhtml.css">
|
||||
@@ -215,24 +215,22 @@ class="cmr-12">pass it as follows:</span>
|
||||
|
||||
|
||||
|
||||
<div class="verbatim" id="verbatim-10">
|
||||
 <br />  ! sparse matrix and preconditioner
|
||||
 <br />  type(psb_dspmat_type) :: a
|
||||
 <br />  type(amg_dprec_type)  :: prec
|
||||
 <br />  type(amg_d_tlu_solver_type) :: tlusv
|
||||
 <br />
|
||||
 <br />......
|
||||
 <br />  !
|
||||
 <br />  !  prepare the preconditioner: an ML with defaults, but with TLU solver at
|
||||
 <br />  !  intermediate levels. All other parameters are at default values.
|
||||
 <br />  !
|
||||
 <br />  call prec%init(’ML’,       info)
|
||||
 <br />  call prec%hierarchy_build(a,desc_a,info)
|
||||
 <br />  nlv = prec%get_nlevs()
|
||||
 <br />  call prec%set(tlusv,   info,ilev=1,ilmax=max(1,nlv-1))
|
||||
 <br />  call prec%smoothers_build(a,desc_a,info)
|
||||
 <br />
|
||||
</div>
|
||||
<pre class="verbatim" id="verbatim-10">
|
||||
  ! sparse matrix and preconditioner
|
||||
  type(psb_dspmat_type) :: a
|
||||
  type(amg_dprec_type)  :: prec
|
||||
  type(amg_d_tlu_solver_type) :: tlusv
|
||||
......
|
||||
  !
|
||||
  !  prepare the preconditioner: an ML with defaults, but with TLU solver at
|
||||
  !  intermediate levels. All other parameters are at default values.
|
||||
  !
|
||||
  call prec%init(’ML’,       info)
|
||||
  call prec%hierarchy_build(a,desc_a,info)
|
||||
  nlv = prec%get_nlevs()
|
||||
  call prec%set(tlusv,   info,ilev=1,ilmax=max(1,nlv-1))
|
||||
  call prec%smoothers_build(a,desc_a,info)
|
||||
</pre>
|
||||
<!--l. 107--><p class="nopar" >
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user