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