CTITLESAJUST - LEFT JUSTIFY A CHARACTER STRING.
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA
CA    AUTHOR                 H. W. SWAN
CA    DESIGNER               H. W. SWAN
CA    SYSTEM                 IBM/CRAY
CA    LANGUAGE               VS FORTRAN VERSION 2.2
CA    WRITTEN                12-03-87
C     REVISED     05-23-91   JJC - CHANGED IMPLICIT NONE TO (A-Z).
C     REVISED     12-17-91   JJC - MODIFIED TO MEET SPARC STANDARDS.
CA
CA   CALLING SEQUENCE:
CA      STROUT = SAJUST(STRIN)
CA
CA   IN/OUT   ARGUMENT   TYPE   DESCRIPTION
CA   ------   --------   ----   -----------
CA
CA    OUT       SAJUST   C*(*)  THE LEFT-JUSTIFIED CHARACTER STRING
CA    IN        STR      C*(*)  THE GIVEN CHARACTER STRING
CA
CA
CA
CA   PURPOSE:
CA
CA     THIS FUNCTION LEFT-JUSTIFIES A CHARACTER STRING, REMOVING LEADING
CA      BLANKS.
CA
CA
CA   SUBROUTINES CALLED: NONE
CA
CA
CA   EXAMPLE:   SAJUST('  STRING  ') RETURNS 'STRING  '.
CA
      FUNCTION SAJUST(STR)
C
CJJ   IMPLICIT NONE
      IMPLICIT INTEGER (A-Z)
C

      INTEGER  LENGTH, I
      CHARACTER*(*) SAJUST, STR
C
      LENGTH = LEN(STR)
C
C  FIRST, LOOK FOR NONBLANK CHARACTERS:
C
      DO 100 I=1,LENGTH
           IF (STR(I:I) .NE. ' ') GO TO 200
 100       CONTINUE
C
C  WE GO HERE IF ALL THE CHARACTERS ARE BLANK.
C
      SAJUST = ' '
      RETURN
C
C  WE GO HERE WHEN WE'VE FOUND THE FIRST NONBLANK CHARACTER.
C
 200  SAJUST = STR(I:LENGTH)
      RETURN
      END