Lines Matching refs:eBrg
4 & BDiag, HBrg, eBrg, argument
47 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
212 call clear (eBrg, Kspace+1)
213 eBrg(1) = unorm
309 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
310 eBrg(iKs+1) = -Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
311 eBrg(iKs) = tmp
316 echeck=abs(eBrg(iKs+1))
330 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
332 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
348 if (abs(eBrg(iKs+1)) .le. epsnrm) exit