Lines Matching refs:bk
281 REAL s1, s2, s3, sd, bb, bj, bk, bjm, bjp, bkm, bkp;
446 bk = Im [k2];
448 Im [k2] = Im [kk] - bk;
450 Im [kk] += bk;
465 bk = Im [kk] - Im [k2];
468 Re [k2] = c1 * ak - s1 * bk;
469 Im [k2] = s1 * ak + c1 * bk;
577 bk = Im [kk];
581 Im [kk] = bk + bj;
583 bk -= 0.5 * bj;
588 Im [k1] = bk + aj;
589 Im [k2] = bk - aj;
618 bk = bkp * c72 + bjp * c2 + bb;
623 Im [k1] = bk + aj;
624 Im [k4] = bk - aj;
626 bk = bkp * c2 + bjp * c72 + bb;
631 Im [k2] = bk + aj;
632 Im [k3] = bk - aj;
665 bk = bb = Im [kk];
674 bk += Itmp [j - 1];
681 Im [kk] = bk;
690 bk = bb;
697 bk += Itmp [k - 1] * Cos [jj - 1];
708 Im [k1] = bk + aj;
710 Im [k2] = bk - aj;
787 bk = Im [kk]; Im [kk] = Im [k2]; Im [k2] = bk;
817 bk = Im [kk]; Im [kk] = Im [k2]; Im [k2] = bk;
