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



