Lines Matching refs:S2I
28 * STI, STR, S1I, S1R, S2I, S2R, TOL, YI, YR, YY, ZBI, ZBR, ZEROI,
154 S2I = PTR*CSI + PTI*CSR
158 STR = S2R*S1R - S2I*S1I
159 S2I = S1R*S2I + S2R*S1I
162 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
165 IF (YY.LE.0.0D0) S2I = -S2I
167 CYI(KDFLG) = S2I
169 YI(I) = S2I*CSRR(KFLAG)
253 S2I = CYI(2)
258 C2I = S2I
260 S2I = CKR*C2I + CKI*C2R + S1I
266 C2I = S2I*C1R
279 S2I = C2I
283 S2I = S2I*CSSR(KFLAG)
396 S2I = PTR*CSI + PTI*CSR
400 STR = S2R*S1R - S2I*S1I
401 S2I = S2R*S1I + S2I*S1R
404 CALL ZUCHK(S2R, S2I, NW, BRY(1), TOL)
407 S2I = ZEROI
409 IF (YY.LE.0.0D0) S2I = -S2I
411 CYI(KDFLG) = S2I
413 C2I = S2I
415 S2I = S2I*CSRR(IFLAG)
422 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
426 YI(KK) = S1R*CSPNI + S1I*CSPNR + S2I
443 S2I = ZEROI
458 S2I = CYI(2)
464 C2I = S2I
466 S2I = S1I + (FN+FNF)*(RZR*C2I+RZI*C2R)
471 C2I = S2I*CSR
495 S2I = CKI
499 S2I = S2I*CSSR(IFLAG)