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
openw,logfil,'image2.log'
fname='image2'
reads,'image2',psf,nx,ny
np=1 &ip=1
gp=[0]
xp=[412] &yp=[420]
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='PCFULL'
lam=.547
obscsize=0.408
a=[0.,0.,2.735,0.,0.,0.,0.,-0.5]*0.547/lam
fun,x,a,f
close,logfil
stop
end