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

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

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

revision 3489 by jfenwick, Mon Oct 11 01:48:14 2010 UTC revision 3490 by caltinay, Wed Mar 30 02:24:33 2011 UTC
# Line 56  void Dudley_Assemble_PDE(Dudley_NodeFile Line 56  void Dudley_Assemble_PDE(Dudley_NodeFile
56      bool_t reducedIntegrationOrder = FALSE;      bool_t reducedIntegrationOrder = FALSE;
57      char error_msg[LenErrorMsg_MAX];      char error_msg[LenErrorMsg_MAX];
58      Dudley_Assemble_Parameters p;      Dudley_Assemble_Parameters p;
     double time0;  
59      dim_t dimensions[ESCRIPT_MAX_DATA_RANK];      dim_t dimensions[ESCRIPT_MAX_DATA_RANK];
60      type_t funcspace;      type_t funcspace;
61      double blocktimer_start = blocktimer_time();      double blocktimer_start = blocktimer_time();
62    
63      Dudley_resetError();      Dudley_resetError();
64    
     {  
 #ifdef ESYS_MPI  
     int iam, numCPUs;  
     iam = elements->MPIInfo->rank;  
     numCPUs = elements->MPIInfo->size;  
 #endif  
     }  
   
65      if (nodes == NULL || elements == NULL)      if (nodes == NULL || elements == NULL)
66      return;      return;
67      if (S == NULL && isEmpty(F))      if (S == NULL && isEmpty(F))
# Line 329  void Dudley_Assemble_PDE(Dudley_NodeFile Line 320  void Dudley_Assemble_PDE(Dudley_NodeFile
320      }      }
321      if (Dudley_noError())      if (Dudley_noError())
322      {      {
     time0 = Dudley_timer();  
323      if (p.numEqu == p.numComp)      if (p.numEqu == p.numComp)
324      {      {
325          if (p.numEqu > 1)          if (p.numEqu > 1)

Legend:
Removed from v.3489  
changed lines
  Added in v.3490

  ViewVC Help
Powered by ViewVC 1.1.26