1ab645d52SCameron Smith module streamio 2ab645d52SCameron Smith use :: iso_c_binding 3*a486e66cSCameron Smith type(c_ptr) :: geomRestartStream 4*a486e66cSCameron Smith bind(C, name='geomRestartStream') :: geomRestartStream 5*a486e66cSCameron Smith type(c_ptr) :: restartStream 6ab645d52SCameron Smith interface 7ecf8d2a9SCameron Smith subroutine streamio_setup_read(handle, stream) 8ecf8d2a9SCameron Smith & bind(C, NAME='streamio_setup_read') 9ab645d52SCameron Smith use :: iso_c_binding 10ab645d52SCameron Smith type(c_ptr) :: handle 11ecf8d2a9SCameron Smith type(c_ptr), value :: stream 12ecf8d2a9SCameron Smith end subroutine 13ecf8d2a9SCameron Smith end interface 14ecf8d2a9SCameron Smith interface 15ecf8d2a9SCameron Smith subroutine streamio_setup_write(handle, stream) 16ecf8d2a9SCameron Smith & bind(C, NAME='streamio_setup_write') 17ecf8d2a9SCameron Smith use :: iso_c_binding 18ecf8d2a9SCameron Smith type(c_ptr) :: handle 19ecf8d2a9SCameron Smith type(c_ptr), value :: stream 20ab645d52SCameron Smith end subroutine 21ab645d52SCameron Smith end interface 22*a486e66cSCameron Smith interface 23*a486e66cSCameron Smith subroutine streamio_set_gr(stream) 24*a486e66cSCameron Smith & bind(C, NAME='streamio_set_gr') 25*a486e66cSCameron Smith use :: iso_c_binding 26*a486e66cSCameron Smith type(c_ptr), value :: stream 27*a486e66cSCameron Smith end subroutine 28*a486e66cSCameron Smith end interface 29ab645d52SCameron Smith end module 30