procedure putseeing(fimage)

	struct *fimage {prompt="Data file"}

begin
	string image,imageb,imager,imagea,tel,dateb,tb,dater,tr,datea,ta
	real xb,psfb,xr,psfr,xa,psfa
	real opsfb,opsfr,opsfa,fpsfb,fpsfr,fpsfa

	while(fscan(fimage,image,tel,dateb,tb,xb,psfb,dater,tr,xr,psfr,datea,ta,xa,psfa) != EOF) {
	imageb=image//"_B.fits"
	imager=image//"_R.fits"
	imagea=image//"_Ha.fits"
	opsfb=psfb
	opsfr=psfr
	opsfa=psfa
	fpsfb=psfb
	fpsfr=psfr
	fpsfa=max(psfa,psfr)
	hedit(images=imageb,fields="C_PSF",value=fpsfb,add+,del-,verify-,show-,update+)
	hedit(images=imager,fields="C_PSF",value=fpsfr,add+,del-,verify-,show-,update+)
	hedit(images=imagea,fields="C_PSF0",value=opsfa,add+,del-,verify-,show-,update+)
	hedit(images=imagea,fields="C_PSF",value=fpsfa,add+,del-,verify-,show-,update+)
	}

end