Lines Matching defs:s2
281 REAL s1, s2, s3, sd, bb, bj, bk, bjm, bjp, bkm, bkp;
299 k3 = c2 = c3 = s2 = s3 = 0.0;
529 Re [k2] = ajp * c2 - bjp * s2;
532 Im [k2] = ajp * s2 + bjp * c2;
543 /* values of c2, c3, s2, s3 that will get used next time */
545 s2 = 2.0 * c1 * s1;
546 c3 = c2 * c1 - s2 * s1;
547 s3 = c2 * s1 + s2 * c1;
594 s2 = 2.0 * c72 * s72;
615 aj = akm * s72 + ajm * s2;
616 bj = bkm * s72 + bjm * s2;
623 aj = akm * s2 - ajm * s72;
624 bj = bkm * s2 - bjm * s72;
725 s2 = s1;
730 Re [kk] = c2 * ak - s2 * Im [kk];
731 Im [kk] = s2 * ak + c2 * Im [kk];
734 ak = s1 * s2;
735 s2 = s1 * c2 + c1 * s2;