      F = 1.0
      DO 10 I = 1, 69
10    F = F * FLOATF(I)
      I = I - 1
      PRINT 20, I, F
      STOP
20    FORMAT (1X, I2, 13H FACTORIAL = , E13.6)
      END
