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