Lines Matching refs:yj
30 static real yc, xi, xj[4], yj[4], yi, vx[4] /* was [2][2] */, vy[4] /* in szpcll_0_() local
141 yj[0] = ylim[(*ii << 1) + 1]; in szpcll_0_()
142 xj[0] = dxdy * (yj[0] - yc); in szpcll_0_()
144 yj[1] = yc + dydx * xj[1]; in szpcll_0_()
146 yj[2] = yc + dydx * xj[2]; in szpcll_0_()
147 yj[3] = ylim[*ii * 2]; in szpcll_0_()
148 xj[3] = dxdy * (yj[3] - yc); in szpcll_0_()
154 if (yj[1] >= ylim[*ii * 2] && yj[1] <= ylim[(*ii << 1) + 1]) { in szpcll_0_()
158 if (yj[2] >= ylim[*ii * 2] && yj[2] <= ylim[(*ii << 1) + 1]) { in szpcll_0_()
170 vy[*ii * 2] = yj[i1 - 1]; in szpcll_0_()
172 vy[(*ii << 1) + 1] = yj[i2 - 1]; in szpcll_0_()