C      THE PURPOSE OF THIS PROGRAM IS TO TEST HOW INTEGER DIVISION
C      BEHAVE
       NUMBER1 = 27
       XNUMBER2 = 2
       ANSWER = NUMBER1 /XNUMBER2
       XNUMBER = 7.634
       NUMBER = IFIX(XNUMBER)
       WRITE (6,12) NUMBER
  12   FORMAT (1X,  I5)
       WRITE (6,10) ANSWER
  10   FORMAT (1X, F10.2)
       STOP
       END
