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