mo_cdi.f90

! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<<
!
! Generated by "../../../interfaces/f2003/bindGen.rb" from input file "../../../src/cdi.h".

module mo_cdi
  use iso_c_binding
  implicit none
  private

  public ctrim
  public c_len

  interface
    integer(c_size_t) function lib_strlen(charPtr) bind(c, name = "strlen")
      import c_size_t, c_ptr
      type(c_ptr), value :: charPtr
    end function lib_strlen

    subroutine lib_free(pointer) bind(c, name = "free")
      import c_ptr
      type(c_ptr), value :: pointer
    end subroutine lib_free
  end interface

  integer(c_int), public, parameter :: CDI_MAX_NAME = 256
  integer(c_int), public, parameter :: CDI_UNDEFID = -1
  integer(c_int), public, parameter :: CDI_GLOBAL = -1
  integer(c_int), public, parameter :: CDI_BIGENDIAN = 0
  integer(c_int), public, parameter :: CDI_LITTLEENDIAN = 1
  integer(c_int), public, parameter :: CDI_PDPENDIAN = 2
  integer(c_int), public, parameter :: CDI_REAL = 1
  integer(c_int), public, parameter :: CDI_COMP = 2
  integer(c_int), public, parameter :: CDI_BOTH = 3
  integer(c_int), public, parameter :: CDI_NOERR = 0
  integer(c_int), public, parameter :: CDI_EEOF = -1
  integer(c_int), public, parameter :: CDI_ETMOF = -9
  integer(c_int), public, parameter :: CDI_ESYSTEM = -10
  integer(c_int), public, parameter :: CDI_EINVAL = -20
  integer(c_int), public, parameter :: CDI_EISDIR = -21
  integer(c_int), public, parameter :: CDI_EISEMPTY = -22
  integer(c_int), public, parameter :: CDI_EUFTYPE = -23
  integer(c_int), public, parameter :: CDI_ELIBNAVAIL = -24
  integer(c_int), public, parameter :: CDI_EUFSTRUCT = -25
  integer(c_int), public, parameter :: CDI_EUNC4 = -26
  integer(c_int), public, parameter :: CDI_EDIMSIZE = -27
  integer(c_int), public, parameter :: CDI_ELIMIT = -99
  integer(c_int), public, parameter :: CDI_FILETYPE_GRB = 1
  integer(c_int), public, parameter :: CDI_FILETYPE_GRB2 = 2
  integer(c_int), public, parameter :: CDI_FILETYPE_NC = 3
  integer(c_int), public, parameter :: CDI_FILETYPE_NC2 = 4
  integer(c_int), public, parameter :: CDI_FILETYPE_NC4 = 5
  integer(c_int), public, parameter :: CDI_FILETYPE_NC4C = 6
  integer(c_int), public, parameter :: CDI_FILETYPE_NC5 = 7
  integer(c_int), public, parameter :: CDI_FILETYPE_SRV = 8
  integer(c_int), public, parameter :: CDI_FILETYPE_EXT = 9
  integer(c_int), public, parameter :: CDI_FILETYPE_IEG = 10
  integer(c_int), public, parameter :: CDI_COMPRESS_NONE = 0
  integer(c_int), public, parameter :: CDI_COMPRESS_SZIP = 1
  integer(c_int), public, parameter :: CDI_COMPRESS_AEC = 2
  integer(c_int), public, parameter :: CDI_COMPRESS_ZIP = 3
  integer(c_int), public, parameter :: CDI_COMPRESS_JPEG = 4
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK = 0
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK1 = 1
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK2 = 2
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK3 = 3
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK4 = 4
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK5 = 5
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK6 = 6
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK7 = 7
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK8 = 8
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK9 = 9
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK10 = 10
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK11 = 11
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK12 = 12
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK13 = 13
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK14 = 14
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK15 = 15
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK16 = 16
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK17 = 17
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK18 = 18
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK19 = 19
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK20 = 20
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK21 = 21
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK22 = 22
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK23 = 23
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK24 = 24
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK25 = 25
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK26 = 26
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK27 = 27
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK28 = 28
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK29 = 29
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK30 = 30
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK31 = 31
  integer(c_int), public, parameter :: CDI_DATATYPE_PACK32 = 32
  integer(c_int), public, parameter :: CDI_DATATYPE_CPX32 = 64
  integer(c_int), public, parameter :: CDI_DATATYPE_CPX64 = 128
  integer(c_int), public, parameter :: CDI_DATATYPE_FLT32 = 132
  integer(c_int), public, parameter :: CDI_DATATYPE_FLT64 = 164
  integer(c_int), public, parameter :: CDI_DATATYPE_INT8 = 208
  integer(c_int), public, parameter :: CDI_DATATYPE_INT16 = 216
  integer(c_int), public, parameter :: CDI_DATATYPE_INT32 = 232
  integer(c_int), public, parameter :: CDI_DATATYPE_UINT8 = 308
  integer(c_int), public, parameter :: CDI_DATATYPE_UINT16 = 316
  integer(c_int), public, parameter :: CDI_DATATYPE_UINT32 = 332
  integer(c_int), public, parameter :: CDI_DATATYPE_INT = 251
  integer(c_int), public, parameter :: CDI_DATATYPE_FLT = 252
  integer(c_int), public, parameter :: CDI_DATATYPE_TXT = 253
  integer(c_int), public, parameter :: CDI_DATATYPE_CPX = 254
  integer(c_int), public, parameter :: CDI_DATATYPE_UCHAR = 255
  integer(c_int), public, parameter :: CDI_DATATYPE_LONG = 256
  integer(c_int), public, parameter :: CDI_DATATYPE_UINT = 257
  integer(c_int), public, parameter :: CDI_CHUNK_AUTO = 1
  integer(c_int), public, parameter :: CDI_CHUNK_GRID = 2
  integer(c_int), public, parameter :: CDI_CHUNK_LINES = 3
  integer(c_int), public, parameter :: GRID_GENERIC = 1
  integer(c_int), public, parameter :: GRID_GAUSSIAN = 2
  integer(c_int), public, parameter :: GRID_GAUSSIAN_REDUCED = 3
  integer(c_int), public, parameter :: GRID_LONLAT = 4
  integer(c_int), public, parameter :: GRID_SPECTRAL = 5
  integer(c_int), public, parameter :: GRID_FOURIER = 6
  integer(c_int), public, parameter :: GRID_GME = 7
  integer(c_int), public, parameter :: GRID_TRAJECTORY = 8
  integer(c_int), public, parameter :: GRID_UNSTRUCTURED = 9
  integer(c_int), public, parameter :: GRID_CURVILINEAR = 10
  integer(c_int), public, parameter :: GRID_PROJECTION = 12
  integer(c_int), public, parameter :: GRID_CHARXY = 13
  integer(c_int), public, parameter :: CDI_PROJ_RLL = 21
  integer(c_int), public, parameter :: CDI_PROJ_LCC = 22
  integer(c_int), public, parameter :: CDI_PROJ_LAEA = 23
  integer(c_int), public, parameter :: CDI_PROJ_SINU = 24
  integer(c_int), public, parameter :: CDI_PROJ_STERE = 25
  integer(c_int), public, parameter :: ZAXIS_SURFACE = 0
  integer(c_int), public, parameter :: ZAXIS_GENERIC = 1
  integer(c_int), public, parameter :: ZAXIS_HYBRID = 2
  integer(c_int), public, parameter :: ZAXIS_HYBRID_HALF = 3
  integer(c_int), public, parameter :: ZAXIS_PRESSURE = 4
  integer(c_int), public, parameter :: ZAXIS_HEIGHT = 5
  integer(c_int), public, parameter :: ZAXIS_DEPTH_BELOW_SEA = 6
  integer(c_int), public, parameter :: ZAXIS_DEPTH_BELOW_LAND = 7
  integer(c_int), public, parameter :: ZAXIS_ISENTROPIC = 8
  integer(c_int), public, parameter :: ZAXIS_TRAJECTORY = 9
  integer(c_int), public, parameter :: ZAXIS_ALTITUDE = 10
  integer(c_int), public, parameter :: ZAXIS_SIGMA = 11
  integer(c_int), public, parameter :: ZAXIS_MEANSEA = 12
  integer(c_int), public, parameter :: ZAXIS_TOA = 13
  integer(c_int), public, parameter :: ZAXIS_SEA_BOTTOM = 14
  integer(c_int), public, parameter :: ZAXIS_ATMOSPHERE = 15
  integer(c_int), public, parameter :: ZAXIS_CLOUD_BASE = 16
  integer(c_int), public, parameter :: ZAXIS_CLOUD_TOP = 17
  integer(c_int), public, parameter :: ZAXIS_ISOTHERM_ZERO = 18
  integer(c_int), public, parameter :: ZAXIS_SNOW = 19
  integer(c_int), public, parameter :: ZAXIS_LAKE_BOTTOM = 20
  integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM = 21
  integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM_TA = 22
  integer(c_int), public, parameter :: ZAXIS_SEDIMENT_BOTTOM_TW = 23
  integer(c_int), public, parameter :: ZAXIS_MIX_LAYER = 24
  integer(c_int), public, parameter :: ZAXIS_REFERENCE = 25
  integer(c_int), public, parameter :: ZAXIS_CHAR = 26
  integer(c_int), public, parameter :: MAX_KV_PAIRS_MATCH = 10
  integer(c_int), public, parameter :: TIME_CONSTANT = 0
  integer(c_int), public, parameter :: TIME_VARYING = 1
  integer(c_int), public, parameter :: TIME_VARIABLE = 1
  integer(c_int), public, parameter :: TSTEP_INSTANT = 1
  integer(c_int), public, parameter :: TSTEP_AVG = 2
  integer(c_int), public, parameter :: TSTEP_ACCUM = 3
  integer(c_int), public, parameter :: TSTEP_MAX = 4
  integer(c_int), public, parameter :: TSTEP_MIN = 5
  integer(c_int), public, parameter :: TSTEP_DIFF = 6
  integer(c_int), public, parameter :: TSTEP_RMS = 7
  integer(c_int), public, parameter :: TSTEP_SD = 8
  integer(c_int), public, parameter :: TSTEP_COV = 9
  integer(c_int), public, parameter :: TSTEP_RATIO = 10
  integer(c_int), public, parameter :: TSTEP_SUM = 11
  integer(c_int), public, parameter :: TSTEP_RANGE = 12
  integer(c_int), public, parameter :: TSTEP_INSTANT2 = 13
  integer(c_int), public, parameter :: TSTEP_INSTANT3 = 14
  integer(c_int), public, parameter :: TAXIS_ABSOLUTE = 1
  integer(c_int), public, parameter :: TAXIS_RELATIVE = 2
  integer(c_int), public, parameter :: TAXIS_FORECAST = 3
  integer(c_int), public, parameter :: TUNIT_SECOND = 1
  integer(c_int), public, parameter :: TUNIT_MINUTE = 2
  integer(c_int), public, parameter :: TUNIT_QUARTER = 3
  integer(c_int), public, parameter :: TUNIT_30MINUTES = 4
  integer(c_int), public, parameter :: TUNIT_HOUR = 5
  integer(c_int), public, parameter :: TUNIT_3HOURS = 6
  integer(c_int), public, parameter :: TUNIT_6HOURS = 7
  integer(c_int), public, parameter :: TUNIT_12HOURS = 8
  integer(c_int), public, parameter :: TUNIT_DAY = 9
  integer(c_int), public, parameter :: TUNIT_MONTH = 10
  integer(c_int), public, parameter :: TUNIT_YEAR = 11
  integer(c_int), public, parameter :: CALENDAR_STANDARD = 0
  integer(c_int), public, parameter :: CALENDAR_GREGORIAN = 1
  integer(c_int), public, parameter :: CALENDAR_PROLEPTIC = 2
  integer(c_int), public, parameter :: CALENDAR_360DAYS = 3
  integer(c_int), public, parameter :: CALENDAR_365DAYS = 4
  integer(c_int), public, parameter :: CALENDAR_366DAYS = 5
  integer(c_int), public, parameter :: CALENDAR_NONE = 6
  integer(c_int), public, parameter :: CDI_UUID_SIZE = 16

  public t_CdiParam
  type, bind(c) :: t_CdiParam
    integer(c_int) :: discipline
    integer(c_int) :: category
    integer(c_int) :: number
  end type t_CdiParam

  public :: t_CdiIterator
  type :: t_CdiIterator
    type(c_ptr) :: ptr
  end type t_CdiIterator

  public :: t_CdiGribIterator
  type :: t_CdiGribIterator
    type(c_ptr) :: ptr
  end type t_CdiGribIterator
  public :: cdiReset
  public :: cdiStringError
  public :: cdiDebug
  public :: cdiLibraryVersion
  public :: cdiPrintVersion
  public :: cdiHaveFiletype
  public :: cdiDefMissval
  public :: cdiInqMissval
  public :: cdiInqGridMissval
  public :: cdiDefGlobal
  public :: namespaceNew
  public :: namespaceSetActive
  public :: namespaceGetActive
  public :: namespaceDelete
  public :: cdiParamToString
  public :: cdiDecodeParam
  public :: cdiEncodeParam
  public :: cdiDecodeDate
  public :: cdiEncodeDate
  public :: cdiDecodeTime
  public :: cdiEncodeTime
  public :: cdiGetFiletype
  public :: streamOpenRead
  public :: streamOpenWrite
  public :: streamOpenAppend
  public :: streamClose
  public :: streamSync
  public :: streamDefNumWorker
  public :: streamDefVlist
  public :: streamInqVlist
  public :: streamInqFiletype
  public :: streamDefByteorder
  public :: streamInqByteorder
  public :: streamDefCompType
  public :: streamInqCompType
  public :: streamDefCompLevel
  public :: streamInqCompLevel
  public :: streamDefTimestep
  public :: streamInqTimestep
  public :: streamInqCurTimestepID
  public :: streamFilename
  public :: streamFilesuffix
  public :: streamNvals
  public :: streamInqNvars
  public :: streamWriteVar
  public :: streamWriteVarF
  public :: streamReadVar
  public :: streamReadVarF
  public :: streamWriteVarSlice
  public :: streamWriteVarSliceF
  public :: streamReadVarSlice
  public :: streamReadVarSliceF
  public :: streamWriteVarChunk
  public :: streamDefRecord
  public :: streamInqRecord
  public :: streamWriteRecord
  public :: streamWriteRecordF
  public :: streamReadRecord
  public :: streamReadRecordF
  public :: streamCopyRecord
  public :: cdiIterator_new
  public :: cdiIterator_clone
  public :: cdiIterator_serialize
  public :: cdiIterator_deserialize
  public :: cdiIterator_delete
  public :: cdiIterator_nextField
  public :: cdiIterator_inqStartTime
  public :: cdiIterator_inqEndTime
  public :: cdiIterator_inqRTime
  public :: cdiIterator_inqVTime
  public :: cdiIterator_inqLevelType
  public :: cdiIterator_inqLevel
  public :: cdiIterator_inqLevelUuid
  public :: cdiIterator_inqTile
  public :: cdiIterator_inqTileCount
  public :: cdiIterator_inqParam
  public :: cdiIterator_inqParamParts
  public :: cdiIterator_inqDatatype
  public :: cdiIterator_inqFiletype
  public :: cdiIterator_inqTsteptype
  public :: cdiIterator_inqVariableName
  public :: cdiIterator_inqGridId
  public :: cdiIterator_readField
  public :: cdiIterator_readFieldF
  public :: cdiGribIterator_clone
  public :: cdiGribIterator_delete
  public :: cdiGribIterator_getLong
  public :: cdiGribIterator_getDouble
  public :: cdiGribIterator_getLength
  public :: cdiGribIterator_getString
  public :: cdiGribIterator_getSize
  public :: cdiGribIterator_getLongArray
  public :: cdiGribIterator_getDoubleArray
  public :: cdiGribIterator_inqEdition
  public :: cdiGribIterator_inqLongValue
  public :: cdiGribIterator_inqLongDefaultValue
  public :: cdiGribIterator_inqDoubleValue
  public :: cdiGribIterator_inqDoubleDefaultValue
  public :: cdiGribIterator_inqStringValue
  public :: vlistCreate
  public :: vlistDestroy
  public :: vlistDuplicate
  public :: vlistCopy
  public :: vlistCopyFlag
  public :: vlistClearFlag
  public :: vlistCat
  public :: vlistMerge
  public :: vlistPrint
  public :: vlistNumber
  public :: vlistNvars
  public :: vlistNgrids
  public :: vlistNzaxis
  public :: vlistNsubtypes
  public :: vlistDefNtsteps
  public :: vlistNtsteps
  public :: vlistGridsizeMax
  public :: vlistGrid
  public :: vlistGridIndex
  public :: vlistChangeGridIndex
  public :: vlistChangeGrid
  public :: vlistZaxis
  public :: vlistZaxisIndex
  public :: vlistChangeZaxisIndex
  public :: vlistChangeZaxis
  public :: vlistNrecs
  public :: vlistSubtype
  public :: vlistSubtypeIndex
  public :: vlistDefTaxis
  public :: vlistInqTaxis
  public :: vlistDefTable
  public :: vlistInqTable
  public :: vlistDefInstitut
  public :: vlistInqInstitut
  public :: vlistDefModel
  public :: vlistInqModel
  public :: vlistDefVarTiles
  public :: vlistDefVar
  public :: vlistChangeVarGrid
  public :: vlistChangeVarZaxis
  public :: vlistInqVar
  public :: vlistInqVarGrid
  public :: vlistInqVarZaxis
  public :: vlistInqVarID
  public :: vlistDefVarTimetype
  public :: vlistInqVarTimetype
  public :: vlistDefVarTsteptype
  public :: vlistInqVarTsteptype
  public :: vlistDefVarCompType
  public :: vlistInqVarCompType
  public :: vlistDefVarCompLevel
  public :: vlistInqVarCompLevel
  public :: vlistDefVarParam
  public :: vlistInqVarParam
  public :: vlistDefVarCode
  public :: vlistInqVarCode
  public :: vlistDefVarDatatype
  public :: vlistInqVarDatatype
  public :: vlistDefVarChunkType
  public :: vlistInqVarChunkType
  public :: vlistDefVarXYZ
  public :: vlistInqVarXYZ
  public :: vlistInqVarNumber
  public :: vlistDefVarInstitut
  public :: vlistInqVarInstitut
  public :: vlistDefVarModel
  public :: vlistInqVarModel
  public :: vlistDefVarTable
  public :: vlistInqVarTable
  public :: vlistDefVarName
  public :: vlistInqVarName
  public :: vlistCopyVarName
  public :: vlistDefVarStdname
  public :: vlistInqVarStdname
  public :: vlistDefVarLongname
  public :: vlistInqVarLongname
  public :: vlistDefVarUnits
  public :: vlistInqVarUnits
  public :: vlistDefVarMissval
  public :: vlistInqVarMissval
  public :: vlistDefVarExtra
  public :: vlistInqVarExtra
  public :: vlistDefVarScalefactor
  public :: vlistInqVarScalefactor
  public :: vlistDefVarAddoffset
  public :: vlistInqVarAddoffset
  public :: vlistDefVarTimave
  public :: vlistInqVarTimave
  public :: vlistInqVarSize
  public :: vlistDefIndex
  public :: vlistInqIndex
  public :: vlistDefFlag
  public :: vlistInqFlag
  public :: vlistFindVar
  public :: vlistFindLevel
  public :: vlistMergedVar
  public :: vlistMergedLevel
  public :: cdiClearAdditionalKeys
  public :: cdiDefAdditionalKey
  public :: vlistDefVarIntKey
  public :: vlistDefVarDblKey
  public :: vlistHasVarKey
  public :: vlistInqVarDblKey
  public :: vlistInqVarIntKey
  public :: cdiInqNatts
  public :: cdiInqAtt
  public :: cdiDelAtt
  public :: cdiCopyAtts
  public :: cdiDefAttInt
  public :: cdiDefAttFlt
  public :: cdiDefAttTxt
  public :: cdiInqAttInt
  public :: cdiInqAttFlt
  public :: cdiInqAttTxt
  public :: gridName
  public :: gridNamePtr
  public :: gridCompress
  public :: gridDefMaskGME
  public :: gridInqMaskGME
  public :: gridDefMask
  public :: gridInqMask
  public :: gridCreate
  public :: gridDestroy
  public :: gridDuplicate
  public :: gridDefProj
  public :: gridInqProj
  public :: gridInqProjType
  public :: gridInqType
  public :: gridInqSize
  public :: gridDefXsize
  public :: gridInqXsize
  public :: gridDefYsize
  public :: gridInqYsize
  public :: gridDefNP
  public :: gridInqNP
  public :: gridDefXvals
  public :: gridInqXvals
  public :: gridInqXvalsPart
  public :: gridInqXIsc
  public :: gridDefYvals
  public :: gridInqYvals
  public :: gridInqYvalsPart
  public :: gridInqYIsc
  integer(c_int), public, parameter :: CDI_KEY_TABLESVERSION = 801
  integer(c_int), public, parameter :: CDI_KEY_LOCALTABLESVERSION = 802
  integer(c_int), public, parameter :: CDI_KEY_TYPEOFGENERATINGPROCESS = 803
  integer(c_int), public, parameter :: CDI_KEY_PRODUCTDEFINITIONTEMPLATE = 804
  integer(c_int), public, parameter :: CDI_KEY_TYPEOFPROCESSEDDATA = 805
  integer(c_int), public, parameter :: CDI_KEY_SHAPEOFTHEEARTH = 806
  integer(c_int), public, parameter :: CDI_KEY_BACKGROUNDPROCESS = 807
  integer(c_int), public, parameter :: CDI_KEY_TYPEOFENSEMBLEFORECAST = 808
  integer(c_int), public, parameter :: CDI_KEY_NUMBEROFFORECASTSINENSEMBLE =&
  & 809
  integer(c_int), public, parameter :: CDI_KEY_PERTURBATIONNUMBER = 810
  integer(c_int), public, parameter :: CDI_KEY_CENTRE = 811
  integer(c_int), public, parameter :: CDI_KEY_SUBCENTRE = 812
  integer(c_int), public, parameter :: CDI_KEY_MPIMTYPE = 813
  integer(c_int), public, parameter :: CDI_KEY_MPIMCLASS = 814
  integer(c_int), public, parameter :: CDI_KEY_MPIMUSER = 815
  integer(c_int), public, parameter :: CDI_KEY_REVSTATUS = 816
  integer(c_int), public, parameter :: CDI_KEY_REVNUMBER = 817
  integer(c_int), public, parameter :: CDI_KEY_GRIB2LOCALSECTIONNUMBER = 818
  integer(c_int), public, parameter :: CDI_KEY_SECTION2PADDINGLENGTH = 819
  integer(c_int), public, parameter :: CDI_KEY_SECTION2PADDING = 820
  integer(c_int), public, parameter :: CDI_KEY_UVRELATIVETOGRID = 821
  integer(c_int), public, parameter :: CDI_KEY_CONSTITUENTTYPE = 822
  public :: cdiDefKeyInt
  public :: cdiInqKeyInt
  public :: cdiDefKeyBytes
  public :: cdiInqKeyBytes
  public :: cdiDefKeyString
  public :: cdiInqKeyString
  public :: cdiInqKeyLen
  public :: cdiCopyKeys
  integer(c_int), public, parameter :: CDI_KEY_XNAME = 901
  integer(c_int), public, parameter :: CDI_KEY_XDIMNAME = 902
  integer(c_int), public, parameter :: CDI_KEY_XLONGNAME = 903
  integer(c_int), public, parameter :: CDI_KEY_XUNITS = 904
  integer(c_int), public, parameter :: CDI_KEY_YNAME = 911
  integer(c_int), public, parameter :: CDI_KEY_YDIMNAME = 912
  integer(c_int), public, parameter :: CDI_KEY_YLONGNAME = 913
  integer(c_int), public, parameter :: CDI_KEY_YUNITS = 914
  integer(c_int), public, parameter :: CDI_KEY_VDIMNAME = 920
  integer(c_int), public, parameter :: CDI_KEY_MAPPING = 921
  integer(c_int), public, parameter :: CDI_KEY_MAPNAME = 922
  integer(c_int), public, parameter :: CDI_KEY_NAME = 941
  integer(c_int), public, parameter :: CDI_KEY_DIMNAME = 942
  integer(c_int), public, parameter :: CDI_KEY_LONGNAME = 943
  integer(c_int), public, parameter :: CDI_KEY_UNITS = 944
  integer(c_int), public, parameter :: CDI_KEY_PSNAME = 950
  integer(c_int), public, parameter :: CDI_KEY_P0NAME = 951
  integer(c_int), public, parameter :: CDI_KEY_P0VALUE = 952
  public :: cdiGridDefKeyStr
  public :: cdiGridInqKeyStr
  public :: cdiZaxisDefKeyStr
  public :: cdiZaxisInqKeyStr
  public :: cdiZaxisDefKeyFlt
  public :: cdiZaxisInqKeyFlt
  public :: gridDefXname
  public :: gridInqXname
  public :: gridDefXlongname
  public :: gridInqXlongname
  public :: gridDefXunits
  public :: gridInqXunits
  public :: gridDefYname
  public :: gridInqYname
  public :: gridDefYlongname
  public :: gridInqYlongname
  public :: gridDefYunits
  public :: gridInqYunits
  public :: gridInqXstdname
  public :: gridInqYstdname
  public :: gridDefDatatype
  public :: gridInqDatatype
  public :: gridInqXval
  public :: gridInqYval
  public :: gridInqXinc
  public :: gridInqYinc
  public :: gridIsCircular
  public :: gridInqTrunc
  public :: gridDefTrunc
  public :: gridDefNumber
  public :: gridInqNumber
  public :: gridDefPosition
  public :: gridInqPosition
  public :: gridDefReference
  public :: gridInqReference
  public :: gridDefUUID
  public :: gridInqUUID
  public :: gridDefParamRLL
  public :: gridInqParamRLL
  public :: gridDefParamGME
  public :: gridInqParamGME
  public :: gridDefParamLCC
  public :: gridInqParamLCC
  public :: gridDefParamSTERE
  public :: gridInqParamSTERE
  public :: gridDefArea
  public :: gridInqArea
  public :: gridHasArea
  public :: gridDefNvertex
  public :: gridInqNvertex
  public :: gridDefXbounds
  public :: gridInqXbounds
  public :: gridInqXboundsPart
  public :: gridDefYbounds
  public :: gridInqYbounds
  public :: gridInqYboundsPart
  public :: gridDefReducedPoints
  public :: gridInqReducedPoints
  public :: gridChangeType
  public :: gridDefComplexPacking
  public :: gridInqComplexPacking
  public :: gridDefScanningMode
  public :: gridInqScanningMode
  public :: zaxisName
  public :: zaxisNamePtr
  public :: zaxisCreate
  public :: zaxisDestroy
  public :: zaxisInqType
  public :: zaxisInqSize
  public :: zaxisDuplicate
  public :: zaxisDefLevels
  public :: zaxisInqLevels
  public :: zaxisInqCLen
  public :: zaxisDefLevel
  public :: zaxisInqLevel
  public :: zaxisDefNlevRef
  public :: zaxisInqNlevRef
  public :: zaxisDefNumber
  public :: zaxisInqNumber
  public :: zaxisDefUUID
  public :: zaxisInqUUID
  public :: zaxisDefName
  public :: zaxisInqName
  public :: zaxisDefLongname
  public :: zaxisInqLongname
  public :: zaxisDefUnits
  public :: zaxisInqUnits
  public :: zaxisInqStdname
  public :: zaxisDefDatatype
  public :: zaxisInqDatatype
  public :: zaxisDefPositive
  public :: zaxisInqPositive
  public :: zaxisDefScalar
  public :: zaxisInqScalar
  public :: zaxisDefLtype
  public :: zaxisInqLtype
  public :: zaxisDefLtype2
  public :: zaxisInqLtype2
  public :: zaxisDefVct
  public :: zaxisInqVct
  public :: zaxisInqVctSize
  public :: zaxisInqVctPtr
  public :: zaxisDefLbounds
  public :: zaxisInqLbounds
  public :: zaxisInqLbound
  public :: zaxisDefUbounds
  public :: zaxisInqUbounds
  public :: zaxisInqUbound
  public :: zaxisDefWeights
  public :: zaxisInqWeights
  public :: zaxisChangeType
  public :: taxisCreate
  public :: taxisDestroy
  public :: taxisDuplicate
  public :: taxisCopyTimestep
  public :: taxisDefType
  public :: taxisInqType
  public :: taxisDefVdate
  public :: taxisDefVtime
  public :: taxisInqVdate
  public :: taxisInqVtime
  public :: taxisDefRdate
  public :: taxisDefRtime
  public :: taxisInqRdate
  public :: taxisInqRtime
  public :: taxisDefFdate
  public :: taxisDefFtime
  public :: taxisInqFdate
  public :: taxisInqFtime
  public :: taxisHasBounds
  public :: taxisWithBounds
  public :: taxisDeleteBounds
  public :: taxisDefVdateBounds
  public :: taxisDefVtimeBounds
  public :: taxisInqVdateBounds
  public :: taxisInqVtimeBounds
  public :: taxisDefCalendar
  public :: taxisInqCalendar
  public :: taxisDefTunit
  public :: taxisInqTunit
  public :: taxisDefForecastTunit
  public :: taxisInqForecastTunit
  public :: taxisDefForecastPeriod
  public :: taxisInqForecastPeriod
  public :: taxisDefNumavg
  public :: taxisInqNumavg
  public :: tunitNamePtr
  public :: institutDef
  public :: institutInq
  public :: institutInqNumber
  public :: institutInqCenter
  public :: institutInqSubcenter
  public :: institutInqNamePtr
  public :: institutInqLongnamePtr
  public :: modelDef
  public :: modelInq
  public :: modelInqInstitut
  public :: modelInqGribID
  public :: modelInqNamePtr
  public :: tableWrite
  public :: tableRead
  public :: tableDef
  public :: tableInqNamePtr
  public :: tableInq
  public :: tableInqNumber
  public :: tableInqNum
  public :: tableInqModel
  public :: tableInqEntry
  public :: streamDefHistory
  public :: streamInqHistorySize
  public :: streamInqHistoryString
  public :: subtypeCreate
  public :: subtypePrint
  public :: subtypeCompare
  public :: subtypeInqSize
  public :: subtypeInqActiveIndex
  public :: subtypeDefActiveIndex
  public :: subtypeInqTile
  public :: subtypeInqAttribute
  public :: vlistInqVarSubtype
  public :: gribapiLibraryVersion
  public :: gaussianLatitudes

  interface
    subroutine cdiReset() bind(c, name = 'cdiReset')
    end subroutine cdiReset

    subroutine cdiDebug(debug_dummy) bind(c, name = 'cdiDebug')
      import c_int
      integer(c_int), value :: debug_dummy
    end subroutine cdiDebug

    subroutine cdiPrintVersion() bind(c, name = 'cdiPrintVersion')
    end subroutine cdiPrintVersion

    function cdiHaveFiletype(filetype_dummy) bind(c, name = 'cdiHaveFiletype')&
    & result(f_result)
      import c_int
      integer(c_int), value :: filetype_dummy
      integer(c_int) :: f_result
    end function cdiHaveFiletype

    subroutine cdiDefMissval(missval_dummy) bind(c, name = 'cdiDefMissval')
      import c_double
      real(c_double), value :: missval_dummy
    end subroutine cdiDefMissval

    function cdiInqMissval() bind(c, name = 'cdiInqMissval') result(f_result)
      import c_double
      real(c_double) :: f_result
    end function cdiInqMissval

    function cdiInqGridMissval() bind(c, name = 'cdiInqGridMissval')&
    & result(f_result)
      import c_double
      real(c_double) :: f_result
    end function cdiInqGridMissval

    function namespaceNew() bind(c, name = 'namespaceNew') result(f_result)
      import c_int
      integer(c_int) :: f_result
    end function namespaceNew

    subroutine namespaceSetActive(namespaceID_dummy) bind(c, name =&
    & 'namespaceSetActive')
      import c_int
      integer(c_int), value :: namespaceID_dummy
    end subroutine namespaceSetActive

    function namespaceGetActive() bind(c, name = 'namespaceGetActive')&
    & result(f_result)
      import c_int
      integer(c_int) :: f_result
    end function namespaceGetActive

    subroutine namespaceDelete(namespaceID_dummy) bind(c, name =&
    & 'namespaceDelete')
      import c_int
      integer(c_int), value :: namespaceID_dummy
    end subroutine namespaceDelete

    subroutine cdiDecodeParam(param_dummy, pnum_dummy, pcat_dummy, pdis_dummy)&
    & bind(c, name = 'cdiDecodeParam')
      import c_int
      integer(c_int), value :: param_dummy
      integer(c_int), intent(inout) :: pnum_dummy
      integer(c_int), intent(inout) :: pcat_dummy
      integer(c_int), intent(inout) :: pdis_dummy
    end subroutine cdiDecodeParam

    function cdiEncodeParam(pnum_dummy, pcat_dummy, pdis_dummy) bind(c, name =&
    & 'cdiEncodeParam') result(f_result)
      import c_int
      integer(c_int), value :: pnum_dummy
      integer(c_int), value :: pcat_dummy
      integer(c_int), value :: pdis_dummy
      integer(c_int) :: f_result
    end function cdiEncodeParam

    subroutine cdiDecodeDate(date_dummy, year_dummy, month_dummy, day_dummy)&
    & bind(c, name = 'cdiDecodeDate')
      import c_int, c_int64_t
      integer(c_int64_t), value :: date_dummy
      integer(c_int), intent(inout) :: year_dummy
      integer(c_int), intent(inout) :: month_dummy
      integer(c_int), intent(inout) :: day_dummy
    end subroutine cdiDecodeDate

    function cdiEncodeDate(year_dummy, month_dummy, day_dummy) bind(c, name =&
    & 'cdiEncodeDate') result(f_result)
      import c_int, c_int64_t
      integer(c_int), value :: year_dummy
      integer(c_int), value :: month_dummy
      integer(c_int), value :: day_dummy
      integer(c_int64_t) :: f_result
    end function cdiEncodeDate

    subroutine cdiDecodeTime(time_dummy, hour_dummy, minute_dummy,&
    & second_dummy) bind(c, name = 'cdiDecodeTime')
      import c_int
      integer(c_int), value :: time_dummy
      integer(c_int), intent(inout) :: hour_dummy
      integer(c_int), intent(inout) :: minute_dummy
      integer(c_int), intent(inout) :: second_dummy
    end subroutine cdiDecodeTime

    function cdiEncodeTime(hour_dummy, minute_dummy, second_dummy) bind(c, name&
    & = 'cdiEncodeTime') result(f_result)
      import c_int
      integer(c_int), value :: hour_dummy
      integer(c_int), value :: minute_dummy
      integer(c_int), value :: second_dummy
      integer(c_int) :: f_result
    end function cdiEncodeTime

    subroutine streamClose(streamID_dummy) bind(c, name = 'streamClose')
      import c_int
      integer(c_int), value :: streamID_dummy
    end subroutine streamClose

    subroutine streamSync(streamID_dummy) bind(c, name = 'streamSync')
      import c_int
      integer(c_int), value :: streamID_dummy
    end subroutine streamSync

    subroutine streamDefNumWorker(streamID_dummy, numWorker_dummy) bind(c, name&
    & = 'streamDefNumWorker')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: numWorker_dummy
    end subroutine streamDefNumWorker

    subroutine streamDefVlist(streamID_dummy, vlistID_dummy) bind(c, name =&
    & 'streamDefVlist')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: vlistID_dummy
    end subroutine streamDefVlist

    function streamInqVlist(streamID_dummy) bind(c, name = 'streamInqVlist')&
    & result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqVlist

    function streamInqFiletype(streamID_dummy) bind(c, name =&
    & 'streamInqFiletype') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqFiletype

    subroutine streamDefByteorder(streamID_dummy, byteorder_dummy) bind(c, name&
    & = 'streamDefByteorder')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: byteorder_dummy
    end subroutine streamDefByteorder

    function streamInqByteorder(streamID_dummy) bind(c, name =&
    & 'streamInqByteorder') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqByteorder

    subroutine streamDefCompType(streamID_dummy, comptype_dummy) bind(c, name =&
    & 'streamDefCompType')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: comptype_dummy
    end subroutine streamDefCompType

    function streamInqCompType(streamID_dummy) bind(c, name =&
    & 'streamInqCompType') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqCompType

    subroutine streamDefCompLevel(streamID_dummy, complevel_dummy) bind(c, name&
    & = 'streamDefCompLevel')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: complevel_dummy
    end subroutine streamDefCompLevel

    function streamInqCompLevel(streamID_dummy) bind(c, name =&
    & 'streamInqCompLevel') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqCompLevel

    function streamDefTimestep(streamID_dummy, tsID_dummy) bind(c, name =&
    & 'streamDefTimestep') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: tsID_dummy
      integer(c_int) :: f_result
    end function streamDefTimestep

    function streamInqTimestep(streamID_dummy, tsID_dummy) bind(c, name =&
    & 'streamInqTimestep') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: tsID_dummy
      integer(c_int) :: f_result
    end function streamInqTimestep

    function streamInqCurTimestepID(streamID_dummy) bind(c, name =&
    & 'streamInqCurTimestepID') result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqCurTimestepID

    function streamNvals(streamID_dummy) bind(c, name = 'streamNvals')&
    & result(f_result)
      import c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_size_t) :: f_result
    end function streamNvals

    function streamInqNvars(streamID_dummy) bind(c, name = 'streamInqNvars')&
    & result(f_result)
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int) :: f_result
    end function streamInqNvars

    subroutine streamWriteVar(streamID_dummy, varID_dummy, data_dummy,&
    & nmiss_dummy) bind(c, name = 'streamWriteVar')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      real(c_double), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteVar

    subroutine streamWriteVarF(streamID_dummy, varID_dummy, data_dummy,&
    & nmiss_dummy) bind(c, name = 'streamWriteVarF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      real(c_float), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteVarF

    subroutine streamReadVar(streamID_dummy, varID_dummy, data_dummy,&
    & nmiss_dummy) bind(c, name = 'streamReadVar')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      real(c_double), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadVar

    subroutine streamReadVarF(streamID_dummy, varID_dummy, data_dummy,&
    & nmiss_dummy) bind(c, name = 'streamReadVarF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      real(c_float), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadVarF

    subroutine streamWriteVarSlice(streamID_dummy, varID_dummy, levelID_dummy,&
    & data_dummy, nmiss_dummy) bind(c, name = 'streamWriteVarSlice')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), value :: levelID_dummy
      real(c_double), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteVarSlice

    subroutine streamWriteVarSliceF(streamID_dummy, varID_dummy, levelID_dummy,&
    & data_dummy, nmiss_dummy) bind(c, name = 'streamWriteVarSliceF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), value :: levelID_dummy
      real(c_float), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteVarSliceF

    subroutine streamReadVarSlice(streamID_dummy, varID_dummy, levelID_dummy,&
    & data_dummy, nmiss_dummy) bind(c, name = 'streamReadVarSlice')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), value :: levelID_dummy
      real(c_double), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadVarSlice

    subroutine streamReadVarSliceF(streamID_dummy, varID_dummy, levelID_dummy,&
    & data_dummy, nmiss_dummy) bind(c, name = 'streamReadVarSliceF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), value :: levelID_dummy
      real(c_float), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadVarSliceF

    subroutine streamWriteVarChunk(streamID_dummy, varID_dummy, rect_dummy,&
    & data_dummy, nmiss_dummy) bind(c, name = 'streamWriteVarChunk')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), intent(in) :: rect_dummy(2, 3)
      real(c_double), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteVarChunk

    subroutine streamDefRecord(streamID_dummy, varID_dummy, levelID_dummy)&
    & bind(c, name = 'streamDefRecord')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), value :: varID_dummy
      integer(c_int), value :: levelID_dummy
    end subroutine streamDefRecord

    subroutine streamInqRecord(streamID_dummy, varID_dummy, levelID_dummy)&
    & bind(c, name = 'streamInqRecord')
      import c_int
      integer(c_int), value :: streamID_dummy
      integer(c_int), intent(inout) :: varID_dummy
      integer(c_int), intent(inout) :: levelID_dummy
    end subroutine streamInqRecord

    subroutine streamWriteRecord(streamID_dummy, data_dummy, nmiss_dummy)&
    & bind(c, name = 'streamWriteRecord')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      real(c_double), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteRecord

    subroutine streamWriteRecordF(streamID_dummy, data_dummy, nmiss_dummy)&
    & bind(c, name = 'streamWriteRecordF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      real(c_float), intent(in) :: data_dummy(*)
      integer(c_size_t), value :: nmiss_dummy
    end subroutine streamWriteRecordF

    subroutine streamReadRecord(streamID_dummy, data_dummy, nmiss_dummy)&
    & bind(c, name = 'streamReadRecord')
      import c_double, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      real(c_double), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadRecord

    subroutine streamReadRecordF(streamID_dummy, data_dummy, nmiss_dummy)&
    & bind(c, name = 'streamReadRecordF')
      import c_float, c_int, c_size_t
      integer(c_int), value :: streamID_dummy
      real(c_float), intent(inout) :: data_dummy(*)
      integer(c_size_t), intent(inout) :: nmiss_dummy
    end subroutine streamReadRecordF

    subroutine streamCopyRecord(streamIDdest_dummy, streamIDsrc_dummy) bind(c,&
    & name = 'streamCopyRecord')
      import c_int
      integer(c_int), value :: streamIDdest_dummy
      integer(c_int), value :: streamIDsrc_dummy
    end subroutine streamCopyRecord

    function vlistCreate() bind(c, name = 'vlistCreate') result(f_result)
      import c_int
      integer(c_int) :: f_result
    end function vlistCreate

    subroutine vlistDestroy(vlistID_dummy) bind(c, name = 'vlistDestroy')
      import c_int
      integer(c_int), value :: vlistID_dummy
    end subroutine vlistDestroy

    function vlistDuplicate(vlistID_dummy) bind(c, name = 'vlistDuplicate')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy
      integer(c_int) :: f_result
    end function vlistDuplicate

    subroutine vlistCopy(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
    & 'vlistCopy')
      import c_int
      integer(c_int), value :: vlistID2_dummy
      integer(c_int), value :: vlistID1_dummy
    end subroutine vlistCopy

    subroutine vlistCopyFlag(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
    & 'vlistCopyFlag')
      import c_int
      integer(c_int), value :: vlistID2_dummy
      integer(c_int), value :: vlistID1_dummy
    end subroutine vlistCopyFlag

    subroutine vlistClearFlag(vlistID_dummy) bind(c, name = 'vlistClearFlag')
      import c_int
      integer(c_int), value :: vlistID_dummy
    end subroutine vlistClearFlag

    subroutine vlistCat(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
    & 'vlistCat')
      import c_int
      integer(c_int), value :: vlistID2_dummy
      integer(c_int), value :: vlistID1_dummy
    end subroutine vlistCat

    subroutine vlistMerge(vlistID2_dummy, vlistID1_dummy) bind(c, name =&
    & 'vlistMerge')
      import c_int
      integer(c_int), value :: vlistID2_dummy
      integer(c_int), value :: vlistID1_dummy
    end subroutine vlistMerge

    subroutine vlistPrint(vlistID_dummy) bind(c, name = 'vlistPrint')
      import c_int
      integer(c_int), value :: vlistID_dummy
    end subroutine vlistPrint

    function vlistNumber(vlistID_dummy) bind(c, name = 'vlistNumber')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy
      integer(c_int) :: f_result
    end function vlistNumber

    function vlistNvars(vlistID_dummy) bind(c, name = 'vlistNvars')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy
      integer(c_int) :: f_result
    end function vlistNvars

    function vlistNgrids(vlistID_dummy) bind(c, name = 'vlistNgrids')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy
      integer(c_int) :: f_result
    end function vlistNgrids

    function vlistNzaxis(vlistID_dummy) bind(c, name = 'vlistNzaxis')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy
      integer(c_int) :: f_result
    end function vlistNzaxis

    function vlistNsubtypes(vlistID_dummy) bind(c, name = 'vlistNsubtypes')&
    & result(f_result)
      import c_int
      integer(c_int), value :: vlistID_dummy