Commit 9782736d authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Docu update

parent 568e363a
......@@ -135,7 +135,7 @@
\end{picture}
\begin{flushright}
\large\bf{Climate Data Interface \\ Version 1.5.5 \\ May 2012}
\large\bf{Climate Data Interface \\ Version 1.5.6 \\ July 2012}
\end{flushright}
\vfill
......
......@@ -132,7 +132,7 @@
\end{picture}
\begin{flushright}
\large\bf{Climate Data Interface \\ Version 1.5.5 \\ May 2012}
\large\bf{Climate Data Interface \\ Version 1.5.6 \\ July 2012}
\end{flushright}
\vfill
......
......@@ -314,7 +314,7 @@ The function {\tt gridDefXvals} defines all values of the X-axis.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE gridDefXvals(INTEGER gridID, const REAL*8 xvals)
SUBROUTINE gridDefXvals(INTEGER gridID, REAL*8 xvals)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......@@ -368,7 +368,7 @@ The function {\tt gridDefYvals} defines all values of the Y-axis.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE gridDefYvals(INTEGER gridID, const REAL*8 yvals)
SUBROUTINE gridDefYvals(INTEGER gridID, REAL*8 yvals)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......@@ -422,7 +422,7 @@ The function {\tt gridDefXbounds} defines all bounds of the X-axis.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE gridDefXbounds(INTEGER gridID, const REAL*8 xbounds)
SUBROUTINE gridDefXbounds(INTEGER gridID, REAL*8 xbounds)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......@@ -476,7 +476,7 @@ The function {\tt gridDefYbounds} defines all bounds of the Y-axis.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE gridDefYbounds(INTEGER gridID, const REAL*8 ybounds)
SUBROUTINE gridDefYbounds(INTEGER gridID, REAL*8 ybounds)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......
......@@ -38,7 +38,7 @@ gridDefXbounds
\fi
}
\begin{verbatim}
SUBROUTINE gridDefXbounds(INTEGER gridID, const REAL*8 xbounds)
SUBROUTINE gridDefXbounds(INTEGER gridID, REAL*8 xbounds)
\end{verbatim}
Define the bounds of a X-axis
......@@ -113,7 +113,7 @@ gridDefXvals
\fi
}
\begin{verbatim}
SUBROUTINE gridDefXvals(INTEGER gridID, const REAL*8 xvals)
SUBROUTINE gridDefXvals(INTEGER gridID, REAL*8 xvals)
\end{verbatim}
Define the values of a X-axis
......@@ -128,7 +128,7 @@ gridDefYbounds
\fi
}
\begin{verbatim}
SUBROUTINE gridDefYbounds(INTEGER gridID, const REAL*8 ybounds)
SUBROUTINE gridDefYbounds(INTEGER gridID, REAL*8 ybounds)
\end{verbatim}
Define the bounds of a Y-axis
......@@ -203,7 +203,7 @@ gridDefYvals
\fi
}
\begin{verbatim}
SUBROUTINE gridDefYvals(INTEGER gridID, const REAL*8 yvals)
SUBROUTINE gridDefYvals(INTEGER gridID, REAL*8 yvals)
\end{verbatim}
Define the values of a Y-axis
......@@ -655,7 +655,7 @@ streamWriteVar
\fi
}
\begin{verbatim}
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, const REAL*8 data,
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, REAL*8 data,
INTEGER nmiss)
\end{verbatim}
......@@ -671,7 +671,7 @@ streamWriteVarF
\fi
}
\begin{verbatim}
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID, const float *data,
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID, REAL*4 data,
INTEGER nmiss)
\end{verbatim}
......@@ -688,7 +688,7 @@ streamWriteVarSlice
}
\begin{verbatim}
SUBROUTINE streamWriteVarSlice(INTEGER streamID, INTEGER varID, INTEGER levelID,
const REAL*8 data, INTEGER nmiss)
REAL*8 data, INTEGER nmiss)
\end{verbatim}
Write a horizontal slice of a variable
......@@ -704,7 +704,7 @@ streamWriteVarSliceF
}
\begin{verbatim}
SUBROUTINE streamWriteVarSliceF(INTEGER streamID, INTEGER varID, INTEGER levelID,
const float *data, INTEGER nmiss)
REAL*4 data, INTEGER nmiss)
\end{verbatim}
Write a horizontal slice of a variable
......@@ -961,7 +961,7 @@ vlistDefAttFlt
\begin{verbatim}
INTEGER FUNCTION vlistDefAttFlt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const REAL*8 dp)
REAL*8 dp)
\end{verbatim}
Define a floating point attribute
......@@ -978,7 +978,7 @@ vlistDefAttInt
\begin{verbatim}
INTEGER FUNCTION vlistDefAttInt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const INTEGER ip)
INTEGER ip)
\end{verbatim}
Define an integer attribute
......@@ -1469,7 +1469,7 @@ zaxisDefLevels
\fi
}
\begin{verbatim}
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, const REAL*8 levels)
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, REAL*8 levels)
\end{verbatim}
Define the levels of a Z-axis
......
......@@ -341,7 +341,7 @@ The values are converted to the external data type of the variable, if necessary
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, const REAL*8 data,
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, REAL*8 data,
INTEGER nmiss)
\end{verbatim}
......@@ -370,7 +370,7 @@ Only support for netCDF was implemented in this function.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID, const float *data,
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID, REAL*4 data,
INTEGER nmiss)
\end{verbatim}
......@@ -428,7 +428,7 @@ The values are converted to the external data type of the variable, if necessary
\begin{verbatim}
SUBROUTINE streamWriteVarSlice(INTEGER streamID, INTEGER varID, INTEGER levelID,
const REAL*8 data, INTEGER nmiss)
REAL*8 data, INTEGER nmiss)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......@@ -459,7 +459,7 @@ Only support for netCDF was implemented in this function.
\begin{verbatim}
SUBROUTINE streamWriteVarSliceF(INTEGER streamID, INTEGER varID, INTEGER levelID,
const float *data, INTEGER nmiss)
REAL*4 data, INTEGER nmiss)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......
......@@ -70,7 +70,7 @@ The function {\tt vlistDefAttInt} defines an integer attribute.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttInt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const INTEGER ip)
INTEGER ip)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......@@ -133,7 +133,7 @@ The function {\tt vlistDefAttFlt} defines a floating point attribute.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttFlt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const REAL*8 dp)
REAL*8 dp)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......
......@@ -132,7 +132,7 @@ The function {\tt zaxisDefLevels} defines the levels of a Z-axis.
\subsubsection*{Usage}
\begin{verbatim}
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, const REAL*8 levels)
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, REAL*8 levels)
\end{verbatim}
\hspace*{4mm}\begin{minipage}[]{15cm}
......
......@@ -324,6 +324,7 @@ sub printproto {
if ( "$ftype" eq "void" ) { $ftype = "SUBROUTINE"; }
if ( "$ftype" eq "int" ) { $ftype = "INTEGER FUNCTION"; }
if ( "$ftype" eq "double" ) { $ftype = "REAL*8 FUNCTION"; }
if ( "$ftype" eq "float" ) { $ftype = "REAL*4 FUNCTION"; }
$klen = 0;
$klen += length($ftype) + length($fname) + 6;
print FDOCFILE " $ftype $fname(";
......@@ -340,6 +341,9 @@ sub printproto {
$tag =~ s/int /INTEGER /og;
$tag =~ s/double \*/REAL*8 /og;
$tag =~ s/double /REAL*8 /og;
$tag =~ s/float \*/REAL*4 /og;
$tag =~ s/float /REAL*4 /og;
$tag =~ s/const //og;
$len = length($tag);
if ( $plen + $len > 80 ) {
print FDOCFILE "\n";
......@@ -370,10 +374,12 @@ sub printfortran {
}
$line =~ s/ < / .LT. /og;
$line =~ s/;$//og;
$line =~ s/int /INTEGER /og;
$line =~ s/double /REAL*8 /og;
$line =~ s/const char \*/CHARACTER\*(\*) /og;
$line =~ s/char \*/CHARACTER\*(\*) /og;
$line =~ s/int /INTEGER /og;
$line =~ s/double /REAL*8 /og;
$line =~ s/float /REAL*4 /og;
$line =~ s/const //og;
$line =~ s/if /IF /og;
$line =~ s/#include \"/INCLUDE \'/og;
$line =~ s/\"$/\'/og;
......
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