anchor.diff:        iErr = .true.
         return
       end if
  -    if(nSplit > 0)  call chr_cast(lnSplit(1), driftsx,         iErr)
  -    if(nSplit > 1)  call chr_cast(lnSplit(2), driftsy,         iErr)
  -    if(nSplit > 2)  call chr_cast(lnSplit(3), cut_input,       iErr)
  -    if(nSplit > 3)  call chr_cast(lnSplit(4), systilt_antisymm,iErr)
  +    call chr_cast(lnSplit(1), driftsx,         iErr)
  +    call chr_cast(lnSplit(2), driftsy,         iErr)
  +    call chr_cast(lnSplit(3), cut_input,       iErr)
  +    call chr_cast(lnSplit(4), systilt_antisymm,iErr)
   
     case(15)
       if(nSplit /= 5) then
  
positive.code:   integer, parameter :: numeffdpop = 29
    integer, parameter :: nc         = 32
  
    integer, parameter :: nmat       = 14
    integer, parameter :: nrmat      = 12
  
  
negative.code:       iErr = .true.
        return
      end if
      call chr_cast(lnSplit(1), xbeat,     iErr)
      call chr_cast(lnSplit(2), xbeatphase,iErr)
      call chr_cast(lnSplit(3), ybeat,     iErr)
      call chr_cast(lnSplit(4), ybeatphase,iErr)
  
    case(12)
      if(nSplit /= 11) then
  