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