!  runcard_m.f90
!
!  Module defining parameters for running genesis 
!
!  Axel Drees, Uni Heidelberg, September 1997
!
module runcard_m
    use f90_kind
!
!
! general control variables
!
   integer :: nevents     ! total number of events
   integer :: nch         ! nch per event (only nevents*nch important)

   real    :: bpar            ! impact parameter (not used)
   real    :: theta_lower     ! lower acceptance cut-off
   real    :: theta_upper     ! upper acceptance cut-off
   real    :: pt_min          ! pt-cut

   logical :: write_hb             ! store histogram and ntuple output
   logical :: write_data           ! store pairs in data file

   character(len=64) :: hbfile     ! histogram file
   character(len=64) :: outfile    ! data output file
   character(len=64) :: resfile    ! resource file

   common /runc/ nevent,nch,bpar,theta_lower,theta_upper,pt_min &
                ,write_hb,write_data,hbfile,outfile,res_file
  
end module runcard_m