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

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

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

revision 102 by jgs, Wed Dec 15 07:08:39 2004 UTC revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC
# Line 22  Line 22 
22  void Finley_ElementFile_optimizeDistribution(Finley_ElementFile** in) {  void Finley_ElementFile_optimizeDistribution(Finley_ElementFile** in) {
23       Finley_Util_ValueAndIndex* item_list=NULL;       Finley_Util_ValueAndIndex* item_list=NULL;
24       Finley_ElementFile* out=NULL;       Finley_ElementFile* out=NULL;
25       maybelong* index=NULL,e,i;       dim_t e,i;
26         index_t *index=NULL;
27    
28       if (*in != NULL) {       if (*in != NULL) {
29          if ((*in)->numElements<1) return;          if ((*in)->numElements<1) return;
30          maybelong NN=(*in)->ReferenceElement->Type->numNodes;          dim_t NN=(*in)->ReferenceElement->Type->numNodes;
31          item_list=TMPMEMALLOC((*in)->numElements,Finley_Util_ValueAndIndex);          item_list=TMPMEMALLOC((*in)->numElements,Finley_Util_ValueAndIndex);
32          index=TMPMEMALLOC((*in)->numElements,maybelong);          index=TMPMEMALLOC((*in)->numElements,index_t);
33          if (! (Finley_checkPtr(item_list) || Finley_checkPtr(index)) ) {          if (! (Finley_checkPtr(item_list) || Finley_checkPtr(index)) ) {
34             out=Finley_ElementFile_alloc((*in)->ReferenceElement->Type->TypeId,(*in)->order);             out=Finley_ElementFile_alloc((*in)->ReferenceElement->Type->TypeId,(*in)->order);
35             if (Finley_ErrorCode==NO_ERROR) {             if (Finley_ErrorCode==NO_ERROR) {
# Line 57  void Finley_ElementFile_optimizeDistribu Line 58  void Finley_ElementFile_optimizeDistribu
58  }  }
59  /*  /*
60  * $Log$  * $Log$
61    * Revision 1.5  2005/07/08 04:07:50  jgs
62    * Merge of development branch back to main trunk on 2005-07-08
63    *
64  * Revision 1.4  2004/12/15 07:08:32  jgs  * Revision 1.4  2004/12/15 07:08:32  jgs
65  * *** empty log message ***  * *** empty log message ***
66    * Revision 1.1.1.1.2.2  2005/06/29 02:34:50  gross
67    * some changes towards 64 integers in finley
68    *
69    * Revision 1.1.1.1.2.1  2004/11/24 01:37:13  gross
70    * some changes dealing with the integer overflow in memory allocation. Finley solves 4M unknowns now
71  *  *
72  *  *
73  *  *

Legend:
Removed from v.102  
changed lines
  Added in v.123

  ViewVC Help
Powered by ViewVC 1.1.26