common camer,camera,lam
done=0 & crve=1 & iscr=1
n=256&camera='WFFULL'&lam=0.368&csph=0.0
infil=4 & openr,infil,'W0BM0103B.in'
   readf,infil,n,lam,csph,crve 
   readf,infil,camera
   scale,m,pm
   print,'Oversampling :',m,'Pupil Magnification :',pm,' Maximum psf size :',n/m
print,' n,camera,csph,crve,iscr,lam=',n,camera,csph,crve,iscr,lam
   nc=0& readf,infil,nc
   print,nc
   ac=fltarr(nc)
   for i=0,n_elements(ac)-1 do begin
        readf,infil,temp 
        ac(i)=temp
        print,i,temp,ac(i)
   endfor
   ac=ac*0.547/lam
print,'ac=',ac
;       Print it out
print,' Starting position:'
printa,ac,0
stop
end