subroutine output(x, y, ycalc, n)
c
c -- print out the answers
c
      integer n, out, i
      real x(1), y(1), ycalc(1)
      common /inout/ out, max
c
      write(out, 101)
      write(out, 102) (i, x(i), y(i), ycalc(i), i = 1, n)
      return
101   format('   i      x       y     y calc')
102   format(i4, f8.1, 2f9.2)
      end