Lines Matching refs:HBrg
3 & res, BDiag, HBrg, eBrg,
48 & HBrg(Kspace+1,*), eBrg(*),
242 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
252 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
271 tmp = Rcos(jK) * HBrg(jK, iKs) +
272 & Rsin(jK) * HBrg(jK+1,iKs)
273 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
274 & Rcos(jK) * HBrg(jK+1,iKs)
275 HBrg(jK, iKs) = tmp
278 tmp = sqrt(HBrg(iKs,iKs)**2 + HBrg(iKs+1,iKs)**2)
279 Rcos(iKs) = HBrg(iKs, iKs) / tmp
280 Rsin(iKs) = HBrg(iKs+1,iKs) / tmp
281 HBrg(iKs, iKs) = tmp
282 HBrg(iKs+1,iKs) = zero
307 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
309 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
371 & res, BDiag, HBrg, eBrg,
420 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
616 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
627 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
646 tmp = Rcos(jK) * HBrg(jK, iKs) +
647 & Rsin(jK) * HBrg(jK+1,iKs)
648 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
649 & Rcos(jK) * HBrg(jK+1,iKs)
650 HBrg(jK, iKs) = tmp
653 tmp = sqrt(HBrg(iKs,iKs)**2 + HBrg(iKs+1,iKs)**2)
654 Rcos(iKs) = HBrg(iKs, iKs) / tmp
655 Rsin(iKs) = HBrg(iKs+1,iKs) / tmp
656 HBrg(iKs, iKs)= tmp
657 HBrg(iKs+1,iKs)= zero
682 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
684 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
750 & rest, HBrg, eBrg,
797 & HBrg(Kspace+1,*), eBrg(*),
913 call clear (HBrg, Kspace+1)
956 HBrg(jK,iKss) = beta ! put this in the Hessenberg Matrix
966 HBrg(iKss+1,iKss) = unorm ! this fills the 1 sub diagonal band
985 tmp = Rcos(jK) * HBrg(jK, iKss) +
986 & Rsin(jK) * HBrg(jK+1,iKss)
987 HBrg(jK+1,iKss) = -Rsin(jK) * HBrg(jK, iKss) +
988 & Rcos(jK) * HBrg(jK+1,iKss)
989 HBrg(jK, iKss) = tmp
992 tmp = sqrt(HBrg(iKss,iKss)**2 + HBrg(iKss+1,iKss)**2)
993 Rcos(iKss) = HBrg(iKss, iKss) / tmp
994 Rsin(iKss) = HBrg(iKss+1,iKss) / tmp
995 HBrg(iKss, iKss) = tmp
996 HBrg(iKss+1,iKss) = zero
1021 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
1023 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)