From c0f17d7ea596ea1ddae8ad93d2e7f72bf822545f Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Thu, 21 May 2009 21:54:33 +0000
Subject: [PATCH] remove broken dvda, fix broken volume
---
NN/volume.c | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/NN/volume.c b/NN/volume.c
index 63ab9789..e4986cfa 100644
--- a/NN/volume.c
+++ b/NN/volume.c
@@ -216,16 +216,17 @@ return(v);
----------------------------------------------------------------*/
-volume_(a,b,m,n,mmax,nmax,volume) {volume (a,b,m,n,mmax,nmax,volume);}
-volume (a,b,m,n,mmax,nmax,volume)
+volume_(a,b,m,n,mmax,nmax,result) {
+ volume (a,b,m,n,mmax,nmax,result);}
+volume (a,b,m,n,mmax,nmax,result)
int *n, *m, *mmax, *nmax;
float *a, *b;
-float *volume;
+float *result;
{
-*volume=cvolume(a,b,m,n,mmax,nmax);
+*result=cvolume(a,b,m,n,mmax,nmax);
}
@@ -1030,7 +1031,8 @@ return(v);
A dummy routine used to call cdvda from a fortran routine
----------------------------------------------------------------*/
-
+/* Not used...won't compile...function name and variable name identical */
+/*
dvda_ (a,b,m,n,mmax,nmax,idim,dvda,code) {
dvda(a,b,m,n,mmax,nmax,idim,dvda,code);
}
@@ -1053,7 +1055,7 @@ tdim = *idim - 1;
free(temp);
}
-
+*/
/*--------------------------------------------------------------
ROUTINE: cvolumef
--
GitLab