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
548425a9
Commit
548425a9
authored
Sep 28, 2016
by
Uwe Schulzweida
Browse files
Fortran interface update.
parent
8522d5ed
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
548425a9
...
...
@@ -1623,6 +1623,10 @@
PARAMETER
(
CDI_KEY_UNITS
=
944
)
INTEGER
CDI_KEY_PSNAME
PARAMETER
(
CDI_KEY_PSNAME
=
950
)
INTEGER
CDI_KEY_P0NAME
PARAMETER
(
CDI_KEY_P0NAME
=
951
)
INTEGER
CDI_KEY_P0VALUE
PARAMETER
(
CDI_KEY_P0VALUE
=
952
)
INTEGER
cdiGridDefKeyStr
!
(
INTEGER
gridID
,
!
INTEGER
key
,
...
...
@@ -1637,6 +1641,18 @@
!
CHARACTER
*
(
*
)
mesg
)
EXTERNAL
cdiGridInqKeyStr
INTEGER
cdiZaxisDefKeyFlt
!
(
INTEGER
zaxisID
,
!
INTEGER
key
,
!
DOUBLEPRECISION
value
)
EXTERNAL
cdiZaxisDefKeyFlt
INTEGER
cdiZaxisInqKeyFlt
!
(
INTEGER
zaxisID
,
!
INTEGER
key
,
!
DOUBLEPRECISION
value
)
EXTERNAL
cdiZaxisInqKeyFlt
!
gridDefXname
!
(
INTEGER
gridID
,
!
CHARACTER
*
(
*
)
xname
)
...
...
src/cdiFortran.c
View file @
548425a9
...
...
@@ -336,6 +336,8 @@ FCALLSCFUN2 (INT, gridInqYvals, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN4
(
INT
,
cdiGridDefKeyStr
,
CDIGRIDDEFKEYSTR
,
cdigriddefkeystr
,
INT
,
INT
,
INT
,
STRING
)
FCALLSCFUN4
(
INT
,
cdiGridInqKeyStr
,
CDIGRIDINQKEYSTR
,
cdigridinqkeystr
,
INT
,
INT
,
INT
,
PSTRING
)
FCALLSCFUN3
(
INT
,
cdiZaxisDefKeyFlt
,
CDIZAXISDEFKEYFLT
,
cdizaxisdefkeyflt
,
INT
,
INT
,
DOUBLE
)
FCALLSCFUN3
(
INT
,
cdiZaxisInqKeyFlt
,
CDIZAXISINQKEYFLT
,
cdizaxisinqkeyflt
,
INT
,
INT
,
PDOUBLE
)
FCALLSCSUB2
(
gridDefXname
,
GRIDDEFXNAME
,
griddefxname
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqXname
,
GRIDINQXNAME
,
gridinqxname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefXlongname
,
GRIDDEFXLONGNAME
,
griddefxlongname
,
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