anchor.diff:             id(4) = j4
              id(5) = j5
              id(6) = j6
  +           ibx = a*(id(m)-1+jd(m)*(id(l)-1+jd(l)*(id(k)-1
  +     &           +jd(k)*(id(j)-1+jd(j)*(id(i)-1)))))
              do j1 = 1,a
               ia = j6+f*(j5-1+e*(j4-1+d*(j3-1+c*(j2-1+b*(j1-1)))))
  -            ib = j1+a*(id(m)-1+jd(m)*(id(l)-1+jd(l)
  -     1         *(id(k)-1+jd(k)*(id(j)-1+jd(j)*(id(i)-1)))))
  +            ib = j1+ibx
               s(ib) = u(ia) * factor
              enddo
             enddo
  
positive.code:       integer ia,ib
        integer j1,j2,j3,j4,j5,j6
        integer jdm,jdl,jdk,jdj
        integer ia12345,ib12345
        ia = 0
        jd(1) = a
        jd(2) = b
  
negative.code:            !id(4) = j4
             id(5) = j5
             id(6) = j6
             iax = -1+d*(j3-1+c*(j2-1+b*(j1-1)))
             ibx = d*(id(m)-1+jd(m)*(id(l)-1+jd(l)*(id(k)-1
       &           +jd(k)*(id(j)-1+jd(j)*(id(i)-1)))))
             do j4 = 1,d
              ia = j6+f*(j5-1+e*(j4+iax))
              ib = j4+ibx
              s(ib) = u(ia) * factor
             enddo
            enddo
  