Lines Matching refs:S2R
37 * STI, STR, S1I, S1R, S2I, S2R, TOL, YI, YR, YY, ZBI, ZBR, ZEROI, local
163 S2R = PTR*CSR - PTI*CSI
168 STR = S2R*S1R - S2I*S1I
169 S2I = S1R*S2I + S2R*S1I
170 S2R = STR
172 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
176 CYR(KDFLG) = S2R
178 YR(I) = S2R*CSRR(KFLAG)
262 S2R = CYR(2)
267 C2R = S2R
269 S2R = CKR*C2R - CKI*C2I + S1R
275 C2R = S2R*C1R
288 S2R = C2R
292 S2R = S2R*CSSR(KFLAG)
405 S2R = PTR*CSR - PTI*CSI
410 STR = S2R*S1R - S2I*S1I
411 S2I = S2R*S1I + S2I*S1R
412 S2R = STR
414 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
416 S2R = ZEROR
420 CYR(KDFLG) = S2R
422 C2R = S2R
424 S2R = S2R*CSRR(IFLAG)
432 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
435 YR(KK) = S1R*CSPNR - S1I*CSPNI + S2R
452 S2R = ZEROR
467 S2R = CYR(2)
473 C2R = S2R
475 S2R = S1R + (FN+FNF)*(RZR*C2R-RZI*C2I)
480 C2R = S2R*CSR
504 S2R = CKR
508 S2R = S2R*CSSR(IFLAG)