anchor.diff:    use mod_settings, only : st_debug
     use crcoall, only : lout, lerr
     use mod_common_main
  -  use numerical_constants, only : zero, one, two, pieni
  +  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
  
positive.code: !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 ;
  
negative.code: !FOX  1 if(1==1) then
  !-----------------------------------------------------------------------
  
    epsilon=c1m15
    gteps=one+epsilon
    lteps=one-epsilon
  
    iLens=ielens(ix)
    XFFSET=elens_offset_x(iLens)
  