<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
  <title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hello,<br>
<br>
the bug is gone and code works now without problem.<br>
Thank you<br>
Manfred<br>
<br>
Hong Zhang schrieb:
<blockquote
 cite="mid:CAGCphBt7CQ5C_dD0Uqvw-ythewhgu1UhiQejJZx1-UtWn4KA9w@mail.gmail.com"
 type="cite">Manfred :
  <div>Bug is fixed in petsc-3.2 and petsc-dev:</div>
  <div><a moz-do-not-send="true"
 href="http://petsc.cs.iit.edu/petsc/petsc-dev/rev/759927945bb3">http://petsc.cs.iit.edu/petsc/petsc-dev/rev/759927945bb3</a></div>
  <div><br>
  </div>
  <div>You can update your petsc library and check your code.</div>
  <div>Let us know if you still have problem.</div>
  <div><br>
  </div>
  <div>Thanks for the bug report which helps improve petsc!</div>
  <div>Hong</div>
  <div><br>
  </div>
  <div>
  <div class="gmail_quote">
  <blockquote class="gmail_quote"
 style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
    <div bgcolor="#ffffff" text="#000000">
Jed Brown schrieb:
    <div>
    <div class="h5">
    <blockquote type="cite">
      <div class="gmail_quote">On Fri, Mar 2, 2012 at 04:18, Manfred
Gratt <span dir="ltr">&lt;<a moz-do-not-send="true"
 href="mailto:manfred.gratt@uibk.ac.at" target="_blank">manfred.gratt@uibk.ac.at</a>&gt;</span>
wrote:<br>
      <blockquote class="gmail_quote"
 style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">thank
you for your quick response. The petsc-dev did not solve the
segfault. I checked what the difference from ex5 to my code was and
after I changed my code to ex5 the segfault was gone when I used
MatZeroEntries instead of destroying and creating a new Matrix for the
second solve.&nbsp; This seems to be logical but, what I do not understand
is why it works with destroying and creating a new Matrix on more than
one processor fine?</blockquote>
      <div><br>
      </div>
      <div>I can't understand from this description exactly what works
and
what doesn't work for you. There shouldn't be a SEGV for any
"reasonable" sequence of calls you make, so we should clarify the
confusion and either fix the bug or make a better/earlier error message.</div>
      </div>
      <br>
      <div>Is there a way you can modify ex5 (or another example, or
send
your own code) to show the problem?</div>
    </blockquote>
    </div>
    </div>
I tried to change the ex5 to bring the same error but I am not able to
get the same error. I still get an error although it is an error I
don't understand. <br>
I changed ex5 to calculate in second solve the same matrix as in the
first solve. As written in definition of SAME_NONZERO_PATTERN it should
work. <br>
When before the second solve the matrix C is set to zero with
MatZeroEntries it works well, but when I instead destroy the matrix C
and create a new C it does not work with the error that it is an
Numerically singular matrix. Should that happen? It is the same matrix
as in the first solve. So shouldnt it happen there?<br>
When I use instead DIFFERENT_NONZERO_PATTERN it also works well in the
second solve.<br>
    <br>
I modified the ex5 so that you can easily call the changes with
-mat_zeroent to call MatZeroEntries instead of destroy and create a new
matrix.<br>
The second option -mat_different calls DIFFERENT_NONZERO_PATTERN
instead of SAME_NONZERO_PATTERN.<br>
    <br>
Without these options it throws an error when you call it with
    <div class="im"><br>
./ex5 -ksp_monitor -mat_type sbaij -pc_type cholesky
-pc_factor_mat_solver_package mumps<br>
    <br>
    </div>
Thanks<br>
Manfred<br>
    <br>
newex5.c:<br>
    <br>
static char help[] = "Solves two linear systems in parallel with KSP.&nbsp;
The code\n\<br>
illustrates repeated solution of linear systems with the same
preconditioner\n\<br>
method but different matrices (having the same nonzero structure).&nbsp; The
code\n\<br>
also uses multiple profiling stages.&nbsp; Input arguments are\n\<br>
&nbsp; -m &lt;size&gt; : problem size\n\<br>
&nbsp; -mat_nonsym : use nonsymmetric matrix (default is symmetric)\n\n";<br>
    <br>
/*T<br>
&nbsp;&nbsp; Concepts: KSP^repeatedly solving linear systems;<br>
&nbsp;&nbsp; Concepts: PetscLog^profiling multiple stages of code;<br>
&nbsp;&nbsp; Processors: n<br>
T*/<br>
    <br>
/* <br>
&nbsp; Include "petscksp.h" so that we can use KSP solvers.&nbsp; Note that this
file<br>
&nbsp; automatically includes:<br>
&nbsp;&nbsp;&nbsp;&nbsp; petscsys.h&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - base PETSc routines&nbsp;&nbsp; petscvec.h - vectors<br>
&nbsp;&nbsp;&nbsp;&nbsp; petscmat.h - matrices<br>
&nbsp;&nbsp;&nbsp;&nbsp; petscis.h&nbsp;&nbsp;&nbsp;&nbsp; - index sets&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; petscksp.h - Krylov subspace
methods<br>
&nbsp;&nbsp;&nbsp;&nbsp; petscviewer.h - viewers&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; petscpc.h&nbsp; - preconditioners<br>
*/<br>
#include &lt;petscksp.h&gt;<br>
    <br>
#undef __FUNCT__<br>
#define __FUNCT__ "main"<br>
int main(int argc,char **args)<br>
{<br>
&nbsp; KSP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ksp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /* linear solver context */<br>
&nbsp; Mat&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /* matrix */<br>
&nbsp; Vec&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x,u,b;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /* approx solution, RHS, exact
solution */<br>
&nbsp; PetscReal&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; norm;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /* norm of solution error */<br>
&nbsp; PetscScalar&nbsp;&nbsp;&nbsp; v,none = -1.0;<br>
&nbsp; PetscInt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ii,J,ldim,low,high,iglobal,Istart,Iend;<br>
&nbsp; PetscErrorCode ierr;<br>
&nbsp; PetscInt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i,j,m = 3,n = 2,its;<br>
&nbsp; PetscMPIInt&nbsp;&nbsp;&nbsp; size,rank;<br>
&nbsp; PetscBool&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mat_nonsymmetric = PETSC_FALSE;<br>
&nbsp; PetscBool&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; matzeroent = PETSC_FALSE, different_pattern =
PETSC_FALSE;<br>
#if defined (PETSC_USE_LOG)<br>
&nbsp; PetscLogStage&nbsp; stages[2];<br>
#endif<br>
    <br>
&nbsp; PetscInitialize(&amp;argc,&amp;args,(char *)0,help);<br>
&nbsp; ierr =
PetscOptionsGetInt(PETSC_NULL,"-m",&amp;m,PETSC_NULL);CHKERRQ(ierr);<br>
&nbsp; ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&amp;rank);CHKERRQ(ierr);<br>
&nbsp; ierr = MPI_Comm_size(PETSC_COMM_WORLD,&amp;size);CHKERRQ(ierr);<br>
&nbsp; n = 2*size;<br>
    <br>
&nbsp; /*<br>
&nbsp;&nbsp;&nbsp;&nbsp; Set flag if we are doing a nonsymmetric problem; the default is
symmetric.<br>
&nbsp; */<br>
&nbsp; ierr =
PetscOptionsGetBool(PETSC_NULL,"-mat_nonsym",&amp;mat_nonsymmetric,PETSC_NULL);CHKERRQ(ierr);<br>
&nbsp; ierr =
PetscOptionsGetBool(PETSC_NULL,"-mat_zeroent",&amp;matzeroent,PETSC_NULL);CHKERRQ(ierr);<br>
&nbsp; ierr =
PetscOptionsGetBool(PETSC_NULL,"-mat_different",&amp;different_pattern,PETSC_NULL);CHKERRQ(ierr);<br>
&nbsp; /*<br>
&nbsp;&nbsp;&nbsp;&nbsp; Register two stages for separate profiling of the two linear
solves.<br>
&nbsp;&nbsp;&nbsp;&nbsp; Use the runtime option -log_summary for a printout of performance<br>
&nbsp;&nbsp;&nbsp;&nbsp; statistics at the program's conlusion.<br>
&nbsp; */<br>
&nbsp; ierr = PetscLogStageRegister("Original
Solve",&amp;stages[0]);CHKERRQ(ierr);<br>
&nbsp; ierr = PetscLogStageRegister("Second
Solve",&amp;stages[1]);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* -------------- Stage 0: Solve Original System
---------------------- */<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Indicate to PETSc profiling that we're beginning the first stage<br>
&nbsp; */<br>
&nbsp; ierr = PetscLogStagePush(stages[0]);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Create parallel matrix, specifying only its global dimensions.<br>
&nbsp;&nbsp;&nbsp;&nbsp; When using MatCreate(), the matrix format can be specified at<br>
&nbsp;&nbsp;&nbsp;&nbsp; runtime. Also, the parallel partitioning of the matrix is<br>
&nbsp;&nbsp;&nbsp;&nbsp; determined by PETSc at runtime.<br>
&nbsp; */<br>
&nbsp; ierr = MatCreate(PETSC_COMM_WORLD,&amp;C);CHKERRQ(ierr);<br>
&nbsp; ierr = MatSetSizes(C,PETSC_DECIDE,PETSC_DECIDE,m*n,m*n);CHKERRQ(ierr);<br>
&nbsp; ierr = MatSetFromOptions(C);CHKERRQ(ierr);<br>
&nbsp; ierr = MatSetUp(C);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Currently, all PETSc parallel matrix formats are partitioned by<br>
&nbsp;&nbsp;&nbsp;&nbsp; contiguous chunks of rows across the processors.&nbsp; Determine which<br>
&nbsp;&nbsp;&nbsp;&nbsp; rows of the matrix are locally owned. <br>
&nbsp; */<br>
&nbsp; ierr = MatGetOwnershipRange(C,&amp;Istart,&amp;Iend);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Set matrix entries matrix in parallel.<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - Each processor needs to insert only elements that it owns<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; locally (but any non-local elements will be sent to the<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; appropriate processor during matrix assembly). <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - Always specify global row and columns of matrix entries.<br>
&nbsp; */<br>
&nbsp; for (Ii=Istart; Ii&lt;Iend; Ii++) { <br>
&nbsp;&nbsp;&nbsp; v = -1.0; i = Ii/n; j = Ii - i*n;&nbsp; <br>
&nbsp;&nbsp;&nbsp; if (i&gt;0)&nbsp;&nbsp; {J = Ii - n; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (i&lt;m-1) {J = Ii + n; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (j&gt;0)&nbsp;&nbsp; {J = Ii - 1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (j&lt;n-1) {J = Ii + 1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; v = 4.0; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;Ii,&amp;v,ADD_VALUES);<br>
&nbsp; }<br>
    <br>
&nbsp; /*<br>
&nbsp;&nbsp;&nbsp;&nbsp; Make the matrix nonsymmetric if desired<br>
&nbsp; */<br>
&nbsp;&nbsp; if (mat_nonsymmetric) {<br>
&nbsp;&nbsp;&nbsp;&nbsp; for (Ii=Istart; Ii&lt;Iend; Ii++) { <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; v = -1.5; i = Ii/n;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (i&gt;1)&nbsp;&nbsp; {J = Ii-n-1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp;&nbsp; }<br>
&nbsp;&nbsp; } else {<br>
&nbsp;&nbsp;&nbsp; ierr = MatSetOption(C,MAT_SYMMETRIC,PETSC_TRUE);CHKERRQ(ierr);<br>
&nbsp;&nbsp;&nbsp; ierr =
MatSetOption(C,MAT_SYMMETRY_ETERNAL,PETSC_TRUE);CHKERRQ(ierr);<br>
&nbsp;&nbsp; }<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Assemble matrix, using the 2-step process:<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MatAssemblyBegin(), MatAssemblyEnd()<br>
&nbsp;&nbsp;&nbsp;&nbsp; Computations can be done while messages are in transition<br>
&nbsp;&nbsp;&nbsp;&nbsp; by placing code between these two statements.<br>
&nbsp; */<br>
&nbsp; ierr = MatAssemblyBegin(C,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);<br>
&nbsp; ierr = MatAssemblyEnd(C,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Create parallel vectors.<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - When using VecSetSizes(), we specify only the vector's global<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dimension; the parallel partitioning is determined at runtime. <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - Note: We form 1 vector from scratch and then duplicate as
needed.<br>
&nbsp; */<br>
&nbsp; ierr = VecCreate(PETSC_COMM_WORLD,&amp;u);CHKERRQ(ierr);<br>
&nbsp; ierr = VecSetSizes(u,PETSC_DECIDE,m*n);CHKERRQ(ierr);<br>
&nbsp; ierr = VecSetFromOptions(u);CHKERRQ(ierr);<br>
&nbsp; ierr = VecDuplicate(u,&amp;b);CHKERRQ(ierr);<br>
&nbsp; ierr = VecDuplicate(b,&amp;x);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Currently, all parallel PETSc vectors are partitioned by<br>
&nbsp;&nbsp;&nbsp;&nbsp; contiguous chunks across the processors.&nbsp; Determine which<br>
&nbsp;&nbsp;&nbsp;&nbsp; range of entries are locally owned.<br>
&nbsp; */<br>
&nbsp; ierr = VecGetOwnershipRange(x,&amp;low,&amp;high);CHKERRQ(ierr);<br>
    <br>
&nbsp; /*<br>
&nbsp;&nbsp;&nbsp; Set elements within the exact solution vector in parallel.<br>
&nbsp;&nbsp;&nbsp;&nbsp; - Each processor needs to insert only elements that it owns<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; locally (but any non-local entries will be sent to the<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; appropriate processor during vector assembly).<br>
&nbsp;&nbsp;&nbsp;&nbsp; - Always specify global locations of vector entries.<br>
&nbsp; */<br>
&nbsp; ierr = VecGetLocalSize(x,&amp;ldim);CHKERRQ(ierr);<br>
&nbsp;&nbsp; for (i=0; i&lt;ldim; i++) {<br>
&nbsp;&nbsp;&nbsp;&nbsp; iglobal = i + low;<br>
&nbsp;&nbsp;&nbsp;&nbsp; v = (PetscScalar)(i + 100*rank);<br>
&nbsp;&nbsp;&nbsp;&nbsp; ierr =
VecSetValues(u,1,&amp;iglobal,&amp;v,INSERT_VALUES);CHKERRQ(ierr);<br>
&nbsp;&nbsp; }<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Assemble vector, using the 2-step process:<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; VecAssemblyBegin(), VecAssemblyEnd()<br>
&nbsp;&nbsp;&nbsp;&nbsp; Computations can be done while messages are in transition,<br>
&nbsp;&nbsp;&nbsp;&nbsp; by placing code between these two statements.<br>
&nbsp; */<br>
&nbsp; ierr = VecAssemblyBegin(u);CHKERRQ(ierr);<br>
&nbsp; ierr = VecAssemblyEnd(u);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Compute right-hand-side vector<br>
&nbsp; */<br>
&nbsp; ierr = MatMult(C,u,b);CHKERRQ(ierr);<br>
&nbsp;<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp; Create linear solver context<br>
&nbsp; */<br>
&nbsp; ierr = KSPCreate(PETSC_COMM_WORLD,&amp;ksp);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Set operators. Here the matrix that defines the linear system<br>
&nbsp;&nbsp;&nbsp;&nbsp; also serves as the preconditioning matrix.<br>
&nbsp; */<br>
&nbsp; if(different_pattern) {<br>
&nbsp;&nbsp;&nbsp; ierr =
KSPSetOperators(ksp,C,C,DIFFERENT_NONZERO_PATTERN);CHKERRQ(ierr); <br>
&nbsp; }else {<br>
&nbsp;&nbsp;&nbsp; ierr = KSPSetOperators(ksp,C,C,SAME_NONZERO_PATTERN);CHKERRQ(ierr);<br>
&nbsp; }<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Set runtime options (e.g., -ksp_type &lt;type&gt; -pc_type
&lt;type&gt;)<br>
&nbsp; */<br>
    <br>
&nbsp; ierr = KSPSetFromOptions(ksp);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Solve linear system.&nbsp; Here we explicitly call KSPSetUp() for more<br>
&nbsp;&nbsp;&nbsp;&nbsp; detailed performance monitoring of certain preconditioners, such<br>
&nbsp;&nbsp;&nbsp;&nbsp; as ICC and ILU.&nbsp; This call is optional, as KSPSetUp() will<br>
&nbsp;&nbsp;&nbsp;&nbsp; automatically be called within KSPSolve() if it hasn't been<br>
&nbsp;&nbsp;&nbsp;&nbsp; called already.<br>
&nbsp; */<br>
&nbsp; ierr = KSPSetUp(ksp);CHKERRQ(ierr);<br>
&nbsp; ierr = KSPSolve(ksp,b,x);CHKERRQ(ierr);<br>
&nbsp;<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Check the error<br>
&nbsp; */<br>
//&nbsp;&nbsp; ierr = VecAXPY(x,none,u);CHKERRQ(ierr);<br>
//&nbsp;&nbsp; ierr = VecNorm(x,NORM_2,&amp;norm);CHKERRQ(ierr);<br>
//&nbsp;&nbsp; ierr = KSPGetIterationNumber(ksp,&amp;its);CHKERRQ(ierr);<br>
//&nbsp;&nbsp; if (norm &gt; 1.e-13){<br>
//&nbsp;&nbsp;&nbsp;&nbsp; ierr = PetscPrintf(PETSC_COMM_WORLD,"Norm of error %G,
Iterations %D\n",norm,its);CHKERRQ(ierr);<br>
//&nbsp;&nbsp; }<br>
    <br>
&nbsp; /* -------------- Stage 1: Solve Second System ----------------------
*/<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Solve another linear system with the same method.&nbsp; We reuse the KSP<br>
&nbsp;&nbsp;&nbsp;&nbsp; context, matrix and vector data structures, and hence save the<br>
&nbsp;&nbsp;&nbsp;&nbsp; overhead of creating new ones.<br>
    <br>
&nbsp;&nbsp;&nbsp;&nbsp; Indicate to PETSc profiling that we're concluding the first<br>
&nbsp;&nbsp;&nbsp;&nbsp; stage with PetscLogStagePop(), and beginning the second stage with<br>
&nbsp;&nbsp;&nbsp;&nbsp; PetscLogStagePush().<br>
&nbsp; */<br>
&nbsp; ierr = PetscLogStagePop();CHKERRQ(ierr);<br>
&nbsp; ierr = PetscLogStagePush(stages[1]);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Initialize all matrix entries to zero.&nbsp; MatZeroEntries() retains
the<br>
&nbsp;&nbsp;&nbsp;&nbsp; nonzero structure of the matrix for sparse formats.<br>
&nbsp; */<br>
&nbsp; if(matzeroent) {<br>
&nbsp;&nbsp;&nbsp; ierr = MatZeroEntries(C);CHKERRQ(ierr);<br>
&nbsp; } else {<br>
&nbsp;&nbsp;&nbsp; ierr = MatDestroy(&amp;C);<br>
&nbsp;<br>
&nbsp;&nbsp;&nbsp; ierr = MatCreate(PETSC_COMM_WORLD,&amp;C);CHKERRQ(ierr);<br>
&nbsp;&nbsp;&nbsp; ierr =
MatSetSizes(C,PETSC_DECIDE,PETSC_DECIDE,m*n,m*n);CHKERRQ(ierr);<br>
&nbsp;&nbsp;&nbsp; ierr = MatSetFromOptions(C);CHKERRQ(ierr);<br>
&nbsp;&nbsp;&nbsp; ierr = MatSetUp(C);CHKERRQ(ierr);<br>
&nbsp; }<br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Assemble matrix again.&nbsp; Note that we retain the same matrix data<br>
&nbsp;&nbsp;&nbsp;&nbsp; structure and the same nonzero pattern; we just change the values<br>
&nbsp;&nbsp;&nbsp;&nbsp; of the matrix entries.<br>
&nbsp; */<br>
&nbsp; for (Ii=Istart; Ii&lt;Iend; Ii++) { <br>
&nbsp;&nbsp;&nbsp; v = -1.0; i = Ii/n; j = Ii - i*n;&nbsp; <br>
&nbsp;&nbsp;&nbsp; if (i&gt;0)&nbsp;&nbsp; {J = Ii - n; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (i&lt;m-1) {J = Ii + n; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (j&gt;0)&nbsp;&nbsp; {J = Ii - 1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; if (j&lt;n-1) {J = Ii + 1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp; v = 4.0; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;Ii,&amp;v,ADD_VALUES);<br>
&nbsp; }<br>
&nbsp; if (mat_nonsymmetric) {<br>
&nbsp;&nbsp;&nbsp;&nbsp; for (Ii=Istart; Ii&lt;Iend; Ii++) { <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; v = -1.5; i = Ii/n;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (i&gt;1)&nbsp;&nbsp; {J = Ii-n-1; ierr =
MatSetValues(C,1,&amp;Ii,1,&amp;J,&amp;v,ADD_VALUES);CHKERRQ(ierr);}<br>
&nbsp;&nbsp;&nbsp;&nbsp; }<br>
&nbsp; } else {<br>
&nbsp;&nbsp;&nbsp; ierr = MatSetOption(C,MAT_SYMMETRIC,PETSC_TRUE);CHKERRQ(ierr);<br>
&nbsp;&nbsp;&nbsp; ierr =
MatSetOption(C,MAT_SYMMETRY_ETERNAL,PETSC_TRUE);CHKERRQ(ierr);<br>
&nbsp; }<br>
&nbsp; ierr = MatAssemblyBegin(C,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);<br>
&nbsp; ierr = MatAssemblyEnd(C,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr); <br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Compute another right-hand-side vector<br>
&nbsp; */<br>
&nbsp; ierr = MatMult(C,u,b);CHKERRQ(ierr);<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Set operators. Here the matrix that defines the linear system<br>
&nbsp;&nbsp;&nbsp;&nbsp; also serves as the preconditioning matrix.<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - The flag SAME_NONZERO_PATTERN indicates that the<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; preconditioning matrix has identical nonzero structure<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; as during the last linear solve (although the values of<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; the entries have changed). Thus, we can save some<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; work in setting up the preconditioner (e.g., no need to<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; redo symbolic factorization for ILU/ICC preconditioners).<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - If the nonzero structure of the matrix is different during<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; the second linear solve, then the flag DIFFERENT_NONZERO_PATTERN<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; must be used instead.&nbsp; If you are unsure whether the<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; matrix structure has changed or not, use the flag<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DIFFERENT_NONZERO_PATTERN.<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - Caution:&nbsp; If you specify SAME_NONZERO_PATTERN, PETSc<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; believes your assertion and does not check the structure<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; of the matrix.&nbsp; If you erroneously claim that the structure<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; is the same when it actually is not, the new preconditioner<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; will not function correctly.&nbsp; Thus, use this optimization<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; feature with caution!<br>
&nbsp; */<br>
    <br>
&nbsp; if(different_pattern) {<br>
&nbsp;&nbsp;&nbsp; ierr =
KSPSetOperators(ksp,C,C,DIFFERENT_NONZERO_PATTERN);CHKERRQ(ierr); <br>
&nbsp; }else {<br>
&nbsp;&nbsp;&nbsp; ierr = KSPSetOperators(ksp,C,C,SAME_NONZERO_PATTERN);CHKERRQ(ierr);<br>
&nbsp; }<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Solve linear system<br>
&nbsp; */<br>
&nbsp; ierr = KSPSetUp(ksp);CHKERRQ(ierr);<br>
&nbsp; ierr = KSPSolve(ksp,b,x);CHKERRQ(ierr); <br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Check the error<br>
&nbsp; */<br>
&nbsp; ierr = VecAXPY(x,none,u);CHKERRQ(ierr);<br>
&nbsp; ierr = VecNorm(x,NORM_2,&amp;norm);CHKERRQ(ierr);<br>
&nbsp; ierr = KSPGetIterationNumber(ksp,&amp;its);CHKERRQ(ierr);<br>
&nbsp; if (norm &gt; 1.e-4){<br>
&nbsp;&nbsp;&nbsp; ierr = PetscPrintf(PETSC_COMM_WORLD,"Norm of error %G, Iterations
%D\n",norm,its);CHKERRQ(ierr);<br>
&nbsp; }<br>
    <br>
&nbsp; /* <br>
&nbsp;&nbsp;&nbsp;&nbsp; Free work space.&nbsp; All PETSc objects should be destroyed when they<br>
&nbsp;&nbsp;&nbsp;&nbsp; are no longer needed.<br>
&nbsp; */<br>
&nbsp; ierr = KSPDestroy(&amp;ksp);CHKERRQ(ierr);<br>
&nbsp; ierr = VecDestroy(&amp;u);CHKERRQ(ierr);<br>
&nbsp; ierr = VecDestroy(&amp;x);CHKERRQ(ierr);<br>
&nbsp; ierr = VecDestroy(&amp;b);CHKERRQ(ierr);<br>
&nbsp; ierr = MatDestroy(&amp;C);CHKERRQ(ierr);<br>
    <br>
&nbsp; /*<br>
&nbsp;&nbsp;&nbsp;&nbsp; Indicate to PETSc profiling that we're concluding the second stage
    <br>
&nbsp; */<br>
&nbsp; ierr = PetscLogStagePop();CHKERRQ(ierr);<br>
    <br>
&nbsp; ierr = PetscFinalize();<br>
&nbsp; return 0;<br>
}<br>
    <br>
    <br>
    <br>
    <br>
    <br>
    </div>
  </blockquote>
  </div>
  <br>
  </div>
</blockquote>
<br>
</body>
</html>