Lines Matching refs:j
55 INTEGER i, j, k, l local
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)
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
141 DO j=i, 1, -1
142 DO k=j+1, i
143 y(j) = y(j) - h(j,k)*y(k)
145 y(j) = y(j)/h(j,j)
148 DO j=1, i
149 X = X + u(:,:,j)*y(j)
177 INTEGER i, j, k, l local
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)
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
244 DO j=i, 1, -1
245 DO k=j+1, i
246 y(j) = y(j) - h(j,k)*y(k)
248 y(j) = y(j)/h(j,j)
251 DO j=1, i
252 X = X + u(:,:,j)*y(j)