[cig-commits] r7727 - short/3D/PyLith/trunk/libsrc/bc

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-07-20 14:15:33 -0700 (Fri, 20 Jul 2007)
New Revision: 7727

Modified:
   short/3D/PyLith/trunk/libsrc/bc/Neumann.cc
Log:
Fixed stupid typos.



Modified: short/3D/PyLith/trunk/libsrc/bc/Neumann.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/bc/Neumann.cc	2007-07-20 21:08:47 UTC (rev 7726)
+++ short/3D/PyLith/trunk/libsrc/bc/Neumann.cc	2007-07-20 21:15:33 UTC (rev 7727)
@@ -279,13 +279,12 @@
           const double valIJ = valI * basis[iQuad*numBasis+jBasis];
           for (int iDim=0; iDim < spaceDim; ++iDim)
             _cellVector[iBasis*spaceDim+iDim] += 
-	      tractionCell[iQuad*spaceDim+iDim] *
-	      valIJ * (- dispTpdtCell[jBasis*spaceDim+iDim] 
-		       + dispTmdtCell[jBasis*spaceDim+iDim]);
+	      tractionCell[iQuad*spaceDim+iDim] * valIJ;
         } // for
       } // for
     } // for
-    err = PetscLogFlops(numQuadPts*(1+numBasis*(1+numBasis*(1+5*spaceDim))));
+    err = PetscLogFlops(numQuadPts*(1+numBasis*(1+numBasis*(1+2*spaceDim))));
+  } // for
 } // integrateResidual
 
 // ----------------------------------------------------------------------