anchor.diff:                TYPE(C_FUNPTR) :: ddispatch
               END FUNCTION
             END INTERFACE
  -          NULLIFY(construct_dmmfunction%fn0)
  -          NULLIFY(construct_dmmfunction%fn1)
  -          fn0 => construct_dmmfunction%fn0
  -          fn1 => construct_dmmfunction%fn1
             IF (.NOT.PRESENT(prefetch)) THEN
               oprefetch = LIBXSMM_PREFETCH_NONE
             ELSE
  
positive.code:           IF (LIBXSMM_PREFETCH_NONE.EQ.oprefetch) THEN
              CALL C_F_PROCPOINTER(ddispatch(m, n, k, lda, ldb, ldc,      &
       &         alpha, beta, flags, prefetch), fn0)
            ELSE
              CALL C_F_PROCPOINTER(ddispatch(m, n, k, lda, ldb, ldc,      &
       &         alpha, beta, flags, prefetch), fn1)
            END IF
          END FUNCTION
  
  
negative.code:           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
  
  