anchor.diff:      if(nSplit > 1) call chr_cast(lnSplit(2),myenom,iErr)
   
       if(nloop /= 1) then
  -      write(lout,"(a,i0)") "COLL> ERROR Support for multiple samples is deprecated. nloop must be 1, got ",nloop
  +      write(lout,"(a,i0)") "COLL> ERROR Multiple samples is no longer supported. nloop must be 1, got ",nloop
         iErr = .true.
         return
       end if
  
positive.code:     call chr_cast(lnSplit(3), sigsecut3, iErr)
  
    case default
      ! If we reached this point, we probably have an old style collimation block
      goto 10
  
    end select
  
  
negative.code: 
    ! Logical Flags
    logical, public,  save :: do_coll           = .false.
    logical, public,  save :: coll_oldBlock     = .false.
    logical, private, save :: do_select         = .false.
    logical, private, save :: do_nominal        = .false.
    logical, private, save :: dowrite_dist      = .false.
  