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

Fortran interface update.

parent 4a061a8a
...@@ -2460,29 +2460,14 @@ ...@@ -2460,29 +2460,14 @@
! (INTEGER tableID) ! (INTEGER tableID)
EXTERNAL tableInqModel EXTERNAL tableInqModel
INTEGER tableInqParCode ! tableInqEntry
! (INTEGER tableID, ! (INTEGER tableID,
! INTEGER id,
! INTEGER ltype,
! CHARACTER*(*) name, ! CHARACTER*(*) name,
! INTEGER code) ! CHARACTER*(*) longname,
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*(*) units) ! CHARACTER*(*) units)
EXTERNAL tableInqParUnits EXTERNAL tableInqEntry
! !
! History routines ! History routines
......
...@@ -531,10 +531,7 @@ FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING) ...@@ -531,10 +531,7 @@ FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING)
FCALLSCFUN0 (INT, tableInqNumber, TABLEINQNUMBER, tableinqnumber) FCALLSCFUN0 (INT, tableInqNumber, TABLEINQNUMBER, tableinqnumber)
FCALLSCFUN1 (INT, tableInqNum, TABLEINQNUM, tableinqnum, INT) FCALLSCFUN1 (INT, tableInqNum, TABLEINQNUM, tableinqnum, INT)
FCALLSCFUN1 (INT, tableInqModel, TABLEINQMODEL, tableinqmodel, INT) FCALLSCFUN1 (INT, tableInqModel, TABLEINQMODEL, tableinqmodel, INT)
FCALLSCFUN3 (INT, tableInqParCode, TABLEINQPARCODE, tableinqparcode, INT, PSTRING, PINT) FCALLSCSUB6 (tableInqEntry, TABLEINQENTRY, tableinqentry, INT, INT, INT, PSTRING, PSTRING, PSTRING)
FCALLSCFUN3 (INT, tableInqParName, TABLEINQPARNAME, tableinqparname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParLongname, TABLEINQPARLONGNAME, tableinqparlongname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParUnits, TABLEINQPARUNITS, tableinqparunits, INT, INT, PSTRING)
/* History routines */ /* 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