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

brad at geodynamics.org brad at geodynamics.org
Thu Jun 18 14:53:41 PDT 2009


Author: brad
Date: 2009-06-18 14:53:40 -0700 (Thu, 18 Jun 2009)
New Revision: 15335

Modified:
   short/3D/PyLith/trunk/libsrc/bc/Neumann_NEW.cc
Log:
Removed some extra variables.

Modified: short/3D/PyLith/trunk/libsrc/bc/Neumann_NEW.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/bc/Neumann_NEW.cc	2009-06-18 21:29:10 UTC (rev 15334)
+++ short/3D/PyLith/trunk/libsrc/bc/Neumann_NEW.cc	2009-06-18 21:53:40 UTC (rev 15335)
@@ -423,9 +423,7 @@
   // Containers for database query results and quadrature coordinates in
   // reference geometry.
   double_array valuesCell(numQuadPts*querySize);
-  double_array quadPtRef(cellDim);
   double_array quadPtsGlobal(numQuadPts*spaceDim);
-  const double_array& quadPtsRef = _quadrature->quadPtsRef();
 
   // Get sections.
   double_array coordinatesCell(numBasis*spaceDim);
@@ -468,9 +466,9 @@
 				lengthScale);
     
     valuesCell = 0.0;
-    for(int iQuad=0, iSpace=0; 
-	iQuad < numQuadPts;
-	++iQuad, iSpace+=spaceDim) {
+    for (int iQuad=0, iSpace=0; 
+	 iQuad < numQuadPts;
+	 ++iQuad, iSpace+=spaceDim) {
       const int err = db->query(&valuesCell[iQuad*querySize], querySize,
 				&quadPtsGlobal[iSpace], spaceDim, cs);
       



More information about the CIG-COMMITS mailing list