anchor.diff:      tsigscatave     = sigscatave
       tsigabsave      = sigabsave
     else
  -    tmeanadjust     = 0
  -    tsigsmeanadjust = 0
  -    tsigameanadjust = 0
  -    tsigave         = 0
  -    tsigscatave     = 0
  -    tsigabsave      = 0
  +    tmeanadjust     = 0.0d0
  +    tsigsmeanadjust = 0.0d0
  +    tsigameanadjust = 0.0d0
  +    tsigave         = 0.0d0
  +    tsigscatave     = 0.0d0
  +    tsigabsave      = 0.0d0
     endif
   
     end subroutine KLr_setmeans
  
positive.code:       endif
        KLzerosscat(1:size(KLzeros),j) = KLzeros
      endif
  
      deallocate(zlocmaster)
      deallocate(zvalmaster)
  
negative.code:   deallocate(zloc)
    deallocate(zval)
  
    if(flfindzeros) then
      !search in each cell which contains a zero and find the zero
      allocate(KLzeros(KLrmaxnumzeros))
      izero = 1
      do isec = 1,numslabsecs
        do ipt = 1,zlocsizes(isec)-1
          if(zvalmaster(ipt,isec)*zvalmaster(ipt+1,isec)<0) then
            !call zero finder and store
            KLzeros(izero) = KLr_findzeros(j,zlocmaster(ipt,isec),zlocmaster(ipt+1,isec), &
                                             zvalmaster(ipt,isec),zvalmaster(ipt+1,isec),chxstype,order=0) 
            izero = izero + 1
          endif
        enddo
      enddo
  
      !store zeros in absorb module array
      if(chxstype .eq. 'absorb') then
        if(.not.allocated(KLzerosabs)) allocate(KLzerosabs(KLrmaxnumzeros,numRealz))
  