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

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