Lines Matching refs:y

58       REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), unCondU(:,:), y(:), c(:),  local
62      2   y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
140          y = err(1:i)
143                y(j) = y(j) - h(j,k)*y(k)
145             y(j) = y(j)/h(j,j)
149             X = X + u(:,:,j)*y(j)
180       REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), X(:,:), y(:), c(:), s(:),  local
184      2   y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
243          y = err(1:i)
246                y(j) = y(j) - h(j,k)*y(k)
248             y(j) = y(j)/h(j,j)
252             X = X + u(:,:,j)*y(j)