CTITLEUSLJST -- LEFT JUSTIFY A CHARACTER STRING
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       J. M. PONTON
CA    DESIGNER     J. M. PONTON
CA    LANGUAGE     VSFORTRAN
CA    SYSTEM       IBM S/370
CA    WRITTEN      01-17-85
C     REVISED      MO-DA-YR BY PROGRAMMER FOR REASON
CA
CA    CALL USLJST(STRING)
CA
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA    ------  --------  ----  -----------
CA    IN/OUT  STRING    CHAR  STRING TO BE LEFT-JUSTIFIED.
CA
CA    THIS SUBROUTINE REMOVES ANY LEADING BLANKS IN 'STRING' AND SHIFTS
CA    THE REST OF THE WORD, PADDING THE RESULT WITH BLANKS.
CA
C     EJECT
C
      SUBROUTINE USLJST(STRING)
C
      IMPLICIT INTEGER (A-Z)
C
      CHARACTER*(*) STRING
C
C         GET THE LENGTH OF THE STRING.
C
      NC = USLEN(STRING)
      IF (NC .EQ. 0) RETURN
C
C         FIND THE FIRST NON-BLANK CHARACTER.
C
      DO 10 I = 1, NC
      IF (STRING(I:I) .NE. ' ') GO TO 20
   10 CONTINUE
C
      RETURN
C
   20 CONTINUE
      SHIFT = I - 1
      IF (SHIFT .EQ. 0) RETURN
C
C          SHIFT THE STRING.
C
      STRING(I-SHIFT:NC-SHIFT) = STRING(I:NC)
C
C           PAD IT OUT WITH BLANKS.
C
      DO 30 I = 1, SHIFT
      STRING(NC-SHIFT+I:NC-SHIFT+I) = ' '
   30 CONTINUE
C
      RETURN
      END