;+
; NAME:
;	ZMKHDR
; PURPOSE:
;	Make a minimal primary FITS image header with pointing information.
;	The header is returned in the first argument.
;
; CALLING SEQUENCE:
;	zmkhdr,header,[im],[<keywords>]
;
;-
pro zmkhdr_foo,hdr,names,vals
case n_elements(names) of 
	1: begin
		if(n_elements(vals) eq 1) then 	sxaddpar,hdr,names,vals 
	   end
	2: begin
		if(n_elements(vals) eq 1) then begin
			sxaddpar,hdr,names(0),vals
			sxaddpar,hdr,names(1),vals
		end else if(n_elements(vals) eq 2) then begin
			sxaddpar,hdr,names(0),vals(0)
			sxaddpar,hdr,names(1),vals(1)
		end
	  end
 	else: begin
	      end
end
end
	
pro zmkhdr,hdr,im,crpix=crpix,cdelt=cdelt,ctype=ctype,crot=crot,reflect=reflect

if(n_elements(hdr) lt 2) then mkhdr,hdr,im

if(isvalid(crpix))   then zmkhdr_foo,hdr,["CRPIX1","CRPIX2"],crpix
if(isvalid(cdelt))   then zmkhdr_foo,hdr,["CDELT1","CDELT2"],cdelt
if(isvalid(ctype))   then zmkhdr_foo,hdr,["CTYPE1","CTYPE2"],ctype
if(isvalid(crot ))   then zmkhdr_foo,hdr,"CROT",crot $
	else zmkhdr_foo,hdr,"CROT",0
if(isvalid(reflect)) then zmkhdr_foo,hdr,"REFLECT",reflect $
	else zmkhdr_foo,hdr,"REFLECT",0
end