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

Fortran interface update.

parent 4a061a8a
......@@ -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
......
......@@ -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