# CL to combine a list of images 
#  By Richard Elston 9/17/95
#
procedure qcomb (inimage, offlist, inmask)

string inimage {prompt="List of input images"}
string offlist {prompt="Prefix name of output offset file"}
string inmask  {prompt="Prefix of mask image"}


begin
	string inlist
	inlist=inimage

hedit ("@"//inlist,
"BPM", inmask//".pl", add=yes, delete=no, verify=no, show=yes, update=yes)

imcomb ("@"//inlist,
offlist//".avg.imh", plfile=offlist//".pl", 
sigma=offlist//".sig.imh", logfile="STDOUT", combine="average",
reject="sigclip", project=no, outtype="real", offsets=offlist//".aln",
masktype="badvalue", maskvalue=0., blank=0., scale="none", zero="med",
weight="none", statsec="", expname="", lthreshold=INDEF, hthreshold=INDEF,
nlow=1, nhigh=1, nkeep=1, mclip=yes, lsigma=3., hsigma=3., rdnoise="0.",
gain="1.", snoise="0.", sigscale=0.1, pclip=-0.5, grow=0)

display (offlist//".avg.imh",1)

end