Commit 1821e4fc authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

update fortran interface

parent 93a2fed3
...@@ -898,6 +898,15 @@ Merge two variable lists. ...@@ -898,6 +898,15 @@ Merge two variable lists.
Number of grids in a variable list. 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}} \section*{\tt \htmlref{vlistNvars}{vlistNvars}}
\begin{verbatim} \begin{verbatim}
......
...@@ -909,6 +909,15 @@ Merge two variable lists. ...@@ -909,6 +909,15 @@ Merge two variable lists.
Number of grids in a variable list. 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}} \section*{\tt \htmlref{vlistNvars}{vlistNvars}}
\begin{verbatim} \begin{verbatim}
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
! !
! Author: ! Author:
! ------- ! -------
! Uwe Schulzweida, MPI-MET, Hamburg, December 2009 ! Uwe Schulzweida, MPI-MET, Hamburg, January 2010
! !
INTEGER CDI_UNDEFID INTEGER CDI_UNDEFID
...@@ -20,6 +20,12 @@ ...@@ -20,6 +20,12 @@
PARAMETER (CDI_BIGENDIAN = 0) PARAMETER (CDI_BIGENDIAN = 0)
INTEGER CDI_LITTLEENDIAN INTEGER CDI_LITTLEENDIAN
PARAMETER (CDI_LITTLEENDIAN = 1) 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 ! Error identifier
! !
...@@ -140,6 +146,10 @@ ...@@ -140,6 +146,10 @@
PARAMETER (DATATYPE_PACK31 = 31) PARAMETER (DATATYPE_PACK31 = 31)
INTEGER DATATYPE_PACK32 INTEGER DATATYPE_PACK32
PARAMETER (DATATYPE_PACK32 = 32) PARAMETER (DATATYPE_PACK32 = 32)
INTEGER DATATYPE_CPX32
PARAMETER (DATATYPE_CPX32 = 64)
INTEGER DATATYPE_CPX64
PARAMETER (DATATYPE_CPX64 = 128)
INTEGER DATATYPE_FLT32 INTEGER DATATYPE_FLT32
PARAMETER (DATATYPE_FLT32 = 132) PARAMETER (DATATYPE_FLT32 = 132)
INTEGER DATATYPE_FLT64 INTEGER DATATYPE_FLT64
...@@ -165,6 +175,8 @@ ...@@ -165,6 +175,8 @@
PARAMETER (DATATYPE_FLT = 252) PARAMETER (DATATYPE_FLT = 252)
INTEGER DATATYPE_TXT INTEGER DATATYPE_TXT
PARAMETER (DATATYPE_TXT = 253) PARAMETER (DATATYPE_TXT = 253)
INTEGER DATATYPE_CPX
PARAMETER (DATATYPE_CPX = 254)
! !
! GRID types ! GRID types
! !
...@@ -535,6 +547,10 @@ ...@@ -535,6 +547,10 @@
! (INTEGER vlistID) ! (INTEGER vlistID)
EXTERNAL vlistPrint EXTERNAL vlistPrint
INTEGER vlistNumber
! (INTEGER vlistID)
EXTERNAL vlistNumber
INTEGER vlistNvars INTEGER vlistNvars
! (INTEGER vlistID) ! (INTEGER vlistID)
EXTERNAL vlistNvars EXTERNAL vlistNvars
...@@ -744,6 +760,11 @@ ...@@ -744,6 +760,11 @@
! INTEGER varID) ! INTEGER varID)
EXTERNAL vlistInqVarDatatype EXTERNAL vlistInqVarDatatype
INTEGER vlistInqVarNumber
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarNumber
! vlistDefVarInstitut ! vlistDefVarInstitut
! (INTEGER vlistID, ! (INTEGER vlistID,
! INTEGER varID, ! INTEGER varID,
......
...@@ -116,6 +116,7 @@ FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT) ...@@ -116,6 +116,7 @@ FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT)
FCALLSCSUB2 (vlistCat, VLISTCAT, vlistcat, INT, INT) FCALLSCSUB2 (vlistCat, VLISTCAT, vlistcat, INT, INT)
FCALLSCSUB2 (vlistMerge, VLISTMERGE, vlistmerge, INT, INT) FCALLSCSUB2 (vlistMerge, VLISTMERGE, vlistmerge, INT, INT)
FCALLSCSUB1 (vlistPrint, VLISTPRINT, vlistprint, INT) FCALLSCSUB1 (vlistPrint, VLISTPRINT, vlistprint, INT)
FCALLSCFUN1 (INT, vlistNumber, VLISTNUMBER, vlistnumber, INT)
FCALLSCFUN1 (INT, vlistNvars, VLISTNVARS, vlistnvars, INT) FCALLSCFUN1 (INT, vlistNvars, VLISTNVARS, vlistnvars, INT)
FCALLSCFUN1 (INT, vlistNgrids, VLISTNGRIDS, vlistngrids, INT) FCALLSCFUN1 (INT, vlistNgrids, VLISTNGRIDS, vlistngrids, INT)
FCALLSCFUN1 (INT, vlistNzaxis, VLISTNZAXIS, vlistnzaxis, INT) FCALLSCFUN1 (INT, vlistNzaxis, VLISTNZAXIS, vlistnzaxis, INT)
...@@ -159,6 +160,7 @@ FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT) ...@@ -159,6 +160,7 @@ FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT) FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT)
FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT) FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarDatatype, VLISTINQVARDATATYPE, vlistinqvardatatype, INT, INT) FCALLSCFUN2 (INT, vlistInqVarDatatype, VLISTINQVARDATATYPE, vlistinqvardatatype, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarNumber, VLISTINQVARNUMBER, vlistinqvarnumber, INT, INT)
FCALLSCSUB3 (vlistDefVarInstitut, VLISTDEFVARINSTITUT, vlistdefvarinstitut, INT, INT, INT) FCALLSCSUB3 (vlistDefVarInstitut, VLISTDEFVARINSTITUT, vlistdefvarinstitut, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarInstitut, VLISTINQVARINSTITUT, vlistinqvarinstitut, INT, INT) FCALLSCFUN2 (INT, vlistInqVarInstitut, VLISTINQVARINSTITUT, vlistinqvarinstitut, INT, INT)
FCALLSCSUB3 (vlistDefVarModel, VLISTDEFVARMODEL, vlistdefvarmodel, INT, INT, INT) FCALLSCSUB3 (vlistDefVarModel, VLISTDEFVARMODEL, vlistdefvarmodel, INT, INT, INT)
......
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