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