Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
7ec18a4a
Commit
7ec18a4a
authored
Feb 26, 2018
by
Uwe Schulzweida
Browse files
Fortran interface update.
parent
bfcc8d9d
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
7ec18a4a
...
...
@@ -1573,6 +1573,20 @@
PARAMETER
(
CDI_KEY_NUMBEROFFORECASTSINENSEMBLE
=
809
)
INTEGER
CDI_KEY_PERTURBATIONNUMBER
PARAMETER
(
CDI_KEY_PERTURBATIONNUMBER
=
810
)
INTEGER
CDI_KEY_CENTRE
PARAMETER
(
CDI_KEY_CENTRE
=
811
)
INTEGER
CDI_KEY_SUBCENTRE
PARAMETER
(
CDI_KEY_SUBCENTRE
=
812
)
INTEGER
CDI_KEY_MPIMTYPE
PARAMETER
(
CDI_KEY_MPIMTYPE
=
813
)
INTEGER
CDI_KEY_MPIMCLASS
PARAMETER
(
CDI_KEY_MPIMCLASS
=
814
)
INTEGER
CDI_KEY_MPIMUSER
PARAMETER
(
CDI_KEY_MPIMUSER
=
815
)
INTEGER
CDI_KEY_REVSTATUS
PARAMETER
(
CDI_KEY_REVSTATUS
=
816
)
INTEGER
CDI_KEY_REVNUMBER
PARAMETER
(
CDI_KEY_REVNUMBER
=
817
)
INTEGER
cdiDefKeyInt
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
...
...
@@ -1587,6 +1601,51 @@
!
INTEGER
value
)
EXTERNAL
cdiInqKeyInt
INTEGER
cdiDefKeyBytes
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
!
INTEGER
key
,
!
INTEGER
*
1
(
*
)
bytes
,
!
INTEGER
length
)
EXTERNAL
cdiDefKeyBytes
INTEGER
cdiInqKeyBytes
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
!
INTEGER
key
,
!
INTEGER
*
1
(
*
)
bytes
,
!
INTEGER
length
)
EXTERNAL
cdiInqKeyBytes
INTEGER
cdiDefKeyString
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
!
INTEGER
key
,
!
CHARACTER
*
(
*
)
string
)
EXTERNAL
cdiDefKeyString
INTEGER
cdiInqKeyLen
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
!
INTEGER
key
,
!
INTEGER
length
)
EXTERNAL
cdiInqKeyLen
INTEGER
cdiInqKeyString
!
(
INTEGER
cdiID
,
!
INTEGER
varID
,
!
INTEGER
key
,
!
CHARACTER
*
(
*
)
string
,
!
INTEGER
length
)
EXTERNAL
cdiInqKeyString
INTEGER
cdiCopyKeys
!
(
INTEGER
cdiID1
,
!
INTEGER
varID1
,
!
INTEGER
cdiID2
,
!
INTEGER
varID2
)
EXTERNAL
cdiCopyKeys
INTEGER
CDI_KEY_XNAME
PARAMETER
(
CDI_KEY_XNAME
=
901
)
INTEGER
CDI_KEY_XDIMNAME
...
...
src/cdiFortran.c
View file @
7ec18a4a
...
...
@@ -472,6 +472,12 @@ FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN1
(
INT
,
gridInqYIsc
,
GRIDINQYISC
,
gridinqyisc
,
INT
)
FCALLSCFUN4
(
INT
,
cdiDefKeyInt
,
CDIDEFKEYINT
,
cdidefkeyint
,
INT
,
INT
,
INT
,
INT
)
FCALLSCFUN4
(
INT
,
cdiInqKeyInt
,
CDIINQKEYINT
,
cdiinqkeyint
,
INT
,
INT
,
INT
,
PINT
)
FCALLSCFUN5
(
INT
,
cdiDefKeyBytes
,
CDIDEFKEYBYTES
,
cdidefkeybytes
,
INT
,
INT
,
INT
,
PVOID
,
INT
)
FCALLSCFUN5
(
INT
,
cdiInqKeyBytes
,
CDIINQKEYBYTES
,
cdiinqkeybytes
,
INT
,
INT
,
INT
,
PVOID
,
PINT
)
FCALLSCFUN4
(
INT
,
cdiDefKeyString
,
CDIDEFKEYSTRING
,
cdidefkeystring
,
INT
,
INT
,
INT
,
STRING
)
FCALLSCFUN4
(
INT
,
cdiInqKeyLen
,
CDIINQKEYLEN
,
cdiinqkeylen
,
INT
,
INT
,
INT
,
PINT
)
FCALLSCFUN5
(
INT
,
cdiInqKeyString
,
CDIINQKEYSTRING
,
cdiinqkeystring
,
INT
,
INT
,
INT
,
PSTRING
,
PINT
)
FCALLSCFUN4
(
INT
,
cdiCopyKeys
,
CDICOPYKEYS
,
cdicopykeys
,
INT
,
INT
,
INT
,
INT
)
FCALLSCFUN4
(
INT
,
cdiGridDefKeyStr
,
CDIGRIDDEFKEYSTR
,
cdigriddefkeystr
,
INT
,
INT
,
INT
,
STRING
)
FCALLSCFUN4
(
INT
,
cdiGridInqKeyStr
,
CDIGRIDINQKEYSTR
,
cdigridinqkeystr
,
INT
,
INT
,
INT
,
PSTRING
)
FCALLSCFUN4
(
INT
,
cdiZaxisDefKeyStr
,
CDIZAXISDEFKEYSTR
,
cdizaxisdefkeystr
,
INT
,
INT
,
INT
,
STRING
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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