[cig-commits] r16240 - short/3D/PyLith/trunk/libsrc/feassemble
brad at geodynamics.org
brad at geodynamics.org
Mon Feb 8 14:39:12 PST 2010
Author: brad
Date: 2010-02-08 14:39:12 -0800 (Mon, 08 Feb 2010)
New Revision: 16240
Modified:
short/3D/PyLith/trunk/libsrc/feassemble/IntegratorElasticity.cc
Log:
Set more constants.
Modified: short/3D/PyLith/trunk/libsrc/feassemble/IntegratorElasticity.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/feassemble/IntegratorElasticity.cc 2010-02-08 21:27:10 UTC (rev 16239)
+++ short/3D/PyLith/trunk/libsrc/feassemble/IntegratorElasticity.cc 2010-02-08 22:39:12 UTC (rev 16240)
@@ -632,15 +632,17 @@
pylith::feassemble::IntegratorElasticity::_elasticityResidual1D(
const double_array& stress)
{ // _elasticityResidual1D
+ const int spaceDim = 1;
+ const int cellDim = 1;
+
const int numQuadPts = _quadrature->numQuadPts();
const int numBasis = _quadrature->numBasis();
- const int spaceDim = _quadrature->spaceDim();
- const int cellDim = _quadrature->cellDim();
const double_array& quadWts = _quadrature->quadWts();
const double_array& jacobianDet = _quadrature->jacobianDet();
const double_array& basisDeriv = _quadrature->basisDeriv();
- assert(1 == cellDim);
+ assert(_quadrature->spaceDim() == spaceDim);
+ assert(_quadrature->cellDim() == cellDim);
assert(quadWts.size() == numQuadPts);
for (int iQuad=0; iQuad < numQuadPts; ++iQuad) {
@@ -660,17 +662,19 @@
pylith::feassemble::IntegratorElasticity::_elasticityResidual2D(
const double_array& stress)
{ // _elasticityResidual2D
+ const int cellDim = 2;
+ const int spaceDim = 2;
+ const int stressSize = 3;
+
const int numQuadPts = _quadrature->numQuadPts();
const int numBasis = _quadrature->numBasis();
- const int spaceDim = _quadrature->spaceDim();
- const int cellDim = _quadrature->cellDim();
const double_array& quadWts = _quadrature->quadWts();
const double_array& jacobianDet = _quadrature->jacobianDet();
const double_array& basisDeriv = _quadrature->basisDeriv();
- assert(2 == cellDim);
+ assert(_quadrature->spaceDim() == spaceDim);
+ assert(_quadrature->cellDim() == cellDim);
assert(quadWts.size() == numQuadPts);
- const int stressSize = 3;
for (int iQuad=0; iQuad < numQuadPts; ++iQuad) {
const int iQs = iQuad*stressSize;
@@ -744,15 +748,17 @@
pylith::feassemble::IntegratorElasticity::_elasticityJacobian1D(
const double_array& elasticConsts)
{ // _elasticityJacobian1D
+ const int cellDim = 1;
+ const int spaceDim = 1;
+
const int numQuadPts = _quadrature->numQuadPts();
const int numBasis = _quadrature->numBasis();
- const int spaceDim = _quadrature->spaceDim();
- const int cellDim = _quadrature->cellDim();
const double_array& quadWts = _quadrature->quadWts();
const double_array& jacobianDet = _quadrature->jacobianDet();
const double_array& basisDeriv = _quadrature->basisDeriv();
- assert(1 == cellDim);
+ assert(_quadrature->spaceDim() == spaceDim);
+ assert(_quadrature->cellDim() == cellDim);
assert(quadWts.size() == numQuadPts);
for (int iQuad=0; iQuad < numQuadPts; ++iQuad) {
@@ -809,17 +815,19 @@
pylith::feassemble::IntegratorElasticity::_elasticityJacobian2D(
const double_array& elasticConsts)
{ // _elasticityJacobian2D
+ const int spaceDim = 2;
+ const int cellDim = 2;
+ const int numConsts = 6;
+
const int numQuadPts = _quadrature->numQuadPts();
const int numBasis = _quadrature->numBasis();
- const int spaceDim = _quadrature->spaceDim();
- const int cellDim = _quadrature->cellDim();
const double_array& quadWts = _quadrature->quadWts();
const double_array& jacobianDet = _quadrature->jacobianDet();
const double_array& basisDeriv = _quadrature->basisDeriv();
- assert(2 == cellDim);
+ assert(_quadrature->spaceDim() == spaceDim);
+ assert(_quadrature->cellDim() == cellDim);
assert(quadWts.size() == numQuadPts);
- const int numConsts = 6;
for (int iQuad=0; iQuad < numQuadPts; ++iQuad) {
const double wt = quadWts[iQuad] * jacobianDet[iQuad];
More information about the CIG-COMMITS
mailing list