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