anchor.diff:    ium    = 6
   
     if(ncorru == 0) then
  -    write(lout,10010)
  -    write(lout,10000)
  -  endif
  +    write(lout,"(a)") str_divLine
  +    write(lout,"(a)") ""
  +    write(lout,"(a)") "    OOOOOOOOOOOOOOOOOOOOO"
  +    write(lout,"(a)") "    OO                 OO"
  +    write(lout,"(a)") "    OO  Linear Optics  OO"
  +    write(lout,"(a)") "    OO                 OO"
  +    write(lout,"(a)") "    OOOOOOOOOOOOOOOOOOOOO"
  +    write(lout,"(a)") ""
  +  end if
   
     dpr(:)   = zero
     t(:,:)   = zero
  
positive.code: #include "include/kicklxxv.f90"
  !--SKEW 16-POLE
        case(8)
          ekk=ekk*c1m18
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  
negative.code: #include "include/kicksho.f90"
  #include "include/kicklxxh.f90"
  !--NORMAL 16-POLE
        case(8)
          ekk = ekk*c1m18
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  