%N padleft %F $MIR/src/subs/string.for
%D Right justify a string to length characters.
%P rjs
%: strings
%B
      subroutine padleft(string, length)

      character string*(*)
      integer length
  ---------------------------------------------------------------------
  Right-justify a string to a specified length.

  Inputs:
    string        The string to be padded.
    length        The length of the string after padding.
  Outputs:
    string        The string with spaces added to the left.
