Commit 7ab7bb49 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update

parent 5c7f1ce7
......@@ -713,7 +713,7 @@ Define the time axis of a variable list.
\section*{\tt \htmlref{vlistDefVar}{vlistDefVar}}
\begin{verbatim}
int vlistDefVar (intvlistID, intgridID, intzaxisID, inttimeID);
int vlistDefVar (intvlistID, intgridID, intzaxisID, inttsteptype);
\end{verbatim}
Create a new Variable.
......
......@@ -720,7 +720,7 @@ Define the time axis of a variable list.
\begin{verbatim}
INTEGER FUNCTION vlistDefVar (INTEGER vlistID, INTEGER gridID, INTEGER zaxisID,
INTEGER timeID)
INTEGER tsteptype)
\end{verbatim}
Create a new Variable.
......
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.5.5
! Fortran interface for CDI library version 1.5.6rc1
!
! Author:
! -------
......@@ -257,9 +257,9 @@
! TIME types
!
INTEGER TIME_CONSTANT
PARAMETER (TIME_CONSTANT = 1)
PARAMETER (TIME_CONSTANT = 0)
INTEGER TIME_VARIABLE
PARAMETER (TIME_VARIABLE = 2)
PARAMETER (TIME_VARIABLE = 1)
!
! TSTEP types
!
......@@ -748,7 +748,7 @@
! (INTEGER vlistID,
! INTEGER gridID,
! INTEGER zaxisID,
! INTEGER timeID)
! INTEGER tsteptype)
EXTERNAL vlistDefVar
! vlistChangeVarGrid
......@@ -768,7 +768,7 @@
! INTEGER varID,
! INTEGER gridID,
! INTEGER zaxisID,
! INTEGER timeID)
! INTEGER tsteptype)
EXTERNAL vlistInqVar
INTEGER vlistInqVarGrid
......@@ -786,6 +786,17 @@
! INTEGER varID)
EXTERNAL vlistInqVarTime
INTEGER vlistInqVarTsteptype
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarTsteptype
! vlistDefVarTsteptype
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER tsteptype)
EXTERNAL vlistDefVarTsteptype
! vlistDefVarCompType
! (INTEGER vlistID,
! INTEGER varID,
......@@ -971,17 +982,6 @@
! INTEGER varID)
EXTERNAL vlistInqVarAddoffset
! vlistDefVarTsteptype
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER tsteptype)
EXTERNAL vlistDefVarTsteptype
INTEGER vlistInqVarTsteptype
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarTsteptype
! vlistDefVarTimave
! (INTEGER vlistID,
! INTEGER varID,
......
......@@ -163,6 +163,8 @@ FCALLSCSUB5 (vlistInqVar, VLISTINQVAR, vlistinqvar, INT, INT, PINT, PINT, PINT)
FCALLSCFUN2 (INT, vlistInqVarGrid, VLISTINQVARGRID, vlistinqvargrid, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTime, VLISTINQVARTIME, vlistinqvartime, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarCompType, VLISTINQVARCOMPTYPE, vlistinqvarcomptype, INT, INT)
FCALLSCSUB3 (vlistDefVarCompLevel, VLISTDEFVARCOMPLEVEL, vlistdefvarcomplevel, INT, INT, INT)
......@@ -196,8 +198,6 @@ FCALLSCSUB3 (vlistDefVarScalefactor, VLISTDEFVARSCALEFACTOR, vlistdefvarscalefac
FCALLSCFUN2 (DOUBLE, vlistInqVarScalefactor, VLISTINQVARSCALEFACTOR, vlistinqvarscalefactor, INT, INT)
FCALLSCSUB3 (vlistDefVarAddoffset, VLISTDEFVARADDOFFSET, vlistdefvaraddoffset, INT, INT, DOUBLE)
FCALLSCFUN2 (DOUBLE, vlistInqVarAddoffset, VLISTINQVARADDOFFSET, vlistinqvaraddoffset, INT, INT)
FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
FCALLSCSUB3 (vlistDefVarTimave, VLISTDEFVARTIMAVE, vlistdefvartimave, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTimave, VLISTINQVARTIMAVE, vlistinqvartimave, INT, INT)
FCALLSCSUB3 (vlistDefVarTimaccu, VLISTDEFVARTIMACCU, vlistdefvartimaccu, 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