anchor.diff:  !FOX  D V RE INT BETA0  ;
   !FOX  D V RE INT ELE_R1 ;
   !FOX  D V RE INT ELE_R2 ;
  -!FOX  D V RE INT ER1_SQ ;
   !FOX  D V RE INT ELETR2 ;
   !FOX  D V RE INT ELENOR ;
   !FOX  D V RE INT ELESIG ;
  -!FOX  D V RE INT ESG_SQ ;
   !FOX  D V RE INT ELEBET ;
   !FOX  D V DA INT TMPRR  NORD NVAR ;
   !FOX  D V RE INT TMPCOF ;
  
positive.code:   !    yy = y(proton) - elens_offset_y
  !FOX  XI=(XX(1)-XFFSET) ;
  !FOX  YI=(XX(2)-YFFSET) ;
    if (st_debug) then
      call dapek(XI,hh,XA)
      call dapek(YI,hh,YA)
      write(lout,'(2(a,1pe23.16))')'ELENS> ELENS_KICK_FOX computing at XA=',XA,' - YA=',YA
    end if
    
  
negative.code: !FOX    FRR=FRR*((RV-ELEBET*BETA0)/(ONE-ELEBET*BETA0)) ;
        end if
      end if
     
  !FOX  YY(1)=YY(1)+(FRR*XI)/RR ;
  !FOX  YY(2)=YY(2)+(FRR*YI)/RR ;
    end if
  