Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
802e066e
Commit
802e066e
authored
Aug 05, 2015
by
Thomas Jahns
🤸
Browse files
Replace _vec suffix with array brackets.
parent
bc86c996
Changes
8
Expand all
Hide whitespace changes
Inline
Side-by-side
doc/tex/c_quick_ref.tex
View file @
802e066e
...
...
@@ -97,7 +97,7 @@ Define the UUID of an unstructured grid.
\section*
{
\tt
\htmlref
{
gridDefXbounds
}{
gridDefXbounds
}}
\begin{verbatim}
void gridDefXbounds (int gridID, const double
*
xbounds
_
vec
);
void gridDefXbounds (int gridID, const double xbounds
[]
);
\end{verbatim}
Define the bounds of a X-axis.
...
...
@@ -142,7 +142,7 @@ Define the units of a X-axis.
\section*
{
\tt
\htmlref
{
gridDefXvals
}{
gridDefXvals
}}
\begin{verbatim}
void gridDefXvals (int gridID, const double
*
xvals
_
vec
);
void gridDefXvals (int gridID, const double xvals
[]
);
\end{verbatim}
Define the values of a X-axis.
...
...
@@ -151,7 +151,7 @@ Define the values of a X-axis.
\section*
{
\tt
\htmlref
{
gridDefYbounds
}{
gridDefYbounds
}}
\begin{verbatim}
void gridDefYbounds (int gridID, const double
*
ybounds
_
vec
);
void gridDefYbounds (int gridID, const double ybounds
[]
);
\end{verbatim}
Define the bounds of a Y-axis.
...
...
@@ -196,7 +196,7 @@ Define the units of a Y-axis.
\section*
{
\tt
\htmlref
{
gridDefYvals
}{
gridDefYvals
}}
\begin{verbatim}
void gridDefYvals (int gridID, const double
*
yvals
_
vec
);
void gridDefYvals (int gridID, const double yvals
[]
);
\end{verbatim}
Define the values of a Y-axis.
...
...
@@ -304,7 +304,7 @@ Get the UUID of an unstructured grid.
\section*
{
\tt
\htmlref
{
gridInqXbounds
}{
gridInqXbounds
}}
\begin{verbatim}
int gridInqXbounds (int gridID, double
*
xbounds
_
vec
);
int gridInqXbounds (int gridID, double xbounds
[]
);
\end{verbatim}
Get the bounds of a X-axis.
...
...
@@ -367,7 +367,7 @@ Get one value of a X-axis.
\section*
{
\tt
\htmlref
{
gridInqXvals
}{
gridInqXvals
}}
\begin{verbatim}
int gridInqXvals (int gridID, double
*
xvals
_
vec
);
int gridInqXvals (int gridID, double xvals
[]
);
\end{verbatim}
Get all values of a X-axis.
...
...
@@ -376,7 +376,7 @@ Get all values of a X-axis.
\section*
{
\tt
\htmlref
{
gridInqYbounds
}{
gridInqYbounds
}}
\begin{verbatim}
int gridInqYbounds (int gridID, double
*
ybounds
_
vec
);
int gridInqYbounds (int gridID, double ybounds
[]
);
\end{verbatim}
Get the bounds of a Y-axis.
...
...
@@ -439,7 +439,7 @@ Get one value of a Y-axis.
\section*
{
\tt
\htmlref
{
gridInqYvals
}{
gridInqYvals
}}
\begin{verbatim}
int gridInqYvals (int gridID, double
*
yvals
_
vec
);
int gridInqYvals (int gridID, double yvals
[]
);
\end{verbatim}
Get all values of a Y-axis.
...
...
@@ -574,7 +574,7 @@ Create a new dataset.
\section*
{
\tt
\htmlref
{
streamReadVar
}{
streamReadVar
}}
\begin{verbatim}
void streamReadVar (int streamID, int varID, double
*
data
_
vec
, int *nmiss);
void streamReadVar (int streamID, int varID, double data
[]
, int *nmiss);
\end{verbatim}
Read a variable.
...
...
@@ -583,7 +583,7 @@ Read a variable.
\section*
{
\tt
\htmlref
{
streamReadVarSlice
}{
streamReadVarSlice
}}
\begin{verbatim}
void streamReadVarSlice (int streamID, int varID, int levelID, double
*
data
_
vec
,
void streamReadVarSlice (int streamID, int varID, int levelID, double data
[]
,
int *nmiss);
\end{verbatim}
...
...
@@ -602,7 +602,7 @@ Synchronize an Open Dataset to Disk.
\section*
{
\tt
\htmlref
{
streamWriteVar
}{
streamWriteVar
}}
\begin{verbatim}
void streamWriteVar (int streamID, int varID, const double
*
data
_
vec
, int nmiss);
void streamWriteVar (int streamID, int varID, const double data
[]
, int nmiss);
\end{verbatim}
Write a variable.
...
...
@@ -612,7 +612,7 @@ Write a variable.
\begin{verbatim}
void streamWriteVarSlice (int streamID, int varID, int levelID,
const double
*
data
_
vec
, int nmiss);
const double data
[]
, int nmiss);
\end{verbatim}
Write a horizontal slice of a variable.
...
...
@@ -856,7 +856,7 @@ Create a variable list.
\begin{verbatim}
int vlistDefAttFlt (int vlistID, int varID, const char *name, int type, int len,
const double
*
dp
_
vec
);
const double dp
[]
);
\end{verbatim}
Define a floating point attribute.
...
...
@@ -866,7 +866,7 @@ Define a floating point attribute.
\begin{verbatim}
int vlistDefAttInt (int vlistID, int varID, const char *name, int type, int len,
const int
*
ip
_
vec
);
const int ip
[]
);
\end{verbatim}
Define an integer attribute.
...
...
@@ -1050,7 +1050,7 @@ Get information about an attribute.
\begin{verbatim}
int vlistInqAttFlt (int vlistID, int varID, const char *name, int mlen,
double
*
dp
_
vec
);
double dp
[]
);
\end{verbatim}
Get the value(s) of a floating point attribute.
...
...
@@ -1059,8 +1059,7 @@ Get the value(s) of a floating point attribute.
\section*
{
\tt
\htmlref
{
vlistInqAttInt
}{
vlistInqAttInt
}}
\begin{verbatim}
int vlistInqAttInt (int vlistID, int varID, const char *name, int mlen,
int *ip
_
vec);
int vlistInqAttInt (int vlistID, int varID, const char *name, int mlen, int ip[]);
\end{verbatim}
Get the value(s) of an integer attribute.
...
...
@@ -1277,7 +1276,7 @@ Define one level of a Z-axis.
\section*
{
\tt
\htmlref
{
zaxisDefLevels
}{
zaxisDefLevels
}}
\begin{verbatim}
void zaxisDefLevels (int zaxisID, const double
*
levels
_
vec
);
void zaxisDefLevels (int zaxisID, const double levels
[]
);
\end{verbatim}
Define the levels of a Z-axis.
...
...
@@ -1367,7 +1366,7 @@ Get one level of a Z-axis.
\section*
{
\tt
\htmlref
{
zaxisInqLevels
}{
zaxisInqLevels
}}
\begin{verbatim}
void zaxisInqLevels (int zaxisID, double
*
levels
_
vec
);
void zaxisInqLevels (int zaxisID, double levels
[]
);
\end{verbatim}
Get all levels of a Z-axis.
...
...
doc/tex/f_quick_ref.tex
View file @
802e066e
...
...
@@ -97,7 +97,7 @@ Define the UUID of an unstructured grid.
\section*
{
\tt
\htmlref
{
gridDefXbounds
}{
gridDefXbounds
}}
\begin{verbatim}
SUBROUTINE gridDefXbounds (INTEGER gridID, DOUBLEPRECISION xbounds
_
vec
)
SUBROUTINE gridDefXbounds (INTEGER gridID, DOUBLEPRECISION xbounds)
\end{verbatim}
Define the bounds of a X-axis.
...
...
@@ -142,7 +142,7 @@ Define the units of a X-axis.
\section*
{
\tt
\htmlref
{
gridDefXvals
}{
gridDefXvals
}}
\begin{verbatim}
SUBROUTINE gridDefXvals (INTEGER gridID, DOUBLEPRECISION xvals
_
vec
)
SUBROUTINE gridDefXvals (INTEGER gridID, DOUBLEPRECISION xvals)
\end{verbatim}
Define the values of a X-axis.
...
...
@@ -151,7 +151,7 @@ Define the values of a X-axis.
\section*
{
\tt
\htmlref
{
gridDefYbounds
}{
gridDefYbounds
}}
\begin{verbatim}
SUBROUTINE gridDefYbounds (INTEGER gridID, DOUBLEPRECISION ybounds
_
vec
)
SUBROUTINE gridDefYbounds (INTEGER gridID, DOUBLEPRECISION ybounds)
\end{verbatim}
Define the bounds of a Y-axis.
...
...
@@ -196,7 +196,7 @@ Define the units of a Y-axis.
\section*
{
\tt
\htmlref
{
gridDefYvals
}{
gridDefYvals
}}
\begin{verbatim}
SUBROUTINE gridDefYvals (INTEGER gridID, DOUBLEPRECISION yvals
_
vec
)
SUBROUTINE gridDefYvals (INTEGER gridID, DOUBLEPRECISION yvals)
\end{verbatim}
Define the values of a Y-axis.
...
...
@@ -304,7 +304,7 @@ Get the UUID of an unstructured grid.
\section*
{
\tt
\htmlref
{
gridInqXbounds
}{
gridInqXbounds
}}
\begin{verbatim}
INTEGER FUNCTION gridInqXbounds (INTEGER gridID, DOUBLEPRECISION xbounds
_
vec
)
INTEGER FUNCTION gridInqXbounds (INTEGER gridID, DOUBLEPRECISION xbounds)
\end{verbatim}
Get the bounds of a X-axis.
...
...
@@ -367,7 +367,7 @@ Get one value of a X-axis.
\section*
{
\tt
\htmlref
{
gridInqXvals
}{
gridInqXvals
}}
\begin{verbatim}
INTEGER FUNCTION gridInqXvals (INTEGER gridID, DOUBLEPRECISION xvals
_
vec
)
INTEGER FUNCTION gridInqXvals (INTEGER gridID, DOUBLEPRECISION xvals)
\end{verbatim}
Get all values of a X-axis.
...
...
@@ -376,7 +376,7 @@ Get all values of a X-axis.
\section*
{
\tt
\htmlref
{
gridInqYbounds
}{
gridInqYbounds
}}
\begin{verbatim}
INTEGER FUNCTION gridInqYbounds (INTEGER gridID, DOUBLEPRECISION ybounds
_
vec
)
INTEGER FUNCTION gridInqYbounds (INTEGER gridID, DOUBLEPRECISION ybounds)
\end{verbatim}
Get the bounds of a Y-axis.
...
...
@@ -439,7 +439,7 @@ Get one value of a Y-axis.
\section*
{
\tt
\htmlref
{
gridInqYvals
}{
gridInqYvals
}}
\begin{verbatim}
INTEGER FUNCTION gridInqYvals (INTEGER gridID, DOUBLEPRECISION yvals
_
vec
)
INTEGER FUNCTION gridInqYvals (INTEGER gridID, DOUBLEPRECISION yvals)
\end{verbatim}
Get all values of a Y-axis.
...
...
@@ -574,8 +574,8 @@ Create a new dataset.
\section*
{
\tt
\htmlref
{
streamReadVar
}{
streamReadVar
}}
\begin{verbatim}
SUBROUTINE streamReadVar (INTEGER streamID, INTEGER varID,
DOUBLEPRECISION data
_
vec,
INTEGER nmiss)
SUBROUTINE streamReadVar (INTEGER streamID, INTEGER varID,
DOUBLEPRECISION data,
INTEGER nmiss)
\end{verbatim}
Read a variable.
...
...
@@ -585,7 +585,7 @@ Read a variable.
\begin{verbatim}
SUBROUTINE streamReadVarSlice (INTEGER streamID, INTEGER varID, INTEGER levelID,
DOUBLEPRECISION data
_
vec
, INTEGER nmiss)
DOUBLEPRECISION data, INTEGER nmiss)
\end{verbatim}
Read a horizontal slice of a variable.
...
...
@@ -603,8 +603,8 @@ Synchronize an Open Dataset to Disk.
\section*
{
\tt
\htmlref
{
streamWriteVar
}{
streamWriteVar
}}
\begin{verbatim}
SUBROUTINE streamWriteVar (INTEGER streamID, INTEGER varID,
DOUBLEPRECISION data
_
vec,
INTEGER nmiss)
SUBROUTINE streamWriteVar (INTEGER streamID, INTEGER varID,
DOUBLEPRECISION data,
INTEGER nmiss)
\end{verbatim}
Write a variable.
...
...
@@ -614,7 +614,7 @@ Write a variable.
\begin{verbatim}
SUBROUTINE streamWriteVarSlice (INTEGER streamID, INTEGER varID, INTEGER levelID,
DOUBLEPRECISION data
_
vec
, INTEGER nmiss)
DOUBLEPRECISION data, INTEGER nmiss)
\end{verbatim}
Write a horizontal slice of a variable.
...
...
@@ -860,7 +860,7 @@ Create a variable list.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttFlt (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
DOUBLEPRECISION dp
_
vec
)
DOUBLEPRECISION dp)
\end{verbatim}
Define a floating point attribute.
...
...
@@ -871,7 +871,7 @@ Define a floating point attribute.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttInt (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
INTEGER ip
_
vec
)
INTEGER ip)
\end{verbatim}
Define an integer attribute.
...
...
@@ -1065,7 +1065,7 @@ Get information about an attribute.
\begin{verbatim}
INTEGER FUNCTION vlistInqAttFlt (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER mlen,
DOUBLEPRECISION dp
_
vec
)
DOUBLEPRECISION dp)
\end{verbatim}
Get the value(s) of a floating point attribute.
...
...
@@ -1075,8 +1075,7 @@ Get the value(s) of a floating point attribute.
\begin{verbatim}
INTEGER FUNCTION vlistInqAttInt (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER mlen,
INTEGER ip
_
vec)
CHARACTER*(*) name, INTEGER mlen, INTEGER ip)
\end{verbatim}
Get the value(s) of an integer attribute.
...
...
@@ -1299,7 +1298,7 @@ Define one level of a Z-axis.
\section*
{
\tt
\htmlref
{
zaxisDefLevels
}{
zaxisDefLevels
}}
\begin{verbatim}
SUBROUTINE zaxisDefLevels (INTEGER zaxisID, DOUBLEPRECISION levels
_
vec
)
SUBROUTINE zaxisDefLevels (INTEGER zaxisID, DOUBLEPRECISION levels)
\end{verbatim}
Define the levels of a Z-axis.
...
...
@@ -1389,7 +1388,7 @@ Get one level of a Z-axis.
\section*
{
\tt
\htmlref
{
zaxisInqLevels
}{
zaxisInqLevels
}}
\begin{verbatim}
SUBROUTINE zaxisInqLevels (INTEGER zaxisID, DOUBLEPRECISION levels
_
vec
)
SUBROUTINE zaxisInqLevels (INTEGER zaxisID, DOUBLEPRECISION levels)
\end{verbatim}
Get all levels of a Z-axis.
...
...
interfaces/f2003/bindGen.rb
View file @
802e066e
...
...
@@ -150,7 +150,7 @@ $argumentTemplates =
#these templates must precede the more general templates for pointer arguments.
#That way, we can override the more general template with the more special one if both match.
{
#<integerTypes>* <name>_vec
:regex
=>
'^\s*(?<type><integerTypes>)\s*\*\s*(?<name>\w+_vec)\s*$'
,
:regex
=>
'^\s*(?<type><integerTypes>)\s*
(?:
\*\s*(?<name>\w+_vec)
|(?<name>\w+)\[\])
\s*$'
,
:placeholders
=>
%w[name type]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'integer(c_<type>), intent(inout) :: <name>_dummy(*)'
,
...
...
@@ -160,7 +160,7 @@ $argumentTemplates =
:passAs
=>
'integer(c_<type>), intent(inout) :: <name>_dummy(*)'
,
:postcallStatements
=>
""
},
{
#<floatTypes>* <name>_vec
:regex
=>
'^\s*(?<type><floatTypes>)\s*\*\s*(?<name>\w+_vec)\s*$'
,
:regex
=>
'^\s*(?<type><floatTypes>)\s*
(?:
\*\s*(?<name>\w+_vec)
|(?<name>\w+)\[\])
\s*$'
,
:placeholders
=>
%w[name type]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'real(c_<type>), intent(inout) :: <name>_dummy(*)'
,
...
...
@@ -180,7 +180,7 @@ $argumentTemplates =
:passAs
=>
'integer(kind = c_signed_char), intent(inout) :: <name>_dummy(<size>)'
,
:postcallStatements
=>
""
},
{
#const <integerTypes>* <name>_vec
:regex
=>
'^\s*const\s+(?<type><integerTypes>)\s*\*\s*(?<name>\w+_vec)\s*$'
,
:regex
=>
'^\s*const\s+(?<type><integerTypes>)\s*
(?:
\*\s*(?<name>\w+_vec)
|(?<name>\w+)\[\])
\s*$'
,
:placeholders
=>
%w[name type]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'integer(c_<type>), intent(in) :: <name>_dummy(*)'
,
...
...
@@ -190,7 +190,7 @@ $argumentTemplates =
:passAs
=>
'integer(c_<type>), intent(in) :: <name>_dummy(*)'
,
:postcallStatements
=>
""
},
{
#const <floatTypes>* <name>_vec
:regex
=>
'^\s*const\s+(?<type><floatTypes>)\s*\*\s*(?<name>\w+_vec)\s*$'
,
:regex
=>
'^\s*const\s+(?<type><floatTypes>)\s*
(?:
\*\s*(?<name>\w+_vec)
|(?<name>\w+)\[\])
\s*$'
,
:placeholders
=>
%w[name type]
,
:dummyName
=>
'<name>_dummy'
,
:acceptAs
=>
'real(c_<type>), intent(in) :: <name>_dummy(*)'
,
...
...
src/cdi.h
View file @
802e066e
...
...
@@ -359,31 +359,31 @@ int streamInqNvars ( int streamID );
/* STREAM var I/O routines */
/* streamWriteVar: Write a variable */
void
streamWriteVar
(
int
streamID
,
int
varID
,
const
double
*
data
_vec
,
int
nmiss
);
void
streamWriteVarF
(
int
streamID
,
int
varID
,
const
float
*
data
_vec
,
int
nmiss
);
void
streamWriteVar
(
int
streamID
,
int
varID
,
const
double
data
[]
,
int
nmiss
);
void
streamWriteVarF
(
int
streamID
,
int
varID
,
const
float
data
[]
,
int
nmiss
);
/* streamReadVar: Read a variable */
void
streamReadVar
(
int
streamID
,
int
varID
,
double
*
data
_vec
,
int
*
nmiss
);
void
streamReadVarF
(
int
streamID
,
int
varID
,
float
*
data
_vec
,
int
*
nmiss
);
void
streamReadVar
(
int
streamID
,
int
varID
,
double
data
[]
,
int
*
nmiss
);
void
streamReadVarF
(
int
streamID
,
int
varID
,
float
data
[]
,
int
*
nmiss
);
/* streamWriteVarSlice: Write a horizontal slice of a variable */
void
streamWriteVarSlice
(
int
streamID
,
int
varID
,
int
levelID
,
const
double
*
data
_vec
,
int
nmiss
);
void
streamWriteVarSliceF
(
int
streamID
,
int
varID
,
int
levelID
,
const
float
*
data
_vec
,
int
nmiss
);
void
streamWriteVarSlice
(
int
streamID
,
int
varID
,
int
levelID
,
const
double
data
[]
,
int
nmiss
);
void
streamWriteVarSliceF
(
int
streamID
,
int
varID
,
int
levelID
,
const
float
data
[]
,
int
nmiss
);
/* streamReadVarSlice: Read a horizontal slice of a variable */
void
streamReadVarSlice
(
int
streamID
,
int
varID
,
int
levelID
,
double
*
data
_vec
,
int
*
nmiss
);
void
streamReadVarSliceF
(
int
streamID
,
int
varID
,
int
levelID
,
float
*
data
_vec
,
int
*
nmiss
);
void
streamReadVarSlice
(
int
streamID
,
int
varID
,
int
levelID
,
double
data
[]
,
int
*
nmiss
);
void
streamReadVarSliceF
(
int
streamID
,
int
varID
,
int
levelID
,
float
data
[]
,
int
*
nmiss
);
void
streamWriteVarChunk
(
int
streamID
,
int
varID
,
const
int
rect
[
3
][
2
],
const
double
*
data
_vec
,
int
nmiss
);
void
streamWriteVarChunk
(
int
streamID
,
int
varID
,
const
int
rect
[
3
][
2
],
const
double
data
[]
,
int
nmiss
);
/* STREAM record I/O routines */
void
streamDefRecord
(
int
streamID
,
int
varID
,
int
levelID
);
void
streamInqRecord
(
int
streamID
,
int
*
varID
,
int
*
levelID
);
void
streamWriteRecord
(
int
streamID
,
const
double
*
data
_vec
,
int
nmiss
);
void
streamWriteRecordF
(
int
streamID
,
const
float
*
data
_vec
,
int
nmiss
);
void
streamReadRecord
(
int
streamID
,
double
*
data
_vec
,
int
*
nmiss
);
void
streamWriteRecord
(
int
streamID
,
const
double
data
[]
,
int
nmiss
);
void
streamWriteRecordF
(
int
streamID
,
const
float
data
[]
,
int
nmiss
);
void
streamReadRecord
(
int
streamID
,
double
data
[]
,
int
*
nmiss
);
void
streamCopyRecord
(
int
streamIDdest
,
int
streamIDsrc
);
void
streamInqGRIBinfo
(
int
streamID
,
int
*
intnum
,
float
*
fltnum
,
off_t
*
bignum
);
...
...
@@ -417,8 +417,8 @@ char *cdiIterator_inqVariableName(CdiIterator *me); //The caller is respo
int
cdiIterator_inqGridId
(
CdiIterator
*
me
);
//The returned id is only valid until the next call to cdiIteratorNextField().
//Reading data
void
cdiIterator_readField
(
CdiIterator
*
me
,
double
*
data
_vec
,
size_t
*
nmiss_optional
);
void
cdiIterator_readFieldF
(
CdiIterator
*
me
,
float
*
data
_vec
,
size_t
*
nmiss_optional
);
void
cdiIterator_readField
(
CdiIterator
*
me
,
double
data
[]
,
size_t
*
nmiss_optional
);
void
cdiIterator_readFieldF
(
CdiIterator
*
me
,
float
data
[]
,
size_t
*
nmiss_optional
);
//TODO[NH]: Add functions to read partial fields.
...
...
@@ -670,16 +670,16 @@ int vlistInqAtt(int vlistID, int varID, int attrnum, char *name, int *typep,
int
vlistDelAtt
(
int
vlistID
,
int
varID
,
const
char
*
name
);
/* vlistDefAttInt: Define an integer attribute */
int
vlistDefAttInt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
type
,
int
len
,
const
int
*
ip
_vec
);
int
vlistDefAttInt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
type
,
int
len
,
const
int
ip
[]
);
/* vlistDefAttFlt: Define a floating point attribute */
int
vlistDefAttFlt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
type
,
int
len
,
const
double
*
dp
_vec
);
int
vlistDefAttFlt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
type
,
int
len
,
const
double
dp
[]
);
/* vlistDefAttTxt: Define a text attribute */
int
vlistDefAttTxt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
len
,
const
char
*
tp_cbuf
);
/* vlistInqAttInt: Get the value(s) of an integer attribute */
int
vlistInqAttInt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
mlen
,
int
*
ip
_vec
);
int
vlistInqAttInt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
mlen
,
int
ip
[]
);
/* vlistInqAttFlt: Get the value(s) of a floating point attribute */
int
vlistInqAttFlt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
mlen
,
double
*
dp
_vec
);
int
vlistInqAttFlt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
mlen
,
double
dp
[]
);
/* vlistInqAttTxt: Get the value(s) of a text attribute */
int
vlistInqAttTxt
(
int
vlistID
,
int
varID
,
const
char
*
name
,
int
mlen
,
char
*
tp_cbuf
);
...
...
@@ -691,11 +691,11 @@ const char *gridNamePtr(int gridtype);
void
gridCompress
(
int
gridID
);
void
gridDefMaskGME
(
int
gridID
,
const
int
*
mask
_vec
);
int
gridInqMaskGME
(
int
gridID
,
int
*
mask
_vec
);
void
gridDefMaskGME
(
int
gridID
,
const
int
mask
[]
);
int
gridInqMaskGME
(
int
gridID
,
int
mask
[]
);
void
gridDefMask
(
int
gridID
,
const
int
*
mask
_vec
);
int
gridInqMask
(
int
gridID
,
int
*
mask
_vec
);
void
gridDefMask
(
int
gridID
,
const
int
mask
[]
);
int
gridInqMask
(
int
gridID
,
int
mask
[]
);
void
gridPrint
(
int
gridID
,
int
index
,
int
opt
);
...
...
@@ -733,16 +733,16 @@ void gridDefNP(int gridID, int np);
int
gridInqNP
(
int
gridID
);
/* gridDefXvals: Define the values of a X-axis */
void
gridDefXvals
(
int
gridID
,
const
double
*
xvals
_vec
);
void
gridDefXvals
(
int
gridID
,
const
double
xvals
[]
);
/* gridInqXvals: Get all values of a X-axis */
int
gridInqXvals
(
int
gridID
,
double
*
xvals
_vec
);
int
gridInqXvals
(
int
gridID
,
double
xvals
[]
);
/* gridDefYvals: Define the values of a Y-axis */
void
gridDefYvals
(
int
gridID
,
const
double
*
yvals
_vec
);
void
gridDefYvals
(
int
gridID
,
const
double
yvals
[]
);
/* gridInqYvals: Get all values of a Y-axis */
int
gridInqYvals
(
int
gridID
,
double
*
yvals
_vec
);
int
gridInqYvals
(
int
gridID
,
double
yvals
[]
);
/* gridDefXname: Define the name of a X-axis */
void
gridDefXname
(
int
gridID
,
const
char
*
xname
);
...
...
@@ -868,8 +868,8 @@ void gridDefLaea(int gridID, double earth_radius, double lon_0, double lat_0);
void
gridInqLaea
(
int
gridID
,
double
*
earth_radius
,
double
*
lon_0
,
double
*
lat_0
);
void
gridDefArea
(
int
gridID
,
const
double
*
area
_vec
);
void
gridInqArea
(
int
gridID
,
double
*
area
_vec
);
void
gridDefArea
(
int
gridID
,
const
double
area
[]
);
void
gridInqArea
(
int
gridID
,
double
area
[]
);
int
gridHasArea
(
int
gridID
);
/* gridDefNvertex: Define the number of vertex of a Gridbox */
...
...
@@ -879,19 +879,19 @@ void gridDefNvertex(int gridID, int nvertex);
int
gridInqNvertex
(
int
gridID
);
/* gridDefXbounds: Define the bounds of a X-axis */
void
gridDefXbounds
(
int
gridID
,
const
double
*
xbounds
_vec
);
void
gridDefXbounds
(
int
gridID
,
const
double
xbounds
[]
);
/* gridInqXbounds: Get the bounds of a X-axis */
int
gridInqXbounds
(
int
gridID
,
double
*
xbounds
_vec
);
int
gridInqXbounds
(
int
gridID
,
double
xbounds
[]
);
/* gridDefYbounds: Define the bounds of a Y-axis */
void
gridDefYbounds
(
int
gridID
,
const
double
*
ybounds
_vec
);
void
gridDefYbounds
(
int
gridID
,
const
double
ybounds
[]
);
/* gridInqYbounds: Get the bounds of a Y-axis */
int
gridInqYbounds
(
int
gridID
,
double
*
ybounds
_vec
);
int
gridInqYbounds
(
int
gridID
,
double
ybounds
[]
);
void
gridDefRowlon
(
int
gridID
,
int
nrowlon
,
const
int
*
rowlon
_vec
);
void
gridInqRowlon
(
int
gridID
,
int
*
rowlon
_vec
);
void
gridDefRowlon
(
int
gridID
,
int
nrowlon
,
const
int
rowlon
[]
);
void
gridInqRowlon
(
int
gridID
,
int
rowlon
[]
);
void
gridChangeType
(
int
gridID
,
int
gridtype
);
void
gridDefComplexPacking
(
int
gridID
,
int
lpack
);
...
...
@@ -921,10 +921,10 @@ void zaxisResize(int zaxisID, int size);
void
zaxisPrint
(
int
zaxisID
,
int
index
);
/* zaxisDefLevels: Define the levels of a Z-axis */
void
zaxisDefLevels
(
int
zaxisID
,
const
double
*
levels
_vec
);
void
zaxisDefLevels
(
int
zaxisID
,
const
double
levels
[]
);
/* zaxisInqLevels: Get all levels of a Z-axis */
void
zaxisInqLevels
(
int
zaxisID
,
double
*
levels
_vec
);
void
zaxisInqLevels
(
int
zaxisID
,
double
levels
[]
);
/* zaxisDefLevel: Define one level of a Z-axis */
void
zaxisDefLevel
(
int
zaxisID
,
int
levelID
,
double
levels
);
...
...
@@ -981,18 +981,18 @@ void zaxisDefLtype(int zaxisID, int ltype);
int
zaxisInqLtype
(
int
zaxisID
);
const
double
*
zaxisInqLevelsPtr
(
int
zaxisID
);
void
zaxisDefVct
(
int
zaxisID
,
int
size
,
const
double
*
vct
_vec
);
void
zaxisInqVct
(
int
zaxisID
,
double
*
vct
_vec
);
void
zaxisDefVct
(
int
zaxisID
,
int
size
,
const
double
vct
[]
);
void
zaxisInqVct
(
int
zaxisID
,
double
vct
[]
);
int
zaxisInqVctSize
(
int
zaxisID
);
const
double
*
zaxisInqVctPtr
(
int
zaxisID
);
void
zaxisDefLbounds
(
int
zaxisID
,
const
double
*
lbounds
_vec
);
int
zaxisInqLbounds
(
int
zaxisID
,
double
*
lbounds
_vec
);
void
zaxisDefLbounds
(
int
zaxisID
,
const
double
lbounds
[]
);
int
zaxisInqLbounds
(
int
zaxisID
,
double
lbounds
[]
);
double
zaxisInqLbound
(
int
zaxisID
,
int
index
);
void
zaxisDefUbounds
(
int
zaxisID
,
const
double
*
ubounds
_vec
);
int
zaxisInqUbounds
(
int
zaxisID
,
double
*
ubounds
_vec
);
void
zaxisDefUbounds
(
int
zaxisID
,
const
double
ubounds
[]
);
int
zaxisInqUbounds
(
int
zaxisID
,
double
ubounds
[]
);
double
zaxisInqUbound
(
int
zaxisID
,
int
index
);
void
zaxisDefWeights
(
int
zaxisID
,
const
double
*
weights
_vec
);
int
zaxisInqWeights
(
int
zaxisID
,
double
*
weights
_vec
);
void
zaxisDefWeights
(
int
zaxisID
,
const
double
weights
[]
);
int
zaxisInqWeights
(
int
zaxisID
,
double
weights
[]
);
void
zaxisChangeType
(
int
zaxisID
,
int
zaxistype
);
/* TAXIS routines */
...
...
src/cdi.inc
View file @
802e066e
...
...
@@ -607,28 +607,28 @@
!
streamWriteVar
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteVar
!
streamWriteVarF
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
REAL
data
_vec
,
!
REAL
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteVarF
!
streamReadVar
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamReadVar
!
streamReadVarF
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
REAL
data
_vec
,
!
REAL
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamReadVarF
...
...
@@ -636,7 +636,7 @@
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
INTEGER
levelID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteVarSlice
...
...
@@ -644,7 +644,7 @@
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
INTEGER
levelID
,
!
REAL
data
_vec
,
!
REAL
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteVarSliceF
...
...
@@ -652,7 +652,7 @@
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
INTEGER
levelID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamReadVarSlice
...
...
@@ -660,7 +660,7 @@
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
INTEGER
levelID
,
!
REAL
data
_vec
,
!
REAL
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamReadVarSliceF
...
...
@@ -668,7 +668,7 @@
!
(
INTEGER
streamID
,
!
INTEGER
varID
,
!
INTEGER
rect
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteVarChunk
...
...
@@ -689,19 +689,19 @@
!
streamWriteRecord
!
(
INTEGER
streamID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteRecord
!
streamWriteRecordF
!
(
INTEGER
streamID
,
!
REAL
data
_vec
,
!
REAL
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamWriteRecordF
!
streamReadRecord
!
(
INTEGER
streamID
,
!
DOUBLEPRECISION
data
_vec
,
!
DOUBLEPRECISION
data
,
!
INTEGER
nmiss
)
EXTERNAL
streamReadRecord
...
...
@@ -1347,7 +1347,7 @@
!
CHARACTER
*
(
*
)
name
,