phastaIO/phiotimer_empty/phiotimer_empty.f

 module phiotimer
 enum, bind(C)
   enumerator :: GEOMBC_READ, RESTART_READ, RESTART_WRITE
 end enum
 interface
   subroutine phastaio_setfile(fileidx)
&   bind(C, NAME='phastaio_setfile')
   use :: iso_c_binding
     integer(c_int), intent(in), value:: fileidx
   end subroutine
 end interface
 end module