Lines Matching defs:ak
280 REAL c1, c2, c3, cd, aa, aj, ak, ajm, ajp, akm, akp;
445 ak = Re [k2];
447 Re [k2] = Re [kk] - ak;
449 Re [kk] += ak;
464 ak = Re [kk] - Re [k2];
468 Re [k2] = c1 * ak - s1 * bk;
469 Im [k2] = s1 * ak + c1 * bk;
476 ak = c1 - (cd * c1 + sd * s1);
478 c1 = 2.0 - (ak * ak + s1 * s1);
480 c1 *= ak;
576 ak = Re [kk];
580 Re [kk] = ak + aj;
582 ak -= 0.5 * aj;
586 Re [k1] = ak - bj;
587 Re [k2] = ak + bj;
617 ak = akp * c72 + ajp * c2 + aa;
621 Re [k1] = ak - bj;
622 Re [k4] = ak + bj;
625 ak = akp * c2 + ajp * c72 + aa;
629 Re [k2] = ak - bj;
630 Re [k3] = ak + bj;
664 ak = aa = Re [kk];
672 ak += Rtmp [j - 1];
680 Re [kk] = ak;
689 ak = aa;
696 ak += Rtmp [k - 1] * Cos [jj - 1];
707 Re [k1] = ak - bj;
709 Re [k2] = ak + bj;
733 ak = Re [kk];
734 Re [kk] = c2 * ak - s2 * Im [kk];
735 Im [kk] = s2 * ak + c2 * Im [kk];
738 ak = s1 * s2;
740 c2 = c1 * c2 - ak;
786 ak = Re [kk]; Re [kk] = Re [k2]; Re [k2] = ak;
816 ak = Re [kk]; Re [kk] = Re [k2]; Re [k2] = ak;