;+
; zprfits
;
; Given a fits header, print out the pointing information from it.
; Saves paging through the whole fits header to see stuff.
;
; USAGE: zprfits,hdr
;
; INPUT: hdr - a fits header to print the pointing information from.
;
; (q&d hack Craig DeForest 17-Feb-97)
;-
pro zprfits,hdr

type = (size(hdr))( ((size(hdr))(0)) + 1 )

if(type eq 7) then begin
	print,"INSTRUME - ",sxpar(hdr,'INSTRUME')
	print,"NAXIS    - ",sxpar(hdr,'NAXIS1'),sxpar(hdr,'NAXIS2')
	print,"CRPIX    - ",sxpar(hdr,"CRPIX1"),sxpar(hdr,'CRPIX2')
	print,"CRVAL    - ",sxpar(hdr,'CRVAL1'),sxpar(hdr,'CRVAL2')
	print,"CDELT    - ",sxpar(hdr,'CDELT1'),sxpar(hdr,'CDELT2')
	print,"CTYPE    - ",sxpar(hdr,'CTYPE1'),sxpar(hdr,'CTYPE2')
	print,"CROTA     - ",sxpar(hdr,'CROT')
end else if(type eq 8) then begin
	if(zcheck_hdr(hdr,/fix)) then begin
		print,'INSTRUME - ',safetag(hdr(0),'instrume')
		print,"NAXIS    - ",hdr(0).naxis1,', ',hdr(0).naxis2
		print,"CRPIX    - ",hdr(0).crpix1,', ',hdr(0).crpix2
		print,"CRVAL    - ",hdr(0).crval1,', ',hdr(0).crval2
		print,"CDELT    - ",hdr(0).cdelt1,', ',hdr(0).cdelt2
		print,"CTYPE    - ",hdr(0).ctype1,', ',hdr(0).ctype2
		print,"CROTA     - ",hdr(0).crota
	end else print, "ZPRFITS: Header does not contain pointing tags!"
end else $
	print, "ZPRFITS: Header must be a string array or hdr structure!"
end