Searched refs:rprod (Results 1 – 1 of 1) sorted by relevance
237 PetscReal rprod = 1, iprod = 0; in PolyEval() local241 PetscReal rnew = rprod * (x - r[i]) - iprod * (y - c[i]); in PolyEval()242 PetscReal inew = rprod * (y - c[i]) + iprod * (x - r[i]); in PolyEval()243 rprod = rnew; in PolyEval()246 *px = rprod; in PolyEval()