<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Menlo;
panose-1:2 11 6 9 3 8 4 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-ligatures:standardcontextual;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
font-family:"Calibri",sans-serif;
mso-ligatures:none;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style>
</head>
<body lang="EN-US" link="#0563C1" vlink="#954F72" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal">Hi,</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I am doing a number of problems using PETSc/SLEPc, but I also work on some non-PETSc/SLEPc flow solvers. I would like to use PETSc as a wrapper for this non-PETSc flow solver for compatibility, so I can use the tolerance monitoring,
options, viewers, and for direct comparison to PETSc methods I am using. </p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Here is what I am trying to do… I have a CFD solver that iterates with a nonlinear iterator of the form x := N(x). This can be expressed in a fortran routine of the form,</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal" style="text-indent:.5in">SUBROUTINE MySolver(x) </p>
<p class="MsoNormal" style="text-indent:.5in">or </p>
<p class="MsoNormal" style="text-indent:.5in">SUBROUTINE MySolver(x,y)</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">In the first case, x is over written. In the second, y = N(x). In any event, I want to do something like what is shown in the subroutine at the bottom of this email.
</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">The code below “works” in the sense that MySolver is called, but it is called exactly *<b>once</b>*. But MyMonitor and MyConverged are *<b>not</b>* called. Again, I want to iterate so MySolver should be called many times, as should MyMonitor
and MyConverged.</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">The SNESView before and after SNESSolve looks like this:</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black">SNES Object: 1 MPI process<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> type: shell<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> SNES has not been set up so information may be incomplete<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> maximum iterations=50, maximum function evaluations=10000<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> tolerances: relative=1e-50, absolute=1e-10, solution=1e+06<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> total number of function evaluations=0<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> norm schedule ALWAYS<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black">SNES Object: 1 MPI process<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> type: shell<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> maximum iterations=50, maximum function evaluations=10000<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> tolerances: relative=1e-50, absolute=1e-10, solution=1e+06<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> total number of function evaluations=0<o:p></o:p></span></p>
<p style="mso-margin-top-alt:0in;margin-right:0in;margin-bottom:0in;margin-left:.5in;background:white">
<span style="font-size:9.0pt;font-family:Menlo;color:black"> norm schedule ALWAYS<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:8.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal">Any suggestions on how to do what I am trying to accomplish?</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Thanks.</p>
<p class="MsoNormal">Kenneth Hall</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="font-size:9.0pt"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><b><span style="font-size:9.0pt;font-family:Menlo;color:silver">#include <petsc/finclude/petsc.h></span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><b><span style="font-size:9.0pt;font-family:Menlo;color:silver">#include "macros.h"</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">MODULE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SolveWithSNESShell_module</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">USE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyPetscModule</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">CONTAINS</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MySolver</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">USE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyPetscModule</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">IMPLICIT</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">NONE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... declared passed variables</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNES</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">Vec</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscErrorCode</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... code to find residual x := N(x)</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... (or alternatively y := N(x))</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon"><o:p></o:p></span></b></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"> </span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MySolver</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyMonitor</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">its</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">rnorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">USE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyPetscModule</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">IMPLICIT</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">NONE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Declare passed variables</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNES</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscInt</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">its</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscReal</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">rnorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscErrorCode</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Code to print out convergence history</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Code to print out convergence history</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyMonitor</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyConverged</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">it</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">xnorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ynorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">znorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">reason, ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">USE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyPetscModule</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"> </span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">IMPLICIT</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">NONE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNES</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscInt</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">it</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ctx</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscReal</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">xnorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ynorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">znorm</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">KSPConvergedReason</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">reason</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscErrorCode</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">! ... add convergence test here ...</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">! set reason to a positive value if convergence has been achieved</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyConverged</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">MODULE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SolveWithSNESShell_module</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SolveWithSNESShell</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!====================================================================================================</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">USE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SolveWithSNESShell_module</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">IMPLICIT</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">NONE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Declare passed variables</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">INTEGER</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level_tmp</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Declare local variables</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">INTEGER</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">iz</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">INTEGER</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">imax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">INTEGER</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">jmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">INTEGER</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">kmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNES</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">KSP</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ksp</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">Vec</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"> </span><span style="font-size:9.0pt;font-family:Menlo;color:blue">Vec</span><span style="font-size:9.0pt;font-family:Menlo;color:black">
:: </span><span style="font-size:9.0pt;font-family:Menlo;color:blue">y</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscViewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscErrorCode</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscReal</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">rtol</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 1.0</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">D</span><span style="font-size:9.0pt;font-family:Menlo;color:black">-10
</span><span style="font-size:9.0pt;font-family:Menlo;color:green">!! relative tolerance</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscReal</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">atol</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 1.0</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">D</span><span style="font-size:9.0pt;font-family:Menlo;color:black">-50
</span><span style="font-size:9.0pt;font-family:Menlo;color:green">!! absolute tolerance</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscReal</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">dtol</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 1.0</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">D</span><span style="font-size:9.0pt;font-family:Menlo;color:black">+06
</span><span style="font-size:9.0pt;font-family:Menlo;color:green">!! divergence tolerance</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscInt</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">maxits</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 50<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscInt</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> ::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">maxf</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 10000<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">character</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><i><span style="font-size:9.0pt;font-family:Menlo;color:teal">len</span></i><span style="font-size:9.0pt;font-family:Menlo;color:black">=1000)::
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">args</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... count the number of degrees of freedom.</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level_tmp</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 0<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">DO</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">iz</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> = 1,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">hb</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">nzone</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">imax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">hb</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">zone</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">iz</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">imax</span><span style="font-size:9.0pt;font-family:Menlo;color:black">
- 1<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">jmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">hb</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">zone</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">iz</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">jmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black">
- 1<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">kmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">hb</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">level</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">zone</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">iz</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)%</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">kmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black">
- 1<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"> </span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> +
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">imax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> *
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">jmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> *
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">kmax</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">DO</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> =
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black"> *
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">neqn</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Initialize PETSc</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscInitialize</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_CHARACTER</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Log</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscLogDefaultBegin</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Hard-wired options.</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">! PetscCall(PetscOptionsInsertString(PETSC_NULL_OPTIONS, "command line style option here" , ierr))</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Command line options.</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">call</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><i><span style="font-size:9.0pt;font-family:Menlo;color:teal">GET_COMMAND</span></i><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">args</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscOptionsInsertString</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_OPTIONS</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">args</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... view command line table</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"> </span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscViewerASCIIOpen</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_COMM_SELF</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_VIEWER_STDOUT_SELF</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscOptionsView</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_OPTIONS</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscViewerDestroy</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Create PETSc vectors</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecCreateSeq</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_COMM_SELF</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecCreateSeq</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_COMM_SELF</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">n</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">y</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecSet</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
0.0</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">d0</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecSet</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">y</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
0.0</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">d0</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... SNES context</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESCreate</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_COMM_SELF</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSetType</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSHELL</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESShellSetSolve</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MySolver</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">!!!!
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSetFunction</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MySolver</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_INTEGER</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">!!!! this line causes a segmentation error if uncommented.<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSetConvergenceTest</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyConverged</span><span style="font-size:9.0pt;font-family:Menlo;color:black">, 0,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_FUNCTION</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Set SNES options</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSetFromOptions</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Set tolerances</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSetTolerances</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">rtol</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">atol</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">dtol</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">maxits</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">maxf</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... SNES montior</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESMonitorSet</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">MyMonitor</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_INTEGER</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_FUNCTION</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Set the initial solution</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">CALL</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">HBToVecX</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">)<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... View snes context</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESView</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Solve SNES problem</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESSolve</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PETSC_NULL_VEC</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... View snes context</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESView</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... dump the logs</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">! call PetscLogDump(ierr) ! Why does this cause error</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Destroy PETSc objects</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SNESDestroy</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">snes</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecDestroy</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">x</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">VecDestroy</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">y</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscViewerDestroy</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">viewer</span><span style="font-size:9.0pt;font-family:Menlo;color:black">,
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:green">!.... Finish</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscCall</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">PetscFinalize</span><span style="font-size:9.0pt;font-family:Menlo;color:black">(</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">ierr</span><span style="font-size:9.0pt;font-family:Menlo;color:black">))<o:p></o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p> </o:p></span></p>
<p style="margin:0in;background:white"><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">END</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><b><span style="font-size:9.0pt;font-family:Menlo;color:maroon">SUBROUTINE</span></b><span style="font-size:9.0pt;font-family:Menlo;color:black">
</span><span style="font-size:9.0pt;font-family:Menlo;color:blue">SolveWithSNESShell</span><span style="font-size:9.0pt;font-family:Menlo;color:black"><o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</body>
</html>