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

Diff of /branches/doubleplusgood/finley/src/Assemble_PDE_Single2_3D.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 73  void  Finley_Assemble_PDE_Single2_3D(Fin Line 73  void  Finley_Assemble_PDE_Single2_3D(Fin
73    
74      #pragma omp parallel private(color,EM_S, EM_F, Vol, 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,rtmp, rtmp00, rtmp01, rtmp02, rtmp10, rtmp11, rtmp12, rtmp20, rtmp21, rtmp22, rtmp0, rtmp1, rtmp2,add_EM_F, add_EM_S, isub)      #pragma omp parallel private(color,EM_S, EM_F, Vol, 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,rtmp, rtmp00, rtmp01, rtmp02, rtmp10, rtmp11, rtmp12, rtmp20, rtmp21, rtmp22, rtmp0, rtmp1, rtmp2,add_EM_F, add_EM_S, isub)
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.row_numShapesTotal,index_t);         row_index=new index_t[p.row_numShapesTotal];
79                                                                                                                                                                                                                                                                                                                                                                                                            
80         if (!Finley_checkPtr(EM_S) && !Finley_checkPtr(EM_F) && !Finley_checkPtr(row_index) ) {         if (!Finley_checkPtr(EM_S) && !Finley_checkPtr(EM_F) && !Finley_checkPtr(row_index) ) {
81    
# Line 327  void  Finley_Assemble_PDE_Single2_3D(Fin Line 327  void  Finley_Assemble_PDE_Single2_3D(Fin
327               } /* end element loop */               } /* end element loop */
328           } /* end color loop */           } /* end color loop */
329                        
330           THREAD_MEMFREE(EM_S);           delete[] EM_S;
331           THREAD_MEMFREE(EM_F);           delete[] EM_F;
332           THREAD_MEMFREE(row_index);           delete[] row_index;
333    
334        } /* end of pointer check */        } /* end of pointer check */
335     } /* end parallel region */     } /* end parallel region */

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

  ViewVC Help
Powered by ViewVC 1.1.26