anchor.diff:      DEALLOCATE(tmp)
       !$OMP END PARALLEL
       CALL performance(duration, m, n, k, s)
  -    IF (0.NE.check) THEN
  -      WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
  -    END IF
  +    WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
     END IF
   
     ! Deallocate global arrays
  
positive.code:   DEALLOCATE(tmp)
    !$OMP END PARALLEL
    CALL performance(duration, m, n, k, s)
    IF (0.NE.check) THEN
      WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
    END IF
  
    WRITE(*, "(A)") "Streamed... (auto-dispatched)"
    c(:,:) = 0
  
negative.code:   DEALLOCATE(tmp)
    !$OMP END PARALLEL
    CALL performance(duration, m, n, k, s)
    WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "diff:       ", MAXVAL((c(:,:) - d(:,:)) * (c(:,:) - d(:,:)))
  
    CALL libxsmm_dispatch(xmm, m, n, k)
    IF (libxsmm_available(xmm)) THEN
  