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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-07-20 07:33:13 -0700 (Thu, 20 Jul 2006)
New Revision: 4039

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
Log:
Dimension parameters have been changed to deal with the high resolution
benchmarks.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2006-07-20 03:05:28 UTC (rev 4038)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readucd2.f	2006-07-20 14:33:13 UTC (rev 4039)
@@ -14,8 +14,8 @@
 c
       integer nsd,ndof,maxnodes,maxelmts,nen,maxflts,maxfnodes
       integer maxbnds,maxfelems,maxnattr,maxeattr,ietyp,inf
-      parameter(nsd=3,ndof=3,maxnodes=1000000,maxelmts=5000000,nen=4,
-     & maxflts=6,maxfnodes=100000,maxfelems=100000,maxbnds=30,
+      parameter(nsd=3,ndof=3,maxnodes=1000000,maxelmts=5400000,nen=4,
+     & maxflts=6,maxfnodes=1000000,maxfelems=1000000,maxbnds=30,
      & maxnattr=20,maxeattr=20,ietyp=5,inf=0)
       integer kti,kto,kr,kw
       parameter(kti=5,kto=6,kr=10,kw=11)