_____________________________________________________________________


			       CQ
			      CQPEAK 
	Find the Cross correlation peak.
	Use REAL and COMPLEX files as storage registers to contain
	your results  ie.
	OPTION		MAP		REAL		COMP
	CQ	get the redshifts : MAPIC=3, MAPIR=4

______________________________________________________________________

 TYPE OPTIE                              22-OCT-1981 04:24:47.40
 >>>.CQ(TITLE=BLU 12)                                                               
 OPTION .CQ
 OPEN FILE WITH THE REAL CCF
 FILIR=REFT			!  See BT.DOC where this was created
 There are   3 maps in the file       
 Reading from the file
   76 rows of  512 pixels in R4 format
 MAPIR=3
 ROWI=1:76
 OPEN FILE WITH THE COMPLEX CCF"S
 FILIC=COFT
 There are   3 maps in the file       
 Reading from the file
   76 rows of  512 pixels in C8 format
 MAPIC=3
 PLOT=N
 TITLE=BLU 12
		!  For the redshift log.

 BLU 12
 MASK CHANNELS :          1       500
 INTEGER SHIFT :          0

 ROW   MIN   MAX   LOCAL  TOTAL

   1  0.00 18.84   -0.71   -0.71
   2  0.00 19.46   -0.28   -0.28
   3  0.00 19.18   -0.17   -0.17
	!  etc etc for 75 rows
	!  these are pixel shifts relative to the "templet"
  74  0.00 18.46   -0.33   -0.33
  75  0.00 18.82   -0.13   -0.13
  76  0.00 22.12    0.00    0.00
 STORE=N
_____________________________________________________________________