Searched refs:iprod (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()244 iprod = inew; in PolyEval()247 *py = iprod; in PolyEval()