program stest
c
c test significance and range of sin function
c -- figure 1.4
c
      real x, s
      integer i, n, out
c
      out = 6
      n = 36
      x = 1.0e-4 / 3.0
      do 10 i = 1, n
       x = x / 10.0
       s = sin(x)
       write(out, 101) i, x, s
10    continue
      stop
101   format(1x, i4, 1p2e15.6)
      end