anchor.diff:      if(nSplit > 8)  call chr_cast(lnSplit(9), dowrite_amplitude,iErr)
   
     case(11)
  +    if(nSplit /= 4) then
  +      write(lout,"(a,i0)") "COLL> ERROR Expected 4 values on line 11, got ",nSplit
  +      iErr = .true.
  +      return
  +    end if
       if(nSplit > 0)  call chr_cast(lnSplit(1), xbeat,     iErr)
       if(nSplit > 1)  call chr_cast(lnSplit(2), xbeatphase,iErr)
       if(nSplit > 2)  call chr_cast(lnSplit(3), ybeat,     iErr)
       if(nSplit > 3)  call chr_cast(lnSplit(4), ybeatphase,iErr)
   
     case(12)
  +    if(nSplit /= 11) then
  +      write(lout,"(a,i0)") "COLL> ERROR Expected 11 values on line 12, got ",nSplit
  +      iErr = .true.
  +      return
  +    end if
       if(nSplit > 0)  call chr_cast(lnSplit(1), c_rmstilt_prim,   iErr)
       if(nSplit > 1)  call chr_cast(lnSplit(2), c_rmstilt_sec,    iErr)
       if(nSplit > 2)  call chr_cast(lnSplit(3), c_systilt_prim,   iErr)
  
positive.code:   select case(iLine)
  
    case(1)
  
      if(nSplit /= 1) then
        write(lout,"(a,i0)") "COLL> ERROR Expected 1 value on line 1, got ",nSplit
        iErr = .true.
        return
      end if
  
      if(nSplit > 0) call chr_cast(lnSplit(1),do_coll,iErr)
  
    case(2)
  
      if(nSplit > 0) call chr_cast(lnSplit(1),nloop,iErr)
      if(nSplit > 1) call chr_cast(lnSplit(2),myenom,iErr)
  
  
negative.code:     if(nSplit > 6)  call chr_cast(lnSplit(7), jaw_ssf(1),  iErr)
  
    case(8)
      if(nSplit /= 7) then
        write(lout,"(a,i0)") "COLL> ERROR Expected 7 values on line 8, got ",nSplit
        iErr = .true.
        return
      end if
      if(nSplit > 0)  call chr_cast(lnSplit(1), jaw_fit(2,1),iErr)
      if(nSplit > 1)  call chr_cast(lnSplit(2), jaw_fit(2,2),iErr)
      if(nSplit > 2)  call chr_cast(lnSplit(3), jaw_fit(2,3),iErr)
  