Name

---

      APODIZE

Purpose

---

      Weighting array for apodizing an image. Cosine taper.

Category

---

Calling Sequence

---

      a = apodize(w, r)

Inputs

---

      w = size of square array a to make. in
      r = radius of flat top as a fraction 0 to 1. in

Keyword Parameters

---

Outputs

---

      a = resulting array. out

Common Blocks

---

Notes

---

      Notes: Output array is square. To convert to rectangular
          use congrid to specify desired size and shape:
          b = congrid(a, 100,50)

Modification History

---

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