anchor.diff:  
     ! 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.
  
positive.code:     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
        iErr = .true.
        return
      end if
  
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")
  