[cig-commits] r18095 - short/3D/PyLith/trunk/libsrc/problems

[brad at geodynamics.org]

Author: brad
Date: 2011-03-14 09:26:15 -0700 (Mon, 14 Mar 2011)
New Revision: 18095

Modified:
   short/3D/PyLith/trunk/libsrc/problems/SolverNonlinear.cc
Log:
Fixed small compile error (PETSc updates).

Modified: short/3D/PyLith/trunk/libsrc/problems/SolverNonlinear.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/problems/SolverNonlinear.cc	2011-03-14 16:01:45 UTC (rev 18094)
+++ short/3D/PyLith/trunk/libsrc/problems/SolverNonlinear.cc	2011-03-14 16:26:15 UTC (rev 18095)
@@ -363,7 +363,7 @@
     PetscFunctionReturn(0);
   } // if
   ierr = VecNorm(g,NORM_2,gnorm);CHKERRQ(ierr);
-  if PetscIsInfOrNanReal(*gnorm) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_FP,"User provided compute function generated a Not-a-Number");
+  if (PetscIsInfOrNanReal(*gnorm)) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_FP,"User provided compute function generated a Not-a-Number");
   ierr = PetscInfo1(snes,"gnorm after quadratic fit %G\n",*gnorm);CHKERRQ(ierr);
   if (.5*(*gnorm)*(*gnorm) < .5*fnorm*fnorm + lambda*neP->alpha*initslope) { /* sufficient reduction */
     ierr = PetscInfo1(snes,"Quadratically determined step, lambda=%18.16e\n",lambda);CHKERRQ(ierr);