Name

---

      STRTRM2

Purpose

---

      Trim given character (and spaces) from ends of given string.

Category

---

Calling Sequence

---

      s2 = strtrm2(s1,[flag],[chr])

Inputs

---

      s1 = String to trim. in
      flag = 0: remove trailing in
              1: remove leading
              2: remove both. No flag same as 0.
      chr = character to trim (def = spaces). in

Keyword Parameters

---

Outputs

---

      s2 = trimmed string. Works just like strtrim. out

Common Blocks

---

Notes

---

Modification History

---

      Written by R. Sterner, 11 Jan, 1985.
      Johns Hopkins University Applied Physics Laboratory.
  Copyright (C) 1985, 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.