[cig-commits] r18096 - short/3D/PyLith/branches/v1.5-stable/libsrc/problems

[brad at geodynamics.org]

Author: brad
Date: 2011-03-14 10:21:10 -0700 (Mon, 14 Mar 2011)
New Revision: 18096

Modified:
   short/3D/PyLith/branches/v1.5-stable/libsrc/problems/SolverNonlinear.cc
Log:
Fix for updates to PETSc.

Modified: short/3D/PyLith/branches/v1.5-stable/libsrc/problems/SolverNonlinear.cc
===================================================================
--- short/3D/PyLith/branches/v1.5-stable/libsrc/problems/SolverNonlinear.cc	2011-03-14 16:26:15 UTC (rev 18095)
+++ short/3D/PyLith/branches/v1.5-stable/libsrc/problems/SolverNonlinear.cc	2011-03-14 17:21:10 UTC (rev 18096)
@@ -288,7 +288,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);