Commit 7ec18a4a authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent bfcc8d9d
...@@ -1573,6 +1573,20 @@ ...@@ -1573,6 +1573,20 @@
PARAMETER (CDI_KEY_NUMBEROFFORECASTSINENSEMBLE = 809) PARAMETER (CDI_KEY_NUMBEROFFORECASTSINENSEMBLE = 809)
INTEGER CDI_KEY_PERTURBATIONNUMBER INTEGER CDI_KEY_PERTURBATIONNUMBER
PARAMETER (CDI_KEY_PERTURBATIONNUMBER = 810) PARAMETER (CDI_KEY_PERTURBATIONNUMBER = 810)
INTEGER CDI_KEY_CENTRE
PARAMETER (CDI_KEY_CENTRE = 811)
INTEGER CDI_KEY_SUBCENTRE
PARAMETER (CDI_KEY_SUBCENTRE = 812)
INTEGER CDI_KEY_MPIMTYPE
PARAMETER (CDI_KEY_MPIMTYPE = 813)
INTEGER CDI_KEY_MPIMCLASS
PARAMETER (CDI_KEY_MPIMCLASS = 814)
INTEGER CDI_KEY_MPIMUSER
PARAMETER (CDI_KEY_MPIMUSER = 815)
INTEGER CDI_KEY_REVSTATUS
PARAMETER (CDI_KEY_REVSTATUS = 816)
INTEGER CDI_KEY_REVNUMBER
PARAMETER (CDI_KEY_REVNUMBER = 817)
INTEGER cdiDefKeyInt INTEGER cdiDefKeyInt
! (INTEGER cdiID, ! (INTEGER cdiID,
! INTEGER varID, ! INTEGER varID,
...@@ -1587,6 +1601,51 @@ ...@@ -1587,6 +1601,51 @@
! INTEGER value) ! INTEGER value)
EXTERNAL cdiInqKeyInt EXTERNAL cdiInqKeyInt
INTEGER cdiDefKeyBytes
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! INTEGER*1(*) bytes,
! INTEGER length)
EXTERNAL cdiDefKeyBytes
INTEGER cdiInqKeyBytes
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! INTEGER*1(*) bytes,
! INTEGER length)
EXTERNAL cdiInqKeyBytes
INTEGER cdiDefKeyString
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! CHARACTER*(*) string)
EXTERNAL cdiDefKeyString
INTEGER cdiInqKeyLen
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! INTEGER length)
EXTERNAL cdiInqKeyLen
INTEGER cdiInqKeyString
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! CHARACTER*(*) string,
! INTEGER length)
EXTERNAL cdiInqKeyString
INTEGER cdiCopyKeys
! (INTEGER cdiID1,
! INTEGER varID1,
! INTEGER cdiID2,
! INTEGER varID2)
EXTERNAL cdiCopyKeys
INTEGER CDI_KEY_XNAME INTEGER CDI_KEY_XNAME
PARAMETER (CDI_KEY_XNAME = 901) PARAMETER (CDI_KEY_XNAME = 901)
INTEGER CDI_KEY_XDIMNAME INTEGER CDI_KEY_XDIMNAME
......
...@@ -472,6 +472,12 @@ FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV) ...@@ -472,6 +472,12 @@ FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT) FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT) FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT)
FCALLSCFUN4 (INT, cdiInqKeyInt, CDIINQKEYINT, cdiinqkeyint, INT, INT, INT, PINT) FCALLSCFUN4 (INT, cdiInqKeyInt, CDIINQKEYINT, cdiinqkeyint, INT, INT, INT, PINT)
FCALLSCFUN5 (INT, cdiDefKeyBytes, CDIDEFKEYBYTES, cdidefkeybytes, INT, INT, INT, PVOID, INT)
FCALLSCFUN5 (INT, cdiInqKeyBytes, CDIINQKEYBYTES, cdiinqkeybytes, INT, INT, INT, PVOID, PINT)
FCALLSCFUN4 (INT, cdiDefKeyString, CDIDEFKEYSTRING, cdidefkeystring, INT, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiInqKeyLen, CDIINQKEYLEN, cdiinqkeylen, INT, INT, INT, PINT)
FCALLSCFUN5 (INT, cdiInqKeyString, CDIINQKEYSTRING, cdiinqkeystring, INT, INT, INT, PSTRING, PINT)
FCALLSCFUN4 (INT, cdiCopyKeys, CDICOPYKEYS, cdicopykeys, INT, INT, INT, INT)
FCALLSCFUN4 (INT, cdiGridDefKeyStr, CDIGRIDDEFKEYSTR, cdigriddefkeystr, INT, INT, INT, STRING) FCALLSCFUN4 (INT, cdiGridDefKeyStr, CDIGRIDDEFKEYSTR, cdigriddefkeystr, INT, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiGridInqKeyStr, CDIGRIDINQKEYSTR, cdigridinqkeystr, INT, INT, INT, PSTRING) FCALLSCFUN4 (INT, cdiGridInqKeyStr, CDIGRIDINQKEYSTR, cdigridinqkeystr, INT, INT, INT, PSTRING)
FCALLSCFUN4 (INT, cdiZaxisDefKeyStr, CDIZAXISDEFKEYSTR, cdizaxisdefkeystr, INT, INT, INT, STRING) FCALLSCFUN4 (INT, cdiZaxisDefKeyStr, CDIZAXISDEFKEYSTR, cdizaxisdefkeystr, INT, 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