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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-09-25 12:31:03 -0700 (Mon, 25 Sep 2006)
New Revision: 4612

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/plinhex2d.f
Log:
Fixed incorrect variable used for nodes per face.


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/plinhex2d.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/plinhex2d.f	2006-09-25 19:26:51 UTC (rev 4611)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/plinhex2d.f	2006-09-25 19:31:03 UTC (rev 4612)
@@ -88,7 +88,7 @@
       end if
 c
       do l=1,nsgauss
-        do i=1,nen
+        do i=1,nsnodes
           rr=one+r(i)*gauss(1,l)
           ss=one+s(i)*gauss(2,l)
           sh(3,i,l)=fourth*rr*ss