/[escript]/trunk/finley/src/Assemble_LumpedSystem.c
ViewVC logotype

Diff of /trunk/finley/src/Assemble_LumpedSystem.c

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

revision 2990 by gross, Fri Mar 19 05:57:22 2010 UTC revision 2991 by gross, Mon Mar 22 05:42:48 2010 UTC
# Line 111  void Finley_Assemble_LumpedSystem(Finley Line 111  void Finley_Assemble_LumpedSystem(Finley
111      S=p.row_jac->BasisFunctions->S;      S=p.row_jac->BasisFunctions->S;
112    
113  #ifdef NEW_LUMPING  #ifdef NEW_LUMPING
114      #pragma omp parallel private(color, EM_lumpedMat, row_index, Vol, D_p, s, q, k, rtmp, diagS, m_t)      #pragma omp parallel private(color, EM_lumpedMat, row_index, Vol, D_p, s, q, k, rtmp, diagS, m_t, isub)
115  #else  #else
116      #pragma omp parallel private(color, EM_lumpedMat, row_index, Vol, D_p, s, q, k, rtmp)      #pragma omp parallel private(color, EM_lumpedMat, row_index, Vol, D_p, s, q, k, rtmp, isub)
117  #endif  #endif
118      {      {
119         EM_lumpedMat=THREAD_MEMALLOC(len_EM_lumpedMat,double);         EM_lumpedMat=THREAD_MEMALLOC(len_EM_lumpedMat,double);

Legend:
Removed from v.2990  
changed lines
  Added in v.2991

  ViewVC Help
Powered by ViewVC 1.1.26