Commit 6ffe1bf8 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent 96196bd5
...@@ -3,6 +3,10 @@ ...@@ -3,6 +3,10 @@
* using CGRIBEX library version 1.8.1 * using CGRIBEX library version 1.8.1
* Version 1.9.0 released * Version 1.9.0 released
2017-07-01 Uwe Schulzweida
* removed: tableInqParNamePtr(), tableInqParNamePtr(), tableInqParUnitsPtr().
2017-06-21 Uwe Schulzweida 2017-06-21 Uwe Schulzweida
* find_leadtime: check number of dimensions [Bug #7779] * find_leadtime: check number of dimensions [Bug #7779]
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
! !
! Author: ! Author:
! ------- ! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2017 ! Uwe Schulzweida, MPI-MET, Hamburg, July 2017
! !
INTEGER CDI_MAX_NAME INTEGER CDI_MAX_NAME
...@@ -1375,24 +1375,6 @@ ...@@ -1375,24 +1375,6 @@
! CHARACTER*(*) name) ! CHARACTER*(*) name)
EXTERNAL vlistInqVarIntKey EXTERNAL vlistInqVarIntKey
!
! needed only for CDO operator after
!
CHARACTER(80) vlistInqVarNamePtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarNamePtr
CHARACTER(80) vlistInqVarLongnamePtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarLongnamePtr
CHARACTER(80) vlistInqVarUnitsPtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarUnitsPtr
! !
! CDI attributes ! CDI attributes
! !
...@@ -2461,14 +2443,6 @@ ...@@ -2461,14 +2443,6 @@
! (INTEGER tableID) ! (INTEGER tableID)
EXTERNAL tableInqNamePtr EXTERNAL tableInqNamePtr
! tableDefEntry
! (INTEGER tableID,
! INTEGER code,
! CHARACTER*(*) name,
! CHARACTER*(*) longname,
! CHARACTER*(*) units)
EXTERNAL tableDefEntry
INTEGER tableInq INTEGER tableInq
! (INTEGER modelID, ! (INTEGER modelID,
! INTEGER tablenum, ! INTEGER tablenum,
...@@ -2486,14 +2460,6 @@ ...@@ -2486,14 +2460,6 @@
! (INTEGER tableID) ! (INTEGER tableID)
EXTERNAL tableInqModel EXTERNAL tableInqModel
! tableInqPar
! (INTEGER tableID,
! INTEGER code,
! CHARACTER*(*) name,
! CHARACTER*(*) longname,
! CHARACTER*(*) units)
EXTERNAL tableInqPar
INTEGER tableInqParCode INTEGER tableInqParCode
! (INTEGER tableID, ! (INTEGER tableID,
! CHARACTER*(*) name, ! CHARACTER*(*) name,
...@@ -2518,24 +2484,6 @@ ...@@ -2518,24 +2484,6 @@
! CHARACTER*(*) units) ! CHARACTER*(*) units)
EXTERNAL tableInqParUnits EXTERNAL tableInqParUnits
!
! needed only for CDO operator after
!
CHARACTER(80) tableInqParNamePtr
! (INTEGER tableID,
! INTEGER parID)
EXTERNAL tableInqParNamePtr
CHARACTER(80) tableInqParLongnamePtr
! (INTEGER tableID,
! INTEGER parID)
EXTERNAL tableInqParLongnamePtr
CHARACTER(80) tableInqParUnitsPtr
! (INTEGER tableID,
! INTEGER parID)
EXTERNAL tableInqParUnitsPtr
! !
! History routines ! History routines
! !
......
...@@ -293,12 +293,6 @@ FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRI ...@@ -293,12 +293,6 @@ FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRI
FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING) FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING)
FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING) FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING)
/* needed only for CDO operator after */
FCALLSCFUN2 (STRING, vlistInqVarNamePtr, VLISTINQVARNAMEPTR, vlistinqvarnameptr, INT, INT)
FCALLSCFUN2 (STRING, vlistInqVarLongnamePtr, VLISTINQVARLONGNAMEPTR, vlistinqvarlongnameptr, INT, INT)
FCALLSCFUN2 (STRING, vlistInqVarUnitsPtr, VLISTINQVARUNITSPTR, vlistinqvarunitsptr, INT, INT)
/* CDI attributes */ /* CDI attributes */
FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT) FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT)
...@@ -533,23 +527,15 @@ FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT) ...@@ -533,23 +527,15 @@ FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT)
FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING) FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING)
FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING) FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING)
FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT) FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT)
FCALLSCSUB5 (tableDefEntry, TABLEDEFENTRY, tabledefentry, INT, INT, STRING, STRING, STRING)
FCALLSCFUN3 (INT, tableInq, TABLEINQ, tableinq, INT, INT, STRING) 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)
FCALLSCSUB5 (tableInqPar, TABLEINQPAR, tableinqpar, INT, INT, PSTRING, PSTRING, PSTRING)
FCALLSCFUN3 (INT, tableInqParCode, TABLEINQPARCODE, tableinqparcode, INT, PSTRING, PINT) FCALLSCFUN3 (INT, tableInqParCode, TABLEINQPARCODE, tableinqparcode, INT, PSTRING, PINT)
FCALLSCFUN3 (INT, tableInqParName, TABLEINQPARNAME, tableinqparname, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParName, TABLEINQPARNAME, tableinqparname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParLongname, TABLEINQPARLONGNAME, tableinqparlongname, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParLongname, TABLEINQPARLONGNAME, tableinqparlongname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParUnits, TABLEINQPARUNITS, tableinqparunits, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParUnits, TABLEINQPARUNITS, tableinqparunits, INT, INT, PSTRING)
/* needed only for CDO operator after */
FCALLSCFUN2 (STRING, tableInqParNamePtr, TABLEINQPARNAMEPTR, tableinqparnameptr, INT, INT)
FCALLSCFUN2 (STRING, tableInqParLongnamePtr, TABLEINQPARLONGNAMEPTR, tableinqparlongnameptr, INT, INT)
FCALLSCFUN2 (STRING, tableInqParUnitsPtr, TABLEINQPARUNITSPTR, tableinqparunitsptr, INT, INT)
/* History routines */ /* History routines */
FCALLSCSUB3 (streamDefHistory, STREAMDEFHISTORY, streamdefhistory, INT, INT, STRING) FCALLSCSUB3 (streamDefHistory, STREAMDEFHISTORY, streamdefhistory, INT, INT, STRING)
......
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