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

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

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

revision 4261 by jfenwick, Wed Feb 27 06:09:33 2013 UTC revision 4332 by jfenwick, Thu Mar 21 04:21:14 2013 UTC
# Line 72  void Dudley_Assemble_PDE_System2_2D(Dudl Line 72  void Dudley_Assemble_PDE_System2_2D(Dudl
72  #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,k,m,rtmp, rtmp0, rtmp1, rtmp00, rtmp10, rtmp01, rtmp11,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,k,m,rtmp, rtmp0, rtmp1, rtmp00, rtmp10, rtmp01, rtmp11,add_EM_F, add_EM_S)
73      {      {
74    
75      EM_S = THREAD_MEMALLOC(len_EM_S, double);      EM_S = new  double[len_EM_S];
76      EM_F = THREAD_MEMALLOC(len_EM_F, double);      EM_F = new  double[len_EM_F];
77      row_index = THREAD_MEMALLOC(p.numShapes, index_t);      row_index = new  index_t[p.numShapes];
78    
79      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))
80      {      {
# Line 444  void Dudley_Assemble_PDE_System2_2D(Dudl Line 444  void Dudley_Assemble_PDE_System2_2D(Dudl
444          }       /* end element loop */          }       /* end element loop */
445          }           /* end color loop */          }           /* end color loop */
446    
447          THREAD_MEMFREE(EM_S);          delete[] EM_S;
448          THREAD_MEMFREE(EM_F);          delete[] EM_F;
449          THREAD_MEMFREE(row_index);          delete[] row_index;
450    
451      }           /* end of pointer check */      }           /* end of pointer check */
452      }               /* end parallel region */      }               /* end parallel region */

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

  ViewVC Help
Powered by ViewVC 1.1.26