module fio
  interface
   subroutine in4hex(prompt,i1,i2,i3,i4,i5,i6,i7,i8,i9)
   integer,intent(in), optional:: i1,i2,i3,i4,i5,i6,i7,i8,i9
   character*(*), intent(in)::  prompt
   end subroutine in4hex

   subroutine in4get(prompt,i1,i2,i3,i4,i5,i6,i7,i8,i9)
   integer,intent(inout), optional:: i1,i2,i3,i4,i5,i6,i7,i8,i9
   character*(*), intent(in)::  prompt
   end subroutine in4get

   subroutine in4getn(prompt,n,i1,i2,i3,i4,i5,i6,i7,i8,i9)
   integer,intent(inout), optional:: i1,i2,i3,i4,i5,i6,i7,i8,i9
   integer,intent(in):: n
   character*(*), intent(in)::  prompt
   end subroutine in4getn

   subroutine reaget(prompt,f1,f2,f3,f4,f5,f6,f7,f8,f9)
   real, intent(inout), optional:: f1,f2,f3,f4,f5,f6,f7,f8,f9
   character*(*), intent(in)::  prompt
   end subroutine reaget

   subroutine reagetn(prompt,n,f1,f2,f3,f4,f5,f6,f7,f8,f9)
   real, intent(inout), optional:: f1,f2,f3,f4,f5,f6,f7,f8,f9
   integer, intent(in):: n
   character*(*), intent(in)::  prompt
   end subroutine reagetn
  end interface 

! This is to suppress the ranlib "has no symbols" message
integer, private :: private_dummy  

 end module fio