Commit c52e338c authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent 039619c6
......@@ -405,6 +405,15 @@ Get the type of a Grid.
Get the UUID of an unstructured grid.
\section*{\tt \htmlref{gridInqXIsc}{gridInqXIsc}}
\begin{verbatim}
int gridInqXIsc (int gridID);
\end{verbatim}
Find out whether X-coordinate is of type CHAR.
\section*{\tt \htmlref{gridInqXbounds}{gridInqXbounds}}
\begin{verbatim}
......@@ -477,6 +486,15 @@ Get one value of a X-axis.
Get all values of a X-axis.
\section*{\tt \htmlref{gridInqYIsc}{gridInqYIsc}}
\begin{verbatim}
int gridInqYIsc (int gridID);
\end{verbatim}
Find out whether Y-coordinate is of type CHAR.
\section*{\tt \htmlref{gridInqYbounds}{gridInqYbounds}}
\begin{verbatim}
......
......@@ -407,6 +407,15 @@ Get the type of a Grid.
Get the UUID of an unstructured grid.
\section*{\tt \htmlref{gridInqXIsc}{gridInqXIsc}}
\begin{verbatim}
INTEGER FUNCTION gridInqXIsc (INTEGER gridID)
\end{verbatim}
Find out whether X-coordinate is of type CHAR.
\section*{\tt \htmlref{gridInqXbounds}{gridInqXbounds}}
\begin{verbatim}
......@@ -479,6 +488,15 @@ Get one value of a X-axis.
Get all values of a X-axis.
\section*{\tt \htmlref{gridInqYIsc}{gridInqYIsc}}
\begin{verbatim}
INTEGER FUNCTION gridInqYIsc (INTEGER gridID)
\end{verbatim}
Find out whether Y-coordinate is of type CHAR.
\section*{\tt \htmlref{gridInqYbounds}{gridInqYbounds}}
\begin{verbatim}
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, April 2017
! Uwe Schulzweida, MPI-MET, Hamburg, May 2017
!
INTEGER CDI_MAX_NAME
......@@ -47,6 +47,8 @@
PARAMETER (CDI_EUFSTRUCT = -23)
INTEGER CDI_EUNC4
PARAMETER (CDI_EUNC4 = -24)
INTEGER CDI_EDIMSIZE
PARAMETER (CDI_EDIMSIZE = -25)
INTEGER CDI_ELIMIT
PARAMETER (CDI_ELIMIT = -99)
!
......@@ -269,6 +271,8 @@
PARAMETER (GRID_LCC = 11)
INTEGER GRID_PROJECTION
PARAMETER (GRID_PROJECTION = 12)
INTEGER GRID_CHARXY
PARAMETER (GRID_CHARXY = 13)
INTEGER CDI_PROJ_RLL
PARAMETER (CDI_PROJ_RLL = 21)
INTEGER CDI_PROJ_LCC
......@@ -332,6 +336,8 @@
PARAMETER (ZAXIS_MIX_LAYER = 24)
INTEGER ZAXIS_REFERENCE
PARAMETER (ZAXIS_REFERENCE = 25)
INTEGER ZAXIS_CHAR
PARAMETER (ZAXIS_CHAR = 26)
!
! SUBTYPE types
!
......@@ -1576,6 +1582,10 @@
! DOUBLEPRECISION xvals(*))
EXTERNAL gridInqXvals
INTEGER gridInqXIsc
! (INTEGER gridID)
EXTERNAL gridInqXIsc
! gridDefYvals
! (INTEGER gridID,
! DOUBLEPRECISION yvals(*))
......@@ -1586,6 +1596,10 @@
! DOUBLEPRECISION yvals(*))
EXTERNAL gridInqYvals
INTEGER gridInqYIsc
! (INTEGER gridID)
EXTERNAL gridInqYIsc
!
! CDI grid string key values
!
......
......@@ -338,8 +338,10 @@ FCALLSCSUB2 (gridDefNP, GRIDDEFNP, griddefnp, INT, INT)
FCALLSCFUN1 (INT, gridInqNP, GRIDINQNP, gridinqnp, INT)
FCALLSCSUB2 (gridDefXvals, GRIDDEFXVALS, griddefxvals, INT, DOUBLEV)
FCALLSCFUN2 (INT, gridInqXvals, GRIDINQXVALS, gridinqxvals, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridInqXIsc, GRIDINQXISC, gridinqxisc, INT)
FCALLSCSUB2 (gridDefYvals, GRIDDEFYVALS, griddefyvals, INT, DOUBLEV)
FCALLSCFUN2 (INT, gridInqYvals, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
/* CDI grid string key values */
......
Markdown is supported
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