Skip to content
Snippets Groups Projects
Commit 51428c72 authored by Douglas Guptill's avatar Douglas Guptill
Browse files

remove _ versions

parent 4da84780
No related branches found
No related tags found
No related merge requests found
......@@ -216,6 +216,7 @@ return(v);
----------------------------------------------------------------*/
/*
volume_(a,b,m,n,mmax,nmax,result)
int *n, *m, *mmax, *nmax;
float *a, *b;
......@@ -223,6 +224,7 @@ 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;
......@@ -433,6 +435,7 @@ return(v);
----------------------------------------------------------------*/
/*
volumeb_ (a,b,m,n,mmax,nmax,opt,volume,dvdb)
int *n, *m, *mmax, *nmax, *opt;
float *a, *b;
......@@ -441,6 +444,7 @@ 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)
......@@ -668,6 +672,7 @@ return(v);
A dummy routine used to call cvolumebj from a fortran routine
----------------------------------------------------------------*/
/*
volumebj_ (a,b,m,n,mmax,nmax,con,volume,dvdb)
int *n, *m, *mmax, *nmax,*con;
float *a, *b;
......@@ -676,6 +681,7 @@ 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)
......@@ -1249,7 +1255,7 @@ return(v);
A dummy routine used to call cvolume from a fortran routine
----------------------------------------------------------------*/
/*
volumef_ (a,b,m,n,mmax,nmax,volume)
int *n, *m, *mmax, *nmax;
float *a, *b;
......@@ -1257,6 +1263,7 @@ 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)
......@@ -1628,7 +1635,7 @@ return(v);
A dummy routine used to call cdvda from a fortran routine
----------------------------------------------------------------*/
/*
dvdaf_ (a,b,m,n,mmax,nmax,idim,dvda,code)
int *n, *m, *mmax, *nmax, *idim, *code;
float *a, *b;
......@@ -1636,6 +1643,7 @@ 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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment