anchor.diff:        !$OMP END MASTER
         !$OMP DO
         DO i = LBOUND(a, 1), UBOUND(a, 1)
  -        CALL xmm(C_LOC(a(i,:,:)), C_LOC(b(i,:,:)), C_LOC(tmp))
  +        CALL xmm(C_LOC(a(i)%matrix(:,:)), C_LOC(b(i)%matrix(:,:)), C_LOC(tmp))
         END DO
         !$OMP MASTER
         !$ duration = duration + omp_get_wtime()
  
positive.code: !* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS        *!
  !* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.              *!
  !*****************************************************************************!
  !* Hans Pabst (Intel Corp.)                                                  *!
  !*****************************************************************************!
  
  PROGRAM smm
  
negative.code:       !$OMP END MASTER
        !$OMP DO
        DO i = LBOUND(a, 1), UBOUND(a, 1)
          CALL libxsmm_imm(m, n, k, a(i)%matrix, b(i)%matrix, tmp)
        END DO
        !$OMP MASTER
        !$ duration = duration + omp_get_wtime()
  