121   PetscScalar  Vr, Vi, IGr, IGi, Vm, Vm2;  in SetInitialGuess()  local
148     Vm2 = Vm * Vm;  in SetInitialGuess()
149     IGr = (Vr * PG[i] + Vi * QG[i]) / Vm2;  in SetInitialGuess()
150     IGi = (Vi * PG[i] - Vr * QG[i]) / Vm2;  in SetInitialGuess()
210   PetscScalar  Vr, Vi, Vm, Vm2;  in ResidualFunction()  local
298     Vm2 = Vm * Vm;  in ResidualFunction()
305     IDr = (PD * Vr + QD * Vi) / Vm2;  in ResidualFunction()
306     IDi = (-QD * Vr + PD * Vi) / Vm2;  in ResidualFunction()
435   PetscScalar        Vr, Vi, Vm, Vm2;  in ResidualJacobian()  local
664     Vm2 = Vm * Vm;  in ResidualJacobian()
665     Vm4 = Vm2 * Vm2;  in ResidualJacobian()
683     dIDr_dVr = (dPD_dVr * Vr + dQD_dVr * Vi + PD) / Vm2 - ((PD * Vr + QD * Vi) * 2 * Vr) / Vm4;  in ResidualJacobian()
684     dIDr_dVi = (dPD_dVi * Vr + dQD_dVi * Vi + QD) / Vm2 - ((PD * Vr + QD * Vi) * 2 * Vi) / Vm4;  in ResidualJacobian()
686     dIDi_dVr = (-dQD_dVr * Vr + dPD_dVr * Vi - QD) / Vm2 - ((-QD * Vr + PD * Vi) * 2 * Vr) / Vm4;  in ResidualJacobian()
687     dIDi_dVi = (-dQD_dVi * Vr + dPD_dVi * Vi + PD) / Vm2 - ((-QD * Vr + PD * Vi) * 2 * Vi) / Vm4;  in ResidualJacobian()