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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-09-25 11:12:51 -0700 (Tue, 25 Sep 2007)
New Revision: 8026

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f
Log:
Allowed more nodal attributes.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f	2007-09-25 17:59:49 UTC (rev 8025)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f	2007-09-25 18:12:51 UTC (rev 8026)
@@ -20,7 +20,7 @@
       integer nsd,maxnodes,maxelmts,maxnen,maxgauss,maxattr,maxeattr
       integer maxoattr
       parameter(nsd=3,maxnodes=1000000,maxelmts=1000000,maxnen=8,
-     & maxgauss=8,maxattr=6,maxeattr=24,maxoattr=30)
+     & maxgauss=8,maxattr=12,maxeattr=24,maxoattr=30)
 c
 c...  input/output and logical flag parameters
 c