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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-04-24 14:44:31 -0700 (Tue, 24 Apr 2007)
New Revision: 6663

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f
Log:
Handled case where file could be empty due to partitioning.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f	2007-04-24 21:43:10 UTC (rev 6662)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f	2007-04-24 21:44:31 UTC (rev 6663)
@@ -118,6 +118,10 @@
 c...  read error
 c
  30   continue
+c
+c...  handle case of an empty file (no EOF), otherwise return an error
+c
+        if(numtractions.eq.izero) return
         ierr=3
         close(kr)
         errstrng="scan_tractions"