Lines Matching refs:S1I
30 * RZR, SGN, STI, STR, SUMDI, SUMDR, SUMI, SUMR, S1I, S1R, S2I, local
83 S1I = ZETA1I(J) - STI
87 S1I = ZETA1I(J) - ZETA2I(J)
113 S1R = STR*COS(S1I)
114 S1I = STR*SIN(S1I)
115 STR = S2R*S1R - S2I*S1I
116 S2I = S1R*S2I + S2R*S1I
174 S1I = ZET1DI - STI
178 S1I = ZET1DI - ZET2DI
206 S1I = CYI(1)
215 S2I = CKR*C2I + CKI*C2R + S1I
217 S1I = C2I
232 S1I = S1I*C1R
236 S1I = S1I*CSSR(KFLAG)
305 S1I = -ZET1DI + STI
309 S1I = -ZET1DI + ZET2DI
333 S1R = STR*COS(S1I)
334 S1I = STR*SIN(S1I)
335 STR = S2R*S1R - S2I*S1I
336 S2I = S2R*S1I + S2I*S1R
354 S1I = YI(KK)
356 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
359 YR(KK) = S1R*CSPNR - S1I*CSPNI + S2R
360 YI(KK) = CSPNR*S1I + CSPNI*S1R + S2I
387 S1I = CYI(1)
397 S2I = S1I + (FN+FNF)*(RZR*C2I+RZI*C2R)
399 S1I = C2I
424 S1I = S1I*CSR
428 S1I = S1I*CSSR(IFLAG)