;  This program takes in the number of the month (ex. 1) and returns
;  the string abreviation of the month (ex. Jan)

pro month_num_to_name,num_month,text_month

if num_month eq 1 then text_month='Jan' $
else if num_month eq 2 then text_month='Feb' $
else if num_month eq 3 then text_month='Mar' $
else if num_month eq 4 then text_month='Apr' $
else if num_month eq 5 then text_month='May' $
else if num_month eq 6 then text_month='Jun' $
else if num_month eq 7 then text_month='Jul' $
else if num_month eq 8 then text_month='Aug' $
else if num_month eq 9 then text_month='Sep' $
else if num_month eq 10 then text_month='Oct' $
else if num_month eq 11 then text_month='Nov' $
else if num_month eq 12 then text_month='Dec' 

return
end