/[escript]/trunk/finley/src/Quadrature.c
ViewVC logotype

Diff of /trunk/finley/src/Quadrature.c

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

revision 616 by elspeth, Wed Mar 22 02:46:56 2006 UTC revision 964 by gross, Tue Feb 13 05:10:26 2007 UTC
# Line 148  void Finley_Quad_getNodesRec(int numQuad Line 148  void Finley_Quad_getNodesRec(int numQuad
148        return;        return;
149      }      }
150    }    }
151    sprintf(error_msg,"__FILE__: Illegal number of quadrature nodes %d on hexahedron.",numQuadNodes);    sprintf(error_msg,"Finley_Quad_getNodesRec: Illegal number of quadrature nodes %d on hexahedron.",numQuadNodes);
152    Finley_setError(VALUE_ERROR,error_msg);    Finley_setError(VALUE_ERROR,error_msg);
153    #undef DIM    #undef DIM
154  }  }
# Line 193  void Finley_Quad_getNodesHex(int numQuad Line 193  void Finley_Quad_getNodesHex(int numQuad
193        return;        return;
194      }      }
195    }    }
196    sprintf(error_msg,"__FILE__: Illegal number of quadrature nodes %d on hexahedron.",numQuadNodes);    sprintf(error_msg,"Finley_Quad_getNodesHex: Illegal number of quadrature nodes %d on hexahedron.",numQuadNodes);
197    Finley_setError(VALUE_ERROR,error_msg);    Finley_setError(VALUE_ERROR,error_msg);
198    #undef DIM    #undef DIM
199  }  }
# Line 206  void Finley_Quad_getNodesHex(int numQuad Line 206  void Finley_Quad_getNodesHex(int numQuad
206    
207  void Finley_Quad_getNodesPoint(int numQuadNodes,double* quadNodes,double* quadWeights) {  void Finley_Quad_getNodesPoint(int numQuadNodes,double* quadNodes,double* quadWeights) {
208    if (numQuadNodes!=0) {    if (numQuadNodes!=0) {
209         Finley_setError(VALUE_ERROR,"__FILE__: There is no quadrature scheme on points.");         Finley_setError(VALUE_ERROR,"Finley_Quad_getNodesPoint: There is no quadrature scheme on points.");
210    }    }
211  }  }
212    
# Line 407  void Finley_Quad_makeNodesOnFace(int dim Line 407  void Finley_Quad_makeNodesOnFace(int dim
407    
408  int Finley_Quad_getNumNodesPoint(int order) {  int Finley_Quad_getNumNodesPoint(int order) {
409    if (order <0 ) {    if (order <0 ) {
410      Finley_setError(VALUE_ERROR,"__FILE__: Negative intergration order.");      Finley_setError(VALUE_ERROR,"Finley_Quad_getNumNodesPoint: Negative intergration order.");
411      return -1;      return -1;
412    } else {    } else {
413      return 0;      return 0;
# Line 417  int Finley_Quad_getNumNodesPoint(int ord Line 417  int Finley_Quad_getNumNodesPoint(int ord
417  int Finley_Quad_getNumNodesLine(int order) {  int Finley_Quad_getNumNodesLine(int order) {
418    char error_msg[LenErrorMsg_MAX];    char error_msg[LenErrorMsg_MAX];
419    if (order <0 ) {    if (order <0 ) {
420      Finley_setError(VALUE_ERROR,"__FILE__: Negative intergration order.");      Finley_setError(VALUE_ERROR,"Finley_Quad_getNumNodesPoint: Negative intergration order.");
421      return -1;      return -1;
422    } else {    } else {
423      if (order > 2*MAX_numQuadNodesLine-1) {      if (order > 2*MAX_numQuadNodesLine-1) {
424        sprintf(error_msg,"__FILE__: requested integration order %d on line is too large (>%d).",        sprintf(error_msg,"Finley_Quad_getNumNodesPoint: requested integration order %d on line is too large (>%d).",
425                                                             order,2*MAX_numQuadNodesLine-1);                                                             order,2*MAX_numQuadNodesLine-1);
426        Finley_setError(VALUE_ERROR,error_msg);        Finley_setError(VALUE_ERROR,error_msg);
427        return -1;        return -1;

Legend:
Removed from v.616  
changed lines
  Added in v.964

  ViewVC Help
Powered by ViewVC 1.1.26