[cig-commits] r5091 - short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-10-25 07:15:59 -0700 (Wed, 25 Oct 2006)
New Revision: 5091

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/addstf.F
Log:
Removed obsolete loop, since slippery nodes are not presently available.


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/addstf.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/addstf.F	2006-10-25 14:12:38 UTC (rev 5090)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/addstf.F	2006-10-25 14:15:59 UTC (rev 5091)
@@ -68,20 +68,20 @@
       integer i,j,k,l,numeq,ierr
 cpetsc      integer lmp(neemax),lmxpa(neemax)
       double precision signi,signj
-      logical slip
+cold      logical slip
 c
 cdebug      integer idb,jdb
 c
 cdebug      write(6,*) "Hello from addstf_f!"
 c
-      slip=.false.
-      do i=1,nee
+cold      slip=.false.
+cold      do i=1,nee
 cdebug        write(6,*) "i,lm(i),s(i,i):",i,lm(i),s(i,i)
-        if(lm(i).ne.izero) numeq = numeq + 1
-        if(lmx(i).ne.izero) slip=.true.
+cold        if(lm(i).ne.izero) numeq = numeq + 1
+cold        if(lmx(i).ne.izero) slip=.true.
 cpetsc        lmp(i) = lm(i) - 1
 cpetsc        lmxpa(i) = abs(lmx(i))-1
-      end do
+cold      end do
 c     New Sieve section
       numeq = 0
       do i=1,nee