PRO mkdummyh,year,month,day,hour,minute,second,camera,filter,exp_time,hb OPENR,t,'/jasper/cnsr3_data1/dummy.header',/GET_LUN hb=BYTARR(512) READU,t,hb FREE_LUN,t yr=FIX(year) IF yr LT 100 THEN IF yr LT 50 THEN yr=2000+yr ELSE yr=1900+yr csecond=0B hb(92)=yr/256 hb(93)=yr MOD 256 hb(90)=month hb(91)=day hb(97)=hour hb(96)=minute hb(99)=second hb(98)=csecond hb(1)=camera hb(0)=filter IF exp_time GT 1.0 THEN exp_scale=1000 ELSE exp_scale=1 exposure=ROUND((1000.D0*exp_time)/exp_scale) hb(78)=exp_scale/256 hb(79)=exp_scale MOD 256 hb(267)=exposure<255 RETURN END