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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-06-30 10:13:43 -0700 (Fri, 30 Jun 2006)
New Revision: 3906

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makefile
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readnetgen.f
Log:
Increased max dimensions for readnetgen and changed some makefile
options.  Need to create a Makefile.am for these codes and make all
utilities part of the GNU build procedure.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makefile
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makefile	2006-06-28 17:58:12 UTC (rev 3905)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makefile	2006-06-30 17:13:43 UTC (rev 3906)
@@ -8,19 +8,19 @@
 #  location for the BLAS and LAPACK libraries (LINALG variable).
 #
 #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-FFLAGC= -fno-silent -fno-ugly -fno-f77 -ff90 -fpedantic -Wall -fbackslash -v
+FFLAGC= -Wall -fbackslash -v
 
 CFLAGC= 
 
-opt   = -g
+# opt   = -g
 
-# opt   = -O3 -funroll-loops
+opt   = -O3 -funroll-loops
 
-load  = -lcc_dynamic
+# load  = -lcc_dynamic
 
 # load  =
 
-FCOMPL= g77
+FCOMPL= g95
 
 CCOMPL= gcc
 

Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readnetgen.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readnetgen.f	2006-06-28 17:58:12 UTC (rev 3905)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/readnetgen.f	2006-06-30 17:13:43 UTC (rev 3906)
@@ -14,8 +14,8 @@
 c
       integer nsd,maxnodes,maxelmts,nen,maxnbrs,maxflts,maxfnodes
       integer maxbnds,maxmatf,maxwsets,ietyp,inf
-      parameter(nsd=3,maxnodes=500000,maxelmts=500000,nen=4,
-     & maxnbrs=100,maxflts=6,maxfnodes=100000,maxbnds=30,maxmatf=5,
+      parameter(nsd=3,maxnodes=10000000,maxelmts=10000000,nen=4,
+     & maxnbrs=100,maxflts=6,maxfnodes=1000000,maxbnds=30,maxmatf=5,
      & maxwsets=2,ietyp=5,inf=0)
       integer kti,kto,kr,kw
       parameter(kti=5,kto=6,kr=10,kw=11)