SUBROUTINE CMERMS(ERNUM,TOKEN,NCHARS)
NOLINEUP
C
C     PRINT ERROR MESSAGE
C     MODIFIED 81-06-23 (JWB) TO ADD MESSAGES 11 AND 12
C
C     INPUTS--
C     . ERNUM   - ERROR NUMBER
C     . TOKEN() - TEXT TO BE PRINTED AFTER MESSAGE TEXT - CHAR*1(NCHARS)
C     . NCHARS  - NUMBER OF CHARACTERS IN TOKEN
C
      PARAMETER (NUMSGS=12)
C
INCLUDE (SCANLIB.PARAMS)
INCLUDE (SCANLIB.CMTABL)
C
      CHARACTER*1 TOKEN(1)
      INTEGER ERNUM,NCHARS
      CHARACTER*1 ERTEXT(32,NUMSGS)
      CHARACTER*1 ER1(32),ER2(32),ER3(32),ER4(32)
      CHARACTER*1 ER5(32),ER6(32),ER7(32),ER8(32)
      CHARACTER*1 ER9(32),ER10(32),ER11(32),ER12(32)
      CHARACTER*1 BLANK,COLON,NULITM(10)
      INTEGER NTEXT(NUMSGS)
C
      EQUIVALENCE (ERTEXT(1,1),ER1(1))
      EQUIVALENCE (ERTEXT(1,2),ER2(1))
      EQUIVALENCE (ERTEXT(1,3),ER3(1))
      EQUIVALENCE (ERTEXT(1,4),ER4(1))
      EQUIVALENCE (ERTEXT(1,5),ER5(1))
      EQUIVALENCE (ERTEXT(1,6),ER6(1))
      EQUIVALENCE (ERTEXT(1,7),ER7(1))
      EQUIVALENCE (ERTEXT(1,8),ER8(1))
      EQUIVALENCE (ERTEXT(1,9),ER9(1))
      EQUIVALENCE (ERTEXT(1,10),ER10(1))
      EQUIVALENCE (ERTEXT(1,11),ER11(1))
      EQUIVALENCE (ERTEXT(1,12),ER12(1))
C
      DATA ER1/
     *'U','N','R','E','C','O','G','N','I','Z','E','D',' ','C','O','M',
     *'M','A','N','D',12*' '/
      DATA ER2/
     *'U','N','R','E','C','O','G','N','I','Z','E','D',' ','K','E','Y',
     *'W','O','R','D',12*' '/
      DATA ER3/
     *'U','N','R','E','C','O','G','N','I','Z','E','D',' ','N','A','M',
     *'E',15*' '/
      DATA ER4/
     *'I','N','V','A','L','I','D',' ','I','N','T','E','G','E','R',' ',
     *'I','T','E','M',12*' '/
      DATA ER5/
     *'I','N','V','A','L','I','D',' ','R','E','A','L',' ','I','T','E',
     *'M',15*' '/
      DATA ER6/
     *'T','O','O',' ','M','A','N','Y',' ','L','I','S','T',' ','I','T',
     *'E','M','S',' ','-','-',' ','S','K','I','P','P','I','N','G',' '/
      DATA ER7/
     *'M','I','S','S','I','N','G',' ','P','U','N','C','T','U','A','T',
     *'I','O','N',' ','A','F','T','E','R',' ','S','T','R','I','N','G'/
      DATA ER8/
     *'B','A','D',' ','Q','U','O','T','E',' ','I','N',' ','N','O','N',
     *'Q','U','O','T','E',' ','I','T','E','M',' ','A','F','T','E','R'/
      DATA ER9/
     *'Q','U','O','T','E','D',' ','S','T','R','I','N','G',' ','P','A',
     *'S','T',' ','E','N','D',' ','O','F',' ','L','I','N','E',' ',' '/
      DATA ER10/
     *'S','T','A','T','E','M','E','N','T',' ','T','O','O',' ','L','O',
     *'N','G',' ','A','F','T','E','R',8*' '/
      DATA ER11/
     *'A','B','B','R','E','V','I','A','T','I','O','N',' ','I','S',' ',
     *'N','O','T',' ','U','N','I','Q','U','E',6*' '/
      DATA ER12/
     *'I',' ','A','S','S','U','M','E',' ','Y','O','U',' ','M','E','A',
     *'N',15*' '/
C
      DATA NTEXT / 20, 20, 17, 20, 17, 31, 32, 32, 30, 24, 26, 26 /
      DATA BLANK / ' ' / , COLON / ':' /
      DATA NULITM / ' ','N','U','L','L',' ','I','T','E','M' /
C
      NT = NTEXT(ERNUM)
      IF (NCHARS.GT.0) THEN
      WRITE (ERUNIT,1000) (ERTEXT(I,ERNUM),I=1,NT),COLON,BLANK,
     *,                   (TOKEN(I),I=1,NCHARS)
 1000 FORMAT(' *** ',32A1,2A1,36A1,36A1)
      ELSE
      WRITE (ERUNIT,1000) (ERTEXT(I,ERNUM),I=1,NT),COLON,NULITM
      ENDIF
      RETURN
      END