subroutine quit(text)
C     =====================
c
c     stops the program and writes a text
c
      INCLUDE 'PARAMS.FOR'
      character*(*) text
      write(6,10) text
   10 format(1x,a)
      stop
      end