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

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

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

revision 82 by jgs, Tue Oct 26 06:53:54 2004 UTC revision 97 by jgs, Tue Dec 14 05:39:33 2004 UTC
# Line 251  void Finley_Assemble_PDE(Finley_NodeFile Line 251  void Finley_Assemble_PDE(Finley_NodeFile
251    
252           /* allocate work arrays: */           /* allocate work arrays: */
253    
254           EM_S=(double*) THREAD_MEMALLOC(p.NN_row*p.NN_col*p.numEqu*p.numComp*sizeof(double));           EM_S=(double*) THREAD_MEMALLOC(p.NN_row*p.NN_col*p.numEqu*p.numComp,double);
255           EM_F=(double*) THREAD_MEMALLOC(p.NN_row*p.numEqu*sizeof(double));           EM_F=(double*) THREAD_MEMALLOC(p.NN_row*p.numEqu,double);
256           V=(double*) THREAD_MEMALLOC(p.NN*p.numDim*sizeof(double));           V=(double*) THREAD_MEMALLOC(p.NN*p.numDim,double);
257           dVdv=(double*) THREAD_MEMALLOC(p.numDim*p.numDim*p.numQuad*sizeof(double));           dVdv=(double*) THREAD_MEMALLOC(p.numDim*p.numDim*p.numQuad,double);
258           dvdV=(double*) THREAD_MEMALLOC(p.numDim*p.numDim*p.numQuad*sizeof(double));           dvdV=(double*) THREAD_MEMALLOC(p.numDim*p.numDim*p.numQuad,double);
259           dSdV=(double*) THREAD_MEMALLOC(p.NS_row*p.numQuad*p.numDim*sizeof(double));           dSdV=(double*) THREAD_MEMALLOC(p.NS_row*p.numQuad*p.numDim,double);
260           Vol=(double*) THREAD_MEMALLOC(p.numQuad*sizeof(double));           Vol=(double*) THREAD_MEMALLOC(p.numQuad,double);
261           index_col=(maybelong*) THREAD_MEMALLOC(p.NN_col*sizeof(maybelong));           index_col=(maybelong*) THREAD_MEMALLOC(p.NN_col,maybelong);
262           index_row=(maybelong*) THREAD_MEMALLOC(p.NN_row*sizeof(maybelong));           index_row=(maybelong*) THREAD_MEMALLOC(p.NN_row,maybelong);
263    
264           if (! (Finley_checkPtr(EM_S) || Finley_checkPtr(EM_F) || Finley_checkPtr(V) || Finley_checkPtr(index_col) ||           if (! (Finley_checkPtr(EM_S) || Finley_checkPtr(EM_F) || Finley_checkPtr(V) || Finley_checkPtr(index_col) ||
265                  Finley_checkPtr(index_row) || Finley_checkPtr(dVdv) || Finley_checkPtr(dSdV) || Finley_checkPtr(Vol) ))  {                  Finley_checkPtr(index_row) || Finley_checkPtr(dVdv) || Finley_checkPtr(dSdV) || Finley_checkPtr(Vol) ))  {
# Line 342  void Finley_Assemble_PDE(Finley_NodeFile Line 342  void Finley_Assemble_PDE(Finley_NodeFile
342  }  }
343  /*  /*
344   * $Log$   * $Log$
345   * Revision 1.1  2004/10/26 06:53:57  jgs   * Revision 1.2  2004/12/14 05:39:29  jgs
346   * Initial revision   * *** empty log message ***
347     *
348     * Revision 1.1.1.1.2.1  2004/11/24 01:37:12  gross
349     * some changes dealing with the integer overflow in memory allocation. Finley solves 4M unknowns now
350     *
351     * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
352     * initial import of project esys2
353   *   *
354   * Revision 1.3  2004/07/30 04:37:06  gross   * Revision 1.3  2004/07/30 04:37:06  gross
355   * escript and finley are linking now and RecMeshTest.py has been passed   * escript and finley are linking now and RecMeshTest.py has been passed

Legend:
Removed from v.82  
changed lines
  Added in v.97

  ViewVC Help
Powered by ViewVC 1.1.26