/[escript]/branches/arrayview_from_1695_trunk/finley/src/Assemble_AverageElementData.c
ViewVC logotype

Diff of /branches/arrayview_from_1695_trunk/finley/src/Assemble_AverageElementData.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 1030 by phornby, Wed Mar 14 05:14:44 2007 UTC
# Line 29  Line 29 
29    
30    
31  void Finley_Assemble_CopyElementData(Finley_ElementFile* elements,escriptDataC* out,escriptDataC* in) {  void Finley_Assemble_CopyElementData(Finley_ElementFile* elements,escriptDataC* out,escriptDataC* in) {
32      if (elements==NULL) return;      dim_t n,q, numElements, numQuad;
     dim_t n,q;  
     dim_t numElements=elements->numElements;  
     dim_t numQuad=elements->ReferenceElement->numQuadNodes;  
33      dim_t numComps=getDataPointSize(out);      dim_t numComps=getDataPointSize(out);
34      double *in_array,*out_array;      double *in_array,*out_array;
35    
36        if( elements == NULL )
37        {
38           return;
39        }
40    
41        numElements=elements->numElements;
42        numQuad=elements->ReferenceElement->numQuadNodes;
43    
44      Finley_resetError();      Finley_resetError();
45    
46        if (elements==NULL) return;
47        numElements=elements->numElements;
48        numQuad=elements->ReferenceElement->numQuadNodes;
49    
50      /* check out and in */      /* check out and in */
51      if (numComps!=getDataPointSize(in)) {      if (numComps!=getDataPointSize(in)) {
52         Finley_setError(TYPE_ERROR,"__FILE__: number of components of input and output Data do not match.");         Finley_setError(TYPE_ERROR,"__FILE__: number of components of input and output Data do not match.");

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

  ViewVC Help
Powered by ViewVC 1.1.26