1 module phstr 2 use :: iso_c_binding 3 interface 4 subroutine phstr_appendInt(str, val) 5 & bind(C, NAME='phstr_appendInt') 6 use :: iso_c_binding 7 character(c_char) :: str(*) 8 integer(c_int), value, intent(in) :: val 9 end subroutine 10 end interface 11 12 interface 13 subroutine phstr_appendDbl(str, val) 14 & bind(C, NAME='phstr_appendDbl') 15 use :: iso_c_binding 16 character(c_char) :: str(*) 17 real(c_double), value, intent(in) :: val 18 end subroutine 19 end interface 20 21 interface 22 subroutine phstr_appendStr(dest, src) 23 & bind(C, NAME='phstr_appendStr') 24 use :: iso_c_binding 25 character(c_char) :: dest(*) 26 character(c_char) :: src(*) 27 end subroutine 28 end interface 29 30 end module 31