Name

---

      NUMPERSEC

Purpose

---

      Given values increasing with time return rate per second.

Category

---

Calling Sequence

---

      rate = numpersec(num)

Inputs

---

Keyword Parameters

---

Keywords

---

        DELTA=nsec Initialize minimum estimate interval (sec).
          Must do first, also give first value on init call:
          Ex: rate0 = numpersec(0,delta=60). Ignore rate0.

Outputs

---

Common Blocks

---

      numpersec_com

Notes

---

      Notes: will only do a new estimate every delta seconds,
        else returns previous estimate.

Modification History

---

      R. Sterner, 1998 Jun 7
  Copyright (C) 1998, 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.