[cig-commits] r8047 - short/3D/PyLith/trunk/libsrc/materials

willic3 at geodynamics.org willic3 at geodynamics.org
Thu Sep 27 17:30:01 PDT 2007


Author: willic3
Date: 2007-09-27 17:30:01 -0700 (Thu, 27 Sep 2007)
New Revision: 8047

Modified:
   short/3D/PyLith/trunk/libsrc/materials/MaxwellIsotropic3D.cc
Log:
Finished putting in logging.


Modified: short/3D/PyLith/trunk/libsrc/materials/MaxwellIsotropic3D.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/materials/MaxwellIsotropic3D.cc	2007-09-27 23:48:37 UTC (rev 8046)
+++ short/3D/PyLith/trunk/libsrc/materials/MaxwellIsotropic3D.cc	2007-09-28 00:30:01 UTC (rev 8047)
@@ -532,6 +532,7 @@
      (*parameters)[_MaxwellIsotropic3D::pidStrainT][1] +
      (*parameters)[_MaxwellIsotropic3D::pidStrainT][2])/3.0;
   
+  PetscLogFlopsNoCheck(6);
   // The code below should probably be in a separate function since it
   // is used more than once.  I should also probably cover the possibility
   // that Maxwell time is zero (although this should never happen).
@@ -549,13 +550,17 @@
       fraction *= _dt/maxwelltime;
       dq += fSign*fraction/factorial;
     } // for
-  } else
+    PetscLogFlopsNoCheck(1 + 7 * numTerms);
+  } else {
     dq = maxwelltime*(1.0-exp(-_dt/maxwelltime))/_dt;
+    PetscLogFlopsNoCheck(7);
+  } // else
 
   const double expFac = exp(-_dt/maxwelltime);
   double devStrainTpdt = 0.0;
   double devStrainT = 0.0;
   double visStrain = 0.0;
+  PetscLogFlopsNoCheck(3);
   for (int iComp=0; iComp < _MaxwellIsotropic3D::tensorSize; ++iComp) {
     devStrainTpdt = totalStrain[iComp] - diag[iComp]*meanStrainTpdt;
     devStrainT = (*parameters)[_MaxwellIsotropic3D::pidStrainT][iComp] -
@@ -566,6 +571,7 @@
     (*parameters)[_MaxwellIsotropic3D::pidVisStrain][iComp] = visStrain;
     (*parameters)[_MaxwellIsotropic3D::pidStrainT][iComp] = totalStrain[iComp];
   } // for
+  PetscLogFlopsNoCheck(8 * MaxwellIsotropic3D::tensorSize);
 
   _needNewJacobian = false;
 



More information about the cig-commits mailing list