1C*GRQUIT -- report a fatal error and abort execution
2C+
3      SUBROUTINE GRQUIT (TEXT)
4      CHARACTER*(*) TEXT
5C
6C Report a fatal error (via GRWARN) and exit program.
7C This routine should be called in the event of an unrecoverable
8C PGPLOT error.
9C
10C Argument:
11C  TEXT (input): text of message to be sent to GRWARN.
12C--
13C 12-Nov-1994
14C-----------------------------------------------------------------------
15C
16      CALL GRWARN(TEXT)
17      CALL GRWARN('Fatal error in PGPLOT library: program terminating.')
18      STOP
19      END
20