Procedure

     RJUST ( Right justify a character string )

     SUBROUTINE RJUST ( INPUT, OUTPUT )

Abstract

     Right 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, right justified.

Detailed_Input

     INPUT    is the input character string.

Detailed_Output

     OUTPUT   is the output character string, right justified.
              If INPUT is too large to fit into OUTPUT, it is
              truncated on the left.

              OUTPUT may overwrite INPUT.

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     Any trailing blanks in the input string are removed, and
     the remaining string is copied to the output string.

Examples

     The following examples should illustrate the use of RJUST.

        '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)
     W.L. Taber         (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.1.0, 12-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    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)