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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-18 07:21:56 -0800 (Thu, 18 Jan 2007)
New Revision: 5821

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
Log:
Added descriptions to stdout info.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2007-01-18 05:12:55 UTC (rev 5820)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2007-01-18 15:21:56 UTC (rev 5821)
@@ -243,7 +243,7 @@
           end if
         end do
       end do
-      write(kto,*) (nfnodes(j),j=1,numflt)
+      write(kto,800) (nfnodes(j),j=1,numflt)
 c
 c...  read element attributes to determine which elements are adjacent
 c     to each fault
@@ -265,8 +265,8 @@
           end if
         end do
       end do
-      write(kto,*) (nfelems(1,j),j=1,numflt)
-      write(kto,*) (nfelems(2,j),j=1,numflt)
+      write(kto,810) (nfelems(1,j),j=1,numflt)
+      write(kto,820) (nfelems(2,j),j=1,numflt)
       close(kr)
 c
 c...  if auxiliary file is being used, read BC from it
@@ -360,6 +360,9 @@
       end do
       write(kto,700) nflip
 700   format("Number of connectivities flipped:  ",i7)
+800   format("Number of faulted nodes:  ",i7)
+810   format("Number of faulted elements (side 1):  ",i7)
+820   format("Number of faulted elements (side 2):  ",i7)
       stop
       end
 c