NCEPLIBS-bufr  12.0.0
bufr_interface.F90
Go to the documentation of this file.
1 
6 
10 
12 
13  interface
14 
24  subroutine cobfl_c( bfl, io ) bind(C, name='cobfl')
25  use iso_c_binding
26  character(kind=c_char), intent(in) :: bfl(*)
27  character(kind=c_char), intent(in), value :: io
28  end subroutine cobfl_c
29 
43  subroutine crbmg_c( bmg, mxmb, nmb, iret ) bind(C, name='crbmg')
44  use iso_c_binding
45  character(kind=c_char), intent(out) :: bmg(*)
46  integer(c_int), intent(in), value :: mxmb
47  integer(c_int), intent(out) :: nmb, iret
48  end subroutine crbmg_c
49 
61  subroutine cwbmg_c( bmg, nmb, iret ) bind(C, name='cwbmg')
62  use iso_c_binding
63  character(kind=c_char), intent(in) :: bmg(*)
64  integer(c_int), intent(in), value :: nmb
65  integer(c_int), intent(out) :: iret
66  end subroutine cwbmg_c
67 
74  subroutine ccbfl_c() bind(C, name='ccbfl')
75  use iso_c_binding
76  end subroutine ccbfl_c
77 
84  subroutine dlloctbf_c() bind(C, name='dlloctbf')
85  use iso_c_binding
86  end subroutine dlloctbf_c
87 
88  end interface
89 
90 end module bufr_interface
Wrap C NCEPLIBS-bufr functions so they can be called from within Fortran application programs.