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

Fortran interface update.

parent 96196bd5
......@@ -3,6 +3,10 @@
* using CGRIBEX library version 1.8.1
* Version 1.9.0 released
2017-07-01 Uwe Schulzweida
* removed: tableInqParNamePtr(), tableInqParNamePtr(), tableInqParUnitsPtr().
2017-06-21 Uwe Schulzweida
* find_leadtime: check number of dimensions [Bug #7779]
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2017
! Uwe Schulzweida, MPI-MET, Hamburg, July 2017
!
INTEGER CDI_MAX_NAME
......@@ -1375,24 +1375,6 @@
! CHARACTER*(*) name)
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
!
......@@ -2461,14 +2443,6 @@
! (INTEGER tableID)
EXTERNAL tableInqNamePtr
! tableDefEntry
! (INTEGER tableID,
! INTEGER code,
! CHARACTER*(*) name,
! CHARACTER*(*) longname,
! CHARACTER*(*) units)
EXTERNAL tableDefEntry
INTEGER tableInq
! (INTEGER modelID,
! INTEGER tablenum,
......@@ -2486,14 +2460,6 @@
! (INTEGER tableID)
EXTERNAL tableInqModel
! tableInqPar
! (INTEGER tableID,
! INTEGER code,
! CHARACTER*(*) name,
! CHARACTER*(*) longname,
! CHARACTER*(*) units)
EXTERNAL tableInqPar
INTEGER tableInqParCode
! (INTEGER tableID,
! CHARACTER*(*) name,
......@@ -2518,24 +2484,6 @@
! CHARACTER*(*) units)
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
!
......
......@@ -293,12 +293,6 @@ FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRI
FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, 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 */
FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT)
......@@ -533,23 +527,15 @@ FCALLSCSUB2 (tableWrite, TABLEWRITE, tablewrite, STRING, INT)
FCALLSCFUN1 (INT, tableRead, TABLEREAD, tableread, STRING)
FCALLSCFUN3 (INT, tableDef, TABLEDEF, tabledef, INT, INT, STRING)
FCALLSCFUN1 (STRING, tableInqNamePtr, TABLEINQNAMEPTR, tableinqnameptr, INT)
FCALLSCSUB5 (tableDefEntry, TABLEDEFENTRY, tabledefentry, INT, INT, STRING, STRING, STRING)
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)
FCALLSCSUB5 (tableInqPar, TABLEINQPAR, tableinqpar, INT, INT, PSTRING, PSTRING, PSTRING)
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)
/* 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 */
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