common comp,r,x1,y1,t,cx,cy,ax,ay,fo,sa,clx,cly,sax,say,ashx,ashy,tx,ty
common mpsf,nx,ny,np,psfm,wp,xp,yp,gp
common kluge,nxf,nyf
common done,done,crve,iscr
common numb,n
common filen,fname,logfil
common prtt,wave,mfc
common iter,titer
common spher,csph
common camer,camera,lam
common batch, inter
common wfpc, obscsize

reads,'image3',psf,nx,ny
np=1 &ip=1
gp=[1]
xp=[432] &yp=[396]
wp=[1.]
psfm=fltarr(nx,ny,1)
psfm(0,0,0)=psf
done=0 & crve=1 & iscr=1
n=300
logfil=99
openw,logfil,'image3.log'
fname='image3'
titer=-1
csph=0.
camera='PCFULL'
lam=.487
obscsize=0.42
a=[0.,0.,-1.157,0.,0.,0.,0.,-0.5]*0.547/lam
fun,x,a,f
close,logfil
stop
end