1ab645d52SCameron Smith module streamio 2ab645d52SCameron Smith use :: iso_c_binding 3ab645d52SCameron Smith type(c_ptr) :: grstream 4*ecf8d2a9SCameron Smith type(c_ptr) :: rstream 5ab645d52SCameron Smith interface 6*ecf8d2a9SCameron Smith subroutine streamio_setup_read(handle, stream) 7*ecf8d2a9SCameron Smith & bind(C, NAME='streamio_setup_read') 8ab645d52SCameron Smith use :: iso_c_binding 9ab645d52SCameron Smith type(c_ptr) :: handle 10*ecf8d2a9SCameron Smith type(c_ptr), value :: stream 11*ecf8d2a9SCameron Smith end subroutine 12*ecf8d2a9SCameron Smith end interface 13*ecf8d2a9SCameron Smith interface 14*ecf8d2a9SCameron Smith subroutine streamio_setup_write(handle, stream) 15*ecf8d2a9SCameron Smith & bind(C, NAME='streamio_setup_write') 16*ecf8d2a9SCameron Smith use :: iso_c_binding 17*ecf8d2a9SCameron Smith type(c_ptr) :: handle 18*ecf8d2a9SCameron Smith type(c_ptr), value :: stream 19ab645d52SCameron Smith end subroutine 20ab645d52SCameron Smith end interface 21ab645d52SCameron Smith end module 22