Skip to content

GitLab

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

Fortran interface update.

parent bfcc8d9d
Hide whitespace changes
Inline Side-by-side
Showing with 65 additions and 0 deletions
src/cdi.inc
View file @ 7ec18a4a
......@@ -1573,6 +1573,20 @@
PARAMETER (CDI_KEY_NUMBEROFFORECASTSINENSEMBLE = 809)
INTEGER CDI_KEY_PERTURBATIONNUMBER
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 cdiID,
! INTEGER varID,
......@@ -1587,6 +1601,51 @@
! INTEGER value)
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
PARAMETER (CDI_KEY_XNAME = 901)
INTEGER CDI_KEY_XDIMNAME
......
src/cdiFortran.c
View file @ 7ec18a4a
......@@ -472,6 +472,12 @@ FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT)
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, cdiGridInqKeyStr, CDIGRIDINQKEYSTR, cdigridinqkeystr, INT, INT, INT, PSTRING)
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