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:             oprefetch = prefetch
            END IF
            IF (LIBXSMM_PREFETCH_NONE.EQ.oprefetch) THEN
              CALL C_F_PROCPOINTER(sdispatch(m, n, k, lda, ldb, ldc,      &
       &        alpha, beta, flags, prefetch), fn0)
              construct_smmfunction = LIBXSMM_SMMFUNCTION(fn0, NULL())
            ELSE
              CALL C_F_PROCPOINTER(sdispatch(m, n, k, lda, ldb, ldc,      &
       &        alpha, beta, flags, prefetch), fn1)
              construct_smmfunction = LIBXSMM_SMMFUNCTION(NULL(), fn1)
            END IF
          END FUNCTION
  
  
negative.code:             oprefetch = prefetch
            END IF
            IF (LIBXSMM_PREFETCH_NONE.EQ.oprefetch) THEN
              construct_dmmfunction = LIBXSMM_DMMFUNCTION(                &
       &        construct_fn0(ddispatch(m, n, k, lda, ldb, ldc,           &
       &          alpha, beta, flags, prefetch)), NULL())
            ELSE
              construct_dmmfunction = LIBXSMM_DMMFUNCTION(                &
       &        NULL(), construct_fn1(ddispatch(m, n, k, lda, ldb, ldc,   &
       &          alpha, beta, flags, prefetch)))
            END IF
          END FUNCTION
  
  