Lines Matching refs:AK1I
1491 var AA, AEZ, AK, AK1I, AK1R, ARG, ARM, ATOL,
1519 AK1I = RTPI * STI * RAZ
1520 tmp = zsqrt(complex(AK1R, AK1I))
1522 AK1I = imag(tmp)
1543 tmp = zmlt(complex(AK1R, AK1I), complex(STR, STI))
1545 AK1I = imag(tmp)
1647 YR[M] = S2R*AK1R - S2I*AK1I
1648 YI[M] = S2R*AK1I + S2I*AK1R
1911 var AA, ACZ, AK, AK1I, AK1R, ARM, ASCLE, ATOL,
1960 AK1I = CKI * DFNU
1994 COEFR = AA * dcos(AK1I)
1995 COEFI = AA * dsin(AK1I)
2007 AK1I = CONEI
2013 STR = AK1R*CZR - AK1I*CZI
2014 STI = AK1R*CZI + AK1I*CZR
2016 AK1I = STI * RS
2018 S1I = S1I + AK1I