;+ ;FUNCTION: dimen2 ;INPUT: matrix ;RETURNS: scaler int: size of second dimension (1 if dimension doesn't exist) ; ;CREATED BY: Davin Larson ;LAST MODIFICATION; @(#)dimen2.pro 1.3 95/08/24 ;- function dimen2, matrx s = size(matrx) if s[0] lt 2 then return,1 ; scalar or one dimensional return, s[2] end