Lines Matching refs:tmp
271 tmp = Rcos(jK) * HBrg(jK, 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
286 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
288 eBrg(iKs) = tmp
646 tmp = Rcos(jK) * HBrg(jK, 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
661 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
663 eBrg(iKs) = tmp
985 tmp = Rcos(jK) * HBrg(jK, 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
1000 tmp = Rcos(iKss)*eBrg(iKss) + Rsin(iKss)*eBrg(iKss+1)
1002 eBrg(iKss) = tmp