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: 
    ! Logical Flags
    logical, public,  save :: do_coll           = .false.
    logical, private, save :: do_select         = .false.
    logical, private, save :: do_nominal        = .false.
    logical, private, save :: dowrite_dist      = .false.
  
negative.code:   end if
    if(nSplit == 0) return
  
    if(nSplit == 1 .and. iLine == 1) then
      ! This is the old block format
      coll_oldBlock = .true.
    end if
    if(coll_oldBlock) goto 10
  
    !  Parse new style COLL block
    ! ============================
    select case(lnSplit(1))
  
    case("DO_COLL")
  