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
1821e4fc
Commit
1821e4fc
authored
Jan 11, 2010
by
Uwe Schulzweida
Browse files
update fortran interface
parent
93a2fed3
Changes
4
Hide whitespace changes
Inline
Side-by-side
doc/tex/c_quick_ref.tex
View file @
1821e4fc
...
...
@@ -898,6 +898,15 @@ Merge two variable lists.
Number of grids in a variable list.
\section*
{
\tt
\htmlref
{
vlistNumber
}{
vlistNumber
}}
\begin{verbatim}
int vlistNumber (intvlistID);
\end{verbatim}
Number type in a variable list.
\section*
{
\tt
\htmlref
{
vlistNvars
}{
vlistNvars
}}
\begin{verbatim}
...
...
doc/tex/f_quick_ref.tex
View file @
1821e4fc
...
...
@@ -909,6 +909,15 @@ Merge two variable lists.
Number of grids in a variable list.
\section*
{
\tt
\htmlref
{
vlistNumber
}{
vlistNumber
}}
\begin{verbatim}
INTEGER FUNCTION vlistNumber (INTEGER vlistID)
\end{verbatim}
Number type in a variable list.
\section*
{
\tt
\htmlref
{
vlistNvars
}{
vlistNvars
}}
\begin{verbatim}
...
...
src/cdi.inc
View file @
1821e4fc
...
...
@@ -4,7 +4,7 @@
!
!
Author
:
!
-------
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
December
200
9
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
January
20
1
0
!
INTEGER
CDI_UNDEFID
...
...
@@ -20,6 +20,12 @@
PARAMETER
(
CDI_BIGENDIAN
=
0
)
INTEGER
CDI_LITTLEENDIAN
PARAMETER
(
CDI_LITTLEENDIAN
=
1
)
INTEGER
CDI_REAL
PARAMETER
(
CDI_REAL
=
1
)
INTEGER
CDI_COMP
PARAMETER
(
CDI_COMP
=
2
)
INTEGER
CDI_BOTH
PARAMETER
(
CDI_BOTH
=
3
)
!
!
Error
identifier
!
...
...
@@ -140,6 +146,10 @@
PARAMETER
(
DATATYPE_PACK31
=
31
)
INTEGER
DATATYPE_PACK32
PARAMETER
(
DATATYPE_PACK32
=
32
)
INTEGER
DATATYPE_CPX32
PARAMETER
(
DATATYPE_CPX32
=
64
)
INTEGER
DATATYPE_CPX64
PARAMETER
(
DATATYPE_CPX64
=
128
)
INTEGER
DATATYPE_FLT32
PARAMETER
(
DATATYPE_FLT32
=
132
)
INTEGER
DATATYPE_FLT64
...
...
@@ -165,6 +175,8 @@
PARAMETER
(
DATATYPE_FLT
=
252
)
INTEGER
DATATYPE_TXT
PARAMETER
(
DATATYPE_TXT
=
253
)
INTEGER
DATATYPE_CPX
PARAMETER
(
DATATYPE_CPX
=
254
)
!
!
GRID
types
!
...
...
@@ -535,6 +547,10 @@
!
(
INTEGER
vlistID
)
EXTERNAL
vlistPrint
INTEGER
vlistNumber
!
(
INTEGER
vlistID
)
EXTERNAL
vlistNumber
INTEGER
vlistNvars
!
(
INTEGER
vlistID
)
EXTERNAL
vlistNvars
...
...
@@ -744,6 +760,11 @@
!
INTEGER
varID
)
EXTERNAL
vlistInqVarDatatype
INTEGER
vlistInqVarNumber
!
(
INTEGER
vlistID
,
!
INTEGER
varID
)
EXTERNAL
vlistInqVarNumber
!
vlistDefVarInstitut
!
(
INTEGER
vlistID
,
!
INTEGER
varID
,
...
...
src/cdiFortran.c
View file @
1821e4fc
...
...
@@ -116,6 +116,7 @@ FCALLSCSUB1 (vlistClearFlag, VLISTCLEARFLAG, vlistclearflag, INT)
FCALLSCSUB2
(
vlistCat
,
VLISTCAT
,
vlistcat
,
INT
,
INT
)
FCALLSCSUB2
(
vlistMerge
,
VLISTMERGE
,
vlistmerge
,
INT
,
INT
)
FCALLSCSUB1
(
vlistPrint
,
VLISTPRINT
,
vlistprint
,
INT
)
FCALLSCFUN1
(
INT
,
vlistNumber
,
VLISTNUMBER
,
vlistnumber
,
INT
)
FCALLSCFUN1
(
INT
,
vlistNvars
,
VLISTNVARS
,
vlistnvars
,
INT
)
FCALLSCFUN1
(
INT
,
vlistNgrids
,
VLISTNGRIDS
,
vlistngrids
,
INT
)
FCALLSCFUN1
(
INT
,
vlistNzaxis
,
VLISTNZAXIS
,
vlistnzaxis
,
INT
)
...
...
@@ -159,6 +160,7 @@ FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
FCALLSCFUN2
(
INT
,
vlistInqVarCode
,
VLISTINQVARCODE
,
vlistinqvarcode
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarDatatype
,
VLISTDEFVARDATATYPE
,
vlistdefvardatatype
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarDatatype
,
VLISTINQVARDATATYPE
,
vlistinqvardatatype
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarNumber
,
VLISTINQVARNUMBER
,
vlistinqvarnumber
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarInstitut
,
VLISTDEFVARINSTITUT
,
vlistdefvarinstitut
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarInstitut
,
VLISTINQVARINSTITUT
,
vlistinqvarinstitut
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarModel
,
VLISTDEFVARMODEL
,
vlistdefvarmodel
,
INT
,
INT
,
INT
)
...
...
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