pro copy_coordin, old_images, new_images

;Frank Varosi STX @ NASA/GSFC 1989.
;F.V. 1991, mod to use copy_struct_inx.

	Nim = check_struct( new_images, Magnew )
	Nold = check_struct( old_images, Magold )
	if (Nim LE 0) OR (Nold LE 0) then return

	match, old_images.Name, new_images.Name, wold, wnew

	Nmatch = N_elements( wold )

	if (Nmatch LE 0) then begin
		print," No corresponding images, no coordinates copied"
		return
	   endif else print," copying coordinates of",Nmatch,"  images"

	if (Magnew NE Magold) then	$
			new_images = magnify_images( new_images, MAG=Magold )

	copy_struct_inx, old_images, INDEX_FROM = wold,       $
			 new_images, INDEX_TO = wnew,         $
			SELECT=["LOCX", "LOCY",               $
				"ARCSX", "ARCSY", "LEVEL",    $
				"XMIN", "YMIN", "XMAX", "YMAX" ]
return
end