! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 2.5.3
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg,   August 2025
!

!
!  Start of fortran interface for the following routines (make_fint.c)
!
      INTEGER    CDI_MAX_NAME
      PARAMETER (CDI_MAX_NAME           = 256)
      INTEGER    CDI_UNDEFID
      PARAMETER (CDI_UNDEFID            = -1)
      INTEGER    CDI_GLOBAL
      PARAMETER (CDI_GLOBAL             = -1)
      INTEGER    CDI_XAXIS
      PARAMETER (CDI_XAXIS              =  1)
      INTEGER    CDI_YAXIS
      PARAMETER (CDI_YAXIS              =  2)
!
!  Byte order
!
      INTEGER    CDI_BIGENDIAN
      PARAMETER (CDI_BIGENDIAN          =  0)
      INTEGER    CDI_LITTLEENDIAN
      PARAMETER (CDI_LITTLEENDIAN       =  1)
      INTEGER    CDI_PDPENDIAN
      PARAMETER (CDI_PDPENDIAN          =  2)
      INTEGER    CDI_REAL
      PARAMETER (CDI_REAL               =  1)
      INTEGER    CDI_COMP
      PARAMETER (CDI_COMP               =  2)
      INTEGER    CDI_BOTH
      PARAMETER (CDI_BOTH               =  3)
!
!  Error identifier
!
      INTEGER    CDI_NOERR
      PARAMETER (CDI_NOERR              =  0)
      INTEGER    CDI_EEOF
      PARAMETER (CDI_EEOF               = -1)
      INTEGER    CDI_ETMOF
      PARAMETER (CDI_ETMOF              = -9)
      INTEGER    CDI_ESYSTEM
      PARAMETER (CDI_ESYSTEM            = -10)
      INTEGER    CDI_EINVAL
      PARAMETER (CDI_EINVAL             = -20)
      INTEGER    CDI_EISDIR
      PARAMETER (CDI_EISDIR             = -21)
      INTEGER    CDI_EISEMPTY
      PARAMETER (CDI_EISEMPTY           = -22)
      INTEGER    CDI_EUFTYPE
      PARAMETER (CDI_EUFTYPE            = -23)
      INTEGER    CDI_ELIBNAVAIL
      PARAMETER (CDI_ELIBNAVAIL         = -24)
      INTEGER    CDI_EUFSTRUCT
      PARAMETER (CDI_EUFSTRUCT          = -25)
      INTEGER    CDI_EUNC4
      PARAMETER (CDI_EUNC4              = -26)
      INTEGER    CDI_EDIMSIZE
      PARAMETER (CDI_EDIMSIZE           = -27)
      INTEGER    CDI_EQENF
      PARAMETER (CDI_EQENF              = -50)
      INTEGER    CDI_EQNAVAIL
      PARAMETER (CDI_EQNAVAIL           = -51)
      INTEGER    CDI_ELIMIT
      PARAMETER (CDI_ELIMIT             = -99)
!
!  File types
!
      INTEGER    CDI_FILETYPE_GRB
      PARAMETER (CDI_FILETYPE_GRB       =  1)
      INTEGER    CDI_FILETYPE_GRB2
      PARAMETER (CDI_FILETYPE_GRB2      =  2)
      INTEGER    CDI_FILETYPE_NC
      PARAMETER (CDI_FILETYPE_NC        =  3)
      INTEGER    CDI_FILETYPE_NC2
      PARAMETER (CDI_FILETYPE_NC2       =  4)
      INTEGER    CDI_FILETYPE_NC4
      PARAMETER (CDI_FILETYPE_NC4       =  5)
      INTEGER    CDI_FILETYPE_NC4C
      PARAMETER (CDI_FILETYPE_NC4C      =  6)
      INTEGER    CDI_FILETYPE_NC5
      PARAMETER (CDI_FILETYPE_NC5       =  7)
      INTEGER    CDI_FILETYPE_SRV
      PARAMETER (CDI_FILETYPE_SRV       =  8)
      INTEGER    CDI_FILETYPE_EXT
      PARAMETER (CDI_FILETYPE_EXT       =  9)
      INTEGER    CDI_FILETYPE_IEG
      PARAMETER (CDI_FILETYPE_IEG       = 10)
      INTEGER    CDI_FILETYPE_NCZARR
      PARAMETER (CDI_FILETYPE_NCZARR    = 11)
!
!  Compatibility defines for release 1.8.3 (obsolete defines)
!
      INTEGER    FILETYPE_GRB
      PARAMETER (FILETYPE_GRB           =  1)
      INTEGER    FILETYPE_GRB2
      PARAMETER (FILETYPE_GRB2          =  2)
      INTEGER    FILETYPE_NC
      PARAMETER (FILETYPE_NC            =  3)
      INTEGER    FILETYPE_NC2
      PARAMETER (FILETYPE_NC2           =  4)
      INTEGER    FILETYPE_NC4
      PARAMETER (FILETYPE_NC4           =  5)
!
!  Protocols (in filename/URI)
!
      INTEGER    CDI_PROTOCOL_OTHER
      PARAMETER (CDI_PROTOCOL_OTHER     =  0)
      INTEGER    CDI_PROTOCOL_FILE
      PARAMETER (CDI_PROTOCOL_FILE      =  1)
      INTEGER    CDI_PROTOCOL_FDB
      PARAMETER (CDI_PROTOCOL_FDB       =  2)
      INTEGER    CDI_PROTOCOL_ACROSS
      PARAMETER (CDI_PROTOCOL_ACROSS    =  3)
!
!  Compress types
!
      INTEGER    CDI_COMPRESS_NONE
      PARAMETER (CDI_COMPRESS_NONE      =  0)
      INTEGER    CDI_COMPRESS_SZIP
      PARAMETER (CDI_COMPRESS_SZIP      =  1)
      INTEGER    CDI_COMPRESS_AEC
      PARAMETER (CDI_COMPRESS_AEC       =  2)
      INTEGER    CDI_COMPRESS_ZIP
      PARAMETER (CDI_COMPRESS_ZIP       =  3)
      INTEGER    CDI_COMPRESS_JPEG
      PARAMETER (CDI_COMPRESS_JPEG      =  4)
      INTEGER    CDI_COMPRESS_FILTER
      PARAMETER (CDI_COMPRESS_FILTER    =  5)
!
!  external data types
!
!
!  Compatibility defines for release 1.8.3 (obsolete defines)
!
      INTEGER    DATATYPE_PACK16
      PARAMETER (DATATYPE_PACK16        = 16)
      INTEGER    DATATYPE_PACK24
      PARAMETER (DATATYPE_PACK24        = 24)
      INTEGER    DATATYPE_FLT32
      PARAMETER (DATATYPE_FLT32         = 132)
      INTEGER    DATATYPE_FLT64
      PARAMETER (DATATYPE_FLT64         = 164)
      INTEGER    DATATYPE_INT32
      PARAMETER (DATATYPE_INT32         = 232)
      INTEGER    DATATYPE_INT
      PARAMETER (DATATYPE_INT           = 251)
      INTEGER    CDI_DATATYPE_PACK
      PARAMETER (CDI_DATATYPE_PACK      =  0)
      INTEGER    CDI_DATATYPE_PACK1
      PARAMETER (CDI_DATATYPE_PACK1     =  1)
      INTEGER    CDI_DATATYPE_PACK2
      PARAMETER (CDI_DATATYPE_PACK2     =  2)
      INTEGER    CDI_DATATYPE_PACK3
      PARAMETER (CDI_DATATYPE_PACK3     =  3)
      INTEGER    CDI_DATATYPE_PACK4
      PARAMETER (CDI_DATATYPE_PACK4     =  4)
      INTEGER    CDI_DATATYPE_PACK5
      PARAMETER (CDI_DATATYPE_PACK5     =  5)
      INTEGER    CDI_DATATYPE_PACK6
      PARAMETER (CDI_DATATYPE_PACK6     =  6)
      INTEGER    CDI_DATATYPE_PACK7
      PARAMETER (CDI_DATATYPE_PACK7     =  7)
      INTEGER    CDI_DATATYPE_PACK8
      PARAMETER (CDI_DATATYPE_PACK8     =  8)
      INTEGER    CDI_DATATYPE_PACK9
      PARAMETER (CDI_DATATYPE_PACK9     =  9)
      INTEGER    CDI_DATATYPE_PACK10
      PARAMETER (CDI_DATATYPE_PACK10    = 10)
      INTEGER    CDI_DATATYPE_PACK11
      PARAMETER (CDI_DATATYPE_PACK11    = 11)
      INTEGER    CDI_DATATYPE_PACK12
      PARAMETER (CDI_DATATYPE_PACK12    = 12)
      INTEGER    CDI_DATATYPE_PACK13
      PARAMETER (CDI_DATATYPE_PACK13    = 13)
      INTEGER    CDI_DATATYPE_PACK14
      PARAMETER (CDI_DATATYPE_PACK14    = 14)
      INTEGER    CDI_DATATYPE_PACK15
      PARAMETER (CDI_DATATYPE_PACK15    = 15)
      INTEGER    CDI_DATATYPE_PACK16
      PARAMETER (CDI_DATATYPE_PACK16    = 16)
      INTEGER    CDI_DATATYPE_PACK17
      PARAMETER (CDI_DATATYPE_PACK17    = 17)
      INTEGER    CDI_DATATYPE_PACK18
      PARAMETER (CDI_DATATYPE_PACK18    = 18)
      INTEGER    CDI_DATATYPE_PACK19
      PARAMETER (CDI_DATATYPE_PACK19    = 19)
      INTEGER    CDI_DATATYPE_PACK20
      PARAMETER (CDI_DATATYPE_PACK20    = 20)
      INTEGER    CDI_DATATYPE_PACK21
      PARAMETER (CDI_DATATYPE_PACK21    = 21)
      INTEGER    CDI_DATATYPE_PACK22
      PARAMETER (CDI_DATATYPE_PACK22    = 22)
      INTEGER    CDI_DATATYPE_PACK23
      PARAMETER (CDI_DATATYPE_PACK23    = 23)
      INTEGER    CDI_DATATYPE_PACK24
      PARAMETER (CDI_DATATYPE_PACK24    = 24)
      INTEGER    CDI_DATATYPE_PACK25
      PARAMETER (CDI_DATATYPE_PACK25    = 25)
      INTEGER    CDI_DATATYPE_PACK26
      PARAMETER (CDI_DATATYPE_PACK26    = 26)
      INTEGER    CDI_DATATYPE_PACK27
      PARAMETER (CDI_DATATYPE_PACK27    = 27)
      INTEGER    CDI_DATATYPE_PACK28
      PARAMETER (CDI_DATATYPE_PACK28    = 28)
      INTEGER    CDI_DATATYPE_PACK29
      PARAMETER (CDI_DATATYPE_PACK29    = 29)
      INTEGER    CDI_DATATYPE_PACK30
      PARAMETER (CDI_DATATYPE_PACK30    = 30)
      INTEGER    CDI_DATATYPE_PACK31
      PARAMETER (CDI_DATATYPE_PACK31    = 31)
      INTEGER    CDI_DATATYPE_PACK32
      PARAMETER (CDI_DATATYPE_PACK32    = 32)
      INTEGER    CDI_DATATYPE_CPX32
      PARAMETER (CDI_DATATYPE_CPX32     = 64)
      INTEGER    CDI_DATATYPE_CPX64
      PARAMETER (CDI_DATATYPE_CPX64     = 128)
      INTEGER    CDI_DATATYPE_FLT32
      PARAMETER (CDI_DATATYPE_FLT32     = 132)
      INTEGER    CDI_DATATYPE_FLT64
      PARAMETER (CDI_DATATYPE_FLT64     = 164)
      INTEGER    CDI_DATATYPE_INT8
      PARAMETER (CDI_DATATYPE_INT8      = 208)
      INTEGER    CDI_DATATYPE_INT16
      PARAMETER (CDI_DATATYPE_INT16     = 216)
      INTEGER    CDI_DATATYPE_INT32
      PARAMETER (CDI_DATATYPE_INT32     = 232)
      INTEGER    CDI_DATATYPE_UINT8
      PARAMETER (CDI_DATATYPE_UINT8     = 308)
      INTEGER    CDI_DATATYPE_UINT16
      PARAMETER (CDI_DATATYPE_UINT16    = 316)
      INTEGER    CDI_DATATYPE_UINT32
      PARAMETER (CDI_DATATYPE_UINT32    = 332)
!
!  internal data types
!
      INTEGER    CDI_DATATYPE_INT
      PARAMETER (CDI_DATATYPE_INT       = 251)
      INTEGER    CDI_DATATYPE_FLT
      PARAMETER (CDI_DATATYPE_FLT       = 252)
      INTEGER    CDI_DATATYPE_TXT
      PARAMETER (CDI_DATATYPE_TXT       = 253)
      INTEGER    CDI_DATATYPE_CPX
      PARAMETER (CDI_DATATYPE_CPX       = 254)
      INTEGER    CDI_DATATYPE_UCHAR
      PARAMETER (CDI_DATATYPE_UCHAR     = 255)
      INTEGER    CDI_DATATYPE_LONG
      PARAMETER (CDI_DATATYPE_LONG      = 256)
      INTEGER    CDI_DATATYPE_UINT
      PARAMETER (CDI_DATATYPE_UINT      = 257)
!
!  Chunk types
!
      INTEGER    CDI_CHUNK_AUTO
      PARAMETER (CDI_CHUNK_AUTO         =  1)
      INTEGER    CDI_CHUNK_GRID
      PARAMETER (CDI_CHUNK_GRID         =  2)
      INTEGER    CDI_CHUNK_LINES
      PARAMETER (CDI_CHUNK_LINES        =  3)
!
!  GRID types
!
      INTEGER    GRID_GENERIC
      PARAMETER (GRID_GENERIC           =  1)
      INTEGER    GRID_GAUSSIAN
      PARAMETER (GRID_GAUSSIAN          =  2)
      INTEGER    GRID_GAUSSIAN_REDUCED
      PARAMETER (GRID_GAUSSIAN_REDUCED  =  3)
      INTEGER    GRID_LONLAT
      PARAMETER (GRID_LONLAT            =  4)
      INTEGER    GRID_SPECTRAL
      PARAMETER (GRID_SPECTRAL          =  5)
      INTEGER    GRID_FOURIER
      PARAMETER (GRID_FOURIER           =  6)
      INTEGER    GRID_GME
      PARAMETER (GRID_GME               =  7)
      INTEGER    GRID_TRAJECTORY
      PARAMETER (GRID_TRAJECTORY        =  8)
      INTEGER    GRID_UNSTRUCTURED
      PARAMETER (GRID_UNSTRUCTURED      =  9)
      INTEGER    GRID_CURVILINEAR
      PARAMETER (GRID_CURVILINEAR       = 10)
      INTEGER    GRID_HEALPIX
      PARAMETER (GRID_HEALPIX           = 11)
      INTEGER    GRID_PROJECTION
      PARAMETER (GRID_PROJECTION        = 12)
      INTEGER    GRID_CHARXY
      PARAMETER (GRID_CHARXY            = 13)
      INTEGER    CDI_PROJ_RLL
      PARAMETER (CDI_PROJ_RLL           = 21)
      INTEGER    CDI_PROJ_LCC
      PARAMETER (CDI_PROJ_LCC           = 22)
      INTEGER    CDI_PROJ_LAEA
      PARAMETER (CDI_PROJ_LAEA          = 23)
      INTEGER    CDI_PROJ_SINU
      PARAMETER (CDI_PROJ_SINU          = 24)
      INTEGER    CDI_PROJ_STERE
      PARAMETER (CDI_PROJ_STERE         = 25)
      INTEGER    CDI_PROJ_HEALPIX
      PARAMETER (CDI_PROJ_HEALPIX       = 26)
!
!  ZAXIS types
!
      INTEGER    ZAXIS_SURFACE
      PARAMETER (ZAXIS_SURFACE          =  0)
      INTEGER    ZAXIS_GENERIC
      PARAMETER (ZAXIS_GENERIC          =  1)
      INTEGER    ZAXIS_HYBRID
      PARAMETER (ZAXIS_HYBRID           =  2)
      INTEGER    ZAXIS_HYBRID_HALF
      PARAMETER (ZAXIS_HYBRID_HALF      =  3)
      INTEGER    ZAXIS_PRESSURE
      PARAMETER (ZAXIS_PRESSURE         =  4)
      INTEGER    ZAXIS_HEIGHT
      PARAMETER (ZAXIS_HEIGHT           =  5)
      INTEGER    ZAXIS_DEPTH_BELOW_SEA
      PARAMETER (ZAXIS_DEPTH_BELOW_SEA  =  6)
      INTEGER    ZAXIS_DEPTH_BELOW_LAND
      PARAMETER (ZAXIS_DEPTH_BELOW_LAND =  7)
      INTEGER    ZAXIS_ISENTROPIC
      PARAMETER (ZAXIS_ISENTROPIC       =  8)
      INTEGER    ZAXIS_TRAJECTORY
      PARAMETER (ZAXIS_TRAJECTORY       =  9)
      INTEGER    ZAXIS_ALTITUDE
      PARAMETER (ZAXIS_ALTITUDE         = 10)
      INTEGER    ZAXIS_SIGMA
      PARAMETER (ZAXIS_SIGMA            = 11)
      INTEGER    ZAXIS_MEANSEA
      PARAMETER (ZAXIS_MEANSEA          = 12)
      INTEGER    ZAXIS_TOA
      PARAMETER (ZAXIS_TOA              = 13)
      INTEGER    ZAXIS_SEA_BOTTOM
      PARAMETER (ZAXIS_SEA_BOTTOM       = 14)
      INTEGER    ZAXIS_ATMOSPHERE
      PARAMETER (ZAXIS_ATMOSPHERE       = 15)
      INTEGER    ZAXIS_CLOUD_BASE
      PARAMETER (ZAXIS_CLOUD_BASE       = 16)
      INTEGER    ZAXIS_CLOUD_TOP
      PARAMETER (ZAXIS_CLOUD_TOP        = 17)
      INTEGER    ZAXIS_ISOTHERM_ZERO
      PARAMETER (ZAXIS_ISOTHERM_ZERO    = 18)
      INTEGER    ZAXIS_SNOW
      PARAMETER (ZAXIS_SNOW             = 19)
      INTEGER    ZAXIS_LAKE_BOTTOM
      PARAMETER (ZAXIS_LAKE_BOTTOM      = 20)
      INTEGER    ZAXIS_SEDIMENT_BOTTOM
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM  = 21)
      INTEGER    ZAXIS_SEDIMENT_BOTTOM_TA
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TA = 22)
      INTEGER    ZAXIS_SEDIMENT_BOTTOM_TW
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TW = 23)
      INTEGER    ZAXIS_MIX_LAYER
      PARAMETER (ZAXIS_MIX_LAYER        = 24)
      INTEGER    ZAXIS_REFERENCE
      PARAMETER (ZAXIS_REFERENCE        = 25)
      INTEGER    ZAXIS_CHAR
      PARAMETER (ZAXIS_CHAR             = 26)
      INTEGER    ZAXIS_TROPOPAUSE
      PARAMETER (ZAXIS_TROPOPAUSE       = 27)
!
!  SUBTYPE types
!
      INTEGER    MAX_KV_PAIRS_MATCH
      PARAMETER (MAX_KV_PAIRS_MATCH     = 10)
!
!  Data structure defining a key-value search, possibly with multiple
!  key-value pairs in combination.
!  
!  Currently, only multiple pairs combined by AND are supported.
!
!
!  TIME types
!
      INTEGER    TIME_CONSTANT
      PARAMETER (TIME_CONSTANT          =  0)
      INTEGER    TIME_VARYING
      PARAMETER (TIME_VARYING           =  1)
      INTEGER    TIME_VARIABLE
      PARAMETER (TIME_VARIABLE          =  1)
!
!  TSTEP types
!
      INTEGER    TSTEP_CONSTANT
      PARAMETER (TSTEP_CONSTANT         =  0)
      INTEGER    TSTEP_INSTANT
      PARAMETER (TSTEP_INSTANT          =  1)
      INTEGER    TSTEP_AVG
      PARAMETER (TSTEP_AVG              =  2)
      INTEGER    TSTEP_ACCUM
      PARAMETER (TSTEP_ACCUM            =  3)
      INTEGER    TSTEP_MAX
      PARAMETER (TSTEP_MAX              =  4)
      INTEGER    TSTEP_MIN
      PARAMETER (TSTEP_MIN              =  5)
      INTEGER    TSTEP_DIFF
      PARAMETER (TSTEP_DIFF             =  6)
      INTEGER    TSTEP_RMS
      PARAMETER (TSTEP_RMS              =  7)
      INTEGER    TSTEP_SD
      PARAMETER (TSTEP_SD               =  8)
      INTEGER    TSTEP_COV
      PARAMETER (TSTEP_COV              =  9)
      INTEGER    TSTEP_RATIO
      PARAMETER (TSTEP_RATIO            = 10)
      INTEGER    TSTEP_SUM
      PARAMETER (TSTEP_SUM              = 11)
      INTEGER    TSTEP_RANGE
      PARAMETER (TSTEP_RANGE            = 12)
      INTEGER    TSTEP_INSTANT2
      PARAMETER (TSTEP_INSTANT2         = 13)
      INTEGER    TSTEP_INSTANT3
      PARAMETER (TSTEP_INSTANT3         = 14)
!
!  TAXIS types
!
      INTEGER    TAXIS_ABSOLUTE
      PARAMETER (TAXIS_ABSOLUTE         =  1)
      INTEGER    TAXIS_RELATIVE
      PARAMETER (TAXIS_RELATIVE         =  2)
      INTEGER    TAXIS_FORECAST
      PARAMETER (TAXIS_FORECAST         =  3)
!
!  TUNIT types
!
      INTEGER    TUNIT_SECOND
      PARAMETER (TUNIT_SECOND           =  1)
      INTEGER    TUNIT_MINUTE
      PARAMETER (TUNIT_MINUTE           =  2)
      INTEGER    TUNIT_QUARTER
      PARAMETER (TUNIT_QUARTER          =  3)
      INTEGER    TUNIT_30MINUTES
      PARAMETER (TUNIT_30MINUTES        =  4)
      INTEGER    TUNIT_HOUR
      PARAMETER (TUNIT_HOUR             =  5)
      INTEGER    TUNIT_3HOURS
      PARAMETER (TUNIT_3HOURS           =  6)
      INTEGER    TUNIT_6HOURS
      PARAMETER (TUNIT_6HOURS           =  7)
      INTEGER    TUNIT_12HOURS
      PARAMETER (TUNIT_12HOURS          =  8)
      INTEGER    TUNIT_DAY
      PARAMETER (TUNIT_DAY              =  9)
      INTEGER    TUNIT_MONTH
      PARAMETER (TUNIT_MONTH            = 10)
      INTEGER    TUNIT_YEAR
      PARAMETER (TUNIT_YEAR             = 11)
!
!  CALENDAR types
!
      INTEGER    CALENDAR_STANDARD
      PARAMETER (CALENDAR_STANDARD      =  0)
      INTEGER    CALENDAR_GREGORIAN
      PARAMETER (CALENDAR_GREGORIAN     =  1)
      INTEGER    CALENDAR_PROLEPTIC
      PARAMETER (CALENDAR_PROLEPTIC     =  2)
      INTEGER    CALENDAR_360DAYS
      PARAMETER (CALENDAR_360DAYS       =  3)
      INTEGER    CALENDAR_365DAYS
      PARAMETER (CALENDAR_365DAYS       =  4)
      INTEGER    CALENDAR_366DAYS
      PARAMETER (CALENDAR_366DAYS       =  5)
      INTEGER    CALENDAR_NONE
      PARAMETER (CALENDAR_NONE          =  6)
!
!  number of unsigned char needed to store UUID
!
      INTEGER    CDI_UUID_SIZE
      PARAMETER (CDI_UUID_SIZE          = 16)
!
!  Structs that are used to return data to the user
!
!
!  Opaque types
!
!
!  CDI control routines
!
!                     cdiReset
      EXTERNAL        cdiReset

      CHARACTER(80)   cdiStringError
!                                    (INTEGER         cdiErrno)
      EXTERNAL        cdiStringError

!                     cdiDebug
!                                    (INTEGER         debug)
      EXTERNAL        cdiDebug

      CHARACTER(80)   cdiLibraryVersion
      EXTERNAL        cdiLibraryVersion

!                     cdiPrintVersion
      EXTERNAL        cdiPrintVersion

      INTEGER         cdiHaveFiletype
!                                    (INTEGER         filetype)
      EXTERNAL        cdiHaveFiletype

!                     cdiDefMissval
!                                    (DOUBLEPRECISION missval)
      EXTERNAL        cdiDefMissval

      DOUBLEPRECISION cdiInqMissval
      EXTERNAL        cdiInqMissval

!                     cdiDefGlobal
!                                    (CHARACTER*(*)   string,
!                                     INTEGER         val)
      EXTERNAL        cdiDefGlobal

      INTEGER         namespaceNew
      EXTERNAL        namespaceNew

!                     namespaceSetActive
!                                    (INTEGER         namespaceID)
      EXTERNAL        namespaceSetActive

      INTEGER         namespaceGetActive
      EXTERNAL        namespaceGetActive

!                     namespaceDelete
!                                    (INTEGER         namespaceID)
      EXTERNAL        namespaceDelete

!
!  CDI converter routines
!
!
!  parameter
!
!                     cdiParamToString
!                                    (INTEGER         param,
!                                     CHARACTER*(*)   paramstr,
!                                     INTEGER         maxlen)
      EXTERNAL        cdiParamToString

!                     cdiDecodeParam
!                                    (INTEGER         param,
!                                     INTEGER         pnum,
!                                     INTEGER         pcat,
!                                     INTEGER         pdis)
      EXTERNAL        cdiDecodeParam

      INTEGER         cdiEncodeParam
!                                    (INTEGER         pnum,
!                                     INTEGER         pcat,
!                                     INTEGER         pdis)
      EXTERNAL        cdiEncodeParam

!
!  date format:  YYYYMMDD
!
!
!  time format:    hhmmss
!
!                     cdiDecodeDate
!                                    (INTEGER         date,
!                                     INTEGER         year,
!                                     INTEGER         month,
!                                     INTEGER         day)
      EXTERNAL        cdiDecodeDate

      INTEGER         cdiEncodeDate
!                                    (INTEGER         year,
!                                     INTEGER         month,
!                                     INTEGER         day)
      EXTERNAL        cdiEncodeDate

!                     cdiDecodeTime
!                                    (INTEGER         time,
!                                     INTEGER         hour,
!                                     INTEGER         minute,
!                                     INTEGER         second)
      EXTERNAL        cdiDecodeTime

      INTEGER         cdiEncodeTime
!                                    (INTEGER         hour,
!                                     INTEGER         minute,
!                                     INTEGER         second)
      EXTERNAL        cdiEncodeTime

!
!  STREAM control routines
!
      INTEGER         cdiGetFiletype
!                                    (CHARACTER*(*)   uri,
!                                     INTEGER         byteorder)
      EXTERNAL        cdiGetFiletype

      INTEGER         streamOpenReadNCMem
!                                    (INTEGER         ncid)
      EXTERNAL        streamOpenReadNCMem

      INTEGER         streamOpenWriteNCMem
!                                    (INTEGER         ncid)
      EXTERNAL        streamOpenWriteNCMem

!                     streamCloseNCMem
!                                    (INTEGER         ncid)
      EXTERNAL        streamCloseNCMem

      INTEGER         streamOpenRead
!                                    (CHARACTER*(*)   path)
      EXTERNAL        streamOpenRead

      INTEGER         streamOpenWrite
!                                    (CHARACTER*(*)   path,
!                                     INTEGER         filetype)
      EXTERNAL        streamOpenWrite

      INTEGER         streamOpenAppend
!                                    (CHARACTER*(*)   path)
      EXTERNAL        streamOpenAppend

!                     streamClose
!                                    (INTEGER         streamID)
      EXTERNAL        streamClose

!                     streamSync
!                                    (INTEGER         streamID)
      EXTERNAL        streamSync

!                     streamDefMaxSteps
!                                    (INTEGER         streamID,
!                                     INTEGER         maxSteps)
      EXTERNAL        streamDefMaxSteps

!                     streamDefNumWorker
!                                    (INTEGER         streamID,
!                                     INTEGER         numWorker)
      EXTERNAL        streamDefNumWorker

      INTEGER         streamInqNumSteps
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqNumSteps

!                     streamDefVlist
!                                    (INTEGER         streamID,
!                                     INTEGER         vlistID)
      EXTERNAL        streamDefVlist

      INTEGER         streamInqVlist
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqVlist

      INTEGER         streamInqFiletype
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqFiletype

!                     streamDefByteorder
!                                    (INTEGER         streamID,
!                                     INTEGER         byteorder)
      EXTERNAL        streamDefByteorder

      INTEGER         streamInqByteorder
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqByteorder

!                     streamDefShuffle
!                                    (INTEGER         streamID,
!                                     INTEGER         shuffle)
      EXTERNAL        streamDefShuffle

!                     streamDefFilter
!                                    (INTEGER         streamID,
!                                     CHARACTER*(*)   filterSpec)
      EXTERNAL        streamDefFilter

!                     streamDefCompType
!                                    (INTEGER         streamID,
!                                     INTEGER         comptype)
      EXTERNAL        streamDefCompType

      INTEGER         streamInqCompType
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCompType

!                     streamDefCompLevel
!                                    (INTEGER         streamID,
!                                     INTEGER         complevel)
      EXTERNAL        streamDefCompLevel

      INTEGER         streamInqCompLevel
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCompLevel

      INTEGER         streamDefTimestep
!                                    (INTEGER         streamID,
!                                     INTEGER         tsID)
      EXTERNAL        streamDefTimestep

      INTEGER         streamInqTimestep
!                                    (INTEGER         streamID,
!                                     INTEGER         tsID)
      EXTERNAL        streamInqTimestep

      INTEGER         streamInqCurTimestepID
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCurTimestepID

      CHARACTER(80)   streamFilename
!                                    (INTEGER         streamID)
      EXTERNAL        streamFilename

      CHARACTER(80)   streamFilesuffix
!                                    (INTEGER         filetype)
      EXTERNAL        streamFilesuffix

      INTEGER         streamNvals
!                                    (INTEGER         streamID)
      EXTERNAL        streamNvals

      INTEGER         streamInqNvars
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqNvars

!
!  STREAM var I/O routines (random access)
!
!                     streamWriteVar
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVar

!                     streamWriteVarF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVarF

!                     streamReadVar
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadVar

!                     streamReadVarF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadVarF

!                     streamWriteVarSlice
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVarSlice

!                     streamWriteVarSliceF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVarSliceF

!                     streamReadVarSlice
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadVarSlice

!                     streamReadVarSliceF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadVarSliceF

!                     streamWriteVarChunk
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         rect(2,*),
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVarChunk

!                     streamWriteVarChunkF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         rect(2,*),
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteVarChunkF

!
!  STREAM field I/O routines (sequential access)
!
!                     streamDefField
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID)
      EXTERNAL        streamDefField

!                     streamInqField
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID)
      EXTERNAL        streamInqField

!                     streamWriteField
!                                    (INTEGER         streamID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteField

!                     streamWriteFieldF
!                                    (INTEGER         streamID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamWriteFieldF

!                     streamReadField
!                                    (INTEGER         streamID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadField

!                     streamReadFieldF
!                                    (INTEGER         streamID,
!                                     REAL            data(*),
!                                     INTEGER         numMissVals)
      EXTERNAL        streamReadFieldF

!                     streamCopyField
!                                    (INTEGER         streamIDdest,
!                                     INTEGER         streamIDsrc)
      EXTERNAL        streamCopyField

!
!  File driven I/O (may yield better performance than using the streamXXX functions)
!
!
!  Creation & Destruction
!
!
!  Advancing an iterator
!
!
!  Introspecting metadata
!
!
!  All outXXX arguments to these functions may be NULL.
!
!
!  Reading data
!
!
!  TODO[NH]: Add functions to read partial fields.
!
!
!  Direct access to grib fields
!
!
!  Callthroughs to GRIB-API
!
!
!  Convenience functions for accessing GRIB-API keys
!
!
!  VLIST routines
!
      INTEGER         vlistCreate
      EXTERNAL        vlistCreate

!                     vlistDestroy
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistDestroy

      INTEGER         vlistDuplicate
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistDuplicate

!                     vlistCopyFlag
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistCopyFlag

!                     vlistClearFlag
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistClearFlag

!                     vlistCat
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistCat

!                     vlistMerge
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistMerge

!                     vlistPrint
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistPrint

      INTEGER         vlistNumber
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNumber

      INTEGER         vlistNvars
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNvars

      INTEGER         vlistNumGrids
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNumGrids

      INTEGER         vlistNumZaxis
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNumZaxis

      INTEGER         vlistNsubtypes
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNsubtypes

!                     vlistDefNtsteps
!                                    (INTEGER         vlistID,
!                                     INTEGER         nts)
      EXTERNAL        vlistDefNtsteps

      INTEGER         vlistNtsteps
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNtsteps

      INTEGER         vlistGridsizeMax
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistGridsizeMax

      INTEGER         vlistGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistGrid

      INTEGER         vlistGridIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID)
      EXTERNAL        vlistGridIndex

!                     vlistChangeGridIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         index,
!                                     INTEGER         gridID)
      EXTERNAL        vlistChangeGridIndex

!                     vlistChangeGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID1,
!                                     INTEGER         gridID2)
      EXTERNAL        vlistChangeGrid

      INTEGER         vlistZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistZaxis

      INTEGER         vlistZaxisIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         zaxisID)
      EXTERNAL        vlistZaxisIndex

!                     vlistChangeZaxisIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         index,
!                                     INTEGER         zaxisID)
      EXTERNAL        vlistChangeZaxisIndex

!                     vlistChangeZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         zaxisID1,
!                                     INTEGER         zaxisID2)
      EXTERNAL        vlistChangeZaxis

      INTEGER         vlistNumFields
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNumFields

      INTEGER         vlistSubtype
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistSubtype

      INTEGER         vlistSubtypeIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         subtypeID)
      EXTERNAL        vlistSubtypeIndex

!                     vlistDefTaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         taxisID)
      EXTERNAL        vlistDefTaxis

      INTEGER         vlistInqTaxis
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqTaxis

!                     vlistDefTable
!                                    (INTEGER         vlistID,
!                                     INTEGER         tableID)
      EXTERNAL        vlistDefTable

      INTEGER         vlistInqTable
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqTable

!                     vlistDefInstitut
!                                    (INTEGER         vlistID,
!                                     INTEGER         instID)
      EXTERNAL        vlistDefInstitut

      INTEGER         vlistInqInstitut
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqInstitut

!                     vlistDefModel
!                                    (INTEGER         vlistID,
!                                     INTEGER         modelID)
      EXTERNAL        vlistDefModel

      INTEGER         vlistInqModel
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqModel

!
!  VLIST VAR routines
!
      INTEGER         vlistDefVarTiles
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID,
!                                     INTEGER         zaxisID,
!                                     INTEGER         timetype,
!                                     INTEGER         tilesetID)
      EXTERNAL        vlistDefVarTiles

      INTEGER         vlistDefVar
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID,
!                                     INTEGER         zaxisID,
!                                     INTEGER         timetype)
      EXTERNAL        vlistDefVar

!                     vlistChangeVarGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         gridID)
      EXTERNAL        vlistChangeVarGrid

!                     vlistChangeVarZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         zaxisID)
      EXTERNAL        vlistChangeVarZaxis

!                     vlistInqVar
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         gridID,
!                                     INTEGER         zaxisID,
!                                     INTEGER         timetype)
      EXTERNAL        vlistInqVar

      INTEGER         vlistInqVarGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarGrid

      INTEGER         vlistInqVarZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarZaxis

!
!  used in MPIOM
!
      INTEGER         vlistInqVarID
!                                    (INTEGER         vlistID,
!                                     INTEGER         code)
      EXTERNAL        vlistInqVarID

!                     vlistDefVarTimetype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         timetype)
      EXTERNAL        vlistDefVarTimetype

      INTEGER         vlistInqVarTimetype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarTimetype

!                     vlistDefVarTsteptype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         tsteptype)
      EXTERNAL        vlistDefVarTsteptype

      INTEGER         vlistInqVarTsteptype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarTsteptype

!                     vlistDefVarCompType
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         comptype)
      EXTERNAL        vlistDefVarCompType

      INTEGER         vlistInqVarCompType
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarCompType

!                     vlistDefVarCompLevel
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         complevel)
      EXTERNAL        vlistDefVarCompLevel

      INTEGER         vlistInqVarCompLevel
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarCompLevel

!                     vlistDefVarParam
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         param)
      EXTERNAL        vlistDefVarParam

      INTEGER         vlistInqVarParam
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarParam

!                     vlistDefVarCode
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         code)
      EXTERNAL        vlistDefVarCode

      INTEGER         vlistInqVarCode
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarCode

!                     vlistDefVarDatatype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         datatype)
      EXTERNAL        vlistDefVarDatatype

      INTEGER         vlistInqVarDatatype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarDatatype

!                     vlistDefVarXYZ
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         xyz)
      EXTERNAL        vlistDefVarXYZ

      INTEGER         vlistInqVarXYZ
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarXYZ

!                     vlistDefVarNSB
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         nsb)
      EXTERNAL        vlistDefVarNSB

      INTEGER         vlistInqVarNSB
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarNSB

      INTEGER         vlistInqVarNumber
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarNumber

!                     vlistDefVarInstitut
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         instID)
      EXTERNAL        vlistDefVarInstitut

      INTEGER         vlistInqVarInstitut
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarInstitut

!                     vlistDefVarModel
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         modelID)
      EXTERNAL        vlistDefVarModel

      INTEGER         vlistInqVarModel
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarModel

!                     vlistDefVarTable
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         tableID)
      EXTERNAL        vlistDefVarTable

      INTEGER         vlistInqVarTable
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarTable

!                     vlistDefVarName
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        vlistDefVarName

!                     vlistInqVarName
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        vlistInqVarName

      CHARACTER(80)   vlistCopyVarName
!                                    (INTEGER         vlistId,
!                                     INTEGER         varId)
      EXTERNAL        vlistCopyVarName

!                     vlistDefVarStdname
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   stdname)
      EXTERNAL        vlistDefVarStdname

!                     vlistInqVarStdname
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   stdname)
      EXTERNAL        vlistInqVarStdname

!                     vlistDefVarLongname
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   longname)
      EXTERNAL        vlistDefVarLongname

!                     vlistInqVarLongname
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   longname)
      EXTERNAL        vlistInqVarLongname

!                     vlistDefVarUnits
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   units)
      EXTERNAL        vlistDefVarUnits

!                     vlistInqVarUnits
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   units)
      EXTERNAL        vlistInqVarUnits

!                     vlistDefVarMissval
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     DOUBLEPRECISION missval)
      EXTERNAL        vlistDefVarMissval

      DOUBLEPRECISION vlistInqVarMissval
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarMissval

      INTEGER         vlistInqVarSize
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarSize

!                     vlistDefIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         levID,
!                                     INTEGER         index)
      EXTERNAL        vlistDefIndex

      INTEGER         vlistInqIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         levID)
      EXTERNAL        vlistInqIndex

!                     vlistDefFlag
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         levID,
!                                     INTEGER         flag)
      EXTERNAL        vlistDefFlag

      INTEGER         vlistInqFlag
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         levID)
      EXTERNAL        vlistInqFlag

      INTEGER         vlistFindVar
!                                    (INTEGER         vlistID,
!                                     INTEGER         fvarID)
      EXTERNAL        vlistFindVar

      INTEGER         vlistFindLevel
!                                    (INTEGER         vlistID,
!                                     INTEGER         fvarID,
!                                     INTEGER         flevelID)
      EXTERNAL        vlistFindLevel

      INTEGER         vlistMergedVar
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistMergedVar

      INTEGER         vlistMergedLevel
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID)
      EXTERNAL        vlistMergedLevel

!                     cdiClearAdditionalKeys
      EXTERNAL        cdiClearAdditionalKeys

!                     cdiDefAdditionalKey
!                                    (CHARACTER*(*)   string)
      EXTERNAL        cdiDefAdditionalKey

!                     vlistDefVarIntKey
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         value)
      EXTERNAL        vlistDefVarIntKey

!                     vlistDefVarDblKey
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     DOUBLEPRECISION value)
      EXTERNAL        vlistDefVarDblKey

      INTEGER         vlistHasVarKey
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        vlistHasVarKey

      DOUBLEPRECISION vlistInqVarDblKey
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        vlistInqVarDblKey

      INTEGER         vlistInqVarIntKey
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        vlistInqVarIntKey

!
!  CDI attributes
!
      INTEGER         cdiInqNatts
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         nattsp)
      EXTERNAL        cdiInqNatts

      INTEGER         cdiInqAtt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         attrnum,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         typep,
!                                     INTEGER         lenp)
      EXTERNAL        cdiInqAtt

      INTEGER         cdiInqAttLen
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        cdiInqAttLen

      INTEGER         cdiInqAttType
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        cdiInqAttType

      INTEGER         cdiDelAtt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        cdiDelAtt

      INTEGER         cdiCopyAtts
!                                    (INTEGER         cdiID1,
!                                     INTEGER         varID1,
!                                     INTEGER         cdiID2,
!                                     INTEGER         varID2)
      EXTERNAL        cdiCopyAtts

      INTEGER         cdiDefAttInt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         type,
!                                     INTEGER         len,
!                                     INTEGER         ip(*))
      EXTERNAL        cdiDefAttInt

      INTEGER         cdiDefAttFlt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         type,
!                                     INTEGER         len,
!                                     DOUBLEPRECISION dp(*))
      EXTERNAL        cdiDefAttFlt

      INTEGER         cdiDefAttTxt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         len,
!                                     CHARACTER*(*)   tp_cbuf)
      EXTERNAL        cdiDefAttTxt

      INTEGER         cdiInqAttInt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         mlen,
!                                     INTEGER         ip(*))
      EXTERNAL        cdiInqAttInt

      INTEGER         cdiInqAttFlt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         mlen,
!                                     DOUBLEPRECISION dp(*))
      EXTERNAL        cdiInqAttFlt

      INTEGER         cdiInqAttTxt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     CHARACTER*(*)   name,
!                                     INTEGER         mlen,
!                                     CHARACTER*(*)   tp_cbuf)
      EXTERNAL        cdiInqAttTxt

!
!  GRID routines
!
!                     gridName
!                                    (INTEGER         gridtype,
!                                     CHARACTER*(*)   gridname)
      EXTERNAL        gridName

      CHARACTER(80)   gridNamePtr
!                                    (INTEGER         gridtype)
      EXTERNAL        gridNamePtr

!                     gridCompress
!                                    (INTEGER         gridID)
      EXTERNAL        gridCompress

!                     gridDefMaskGME
!                                    (INTEGER         gridID,
!                                     INTEGER         mask(*))
      EXTERNAL        gridDefMaskGME

      INTEGER         gridInqMaskGME
!                                    (INTEGER         gridID,
!                                     INTEGER         mask(*))
      EXTERNAL        gridInqMaskGME

!                     gridDefMask
!                                    (INTEGER         gridID,
!                                     INTEGER         mask(*))
      EXTERNAL        gridDefMask

      INTEGER         gridInqMask
!                                    (INTEGER         gridID,
!                                     INTEGER         mask(*))
      EXTERNAL        gridInqMask

      INTEGER         gridCreate
!                                    (INTEGER         gridtype,
!                                     INTEGER         size)
      EXTERNAL        gridCreate

!                     gridDestroy
!                                    (INTEGER         gridID)
      EXTERNAL        gridDestroy

      INTEGER         gridDuplicate
!                                    (INTEGER         gridID)
      EXTERNAL        gridDuplicate

!                     gridDefProj
!                                    (INTEGER         gridID,
!                                     INTEGER         projID)
      EXTERNAL        gridDefProj

      INTEGER         gridInqProj
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqProj

      INTEGER         gridInqProjType
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqProjType

      INTEGER         gridInqType
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqType

      INTEGER         gridInqSize
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqSize

!                     gridDefXsize
!                                    (INTEGER         gridID,
!                                     INTEGER         xsize)
      EXTERNAL        gridDefXsize

      INTEGER         gridInqXsize
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqXsize

!                     gridDefYsize
!                                    (INTEGER         gridID,
!                                     INTEGER         ysize)
      EXTERNAL        gridDefYsize

      INTEGER         gridInqYsize
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqYsize

!                     gridDefNP
!                                    (INTEGER         gridID,
!                                     INTEGER         np)
      EXTERNAL        gridDefNP

      INTEGER         gridInqNP
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqNP

!                     gridDefXvals
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xvals(*))
      EXTERNAL        gridDefXvals

      INTEGER         gridInqXvals
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xvals(*))
      EXTERNAL        gridInqXvals

      INTEGER         gridInqXvalsPart
!                                    (INTEGER         gridID,
!                                     INTEGER         start,
!                                     INTEGER         size,
!                                     DOUBLEPRECISION xvals(*))
      EXTERNAL        gridInqXvalsPart

      INTEGER         gridInqXIsc
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqXIsc

!                     gridDefYvals
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION yvals(*))
      EXTERNAL        gridDefYvals

      INTEGER         gridInqYvals
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION yvals(*))
      EXTERNAL        gridInqYvals

      INTEGER         gridInqYvalsPart
!                                    (INTEGER         gridID,
!                                     INTEGER         start,
!                                     INTEGER         size,
!                                     DOUBLEPRECISION yvals(*))
      EXTERNAL        gridInqYvalsPart

      INTEGER         gridInqYIsc
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqYIsc

!
!  CDI var keys
!
!
!  String keys
!
      INTEGER    CDI_KEY_NAME
      PARAMETER (CDI_KEY_NAME           = 942)
      INTEGER    CDI_KEY_LONGNAME
      PARAMETER (CDI_KEY_LONGNAME       = 943)
      INTEGER    CDI_KEY_STDNAME
      PARAMETER (CDI_KEY_STDNAME        = 944)
      INTEGER    CDI_KEY_UNITS
      PARAMETER (CDI_KEY_UNITS          = 945)
      INTEGER    CDI_KEY_DATATYPE
      PARAMETER (CDI_KEY_DATATYPE       = 946)
      INTEGER    CDI_KEY_REFERENCEURI
      PARAMETER (CDI_KEY_REFERENCEURI   = 947)
!
!  Integer keys
!
      INTEGER    CDI_KEY_NUMBEROFGRIDUSED
      PARAMETER (CDI_KEY_NUMBEROFGRIDUSED = 961)
      INTEGER    CDI_KEY_NUMBEROFGRIDINREFERENCE
      PARAMETER (CDI_KEY_NUMBEROFGRIDINREFERENCE = 962)
      INTEGER    CDI_KEY_NUMBEROFVGRIDUSED
      PARAMETER (CDI_KEY_NUMBEROFVGRIDUSED = 963)
      INTEGER    CDI_KEY_NLEV
      PARAMETER (CDI_KEY_NLEV           = 964)
      INTEGER    CDI_KEY_CHUNKTYPE
      PARAMETER (CDI_KEY_CHUNKTYPE      = 965)
      INTEGER    CDI_KEY_CHUNKSIZE
      PARAMETER (CDI_KEY_CHUNKSIZE      = 966)
      INTEGER    CDI_KEY_CHUNKSIZE_DIMT
      PARAMETER (CDI_KEY_CHUNKSIZE_DIMT = 967)
      INTEGER    CDI_KEY_CHUNKSIZE_DIMZ
      PARAMETER (CDI_KEY_CHUNKSIZE_DIMZ = 968)
      INTEGER    CDI_KEY_CHUNKSIZE_DIMY
      PARAMETER (CDI_KEY_CHUNKSIZE_DIMY = 969)
      INTEGER    CDI_KEY_CHUNKSIZE_DIMX
      PARAMETER (CDI_KEY_CHUNKSIZE_DIMX = 970)
!
!  Floating point keys
!
      INTEGER    CDI_KEY_MISSVAL
      PARAMETER (CDI_KEY_MISSVAL        = 701)
      INTEGER    CDI_KEY_ADDOFFSET
      PARAMETER (CDI_KEY_ADDOFFSET      = 702)
      INTEGER    CDI_KEY_SCALEFACTOR
      PARAMETER (CDI_KEY_SCALEFACTOR    = 703)
      INTEGER    CDI_KEY_FILTERSPEC_IN
      PARAMETER (CDI_KEY_FILTERSPEC_IN  = 720)
      INTEGER    CDI_KEY_FILTERSPEC
      PARAMETER (CDI_KEY_FILTERSPEC     = 721)
!
!  Byte array keys
!
      INTEGER    CDI_KEY_UUID
      PARAMETER (CDI_KEY_UUID           = 960)
      INTEGER    CDI_KEY_DIMNAME
      PARAMETER (CDI_KEY_DIMNAME        = 941)
      INTEGER    CDI_KEY_PSNAME
      PARAMETER (CDI_KEY_PSNAME         = 950)
      INTEGER    CDI_KEY_P0NAME
      PARAMETER (CDI_KEY_P0NAME         = 951)
      INTEGER    CDI_KEY_P0VALUE
      PARAMETER (CDI_KEY_P0VALUE        = 952)
      INTEGER    CDI_KEY_TABLESVERSION
      PARAMETER (CDI_KEY_TABLESVERSION  = 801)
      INTEGER    CDI_KEY_LOCALTABLESVERSION
      PARAMETER (CDI_KEY_LOCALTABLESVERSION = 802)
      INTEGER    CDI_KEY_TYPEOFGENERATINGPROCESS
      PARAMETER (CDI_KEY_TYPEOFGENERATINGPROCESS = 803)
      INTEGER    CDI_KEY_PRODUCTDEFINITIONTEMPLATE
      PARAMETER (CDI_KEY_PRODUCTDEFINITIONTEMPLATE = 804)
      INTEGER    CDI_KEY_TYPEOFPROCESSEDDATA
      PARAMETER (CDI_KEY_TYPEOFPROCESSEDDATA = 805)
      INTEGER    CDI_KEY_SHAPEOFTHEEARTH
      PARAMETER (CDI_KEY_SHAPEOFTHEEARTH = 806)
      INTEGER    CDI_KEY_BACKGROUNDPROCESS
      PARAMETER (CDI_KEY_BACKGROUNDPROCESS = 807)
      INTEGER    CDI_KEY_TYPEOFENSEMBLEFORECAST
      PARAMETER (CDI_KEY_TYPEOFENSEMBLEFORECAST = 808)
      INTEGER    CDI_KEY_NUMBEROFFORECASTSINENSEMBLE
      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    CDI_KEY_GRIB2LOCALSECTIONNUMBER
      PARAMETER (CDI_KEY_GRIB2LOCALSECTIONNUMBER = 818)
      INTEGER    CDI_KEY_SECTION2PADDINGLENGTH
      PARAMETER (CDI_KEY_SECTION2PADDINGLENGTH = 819)
      INTEGER    CDI_KEY_SECTION2PADDING
      PARAMETER (CDI_KEY_SECTION2PADDING = 820)
      INTEGER    CDI_KEY_CONSTITUENTTYPE
      PARAMETER (CDI_KEY_CONSTITUENTTYPE = 821)
      INTEGER    CDI_KEY_TYPEOFTIMEINCREMENT
      PARAMETER (CDI_KEY_TYPEOFTIMEINCREMENT = 822)
      INTEGER    CDI_KEY_TYPEOFFIRSTFIXEDSURFACE
      PARAMETER (CDI_KEY_TYPEOFFIRSTFIXEDSURFACE = 823)
      INTEGER    CDI_KEY_TYPEOFSECONDFIXEDSURFACE
      PARAMETER (CDI_KEY_TYPEOFSECONDFIXEDSURFACE = 824)
      INTEGER    CDI_KEY_UVRELATIVETOGRID
      PARAMETER (CDI_KEY_UVRELATIVETOGRID = 825)
      INTEGER    CDI_KEY_SCANNINGMODE
      PARAMETER (CDI_KEY_SCANNINGMODE   = 826)
      INTEGER    CDI_KEY_VDIMNAME
      PARAMETER (CDI_KEY_VDIMNAME       = 920)
      INTEGER    CDI_KEY_GRIDMAP_VARTYPE
      PARAMETER (CDI_KEY_GRIDMAP_VARTYPE = 921)
      INTEGER    CDI_KEY_GRIDMAP_VARNAME
      PARAMETER (CDI_KEY_GRIDMAP_VARNAME = 922)
      INTEGER    CDI_KEY_GRIDMAP_NAME
      PARAMETER (CDI_KEY_GRIDMAP_NAME   = 923)
      INTEGER         cdiDefKeyInt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     INTEGER         value)
      EXTERNAL        cdiDefKeyInt

      INTEGER         cdiInqKeyInt
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     INTEGER         value)
      EXTERNAL        cdiInqKeyInt

      INTEGER         cdiDefKeyFloat
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     DOUBLEPRECISION value)
      EXTERNAL        cdiDefKeyFloat

!
!  cdiInqKeyFloat Get a float value from a key
!
      INTEGER         cdiInqKeyFloat
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     DOUBLEPRECISION value)
      EXTERNAL        cdiInqKeyFloat

      INTEGER         cdiDefKeyString
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     CHARACTER*(*)   string)
      EXTERNAL        cdiDefKeyString

      INTEGER         cdiInqKeyString
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     CHARACTER*(*)   string,
!                                     INTEGER         length)
      EXTERNAL        cdiInqKeyString

      INTEGER         cdiInqKeyLen
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key,
!                                     INTEGER         length)
      EXTERNAL        cdiInqKeyLen

      INTEGER         cdiCopyKeys
!                                    (INTEGER         cdiID1,
!                                     INTEGER         varID1,
!                                     INTEGER         cdiID2,
!                                     INTEGER         varID2)
      EXTERNAL        cdiCopyKeys

      INTEGER         cdiCopyKey
!                                    (INTEGER         cdiID1,
!                                     INTEGER         varID1,
!                                     INTEGER         key,
!                                     INTEGER         cdiID2)
      EXTERNAL        cdiCopyKey

      INTEGER         cdiDeleteKey
!                                    (INTEGER         cdiID,
!                                     INTEGER         varID,
!                                     INTEGER         key)
      EXTERNAL        cdiDeleteKey

!
!  GRID routines
!
!                     gridDefXname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xname)
      EXTERNAL        gridDefXname

!                     gridInqXname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xname)
      EXTERNAL        gridInqXname

!                     gridDefXlongname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xlongname)
      EXTERNAL        gridDefXlongname

!                     gridInqXlongname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xlongname)
      EXTERNAL        gridInqXlongname

!                     gridDefXunits
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xunits)
      EXTERNAL        gridDefXunits

!                     gridInqXunits
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   xunits)
      EXTERNAL        gridInqXunits

!                     gridDefYname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   yname)
      EXTERNAL        gridDefYname

!                     gridInqYname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   yname)
      EXTERNAL        gridInqYname

!                     gridDefYlongname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   ylongname)
      EXTERNAL        gridDefYlongname

!                     gridInqYlongname
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   ylongname)
      EXTERNAL        gridInqYlongname

!                     gridDefYunits
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   yunits)
      EXTERNAL        gridDefYunits

!                     gridInqYunits
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   yunits)
      EXTERNAL        gridInqYunits

!                     gridDefDatatype
!                                    (INTEGER         gridID,
!                                     INTEGER         datatype)
      EXTERNAL        gridDefDatatype

      INTEGER         gridInqDatatype
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqDatatype

      DOUBLEPRECISION gridInqXval
!                                    (INTEGER         gridID,
!                                     INTEGER         index)
      EXTERNAL        gridInqXval

      DOUBLEPRECISION gridInqYval
!                                    (INTEGER         gridID,
!                                     INTEGER         index)
      EXTERNAL        gridInqYval

      DOUBLEPRECISION gridInqXinc
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqXinc

      DOUBLEPRECISION gridInqYinc
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqYinc

      INTEGER         gridIsCircular
!                                    (INTEGER         gridID)
      EXTERNAL        gridIsCircular

      INTEGER         gridInqTrunc
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqTrunc

!                     gridDefTrunc
!                                    (INTEGER         gridID,
!                                     INTEGER         trunc)
      EXTERNAL        gridDefTrunc

!
!  Reference of an unstructured grid
!
!                     gridDefNumber
!                                    (INTEGER         gridID,
!                                     INTEGER         number)
      EXTERNAL        gridDefNumber

      INTEGER         gridInqNumber
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqNumber

!                     gridDefPosition
!                                    (INTEGER         gridID,
!                                     INTEGER         position)
      EXTERNAL        gridDefPosition

      INTEGER         gridInqPosition
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqPosition

!                     gridDefReference
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   reference)
      EXTERNAL        gridDefReference

      INTEGER         gridInqReference
!                                    (INTEGER         gridID,
!                                     CHARACTER*(*)   reference)
      EXTERNAL        gridInqReference

!                     gridDefUUID
!                                    (INTEGER         gridID,
!                                     INTEGER*1(16)   uuid)
      EXTERNAL        gridDefUUID

!                     gridInqUUID
!                                    (INTEGER         gridID,
!                                     INTEGER*1(16)   uuid)
      EXTERNAL        gridInqUUID

!
!  Rotated Lon/Lat grid
!
!                     gridDefParamRLL
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xpole,
!                                     DOUBLEPRECISION ypole,
!                                     DOUBLEPRECISION angle)
      EXTERNAL        gridDefParamRLL

!                     gridInqParamRLL
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xpole,
!                                     DOUBLEPRECISION ypole,
!                                     DOUBLEPRECISION angle)
      EXTERNAL        gridInqParamRLL

!
!  Hexagonal GME grid
!
!                     gridDefParamGME
!                                    (INTEGER         gridID,
!                                     INTEGER         nd,
!                                     INTEGER         ni,
!                                     INTEGER         ni2,
!                                     INTEGER         ni3)
      EXTERNAL        gridDefParamGME

!                     gridInqParamGME
!                                    (INTEGER         gridID,
!                                     INTEGER         nd,
!                                     INTEGER         ni,
!                                     INTEGER         ni2,
!                                     INTEGER         ni3)
      EXTERNAL        gridInqParamGME

!                     gridDefArea
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION area(*))
      EXTERNAL        gridDefArea

!                     gridInqArea
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION area(*))
      EXTERNAL        gridInqArea

      INTEGER         gridHasArea
!                                    (INTEGER         gridID)
      EXTERNAL        gridHasArea

!                     gridDefNvertex
!                                    (INTEGER         gridID,
!                                     INTEGER         nvertex)
      EXTERNAL        gridDefNvertex

      INTEGER         gridInqNvertex
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqNvertex

!                     gridDefXbounds
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xbounds(*))
      EXTERNAL        gridDefXbounds

      INTEGER         gridInqXbounds
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION xbounds(*))
      EXTERNAL        gridInqXbounds

      INTEGER         gridInqXboundsPart
!                                    (INTEGER         gridID,
!                                     INTEGER         start,
!                                     INTEGER         size,
!                                     DOUBLEPRECISION xbounds(*))
      EXTERNAL        gridInqXboundsPart

!                     gridDefYbounds
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION ybounds(*))
      EXTERNAL        gridDefYbounds

      INTEGER         gridInqYbounds
!                                    (INTEGER         gridID,
!                                     DOUBLEPRECISION ybounds(*))
      EXTERNAL        gridInqYbounds

      INTEGER         gridInqYboundsPart
!                                    (INTEGER         gridID,
!                                     INTEGER         start,
!                                     INTEGER         size,
!                                     DOUBLEPRECISION ybounds(*))
      EXTERNAL        gridInqYboundsPart

!                     gridDefReducedPoints
!                                    (INTEGER         gridID,
!                                     INTEGER         reducedPointsSize,
!                                     INTEGER         reducedPoints(*))
      EXTERNAL        gridDefReducedPoints

!                     gridInqReducedPoints
!                                    (INTEGER         gridID,
!                                     INTEGER         reducedPoints(*))
      EXTERNAL        gridInqReducedPoints

!                     gridChangeType
!                                    (INTEGER         gridID,
!                                     INTEGER         gridtype)
      EXTERNAL        gridChangeType

!                     gridDefComplexPacking
!                                    (INTEGER         gridID,
!                                     INTEGER         lpack)
      EXTERNAL        gridDefComplexPacking

      INTEGER         gridInqComplexPacking
!                                    (INTEGER         gridID)
      EXTERNAL        gridInqComplexPacking

!
!  ZAXIS routines
!
!                     zaxisName
!                                    (INTEGER         zaxistype,
!                                     CHARACTER*(*)   zaxisname)
      EXTERNAL        zaxisName

      CHARACTER(80)   zaxisNamePtr
!                                    (INTEGER         leveltype)
      EXTERNAL        zaxisNamePtr

      INTEGER         zaxisCreate
!                                    (INTEGER         zaxistype,
!                                     INTEGER         size)
      EXTERNAL        zaxisCreate

!                     zaxisDestroy
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisDestroy

      INTEGER         zaxisInqType
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqType

      INTEGER         zaxisInqSize
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqSize

      INTEGER         zaxisDuplicate
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisDuplicate

!                     zaxisDefLevels
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION levels(*))
      EXTERNAL        zaxisDefLevels

      INTEGER         zaxisInqLevels
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION levels(*))
      EXTERNAL        zaxisInqLevels

      INTEGER         zaxisInqCLen
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqCLen

!                     zaxisDefLevel
!                                    (INTEGER         zaxisID,
!                                     INTEGER         levelID,
!                                     DOUBLEPRECISION levels)
      EXTERNAL        zaxisDefLevel

      DOUBLEPRECISION zaxisInqLevel
!                                    (INTEGER         zaxisID,
!                                     INTEGER         levelID)
      EXTERNAL        zaxisInqLevel

!                     zaxisDefNlevRef
!                                    (INTEGER         gridID,
!                                     INTEGER         nhlev)
      EXTERNAL        zaxisDefNlevRef

      INTEGER         zaxisInqNlevRef
!                                    (INTEGER         gridID)
      EXTERNAL        zaxisInqNlevRef

!                     zaxisDefNumber
!                                    (INTEGER         gridID,
!                                     INTEGER         number)
      EXTERNAL        zaxisDefNumber

      INTEGER         zaxisInqNumber
!                                    (INTEGER         gridID)
      EXTERNAL        zaxisInqNumber

!                     zaxisDefUUID
!                                    (INTEGER         zaxisID,
!                                     INTEGER*1(16)   uuid)
      EXTERNAL        zaxisDefUUID

!                     zaxisInqUUID
!                                    (INTEGER         zaxisID,
!                                     INTEGER*1(16)   uuid)
      EXTERNAL        zaxisInqUUID

!                     zaxisDefName
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   name_optional)
      EXTERNAL        zaxisDefName

!                     zaxisInqName
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        zaxisInqName

!                     zaxisDefLongname
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   longname_optional)
      EXTERNAL        zaxisDefLongname

!                     zaxisInqLongname
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   longname)
      EXTERNAL        zaxisInqLongname

!                     zaxisDefUnits
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   units_optional)
      EXTERNAL        zaxisDefUnits

!                     zaxisInqUnits
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   units)
      EXTERNAL        zaxisInqUnits

!                     zaxisInqStdname
!                                    (INTEGER         zaxisID,
!                                     CHARACTER*(*)   stdname)
      EXTERNAL        zaxisInqStdname

!                     zaxisDefDatatype
!                                    (INTEGER         zaxisID,
!                                     INTEGER         datatype)
      EXTERNAL        zaxisDefDatatype

      INTEGER         zaxisInqDatatype
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqDatatype

!                     zaxisDefPositive
!                                    (INTEGER         zaxisID,
!                                     INTEGER         positive)
      EXTERNAL        zaxisDefPositive

      INTEGER         zaxisInqPositive
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqPositive

!                     zaxisDefScalar
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisDefScalar

      INTEGER         zaxisInqScalar
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqScalar

!                     zaxisDefVct
!                                    (INTEGER         zaxisID,
!                                     INTEGER         size,
!                                     DOUBLEPRECISION vct(*))
      EXTERNAL        zaxisDefVct

!                     zaxisInqVct
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION vct(*))
      EXTERNAL        zaxisInqVct

      INTEGER         zaxisInqVctSize
!                                    (INTEGER         zaxisID)
      EXTERNAL        zaxisInqVctSize

!                     zaxisDefLbounds
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION lbounds(*))
      EXTERNAL        zaxisDefLbounds

      INTEGER         zaxisInqLbounds
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION lbounds_optional(*))
      EXTERNAL        zaxisInqLbounds

      DOUBLEPRECISION zaxisInqLbound
!                                    (INTEGER         zaxisID,
!                                     INTEGER         index)
      EXTERNAL        zaxisInqLbound

!                     zaxisDefUbounds
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION ubounds(*))
      EXTERNAL        zaxisDefUbounds

      INTEGER         zaxisInqUbounds
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION ubounds_optional(*))
      EXTERNAL        zaxisInqUbounds

      DOUBLEPRECISION zaxisInqUbound
!                                    (INTEGER         zaxisID,
!                                     INTEGER         index)
      EXTERNAL        zaxisInqUbound

!                     zaxisDefWeights
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION weights(*))
      EXTERNAL        zaxisDefWeights

      INTEGER         zaxisInqWeights
!                                    (INTEGER         zaxisID,
!                                     DOUBLEPRECISION weights_optional(*))
      EXTERNAL        zaxisInqWeights

!                     zaxisChangeType
!                                    (INTEGER         zaxisID,
!                                     INTEGER         zaxistype)
      EXTERNAL        zaxisChangeType

!
!  TAXIS routines
!
      INTEGER         taxisCreate
!                                    (INTEGER         taxistype)
      EXTERNAL        taxisCreate

!                     taxisDestroy
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisDestroy

      INTEGER         taxisDuplicate
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisDuplicate

!                     taxisCopyTimestep
!                                    (INTEGER         taxisIDdes,
!                                     INTEGER         taxisIDsrc)
      EXTERNAL        taxisCopyTimestep

!                     taxisDefType
!                                    (INTEGER         taxisID,
!                                     INTEGER         taxistype)
      EXTERNAL        taxisDefType

      INTEGER         taxisInqType
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqType

!                     taxisDefVdate
!                                    (INTEGER         taxisID,
!                                     INTEGER         date)
      EXTERNAL        taxisDefVdate

!                     taxisDefVtime
!                                    (INTEGER         taxisID,
!                                     INTEGER         time)
      EXTERNAL        taxisDefVtime

      INTEGER         taxisInqVdate
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqVdate

      INTEGER         taxisInqVtime
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqVtime

!                     taxisDefRdate
!                                    (INTEGER         taxisID,
!                                     INTEGER         date)
      EXTERNAL        taxisDefRdate

!                     taxisDefRtime
!                                    (INTEGER         taxisID,
!                                     INTEGER         time)
      EXTERNAL        taxisDefRtime

      INTEGER         taxisInqRdate
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqRdate

      INTEGER         taxisInqRtime
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqRtime

      INTEGER         taxisHasBounds
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisHasBounds

!                     taxisWithBounds
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisWithBounds

!                     taxisDeleteBounds
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisDeleteBounds

!                     taxisDefVdateBounds
!                                    (INTEGER         taxisID,
!                                     INTEGER         vdate_lb,
!                                     INTEGER         vdate_ub)
      EXTERNAL        taxisDefVdateBounds

!                     taxisDefVtimeBounds
!                                    (INTEGER         taxisID,
!                                     INTEGER         vtime_lb,
!                                     INTEGER         vtime_ub)
      EXTERNAL        taxisDefVtimeBounds

!                     taxisInqVdateBounds
!                                    (INTEGER         taxisID,
!                                     INTEGER         vdate_lb,
!                                     INTEGER         vdate_ub)
      EXTERNAL        taxisInqVdateBounds

!                     taxisInqVtimeBounds
!                                    (INTEGER         taxisID,
!                                     INTEGER         vtime_lb,
!                                     INTEGER         vtime_ub)
      EXTERNAL        taxisInqVtimeBounds

!                     taxisDefCalendar
!                                    (INTEGER         taxisID,
!                                     INTEGER         calendar)
      EXTERNAL        taxisDefCalendar

      INTEGER         taxisInqCalendar
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqCalendar

!                     taxisDefTunit
!                                    (INTEGER         taxisID,
!                                     INTEGER         tunit)
      EXTERNAL        taxisDefTunit

      INTEGER         taxisInqTunit
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqTunit

!                     taxisDefForecastTunit
!                                    (INTEGER         taxisID,
!                                     INTEGER         tunit)
      EXTERNAL        taxisDefForecastTunit

      INTEGER         taxisInqForecastTunit
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqForecastTunit

!                     taxisDefForecastPeriod
!                                    (INTEGER         taxisID,
!                                     DOUBLEPRECISION fc_period)
      EXTERNAL        taxisDefForecastPeriod

      DOUBLEPRECISION taxisInqForecastPeriod
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqForecastPeriod

!                     taxisDefNumavg
!                                    (INTEGER         taxisID,
!                                     INTEGER         numavg)
      EXTERNAL        taxisDefNumavg

      INTEGER         taxisInqNumavg
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisInqNumavg

      CHARACTER(80)   taxisNamePtr
!                                    (INTEGER         taxisID)
      EXTERNAL        taxisNamePtr

      CHARACTER(80)   tunitNamePtr
!                                    (INTEGER         tunitID)
      EXTERNAL        tunitNamePtr

!
!  Institut routines
!
      INTEGER         institutDef
!                                    (INTEGER         center,
!                                     INTEGER         subcenter,
!                                     CHARACTER*(*)   name,
!                                     CHARACTER*(*)   longname)
      EXTERNAL        institutDef

      INTEGER         institutInq
!                                    (INTEGER         center,
!                                     INTEGER         subcenter,
!                                     CHARACTER*(*)   name,
!                                     CHARACTER*(*)   longname)
      EXTERNAL        institutInq

      INTEGER         institutInqNumber
      EXTERNAL        institutInqNumber

      INTEGER         institutInqCenter
!                                    (INTEGER         instID)
      EXTERNAL        institutInqCenter

      INTEGER         institutInqSubcenter
!                                    (INTEGER         instID)
      EXTERNAL        institutInqSubcenter

      CHARACTER(80)   institutInqNamePtr
!                                    (INTEGER         instID)
      EXTERNAL        institutInqNamePtr

      CHARACTER(80)   institutInqLongnamePtr
!                                    (INTEGER         instID)
      EXTERNAL        institutInqLongnamePtr

!
!  Model routines
!
      INTEGER         modelDef
!                                    (INTEGER         instID,
!                                     INTEGER         modelgribID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        modelDef

      INTEGER         modelInq
!                                    (INTEGER         instID,
!                                     INTEGER         modelgribID,
!                                     CHARACTER*(*)   name)
      EXTERNAL        modelInq

      INTEGER         modelInqInstitut
!                                    (INTEGER         modelID)
      EXTERNAL        modelInqInstitut

      INTEGER         modelInqGribID
!                                    (INTEGER         modelID)
      EXTERNAL        modelInqGribID

      CHARACTER(80)   modelInqNamePtr
!                                    (INTEGER         modelID)
      EXTERNAL        modelInqNamePtr

!
!  Table routines
!
!                     tableWrite
!                                    (CHARACTER*(*)   filename,
!                                     INTEGER         tableID)
      EXTERNAL        tableWrite

      INTEGER         tableRead
!                                    (CHARACTER*(*)   tablefile)
      EXTERNAL        tableRead

      INTEGER         tableDef
!                                    (INTEGER         modelID,
!                                     INTEGER         tablenum,
!                                     CHARACTER*(*)   tablename)
      EXTERNAL        tableDef

      CHARACTER(80)   tableInqNamePtr
!                                    (INTEGER         tableID)
      EXTERNAL        tableInqNamePtr

      INTEGER         tableInq
!                                    (INTEGER         modelID,
!                                     INTEGER         tablenum,
!                                     CHARACTER*(*)   tablename)
      EXTERNAL        tableInq

      INTEGER         tableInqNumber
      EXTERNAL        tableInqNumber

      INTEGER         tableInqNum
!                                    (INTEGER         tableID)
      EXTERNAL        tableInqNum

      INTEGER         tableInqModel
!                                    (INTEGER         tableID)
      EXTERNAL        tableInqModel

!                     tableInqEntry
!                                    (INTEGER         tableID,
!                                     INTEGER         id,
!                                     INTEGER         ltype,
!                                     CHARACTER*(*)   name,
!                                     CHARACTER*(*)   longname,
!                                     CHARACTER*(*)   units)
      EXTERNAL        tableInqEntry

!
!  Subtype routines
!
      INTEGER         subtypeCreate
!                                    (INTEGER         subtype)
      EXTERNAL        subtypeCreate

!
!  Gives a textual summary of the variable subtype
!
!                     subtypePrint
!                                    (INTEGER         subtypeID)
      EXTERNAL        subtypePrint

!
!  Compares two subtype data structures
!
      INTEGER         subtypeCompare
!                                    (INTEGER         subtypeID1,
!                                     INTEGER         subtypeID2)
      EXTERNAL        subtypeCompare

      INTEGER         subtypeInqSize
!                                    (INTEGER         subtypeID)
      EXTERNAL        subtypeInqSize

      INTEGER         subtypeInqActiveIndex
!                                    (INTEGER         subtypeID)
      EXTERNAL        subtypeInqActiveIndex

!                     subtypeDefActiveIndex
!                                    (INTEGER         subtypeID,
!                                     INTEGER         index)
      EXTERNAL        subtypeDefActiveIndex

!
!  Generate a "query object" out of a key-value pair
!
!
!  Generate an AND-combined "query object" out of two previous query objects
!
      INTEGER         subtypeInqTile
!                                    (INTEGER         subtypeID,
!                                     INTEGER         tileindex,
!                                     INTEGER         attribute)
      EXTERNAL        subtypeInqTile

      INTEGER         subtypeInqAttribute
!                                    (INTEGER         subtypeID,
!                                     INTEGER         index,
!                                     CHARACTER*(*)   key,
!                                     INTEGER         outValue)
      EXTERNAL        subtypeInqAttribute

      INTEGER         vlistInqVarSubtype
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarSubtype

!                     gribapiLibraryVersion
!                                    (INTEGER         major_version,
!                                     INTEGER         minor_version,
!                                     INTEGER         revision_version)
      EXTERNAL        gribapiLibraryVersion

!
!  Compatibility functions for release 1.8.3 (obsolete functions)
!
!                     zaxisDefLtype
!                                    (INTEGER         zaxisID,
!                                     INTEGER         ltype)
      EXTERNAL        zaxisDefLtype

      INTEGER         vlistInqVarTypeOfGeneratingProcess
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID)
      EXTERNAL        vlistInqVarTypeOfGeneratingProcess

!                     vlistDefVarTypeOfGeneratingProcess
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         typeOfGeneratingProcess)
      EXTERNAL        vlistDefVarTypeOfGeneratingProcess

!                     vlistDefVarProductDefinitionTemplate
!                                    (INTEGER         vlistID,
!                                     INTEGER         varID,
!                                     INTEGER         productDefinitionTemplate)
      EXTERNAL        vlistDefVarProductDefinitionTemplate

!
!  Compatibility functions for ParaView vtkCDIReader (obsolete functions)
!
      INTEGER         vlistNgrids
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNgrids

      INTEGER         vlistNzaxis
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNzaxis

!
!  End of fortran interface
!
