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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-04-17 10:53:52 -0700 (Tue, 17 Apr 2007)
New Revision: 6587

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/write_state_cmp.F
Log:
Fixed incorrect format statement number.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/write_state_cmp.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/write_state_cmp.F	2007-04-17 04:37:14 UTC (rev 6586)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/write_state_cmp.F	2007-04-17 17:53:52 UTC (rev 6587)
@@ -120,7 +120,7 @@
             call get_state(state(1,l,ielf),dstate(1,l,ielf),sout,nstate)
             call daxpy(nstatesmax,delti,sout(nstatesmax+ione),ione,
      &       sout(2*nstatesmax+ione),ione)
-            write(kw,720) ielgp,l,(sout(istatoutc(j)),j=1,nstatestot)
+            write(kw,710) ielgp,l,(sout(istatoutc(j)),j=1,nstatestot)
           end do
           ielgp=ielgp+ione
         end do