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_exit_c() bind(C, name='bort_exit')
      use iso_c_binding
    end subroutine bort_exit_c
 
  end interface
 
end module bufrlib