* based on CJ2.0 with 600 instead of 688 straight section
* HMS 11-16-99
* EAH added lepto parameters 2/1/00

      parameter (straight = 60000)
      parameter (sin2tw = .2253)
      parameter (ndecays = 50000)
      parameter (output = .false.)    ! write output record
      parameter (polarize = 999.)  ! 1  -> spin along momentum vector
      parameter (qmu = -1.)    ! muon charge (+1 or -1)
      parameter (npbeam = 50.)    ! nominal beam momentum (GeV/c)
      parameter (dpbeam = 0.01)  ! percent spread
      parameter (sigma_dx = 0.00073)  ! Horizontal beam divergence (radians)
      parameter (sigma_dy = 0.00073)  ! Vertical beam divergence (radians)
      parameter (sigma_x = 1.2333)  ! Horizontal beam size (cm)
      parameter (sigma_y = 0.8833)  ! Vertical beam size (cm)
      parameter (m_d = 1.0)   ! detector thickness (g/cm^2)
      parameter (n_a = 6.0E+23)    ! avagadro
      parameter (emass = 0.0005109990615)
      parameter (mumass = 0.105658389)
      parameter (twopi = 6.28318530717958648)
      parameter (n_mu = 1.E+20)

c  parameters for lepto
      parameter (leptoflag = .true.) ! generate lepto event

c select type of incident neutrino
      parameter (lepin = 14) ! 14=numu, 12=nue, -14=numubar, -12=nuebar

      parameter (interaction = 2) ! 2=charged current, 3=neutral current
      parameter (nucleon = 1) ! nucleon hit by neutrino 1=proton, 2=neutron
      parameter (targa = 1.0) ! A of target nucleus
      parameter (targz = 1.0) ! Z of target nucleus

c detector effiecencies 

      parameter (shadcal = 0.80) !hadron calorimeter eff.
      parameter (semcal = 0.20)  !EM calorimeter eff.
      parameter (smucal = 0.10)  !muon energy measurement eff.
      parameter (sthnu = 1.0)    !uncertainty in incident nuetrino angle in mrad
      parameter (sthmum = 3.0)   !uncertainty in measured muon angle in mrad