Lines Matching refs:Rcos
4 & yBrg, Rcos, Rsin, iper,
49 & yBrg(*), Rcos(*),
271 tmp = Rcos(jK) * HBrg(jK, iKs) +
274 & Rcos(jK) * HBrg(jK+1,iKs)
279 Rcos(iKs) = HBrg(iKs, iKs) / tmp
286 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
287 eBrg(iKs+1) =-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
372 & yBrg, Rcos, Rsin, iper,
421 & yBrg(Kspace), Rcos(Kspace),
646 tmp = Rcos(jK) * HBrg(jK, iKs) +
649 & Rcos(jK) * HBrg(jK+1,iKs)
654 Rcos(iKs) = HBrg(iKs, iKs) / tmp
661 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
662 eBrg(iKs+1)=-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
751 & yBrg, Rcos, Rsin, iper,
798 & yBrg(*), Rcos(*),
985 tmp = Rcos(jK) * HBrg(jK, iKss) +
988 & Rcos(jK) * HBrg(jK+1,iKss)
993 Rcos(iKss) = HBrg(iKss, iKss) / tmp
1000 tmp = Rcos(iKss)*eBrg(iKss) + Rsin(iKss)*eBrg(iKss+1)
1001 eBrg(iKss+1)=-Rsin(iKss)*eBrg(iKss) + Rcos(iKss)*eBrg(iKss+1)