function hrsmins,hour
; generates the hours:minitues string from 
;  hour and fraction
min=(hour-fix(hour))*60
if fix(min+.5) lt 10 then minstr='0'+str(fix(min+.5)) else minstr=str(fix(min+.5))
hrmins=str(fix(hour))+':'+minstr
if fix(hour) lt 10. then hrmins=' '+hrmins
return,hrmins
end