anchor.diff:    integer, intent(in) :: i
     integer, intent(in) :: ix
   
  -  integer          :: idaa, jj, morder, nn, mm, ll, oo
  -  integer          :: hh(lnv)=0
  -  real(kind=fPrec) :: rra, xa, ya, ax, ay, xclo, yclo, angrad, cscal, dxpa, dypa, refr, rnn, coeff
  +  integer          :: jj, morder, nn, mm, ll, oo
  +  real(kind=fPrec) :: rra, tta, xa, ya, ax, ay, xclo, yclo, angrad, cscal, dxpa, dypa, refr, rnn, coeff
     real(kind=fPrec) :: epsilon, gteps, lteps, r1lteps, r2gteps
     logical          lrotate
   
  +! for FOX
  +  integer          :: idaa
  +  integer          :: hh(lnv)=0
     common/daele/alda,asda,aldaq,asdaq,smida,xx,yy,dpda,dpda1,sigmda,ej1,ejf1,rv
  +  save
   
   !-----------------------------------------------------------------------
   !FOX  B D ;
  
positive.code:       goto 30
      end if
      cheby_maxOrder(ifile)=max(ii,jj,cheby_maxOrder(ifile))
      if ( cheby_maxOrder(ifile).gt.cheby_maxOrderFox-1 ) then
        write(lerr,"(2(a,i0))") "CHEBY> ERROR order of map too high: ",cheby_maxOrder(ifile), &
                                              " >",cheby_maxOrderFox-1
        write(lerr,"(a)")       "CHEBY>       please increase cheby_maxOrderFox parameter"
        goto 30
      end if
  
  
negative.code: 
  ! Do not remove or modify the comment below.
  !     DADAL AUTOMATIC INCLUSION
  
  end subroutine cheby_kick_fox
  
  
  