anchor.diff:  #include "include/kicksho.f90"
   #include "include/kicklxxh.f90"
   !--NORMAL 16-POLE
  -        case(8)
  -           ekk=ekk*c1m18
  +      case(8)
  +        ekk = ekk*c1m18
   #include "include/kicksho.f90"
   #include "include/kicksho.f90"
   #include "include/kicksho.f90"
  
positive.code:       end if
  #endif
  
  150   continue !End of loop over elements inside block
  
        nr = nr+1
        call writelin(nr,bezb(ix),etl,phi,t,ix,.true.,k)
        if(ntco /= 0) then
          if(mod(nr,ntco) == 0) then
            call cpltwis(bezb(ix),t,etl,phi)
          end if
        end if
  #ifdef ROOT
  
negative.code:   dpp1     = dpp+ded
  
    call clorb(dpp1)
    clo0(1:2)  = clo(1:2)
    clop0(1:2) = clop(1:2)
    call clorb(dpp)
    write(lout,"(a)") ""
  
    do l=1,2
      ll        = 2*l
  