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