Lines Matching refs:i
11 do i=1,q
12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
28 do i=1,q
29 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
30 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3))
31 v1(i+q*1)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1))
32 v1(i+q*2)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3))
50 do i=1,q
52 v1(i) = u2(i)*u4(i)
54 du0=u1(i+q*0)
55 du1=u1(i+q*1)
56 v2(i+q*0)=u3(i+q*0)*du0+u3(i+q*2)*du1
57 v2(i+q*1)=u3(i+q*2)*du0+u3(i+q*1)*du1
75 do i=1,q
76 du0=u1(i+q*0)
77 du1=u1(i+q*1)
78 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*3)*du1+u2(i+q*6)*u3(i)
79 v2(i+q*0)=u2(i+q*1)*du0+u2(i+q*4)*du1+u2(i+q*7)*u3(i)
80 v2(i+q*1)=u2(i+q*2)*du0+u2(i+q*5)*du1+u2(i+q*8)*u3(i)