subroutine foo
      integer n
      n = i1mach(3)
      end