procedure binccd (binning)

int	binning	=2	{prompt="CCD bin factor"}

begin
	int	nbin

	nbin = binning

	detpars.rowbin=nbin
	detpars.colbin=nbin

end