anchor.diff:            !id(4) = j4 ! 1234 are only used once and we know l=4, hence ijk must not be 4
             iax = d*(j3-1+c*(j2-1+b*(j1-1)))
             ibx = d*(id(k)-1+jd(k)*(id(j)-1+jd(j)*(id(i)-1)))
  +!dec$ vector always nontemporal
  +!dir$ simd
             do j4 = 1,d
              ia = j4+iax
              ib = j4+ibx
  
positive.code:          enddo
          enddo
         enddo
        else if (l.eq.3) then
         do j1 = 1,a
          do j2 = 1,b
           do j4 = 1,d
  
negative.code:           id(4) = j4
            iax = -1+b*(j1-1)
            ibx = b*(id(k)-1+jd(k)*(id(j)-1+jd(j)*(id(i)-1)))
  !dec$ vector always nontemporal
  !dir$ simd
            do j2 = 1,b
             ia = j4+d*(j3-1+c*(j2+iax))
             ib = j2+ibx
  