Lines Matching refs:Rsin
4 & yBrg, Rcos, Rsin, iper,
50 & Rsin(*), ilwork(nlwork),
272 & Rsin(jK) * HBrg(jK+1,iKs)
273 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
280 Rsin(iKs) = HBrg(iKs+1,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,
422 & Rsin(Kspace), ilwork(nlwork),
647 & Rsin(jK) * HBrg(jK+1,iKs)
648 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
655 Rsin(iKs) = HBrg(iKs+1,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,
799 & Rsin(*), ilwork(nlwork),
986 & Rsin(jK) * HBrg(jK+1,iKss)
987 HBrg(jK+1,iKss) = -Rsin(jK) * HBrg(jK, iKss) +
994 Rsin(iKss) = HBrg(iKss+1,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)