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
8bb7ff8d
Commit
8bb7ff8d
authored
Jun 24, 2013
by
Uwe Schulzweida
Browse files
added vlistHasVarKey to fortran interface
parent
f7758058
Changes
5
Hide whitespace changes
Inline
Side-by-side
doc/tex/c_quick_ref.tex
View file @
8bb7ff8d
...
...
@@ -846,6 +846,15 @@ Destroy a variable list.
Duplicate a variable list.
\section*
{
\tt
\htmlref
{
vlistHasVarKey
}{
vlistHasVarKey
}}
\begin{verbatim}
int vlistHasVarKey (int vlistID, int varID, const char *name);
\end{verbatim}
returns 1 if meta-data key was read, 0 otherwise..
\section*
{
\tt
\htmlref
{
vlistInqAtt
}{
vlistInqAtt
}}
\begin{verbatim}
...
...
doc/tex/f_quick_ref.tex
View file @
8bb7ff8d
...
...
@@ -857,6 +857,16 @@ Destroy a variable list.
Duplicate a variable list.
\section*
{
\tt
\htmlref
{
vlistHasVarKey
}{
vlistHasVarKey
}}
\begin{verbatim}
INTEGER FUNCTION vlistHasVarKey (INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name)
\end{verbatim}
returns 1 if meta-data key was read, 0 otherwise..
\section*
{
\tt
\htmlref
{
vlistInqAtt
}{
vlistInqAtt
}}
\begin{verbatim}
...
...
src/cdi.h
View file @
8bb7ff8d
...
...
@@ -548,7 +548,7 @@ void vlistDefVarIntKey(int vlistID, int varID, const char *name, int value);
void
vlistDefVarDblKey
(
int
vlistID
,
int
varID
,
const
char
*
name
,
double
value
);
/* vlistHasVarKey: returns 1 if meta-data key was read, 0 otherwise. */
int
vlistHasVarKey
(
int
vlistID
,
int
varID
,
const
char
*
name
);
int
vlistHasVarKey
(
int
vlistID
,
int
varID
,
const
char
*
name
);
/* vlistInqVarDblKey: raw access to GRIB meta-data */
double
vlistInqVarDblKey
(
int
vlistID
,
int
varID
,
const
char
*
name
);
/* vlistInqVarIntKey: raw access to GRIB meta-data */
...
...
src/cdi.inc
View file @
8bb7ff8d
...
...
@@ -1219,6 +1219,12 @@
!
DOUBLEPRECISION
value
)
EXTERNAL
vlistDefVarDblKey
INTEGER
vlistHasVarKey
!
(
INTEGER
vlistID
,
!
INTEGER
varID
,
!
CHARACTER
*
(
*
)
name
)
EXTERNAL
vlistHasVarKey
DOUBLEPRECISION
vlistInqVarDblKey
!
(
INTEGER
vlistID
,
!
INTEGER
varID
,
...
...
src/cdiFortran.c
View file @
8bb7ff8d
...
...
@@ -257,6 +257,7 @@ FCALLSCFUN5 (INT, vlistInqVarEnsemble, VLISTINQVARENSEMBLE, vlistinqvarensemble,
FCALLSCSUB1
(
cdiDefAdditionalKey
,
CDIDEFADDITIONALKEY
,
cdidefadditionalkey
,
STRING
)
FCALLSCSUB4
(
vlistDefVarIntKey
,
VLISTDEFVARINTKEY
,
vlistdefvarintkey
,
INT
,
INT
,
STRING
,
INT
)
FCALLSCSUB4
(
vlistDefVarDblKey
,
VLISTDEFVARDBLKEY
,
vlistdefvardblkey
,
INT
,
INT
,
STRING
,
DOUBLE
)
FCALLSCFUN3
(
INT
,
vlistHasVarKey
,
VLISTHASVARKEY
,
vlisthasvarkey
,
INT
,
INT
,
STRING
)
FCALLSCFUN3
(
DOUBLE
,
vlistInqVarDblKey
,
VLISTINQVARDBLKEY
,
vlistinqvardblkey
,
INT
,
INT
,
STRING
)
FCALLSCFUN3
(
INT
,
vlistInqVarIntKey
,
VLISTINQVARINTKEY
,
vlistinqvarintkey
,
INT
,
INT
,
STRING
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment