diff --git a/NN/volume.c b/NN/volume.c
index 63ab97898f3b6afa9b8c05d583e0d43263dc3d47..e4986cfa2c8ed634fd83615474273fca2518e200 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