Lines Matching defs:aj
280 REAL c1, c2, c3, cd, aa, aj, ak, ajm, ajp, akm, akp;
574 aj = Re [k1] + Re [k2];
576 Re [kk] = ak + aj;
578 ak -= 0.5 * aj;
580 aj = (Re [k1] - Re [k2]) * s60;
584 Im [k1] = bk + aj;
585 Im [k2] = bk - aj;
615 aj = akm * s72 + ajm * s2;
619 Im [k1] = bk + aj;
620 Im [k4] = bk - aj;
623 aj = akm * s2 - ajm * s72;
627 Im [k2] = bk + aj;
628 Im [k3] = bk - aj;
687 aj = 0.0;
695 aj += Rtmp [k - 1] * Sin [jj - 1];
704 Im [k1] = bk + aj;
706 Im [k2] = bk - aj;