C*---------------------------------------------------------------------*
C|      T R 2 U P B :  TRANSLATE CHARACTERS TO UPPER CASE (BYTE)       |
C*---------------------------------------------------------------------*
      SUBROUTINE TR2UPB(LINE,LINLEN)
C
C     LINE   - LINE OF CHARACTERS TO TRANSLATE TO UPPER CASE
C     LINLEN - LENGTH (IN CHARACTERS) OF "LINE" TO TRANSLATE
C
C----------------------------------------------- SUBPROGRAM PARAMETERS
      BYTE LINE(1)
      INTEGER LINLEN
C----------------------------------------------- LOCAL DATA STRUCTURES
      BYTE LOWA,LOWZ,NSH
      DATA LOWA/'a'/, LOWZ/'z'/, NSH/32/
C----------------------------------------------- CHECK LINE LENGTH
      IF (LINLEN .LE. 0) RETURN
C----------------------------------------------- CHECK EACH CHARACTER
      DO 10 J=1,LINLEN
   10    IF (LINE(J).GE.LOWA .AND. LINE(J).LE.LOWZ) LINE(J)=LINE(J)-NSH
C----------------------------------------------- RETURN
      RETURN
      END