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

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

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

revision 3258 by jfenwick, Thu Jan 28 02:03:15 2010 UTC revision 3259 by jfenwick, Mon Oct 11 01:48:14 2010 UTC
# Line 55  void Finley_Assemble_PDE(Finley_NodeFile Line 55  void Finley_Assemble_PDE(Finley_NodeFile
55    
56    bool_t reducedIntegrationOrder=FALSE;    bool_t reducedIntegrationOrder=FALSE;
57    char error_msg[LenErrorMsg_MAX];    char error_msg[LenErrorMsg_MAX];
58    Assemble_Parameters p;    Finley_Assemble_Parameters p;
59    double time0;    double time0;
60    dim_t dimensions[ESCRIPT_MAX_DATA_RANK];    dim_t dimensions[ESCRIPT_MAX_DATA_RANK];
61    type_t funcspace;    type_t funcspace;
# Line 63  void Finley_Assemble_PDE(Finley_NodeFile Line 63  void Finley_Assemble_PDE(Finley_NodeFile
63    
64    Finley_resetError();    Finley_resetError();
65    
   {  
 #ifdef Paso_MPI  
   int iam, numCPUs;  
   iam = elements->elementDistribution->MPIInfo->rank;  
   numCPUs = elements->elementDistribution->MPIInfo->size;  
 #endif  
   }  
   
66    if (nodes==NULL || elements==NULL) return;    if (nodes==NULL || elements==NULL) return;
67    if (S==NULL && isEmpty(F)) return;    if (S==NULL && isEmpty(F)) return;
68    
# Line 136  void Finley_Assemble_PDE(Finley_NodeFile Line 128  void Finley_Assemble_PDE(Finley_NodeFile
128    if (! Finley_noError()) return;    if (! Finley_noError()) return;
129    
130    /* set all parameters in p*/    /* set all parameters in p*/
131    Assemble_getAssembleParameters(nodes,elements,S,F, reducedIntegrationOrder, &p);    Finley_Assemble_getAssembleParameters(nodes,elements,S,F, reducedIntegrationOrder, &p);
132    if (! Finley_noError()) return;    if (! Finley_noError()) return;
133    
134    /* check if all function spaces are the same */    /* check if all function spaces are the same */

Legend:
Removed from v.3258  
changed lines
  Added in v.3259

  ViewVC Help
Powered by ViewVC 1.1.26