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

Diff of /branches/doubleplusgood/dudley/src/Assemble_PDE_System2_3D.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 71  void Dudley_Assemble_PDE_System2_3D(Dudl Line 71  void Dudley_Assemble_PDE_System2_3D(Dudl
71    
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, rtmp2, rtmp00, rtmp01, rtmp02, rtmp10, rtmp11, rtmp12, rtmp20, rtmp21, rtmp22,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, rtmp2, rtmp00, rtmp01, rtmp02, rtmp10, rtmp11, rtmp12, rtmp20, rtmp21, rtmp22,add_EM_F, add_EM_S)
73      {      {
74      EM_S = THREAD_MEMALLOC(len_EM_S, double);      EM_S = new  double[len_EM_S];
75      EM_F = THREAD_MEMALLOC(len_EM_F, double);      EM_F = new  double[len_EM_F];
76      row_index = THREAD_MEMALLOC(p.numShapes, index_t);      row_index = new  index_t[p.numShapes];
77    
78      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))
79      {      {
# Line 491  void Dudley_Assemble_PDE_System2_3D(Dudl Line 491  void Dudley_Assemble_PDE_System2_3D(Dudl
491          }       /* end element loop */          }       /* end element loop */
492          }           /* end color loop */          }           /* end color loop */
493    
494          THREAD_MEMFREE(EM_S);          delete[] EM_S;
495          THREAD_MEMFREE(EM_F);          delete[] EM_F;
496          THREAD_MEMFREE(row_index);          delete[] row_index;
497    
498      }           /* end of pointer check */      }           /* end of pointer check */
499      }               /* 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