Lines Matching refs:S2R
21 * S2R, TOL, YI, YR, ZEROI, ZEROR, ZETA1I, ZETA1R, ZETA2I, ZETA2R, local
99 S2R = PHIR(J)*SUMR(J) - PHII(J)*SUMI(J)
104 STR = S2R*S1R - S2I*S1I
105 S2I = S1R*S2I + S2R*S1I
106 S2R = STR
108 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
111 CYR(KDFLG) = S2R
113 YR(I) = S2R*CSRR(KFLAG)
196 S2R = CYR(2)
201 C2R = S2R
203 S2R = CKR*C2R - CKI*C2I + S1R
209 C2R = S2R*C1R
222 S2R = C2R
226 S2R = S2R*CSSR(KFLAG)
319 S2R = -CSGNI*STI
324 STR = S2R*S1R - S2I*S1I
325 S2I = S2R*S1I + S2I*S1R
326 S2R = STR
328 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
330 S2R = ZEROR
333 CYR(KDFLG) = S2R
335 C2R = S2R
337 S2R = S2R*CSRR(IFLAG)
345 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
348 YR(KK) = S1R*CSPNR - S1I*CSPNI + S2R
362 S2R = ZEROR
377 S2R = CYR(2)
383 C2R = S2R
385 S2R = S1R + (FN+FNF)*(RZR*C2R-RZI*C2I)
390 C2R = S2R*CSR
414 S2R = CKR
418 S2R = S2R*CSSR(IFLAG)