subroutine quit(text,i1,i2)
c
c     stops the program and writes a text
c
      character*(*) text
      write(6,10) text,i1,i2
      write(10,10) text,i1,i2
   10 format(1x,a,2x,2i10)
      stop
      end