/[escript]/branches/doubleplusgood/finley/src/Assemble_integrate.cpp
ViewVC logotype

Diff of /branches/doubleplusgood/finley/src/Assemble_integrate.cpp

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

revision 4326 by jfenwick, Wed Feb 27 06:09:33 2013 UTC revision 4327 by jfenwick, Wed Mar 20 05:09:11 2013 UTC
# Line 54  void Finley_Assemble_integrate(Finley_No Line 54  void Finley_Assemble_integrate(Finley_No
54              for (q=0;q<numComps;q++) out[q]=0;              for (q=0;q<numComps;q++) out[q]=0;
55              #pragma omp parallel private(q,i,rtmp,data_array,out_local)              #pragma omp parallel private(q,i,rtmp,data_array,out_local)
56              {              {
57                  out_local=THREAD_MEMALLOC(numComps,double);                  out_local=new double[numComps];
58                  if (! Finley_checkPtr(out_local) ) {                  if (! Finley_checkPtr(out_local) ) {
59                     /* initialize local result */                     /* initialize local result */
60    
# Line 87  void Finley_Assemble_integrate(Finley_No Line 87  void Finley_Assemble_integrate(Finley_No
87                     #pragma omp critical                     #pragma omp critical
88                     for (i=0;i<numComps;i++) out[i]+=out_local[i];                     for (i=0;i<numComps;i++) out[i]+=out_local[i];
89                  }                  }
90                  THREAD_MEMFREE(out_local);                  delete[] out_local;
91              }              }
92          }          }
93      }      }

Legend:
Removed from v.4326  
changed lines
  Added in v.4327

  ViewVC Help
Powered by ViewVC 1.1.26