Lines Matching refs:CZI

32      * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN,
70       CZI = -ZETA1I + ZETA2I
81       CZI = -ZETA1I + ZETA2I
86       CZI = CZI - ZBI
90       CZI = -CZI
123       CZI = CZI + STI
127       CZI = CZI - 0.25D0*STI
130       AY = CZI
132       CZI = AX*DSIN(AY)
133       CALL ZUCHK(CZR, CZI, NW, ASCLE, TOL)
148       CZI = -ZETA1I + ZETA2I
154       CZI = -ZETA1I + ZETA2I
159       CZI = CZI - ZBI
179       CZI = CZI + STI
183       CZI = CZI - 0.25D0*STI
186       AY = CZI
188       CZI = AX*DSIN(AY)
189       CALL ZUCHK(CZR, CZI, NW, ASCLE, TOL)