C     FACTORIAL CALCULATION IN MANTIS
      N = 5
      FACT = 1
      DO 10 I = 1, N
         FACT = FACT * I
10    CONTINUE
      TYPE FACT
      STOP
      END