PRO xcorr_template, specm, nccf, ix1, ix2, template, wave, star


; Construct template for ccf


; copy good values from specm within range ix1:ix2

template = fltarr(nccf)
template(ix1:ix2) = specm(ix1:ix2) - 1.0
IF (ix1 gt 1)      THEN template(0:ix1-1) = 0
IF (ix2 lt nccf-2) THEN template(ix2+1:nccf-1) = 0

; snip out bad pixels


IF ( n_elements(star) EQ 0 ) THEN star = ' '

;; KPD 2109+4401

IF ( star eq 'KPD2109+4401' ) THEN BEGIN
   IF (nccf gt 539)  THEN template(545:548) = 0.
   IF (nccf gt 796)  THEN template(792:795) = 0.
   IF (nccf gt 1038) THEN template(1034:1037) = 0.
ENDIF 

;; PB8783

IF ( star eq 'PB8783' ) THEN BEGIN
   IF (nccf gt 550)  THEN template(557:561) = 0.
   IF (nccf gt 800)  THEN template(806:808) = 0.
   IF (nccf gt 1038) THEN template(1049:1051) = 0.
ENDIF 

;; PB8783

IF ( star eq 'PB8783 theory' ) THEN BEGIN
   IF (nccf gt 550)  THEN template(557:561) = 0.
   IF (nccf gt 800)  THEN template(806:808) = 0.
   IF (nccf gt 1038) THEN template(1049:1051) = 0.
ENDIF 

END