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

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

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

revision 114 by jgs, Wed Dec 15 07:08:39 2004 UTC revision 115 by jgs, Fri Mar 4 07:12:47 2005 UTC
# Line 72  void Finley_Assemble_getSize(Finley_Node Line 72  void Finley_Assemble_getSize(Finley_Node
72         local_X=THREAD_MEMALLOC(NN*numDim,double);         local_X=THREAD_MEMALLOC(NN*numDim,double);
73         if (! Finley_checkPtr(local_X) ) {         if (! Finley_checkPtr(local_X) ) {
74           /* open the element loop */           /* open the element loop */
75               #pragma omp for private(e,min_diff,diff,n0,n1,d,q,i,element_size_array)               #pragma omp for private(e,min_diff,diff,n0,n1,d,q,i,element_size_array) schedule(static)
76           for(e=0;e<elements->numElements;e++) {           for(e=0;e<elements->numElements;e++) {
77             /* gather local coordinates of nodes into local_X(numDim,NN): */             /* gather local coordinates of nodes into local_X(numDim,NN): */
78             Finley_Util_Gather_double(NS,&(elements->Nodes[INDEX2(node_offset,e,NN)]),numDim,nodes->Coordinates,local_X);             Finley_Util_Gather_double(NS,&(elements->Nodes[INDEX2(node_offset,e,NN)]),numDim,nodes->Coordinates,local_X);
# Line 103  void Finley_Assemble_getSize(Finley_Node Line 103  void Finley_Assemble_getSize(Finley_Node
103    }    }
104    return;    return;
105  }  }
 /*  
  * $Log$  
  * Revision 1.4  2004/12/15 07:08:32  jgs  
  * *** empty log message ***  
  *  
  *  
  *  
  */  

Legend:
Removed from v.114  
changed lines
  Added in v.115

  ViewVC Help
Powered by ViewVC 1.1.26