/[escript]/branches/domexper/dudley/src/ElementFile_jacobeans.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/ElementFile_jacobeans.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3137 by jfenwick, Thu Sep 2 03:01:29 2010 UTC revision 3138 by jfenwick, Thu Sep 2 05:18:42 2010 UTC
# Line 87  Dudley_ElementFile_Jacobeans* Dudley_Ele Line 87  Dudley_ElementFile_Jacobeans* Dudley_Ele
87       out->numElements=self->numElements;       out->numElements=self->numElements;
88            
89       if (reducedShapefunction) {       if (reducedShapefunction) {
         out->numSub=1;  
90          out->node_selection=refElement->Type->linearNodes;          out->node_selection=refElement->Type->linearNodes;
91          out->offsets=refElement->LinearType->offsets;          out->offsets=refElement->LinearType->offsets;
92          dBdv=basis->dSdv;          dBdv=basis->dSdv;
93       } else {       } else {
         out->numSub=refElement->Type->numSubElements;  
94          out->node_selection=refElement->Type->subElementNodes;          out->node_selection=refElement->Type->subElementNodes;
95          out->offsets=refElement->Type->offsets;          out->offsets=refElement->Type->offsets;
96          dBdv=refElement->DBasisFunctionDv;          dBdv=refElement->DBasisFunctionDv;
97       }       }
98            
99       if (out->numQuadTotal != out->numSub * basis->numQuadNodes) {       if (out->numQuadTotal != basis->numQuadNodes) {
100          Dudley_setError(SYSTEM_ERROR,"Dudley_ElementFile_borrowJacobeans: Incorrect total number of quadrature points.");          Dudley_setError(SYSTEM_ERROR,"Dudley_ElementFile_borrowJacobeans: Incorrect total number of quadrature points.");
101          return NULL;          return NULL;
102       }       }

Legend:
Removed from v.3137  
changed lines
  Added in v.3138

  ViewVC Help
Powered by ViewVC 1.1.26