Lines Matching refs:ak
280 REAL c1, c2, c3, cd, aa, aj, ak, ajm, ajp, akm, akp;
441 ak = Re [k2];
443 Re [k2] = Re [kk] - ak;
445 Re [kk] += ak;
460 ak = Re [kk] - Re [k2];
464 Re [k2] = c1 * ak - s1 * bk;
465 Im [k2] = s1 * ak + c1 * bk;
472 ak = c1 - (cd * c1 + sd * s1);
474 c1 = 2.0 - (ak * ak + s1 * s1);
476 c1 *= ak;
572 ak = Re [kk];
576 Re [kk] = ak + aj;
578 ak -= 0.5 * aj;
582 Re [k1] = ak - bj;
583 Re [k2] = ak + bj;
613 ak = akp * c72 + ajp * c2 + aa;
617 Re [k1] = ak - bj;
618 Re [k4] = ak + bj;
621 ak = akp * c2 + ajp * c72 + aa;
625 Re [k2] = ak - bj;
626 Re [k3] = ak + bj;
660 ak = aa = Re [kk];
668 ak += Rtmp [j - 1];
676 Re [kk] = ak;
685 ak = aa;
692 ak += Rtmp [k - 1] * Cos [jj - 1];
703 Re [k1] = ak - bj;
705 Re [k2] = ak + bj;
729 ak = Re [kk];
730 Re [kk] = c2 * ak - s2 * Im [kk];
731 Im [kk] = s2 * ak + c2 * Im [kk];
734 ak = s1 * s2;
736 c2 = c1 * c2 - ak;
782 ak = Re [kk]; Re [kk] = Re [k2]; Re [k2] = ak;
812 ak = Re [kk]; Re [kk] = Re [k2]; Re [k2] = ak;