diff --git a/Makefile b/Makefile
index 47a4426538c2c83cad2c953c69bc7418724b890a..fb40290f9070b222a7dd45a8ad31a83d97b7c3a5 100644
--- a/Makefile
+++ b/Makefile
@@ -43,6 +43,7 @@ do_leaf_measurements.o \
embed_surface_in_octree.o \
erosion.o \
find_void_nodes.o \
+flush.o \
heap.o \
improve_osolve.o\
initialize_temperature.o \
@@ -72,15 +73,13 @@ wsmp_setup.o\
DOUAR.o \
write_global_output.o vrm.o
-# Don't need this if we use -qextname
-# flush.o \
-
all: $(BIN)
$(BIN): subdirs $(OBJECTS)
+ echo "$(F90) $(FFLAGS) $(OPTIONS) $(OBJECTS) $(LIBS) -o $(BIN)" \
+ 1>$(BIN).link.stdout 2>$(BIN).link.stderr
$(F90) $(FFLAGS) $(OPTIONS) $(OBJECTS) $(LIBS) -o $(BIN) \
-1>$(BIN).link.stdout \
-2>$(BIN).link.stderr
+ 1>>$(BIN).link.stdout 2>>$(BIN).link.stderr
echo "--"
echo "compiler output...."
more $(COMPILE_OUT)
diff --git a/Makefile.p690 b/Makefile.p690
index dad0ed4b82104e771d040f03c648bdc6daef85b3..38aada112be940737188f3ddd4300e2bb270b5b9 100644
--- a/Makefile.p690
+++ b/Makefile.p690
@@ -19,9 +19,9 @@ FLG64=
# for 64 bit compile..................................
#
-AR=ar -X 64
+AR =ar -X 64
BITS=-q64
-OPTIONS = -b 64 -bmaxdata:0x80000000 -bhalt:0 -bnoquiet
+OPTIONS = -b64 -bmaxdata:0x80000000 -bhalt:0 -bnoquiet
PGPLOT = /home/beaumnt1/software/pgplot-5.2.2-q64
WSMP_LIB = -L$(WSMP_DIR) -lpwsmp64
FLG64=-b64
@@ -44,7 +44,7 @@ FLG64=-b64
# take -qextchk out for the final compile
FFLAGS = -g -O2 -qstrict -Q $(BITS) $(FLG64) -qarch=auto -qtune=auto \
-qmaxmem=-1 \
--qcheck -qwarn64 -qextname \
+-qcheck -qwarn64 \
-qfloat=nomaf:nofold:norsqrt:strictnmaf \
-qflttrap=overflow:underflow:zerodivide:invalid:NANQ:enable \
-qsigtrap \
@@ -90,13 +90,14 @@ COMPILE_OUT=$(NAME)$(BITS).compile
# -lpthread
LIBS = \
--LOCTREE -lOctree$(BITS) \
--LCASCADE -lcascade$(BITS) \
--LRESAMPLE -lresample$(BITS) \
--LNN -lnn$(BITS) \
-$(WSMP_LIB) \
--L$(PGPLOT) -lpgplot \
--L/usr/lpp/X11 -lX11
+ -LOCTREE -lOctree$(BITS) \
+ -LNN -lnn_f$(BITS) \
+ -LNN -lnn_c$(BITS) \
+ -LCASCADE -lcascade$(BITS) \
+ -L$(PGPLOT) -lpgplot \
+ -L/usr/lpp/X11 -lX11 \
+ $(WSMP_LIB) \
+ -LRESAMPLE -lresample$(BITS)
diff --git a/NN/Makefile b/NN/Makefile
index 78897ae5513de2babdad52c011d04b2c51dcc106..8a75ca85ff4867ee55e399188b2d8322e6aa9443 100644
--- a/NN/Makefile
+++ b/NN/Makefile
@@ -1,29 +1,30 @@
NAME=nn
include ../Makefile.p690
-LIBFILE=lib$(NAME)$(BITS).a
+LIBFILE_f=lib$(NAME)_f$(BITS).a
+LIBFILE_c=lib$(NAME)_c$(BITS).a
-OBJECTS_NN = \
-delaun.o \
-del_sub.o \
-nn.o \
-nnplot.o \
-qhullf_dummy.o \
-stack.o \
-stackpair.o \
-volume.o
+OBJECTS_NN_f = delaun.o del_sub.o nn.o nnplot.o qhullf_dummy.o
+OBJECTS_NN_c = stack.o stackpair.o volume.o
-all: $(LIBFILE)
-$(LIBFILE): $(OBJECTS_NN)
- $(AR) -rv $(LIBFILE) $(OBJECTS_NN) >$(LIBFILE).ar
+all: $(LIBFILE_f) $(LIBFILE_c)
+$(LIBFILE_f): $(OBJECTS_NN_f)
+ $(AR) -rv $(LIBFILE_f) $(OBJECTS_NN_f) >$(LIBFILE_f).ar
+ mv -f $(COMPILE_OUT) $(COMPILE_OUT)_f
echo "--"
echo "compiler output...."
- more $(COMPILE_OUT)
+ more $(COMPILE_OUT)_f
+$(LIBFILE_c): $(OBJECTS_NN_c)
+ $(AR) -rv $(LIBFILE_c) $(OBJECTS_NN_c) >$(LIBFILE_c).ar
+ mv -f $(COMPILE_OUT) $(COMPILE_OUT)_c
+ echo "--"
+ echo "compiler output...."
+ more $(COMPILE_OUT)_c
.PHONY: objclean
objclean:
- rm -f *.o $(COMPILE_OUT)
+ rm -f *.o $(COMPILE_OUT)_f $(COMPILE_OUT)_c
.PHONY: clean
clean: objclean
- rm -f $(LIBFILE)
+ rm -f $(LIBFILE_f) $(LIBFILE_c)
diff --git a/NN/stack.c b/NN/stack.c
index f5f2ba2b000a2f717f24823bc55bf7f4f8f501d6..498e33da0b423565df68e1e24b605adfc750d46b 100644
--- a/NN/stack.c
+++ b/NN/stack.c
@@ -5,7 +5,7 @@
static struct node *head, *z, *t;
/* stackinit_() {stackinit();} */
- stackinit()
+ void stackinit()
{
head = (struct node *) malloc(sizeof *head);
z = (struct node *) malloc(sizeof *z);
@@ -15,7 +15,7 @@
}
/* push_(p) int *p; {push(p);} */
- push(p)
+ void push(p)
int *p;
{
int v;
@@ -26,7 +26,7 @@
}
/* pop_(x) int *x; {pop(x);} */
- pop(x)
+ void pop(x)
int *x;
{
t = head->next; head->next = t->next;
@@ -35,7 +35,7 @@
}
/* stackempty_(i) int *i; {stackempty(i);} */
- stackempty(i)
+ void stackempty(i)
int *i;
{
*i = 0;
@@ -43,7 +43,7 @@
}
/* stackflush_() {stackflush();} */
- stackflush()
+ void stackflush()
{
free(head);
free(z);
diff --git a/NN/stackpair.c b/NN/stackpair.c
index 600c89d3cd445e27f523b87324ca4b113364bd01..4fcc910da0ffec3592b9f57528d89f6c0960cf83 100644
--- a/NN/stackpair.c
+++ b/NN/stackpair.c
@@ -6,7 +6,7 @@
static struct node *headb, *zb, *tb;
/* stackpairinit_() {stackpairinit();} */
- stackpairinit ()
+ void stackpairinit ()
{
heada = (struct node *) malloc(sizeof *heada);
za = (struct node *) malloc(sizeof *za);
@@ -22,7 +22,7 @@
}
/* stackpairflush_() {stackpairflush();} */
- stackpairflush ()
+ void stackpairflush ()
{
free(heada);
free(headb);
@@ -31,7 +31,7 @@
}
/* pushpair_(pa, pb) int *pa; int *pb; {pushpair(pa, pb);} */
- pushpair (pa, pb)
+ void pushpair (pa, pb)
int *pa;
int *pb;
{
@@ -49,7 +49,7 @@
}
/* poppair_(xa,xb) int *xa; int *xb; {poppair(xa,xb);} */
- poppair (xa,xb)
+ void poppair (xa,xb)
int *xa;
int *xb;
{
@@ -62,7 +62,7 @@
}
/* stackpairempty_(i) int *i; {stackpairempty(i);} */
- stackpairempty (i)
+ void stackpairempty (i)
int *i;
{
*i = 0;
diff --git a/NN/volume.c b/NN/volume.c
index 1a0d09e8f6365541cbe2c69c29ee1b246b456dd2..79a606b30b2d5b4eda411fee671b7318d35a0639 100644
--- a/NN/volume.c
+++ b/NN/volume.c
@@ -224,7 +224,7 @@ volume_(a,b,m,n,mmax,nmax,result)
volume (a,b,m,n,mmax,nmax,result);
}
-volume (a,b,m,n,mmax,nmax,result)
+void volume (a,b,m,n,mmax,nmax,result)
int *n, *m, *mmax, *nmax;
float *a, *b;
float *result;
@@ -442,7 +442,7 @@ volumeb_ (a,b,m,n,mmax,nmax,opt,volume,dvdb)
volumeb(a,b,m,n,mmax,nmax,opt,volume,dvdb);
}
-volumeb (a,b,m,n,mmax,nmax,opt,volume,dvdb)
+void volumeb (a,b,m,n,mmax,nmax,opt,volume,dvdb)
int *n, *m, *mmax, *nmax, *opt;
float *a, *b;
@@ -677,7 +677,7 @@ volumebj_ (a,b,m,n,mmax,nmax,con,volume,dvdb)
volumebj(a,b,m,n,mmax,nmax,con,volume,dvdb);
}
-volumebj (a,b,m,n,mmax,nmax,con,volume,dvdb)
+void volumebj (a,b,m,n,mmax,nmax,con,volume,dvdb)
int *n, *m, *mmax, *nmax,*con;
float *a, *b;
@@ -1055,7 +1055,7 @@ dvda_ (a,b,m,n,mmax,nmax,idim,result,code)
dvda(a,b,m,n,mmax,nmax,idim,result,code);
}
-dvda (a,b,m,n,mmax,nmax,idim,result,code)
+void dvda (a,b,m,n,mmax,nmax,idim,result,code)
int *n, *m, *mmax, *nmax, *idim, *code;
float *a, *b;
@@ -1258,7 +1258,7 @@ volumef_ (a,b,m,n,mmax,nmax,volume)
volumef(a,b,m,n,mmax,nmax,volume);
}
-volumef (a,b,m,n,mmax,nmax,volume)
+void volumef (a,b,m,n,mmax,nmax,volume)
int *n, *m, *mmax, *nmax;
float *a, *b;
@@ -1637,7 +1637,7 @@ dvdaf_ (a,b,m,n,mmax,nmax,idim,dvda,code)
dvdaf(a,b,m,n,mmax,nmax,idim,dvda,code);
}
-dvdaf (a,b,m,n,mmax,nmax,idim,dvda,code)
+void dvdaf (a,b,m,n,mmax,nmax,idim,dvda,code)
int *n, *m, *mmax, *nmax, *idim, *code;
float *a, *b;
diff --git a/flush.f b/flush.f
index dce6c5d4feda9c5d9576b591c2ae7aaf1625ef74..91b7197977506f09cac26bc24700b9d754ada34f 100644
--- a/flush.f
+++ b/flush.f
@@ -7,7 +7,7 @@ c Author: Douglas Guptill
c 2009-05-23: new
integer unit
- call flush_(unit)
+c call flush_(unit)
return
end