Lines Matching refs:HBrg
4 & BDiag, HBrg, eBrg, argument
47 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
265 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
275 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
294 tmp = Rcos(jK) * HBrg(jK, iKs) +
295 & Rsin(jK) * HBrg(jK+1,iKs)
296 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
297 & Rcos(jK) * HBrg(jK+1,iKs)
298 HBrg(jK, iKs) = tmp
301 tmp = sqrt(HBrg(iKs,iKs)**2 + HBrg(iKs+1,iKs)**2)
302 Rcos(iKs) = HBrg(iKs, iKs) / tmp
303 Rsin(iKs) = HBrg(iKs+1,iKs) / tmp
304 HBrg(iKs, iKs) = tmp
305 HBrg(iKs+1,iKs) = zero
330 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
332 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)