Lines Matching refs:S1R
20 * RZR, SGN, STI, STR, SUMDI, SUMDR, SUMI, SUMR, S1I, S1R, S2I,
71 S1R = ZETA1R(J) - STR
75 S1R = ZETA1R(J) - ZETA2R(J)
78 RS1 = S1R
101 STR = DEXP(S1R)*CSSR(KFLAG)
102 S1R = STR*DCOS(S1I)
104 STR = S2R*S1R - S2I*S1I
105 S2I = S1R*S2I + S2R*S1I
162 S1R = ZET1DR - STR
166 S1R = ZET1DR - ZET2DR
169 RS1 = S1R
194 S1R = CYR(1)
203 S2R = CKR*C2R - CKI*C2I + S1R
205 S1R = C2R
220 S1R = S1R*C1R
224 S1R = S1R*CSSR(KFLAG)
293 S1R = -ZET1DR + STR
297 S1R = -ZET1DR + ZET2DR
303 RS1 = S1R
321 STR = DEXP(S1R)*CSSR(IFLAG)
322 S1R = STR*DCOS(S1I)
324 STR = S2R*S1R - S2I*S1I
325 S2I = S2R*S1I + S2I*S1R
342 S1R = YR(KK)
345 CALL ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NW, ASC, ALIM, IUF)
348 YR(KK) = S1R*CSPNR - S1I*CSPNI + S2R
349 YI(KK) = CSPNR*S1I + CSPNI*S1R + S2I
375 S1R = CYR(1)
385 S2R = S1R + (FN+FNF)*(RZR*C2R-RZI*C2I)
387 S1R = C2R
412 S1R = S1R*CSR
416 S1R = S1R*CSSR(IFLAG)