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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-07-07 07:48:42 -0700 (Fri, 07 Jul 2006)
New Revision: 3980

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/read_split.f
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_split.f
Log:
Kludgy fix for the case where Sieve produces an empty split node file.
In this case the file does not contain an EOF and an error would
ordinarily be returned.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/read_split.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/read_split.f	2006-07-07 00:54:37 UTC (rev 3979)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/read_split.f	2006-07-07 14:48:42 UTC (rev 3980)
@@ -96,8 +96,8 @@
           end do
  40       continue
         end do
+        close(kr)
       end if
-      close(kr)
 c
 c...  normal return
 c

Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_split.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_split.f	2006-07-07 00:54:37 UTC (rev 3979)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_split.f	2006-07-07 14:48:42 UTC (rev 3980)
@@ -93,6 +93,10 @@
 c...  read error
 c
  30   continue
+c
+c...  handle case of an empty file (no EOF)
+c
+        if(numfn.eq.izero) return
         ierr=3
         errstrng="scan_split"
         close(kr)