Commit 00b1797e authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

No commit message

No commit message
parent 406a5760
......@@ -534,8 +534,6 @@ double gridInqYpole(int gridID);
void gridDefYpole(int gridID, double ypole);
double gridInqAngle(int gridID);
void gridDefAngle(int gridID, double angle);
double gridInqNpole(int gridID);
void gridDefNpole(int gridID, double npole);
void gridDefTrunc(int gridID, int trunc);
int gridInqTrunc(int gridID);
/* Hexagonal GME grid */
......
......@@ -1178,15 +1178,6 @@
! DOUBLEPRECISION angle)
EXTERNAL gridDefAngle
DOUBLEPRECISION gridInqNpole
! (INTEGER gridID)
EXTERNAL gridInqNpole
! gridDefNpole
! (INTEGER gridID,
! DOUBLEPRECISION npole)
EXTERNAL gridDefNpole
! gridDefTrunc
! (INTEGER gridID,
! INTEGER trunc)
......
......@@ -245,8 +245,6 @@ FCALLSCFUN1 (DOUBLE, gridInqYpole, GRIDINQYPOLE, gridinqypole, INT)
FCALLSCSUB2 (gridDefYpole, GRIDDEFYPOLE, griddefypole, INT, DOUBLE)
FCALLSCFUN1 (DOUBLE, gridInqAngle, GRIDINQANGLE, gridinqangle, INT)
FCALLSCSUB2 (gridDefAngle, GRIDDEFANGLE, griddefangle, INT, DOUBLE)
FCALLSCFUN1 (DOUBLE, gridInqNpole, GRIDINQNPOLE, gridinqnpole, INT)
FCALLSCSUB2 (gridDefNpole, GRIDDEFNPOLE, griddefnpole, INT, DOUBLE)
FCALLSCSUB2 (gridDefTrunc, GRIDDEFTRUNC, griddeftrunc, INT, INT)
FCALLSCFUN1 (INT, gridInqTrunc, GRIDINQTRUNC, gridinqtrunc, INT)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment