;+ ;FUNCTION: ndimen ;PURPOSE: ; Returns the number of dimensions in an array. ;INPUT: array ;RETURNS number of dimensions (0 for scalers,-1 for undefined) ; ;SEE ALSO: "dimen", "data_type" ; ;CREATED BY: Davin Larson ;LAST MODIFICATION: @(#)ndimen.pro 1.6 97/03/10 ;- function ndimen,matrx ;returns number of dimensions in a variable if n_elements(matrx) eq 0 then return ,-1l ;bp n = size(matrx) return, n[0] end