added vlistHasVarKey to fortran interface

doc/tex/c_quick_ref.tex

@@ -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}

doc/tex/f_quick_ref.tex

@@ -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}

src/cdi.h

@@ -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 */

src/cdi.inc

@@ -1219,6 +1219,12 @@
 !                                     DOUBLEPRECISION value)
       EXTERNAL        vlistDefVarDblKey
 
+      INTEGER         vlistHasVarKey
+!                                    (INTEGER         vlistID,
+!                                     INTEGER         varID,
+!                                     CHARACTER*(*)   name)
+      EXTERNAL        vlistHasVarKey
+
       DOUBLEPRECISION vlistInqVarDblKey
 !                                    (INTEGER         vlistID,
 !                                     INTEGER         varID,

src/cdiFortran.c

@@ -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)