*file member=anxx_cell_check library=snoman language=fortran77
    *file date=12:Jul:2004
     
 <<<      subroutine anxx_cell_check(lcn,icell,iflag)
     
    *     ANX: ANXX Banks Processor; Check if the cell id is incremented properly.
     
    *     Contact:  M. Huang,  Texas
     
    *     Parameters:-
    *     ==========
     
    *     lcn    in    integer  logical channel number
    *     icell  in    integer  cell number of lcn channel
    *     iflag  out   logical  .true.  means cell id incremented properly
    *                           .false. means cell id incremented wrong
     
    *     Revision History:-
    *     ================
     
    *     5.00     M. Huang     First version.
     
          implicit none
     
          include 'anxx_count_com.inc'
     
     
    *     Arguments Declarations:-
    *     ======================
     
          integer lcn, icell
          logical iflag
     
     
    *     Local Variable Declarations:-
    *     ============================
     
          integer pmt_cell(0:npmt)
          save pmt_cell
     
     
          if ( first_cell_call(lcn) ) then
             pmt_cell(lcn) = icell + 1
             if ( pmt_cell(lcn) .eq. 16) pmt_cell(lcn) = 0
             first_cell_call(lcn) = .false.
             iflag = .true.
          else
     
             if (icell .eq. pmt_cell(lcn) ) then
                pmt_cell(lcn) = pmt_cell(lcn) + 1
                if ( pmt_cell(lcn) .eq. 16) pmt_cell(lcn) = 0
                iflag = .true.
             else
                pmt_cell(lcn) = pmt_cell(lcn) + 1
                if ( pmt_cell(lcn) .eq. 16) pmt_cell(lcn) = 0
                iflag = .false.
             endif
     
          endif
     
          return
          end
     
    *endfile member=anxx_cell_check