Lines Matching refs:S1R
30 * RZR, SGN, STI, STR, SUMDI, SUMDR, SUMI, SUMR, S1I, S1R, S2I, local
82 S1R = ZETA1R(J) - STR
86 S1R = ZETA1R(J) - ZETA2R(J)
89 RS1 = S1R
112 STR = EXP(S1R)*CSSR(KFLAG)
113 S1R = STR*COS(S1I)
115 STR = S2R*S1R - S2I*S1I
116 S2I = S1R*S2I + S2R*S1I
173 S1R = ZET1DR - STR
177 S1R = ZET1DR - ZET2DR
180 RS1 = S1R
205 S1R = CYR(1)
214 S2R = CKR*C2R - CKI*C2I + S1R
216 S1R = C2R
231 S1R = S1R*C1R
235 S1R = S1R*CSSR(KFLAG)
304 S1R = -ZET1DR + STR
308 S1R = -ZET1DR + ZET2DR
314 RS1 = S1R
332 STR = EXP(S1R)*CSSR(IFLAG)
333 S1R = STR*COS(S1I)
335 STR = S2R*S1R - S2I*S1I
336 S2I = S2R*S1I + S2I*S1R
353 S1R = YR(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
386 S1R = CYR(1)
396 S2R = S1R + (FN+FNF)*(RZR*C2R-RZI*C2I)
398 S1R = C2R
423 S1R = S1R*CSR
427 S1R = S1R*CSSR(IFLAG)