Lines Matching refs:i
49 INTEGER i, ierr local
55 DO i=1, nNo
56 NORMV = NORMV + U(1,i)*U(1,i)
59 DO i=1, nNo
60 NORMV = NORMV + U(1,i)*U(1,i) + U(2,i)*U(2,i)
63 DO i=1, nNo
64 NORMV = NORMV+ U(1,i)*U(1,i) + U(2,i)*U(2,i) + U(3,i)*U(3,i)
67 DO i=1, nNo
68 NORMV = NORMV + U(1,i)*U(1,i) + U(2,i)*U(2,i)
69 2 + U(3,i)*U(3,i) + U(4,i)*U(4,i)
72 DO i=1, nNo
73 NORMV = NORMV + SUM(U(:,i)*U(:,i))
98 INTEGER i, ierr local
102 DO i=1, nNo
103 NORMS = NORMS + U(i)*U(i)