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

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

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

revision 96 by jgs, Tue Oct 26 06:53:54 2004 UTC revision 97 by jgs, Tue Dec 14 05:39:33 2004 UTC
# Line 123  void Finley_Assemble_RobinCondition(Finl Line 123  void Finley_Assemble_RobinCondition(Finl
123          EM_S=EM_F=V=dVdv=dSdV=Area=NULL;          EM_S=EM_F=V=dVdv=dSdV=Area=NULL;
124          index_row=index_col=NULL;          index_row=index_col=NULL;
125          /* allocate work arrays: */          /* allocate work arrays: */
126          EM_S=(double*) THREAD_MEMALLOC(p.NN_col*p.NN_row*p.numEqu*p.numComp*sizeof(double));          EM_S=THREAD_MEMALLOC(p.NN_col*p.NN_row*p.numEqu*p.numComp,double);
127          EM_F=(double*) THREAD_MEMALLOC(p.NN_row*p.numEqu*sizeof(double));          EM_F=THREAD_MEMALLOC(p.NN_row*p.numEqu,double);
128          V=(double*) THREAD_MEMALLOC(p.NN*p.numDim*sizeof(double));          V=THREAD_MEMALLOC(p.NN*p.numDim,double);
129          dVdv=(double*) THREAD_MEMALLOC(p.numDim*p.numElementDim*p.numQuad*sizeof(double));          dVdv=THREAD_MEMALLOC(p.numDim*p.numElementDim*p.numQuad,double);
130          Area=(double*) THREAD_MEMALLOC(p.numQuad*sizeof(double));          Area=THREAD_MEMALLOC(p.numQuad,double);
131          index_row=(maybelong*) THREAD_MEMALLOC(p.NN_row*sizeof(maybelong));          index_row=THREAD_MEMALLOC(p.NN_row,maybelong);
132          index_col=(maybelong*) THREAD_MEMALLOC(p.NN_col*sizeof(maybelong));          index_col=THREAD_MEMALLOC(p.NN_col,maybelong);
133          if (! ( Finley_checkPtr(EM_S) || Finley_checkPtr(EM_F) || Finley_checkPtr(index_row) || Finley_checkPtr(index_col) ||          if (! ( Finley_checkPtr(EM_S) || Finley_checkPtr(EM_F) || Finley_checkPtr(index_row) || Finley_checkPtr(index_col) ||
134                  Finley_checkPtr(V) || Finley_checkPtr(dVdv) || Finley_checkPtr(Area))) {                  Finley_checkPtr(V) || Finley_checkPtr(dVdv) || Finley_checkPtr(Area))) {
135             /*  open loop over all colors: */             /*  open loop over all colors: */
# Line 223  void Finley_Assemble_RobinCondition(Finl Line 223  void Finley_Assemble_RobinCondition(Finl
223  }  }
224  /*  /*
225   * $Log$   * $Log$
226   * Revision 1.1  2004/10/26 06:53:57  jgs   * Revision 1.2  2004/12/14 05:39:29  jgs
227   * Initial revision   * *** empty log message ***
228     *
229     * Revision 1.1.1.1.2.1  2004/11/24 01:37:12  gross
230     * some changes dealing with the integer overflow in memory allocation. Finley solves 4M unknowns now
231     *
232     * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
233     * initial import of project esys2
234   *   *
235   * Revision 1.3  2004/07/30 04:37:06  gross   * Revision 1.3  2004/07/30 04:37:06  gross
236   * 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.96  
changed lines
  Added in v.97

  ViewVC Help
Powered by ViewVC 1.1.26