Lines Matching refs:RZI
24 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, local
45 RZI = (STI+STI)*RAZ
67 CKI = CKI + RZI
100 CKI = CKI + RZI
137 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI)
138 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI)
154 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI)
155 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI)
173 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI)
174 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR)
188 CALL ZLOG(RZR, RZI, STR, STI, IDUM)