[cig-commits] r5384 - short/3D/PyLith/branches/pylith-0.8/pylith3d/utils

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-11-29 17:53:13 -0800 (Wed, 29 Nov 2006)
New Revision: 5384

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultslip.f
Log:
Forgot to put in slip scaling earlier.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultslip.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultslip.f	2006-11-30 01:44:44 UTC (rev 5383)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultslip.f	2006-11-30 01:53:13 UTC (rev 5384)
@@ -88,7 +88,7 @@
       do i=1,numnp
         read(ku,*) node,(field(j),j=1,nfields)
         do j=1,nsd
-          slip(j,i)=field(isfield(j))
+          slip(j,i)=sscale*field(isfield(j))
         end do
       end do
       close(ku)