n/cut $1 ipiflg.eq.0.and.(tpi-tk).gt.2.and.pr_rf.gt.0.02
n/cut $2 $1.and.abs(cos3d).lt.0.1.and.abs(ptot-205).lt.10.and.trs.lt.45
h/cr/1d 1000 ' ' 50 -10. 10.
n/proj 1000 1.(sqrt(ptot**2+139.57**2)-sqrt(pdc**2+139.57**2)-etot+ers) $2