NAME:
	select_ccd
 PURPOSE:
       select object which have the given ccdno. Returns a list containing all
	the index nos of ccdno where ccdno=no and out=in(where(ccdno eq no))
 CALLING SEQUENCE:
	select_ccd(ccdno,no[,in1,out1,in2,out2,in3,out3,in4,out4])
 INPUTS:
	ccdno: vector of ccdnos (integers)
	no: value of ccdno to be selected
 OPTIONAL INPUT PARAMETERS:
	in1,in2,in3,in4: vectors with same no of elements as ccdno
 OPTIONAL OUTPUT PARAMETERS:
	out1: in1(where(ccdno= eq no)), same for out2,out3,out4
		output vectors are 555 if list=-1
 EXAMPLE:
	list=select_classes(ccdno,1,mag,magout,class,classout)
 MODIFICATION HISTORY:
	02-Nov-2000  Original by Suzanne Aigrain

(See /home/xmmssc/soft/idl/pro/wfcqc/select_ccd.pro)