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

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

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

revision 3204 by jfenwick, Thu Sep 23 23:59:39 2010 UTC revision 3205 by jfenwick, Fri Sep 24 00:30:43 2010 UTC
# Line 125  void Assemble_getAssembleParameters(Dudl Line 125  void Assemble_getAssembleParameters(Dudl
125    if (elements->numNodes < parm->row_jac->numShapes) {    if (elements->numNodes < parm->row_jac->numShapes) {
126        Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: too many nodes are expected by row.");          Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: too many nodes are expected by row.");  
127    }    }
   if (elements->numNodes < parm->row_jac->numShapes) {  
       Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: too many nodes are expected by col.");    
   }  
128    if ( parm->row_jac->numElements !=elements->numElements) {    if ( parm->row_jac->numElements !=elements->numElements) {
129        Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: number of elements for row is wrong.");        Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: number of elements for row is wrong.");
130    }    }
131    if ( parm->row_jac->numElements !=elements->numElements) {  
       Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: number of elements for column is wrong.");  
   }  
   if ( parm->row_jac->numQuadTotal !=parm->row_jac->numQuadTotal) {  
       Dudley_setError(TYPE_ERROR,"Assemble_getAssembleParameters: number of quadrature points for row and column shape functions must match.");  
   }  
132        
133    parm->numQuadTotal=parm->row_jac->numQuadTotal;    parm->numQuad=parm->row_jac->numQuad;
134    parm->NN=elements->numNodes;    parm->NN=elements->numNodes;
135    parm->numElements=elements->numElements;    parm->numElements=elements->numElements;
136    parm->numDim=parm->row_jac->numDim;    parm->numDim=parm->row_jac->numDim;
137    parm->numShapes=parm->row_jac->numShapes;    parm->numShapes=parm->row_jac->numShapes;
 //  parm->numShapes=parm->row_jac->BasisFunctions->Type->numShapes;  
138            
139    
140  }  }

Legend:
Removed from v.3204  
changed lines
  Added in v.3205

  ViewVC Help
Powered by ViewVC 1.1.26