Skip to content
GitLab
Menu
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
391c529d
Commit
391c529d
authored
Mar 14, 2011
by
Uwe Schulzweida
Browse files
fortran interface update
parent
c4ae6a1e
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
391c529d
...
...
@@ -955,11 +955,6 @@
!
INTEGER
varID
)
EXTERNAL
vlistInqVarSize
INTEGER
vlistInqVarID
!
(
INTEGER
vlistID
,
!
INTEGER
code
)
EXTERNAL
vlistInqVarID
!
vlistDefIndex
!
(
INTEGER
vlistID
,
!
INTEGER
varID
,
...
...
src/cdiFortran.c
View file @
391c529d
...
...
@@ -197,7 +197,6 @@ FCALLSCFUN2 (INT, vlistInqVarTimave, VLISTINQVARTIMAVE, vlistinqvartimave, INT,
FCALLSCSUB3
(
vlistDefVarTimaccu
,
VLISTDEFVARTIMACCU
,
vlistdefvartimaccu
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTimaccu
,
VLISTINQVARTIMACCU
,
vlistinqvartimaccu
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarSize
,
VLISTINQVARSIZE
,
vlistinqvarsize
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarID
,
VLISTINQVARID
,
vlistinqvarid
,
INT
,
INT
)
FCALLSCSUB4
(
vlistDefIndex
,
VLISTDEFINDEX
,
vlistdefindex
,
INT
,
INT
,
INT
,
INT
)
FCALLSCFUN3
(
INT
,
vlistInqIndex
,
VLISTINQINDEX
,
vlistinqindex
,
INT
,
INT
,
INT
)
FCALLSCSUB4
(
vlistDefFlag
,
VLISTDEFFLAG
,
vlistdefflag
,
INT
,
INT
,
INT
,
INT
)
...
...
Write
Preview
Supports
Markdown
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