update fortran interface

doc/tex/c_quick_ref.tex

@@ -898,6 +898,15 @@ Merge two variable lists.
 Number of grids in a variable list.
 
 
+\section*{\tt \htmlref{vlistNumber}{vlistNumber}}
+
+\begin{verbatim}
+    int vlistNumber (intvlistID);
+\end{verbatim}
+
+Number type in a variable list.
+
+
 \section*{\tt \htmlref{vlistNvars}{vlistNvars}}
 
 \begin{verbatim}

doc/tex/f_quick_ref.tex

@@ -909,6 +909,15 @@ Merge two variable lists.
 Number of grids in a variable list.
 
 
+\section*{\tt \htmlref{vlistNumber}{vlistNumber}}
+
+\begin{verbatim}
+    INTEGER FUNCTION vlistNumber (INTEGER vlistID)
+\end{verbatim}
+
+Number type in a variable list.
+
+
 \section*{\tt \htmlref{vlistNvars}{vlistNvars}}
 
 \begin{verbatim}

src/cdi.inc

@@ -4,7 +4,7 @@
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   December 2009
+! Uwe Schulzweida, MPI-MET, Hamburg,   January 2010
 !
 
       INTEGER    CDI_UNDEFID           
@@ -20,6 +20,12 @@
       PARAMETER (CDI_BIGENDIAN          =  0)
       INTEGER    CDI_LITTLEENDIAN      
       PARAMETER (CDI_LITTLEENDIAN       =  1)
+      INTEGER    CDI_REAL              
+      PARAMETER (CDI_REAL               =  1)
+      INTEGER    CDI_COMP              
+      PARAMETER (CDI_COMP               =  2)
+      INTEGER    CDI_BOTH              
+      PARAMETER (CDI_BOTH               =  3)
 !
 !  Error identifier
 !
@@ -140,6 +146,10 @@
       PARAMETER (DATATYPE_PACK31        = 31)
       INTEGER    DATATYPE_PACK32       
       PARAMETER (DATATYPE_PACK32        = 32)
+      INTEGER    DATATYPE_CPX32        
+      PARAMETER (DATATYPE_CPX32         = 64)
+      INTEGER    DATATYPE_CPX64        
+      PARAMETER (DATATYPE_CPX64         = 128)
       INTEGER    DATATYPE_FLT32        
       PARAMETER (DATATYPE_FLT32         = 132)
       INTEGER    DATATYPE_FLT64        
@@ -165,6 +175,8 @@
       PARAMETER (DATATYPE_FLT           = 252)
       INTEGER    DATATYPE_TXT          
       PARAMETER (DATATYPE_TXT           = 253)
+      INTEGER    DATATYPE_CPX          
+      PARAMETER (DATATYPE_CPX           = 254)
 !
 !  GRID types
 !
@@ -535,6 +547,10 @@
 !                                    (INTEGER         vlistID)
       EXTERNAL        vlistPrint
 
+      INTEGER         vlistNumber
+!                                    (INTEGER         vlistID)
+      EXTERNAL        vlistNumber
+
       INTEGER         vlistNvars
 !                                    (INTEGER         vlistID)
       EXTERNAL        vlistNvars
@@ -744,6 +760,11 @@
 !                                     INTEGER         varID)
       EXTERNAL        vlistInqVarDatatype
 
+      INTEGER         vlistInqVarNumber
+!                                    (INTEGER         vlistID,
+!                                     INTEGER         varID)
+      EXTERNAL        vlistInqVarNumber
+
 !                     vlistDefVarInstitut
 !                                    (INTEGER         vlistID,
 !                                     INTEGER         varID,

src/cdiFortran.c

@@ -116,6 +116,7 @@ FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT)
 FCALLSCSUB2 (vlistCat, VLISTCAT, vlistcat, INT, INT)
 FCALLSCSUB2 (vlistMerge, VLISTMERGE, vlistmerge, INT, INT)
 FCALLSCSUB1 (vlistPrint, VLISTPRINT, vlistprint, INT)
+FCALLSCFUN1 (INT, vlistNumber, VLISTNUMBER, vlistnumber, INT)
 FCALLSCFUN1 (INT, vlistNvars, VLISTNVARS, vlistnvars, INT)
 FCALLSCFUN1 (INT, vlistNgrids, VLISTNGRIDS, vlistngrids, INT)
 FCALLSCFUN1 (INT, vlistNzaxis, VLISTNZAXIS, vlistnzaxis, INT)
@@ -159,6 +160,7 @@ FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
 FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT)
 FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT)
 FCALLSCFUN2 (INT, vlistInqVarDatatype, VLISTINQVARDATATYPE, vlistinqvardatatype, INT, INT)
+FCALLSCFUN2 (INT, vlistInqVarNumber, VLISTINQVARNUMBER, vlistinqvarnumber, INT, INT)
 FCALLSCSUB3 (vlistDefVarInstitut, VLISTDEFVARINSTITUT, vlistdefvarinstitut, INT, INT, INT)
 FCALLSCFUN2 (INT, vlistInqVarInstitut, VLISTINQVARINSTITUT, vlistinqvarinstitut, INT, INT)
 FCALLSCSUB3 (vlistDefVarModel, VLISTDEFVARMODEL, vlistdefvarmodel, INT, INT, INT)