Lines Matching refs:s
59 2 s(:), err(:) local
62 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+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)
128 s(i) = h(i+1,i)/tmp
131 err(i+1) = -s(i)*err(i)
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))
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)
231 s(i) = h(i+1,i)/tmp
234 err(i+1) = -s(i)*err(i)