Lines Matching refs:h
58 REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), unCondU(:,:), y(:), c(:), local
61 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), unCondU(dof,nNo),
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)
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
143 y(j) = y(j) - h(j,k)*y(k)
145 y(j) = y(j)/h(j,j)
180 REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), X(:,:), y(:), c(:), s(:), local
183 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), X(dof,nNo),
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)
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
246 y(j) = y(j) - h(j,k)*y(k)
248 y(j) = y(j)/h(j,j)