Lines Matching refs:bj
281 REAL s1, s2, s3, sd, bb, bj, bk, bjm, bjp, bkm, bkp;
575 bj = Im [k1] + Im [k2];
577 Im [kk] = bk + bj;
579 bk -= 0.5 * bj;
581 bj = (Im [k1] - Im [k2]) * s60;
582 Re [k1] = ak - bj;
583 Re [k2] = ak + bj;
616 bj = bkm * s72 + bjm * s2;
617 Re [k1] = ak - bj;
618 Re [k4] = ak + bj;
624 bj = bkm * s2 - bjm * s72;
625 Re [k2] = ak - bj;
626 Re [k3] = ak + bj;
688 bj = 0.0;
696 bj += Itmp [k - 1] * Sin [jj - 1];
703 Re [k1] = ak - bj;
705 Re [k2] = ak + bj;
