Cleaning up the example
authorIsaac Dooley <idooley2@illinois.edu>
Sun, 18 Feb 2007 04:20:52 +0000 (04:20 +0000)
committerIsaac Dooley <idooley2@illinois.edu>
Sun, 18 Feb 2007 04:20:52 +0000 (04:20 +0000)
examples/ParFUM/TOPS_simple2D/Makefile
examples/ParFUM/TOPS_simple2D/pgm.C
examples/ParFUM/TOPS_simple2D/pgm.h [deleted file]

index b55aa7bc20f4918a8f223ecdeba5e6271960bba9..c2abbecd3bd0e48be63d0ee637416873338808e0 100644 (file)
@@ -2,16 +2,12 @@ CHARMC=../../../bin/charmc $(OPTS)  -g
 
 all: pgm
 
-pgm: pgm.o cst_nl.o
-       $(CHARMC) -o pgm pgm.o cst_nl.o -module netfem -language ParFUM_TOPS  
+pgm: pgm.o
+       $(CHARMC) -o pgm pgm.o -module netfem -language ParFUM_TOPS  
 
 pgm.o: pgm.C
        $(CHARMC) -c pgm.C
 
-cst_nl.o: cst_nl.C
-       $(CHARMC) -c cst_nl.C
-
-
 test: pgm
        ./charmrun ./pgm +vp4 +p2
 
index 85900b48a9adc8262c436acfa9f12de4610c5eb5..cd6e77ae0ba86732fb346463d666d6823607f427 100644 (file)
@@ -8,7 +8,7 @@
 
  */
 
-#include "pgm.h"
+//#include "pgm.h"
 #include "ParFUM_TOPS.h"
 
 class ElemAtt {
diff --git a/examples/ParFUM/TOPS_simple2D/pgm.h b/examples/ParFUM/TOPS_simple2D/pgm.h
deleted file mode 100644 (file)
index fc0ae37..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-#include <stdlib.h>
-#include <stdio.h>
-#include <math.h>
-#include "charm++.h"
-#include "ParFUM.h"
-#include "netfem.h"
-#include "vector2d.h"
-
-//One element's connectivity information
-typedef int connRec[3];
-
-// A structure for handling data that may need to be migrated
-struct myGlobals {
-  int nnodes;
-  int nelems;
-  vector2d *coord;
-  connRec *conn;
-
-  vector2d *R_net, *d, *v, *a;
-  
-  double *S11, *S22, *S12;
-};
-
-//Compute forces on constant-strain triangles:
-void CST_NL(const vector2d *coor,const connRec *lm,vector2d *R_net,
-           const vector2d *d,const double *c,
-           int numnp,int numel,
-           double *S11o,double *S22o,double *S12o);
-
-// Prototypes
-void advanceNodes(const double dt,int nnodes,const vector2d *coord,
-                  vector2d *R_net,vector2d *a,vector2d *v,vector2d *d,bool dampen);
-
-void pup_myGlobals(pup_er p,myGlobals *g);
-
-//The material constants c, as computed by fortran mat_const
-// I think the units here are Pascals (N/m^2)
-const double matConst[4]={3.692e9,  1.292e9,  3.692e9,  1.200e9 };
-
-//The timestep, in seconds
-const double dt=1.0e-9;
-
-// A convenient error function
-static void die(const char *str) {
-  CkError("Fatal error: %s\n",str);
-  CkExit();
-}
-
-
-
-#define NANCHECK 1 /*Check for NaNs at each timestep*/