anchor.diff:          IMPLICIT NONE
   
           PRIVATE ::  construct_smmfunction, construct_dmmfunction,       &
  -     &              srealptr, drealptr
  +     &              construct_fn0, construct_fn1, srealptr, drealptr
   
           ! Name of the version (stringized set of version numbers).
           CHARACTER(*), PARAMETER :: LIBXSMM_VERSION = "$VERSION"
  
positive.code:           drealptr => a(LBOUND(a,1),LBOUND(a,2))
          END FUNCTION
  
          !DIR$ ATTRIBUTES OFFLOAD:MIC :: construct_smmfunction
          TYPE(LIBXSMM_SMMFUNCTION) FUNCTION construct_smmfunction(       &
       &  m, n, k, lda, ldb, ldc, alpha, beta, flags, prefetch)
  
negative.code:             oprefetch = prefetch
            END IF
            IF (LIBXSMM_PREFETCH_NONE.EQ.oprefetch) THEN
              construct_smmfunction = LIBXSMM_SMMFUNCTION(                &
       &        construct_fn0(sdispatch(m, n, k, lda, ldb, ldc,           &
       &          alpha, beta, flags, prefetch)), NULL())
            ELSE
              construct_smmfunction = LIBXSMM_SMMFUNCTION(                &
       &        NULL(), construct_fn1(sdispatch(m, n, k, lda, ldb, ldc,   &
       &          alpha, beta, flags, prefetch)))
            END IF
          END FUNCTION
  
  