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
759de4e0
Commit
759de4e0
authored
Jul 01, 2017
by
Uwe Schulzweida
Browse files
Fortran interface update.
parent
4a061a8a
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
759de4e0
...
...
@@ -2460,29 +2460,14 @@
!
(
INTEGER
tableID
)
EXTERNAL
tableInqModel
INTEGER
tableInq
ParCode
!
tableInq
Entry
!
(
INTEGER
tableID
,
!
INTEGER
id
,
!
INTEGER
ltype
,
!
CHARACTER
*
(
*
)
name
,
!
INTEGER
code
)
EXTERNAL
tableInqParCode
INTEGER
tableInqParName
!
(
INTEGER
tableID
,
!
INTEGER
code
,
!
CHARACTER
*
(
*
)
name
)
EXTERNAL
tableInqParName
INTEGER
tableInqParLongname
!
(
INTEGER
tableID
,
!
INTEGER
code
,
!
CHARACTER
*
(
*
)
longname
)
EXTERNAL
tableInqParLongname
INTEGER
tableInqParUnits
!
(
INTEGER
tableID
,
!
INTEGER
code
,
!
CHARACTER
*
(
*
)
longname
,
!
CHARACTER
*
(
*
)
units
)
EXTERNAL
tableInq
ParUnits
EXTERNAL
tableInq
Entry
!
!
History
routines
...
...
src/cdiFortran.c
View file @
759de4e0
...
...
@@ -531,10 +531,7 @@ FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING)
FCALLSCFUN0
(
INT
,
tableInqNumber
,
TABLEINQNUMBER
,
tableinqnumber
)
FCALLSCFUN1
(
INT
,
tableInqNum
,
TABLEINQNUM
,
tableinqnum
,
INT
)
FCALLSCFUN1
(
INT
,
tableInqModel
,
TABLEINQMODEL
,
tableinqmodel
,
INT
)
FCALLSCFUN3
(
INT
,
tableInqParCode
,
TABLEINQPARCODE
,
tableinqparcode
,
INT
,
PSTRING
,
PINT
)
FCALLSCFUN3
(
INT
,
tableInqParName
,
TABLEINQPARNAME
,
tableinqparname
,
INT
,
INT
,
PSTRING
)
FCALLSCFUN3
(
INT
,
tableInqParLongname
,
TABLEINQPARLONGNAME
,
tableinqparlongname
,
INT
,
INT
,
PSTRING
)
FCALLSCFUN3
(
INT
,
tableInqParUnits
,
TABLEINQPARUNITS
,
tableinqparunits
,
INT
,
INT
,
PSTRING
)
FCALLSCSUB6
(
tableInqEntry
,
TABLEINQENTRY
,
tableinqentry
,
INT
,
INT
,
INT
,
PSTRING
,
PSTRING
,
PSTRING
)
/* History routines */
...
...
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