1 module phiotimer 2 enum, bind(C) 3 enumerator :: GEOMBC_READ, RESTART_READ, RESTART_WRITE 4 end enum 5 interface 6 subroutine phastaio_setfile(fileidx) 7 & bind(C, NAME='phastaio_setfile') 8 use :: iso_c_binding 9 integer(c_int), intent(in), value:: fileidx 10 end subroutine 11 end interface 12 end module 13