arallocf.F90

Go to the documentation of this file.

 
 
subroutine arallocf
 
  use modv_vars, only: maxcd, maxjl, maxmem, maxmsg, maxss, maxtba, maxtbb, maxtbd, mxbtm, mxbtmse, &
                       mxcdv, mxcsb, mxdxts, mxlcc, mxmsgl, mxmsgld4, mxmtbb, mxmtbd, mxnrv, mxrst, &
                       mxs01v, mxtamc, mxtco, mxh4wlc, nfiles, mxcnem, maxnc, maxrcr
 
  use moda_usrint
  use moda_usrbit
  use moda_ival
  use moda_msgcwd
  use moda_stbfr
  use moda_ufbcpl
  use moda_sc3bfr
  use moda_unptyp
  use moda_lushr
  use moda_nulbfr
  use moda_stcode
  use moda_idrdm
  use moda_xtab
  use moda_msglim
  use moda_bitbuf
  use moda_mgwa
  use moda_mgwb
  use moda_bufrmg
  use moda_bufrsr
  use moda_msgmem
  use moda_tababd
  use moda_tables
  use moda_usrtmp
  use moda_ivttmp
  use moda_comprx
  use moda_comprs
  use moda_mstabs
  use moda_rdmtb
  use moda_nmikrp
  use moda_s01cm
  use moda_bitmaps
  use moda_nrv203
  use moda_rlccmn
  use moda_h4wlc
  use moda_dscach
  use moda_s3list
 
  implicit none
 
  character*80 errstr
  character*36 brtstr
 
  integer iost, iprt
 
  common /quiet/ iprt
 
  if ( iprt >= 1 ) then
    call errwrt ('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
    call errwrt ('BUFRLIB: ARRAYS WILL BE DYNAMICALLY ALLOCATED USING THE FOLLOWING VALUES:')
    write ( errstr, '(a,i7)' ) '    MAXSS = ', maxss
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '   NFILES = ', nfiles
    call errwrt (errstr)
    write ( errstr, '(a,i7)' ) '   MXMSGL = ', mxmsgl
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MXDXTS = ', mxdxts
    call errwrt (errstr)
    write ( errstr, '(a,i7)' ) '   MAXMSG = ', maxmsg
    call errwrt (errstr)
    write ( errstr, '(a,i9)' ) '   MAXMEM = ', maxmem
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MAXTBA = ', maxtba
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MAXTBB = ', maxtbb
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MAXTBD = ', maxtbd
    call errwrt (errstr)
    write ( errstr, '(a,i7)' ) '    MAXJL = ', maxjl
    call errwrt (errstr)
    write ( errstr, '(a,i6)' ) '    MXCDV = ', mxcdv
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MXLCC = ', mxlcc
    call errwrt (errstr)
    write ( errstr, '(a,i6)' ) '    MXCSB = ', mxcsb
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MXMTBB = ', mxmtbb
    call errwrt (errstr)
    write ( errstr, '(a,i5)' ) '   MXMTBD = ', mxmtbd
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MAXCD = ', maxcd
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MXNRV = ', mxnrv
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '   MXS01V = ', mxs01v
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '   MXTAMC = ', mxtamc
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MXTCO = ', mxtco
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MXBTM = ', mxbtm
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '  MXBTMSE = ', mxbtmse
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '  MXH4WLC = ', mxh4wlc
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MXRST = ', mxrst
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '   MXCNEM = ', mxcnem
    call errwrt (errstr)
    write ( errstr, '(a,i4)' ) '    MAXNC = ', maxnc
    call errwrt (errstr)
    call errwrt ('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
  end if
 
  brtstr = 'BUFRLIB: ARALLOCF FAILED ALLOCATING '
 
  ! moda_usrint arrays.
 
  allocate( nval(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NVAL' )
 
  allocate( inv(maxss,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'INV' )
 
  allocate( nrfelm(maxss,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NRFELM' )
 
  allocate( val(maxss,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'VAL' )
 
  ! moda_usrbit arrays.
 
  allocate( nbit(maxss), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NBIT' )
 
  allocate( mbit(maxss), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MBIT' )
 
  ! moda_ival arrays.
 
  allocate( ival(maxss), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IVAL' )
 
  ! moda_msgcwd arrays.
 
  allocate( nmsg(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NMSG' )
 
  allocate( nsub(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NSUB' )
 
  allocate( msub(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSUB' )
 
  allocate( inode(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'INODE' )
 
  allocate( idate(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDATE' )
 
  ! moda_stbfr arrays.
 
  allocate( iolun(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IOLUN' )
 
  allocate( iomsg(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IOMSG' )
 
  ! moda_ufbcpl arrays.
 
  allocate( luncpy(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'LUNCPY' )
 
  ! moda_sc3bfr arrays.
 
  allocate( isc3(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISC3' )
 
  allocate( tamnem(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TAMNEM' )
 
  ! moda_unptyp arrays.
 
  allocate( msgunp(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGUNP' )
 
  ! moda_lushr arrays.
 
  allocate( lus(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'LUS' )
 
  ! moda_nulbfr arrays.
 
  allocate( null(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NULL' )
 
  ! moda_stcode arrays.
 
  allocate( iscodes(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISCODES' )
 
  ! moda_idrdm arrays.
 
  allocate( idrdm(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDRDM' )
 
  ! moda_xtab arrays.
 
  allocate( xtab(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'XTAB' )
 
  ! moda_msglim arrays.
 
  allocate( msglim(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGLIM' )
 
  ! Calculate mxmsgld4 from mxmsgl.
 
  if ( mod(mxmsgl,4) == 0 ) then
      mxmsgld4 = mxmsgl/4
  else
      mxmsgld4 = mxmsgl/4 + 1
  end if
 
  ! moda_bitbuf arrays.
 
  allocate( ibay(mxmsgld4), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IBAY' )
 
  allocate( mbyt(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MBYT' )
 
  allocate( mbay(mxmsgld4,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MBAY' )
 
  ! moda_mgwa arrays.
 
  allocate( mgwa(mxmsgld4), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MGWA' )
 
  ! moda_mgwb arrays.
 
  allocate( mgwb(mxmsgld4), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MGWB' )
 
  ! moda_bufrmg arrays.
 
  allocate( msglen(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGLEN' )
  allocate( msgtxt(mxmsgld4,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGTXT' )
 
  ! moda_bufrsr arrays.
 
  allocate( jsr(nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JSR' )
 
  allocate( jbay(mxmsgld4), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JBAY' )
 
  ! Calculate mxdxm and mxdxw from mxdxts and mxmsgld4.
 
  mxdxm = mxdxts*3
  mxdxw = mxdxm*mxmsgld4
 
  ! moda_msgmem arrays.
 
  allocate( msgp(0:maxmsg), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGP' )
 
  allocate( msgs(maxmem), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MSGS' )
 
  allocate( mdx(mxdxw), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MDX' )
 
  allocate( ipdxm(mxdxm), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IPDXM' )
 
  allocate( ifdxts(mxdxts), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ifDXTS' )
 
  allocate( icdxts(mxdxts), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ICDXTS' )
 
  allocate( ipmsgs(mxdxts), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IPMSGS' )
 
  ! moda_tababd arrays.
 
  allocate( ntba(0:nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NTBA' )
 
  allocate( ntbb(0:nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NTBB' )
 
  allocate( ntbd(0:nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NTBD' )
 
  allocate( mtab(maxtba,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MTAB' )
 
  allocate( idna(maxtba,nfiles,2), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDNA' )
 
  allocate( idnb(maxtbb,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDNB' )
 
  allocate( idnd(maxtbd,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDND' )
 
  allocate( taba(maxtba,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TABA' )
 
  allocate( tabb(maxtbb,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TABB' )
 
  allocate( tabd(maxtbd,nfiles), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TABD' )
 
  ! moda_tables arrays.
 
  allocate( tag(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TAG' )
 
  allocate( typ(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TYP' )
 
  allocate( knt(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KNT' )
 
  allocate( jump(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JUMP' )
 
  allocate( link(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'LINK' )
 
  allocate( jmpb(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JMPB' )
 
  allocate( ibt(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IBT' )
 
  allocate( irf(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IRF' )
 
  allocate( isc(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISC' )
 
  allocate( itp(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ITP' )
 
  allocate( vali(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'VALI' )
 
  allocate( knti(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KNTI' )
 
  allocate( iseq(maxjl,2), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISEQ' )
 
  allocate( jseq(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JSEQ' )
 
  ! moda_usrtmp arrays.
 
  allocate( iutmp(maxjl,maxrcr), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IUTMP' )
 
  allocate( vutmp(maxjl,maxrcr), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'VUTMP' )
 
  ! moda_ivttmp arrays.
 
  allocate( ttmp(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TTMP' )
 
  allocate( itmp(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ITMP' )
 
  allocate( vtmp(maxjl), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'VTMP' )
 
  ! moda_comprx arrays.
 
  allocate( kmin(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KMIN' )
 
  allocate( kmax(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KMAX' )
 
  allocate( kmis(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KMIS' )
 
  allocate( kbit(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KBIT' )
 
  allocate( ityp(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ITYP' )
 
  allocate( iwid(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IWID' )
 
  allocate( character*(mxlcc) :: cstr(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CSTR' )
 
  allocate( jlnode(mxcdv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'JLNODE' )
 
  ! moda_comprs arrays.
 
  allocate( matx(mxcdv,mxcsb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'MATX' )
 
  allocate( character*(mxlcc) :: catx(mxcdv,mxcsb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CATX' )
 
  ! moda_mstabs arrays.
 
  allocate( ibfxyn(mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IBFXYN' )
 
  allocate( cbscl(4,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBSCL' )
 
  allocate( cbsref(12,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBSREF' )
 
  allocate( cbbw(4,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBBW' )
 
  allocate( cbunit(24,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBUNIT' )
 
  allocate( cbmnem(8,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBMNEM' )
 
  allocate( cbelem(120,mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CBELEM' )
 
  allocate( idfxyn(mxmtbd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDFXYN' )
 
  allocate( cdseq(120,mxmtbd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CDSEQ' )
 
  allocate( cdmnem(8,mxmtbd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CDMNEM' )
 
  allocate( ndelem(mxmtbd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NDELEM' )
 
  allocate( idefxy(mxmtbd*maxcd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDEFXY' )
 
  ! moda_rdmtb arrays.
 
  allocate( iefxyn(mxmtbd,maxcd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IEFXYN' )
 
  allocate( cmdscb(mxmtbb), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CMDSCB' )
 
  allocate( cmdscd(mxmtbd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CMDSCD' )
 
  allocate( ceelem(mxmtbd,maxcd), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CEELEM' )
 
  ! moda_nmikrp arrays.
 
  allocate( nem(maxcd,10), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NEM' )
 
  allocate( irp(maxcd,10), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IRP' )
 
  allocate( krp(maxcd,10), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'KRP' )
 
  ! moda_s01cm arrays.
 
  allocate( ivmnem(mxs01v), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IVMNEM' )
 
  allocate( cmnem(mxs01v), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CMNEM' )
 
  ! moda_bitmaps arrays.
 
  allocate( inodtamc(mxtamc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'INODTAMC' )
 
  allocate( ntco(mxtamc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NTCO' )
 
  allocate( ctco(mxtamc,mxtco), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CTCO' )
 
  allocate( inodtco(mxtamc,mxtco), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'INODTCO' )
 
  allocate( nbtmse(mxbtm), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NBTMSE' )
 
  allocate( istbtm(mxbtm), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISTBTM' )
 
  allocate( iszbtm(mxbtm), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISZBTM' )
 
  allocate( ibtmse(mxbtm,mxbtmse), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IBTMSE' )
 
  ! moda_nrv203 arrays.
 
  allocate( tagnrv(mxnrv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'TAGNRV' )
 
  allocate( inodnrv(mxnrv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'INODNRV' )
 
  allocate( nrv(mxnrv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NRV' )
 
  allocate( isnrv(mxnrv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'ISNRV' )
 
  allocate( ienrv(mxnrv), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IENRV' )
 
  ! moda_rlccmn arrays.
 
  allocate( irnch(mxrst), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IRNCH' )
 
  allocate( irbit(mxrst), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IRBIT' )
 
  allocate( crtag(mxrst), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CRTAG' )
 
  ! moda_h4wlc arrays.
 
  allocate( luh4wlc(mxh4wlc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'LUH4WLC' )
 
  allocate( sth4wlc(mxh4wlc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'STH4WLC' )
 
  allocate( chh4wlc(mxh4wlc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CHH4WLC' )
 
  ! moda_dscach arrays.
 
  allocate( cnem(mxcnem), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CNEM' )
 
  allocate( ndc(mxcnem), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'NDC' )
 
  allocate( idcach(mxcnem,maxnc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDCACH' )
 
  ! moda_s3list arrays.
 
  allocate( ids3(maxnc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'IDS3' )
 
  allocate( cds3(maxnc), stat=iost )
  if ( iost /= 0 ) call bort( brtstr // 'CDS3' )
 
  return
end subroutine arallocf
 
subroutine ardllocf
 
  use bufrlib
 
  use moda_usrint
  use moda_usrbit
  use moda_ival
  use moda_msgcwd
  use moda_stbfr
  use moda_ufbcpl
  use moda_sc3bfr
  use moda_unptyp
  use moda_lushr
  use moda_nulbfr
  use moda_stcode
  use moda_idrdm
  use moda_xtab
  use moda_msglim
  use moda_bitbuf
  use moda_mgwa
  use moda_mgwb
  use moda_bufrmg
  use moda_bufrsr
  use moda_msgmem
  use moda_tababd
  use moda_tables
  use moda_usrtmp
  use moda_ivttmp
  use moda_comprx
  use moda_comprs
  use moda_mstabs
  use moda_rdmtb
  use moda_nmikrp
  use moda_s01cm
  use moda_bitmaps
  use moda_nrv203
  use moda_rlccmn
  use moda_h4wlc
  use moda_dscach
  use moda_s3list
 
  implicit none
 
  ! moda_usrint arrays.
 
  deallocate( nval )
  deallocate( inv )
  deallocate( nrfelm )
  deallocate( val )
 
  ! moda_usrbit arrays.
 
  deallocate( nbit )
  deallocate( mbit )
 
  ! moda_ival arrays.
 
  deallocate( ival )
 
  ! moda_msgcwd arrays.
 
  deallocate( nmsg )
  deallocate( nsub )
  deallocate( msub )
  deallocate( inode )
  deallocate( idate )
 
  ! moda_stbfr arrays.
 
  deallocate( iolun )
  deallocate( iomsg )
 
  ! moda_ufbcpl arrays.
 
  deallocate( luncpy )
 
  ! moda_sc3bfr arrays.
 
  deallocate( isc3 )
  deallocate( tamnem )
 
  ! moda_unptyp arrays.
 
  deallocate( msgunp )
 
  ! moda_lushr arrays.
 
  deallocate( lus )
 
  ! moda_nulbfr arrays.
 
  deallocate( null )
 
  ! moda_stcode arrays.
 
  deallocate( iscodes )
 
  ! moda_idrdm arrays.
 
  deallocate( idrdm )
 
  ! moda_xtab arrays.
 
  deallocate( xtab )
 
  ! moda_msglim arrays.
 
  deallocate( msglim )
 
  ! moda_bitbuf arrays.
 
  deallocate( ibay )
  deallocate( mbyt )
  deallocate( mbay )
 
  ! moda_mgwa arrays.
 
  deallocate( mgwa )
 
  ! moda_mgwb arrays.
 
  deallocate( mgwb )
 
  ! moda_bufrmg arrays.
 
  deallocate( msglen )
  deallocate( msgtxt )
 
  ! moda_bufrsr arrays.
 
  deallocate( jsr )
  deallocate( jbay )
 
  ! moda_msgmem arrays.
 
  deallocate( msgp )
  deallocate( msgs )
  deallocate( mdx )
  deallocate( ipdxm )
  deallocate( ifdxts )
  deallocate( icdxts )
  deallocate( ipmsgs )
 
  ! moda_tababd arrays.
 
  deallocate( ntba )
  deallocate( ntbb )
  deallocate( ntbd )
  deallocate( mtab )
  deallocate( idna )
  deallocate( idnb )
  deallocate( idnd )
  deallocate( taba )
  deallocate( tabb )
  deallocate( tabd )
 
  ! moda_tables arrays.
 
  deallocate( tag )
  deallocate( typ )
  deallocate( knt )
  deallocate( jump )
  deallocate( link )
  deallocate( jmpb )
  deallocate( ibt )
  deallocate( irf )
  deallocate( isc )
  deallocate( itp )
  deallocate( vali )
  deallocate( knti )
  deallocate( iseq )
  deallocate( jseq )
 
  ! moda_usrtmp arrays.
 
  deallocate( iutmp )
  deallocate( vutmp )
 
  ! moda_ivttmp arrays.
 
  deallocate( ttmp )
  deallocate( itmp )
  deallocate( vtmp )
 
  ! moda_comprx arrays.
 
  deallocate( kmin )
  deallocate( kmax )
  deallocate( kmis )
  deallocate( kbit )
  deallocate( ityp )
  deallocate( iwid )
  deallocate( cstr )
  deallocate( jlnode )
 
  ! moda_comprs arrays.
 
  deallocate( matx )
  deallocate( catx )
 
  ! moda_mstabs arrays.
 
  deallocate( ibfxyn )
  deallocate( cbscl )
  deallocate( cbsref )
  deallocate( cbbw )
  deallocate( cbunit )
  deallocate( cbmnem )
  deallocate( cbelem )
  deallocate( idfxyn )
  deallocate( cdseq )
  deallocate( cdmnem )
  deallocate( ndelem )
  deallocate( idefxy )
 
  ! moda_rdmtb arrays.
 
  deallocate( iefxyn )
  deallocate( cmdscb )
  deallocate( cmdscd )
  deallocate( ceelem )
 
  ! moda_nmikrp arrays.
 
  deallocate( nem )
  deallocate( irp )
  deallocate( krp )
 
  ! moda_s01cm arrays.
 
  deallocate( ivmnem )
  deallocate( cmnem )
 
  ! moda_bitmaps arrays.
 
  deallocate( inodtamc )
  deallocate( ntco )
  deallocate( ctco )
  deallocate( inodtco )
  deallocate( nbtmse )
  deallocate( istbtm )
  deallocate( iszbtm )
  deallocate( ibtmse )
 
  ! moda_nrv203 arrays.
 
  deallocate( tagnrv )
  deallocate( inodnrv )
  deallocate( nrv )
  deallocate( isnrv )
  deallocate( ienrv )
 
  ! moda_rlccmn arrays.
 
  deallocate( irnch )
  deallocate( irbit )
  deallocate( crtag )
 
  ! moda_h4wlc arrays.
 
  deallocate( luh4wlc )
  deallocate( sth4wlc )
  deallocate( chh4wlc )
 
  ! moda_dscach arrays.
 
  deallocate( cnem )
  deallocate( ndc )
  deallocate( idcach )
 
  ! moda_s3list arrays.
 
  deallocate( ids3 )
  deallocate( cds3 )
 
  ! C language arrays.
 
  call ardllocc_c
 
  return
end subroutine ardllocf
 
subroutine exitbufr
 
  use bufrlib
 
  use modv_vars, only: ifopbf, nfiles
 
  use moda_stbfr
  use moda_s01cm
  use moda_tablef
 
  ! Close any logical units that are open to the library.
 
  do jj = 1, nfiles
    if ( iolun(jj) /= 0 ) call closbf( abs(iolun(jj)) )
  end do
 
  ! Deallocate all allocated memory.
 
  call ardllocf
 
  if ( cdmf == 'Y' ) call dlloctbf_c
 
  ! Reset the library.
 
  ns01v = 0
  ifopbf = 0
 
  return
end subroutine exitbufr
 
recursive integer function isetprm ( cprmnm, ipval ) result ( iret )
 
  use modv_vars, only: mxmsgl, maxss, nfiles, mxdxts, maxmsg, maxmem, maxtba, maxtbb, maxtbd, maxjl, &
                       mxcdv, mxlcc, mxcsb, mxmtbb, mxmtbd, mxmtbf, maxcd, mxs01v, mxbtm, mxbtmse, &
                       mxtamc, mxtco, mxnrv, mxrst, mxh4wlc, im8b, mxcnem, maxnc, mxnaf
 
  implicit none
 
  character*(*), intent(in) :: cprmnm
 
  integer, intent(in) :: ipval
 
  integer my_ipval
 
  character*128 errstr
 
  ! Check for I8 integers.
 
  if ( im8b ) then
    im8b = .false.
 
    call x84 ( ipval, my_ipval, 1 )
    iret = isetprm( cprmnm, my_ipval )
 
    im8b = .true.
    return
  endif
 
  iret = 0
  if ( cprmnm == 'MAXSS' ) then
    maxss = ipval
  else if ( cprmnm == 'NFILES' ) then
    nfiles = ipval
  else if ( cprmnm == 'MXMSGL' ) then
    mxmsgl = ipval
  else if ( cprmnm == 'MXDXTS' ) then
    mxdxts = ipval
  else if ( cprmnm == 'MAXMSG' ) then
    maxmsg = ipval
  else if ( cprmnm == 'MAXMEM' ) then
    maxmem = ipval
  else if ( cprmnm == 'MAXTBA' ) then
    maxtba = ipval
  else if ( cprmnm == 'MAXTBB' ) then
    maxtbb = ipval
  else if ( cprmnm == 'MAXTBD' ) then
    maxtbd = ipval
  else if ( cprmnm == 'MAXJL' ) then
    maxjl = ipval
  else if ( cprmnm == 'MXCDV' ) then
    mxcdv = ipval
  else if ( cprmnm == 'MXLCC' ) then
    mxlcc = ipval
  else if ( cprmnm == 'MXCSB' ) then
    mxcsb = ipval
  else if ( cprmnm == 'MXMTBB' ) then
    mxmtbb = ipval
  else if ( cprmnm == 'MXMTBD' ) then
    mxmtbd = ipval
  else if ( cprmnm == 'MXMTBF' ) then
    mxmtbf = ipval
  else if ( cprmnm == 'MAXCD' ) then
    maxcd = ipval
  else if ( cprmnm == 'MXS01V' ) then
    mxs01v = ipval
  else if ( cprmnm == 'MXBTM' ) then
    mxbtm = ipval
  else if ( cprmnm == 'MXBTMSE' ) then
    mxbtmse = ipval
  else if ( cprmnm == 'MXTAMC' ) then
    mxtamc = ipval
  else if ( cprmnm == 'MXTCO' ) then
    mxtco = ipval
  else if ( cprmnm == 'MXNRV' ) then
    mxnrv = ipval
  else if ( cprmnm == 'MXRST' ) then
    mxrst = ipval
  else if ( cprmnm == 'MXH4WLC' ) then
    mxh4wlc = ipval
  else if ( cprmnm == 'MXCNEM' ) then
    mxcnem = ipval
  else if ( cprmnm == 'MAXNC' ) then
    maxnc = ipval
  else if ( cprmnm == 'MXNAF' ) then
    mxnaf = ipval
  else
    iret = -1
    call errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
    errstr = 'BUFRLIB: ISETPRM - UNKNOWN INPUT PARAMETER '// cprmnm // ' -- NO ACTION WAS TAKEN'
    call errwrt(errstr)
    call errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
  endif
 
  return
end function isetprm
 
integer function igetprm ( cprmnm ) result ( iret )
 
  use modv_vars, only: mxmsgl, maxss, nfiles, mxdxts, maxmsg, maxmem, maxtba, maxtbb, maxtbd, maxjl, &
                       mxcdv, mxlcc, mxcsb, mxmtbb, mxmtbd, mxmtbf, maxcd, mxs01v, mxbtm, mxbtmse, &
                       mxtamc, mxtco, mxnrv, mxrst, mxh4wlc, mxcnem, maxnc, mxnaf
 
  implicit none
 
  character*(*), intent(in) :: cprmnm
 
  character*64 errstr
 
  if ( cprmnm == 'MAXSS' ) then
    iret = maxss
  else if ( cprmnm == 'NFILES' ) then
    iret = nfiles
  else if ( cprmnm == 'MXMSGL' ) then
    iret = mxmsgl
  else if ( cprmnm == 'MXDXTS' ) then
    iret = mxdxts
  else if ( cprmnm == 'MAXMSG' ) then
    iret = maxmsg
  else if ( cprmnm == 'MAXMEM' ) then
    iret = maxmem
  else if ( cprmnm == 'MAXTBA' ) then
    iret = maxtba
  else if ( cprmnm == 'MAXTBB' ) then
    iret = maxtbb
  else if ( cprmnm == 'MAXTBD' ) then
    iret = maxtbd
  else if ( cprmnm == 'MAXJL' ) then
    iret = maxjl
  else if ( cprmnm == 'MXCDV' ) then
    iret = mxcdv
  else if ( cprmnm == 'MXLCC' ) then
    iret = mxlcc
  else if ( cprmnm == 'MXCSB' ) then
    iret = mxcsb
  else if ( cprmnm == 'MXMTBB' ) then
    iret = mxmtbb
  else if ( cprmnm == 'MXMTBD' ) then
    iret = mxmtbd
  else if ( cprmnm == 'MXMTBF' ) then
    iret = mxmtbf
  else if ( cprmnm == 'MAXCD' ) then
    iret = maxcd
  else if ( cprmnm == 'MXS01V' ) then
    iret = mxs01v
  else if ( cprmnm == 'MXBTM' ) then
    iret = mxbtm
  else if ( cprmnm == 'MXBTMSE' ) then
    iret = mxbtmse
  else if ( cprmnm == 'MXTAMC' ) then
    iret = mxtamc
  else if ( cprmnm == 'MXTCO' ) then
    iret = mxtco
  else if ( cprmnm == 'MXNRV' ) then
    iret = mxnrv
  else if ( cprmnm == 'MXRST' ) then
    iret = mxrst
  else if ( cprmnm == 'MXH4WLC' ) then
    iret = mxh4wlc
  else if ( cprmnm == 'MXCNEM' ) then
    iret = mxcnem
  else if ( cprmnm == 'MAXNC' ) then
    iret = maxnc
  else if ( cprmnm == 'MXNAF' ) then
    iret = mxnaf
  else
    iret = -1
    call errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
    errstr = 'BUFRLIB: IGETPRM - UNKNOWN INPUT PARAMETER '// cprmnm
    call errwrt(errstr)
    call errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
  endif
 
  return
end function igetprm