Commit 8bb7ff8d authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

added vlistHasVarKey to fortran interface

parent f7758058
......@@ -846,6 +846,15 @@ Destroy a variable list.
Duplicate a variable list.
\section*{\tt \htmlref{vlistHasVarKey}{vlistHasVarKey}}
\begin{verbatim}
int vlistHasVarKey (int vlistID, int varID, const char *name);
\end{verbatim}
returns 1 if meta-data key was read, 0 otherwise..
\section*{\tt \htmlref{vlistInqAtt}{vlistInqAtt}}
\begin{verbatim}
......
......@@ -857,6 +857,16 @@ Destroy a variable list.
Duplicate a variable list.
\section*{\tt \htmlref{vlistHasVarKey}{vlistHasVarKey}}
\begin{verbatim}
INTEGER FUNCTION vlistHasVarKey (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name)
\end{verbatim}
returns 1 if meta-data key was read, 0 otherwise..
\section*{\tt \htmlref{vlistInqAtt}{vlistInqAtt}}
\begin{verbatim}
......
......@@ -548,7 +548,7 @@ void vlistDefVarIntKey(int vlistID, int varID, const char *name, int value);
void vlistDefVarDblKey(int vlistID, int varID, const char *name, double value);
/* vlistHasVarKey: returns 1 if meta-data key was read, 0 otherwise. */
int vlistHasVarKey(int vlistID, int varID, const char* name);
int vlistHasVarKey(int vlistID, int varID, const char *name);
/* vlistInqVarDblKey: raw access to GRIB meta-data */
double vlistInqVarDblKey(int vlistID, int varID, const char *name);
/* vlistInqVarIntKey: raw access to GRIB meta-data */
......
......@@ -1219,6 +1219,12 @@
! DOUBLEPRECISION value)
EXTERNAL vlistDefVarDblKey
INTEGER vlistHasVarKey
! (INTEGER vlistID,
! INTEGER varID,
! CHARACTER*(*) name)
EXTERNAL vlistHasVarKey
DOUBLEPRECISION vlistInqVarDblKey
! (INTEGER vlistID,
! INTEGER varID,
......
......@@ -257,6 +257,7 @@ FCALLSCFUN5 (INT, vlistInqVarEnsemble, VLISTINQVARENSEMBLE, vlistinqvarensemble,
FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING)
FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT)
FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE)
FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRING)
FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING)
FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING)
......
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