*file member=bank_scnt library=snoman language=inc date=04:Nov:2004
    *     BANK Mnemonics for SCNT bank.
 <<< 
    *     Contact:   N. Tagg Oxford
     
    *     Revision History:-
    *     ================
     
    *     5.00 N.Tagg       First version
     
    *     Program Notes:-
    *     =============
     
    *     Note that SCNT can be a bank of scintillator OR wavelength shifter.
     
          integer
         +     KSCNT_MX_SPEC
     
          integer
         +     KSCNT_NAME,
         +     KSCNT_QE,
         +     KSCNT_BIRKS,
         +     KSCNT_NUM_TIME_COMPONENTS,
         +     KSCNT_TIME_COMPONENTS,
         +     KSCNT_EMM_MODE,
         +     KSCNT_EMM_N,
         +     KSCNT_EMM_DATA,
         +     KSCNT_EMM_WAVELENGTHS,
         +     KSCNT_EMM_SPECTRUM,
         +     KSCNT_ABS_N,
         +     KSCNT_ABS_WAVELENGTHS,
         +     KSCNT_ABS_SPECTRUM,
         +     KSCNT_WLSQE_N,
         +     KSCNT_WLSQE_WAVELENGTHS,
         +     KSCNT_WLSQE_SPECTRUM
     
          parameter ( KSCNT_MX_SPEC = 20 )
     
          parameter (
         +     KSCNT_NAME                = 1,
         +     KSCNT_QE                  = KSCNT_NAME+5,
         +     KSCNT_BIRKS               = KSCNT_QE+1,
         +     KSCNT_NUM_TIME_COMPONENTS = KSCNT_BIRKS+1,
         +     KSCNT_TIME_COMPONENTS     = KSCNT_NUM_TIME_COMPONENTS+1,
         +     ! Emission profile:
         +     KSCNT_EMM_MODE            = KSCNT_TIME_COMPONENTS+10,
         +     KSCNT_EMM_N               = KSCNT_EMM_MODE +1,
         +     KSCNT_EMM_DATA            = KSCNT_EMM_N +1,
         +     KSCNT_EMM_WAVELENGTHS     = KSCNT_EMM_DATA,
         +     KSCNT_EMM_SPECTRUM        = KSCNT_EMM_DATA
         +                                     + KSCNT_MX_SPEC,
         +     ! Absoption profile:
         +     KSCNT_ABS_N               = KSCNT_EMM_SPECTRUM
         +                                     + KSCNT_MX_SPEC,
         +     KSCNT_ABS_WAVELENGTHS     = KSCNT_ABS_N + 1,
         +     KSCNT_ABS_SPECTRUM        = KSCNT_ABS_WAVELENGTHS
         +                                     + KSCNT_MX_SPEC,
         +     ! WLS QE profile:
         +     KSCNT_WLSQE_N             = KSCNT_ABS_SPECTRUM
         +                                     + KSCNT_MX_SPEC,
         +     KSCNT_WLSQE_WAVELENGTHS   = KSCNT_WLSQE_N + 1,
         +     KSCNT_WLSQE_SPECTRUM      = KSCNT_WLSQE_WAVELENGTHS
         +                                     + KSCNT_MX_SPEC
         +     )
     
    *endfile member=bank_scnt