anchor.diff:    END INTERFACE$MNK_INTERFACE_LIST
   
   CONTAINS
  +  !DIR$ ATTRIBUTES OFFLOAD:MIC :: LIBXSMM_SGEMM_XARGS_CTOR
  +  !DIR$ ATTRIBUTES INLINE :: LIBXSMM_SGEMM_XARGS_CTOR
  +  TYPE(LIBXSMM_DGEMM_XARGS) PURE FUNCTION LIBXSMM_SGEMM_XARGS_CTOR(alpha, beta, pa, pb, pc)
  +    REAL(LIBXSMM_SINGLE_PRECISION), INTENT(IN) :: alpha, beta
  +    TYPE(C_PTR), INTENT(IN), OPTIONAL :: pa, pb, pc
  +    LIBXSMM_SGEMM_XARGS_CTOR%alpha = alpha
  +    LIBXSMM_SGEMM_XARGS_CTOR%beta = beta
  +    LIBXSMM_SGEMM_XARGS_CTOR%pa = MERGE(C_NULL_PTR, pa, .NOT.PRESENT(pa))
  +    LIBXSMM_SGEMM_XARGS_CTOR%pb = MERGE(C_NULL_PTR, pb, .NOT.PRESENT(pb))
  +    LIBXSMM_SGEMM_XARGS_CTOR%pc = MERGE(C_NULL_PTR, pc, .NOT.PRESENT(pc))
  +  END FUNCTION
  +
  +  !DIR$ ATTRIBUTES OFFLOAD:MIC :: LIBXSMM_DGEMM_XARGS_CTOR
  +  !DIR$ ATTRIBUTES INLINE :: LIBXSMM_DGEMM_XARGS_CTOR
  +  TYPE(LIBXSMM_DGEMM_XARGS) PURE FUNCTION LIBXSMM_DGEMM_XARGS_CTOR(alpha, beta, pa, pb, pc)
  +    REAL(LIBXSMM_DOUBLE_PRECISION), INTENT(IN) :: alpha, beta
  +    TYPE(C_PTR), INTENT(IN), OPTIONAL :: pa, pb, pc
  +    LIBXSMM_DGEMM_XARGS_CTOR%alpha = alpha
  +    LIBXSMM_DGEMM_XARGS_CTOR%beta = beta
  +    LIBXSMM_DGEMM_XARGS_CTOR%pa = MERGE(C_NULL_PTR, pa, .NOT.PRESENT(pa))
  +    LIBXSMM_DGEMM_XARGS_CTOR%pb = MERGE(C_NULL_PTR, pb, .NOT.PRESENT(pb))
  +    LIBXSMM_DGEMM_XARGS_CTOR%pc = MERGE(C_NULL_PTR, pc, .NOT.PRESENT(pc))
  +  END FUNCTION
  +
     !DIR$ ATTRIBUTES OFFLOAD:MIC :: libxsmm_up
     !DIR$ ATTRIBUTES INLINE :: libxsmm_up
     PURE FUNCTION libxsmm_up(n, up) RESULT(nup)
  
positive.code:     LIBXSMM_PREFETCH_AL2BL2_VIA_C_AHEAD = IOR(LIBXSMM_PREFETCH_BL2_VIA_C, &
                                                LIBXSMM_PREFETCH_AL2_AHEAD)
  
    ! Default actual/extended argument set for an xGEMM call.
    TYPE(C_PTR), POINTER :: LIBXSMM_GEMM_XARGS_DEFAULT => NULL()
  
    ! Structure providing the actual/extended arguments of an SGEMM call.
    TYPE, BIND(C) :: LIBXSMM_SGEMM_XARGS
      ! The Alpha and Beta arguments.
  
negative.code:     ! The prefetch arguments.
      TYPE(C_PTR) :: pa, pb, pc
    END TYPE
    ! Constructs an actual/extended argument set for an SGEMM call.
    INTERFACE LIBXSMM_DGEMM_XARGS
      MODULE PROCEDURE LIBXSMM_DGEMM_XARGS_CTOR
    END INTERFACE
  
    ! Overloaded dispatch/JIT routines (single/double precision).
    INTERFACE libxsmm_dispatch
  