;+
; NAME: hdrcopy
; PURPOSE:
; 	copy keys from one header to another
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2005-05-15 05:14:16 by Marshall Perrin 
;-

pro hdrcopy, hdr1, hdr2, keys=keys

; Default is Kermit & Coronagraph keys
if ~(keyword_set(keys)) then $
keys = ["CORTYPE", "IMAGETYP", "OBJECT", "COMMENT", "PROGRAM", "MOTORS", "FILTER", "PUPILMSK", "M2SLIDE", $
"FOCUS", "EXP_MODE", "START_BY", "VMAG", "LST", "RA", "DEC", "RA2000", "DEC2000", "HANGLE", "AIRMASS", $
"PARANGLE", "ALTITUDE", "AZIMUTH", "LENSX", "LENSY", "LCVRMODE", "LCVRV1", "LCVRV2", "FSM_LOOP", "ND", $
"DET_TEMP", "COLDTEMP", "IMGFMT", "IMGFMT"] 



for i=0L,n_elements(keys)-1 do begin
	v = sxpar(hdr1,keys[i],count=count,comment=comment)
	; hack to avoid getting an error from sxaddpar if there are multiple
	; comments
	if keys[i] eq 'COMMENT' then v = v[0]
	sxaddpar,hdr2,keys[i],v,comment
endfor 


end