procedure preproc (inlist)

string inlist {prompt="list of standard images"}
real   lincor1 { prompt="Coefficient 1 for IRlincor"}
real   lincor2 { prompt="Coefficient 2 for IRlincor"}
real   lincor3 { prompt="Coefficient 3 for IRlincor"}

begin

#noao
#imred
#ccdred
#ctio

#irlincor (inlist,
#inlist , section="", coeff1=lincor1, coeff2=lincor2, coeff3=lincor3)

rotate (inlist,
inlist, 90., xin=INDEF, yin=INDEF, xout=INDEF, yout=INDEF, ncols=256.,
nlines=256., interpolant="near", boundary="nearest", constant=0., nxblock=256,
nyblock=256)

hedit (inlist, "dispaxis", 1, ver-, add+)
hedit (inlist ,"LTV1" ,del+ ,ver-)
hedit (inlist ,"LTV2" ,del+ ,ver-)
hedit (inlist ,"LTM1_1" ,del+ ,ver-)
hedit (inlist ,"LTM2_1" ,del+ ,ver-)
hedit (inlist ,"LTM1_2" ,del+ ,ver-)
hedit (inlist ,"LTM2_2" ,del+ ,ver-)

end