Lines Matching refs:eBrg
3 & res, BDiag, HBrg, eBrg,
48 & HBrg(Kspace+1,*), eBrg(*),
191 call clear (eBrg, Kspace+1)
192 eBrg(1) = unorm
286 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
287 eBrg(iKs+1) =-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
288 eBrg(iKs) = tmp
293 echeck=abs(eBrg(iKs+1))
307 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
309 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
326 echeck=abs(eBrg(iKs+1))
371 & res, BDiag, HBrg, eBrg,
420 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
568 call clear (eBrg, Kspace+1)
569 eBrg(1) = unorm
661 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
662 eBrg(iKs+1)=-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
663 eBrg(iKs) = tmp
668 echeck=abs(eBrg(iKs+1))
682 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
684 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
700 echeck=abs(eBrg(iKs+1))
750 & rest, HBrg, eBrg,
797 & HBrg(Kspace+1,*), eBrg(*),
912 call clear (eBrg, Kspace+1)
914 eBrg(1) = unorm
1000 tmp = Rcos(iKss)*eBrg(iKss) + Rsin(iKss)*eBrg(iKss+1)
1001 eBrg(iKss+1)=-Rsin(iKss)*eBrg(iKss) + Rcos(iKss)*eBrg(iKss+1)
1002 eBrg(iKss) = tmp
1006 ercheck=eBrg(iKss+1)
1008 if (abs(eBrg(iKss+1)) .le. epsnrm) exit
1021 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
1023 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
1039 if (abs(eBrg(iKss+1)) .le. epsnrm) exit