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 bind(C, name='restartStream') :: restartStream 7 interface 8 subroutine streamio_setup_read(handle, stream) 9 & bind(C, NAME='streamio_setup_read') 10 use :: iso_c_binding 11 type(c_ptr) :: handle 12 type(c_ptr), value :: stream 13 end subroutine 14 end interface 15 interface 16 subroutine streamio_setup_write(handle, stream) 17 & bind(C, NAME='streamio_setup_write') 18 use :: iso_c_binding 19 type(c_ptr) :: handle 20 type(c_ptr), value :: stream 21 end subroutine 22 end interface 23 end module 24