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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-07-12 19:23:21 -0700 (Wed, 12 Jul 2006)
New Revision: 4014

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
Log:
Fixed stupid indexing error.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2006-07-12 21:51:22 UTC (rev 4013)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2006-07-13 02:23:21 UTC (rev 4014)
@@ -227,7 +227,7 @@
           if(iattr.eq.ifcode(j)) then
             nfnodes(j)=nfnodes(j)+1
             nfltnodes=nfltnodes+1
-            ifnodes(j,nfnodes(j))=i
+            ifnodes(j,nfnodes(j))=n
           end if
         end do
       end do
@@ -317,8 +317,8 @@
 c
 c...  First loop over faulted elements, then nodes attached to each element.
 c
-          do j=1,nfelems(1,i)
-            elem=ifelems(1,i,j)
+          do j=1,nfelems(kk,i)
+            elem=ifelems(kk,i,j)
             do l=1,nen
               do k=1,nfnodes(i)
                 node=ifnodes(i,k)