Lines Matching defs:aj
280 REAL c1, c2, c3, cd, aa, aj, ak, ajm, ajp, akm, akp;
578 aj = Re [k1] + Re [k2];
580 Re [kk] = ak + aj;
582 ak -= 0.5 * aj;
584 aj = (Re [k1] - Re [k2]) * s60;
588 Im [k1] = bk + aj;
589 Im [k2] = bk - aj;
619 aj = akm * s72 + ajm * s2;
623 Im [k1] = bk + aj;
624 Im [k4] = bk - aj;
627 aj = akm * s2 - ajm * s72;
631 Im [k2] = bk + aj;
632 Im [k3] = bk - aj;
691 aj = 0.0;
699 aj += Rtmp [k - 1] * Sin [jj - 1];
708 Im [k1] = bk + aj;
710 Im [k2] = bk - aj;
