25 subroutine openrb_c( nfile, ufile ) bind(C, name='openrb')
27 character(kind=c_char),
intent(in) :: ufile(*)
28 integer(c_int),
intent(in),
value :: nfile
40 subroutine openwb_c( nfile, ufile ) bind(C, name='openwb')
42 character(kind=c_char),
intent(in) :: ufile(*)
43 integer(c_int),
intent(in),
value :: nfile
55 subroutine openab_c( nfile, ufile ) bind(C, name='openab')
57 character(kind=c_char),
intent(in) :: ufile(*)
58 integer(c_int),
intent(in),
value :: nfile
71 integer(c_int),
intent(in),
value :: nfile
82 subroutine cewind_c( nfile ) bind(C, name='cewind')
84 integer(c_int),
intent(in),
value :: nfile
95 subroutine closfb_c( nfile ) bind(C, name='closfb')
97 integer(c_int),
intent(in),
value :: nfile
117 integer(c_int) function crdbufr_c( nfile, bufr, mxwrd ) bind(C, name='crdbufr')
119 integer(c_int),
intent(out) :: bufr(*)
120 integer(c_int),
intent(in),
value :: nfile, mxwrd
133 subroutine cwrbufr_c( nfile, bufr, nwrd ) bind(C, name='cwrbufr')
135 integer(c_int),
intent(in) :: bufr(*)
136 integer(c_int),
intent(in),
value :: nfile, nwrd
153 integer(c_int) function icvidx_c( ii, jj, numjj ) bind(C, name='icvidx')
155 integer(c_int),
intent(in),
value :: ii, jj, numjj
201 subroutine cpmstabs_c( nmtb, ibfxyn, cbscl, cbsref, cbbw, cbunit, cbmnem, cbelem, &
202 nmtd, idfxyn, cdseq, cdmnem, ndelem, idefxy, maxcd ) bind(C, name='cpmstabs')
204 integer(c_int),
intent(in) :: ibfxyn(*), idfxyn(*), ndelem(*), idefxy(*)
205 integer(c_int),
intent(in),
value :: nmtb, nmtd, maxcd
206 character(kind=c_char),
intent(in) :: cbscl(4,*), cbsref(12,*), cbbw(4,*), cbunit(24,*), &
207 cbmnem(8,*), cbelem(120,*), cdseq(120,*), cdmnem(8,*)
236 subroutine strtbfe_c(ifxyn,ival,meaning,lmeaning,idfxy,idval) bind(C, name='strtbfe')
238 integer(c_int),
intent(in),
value :: ifxyn, ival, lmeaning, idfxy, idval
239 character(kind=c_char),
intent(in) :: meaning(*)
287 subroutine srchtbf_c(ifxyi,ivali,ifxyd,mxfxyd,ivald,meaning,mxmng,lnmng,iret) bind(C, name='srchtbf')
289 integer(c_int),
intent(in),
value :: ifxyi, ivali, mxfxyd, ivald, mxmng
290 integer(c_int),
intent(inout) :: ifxyd
291 integer(c_int),
intent(out) :: lnmng, iret
292 character(kind=c_char),
intent(out) :: meaning(*)
306 subroutine restd_c(lun, tddesc, nctddesc, ctddesc) bind(C, name='restd')
308 integer(c_int),
intent(in),
value :: lun, tddesc
309 integer(c_int),
intent(out) :: nctddesc, ctddesc(*)
326 subroutine stseq_c(lun,irepct,idn,nemo,cseq,cdesc,ncdesc) bind(C, name='stseq')
328 integer(c_int),
intent(in),
value :: lun, idn, ncdesc
329 character(kind=c_char),
intent(in) :: nemo(*), cseq(*)
330 integer(c_int),
intent(inout) :: irepct
331 integer(c_int),
intent(out) :: cdesc(*)
Wrap C NCEPLIBS-bufr functions so they can be called from within Fortran application programs.
Wrap C NCEPLIBS-bufr functions so they can be called from within the Fortran part of the library.