Name

---

      REPWORD

Purpose

---

      Replace a word in a text string.

Category

---

Calling Sequence

---

      txt2 = repword(txt1, n, new, [old])

Inputs

---

      txt1 = original text string. in
      n = word number to replace (0 = first). in
      new = new word. in

Keyword Parameters

---

Keywords

---

        /COMPRESS compress out all extra white space.
        /TRIM trim white space front front and back.

Outputs

---

      old = optionally returned old word. out
      txt2 = modified text string. out

Common Blocks

---

Notes

---

      Notes: if n lt 0 then txt1 is returned.

Modification History

---

      R. Sterner. 22 Apr, 1988.
      R. Sterner, 4 Feb 1990 --- converted to SUN.
      Johns Hopkins University Applied Physics Laboratory.
  Copyright (C) 1988, 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.