C*---------------------------------------------------------------------*
C|      T R 2 L W B :  TRANSLATE CHARACTERS TO LOWER CASE (BYTE)       |
C*---------------------------------------------------------------------*
      SUBROUTINE TR2LWB(LINE,LINLEN)
C
C     LINE   - LINE OF CHARACTERS TO TRANSLATE TO LOWER CASE
C     LINLEN - LENGTH (IN CHARACTERS) OF "LINE" TO TRANSLATE
C
C----------------------------------------------- SUBPROGRAM PARAMETERS
      BYTE LINE(1)
      INTEGER LINLEN
C----------------------------------------------- LOCAL DATA STRUCTURES
      BYTE BIGA,BIGZ,NSH
      DATA BIGA/'A'/, BIGZ/'Z'/, NSH/32/
C*---------------------------------------------------------------------*
C
C----------------------------------------------- CHECK LINE LENGTH
      IF (LINLEN .LE. 0) RETURN
C----------------------------------------------- CHECK EACH CHARACTER
      DO 10 J=1,LINLEN
   10    IF (LINE(J).GE.BIGA .AND. LINE(J).LE.BIGZ) LINE(J)=LINE(J)+NSH
C----------------------------------------------- RETURN
      RETURN
      END