/[escript]/branches/doubleplusgood/dudley/src/Assemble_PDE_Single2_2D.cpp
ViewVC logotype

Diff of /branches/doubleplusgood/dudley/src/Assemble_PDE_Single2_2D.cpp

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

revision 4331 by jfenwick, Wed Feb 27 06:09:33 2013 UTC revision 4332 by jfenwick, Thu Mar 21 04:21:14 2013 UTC
# Line 73  void Dudley_Assemble_PDE_Single2_2D(Dudl Line 73  void Dudley_Assemble_PDE_Single2_2D(Dudl
73    
74  #pragma omp parallel private(color,EM_S, EM_F, DSDX, A_p, B_p, C_p, D_p, X_p, Y_p, A_q, B_q, C_q, D_q, X_q, Y_q,row_index,q, s,r,rtmp00, rtmp01, rtmp10, rtmp11, rtmp, rtmp0, rtmp1,add_EM_F, add_EM_S)  #pragma omp parallel private(color,EM_S, EM_F, DSDX, A_p, B_p, C_p, D_p, X_p, Y_p, A_q, B_q, C_q, D_q, X_q, Y_q,row_index,q, s,r,rtmp00, rtmp01, rtmp10, rtmp11, rtmp, rtmp0, rtmp1,add_EM_F, add_EM_S)
75      {      {
76      EM_S = THREAD_MEMALLOC(len_EM_S, double);      EM_S = new  double[len_EM_S];
77      EM_F = THREAD_MEMALLOC(len_EM_F, double);      EM_F = new  double[len_EM_F];
78      row_index = THREAD_MEMALLOC(p.numShapes, index_t);      row_index = new  index_t[p.numShapes];
79    
80      if (!Dudley_checkPtr(EM_S) && !Dudley_checkPtr(EM_F) && !Dudley_checkPtr(row_index))      if (!Dudley_checkPtr(EM_S) && !Dudley_checkPtr(EM_F) && !Dudley_checkPtr(row_index))
81      {      {
# Line 380  void Dudley_Assemble_PDE_Single2_2D(Dudl Line 380  void Dudley_Assemble_PDE_Single2_2D(Dudl
380          }       /* end element loop */          }       /* end element loop */
381          }           /* end color loop */          }           /* end color loop */
382    
383          THREAD_MEMFREE(EM_S);          delete[] EM_S;
384          THREAD_MEMFREE(EM_F);          delete[] EM_F;
385          THREAD_MEMFREE(row_index);          delete[] row_index;
386    
387      }           /* end of pointer check */      }           /* end of pointer check */
388      }               /* end parallel region */      }               /* end parallel region */

Legend:
Removed from v.4331  
changed lines
  Added in v.4332

  ViewVC Help
Powered by ViewVC 1.1.26