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

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

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

revision 729 by elspeth, Wed Mar 22 02:46:56 2006 UTC revision 730 by bcumming, Mon May 15 04:03:49 2006 UTC
# Line 28  Line 28 
28    
29  /**************************************************************/  /**************************************************************/
30    
31  Finley_ElementFile* Finley_ElementFile_alloc(ElementTypeId id,index_t order){  #ifndef PASO_MPI
32    Finley_ElementFile* Finley_ElementFile_alloc(ElementTypeId id,index_t order)
33    #else
34    Finley_ElementFile* Finley_ElementFile_alloc(ElementTypeId id,index_t order, Paso_MPIInfo *MPIInfo)
35    #endif
36    {
37    extern Finley_RefElementInfo Finley_RefElement_InfoList[];    extern Finley_RefElementInfo Finley_RefElement_InfoList[];
38    dim_t NQ;    dim_t NQ;
39    Finley_ElementFile *out;    Finley_ElementFile *out;
# Line 63  Finley_ElementFile* Finley_ElementFile_a Line 68  Finley_ElementFile* Finley_ElementFile_a
68    out->X_is_valid=FALSE;            out->X_is_valid=FALSE;        
69    out->X=NULL;                    out->X=NULL;                
70    
71    #ifdef PASO_MPI
72      out->MPIInfo = Paso_MPIInfo_getReference( MPIInfo );
73      out->elementDistribution = Finley_ElementDistribution_alloc( MPIInfo );
74    #endif
75    
76    /*  allocate the reference element: */    /*  allocate the reference element: */
77        
# Line 93  void Finley_ElementFile_dealloc(Finley_E Line 102  void Finley_ElementFile_dealloc(Finley_E
102       MEMFREE(in->DvDV);                   MEMFREE(in->DvDV);            
103       MEMFREE(in->DSDV);                   MEMFREE(in->DSDV);            
104       MEMFREE(in->DSLinearDV);               MEMFREE(in->DSLinearDV);        
105       MEMFREE(in->X);                       MEMFREE(in->X);    
106    #ifdef PASO_MPI
107         Paso_MPIInfo_dealloc( in->MPIInfo );
108         Finley_ElementDistribution_dealloc( in->elementDistribution );
109    #endif          
110       MEMFREE(in);             MEMFREE(in);      
111    }    }
112  }  }

Legend:
Removed from v.729  
changed lines
  Added in v.730

  ViewVC Help
Powered by ViewVC 1.1.26