procedure preproc (inlist)

string inlist {prompt="list of standard images"}
string trimrej { prompt="Section of image with spectra"}
#string biasrej { prompt="Section of image to uses as bias region"}
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)

ccdproc (inlist,
ccdtype="", max_cache=0, noproc=no, fixpix=no, overscan=no, trim=yes,
zerocor=no, darkcor=no, flatcor=no, illumcor=no, fringecor=no, readcor=no,
scancor=no, readaxis="line", fixfile="", 
trimsec=trimrej, zero="", dark="", flat="", illum="", fringe="",
minreplace=1., scantype="shortscan", nscan=1, interactive=no,
function="legendre", order=1, sample="*", naverage=1, niterate=1,
low_reject=3., high_reject=3., grow=0.)

	end