*file member=acf_evalconst library=snoman language=inc date=01:Nov:2001
     
 <<<*       File acf_evalconst.inc
    *       Contains definitions of constants used in the program.
    *       Also contains a common block
     
    *       NBina = the number of bins used in event correlation functins
    *                vs. cosine of angle.
    *       NBinb = the number of bins used to cover angular range from
    *               0 to 180 degrees.
    *       Nbinc = number of bins used in sample correlation functions
     
            integer NBina,NBinb,NBinc
            parameter (NBina=40,NBinb=90,NBinc=100)
     
    *       Number of possible fitters
    *       Fitter types are defined in acf_angcormain.for
            include 'su_mnemonics.inc'
            integer NFitters
            parameter (NFitters=KSU_FT_MAX)
     
    *       Maximum number of hits provided for in arrays
            integer maxhits
            parameter (maxhits=10000)
     
    *       c_acf = speed of light in water in cm/ns
    *       TWindow = width of Residual Time Cut Window (in ns)
    *       (21.75 is the velocity of light in water recommended by Josh in
    *        cm/ns; a 8 ns window is allowed)
            real c_acf,TWindow
            parameter (c_acf=21.75,TWindow=8.)
     
    *       MaxEvtType = maximum number of event types for which standard
    *       angular correlation functions and chi-sq PDFs can be input.
    *       Currently providing only for only two types:  electron and NCsalt
            integer NEvtType,MaxEvtType
            parameter (MaxEvtType=2)
            character*8 evttype
            common/evttypes/ NEvtType,EvtType(MaxEvtType)
    *       The following statements appear in acf_exe
    *       data NEvtType/2/
    *       data EvtType/'electron','NCsalt  '/
    *endfile member=acf_evalconst