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

Diff of /branches/doubleplusgood/dudley/src/Assemble_LumpedSystem.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 158  void Dudley_Assemble_LumpedSystem(Dudley Line 158  void Dudley_Assemble_LumpedSystem(Dudley
158            }            }
159            #pragma omp parallel private(color, EM_lumpedMat, row_index, D_p, s, q, k, rtmp, diagS, m_t)            #pragma omp parallel private(color, EM_lumpedMat, row_index, D_p, s, q, k, rtmp, diagS, m_t)
160            {            {
161            EM_lumpedMat = THREAD_MEMALLOC(len_EM_lumpedMat, double);            EM_lumpedMat = new double[len_EM_lumpedMat];
162            row_index = THREAD_MEMALLOC(p.numShapes, index_t);            row_index = new index_t[p.numShapes];
163            if (!Dudley_checkPtr(EM_lumpedMat) && !Dudley_checkPtr(row_index))            if (!Dudley_checkPtr(EM_lumpedMat) && !Dudley_checkPtr(row_index))
164            {            {
165                if (p.numEqu == 1)                if (p.numEqu == 1)
# Line 382  void Dudley_Assemble_LumpedSystem(Dudley Line 382  void Dudley_Assemble_LumpedSystem(Dudley
382                }                }
383                }                }
384            }         /* end of pointer check */            }         /* end of pointer check */
385            THREAD_MEMFREE(EM_lumpedMat);            delete[] EM_lumpedMat;
386            THREAD_MEMFREE(row_index);            delete[] row_index;
387            }         /* end parallel region */            }         /* end parallel region */
388      }      }
389      }      }

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

  ViewVC Help
Powered by ViewVC 1.1.26