anchor.diff:    integer, intent(in) :: ix
   
     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) :: rra, tta, xa, ya, ax, ay, xclo, yclo, angrad, cscal, dxpa, dypa, refr, coeff
     real(kind=fPrec) :: epsilon, gteps, lteps, r1lteps, r2gteps
     logical          lrotate
   
  
positive.code: !FOX  D V RE INT REFR ;
  !FOX  D V RE INT DXPA ;
  !FOX  D V RE INT DYPA ;
  !FOX  D V RE INT RNN ;
  !FOX  D V RE INT COEFF ;
  !FOX  D V RE INT ANGRAD ;
  !FOX  D V RE INT ONE ;
  
negative.code: !FOX  D V DA INT RADIO NORD NVAR ;
  !FOX  D V DA INT UU    NORD NVAR ;
  !FOX  D V DA INT VV    NORD NVAR ;
  !FOX  D V DA INT THETA NORD NVAR ;
  !FOX  D V DA INT TX    NORD NVAR 21 ;
  !FOX  D V DA INT TY    NORD NVAR 21 ;
  