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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-27 12:28:12 -0800 (Sat, 27 Jan 2007)
New Revision: 5920

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/fixbc.f
Log:
Fixed parsing of units.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/fixbc.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/fixbc.f	2007-01-27 17:52:31 UTC (rev 5919)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/fixbc.f	2007-01-27 20:28:12 UTC (rev 5920)
@@ -85,11 +85,11 @@
       open(kbi,file=bifile,status="old")
       open(kbo,file=bofile,status="new")
       call pskip(kbi)
-      read(kbi,*) string
+      read(kbi,"(a80)") string
       write(kbo,"(a80)") string
-      read(kbi,*) string
+      read(kbi,"(a80)") string
       write(kbo,"(a80)") string
-      read(kbi,*) string
+      read(kbi,"(a80)") string
       write(kbo,"(a80)") string
       call pskip(kbi)
  30   continue