Name

---

      ROUND2

Purpose

---

      Round that works for big double precision numbers.

Category

---

Calling Sequence

---

      out = round2(in)

Inputs

---

      in = input number or array. in

Keyword Parameters

---

Outputs

---

      out = Rounded result. out

Common Blocks

---

Notes

---

      Notes: works for both floats and doubles, returns
        long result for float and double for double.
        Example: round2(9000000001.4999d0) gives
        9000000001.00000

Modification History

---

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