/[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 3489 by gross, Wed Nov 24 04:48:49 2010 UTC revision 3490 by caltinay, Wed Mar 30 02:24:33 2011 UTC
# Line 43  void Finley_Assemble_LumpedSystem(Finley Line 43  void Finley_Assemble_LumpedSystem(Finley
43    __const double *D_p=NULL;    __const double *D_p=NULL;
44    double *S=NULL, *EM_lumpedMat=NULL, *Vol=NULL, *lumpedMat_p=NULL;    double *S=NULL, *EM_lumpedMat=NULL, *Vol=NULL, *lumpedMat_p=NULL;
45    register double rtmp;    register double rtmp;
   size_t len_EM_lumpedMat_size;  
46    register double m_t=0., diagS=0., rtmp2=0.;    register double m_t=0., diagS=0., rtmp2=0.;
47    
48    Finley_resetError();    Finley_resetError();
# Line 100  void Finley_Assemble_LumpedSystem(Finley Line 99  void Finley_Assemble_LumpedSystem(Finley
99      requireWrite(lumpedMat);      requireWrite(lumpedMat);
100      lumpedMat_p=getSampleDataRW(lumpedMat,0);      lumpedMat_p=getSampleDataRW(lumpedMat,0);
101      len_EM_lumpedMat=p.row_numShapesTotal*p.numEqu;      len_EM_lumpedMat=p.row_numShapesTotal*p.numEqu;
     len_EM_lumpedMat_size=len_EM_lumpedMat*sizeof(double);  
102            
103      expandedD=isExpanded(D);      expandedD=isExpanded(D);
104      S=p.row_jac->BasisFunctions->S;      S=p.row_jac->BasisFunctions->S;

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

  ViewVC Help
Powered by ViewVC 1.1.26