function shift_res,old_coord,fh=fh,fq=fq,hq=hq,hf=hf,qf=qf,qh=qh,$
	xx=xx,yy=yy,xy=xy

;+
;	NAME:	shift_res
;	PURPOSE:
;		To switch coordinates between resolutions.
;	CALLING SEQUENCE:
;		nu_coord=shift_res(old_coord,/xy,/fh)
;	INPUT:
;		old_coord, array of coordinates you wish to change
;	OUTPUT:
;		array of coordinates in the desired resolution
;	KEYWORD INPUT:
;		/xx	Only x coordinates.
;		/yy	Only y coordinates.
;		/xy	[x,y] array, change both coordinates
;		/fh	FR --> HR
;		/fq	FR --> QR
;		/hq	HR --> QR
;		/hf	HR --> FR
;		/qf	QR --> FR
;		/qh	QR --> HR
;	HISTORY:
;		LWA  2/13/95  Ref: Last page of YAG.
;-

out=float(old_coord)

if keyword_set(xy) then begin
   if keyword_set(fh) then begin
      out(0,*)=(old_coord(0,*)-1.)/2.
      out(1,*)=old_coord(1,*)/2.
   endif
   if keyword_set(fq) then begin
      out(0,*)=(old_coord(0,*)-3.)/4.
      out(1,*)=old_coord(1,*)/4.
   endif
endif

if keyword_set(xx) then begin
   if keyword_set(fh) then begin
      out=(old_coord-1.)/2.
   endif
   if keyword_set(fq) then begin
      out=(old_coord-3.)/4.
   endif
endif

if keyword_set(yy) then begin
   if keyword_set(fh) then begin
      out=old_coord/2.
   endif
   if keyword_set(fq) then begin
      out=old_coord/4.
   endif
endif

if keyword_set(qf) or keyword_set(hf) or keyword_set(qh) or $
	keyword_set(qh) then print, $
	"Sorry, that conversion not programmed yet!"

return,out

end