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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-10-25 07:11:57 -0700 (Wed, 25 Oct 2006)
New Revision: 5089

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/sort_elements.f
Log:
Fixed string returned on error.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/sort_elements.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/sort_elements.f	2006-10-25 14:10:58 UTC (rev 5088)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/sort_elements.f	2006-10-25 14:11:57 UTC (rev 5089)
@@ -195,7 +195,7 @@
 c
         if(matmod.gt.nmatmodmax.or.infmatmod(1,matmod).eq.izero) then
           ierr=101
-          errstrng="read_connect"
+          errstrng="sort_elements"
           return
         end if
 c