anchor.diff:      !$ duration = -omp_get_wtime()
       !$OMP END MASTER
       !$OMP DO
  -    DO i = LBOUND(a, 1), UBOUND(a, 1)
  -      CALL libxsmm_mm(m, n, k, a(i)%matrix, b(i)%matrix, tmp)
  +    DO i = LBOUND(a, 3), UBOUND(a, 3)
  +      CALL libxsmm_mm(m, n, k, a(:,:,i), b(:,:,i), tmp)
       END DO
       !$OMP MASTER
       !$ duration = duration + omp_get_wtime()
  
positive.code:     ALLOCATE(tmp(libxsmm_align_value(libxsmm_ld(m,n),T,LIBXSMM_ALIGNED_STORES),libxsmm_ld(n,m)))
      tmp(:,:) = 0
      !$OMP DO
      DO i = LBOUND(a, 1), UBOUND(a, 1)
        CALL libxsmm_blasmm(m, n, k, a(i)%matrix, b(i)%matrix, tmp)
      END DO
      !$OMP CRITICAL
      d(:,:) = d(:,:) + tmp(:UBOUND(d,1),:)
  
negative.code:   INTEGER, PARAMETER :: T = LIBXSMM_DOUBLE_PRECISION
    INTEGER, PARAMETER :: MAX_NTHREADS = 512
  
    REAL(T), ALLOCATABLE, TARGET :: a(:,:,:), b(:,:,:)
    REAL(T), ALLOCATABLE, TARGET :: c(:,:), d(:,:)
    REAL(T), ALLOCATABLE, TARGET, SAVE :: tmp(:,:)
    !DIR$ ATTRIBUTES ALIGN:LIBXSMM_ALIGNED_MAX :: a, b, c, tmp
    !$OMP THREADPRIVATE(tmp)
    PROCEDURE(LIBXSMM_XMM_FUNCTION), POINTER :: xmm     ! Fully ploymorph variant
    PROCEDURE(LIBXSMM_DMM_FUNCTION), POINTER :: dmm     ! double precision variant
    INTEGER :: argc, m, n, k, ld, routine, check
    INTEGER(8) :: i, s
    CHARACTER(32) :: argv
  