Lines Matching refs:c
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))
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)
127 c(i) = h(i,i)/tmp
132 err(i) = c(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)
230 c(i) = h(i,i)/tmp
235 err(i) = c(i)*err(i)