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); ...@@ -534,8 +534,6 @@ double gridInqYpole(int gridID);
void gridDefYpole(int gridID, double ypole); void gridDefYpole(int gridID, double ypole);
double gridInqAngle(int gridID); double gridInqAngle(int gridID);
void gridDefAngle(int gridID, double angle); void gridDefAngle(int gridID, double angle);
double gridInqNpole(int gridID);
void gridDefNpole(int gridID, double npole);
void gridDefTrunc(int gridID, int trunc); void gridDefTrunc(int gridID, int trunc);
int gridInqTrunc(int gridID); int gridInqTrunc(int gridID);
/* Hexagonal GME grid */ /* Hexagonal GME grid */
......
...@@ -1178,15 +1178,6 @@ ...@@ -1178,15 +1178,6 @@
! DOUBLEPRECISION angle) ! DOUBLEPRECISION angle)
EXTERNAL gridDefAngle EXTERNAL gridDefAngle
DOUBLEPRECISION gridInqNpole
! (INTEGER gridID)
EXTERNAL gridInqNpole
! gridDefNpole
! (INTEGER gridID,
! DOUBLEPRECISION npole)
EXTERNAL gridDefNpole
! gridDefTrunc ! gridDefTrunc
! (INTEGER gridID, ! (INTEGER gridID,
! INTEGER trunc) ! INTEGER trunc)
......
...@@ -245,8 +245,6 @@ FCALLSCFUN1 (DOUBLE, gridInqYpole, GRIDINQYPOLE, gridinqypole, INT) ...@@ -245,8 +245,6 @@ FCALLSCFUN1 (DOUBLE, gridInqYpole, GRIDINQYPOLE, gridinqypole, INT)
FCALLSCSUB2 (gridDefYpole, GRIDDEFYPOLE, griddefypole, INT, DOUBLE) FCALLSCSUB2 (gridDefYpole, GRIDDEFYPOLE, griddefypole, INT, DOUBLE)
FCALLSCFUN1 (DOUBLE, gridInqAngle, GRIDINQANGLE, gridinqangle, INT) FCALLSCFUN1 (DOUBLE, gridInqAngle, GRIDINQANGLE, gridinqangle, INT)
FCALLSCSUB2 (gridDefAngle, GRIDDEFANGLE, griddefangle, INT, DOUBLE) FCALLSCSUB2 (gridDefAngle, GRIDDEFANGLE, griddefangle, INT, DOUBLE)
FCALLSCFUN1 (DOUBLE, gridInqNpole, GRIDINQNPOLE, gridinqnpole, INT)
FCALLSCSUB2 (gridDefNpole, GRIDDEFNPOLE, griddefnpole, INT, DOUBLE)
FCALLSCSUB2 (gridDefTrunc, GRIDDEFTRUNC, griddeftrunc, INT, INT) FCALLSCSUB2 (gridDefTrunc, GRIDDEFTRUNC, griddeftrunc, INT, INT)
FCALLSCFUN1 (INT, gridInqTrunc, GRIDINQTRUNC, gridinqtrunc, 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