[cig-commits] r8057 - short/3D/PyLith/trunk/libsrc/faults

[brad at geodynamics.org]

Author: brad
Date: 2007-09-28 14:07:26 -0700 (Fri, 28 Sep 2007)
New Revision: 8057

Modified:
   short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc
Log:
Fixed compiling error and flop count for slip (needed to account for flops in _calc()).

Modified: short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc	2007-09-28 20:24:25 UTC (rev 8056)
+++ short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc	2007-09-28 21:07:26 UTC (rev 8057)
@@ -252,7 +252,7 @@
     // Update field
     _slipField->updatePoint(*v_iter, &slipValues[0]);
   } // for
-  PetscLogFlopsNoCheck(vSize * (4 + numSlipValues));
+  PetscLogFlopsNoCheck(vSize * (10 + 3*finalSlip->getFiberDimension(*vBegin)));
 
   return _slipField;
 } // slip
@@ -309,7 +309,7 @@
     // Update field
     _slipField->updatePoint(*v_iter, &slipValues[0]);
   } // for
-  PetscLogFlopsNoCheck(vSize * (2 * numSlipValues));
+  PetscLogFlopsNoCheck(vSize * (19 + 3*finalSlip->getFiberDimension(*vBegin)));
 
   return _slipField;
 } // slipIncr