Lines Matching refs:S1R
133 * S1I, S1R, S2I, S2R, TOL, TRM1I, TRM1R, TRM2I, TRM2R, TTH, ZEROI,
154 S1R = CONER
184 S1R = S1R + TRM1R
203 AIR = S1R*C1 - C2*(ZR*S2R-ZI*S2I)
218 STR = ZR*S1R - ZI*S1I
219 STI = ZR*S1I + ZI*S1R
326 S1R = CYR(1)*COEF
330 AIR = CSQR*S1R - CSQI*S1I
331 AII = CSQR*S1I + CSQI*S1R
334 AIR = -(ZR*S1R-ZI*S1I)
335 AII = -(ZR*S1I+ZI*S1R)
338 S1R = S1R*SFAC
341 STR = S1R*CSQR - S1I*CSQI
342 S1I = S1R*CSQI + S1I*CSQR
343 S1R = STR
344 AIR = S1R/SFAC
348 STR = -(S1R*ZR-S1I*ZI)
349 S1I = -(S1R*ZI+S1I*ZR)
350 S1R = STR
351 AIR = S1R/SFAC
356 S1R = ZEROR
360 S1R = C2*ZR
363 AIR = C1 - S1R
371 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
374 AIR = AIR + C1*S1R