*file member=additives library=snoman language=inc date=04:Nov:2004
    *     Data for media additives.
 <<< 
    *     Contact:   N. Tagg Oxford
     
    *     Revision History:-
    *     ================
     
    *     5.00 N.Tagg       First version
     
    *     Program Notes:-
    *     =============
     
    *     Common blocks for doing things with optical additives.
    *     See also bank_scnt.inc
     
    *     Max scintillator media bank number.
          integer kadditive_mx_banks
          parameter (kadditive_mx_banks = 200)
     
    *     Links to SCNT additive banks.
          integer scnt_ref_links(kadditive_mx_banks),
         +        scnt_lascnt(8,kadditive_mx_banks)
     
    *     One value/bank: normalization of scintillation spectrum
          real    scint_spec_norm(kadditive_mx_banks)
     
    *     Like table in xattenuation.inc, but these
    *     are one per SCNT bank, and have prob/unit length
    *     that the stuff fluorecses (i.e. wavelenght-shifts) as a function
    *     of wavelength:
          REAL    add_fluoresce(KADDITIVE_MX_BANKS,ilam_start:ilam_end)
     
          COMMON /ADDITIVES/ scnt_ref_links, scnt_LASCNT
          COMMON /ADDITIVES/ scint_spec_norm
          COMMON /ADDITIVES/ add_fluoresce
     
    *endfile member=additives