;+
; NAME:
;  nxnyn
; PURPOSE: (one line)
;  Return dimentions of a cube
; DESCRIPTION:
;  
; CATEGORY:
;  Util
; CALLING SEQUENCE:
;  nxnyn, d, nx, ny, n
; INPUTS:
;  d - a 3-d array of size [nx, ny, n]
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  nx, length of 1st dimension
;  ny, length of 2nd dimension
;  n   length of 3rd dimension (or 1 if d is 2d)
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
; RESTRICTIONS:
;  None
; PROCEDURE:
; MODIFICATION HISTORY:
;  2005 Mar 16 Leslie Young SwRI Moved to layoung/util
;-

pro nxnyn, d, nx, ny, n
; find the x and y dimensions of a 2-D array
  sz = size(d)
  nx = sz[1]
  ny = sz[2]
  if sz[0] eq 2 then n = 1 else n = sz[3]
end