%
% routine to give month in alphanumeric
function [mth]=calday(num);
m=['  January';' February';'    March';'    April';'      May';'     June';'     July';'   August';'September';'  October';' November';' December'];
mth=m(num,:);
