Name

---

      LASTCHR

Purpose

---

      Set last character of a string, add if needed.

Category

---

Calling Sequence

---

      out = lastchr(in,chr)

Inputs

---

      in = input text string. in
      chr = character to be last. in

Keyword Parameters

---

Keywords

---

        /REMOVE removes given last character if there.

Outputs

---

      out = modified text string. out

Common Blocks

---

Notes

---

      Note: if input string was already correct nothing is changed.

Modification History

---

      R. Sterner, 2001 Oct 15
      R. Sterner, 2002 Mar 22 --- Added /REMOVE.
  Copyright (C) 2001, Johns Hopkins University/Applied Physics Laboratory
  This software may be used, copied, or redistributed as long as it is not
  sold and this copyright notice is reproduced on each copy made. This
  routine is provided as is without any express or implied warranties
  whatsoever. Other limitations apply as described in the file disclaimer.txt.