Name

---

      DIMSZ

Purpose

---

      Return size of requested array dimension.

Category

---

Calling Sequence

---

      n = dimsz(arr,dim)

Inputs

---

      arr = Array in
      dim = Which dimension (1,2,3,...). in
        If dim is 0 return number of dimensions.

Keyword Parameters

---

Outputs

---

      n = returned size of dimension dim. out
          0 if that dimension does not exist.

Common Blocks

---

Notes

---

Modification History

---

      R. Sterner, 2004 Jul 27
      R. Sterner, 2004 Sep 14 --- Made dim of 0 return number of dimensions.
      R. Sterner, 2010 May 03 --- Converted arrays from () to [].
  Copyright (C) 2004, 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.