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

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

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

revision 1388 by trankine, Fri Jan 11 07:45:58 2008 UTC revision 1628 by phornby, Fri Jul 11 13:12:46 2008 UTC
# Line 41  void Finley_Assemble_LumpedSystem(Finley Line 41  void Finley_Assemble_LumpedSystem(Finley
41    bool_t reducedIntegrationOrder=FALSE, expandedD;    bool_t reducedIntegrationOrder=FALSE, expandedD;
42    char error_msg[LenErrorMsg_MAX];    char error_msg[LenErrorMsg_MAX];
43    Assemble_Parameters p;    Assemble_Parameters p;
   double time0;  
44    dim_t dimensions[ESCRIPT_MAX_DATA_RANK], k, e, len_EM_lumpedMat, q, s;    dim_t dimensions[ESCRIPT_MAX_DATA_RANK], k, e, len_EM_lumpedMat, q, s;
45    type_t funcspace;    type_t funcspace;
46    index_t color,*row_index=NULL;    index_t color,*row_index=NULL;
47    double *S=NULL, *EM_lumpedMat=NULL, *Vol=NULL, *D_p=NULL, *lumpedMat_p=NULL;    double *S=NULL, *EM_lumpedMat=NULL, *Vol=NULL, *D_p=NULL, *lumpedMat_p=NULL;
48    register double rtmp, m_t, diagS;    register double rtmp;
49    size_t len_EM_lumpedMat_size;    size_t len_EM_lumpedMat_size;
50      register double m_t, diagS;
51    
52    Finley_resetError();    Finley_resetError();
53    
# Line 302  void Finley_Assemble_LumpedSystem(Finley Line 302  void Finley_Assemble_LumpedSystem(Finley
302         THREAD_MEMFREE(row_index);         THREAD_MEMFREE(row_index);
303      } /* end parallel region */      } /* end parallel region */
304    }    }
   #ifdef Finley_TRACE  
   printf("timing: assemblage lumped PDE: %.4e sec\n",Finley_timer()-time0);  
   #endif  
305  }  }

Legend:
Removed from v.1388  
changed lines
  Added in v.1628

  ViewVC Help
Powered by ViewVC 1.1.26