Commit 6751e2f8 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent 0a5102ec
......@@ -108,6 +108,15 @@ Get number of attributes assigned to this variable.
Create a horizontal Grid.
\section*{\tt \htmlref{gridDefDatatype}{gridDefDatatype}}
\begin{verbatim}
void gridDefDatatype (int gridID, int prec);
\end{verbatim}
Define the data type of a Grid.
\section*{\tt \htmlref{gridDefNP}{gridDefNP}}
\begin{verbatim}
......@@ -144,15 +153,6 @@ Define the number of vertex of a Gridbox.
Define the position of grid in the reference file.
\section*{\tt \htmlref{gridDefPrec}{gridDefPrec}}
\begin{verbatim}
void gridDefPrec (int gridID, int prec);
\end{verbatim}
Define the precision of a Grid.
\section*{\tt \htmlref{gridDefProj}{gridDefProj}}
\begin{verbatim}
......@@ -306,6 +306,15 @@ Destroy a horizontal Grid.
Duplicate a Grid.
\section*{\tt \htmlref{gridInqDatatype}{gridInqDatatype}}
\begin{verbatim}
int gridInqDatatype (int gridID);
\end{verbatim}
Get the data type of a Grid.
\section*{\tt \htmlref{gridInqNP}{gridInqNP}}
\begin{verbatim}
......@@ -342,15 +351,6 @@ Get the number of vertex of a Gridbox.
Get the position of grid in the reference file.
\section*{\tt \htmlref{gridInqPrec}{gridInqPrec}}
\begin{verbatim}
int gridInqPrec (int gridID);
\end{verbatim}
Get the precision of a Grid.
\section*{\tt \htmlref{gridInqProj}{gridInqProj}}
\begin{verbatim}
......
......@@ -110,6 +110,15 @@ Get number of attributes assigned to this variable.
Create a horizontal Grid.
\section*{\tt \htmlref{gridDefDatatype}{gridDefDatatype}}
\begin{verbatim}
SUBROUTINE gridDefDatatype (INTEGER gridID, INTEGER prec)
\end{verbatim}
Define the data type of a Grid.
\section*{\tt \htmlref{gridDefNP}{gridDefNP}}
\begin{verbatim}
......@@ -146,15 +155,6 @@ Define the number of vertex of a Gridbox.
Define the position of grid in the reference file.
\section*{\tt \htmlref{gridDefPrec}{gridDefPrec}}
\begin{verbatim}
SUBROUTINE gridDefPrec (INTEGER gridID, INTEGER prec)
\end{verbatim}
Define the precision of a Grid.
\section*{\tt \htmlref{gridDefProj}{gridDefProj}}
\begin{verbatim}
......@@ -308,6 +308,15 @@ Destroy a horizontal Grid.
Duplicate a Grid.
\section*{\tt \htmlref{gridInqDatatype}{gridInqDatatype}}
\begin{verbatim}
INTEGER FUNCTION gridInqDatatype (INTEGER gridID)
\end{verbatim}
Get the data type of a Grid.
\section*{\tt \htmlref{gridInqNP}{gridInqNP}}
\begin{verbatim}
......@@ -344,15 +353,6 @@ Get the number of vertex of a Gridbox.
Get the position of grid in the reference file.
\section*{\tt \htmlref{gridInqPrec}{gridInqPrec}}
\begin{verbatim}
INTEGER FUNCTION gridInqPrec (INTEGER gridID)
\end{verbatim}
Get the precision of a Grid.
\section*{\tt \htmlref{gridInqProj}{gridInqProj}}
\begin{verbatim}
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, July 2017
! Uwe Schulzweida, MPI-MET, Hamburg, September 2017
!
INTEGER CDI_MAX_NAME
......@@ -70,12 +70,14 @@
PARAMETER (CDI_FILETYPE_NC4 = 5)
INTEGER CDI_FILETYPE_NC4C
PARAMETER (CDI_FILETYPE_NC4C = 6)
INTEGER CDI_FILETYPE_NC5
PARAMETER (CDI_FILETYPE_NC5 = 7)
INTEGER CDI_FILETYPE_SRV
PARAMETER (CDI_FILETYPE_SRV = 7)
PARAMETER (CDI_FILETYPE_SRV = 8)
INTEGER CDI_FILETYPE_EXT
PARAMETER (CDI_FILETYPE_EXT = 8)
PARAMETER (CDI_FILETYPE_EXT = 9)
INTEGER CDI_FILETYPE_IEG
PARAMETER (CDI_FILETYPE_IEG = 9)
PARAMETER (CDI_FILETYPE_IEG = 10)
INTEGER FILETYPE_GRB
PARAMETER (FILETYPE_GRB = 1)
INTEGER FILETYPE_GRB2
......@@ -430,16 +432,18 @@
!
INTEGER CALENDAR_STANDARD
PARAMETER (CALENDAR_STANDARD = 0)
INTEGER CALENDAR_GREGORIAN
PARAMETER (CALENDAR_GREGORIAN = 1)
INTEGER CALENDAR_PROLEPTIC
PARAMETER (CALENDAR_PROLEPTIC = 1)
PARAMETER (CALENDAR_PROLEPTIC = 2)
INTEGER CALENDAR_360DAYS
PARAMETER (CALENDAR_360DAYS = 2)
PARAMETER (CALENDAR_360DAYS = 3)
INTEGER CALENDAR_365DAYS
PARAMETER (CALENDAR_365DAYS = 3)
PARAMETER (CALENDAR_365DAYS = 4)
INTEGER CALENDAR_366DAYS
PARAMETER (CALENDAR_366DAYS = 4)
PARAMETER (CALENDAR_366DAYS = 5)
INTEGER CALENDAR_NONE
PARAMETER (CALENDAR_NONE = 5)
PARAMETER (CALENDAR_NONE = 6)
!
! number of unsigned char needed to store UUID
!
......@@ -1724,14 +1728,14 @@
! CHARACTER*(*) ystdname)
EXTERNAL gridInqYstdname
! gridDefPrec
! gridDefDatatype
! (INTEGER gridID,
! INTEGER prec)
EXTERNAL gridDefPrec
EXTERNAL gridDefDatatype
INTEGER gridInqPrec
INTEGER gridInqDatatype
! (INTEGER gridID)
EXTERNAL gridInqPrec
EXTERNAL gridInqDatatype
DOUBLEPRECISION gridInqXval
! (INTEGER gridID,
......@@ -2099,14 +2103,14 @@
! CHARACTER*(*) stdname)
EXTERNAL zaxisInqStdname
! zaxisDefPrec
! zaxisDefDatatype
! (INTEGER zaxisID,
! INTEGER prec)
EXTERNAL zaxisDefPrec
EXTERNAL zaxisDefDatatype
INTEGER zaxisInqPrec
INTEGER zaxisInqDatatype
! (INTEGER zaxisID)
EXTERNAL zaxisInqPrec
EXTERNAL zaxisInqDatatype
! zaxisDefPositive
! (INTEGER zaxisID,
......@@ -2277,6 +2281,10 @@
! (INTEGER taxisID)
EXTERNAL taxisHasBounds
! taxisWithBounds
! (INTEGER taxisID)
EXTERNAL taxisWithBounds
! taxisDeleteBounds
! (INTEGER taxisID)
EXTERNAL taxisDeleteBounds
......
......@@ -370,8 +370,8 @@ FCALLSCSUB2 (gridDefYunits, GRIDDEFYUNITS, griddefyunits, INT, STRING)
FCALLSCSUB2 (gridInqYunits, GRIDINQYUNITS, gridinqyunits, INT, PSTRING)
FCALLSCSUB2 (gridInqXstdname, GRIDINQXSTDNAME, gridinqxstdname, INT, PSTRING)
FCALLSCSUB2 (gridInqYstdname, GRIDINQYSTDNAME, gridinqystdname, INT, PSTRING)
FCALLSCSUB2 (gridDefDatatype, GRIDDEFPREC, griddefprec, INT, INT)
FCALLSCFUN1 (INT, gridInqDatatype, GRIDINQPREC, gridinqprec, INT)
FCALLSCSUB2 (gridDefDatatype, GRIDDEFDATATYPE, griddefdatatype, INT, INT)
FCALLSCFUN1 (INT, gridInqDatatype, GRIDINQDATATYPE, gridinqdatatype, INT)
FCALLSCFUN2 (DOUBLE, gridInqXval, GRIDINQXVAL, gridinqxval, INT, INT)
FCALLSCFUN2 (DOUBLE, gridInqYval, GRIDINQYVAL, gridinqyval, INT, INT)
FCALLSCFUN1 (DOUBLE, gridInqXinc, GRIDINQXINC, gridinqxinc, INT)
......@@ -454,8 +454,8 @@ FCALLSCSUB2 (zaxisInqLongname, ZAXISINQLONGNAME, zaxisinqlongname, INT, PSTRING)
FCALLSCSUB2 (zaxisDefUnits, ZAXISDEFUNITS, zaxisdefunits, INT, STRING)
FCALLSCSUB2 (zaxisInqUnits, ZAXISINQUNITS, zaxisinqunits, INT, PSTRING)
FCALLSCSUB2 (zaxisInqStdname, ZAXISINQSTDNAME, zaxisinqstdname, INT, PSTRING)
FCALLSCSUB2 (zaxisDefDatatype, ZAXISDEFPREC, zaxisdefprec, INT, INT)
FCALLSCFUN1 (INT, zaxisInqDatatype, ZAXISINQPREC, zaxisinqprec, INT)
FCALLSCSUB2 (zaxisDefDatatype, ZAXISDEFDATATYPE, zaxisdefdatatype, INT, INT)
FCALLSCFUN1 (INT, zaxisInqDatatype, ZAXISINQDATATYPE, zaxisinqdatatype, INT)
FCALLSCSUB2 (zaxisDefPositive, ZAXISDEFPOSITIVE, zaxisdefpositive, INT, INT)
FCALLSCFUN1 (INT, zaxisInqPositive, ZAXISINQPOSITIVE, zaxisinqpositive, INT)
FCALLSCSUB1 (zaxisDefScalar, ZAXISDEFSCALAR, zaxisdefscalar, INT)
......@@ -495,6 +495,7 @@ FCALLSCSUB2 (taxisDefFtime, TAXISDEFFTIME, taxisdefftime, INT, INT)
FCALLSCFUN1 (INT, taxisInqFdate, TAXISINQFDATE, taxisinqfdate, INT)
FCALLSCFUN1 (INT, taxisInqFtime, TAXISINQFTIME, taxisinqftime, INT)
FCALLSCFUN1 (INT, taxisHasBounds, TAXISHASBOUNDS, taxishasbounds, INT)
FCALLSCSUB1 (taxisWithBounds, TAXISWITHBOUNDS, taxiswithbounds, INT)
FCALLSCSUB1 (taxisDeleteBounds, TAXISDELETEBOUNDS, taxisdeletebounds, INT)
FCALLSCSUB3 (taxisDefVdateBounds, TAXISDEFVDATEBOUNDS, taxisdefvdatebounds, INT, INT, INT)
FCALLSCSUB3 (taxisDefVtimeBounds, TAXISDEFVTIMEBOUNDS, taxisdefvtimebounds, INT, INT, INT)
......
Supports Markdown
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