1*ab645d52SCameron Smith module streamio 2*ab645d52SCameron Smith use :: iso_c_binding 3*ab645d52SCameron Smith type(c_ptr) :: grstream 4*ab645d52SCameron Smith interface 5*ab645d52SCameron Smith subroutine streamio_setup(stream, handle) 6*ab645d52SCameron Smith & bind(C, NAME='streamio_setup') 7*ab645d52SCameron Smith use :: iso_c_binding 8*ab645d52SCameron Smith type(c_ptr), value :: stream 9*ab645d52SCameron Smith type(c_ptr) :: handle 10*ab645d52SCameron Smith end subroutine 11*ab645d52SCameron Smith end interface 12*ab645d52SCameron Smith end module 13