Lines Matching refs:S2R
22 * S2R, TOL, YI, YR, ZEROI, ZEROR, ZETA1I, ZETA1R, ZETA2I, ZETA2R,
100 S2R = PHIR(J)*SUMR(J) - PHII(J)*SUMI(J)
105 STR = S2R*S1R - S2I*S1I
106 S2I = S1R*S2I + S2R*S1I
107 S2R = STR
109 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
112 CYR(KDFLG) = S2R
114 YR(I) = S2R*CSRR(KFLAG)
197 S2R = CYR(2)
202 C2R = S2R
204 S2R = CKR*C2R - CKI*C2I + S1R
210 C2R = S2R*C1R
223 S2R = C2R
227 S2R = S2R*CSSR(KFLAG)
320 S2R = -CSGNI*STI
325 STR = S2R*S1R - S2I*S1I
326 S2I = S2R*S1I + S2I*S1R
327 S2R = STR
329 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
331 S2R = ZEROR
334 CYR(KDFLG) = S2R
336 C2R = S2R
338 S2R = S2R*CSRR(IFLAG)
346 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
349 YR(KK) = S1R*CSPNR - S1I*CSPNI + S2R
363 S2R = ZEROR
378 S2R = CYR(2)
384 C2R = S2R
386 S2R = S1R + (FN+FNF)*(RZR*C2R-RZI*C2I)
391 C2R = S2R*CSR
415 S2R = CKR
419 S2R = S2R*CSSR(IFLAG)