Name

---

      NWRDS

Purpose

---

      Return the number of words in the given text string.

Category

---

Calling Sequence

---

      n = nwrds(txt)

Inputs

---

      txt = text string to examine. in

Keyword Parameters

---

Keywords

---

        DELIMITER = d. Set delimiter character (def = space).

Outputs

---

      n = number of words found. out

Common Blocks

---

Notes

---

      Notes: See also getwrd.

Modification History

---

      R. Sterner, 7 Feb, 1985.
      Johns Hopkins University Applied Physics Laboratory.
      RES 4 Sep, 1989 --- converted to SUN.
      R. Sterner, 2010 Apr 29 --- Converted arrays from () to [].
  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.