NAME:
	ellip_wfc
 PURPOSE:
       this program makes ellipticity histogram plots of objects from a 
	'wfc' database produced from an unmerged file for different 
	classifications, for each ccd. 
	It produces a ps file or 4 gif files or outputs to screen
 CALLING SEQUENCE:
	ellip_wfc,wfcdb,wfc_image[,ps=ps,gif=gif,col=col]
 INPUTS:
	wfcdb:The wfc database to be searched. Must start with 'dbase/... '
	wfc_image: the image 
 OPTIONAL OUTPUT KEYOWRDS:
	ps: file name of the output ps file 
	gif:root file name of the 4 output gif files. Only active if ps is 
		not set. (will have gif_1.gif, gif_1.gif,...)
	If neither set the output is sent to an IDL graphics window
	field: STRING: name of field ie directory where the wfc/ dir is
 EXAMPLE:
	ellip_wfc,'wfc','r219698'[,ps='ellip_i_wfc']
 CALLED PROCEDURES:
	astrolib procedures,select_classes,wcs_zpn,mk_plot_ellip,oplot_ellip
	opgif,cgif,ops,cps,select_ccd
 MODIFICATION HISTORY:
	31-Oct-2000  Original by Suzanne Aigrain

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