Step 6:- FT1_FITTER_DEL.FOR

This routine carries out the deleting of FT1 fitter output if requested.

*file member=ft1_fitter_del library=snoman language=fortran77
*file                                          date=25:Nov:1994
 
      subroutine ft1_fitter_del(iretc)
 
                      :
                      :
                      :
                    HEADER
                      :
                      :
                      :
 
*     Local Variable Declarations:-
*     ===========================
 
      integer           I_FIT_MASK_BIT
      parameter        (I_FIT_MASK_BIT =   KPF_FT_MASK + KFT_USER1)
 
      integer           l_pmt
 
 
      iretc = KSU_OK
 
**    Loop over all EVs dropping all FT1* banks and clearing
**    FT1 bits in PF.
 
      lev = lq(lmast - KMAST_EV)
 
      do while (lev .gt. 0)
        lft = lq(lev - KEV_FT)
 
        if (lft .gt. 0) then
*         If current selected FTx link of FT bank points
*         to FT1, clear it.
          if ( lq(lft - KFT_FTX_CUR) .eq. lq(lft - KFT_FT1) )
     +                                 lq(lft - KFT_FTX_CUR) = 0
          call mzdrop( 0 , lq(lft - KFT_FT1) , 'L' )
        endif
 
        lpf = lq(lev - KEV_PF)
 
        if (lpf .gt. 0) then
          do l_pmt = lpf + 1 , lpf + iq(lpf-1)
            iq(l_pmt) = ibclr( iq(l_pmt) , I_FIT_MASK_BIT )
          enddo
        endif
 
        lev = lq(lev)
      enddo
 
 
      return
      end
 
*endfile member=ft1_fitter_del

If it is requested that the output banks from the FT1 fitter be deleted then that task is carried out by this routine. The user need change nothing.