Pro colddescents

;This program makes a list of the descents with temperatures below 290K.
;in the disr3_cal directory.

cd,'',current=cdir & cd,cdir
cd,'D:\disr3_cal'



exit:
cd,cdir
end