       STOP = 5.0
       WRITE (6, 10) STOP
  10   FORMAT (1X, ' THE VALUE OF STOP IS ', F6.2)
       STOP
       END
