Commit a22281ec authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent a789bad3
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, January 2020
! Uwe Schulzweida, MPI-MET, Hamburg, February 2020
!
INTEGER CDI_MAX_NAME
......@@ -1359,6 +1359,12 @@
! INTEGER lenp)
EXTERNAL cdiInqAtt
INTEGER cdiInqAttLen
! (INTEGER cdiID,
! INTEGER varID,
! CHARACTER*(*) name)
EXTERNAL cdiInqAttLen
INTEGER cdiDelAtt
! (INTEGER cdiID,
! INTEGER varID,
......@@ -2529,24 +2535,6 @@
! CHARACTER*(*) units)
EXTERNAL tableInqEntry
!
! History routines
!
! streamDefHistory
! (INTEGER streamID,
! INTEGER size,
! CHARACTER*(*) history)
EXTERNAL streamDefHistory
INTEGER streamInqHistorySize
! (INTEGER streamID)
EXTERNAL streamInqHistorySize
! streamInqHistoryString
! (INTEGER streamID,
! CHARACTER*(*) history)
EXTERNAL streamInqHistoryString
!
! Subtype routines
!
......
......@@ -433,6 +433,7 @@ FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT,
FCALLSCFUN3 (INT, cdiInqNatts, CDIINQNATTS, cdiinqnatts, INT, INT, PINT)
FCALLSCFUN6 (INT, cdiInqAtt, CDIINQATT, cdiinqatt, INT, INT, INT, PSTRING, PINT, PINT)
FCALLSCFUN3 (INT, cdiInqAttLen, CDIINQATTLEN, cdiinqattlen, INT, INT, STRING)
FCALLSCFUN3 (INT, cdiDelAtt, CDIDELATT, cdidelatt, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiCopyAtts, CDICOPYATTS, cdicopyatts, INT, INT, INT, INT)
FCALLSCFUN6 (INT, cdiDefAttInt, CDIDEFATTINT, cdidefattint, INT, INT, STRING, INT, INT, INTV)
......@@ -811,12 +812,6 @@ FCALLSCFUN1 (INT, tableInqNum, TABLEINQNUM, tableinqnum, INT)
FCALLSCFUN1 (INT, tableInqModel, TABLEINQMODEL, tableinqmodel, INT)
FCALLSCSUB6 (tableInqEntry, TABLEINQENTRY, tableinqentry, INT, INT, INT, PSTRING, PSTRING, PSTRING)
/* History routines */
FCALLSCSUB3 (streamDefHistory, STREAMDEFHISTORY, streamdefhistory, INT, INT, STRING)
FCALLSCFUN1 (INT, streamInqHistorySize, STREAMINQHISTORYSIZE, streaminqhistorysize, INT)
FCALLSCSUB2 (streamInqHistoryString, STREAMINQHISTORYSTRING, streaminqhistorystring, INT, PSTRING)
/* Subtype routines */
FCALLSCFUN1 (INT, subtypeCreate, SUBTYPECREATE, subtypecreate, INT)
......
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