SUBROUTINE CMCASE(INCHAR,  OUCHAR)                                $ASCII$
NOLINEUP
C
C     IF INPUT CHARACTER IS A LOWER CASE LETTER, CHANGE IT TO UPPER CASE
C     OTHERWISE, OUTPUT = INPUT
C     NOTE:  THIS ROUTINE IS VALID ONLY ON AN ASCII MACHINE.
C
C     INPUT:  INCHAR - CHAR*1 - CHARACTER TO BE UPPER-CASED
C     OUTPUT: OUCHAR - CHAR*1 - OUTPUT CHARACTER
C
      CHARACTER*1 INCHAR,  OUCHAR
      CHARACTER*1 LCASEA,LCASEZ,UCASEA
      DATA LCASEA / 'a' / , LCASEZ / 'z' / , UCASEA / 'A' /
C
      IASCII = ICHAR(INCHAR)
      OUCHAR = INCHAR
      IF (ICHAR(LCASEA).LE.IASCII .AND. IASCII.LE.ICHAR(LCASEZ))
     *OUCHAR = CHAR(IASCII-ICHAR(LCASEA)+ICHAR(UCASEA))
      RETURN
      END