;+
; NAME: ircal_dewarp_shifts 
; PURPOSE:
;		convert a list of image shifts from raw IRCAL coords
;		to dewarped coords
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2006-06-21 15:28:58 by Marshall Perrin 
;-

PRO ircal_dewarp_shifts,infile,outfile,platescale=platescale

	if ~(keyword_set(platescale)) then platescale=0.040 ; Nyquist at J for Lick.
	@instruments.include
	scalex = ircal.platescale
	scaley = ircal.platescale_y


	readcol,infile,inx,iny

	outx = inx * scalex / platescale
	outy = iny * scaley / platescale
	forprint,textout=outfile,outx,outy,/nocomment
	

	

end