function resize3,im,cam

;
; PURPOSE: make im correct size for taking strip
;
; MODIFIED: 961011 by N. Rich to take 1024x576 image
;	    961120 by N. Rich to take c1 832x672 image; also changed to function
;	961202 by N. Rich to accept any ysize for im
;

   backim = fltarr(1024,1024)
   sz=SIZE(im)
   IF cam EQ 'c1' THEN BEGIN
	im = CONGRID(im,1024,1024)
	backim(0,98) = im(*,*)
 	im = backim
   ENDIF
   IF sz(2) LT 1024 THEN BEGIN
	bottom = (1024 - sz(2))/2 + 1
	backim(*,bottom:1024-bottom+1) = im(*,*)
	im = backim
   ENDIF
   IF (sz(1) eq  sz(2)) AND (sz(1) eq 512) then im=rebin(im,1024,1024)

   return,im
END