Lines Matching refs:P1R
17 * PTR, P1I, P1R, P2I, P2M, P2R, QI, QR, RAK, RCAZ, RTHPI, RZI, local
259 P1R = CZEROR
265 P2R = CBR*P2R - P1R*AK
266 P1R = PTR
296 P1R = CZEROR
310 P2R = (PTR*CBR-PTI*CBI-P1R)*AK
312 P1R = PTR
342 P1R = P1R*PTR
346 CALL ZMLT(P1R, P1I, P2R, P2I, PTR, PTI)
374 P1R = CSRR(KFLAG)
386 P2R = S2R*P1R
387 P2I = S2I*P1R
394 S1R = S1R*P1R
395 S1I = S1I*P1R
403 P1R = CSRR(KFLAG)
420 P1R = CSRR(KFLAG)
431 P2R = S2R*P1R
432 P2I = S2I*P1R
442 S1R = S1R*P1R
443 S1I = S1I*P1R
451 P1R = CSRR(KFLAG)
483 P1R = P2M*DCOS(P2I)
485 CALL ZUCHK(P1R,P1I,NW,ASCLE,TOL)
488 CYR(J) = P1R