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

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

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

revision 3204 by jfenwick, Mon Sep 6 00:50:17 2010 UTC revision 3205 by jfenwick, Fri Sep 24 00:30:43 2010 UTC
# Line 133  void Dudley_Assemble_PDE(Dudley_NodeFile Line 133  void Dudley_Assemble_PDE(Dudley_NodeFile
133    
134    /* check if all function spaces are the same */    /* check if all function spaces are the same */
135    
136    if (! numSamplesEqual(A,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(A,p.numQuad,elements->numElements) ) {
137          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient A don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient A don't match (%d,%d)",p.numQuad,elements->numElements);
138          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
139    }    }
140    
141    if (! numSamplesEqual(B,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(B,p.numQuad,elements->numElements) ) {
142          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient B don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient B don't match (%d,%d)",p.numQuad,elements->numElements);
143          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
144    }    }
145    
146    if (! numSamplesEqual(C,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(C,p.numQuad,elements->numElements) ) {
147          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient C don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient C don't match (%d,%d)",p.numQuad,elements->numElements);
148          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
149    }    }
150    
151    if (! numSamplesEqual(D,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(D,p.numQuad,elements->numElements) ) {
152          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient D don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient D don't match (%d,%d)",p.numQuad,elements->numElements);
153          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
154    }    }
155    
156    if (! numSamplesEqual(X,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(X,p.numQuad,elements->numElements) ) {
157          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient X don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient X don't match (%d,%d)",p.numQuad,elements->numElements);
158          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
159    }    }
160    
161    if (! numSamplesEqual(Y,p.numQuadTotal,elements->numElements) ) {    if (! numSamplesEqual(Y,p.numQuad,elements->numElements) ) {
162          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient Y don't match (%d,%d)",p.numQuadTotal,elements->numElements);          sprintf(error_msg,"Dudley_Assemble_PDE: sample points of coefficient Y don't match (%d,%d)",p.numQuad,elements->numElements);
163          Dudley_setError(TYPE_ERROR,error_msg);          Dudley_setError(TYPE_ERROR,error_msg);
164    }    }
165    

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

  ViewVC Help
Powered by ViewVC 1.1.26