Lines Matching refs:i
55 INTEGER i, j, k, l local
101 DO i=1, ls%sD
104 2 Val, u(:,:,i), u(:,:,i+1))
107 2 face, u(:,:,i), u(:,:,i+1))
110 unCondU = u(:,:,i+1)
112 2 commu, face, unCondU, u(:,:,i+1))
114 DO j=1, i
115 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
116 u(:,:,i+1) = u(:,:,i+1) - h(j,i)*u(:,:,j)
118 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
120 u(:,:,i+1) = u(:,:,i+1)/h(i+1,i)
121 DO j=1, i-1
122 tmp = c(j)*h(j,i) + s(j)*h(j+1,i)
123 h(j+1,i) = -s(j)*h(j,i) + c(j)*h(j+1,i)
124 h(j,i) = tmp
126 tmp = SQRT(h(i,i)*h(i,i) + h(i+1,i)*h(i+1,i))
127 c(i) = h(i,i)/tmp
128 s(i) = h(i+1,i)/tmp
129 h(i,i) = tmp
130 h(i+1,i) = 0D0
131 err(i+1) = -s(i)*err(i)
132 err(i) = c(i)*err(i)
133 IF (ABS(err(i+1)) .LT. eps) THEN
138 IF (i .GT. ls%sD) i = ls%sD
140 y = err(1:i)
141 DO j=i, 1, -1
142 DO k=j+1, i
148 DO j=1, i
151 ls%fNorm = ABS(err(i+1))
177 INTEGER i, j, k, l local
211 DO i=1, ls%sD
214 2 Val, u(:,:,i), u(:,:,i+1))
216 2 face, u(:,:,i), u(:,:,i+1))
218 DO j=1, i
219 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
220 u(:,:,i+1) = u(:,:,i+1) - h(j,i)*u(:,:,j)
222 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
223 u(:,:,i+1) = u(:,:,i+1)/h(i+1,i)
224 DO j=1, i-1
225 tmp = c(j)*h(j,i) + s(j)*h(j+1,i)
226 h(j+1,i) = -s(j)*h(j,i) + c(j)*h(j+1,i)
227 h(j,i) = tmp
229 tmp = SQRT(h(i,i)*h(i,i) + h(i+1,i)*h(i+1,i))
230 c(i) = h(i,i)/tmp
231 s(i) = h(i+1,i)/tmp
232 h(i,i) = tmp
233 h(i+1,i) = 0D0
234 err(i+1) = -s(i)*err(i)
235 err(i) = c(i)*err(i)
236 IF (ABS(err(i+1)) .LT. eps) THEN
241 IF (i .GT. ls%sD) i = ls%sD
243 y = err(1:i)
244 DO j=i, 1, -1
245 DO k=j+1, i
251 DO j=1, i
254 ls%fNorm = ABS(err(i+1))