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

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

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

revision 100 by jgs, Wed Dec 15 03:48:48 2004 UTC revision 102 by jgs, Wed Dec 15 07:08:39 2004 UTC
# Line 98  void Finley_Assemble_interpolate(Finley_ Line 98  void Finley_Assemble_interpolate(Finley_
98         {         {
99            local_data=NULL;            local_data=NULL;
100            /* allocation of work arrays */            /* allocation of work arrays */
101            local_data=(double*) THREAD_MEMALLOC(NS*numComps*sizeof(double));            local_data=THREAD_MEMALLOC(NS*numComps,double);
102            if (! Finley_checkPtr(local_data)) {            if (! Finley_checkPtr(local_data)) {
103    
104          /* open the element loop */          /* open the element loop */
# Line 112  void Finley_Assemble_interpolate(Finley_ Line 112  void Finley_Assemble_interpolate(Finley_
112                             i=elements->Nodes[INDEX2(resort_nodes[dof_offset+q],e,NN)];                             i=elements->Nodes[INDEX2(resort_nodes[dof_offset+q],e,NN)];
113                             data_array=getSampleData(data,i);                             data_array=getSampleData(data,i);
114                             Finley_copyDouble(numComps,data_array,local_data+q*numComps);                             Finley_copyDouble(numComps,data_array,local_data+q*numComps);
115                            }
116                          break;                          break;
117                   case DOF:                   case DOF:
118                          for (q=0;q<NS_DOF;q++) {                          for (q=0;q<NS_DOF;q++) {
# Line 137  void Finley_Assemble_interpolate(Finley_ Line 138  void Finley_Assemble_interpolate(Finley_
138    
139            }            }
140        THREAD_MEMFREE(local_data);        THREAD_MEMFREE(local_data);
141          }       } /* end of parallel region */
       }  
142    }    }
143    #undef NODES    #undef NODES
144    #undef DOF    #undef DOF
# Line 146  void Finley_Assemble_interpolate(Finley_ Line 146  void Finley_Assemble_interpolate(Finley_
146  }  }
147  /*  /*
148   * $Log$   * $Log$
149   * Revision 1.3  2004/12/15 03:48:45  jgs   * Revision 1.4  2004/12/15 07:08:32  jgs
150   * *** empty log message ***   * *** empty log message ***
151   *   *
  * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  
  * initial import of project esys2  
  *  
  * Revision 1.2  2004/07/21 05:00:54  gross  
  * name changes in DataC  
  *  
  * Revision 1.1  2004/07/02 04:21:13  gross  
  * Finley C code has been included  
152   *   *
153   *   *
154   */   */

Legend:
Removed from v.100  
changed lines
  Added in v.102

  ViewVC Help
Powered by ViewVC 1.1.26