*file member=anxx_cut_com library=snoman language=inc date=08:Nov:2004
     
 <<<*     ANX: ANXX Banks Processor. Criterion cuts for picking up bad channels.
     
    *     Contact:  M. Huang, Texas
     
    *     Program Notes:-
    *     =============
     
    *     Revision History:-
    *     ================
     
    *     5.01  M. Huang     First version.
    *           N. McCauley  Add flagging of old tubes.
     
     
    *   Following variables are criterion cuts for picking up bad channels*
     
          integer data_type,flag_old_tubes
          real    tac_lo, tac_up, qhs_lo, qhs_up, qhl_lo, qhl_up,
         +        qlx_lo, qlx_up,
         +        tac_cut, qhs_cut, qhl_cut, qlx_cut,
         +        tac_lo_cut, tac_hi_cut, qhs_lo_cut, qhs_hi_cut,
         +        qhl_lo_cut, qhl_hi_cut, qlx_lo_cut, qlx_hi_cut,
         +        low_occ_cut, gr_cut,
         +        orphan_cut, sync_fail_cut, cell_cut, high_occ_cut
     
          common /anxx_data_info/ data_type
          common /anxx_cut_com/
         +        tac_lo, tac_up, qhs_lo, qhs_up, qhl_lo, qhl_up,
         +        qlx_lo, qlx_up,
         +        tac_cut, qhs_cut, qhl_cut, qlx_cut,
         +        tac_lo_cut, tac_hi_cut, qhs_lo_cut, qhs_hi_cut,
         +        qhl_lo_cut, qhl_hi_cut, qlx_lo_cut, qlx_hi_cut,
         +        low_occ_cut, gr_cut,
         +        orphan_cut, sync_fail_cut, cell_cut, high_occ_cut,
         +        flag_old_tubes
     
    *endfile member=anxx_cut_com