common /beam/ Ebeam,Pbeam,thbeam,thlab,kin,kout,Ki,Kf
      real Ebeam,Pbeam,thbeam,thlab,kin,kout,Ki,Kf
      real pi,me
      parameter (pi=3.1415926535898)
      parameter (me=0.511e-3)