Lines Matching refs:i
10 do i = 1, nsd
12 anot(:,1,i) = pt125*(xc(:,1,i)+xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
13 & +xc(:,5,i)+xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
15 anot(:,2,i) = pt125*(-xc(:,1,i)+xc(:,2,i)+xc(:,3,i)-xc(:,4,i)
16 & -xc(:,5,i)+xc(:,6,i)+xc(:,7,i)-xc(:,8,i))
18 anot(:,3,i) = pt125*(-xc(:,1,i)-xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
19 & -xc(:,5,i)-xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
21 anot(:,4,i) = pt125*(-xc(:,1,i)-xc(:,2,i)-xc(:,3,i)-xc(:,4,i)
22 & +xc(:,5,i)+xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
24 anot(:,5,i) = pt125*(xc(:,1,i)-xc(:,2,i)+xc(:,3,i)-xc(:,4,i)
25 & +xc(:,5,i)-xc(:,6,i)+xc(:,7,i)-xc(:,8,i))
27 anot(:,6,i) = pt125*(xc(:,1,i)+xc(:,2,i)-xc(:,3,i)-xc(:,4,i)
28 & -xc(:,5,i)-xc(:,6,i)+xc(:,7,i)+xc(:,8,i))
30 anot(:,7,i) = pt125*(xc(:,1,i)-xc(:,2,i)-xc(:,3,i)+xc(:,4,i)
31 & -xc(:,5,i)+xc(:,6,i)+xc(:,7,i)-xc(:,8,i))
33 anot(:,8,i) = pt125*(-xc(:,1,i)+xc(:,2,i)-xc(:,3,i)+xc(:,4,i)
34 & +xc(:,5,i)-xc(:,6,i)+xc(:,7,i)-xc(:,8,i))
49 do i = 1, nsd
51 anot(:,1,i) = xc(:,4,i)
52 anot(:,2,i) = xc(:,1,i)-xc(:,4,i)
53 anot(:,3,i) = xc(:,2,i)-xc(:,4,i)
54 anot(:,4,i) = xc(:,3,i)-xc(:,4,i)