Skip to content

GitLab

Commit 759de4e0 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent 4a061a8a
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 24 deletions
src/cdi.inc
View file @ 759de4e0
......@@ -2460,29 +2460,14 @@
! (INTEGER tableID)
EXTERNAL tableInqModel
INTEGER tableInqParCode
! tableInqEntry
! (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 tableInqParUnits
EXTERNAL tableInqEntry
!
! 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 */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment