Procedure

     LJUST ( Left justify a character string )

     SUBROUTINE LJUST ( INPUT, OUTPUT )

Abstract

     Left-justify a character string.

Required_Reading

     None.

Keywords

     ASCII
     CHARACTER
     STRING

Declarations

     IMPLICIT NONE

     CHARACTER*(*)    INPUT
     CHARACTER*(*)    OUTPUT

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     INPUT      I   Input character string.
     OUTPUT     O   Output character string, left justified.

Detailed_Input

     INPUT    is the input character string.

Detailed_Output

     OUTPUT   is the output character string, left justified.

              OUTPUT may overwrite INPUT.

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     Leading blanks are removed from the input character string.
     If the output string is not large enough to hold the left
     justified string, it is truncated on the right.

Examples

     The following examples illustrate the use of LJUST.

            'ABCDE'             becomes   'ABCDE'
            'AN EXAMPLE'                  'AN EXAMPLE'
            '   AN EXAMPLE  '             'AN EXAMPLE'
            '               '             ' '

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     B.V. Semenov       (JPL)
     W.L. Taber         (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.2.0, 27-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.1.0, 29-JUL-2013 (BVS)

        Added the quick return branch for input strings that are
        already left-justified. Removed the initial check for blank
        input and changed logic to return an empty string after
        scanning the input. Re-ordered header sections.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (IMU)