1module cfuncs
2  interface
3     subroutine cnlprt(msg, plen) bind(C, name = 'cnlprt_C')
4       use iso_c_binding
5       character(kind = c_char) :: msg(*)
6       integer(kind = c_int)    :: plen
7     end subroutine cnlprt
8     subroutine h100s(i1, i2, d1, d2, d3, d4, a1, a2, d5) bind(C, name = 'h100s_C')
9       use iso_c_binding
10       character(kind = c_char) :: a1, a2
11       real(kind = c_double)    :: d1, d2, d3, d4, d5
12       integer(kind = c_int)    :: i1, i2
13     end subroutine h100s
14     subroutine h100l(i1, i2, d1, d2, d3, d4, a1, a2, d5, d6, d7) bind(C, name = 'h100l_C')
15       use iso_c_binding
16       character(kind = c_char) :: a1, a2
17       real(kind = c_double)    :: d1, d2, d3, d4, d5, d6, d7
18       integer(kind = c_int)    :: i1, i2
19     end subroutine h100l
20  end interface
21end module cfuncs
22