pro run_uarsday

m=3
for day=17,31 do begin
UARSDAY,[1998,m,day,0.0],UD
print,m,day,UD
endfor

m=4
for day=1,13 do begin
UARSDAY,[1998,m,day,0.0],UD
print,m,day,UD
endfor

end