anchor.diff:        do p6=1,p6d
         do h7=1,h7d
         do h2=1,h2d
  +!dec$ vector always nontemporal
         do h3=1,h3d
           v2tmp(h7,h3,h2,p6) = v2sub(h3,h2,p6,h7)
         enddo
  
positive.code:       do h7=1,h7d
        do h2=1,h2d
  !dec$ vector always nontemporal
  !dir$ simd
        do h3=1,h3d
          v2tmp(h7,h3,h2,p6) = v2sub(h3,h2,p6,h7)
        enddo
  
negative.code:       do p6=1,p6d
        do h7=1,h7d
        do h2=1,h2d
  !dec$ vector always nontemporal
        do h3=1,h3d
          v2tmp(h7,h3,h2,p6) = v2sub(h3,h2,p6,h7)
        enddo
  