Lines Matching refs:i
49 INTEGER i, ierr local
55 DO i=1, nNo
56 DOTV = DOTV + U(1,i)*V(1,i)
59 DO i=1, nNo
60 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
63 DO i=1, nNo
64 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i) +U(3,i)*V(3,i)
67 DO i=1, nNo
68 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
69 2 + U(3,i)*V(3,i) + U(4,i)*V(4,i)
72 DO i=1, nNo
73 DOTV = DOTV + SUM(U(:,i)*V(:,i))
97 INTEGER i, ierr local
101 DO i=1, nNo
102 DOTS = DOTS + U(i)*V(i)