bufrlib.F90

Go to the documentation of this file.

 
 
 
module bufrlib
  use bufr_interface
 
  interface
 
    subroutine openrb_c( nfile, ufile ) bind(C, name='openrb')
      use iso_c_binding
      character(kind=c_char), intent(in) :: ufile(*)
      integer(c_int), intent(in), value :: nfile
    end subroutine openrb_c
 
    subroutine openwb_c( nfile, ufile ) bind(C, name='openwb')
      use iso_c_binding
      character(kind=c_char), intent(in) :: ufile(*)
      integer(c_int), intent(in), value :: nfile
    end subroutine openwb_c
 
    subroutine openab_c( nfile, ufile ) bind(C, name='openab')
      use iso_c_binding
      character(kind=c_char), intent(in) :: ufile(*)
      integer(c_int), intent(in), value :: nfile
    end subroutine openab_c
 
    subroutine backbufr_c( nfile ) bind(C, name='backbufr')
      use iso_c_binding
      integer(c_int), intent(in), value :: nfile
    end subroutine backbufr_c
 
    subroutine cewind_c( nfile ) bind(C, name='cewind')
      use iso_c_binding
      integer(c_int), intent(in), value :: nfile
    end subroutine cewind_c
 
    subroutine closfb_c( nfile ) bind(C, name='closfb')
      use iso_c_binding
      integer(c_int), intent(in), value :: nfile
    end subroutine closfb_c
 
    integer(c_int) function crdbufr_c( nfile, bufr, mxwrd ) bind(C, name='crdbufr')
      use iso_c_binding
      integer(c_int), intent(out) :: bufr(*)
      integer(c_int), intent(in), value :: nfile, mxwrd
    end function crdbufr_c
 
    subroutine cwrbufr_c( nfile, bufr, nwrd ) bind(C, name='cwrbufr')
      use iso_c_binding
      integer(c_int), intent(in) :: bufr(*)
      integer(c_int), intent(in), value :: nfile, nwrd
    end subroutine cwrbufr_c
 
    integer(c_int) function icvidx_c( ii, jj, numjj ) bind(C, name='icvidx')
      use iso_c_binding
      integer(c_int), intent(in), value :: ii, jj, numjj
    end function icvidx_c
 
    subroutine arallocc_c() bind(C, name='arallocc')
      use iso_c_binding
    end subroutine arallocc_c
 
    subroutine ardllocc_c() bind(C, name='ardllocc')
      use iso_c_binding
    end subroutine ardllocc_c
 
    subroutine cpmstabs_c( nmtb, ibfxyn, cbscl, cbsref, cbbw, cbunit, cbmnem, cbelem, &
                           nmtd, idfxyn, cdseq, cdmnem, ndelem, idefxy, maxcd ) bind(C, name='cpmstabs')
      use iso_c_binding
      integer(c_int), intent(in) :: ibfxyn(*), idfxyn(*), ndelem(*), idefxy(*)
      integer(c_int), intent(in), value :: nmtb, nmtd, maxcd
      character(kind=c_char), intent(in) :: cbscl(4,*), cbsref(12,*), cbbw(4,*), cbunit(24,*), &
                                            cbmnem(8,*), cbelem(120,*), cdseq(120,*), cdmnem(8,*)
    end subroutine cpmstabs_c
 
    subroutine inittbf_c() bind(C, name='inittbf')
      use iso_c_binding
    end subroutine inittbf_c
 
    subroutine strtbfe_c(ifxyn,ival,meaning,lmeaning,idfxy,idval) bind(C, name='strtbfe')
      use iso_c_binding
      integer(c_int), intent(in), value :: ifxyn, ival, lmeaning, idfxy, idval
      character(kind=c_char), intent(in) :: meaning(*)
    end subroutine strtbfe_c
 
    subroutine sorttbf_c() bind(C, name='sorttbf')
      use iso_c_binding
    end subroutine sorttbf_c
 
    subroutine srchtbf_c(ifxyi,ivali,ifxyd,mxfxyd,ivald,meaning,mxmng,lnmng,iret) bind(C, name='srchtbf')
      use iso_c_binding
      integer(c_int), intent(in), value :: ifxyi, ivali, mxfxyd, ivald, mxmng
      integer(c_int), intent(inout) :: ifxyd
      integer(c_int), intent(out) :: lnmng, iret
      character(kind=c_char), intent(out) :: meaning(*)
    end subroutine srchtbf_c
 
    subroutine restd_c(lun, tddesc, nctddesc, ctddesc) bind(C, name='restd')
      use iso_c_binding
      integer(c_int), intent(in), value :: lun, tddesc
      integer(c_int), intent(out) :: nctddesc, ctddesc(*)
    end subroutine restd_c
 
    subroutine stseq_c(lun,irepct,idn,nemo,cseq,cdesc,ncdesc) bind(C, name='stseq')
      use iso_c_binding
      integer(c_int), intent(in), value :: lun, idn, ncdesc
      character(kind=c_char), intent(in) :: nemo(*), cseq(*)
      integer(c_int), intent(inout) :: irepct
      integer(c_int), intent(out) :: cdesc(*)
    end subroutine stseq_c
 
    subroutine bort_goto_target_c() bind(C, name='bort_goto_target')
      use iso_c_binding
    end subroutine bort_goto_target_c
 
    subroutine catch_bort_openbf_c(lunit,cio,lundx,cio_str_len) bind(C, name='catch_bort_openbf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lundx, cio_str_len
      character(kind=c_char), intent(inout) :: cio(*)
    end subroutine catch_bort_openbf_c
 
    subroutine catch_bort_closbf_c(lunit) bind(C, name='catch_bort_closbf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
    end subroutine catch_bort_closbf_c
 
    subroutine catch_bort_status_c(lunit,lun,il,im) bind(C, name='catch_bort_status')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: lun, il, im
    end subroutine catch_bort_status_c
 
    subroutine catch_bort_readmg_c(lunxx,subset,jdate,subset_str_len,iret) bind(C, name='catch_bort_readmg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunxx, subset_str_len
      character(kind=c_char), intent(out) :: subset(*)
      integer(c_int), intent(out) :: jdate, iret
    end subroutine catch_bort_readmg_c
 
    subroutine catch_bort_openmb_c(lunit,subset,subset_str_len,jdate) bind(C, name='catch_bort_openmb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len, jdate
      character(kind=c_char), intent(inout) :: subset(*)
    end subroutine catch_bort_openmb_c
 
    subroutine catch_bort_openmg_c(lunit,subset,subset_str_len,jdate) bind(C, name='catch_bort_openmg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len, jdate
      character(kind=c_char), intent(inout) :: subset(*)
    end subroutine catch_bort_openmg_c
 
    subroutine catch_bort_closmg_c(lunit) bind(C, name='catch_bort_closmg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
    end subroutine catch_bort_closmg_c
 
    subroutine catch_bort_readns_c(lunit,subset,jdate,subset_str_len,iret) bind(C, name='catch_bort_readns')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len
      character(kind=c_char), intent(out) :: subset(*)
      integer(c_int), intent(out) :: jdate, iret
    end subroutine catch_bort_readns_c
 
    subroutine catch_bort_readsb_c(lunit,iret) bind(C, name='catch_bort_readsb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_readsb_c
 
    subroutine catch_bort_writsb_c(lunit) bind(C, name='catch_bort_writsb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
    end subroutine catch_bort_writsb_c
 
    subroutine catch_bort_writsa_c(lunxx,bufr_len,bufr,nbufr) bind(C, name='catch_bort_writsa')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunxx, bufr_len
      integer(c_int), intent(out) :: bufr(*), nbufr
    end subroutine catch_bort_writsa_c
 
    subroutine catch_bort_ufbint_c(lunin,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbint')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(inout) :: usr(i1,*)
    end subroutine catch_bort_ufbint_c
 
    subroutine catch_bort_ufbrep_c(lunin,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbrep')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(inout) :: usr(i1,*)
    end subroutine catch_bort_ufbrep_c
 
    subroutine catch_bort_ufbstp_c(lunin,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbstp')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(inout) :: usr(i1,*)
    end subroutine catch_bort_ufbstp_c
 
    subroutine catch_bort_ufbevn_c(lunit,usr,i1,i2,i3,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbevn')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, i1, i2, i3, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: usr(i1,i2,*)
    end subroutine catch_bort_ufbevn_c
 
    subroutine catch_bort_drfini_c(lunit,mdrf,ndrf,drftag,drftag_len) bind(C, name='catch_bort_drfini')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, ndrf, drftag_len
      integer(c_int), intent(in) :: mdrf(*)
      character(kind=c_char), intent(inout) :: drftag(*)
    end subroutine catch_bort_drfini_c
 
    subroutine catch_bort_ufbseq_c(lunin,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbseq')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(inout) :: usr(i1,*)
    end subroutine catch_bort_ufbseq_c
 
    subroutine catch_bort_readlc_c(lunit,cstr,cstr_len,chr,chr_len,nchr) bind(C, name='catch_bort_readlc')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, cstr_len, chr_len
      integer(c_int), intent(out) :: nchr
      character(kind=c_char), intent(inout) :: cstr(*)
      character(kind=c_char), intent(out) :: chr(*)
    end subroutine catch_bort_readlc_c
 
    subroutine catch_bort_writlc_c(lunit,cstr,cstr_len,cchr,cchr_len) bind(C, name='catch_bort_writlc')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, cstr_len, cchr_len
      character(kind=c_char), intent(inout) :: cstr(*), cchr(*)
    end subroutine catch_bort_writlc_c
 
    subroutine catch_bort_ufbcnt_c(lunit,kmsg,ksub) bind(C, name='catch_bort_ufbcnt')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: kmsg, ksub
    end subroutine catch_bort_ufbcnt_c
 
    subroutine catch_bort_ufbqcd_c(lunit,cnemo,iqcd,cnemo_len) bind(C, name='catch_bort_ufbqcd')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, cnemo_len
      integer(c_int), intent(out) :: iqcd
      character(kind=c_char), intent(inout) :: cnemo(*)
    end subroutine catch_bort_ufbqcd_c
 
    subroutine catch_bort_ufbqcp_c(lunit,iqcp,cnemo,cnemo_len,ncn) bind(C, name='catch_bort_ufbqcp')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, iqcp, cnemo_len
      integer(c_int), intent(out) :: ncn
      character(kind=c_char), intent(out) :: cnemo(*)
    end subroutine catch_bort_ufbqcp_c
 
    subroutine catch_bort_getcfmng_c(lunit,cnemoi,lcni,ivali,cnemod,lcnd,ivald,cmeang_c,lcmgc,lnmng,iret) &
        bind(c, name='catch_bort_getcfmng')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lcni, ivali, lcnd, ivald, lcmgc
      integer(c_int), intent(out) :: lnmng, iret
      character(kind=c_char), intent(inout) :: cnemoi(*), cnemod(*)
      character(kind=c_char), intent(out) :: cmeang_c(*)
    end subroutine catch_bort_getcfmng_c
 
    subroutine catch_bort_upftbv_c(lunit,cnemo,lcn,val,ibit,mxib,nib) bind(C, name='catch_bort_upftbv')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lcn, mxib
      integer(c_int), intent(out) :: ibit(*), nib
      real(c_double), value, intent(in) :: val
      character(kind=c_char), intent(inout) :: cnemo(*)
    end subroutine catch_bort_upftbv_c
 
    subroutine catch_bort_ufbtab_c(lunin,tab,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbtab')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, i1, i2, cstr_len
      integer(c_int), intent(inout) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: tab(i1,*)
    end subroutine catch_bort_ufbtab_c
 
    subroutine catch_bort_ufbpos_c(lunit,irec,isub,subset,jdate,subset_str_len) bind(C, name='catch_bort_ufbpos')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len, irec, isub
      character(kind=c_char), intent(out) :: subset(*)
      integer(c_int), intent(out) :: jdate
    end subroutine catch_bort_ufbpos_c
 
    subroutine catch_bort_datelen_c(len) bind(C, name='catch_bort_datelen')
      use iso_c_binding
      integer(c_int), value, intent(in) :: len
    end subroutine catch_bort_datelen_c
 
    subroutine catch_bort_iupvs01_c(lunit,s01mnem,s01mnem_str_len,iret) bind(C, name='catch_bort_iupvs01')
      use iso_c_binding
      integer(c_int), intent(in), value :: lunit, s01mnem_str_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: s01mnem(*)
    end subroutine catch_bort_iupvs01_c
 
    subroutine catch_bort_nmsub_c(lunit,iret) bind(C, name='catch_bort_nmsub')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_nmsub_c
 
    subroutine catch_bort_pkvs01_c(s01mnem,s01mnem_str_len,ival) bind(C, name='catch_bort_pkvs01')
      use iso_c_binding
      integer(c_int), intent(in), value :: s01mnem_str_len, ival
      character(kind=c_char), intent(inout) :: s01mnem(*)
    end subroutine catch_bort_pkvs01_c
 
    subroutine catch_bort_datebf_c(lunit,mear,mmon,mday,mour,idate) bind(C, name='catch_bort_datebf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: mear, mmon, mday, mour, idate
    end subroutine catch_bort_datebf_c
 
    subroutine catch_bort_dumpbf_c(lunit,jdate,jdump) bind(C, name='catch_bort_dumpbf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: jdate(*), jdump(*)
    end subroutine catch_bort_dumpbf_c
 
    subroutine catch_bort_minimg_c(lunit,mini) bind(C, name='catch_bort_minimg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, mini
    end subroutine catch_bort_minimg_c
 
    subroutine catch_bort_upds3_c(mbay,lcds3,ccds3,nds3) bind(C, name='catch_bort_upds3')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lcds3
      integer(c_int), intent(in) :: mbay(*)
      integer(c_int), intent(out) :: nds3
      character(kind=c_char), intent(out) :: ccds3(6,*)
    end subroutine catch_bort_upds3_c
 
    subroutine catch_bort_pkbs1_c(ival,mbay,s1mnem,s1mnem_str_len) bind(C, name='catch_bort_pkbs1')
      use iso_c_binding
      integer(c_int), intent(in), value :: s1mnem_str_len, ival
      integer(c_int), intent(inout) :: mbay(*)
      character(kind=c_char), intent(inout) :: s1mnem(*)
    end subroutine catch_bort_pkbs1_c
 
    subroutine catch_bort_strcpt_c(cf,iyr,imo,idy,ihr,imi) bind(C, name='catch_bort_strcpt')
      use iso_c_binding
      integer(c_int), value, intent(in) :: iyr, imo, idy, ihr, imi
      character(kind=c_char), intent(in) :: cf(*)
    end subroutine catch_bort_strcpt_c
 
    subroutine catch_bort_rtrcpt_c(lunit,iyr,imo,idy,ihr,imi,iret) bind(C, name='catch_bort_rtrcpt')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: iyr, imo, idy, ihr, imi, iret
    end subroutine catch_bort_rtrcpt_c
 
    subroutine catch_bort_atrcpt_c(msgin,lmsgot,msgot) bind(C, name='catch_bort_atrcpt')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lmsgot
      integer(c_int), intent(in) :: msgin(*)
      integer(c_int), intent(out) :: msgot(*)
    end subroutine catch_bort_atrcpt_c
 
    subroutine catch_bort_dxdump_c(lunit,luprt) bind(C, name='catch_bort_dxdump')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, luprt
    end subroutine catch_bort_dxdump_c
 
    subroutine catch_bort_ufbdmp_c(lunit,luprt) bind(C, name='catch_bort_ufbdmp')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, luprt
    end subroutine catch_bort_ufbdmp_c
 
    subroutine catch_bort_ufdump_c(lunit,luprt) bind(C, name='catch_bort_ufdump')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, luprt
    end subroutine catch_bort_ufdump_c
 
    subroutine catch_bort_copybf_c(lunin,lunot) bind(C, name='catch_bort_copybf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, lunot
    end subroutine catch_bort_copybf_c
 
    subroutine catch_bort_copymg_c(lunin,lunot) bind(C, name='catch_bort_copymg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, lunot
    end subroutine catch_bort_copymg_c
 
    subroutine catch_bort_copysb_c(lunin,lunot,iret) bind(C, name='catch_bort_copysb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, lunot
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_copysb_c
 
    subroutine catch_bort_ufbcpy_c(lunin,lunot) bind(C, name='catch_bort_ufbcpy')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, lunot
    end subroutine catch_bort_ufbcpy_c
 
    subroutine catch_bort_nemdefs_c(lunit,cnemo,lcn,ccelem,ccelem_str_len,ccunit,ccunit_str_len,iret) &
        bind(c, name='catch_bort_nemdefs')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lcn, ccelem_str_len, ccunit_str_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cnemo(*)
      character(kind=c_char), intent(out) :: ccelem(*), ccunit(*)
    end subroutine catch_bort_nemdefs_c
 
    subroutine catch_bort_nemspecs_c(lunit,cnemo,lcn,nnemo,nscl,nref,nbts,iret) bind(C, name='catch_bort_nemspecs')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lcn, nnemo
      integer(c_int), intent(out) :: nscl, nref, nbts, iret
      character(kind=c_char), intent(inout) :: cnemo(*)
    end subroutine catch_bort_nemspecs_c
 
    subroutine catch_bort_readerme_c(mesg,lunit,subset,jdate,subset_str_len,iret) bind(C, name='catch_bort_readerme')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len
      integer(c_int), intent(in) :: mesg(*)
      integer(c_int), intent(out) :: jdate, iret
      character(kind=c_char), intent(out) :: subset(*)
    end subroutine catch_bort_readerme_c
 
    subroutine catch_bort_rdmgsb_c(lunit,imsg,isub) bind(C, name='catch_bort_rdmgsb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, imsg, isub
    end subroutine catch_bort_rdmgsb_c
 
    subroutine catch_bort_ufbmem_c(lunit,inew,iret,iunit) bind(C, name='catch_bort_ufbmem')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, inew
      integer(c_int), intent(out) :: iret, iunit
    end subroutine catch_bort_ufbmem_c
 
    subroutine catch_bort_ufbmex_c(lunit,lundx,inew,iret,mesg) bind(C, name='catch_bort_ufbmex')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lundx, inew
      integer(c_int), intent(out) :: iret, mesg(*)
    end subroutine catch_bort_ufbmex_c
 
    subroutine catch_bort_ufbmms_c(imsg,isub,subset,jdate,subset_str_len) bind(C, name='catch_bort_ufbmms')
      use iso_c_binding
      integer(c_int), value, intent(in) :: imsg, isub, subset_str_len
      integer(c_int), intent(out) :: jdate
      character(kind=c_char), intent(out) :: subset(*)
    end subroutine catch_bort_ufbmms_c
 
    subroutine catch_bort_ufbmns_c(irep,subset,idate,subset_str_len) bind(C, name='catch_bort_ufbmns')
      use iso_c_binding
      integer(c_int), value, intent(in) :: irep, subset_str_len
      integer(c_int), intent(out) :: idate
      character(kind=c_char), intent(out) :: subset(*)
    end subroutine catch_bort_ufbmns_c
 
    subroutine catch_bort_rdmemm_c(imsg,subset,jdate,subset_str_len,iret) bind(C, name='catch_bort_rdmemm')
      use iso_c_binding
      integer(c_int), value, intent(in) :: imsg, subset_str_len
      character(kind=c_char), intent(out) :: subset(*)
      integer(c_int), intent(out) :: jdate, iret
    end subroutine catch_bort_rdmemm_c
 
    subroutine catch_bort_rdmems_c(isub,iret) bind(C, name='catch_bort_rdmems')
      use iso_c_binding
      integer(c_int), value, intent(in) :: isub
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_rdmems_c
 
    subroutine catch_bort_ufbrms_c(imsg,isub,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbrms')
      use iso_c_binding
      integer(c_int), value, intent(in) :: imsg, isub, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: usr(i1,*)
    end subroutine catch_bort_ufbrms_c
 
    subroutine catch_bort_ufbtam_c(tab,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbtam')
      use iso_c_binding
      integer(c_int), value, intent(in) :: i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: tab(i1,*)
    end subroutine catch_bort_ufbtam_c
 
    subroutine catch_bort_cpymem_c(lunot) bind(C, name='catch_bort_cpymem')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunot
    end subroutine catch_bort_cpymem_c
 
    subroutine catch_bort_ufbcup_c(lunin,lunot) bind(C, name='catch_bort_ufbcup')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin, lunot
    end subroutine catch_bort_ufbcup_c
 
    subroutine catch_bort_stdmsg_c(cf) bind(C, name='catch_bort_stdmsg')
      use iso_c_binding
      character(kind=c_char), intent(in) :: cf(*)
    end subroutine catch_bort_stdmsg_c
 
    subroutine catch_bort_stndrd_c(lunit,msgin,lmsgot,msgot) bind(C, name='catch_bort_stndrd')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, lmsgot
      integer(c_int), intent(in) :: msgin(*)
      integer(c_int), intent(out) :: msgot(*)
    end subroutine catch_bort_stndrd_c
 
    subroutine catch_bort_cmpmsg_c(cf) bind(C, name='catch_bort_cmpmsg')
      use iso_c_binding
      character(kind=c_char), intent(in) :: cf(*)
    end subroutine catch_bort_cmpmsg_c
 
    subroutine catch_bort_codflg_c(cf) bind(C, name='catch_bort_codflg')
      use iso_c_binding
      character(kind=c_char), intent(in) :: cf(*)
    end subroutine catch_bort_codflg_c
 
    subroutine catch_bort_bvers_c(verstr,verstr_len) bind(C, name='catch_bort_bvers')
      use iso_c_binding
      integer(c_int), value, intent(in) :: verstr_len
      character(kind=c_char), intent(out) :: verstr(*)
    end subroutine catch_bort_bvers_c
 
    subroutine catch_bort_gettagpr_c(lunit,tagch,tagch_len,ntagch,tagpr,tagpr_len,ntpchr,iret) &
        bind(c, name='catch_bort_gettagpr')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, tagch_len, ntagch, tagpr_len
      integer(c_int), intent(out) :: ntpchr, iret
      character(kind=c_char), intent(inout) :: tagch(*)
      character(kind=c_char), intent(out) :: tagpr(*)
    end subroutine catch_bort_gettagpr_c
 
    subroutine catch_bort_gettagre_c(lunit,tagi,tagi_len,ntagi,tagre,tagre_len,ntagre,ntrchr,iret) &
        bind(c, name='catch_bort_gettagre')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, tagi_len, ntagi, tagre_len
      integer(c_int), intent(out) :: ntagre, ntrchr, iret
      character(kind=c_char), intent(inout) :: tagi(*)
      character(kind=c_char), intent(out) :: tagre(*)
    end subroutine catch_bort_gettagre_c
 
    subroutine catch_bort_cnved4_c(msgin,lmsgot,msgot) bind(C, name='catch_bort_cnved4')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lmsgot
      integer(c_int), intent(in) :: msgin(*)
      integer(c_int), intent(out) :: msgot(*)
    end subroutine catch_bort_cnved4_c
 
    subroutine catch_bort_lcmgdf_c(lunit,subset,subset_str_len,iret) bind(C, name='catch_bort_lcmgdf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, subset_str_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: subset(*)
    end subroutine catch_bort_lcmgdf_c
 
    subroutine catch_bort_setvalnb_c(lunit,tagpv,tagpv_len,ntagpv,tagnb,tagnb_len,ntagnb,r8val,iret) &
        bind(c, name='catch_bort_setvalnb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, tagpv_len, ntagpv, tagnb_len, ntagnb
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: tagpv(*), tagnb(*)
      real(c_double), value, intent(in) :: r8val
    end subroutine catch_bort_setvalnb_c
 
    subroutine catch_bort_getvalnb_c(lunit,tagpv,tagpv_len,ntagpv,tagnb,tagnb_len,ntagnb,r8val) &
        bind(c, name='catch_bort_getvalnb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, tagpv_len, ntagpv, tagnb_len, ntagnb
      character(kind=c_char), intent(inout) :: tagpv(*), tagnb(*)
      real(c_double), intent(out) :: r8val
    end subroutine catch_bort_getvalnb_c
 
    subroutine catch_bort_getabdb_c(lunit,itab,ctabdb,jtab) bind(C, name='catch_bort_getabdb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, itab
      integer(c_int), intent(out) :: jtab
      character(kind=c_char), intent(out) :: ctabdb(128,*)
    end subroutine catch_bort_getabdb_c
 
    subroutine catch_bort_ufbget_c(lunit,tab,i1,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbget')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, i1, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: tab(*)
    end subroutine catch_bort_ufbget_c
 
    subroutine catch_bort_ufbinx_c(lunit,imsg,isub,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbinx')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, i1, i2, cstr_len, imsg, isub
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(out) :: usr(i1,*)
    end subroutine catch_bort_ufbinx_c
 
    subroutine catch_bort_ufbovr_c(lunit,usr,i1,i2,iret,cstr,cstr_len) bind(C, name='catch_bort_ufbovr')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit, i1, i2, cstr_len
      integer(c_int), intent(out) :: iret
      character(kind=c_char), intent(inout) :: cstr(*)
      real(c_double), intent(in) :: usr(i1,*)
    end subroutine catch_bort_ufbovr_c
 
    subroutine catch_bort_ifbget_c(lunit,iret) bind(C, name='catch_bort_ifbget')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_ifbget_c
 
    subroutine catch_bort_igetsc_c(lunit,iret) bind(C, name='catch_bort_igetsc')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_igetsc_c
 
    subroutine catch_bort_wrdxtb_c(lundx,lunot) bind(C, name='catch_bort_wrdxtb')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lundx, lunot
    end subroutine catch_bort_wrdxtb_c
 
    subroutine catch_bort_mesgbf_c(lunit,mesgtyp) bind(C, name='catch_bort_mesgbf')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunit
      integer(c_int), intent(out) :: mesgtyp
    end subroutine catch_bort_mesgbf_c
 
    subroutine catch_bort_mesgbc_c(lunin,mesgtyp,icomp) bind(C, name='catch_bort_mesgbc')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lunin
      integer(c_int), intent(out) :: mesgtyp, icomp
    end subroutine catch_bort_mesgbc_c
 
    subroutine catch_bort_invmrg_c(lubfi,lubfj) bind(C, name='catch_bort_invmrg')
      use iso_c_binding
      integer(c_int), value, intent(in) :: lubfi, lubfj
    end subroutine catch_bort_invmrg_c
 
    subroutine catch_bort_iupm_c(cbay,nbits,iret,lcbay) bind(C, name='catch_bort_iupm')
      use iso_c_binding
      character(kind=c_char), intent(inout) :: cbay(*)
      integer(c_int), value, intent(in) :: nbits, lcbay
      integer(c_int), intent(out) :: iret
    end subroutine catch_bort_iupm_c
 
    subroutine catch_bort_ipkm_c(cbay,nbyt,ival,cbay_len) bind(C, name='catch_bort_ipkm')
      use iso_c_binding
      character(kind=c_char), intent(out) :: cbay(*)
      integer(c_int), value, intent(in) :: nbyt, ival, cbay_len
    end subroutine catch_bort_ipkm_c
 
  end interface
 
end module bufrlib