[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