/[escript]/branches/domexper/dudley/src/NodeFile.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/NodeFile.c

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

trunk/esys2/finley/src/finleyC/NodeFile.c revision 97 by jgs, Tue Dec 14 05:39:33 2004 UTC trunk/finley/src/NodeFile.c revision 782 by bcumming, Tue Jul 18 00:47:47 2006 UTC
# Line 1  Line 1 
1  /* $Id$ */  /*
2     ************************************************************
3     *          Copyright 2006 by ACcESS MNRF                   *
4     *                                                          *
5     *              http://www.access.edu.au                    *
6     *       Primary Business: Queensland, Australia            *
7     *  Licensed under the Open Software License version 3.0    *
8     *     http://www.opensource.org/licenses/osl-3.0.php       *
9     *                                                          *
10     ************************************************************
11    */
12    
13  /**************************************************************/  /**************************************************************/
14  /*                                                             */  /*                                                             */
15  /*   Finley: Mesh : NodeFile */  /*   Finley: Mesh : NodeFile */
# Line 7  Line 18 
18  /*                                                             */  /*                                                             */
19  /**************************************************************/  /**************************************************************/
20    
 /*   Copyrights by ACcESS Australia 2003/04 */  
21  /*   Author: gross@access.edu.au */  /*   Author: gross@access.edu.au */
22  /*   Version: $Id$ */  /*   Version: $Id$ */
23    
24  /**************************************************************/  /**************************************************************/
25    
 #include "Finley.h"  
26  #include "NodeFile.h"  #include "NodeFile.h"
27    
28  /**************************************************************/  /**************************************************************/
29    
30  /*   allocates a node file to hold nodes */  /*   allocates a node file to hold nodes */
31  /*   use Finley_NodeFile_allocTable to allocate the node table (Id,Coordinatess). */  /*   use Finley_NodeFile_allocTable to allocate the node table (Id,Coordinatess). */
32    #ifdef PASO_MPI
33  Finley_NodeFile* Finley_NodeFile_alloc(int numDim){  Finley_NodeFile* Finley_NodeFile_alloc(dim_t numDim, Paso_MPIInfo *MPIInfo){
34    #else
35    Finley_NodeFile* Finley_NodeFile_alloc(dim_t numDim){
36    #endif
37    Finley_NodeFile *out;    Finley_NodeFile *out;
38        
39    /*  allocate the return value */    /*  allocate the return value */
# Line 39  Finley_NodeFile* Finley_NodeFile_alloc(i Line 51  Finley_NodeFile* Finley_NodeFile_alloc(i
51    out->degreeOfFreedom=NULL;    out->degreeOfFreedom=NULL;
52    out->reducedDegreeOfFreedom=NULL;    out->reducedDegreeOfFreedom=NULL;
53    out->toReduced=NULL;    out->toReduced=NULL;
54      out->status=FINLEY_INITIAL_STATUS;
55    #ifdef PASO_MPI
56      out->Dom=NULL;
57      out->MPIInfo = Paso_MPIInfo_getReference( MPIInfo );
58      out->degreeOfFreedomDistribution = Finley_NodeDistribution_alloc( MPIInfo );
59      out->reducedDegreeOfFreedomDistribution = Finley_NodeDistribution_alloc( MPIInfo );
60      out->CommBuffer = Paso_CommBuffer_alloc( MPIInfo, __g_nodeTag++ );
61      out->reducedCommBuffer = Paso_CommBuffer_alloc( MPIInfo, __g_nodeTag++ );
62    #endif
63    return out;    return out;
64  }  }
65    
# Line 49  void Finley_NodeFile_dealloc(Finley_Node Line 70  void Finley_NodeFile_dealloc(Finley_Node
70       #ifdef Finley_TRACE       #ifdef Finley_TRACE
71       printf("node file is deallocated.\n");       printf("node file is deallocated.\n");
72       #endif       #endif
73       Finley_NodeFile_deallocTable(in);         Finley_NodeFile_deallocTable(in);
74    #ifdef PASO_MPI
75         Paso_MPIInfo_dealloc( in->MPIInfo );
76         Finley_NodeDistribution_dealloc( in->degreeOfFreedomDistribution );
77         Finley_NodeDistribution_dealloc( in->reducedDegreeOfFreedomDistribution );
78         Paso_CommBuffer_dealloc( in->CommBuffer );
79         Paso_CommBuffer_dealloc( in->reducedCommBuffer );
80    #endif
81       MEMFREE(in);             MEMFREE(in);      
82    }    }
83  }  }
84  /*  /*
85  * $Log$  * $Log$
86  * Revision 1.2  2004/12/14 05:39:30  jgs  * Revision 1.5  2005/09/15 03:44:23  jgs
87  * *** empty log message ***  * Merge of development branch dev-02 back to main trunk on 2005-09-15
88  *  *
89  * Revision 1.1.1.1.2.1  2004/11/24 01:37:14  gross  * Revision 1.4.2.1  2005/09/07 06:26:20  gross
90  * some changes dealing with the integer overflow in memory allocation. Finley solves 4M unknowns now  * the solver from finley are put into the standalone package paso now
91  *  *
92  * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  * Revision 1.4  2004/12/15 07:08:33  jgs
93  * initial import of project esys2  * *** empty log message ***
94  *  *
 * Revision 1.1.1.1  2004/06/24 04:00:40  johng  
 * Initial version of eys using boost-python.  
95  *  *
96  *  *
97  */  */

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

  ViewVC Help
Powered by ViewVC 1.1.26