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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-05-01 09:17:37 -0700 (Tue, 01 May 2007)
New Revision: 6736

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f
Log:
Minor format fix when writing out material model name.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f	2007-05-01 03:31:59 UTC (rev 6735)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f	2007-05-01 16:17:37 UTC (rev 6736)
@@ -132,7 +132,7 @@
         return
 c
  700  format(/,5x,"Material number:       ",i7,/,5x,
-     &            "Material type:         ",a37,/,5x,
+     &            "Material type:         ",a49,/,5x,
      &            "Number of properties:  ",i7,/)
  710  format(15x,a15,3x,1pe15.8)
 c