function monthnames, number

Sz = size(number)
type = sz(sz(0)+1)

mos = ['jan', 'feb', 'mar', 'apr', 'may', 'jun', 'jul', 'aug', $
	'sep', 'oct', 'nov', 'dec']

if type ne 7 then return, mos(number-1 > 0) else begin
	num = fix(where(mos eq strlowcase(number)) +1)

if n_elements(num) eq 1 then num = num(0)

return, num

endelse

	end