anchor.diff:          end do
           if (st_debug) then
             call dapek(FRR,hh,FRRA)
  -          write(lout,'(a,1pe22.15)') "ELENS> ELENS_KICK_FOX: FRRA 1:", FRRA
  +          write(lout,'(a,1pe23.16)') "ELENS> ELENS_KICK_FOX: FRRA 1:", FRRA
           end if
   !FOX    FRR=(FRR/ELENOR)*(ELE_RR/RR) ;
           if (st_debug) then
             call dapek(FRR,hh,FRRA)
  -          write(lout,'(a,1pe22.15)') "ELENS> ELENS_KICK_FOX: FRRA 2:", FRRA
  +          write(lout,'(a,1pe23.16)') "ELENS> ELENS_KICK_FOX: FRRA 2:", FRRA
           end if
           call dealloc(cof,'cof')
           
  
positive.code:   use numerical_constants, only : zero, one, two, c1m15, c1m7
    use mod_utils, only : huntBin, polcof, polinterp
    use mod_lie_dab, only : lnv, idao, rscrri, iscrda
    use mod_common_track, only : comt_daStart, comt_daEnd
    use mod_common_da
    use mod_alloc, only: alloc, dealloc
  
  
negative.code:     end if
      if (st_debug) then
        call dapek(FRR,hh,FRRA)
        write(lout,'(a,1pe23.16)') "ELENS> ELENS_KICK_FOX: FRRA 3:", FRRA
      end if
      
  !FOX  YY(1)=YY(1)+(FRR*XI)/RR ;
  