119   PetscScalar  Vr, Vi, IGr, IGi, Vm, Vm2;  in SetInitialGuess()  local
145     Vm  = PetscSqrtScalar(Vr * Vr + Vi * Vi);  in SetInitialGuess()
146     Vm2 = Vm * Vm;  in SetInitialGuess()
188     Vref[i] = Vm + (VR / KA[i]);  in SetInitialGuess()
208   PetscScalar  Vr, Vi, Vm, Vm2;  in ResidualFunction()  local
280     Vm = PetscSqrtScalar(Vd * Vd + Vq * Vq);  in ResidualFunction()
287 …  fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in ResidualFunction()
296     Vm  = PetscSqrtScalar(Vr * Vr + Vi * Vi);  in ResidualFunction()
297     Vm2 = Vm * Vm;  in ResidualFunction()
300 …for (k = 0; k < ld_nsegsp[i]; k++) PD += ld_alphap[k] * PD0[i] * PetscPowScalar(Vm / Vm0, ld_betap…  in ResidualFunction()
301 …for (k = 0; k < ld_nsegsq[i]; k++) QD += ld_alphaq[k] * QD0[i] * PetscPowScalar(Vm / Vm0, ld_betaq…  in ResidualFunction()
434   PetscScalar        Vr, Vi, Vm, Vm2;  in ResidualJacobian()  local
590     Vm = PetscSqrtScalar(Vd * Vd + Vq * Vq);  in ResidualJacobian()
615     dVm_dVd = Vd / Vm;  in ResidualJacobian()
616     dVm_dVq = Vq / Vm;  in ResidualJacobian()
661     Vm  = PetscSqrtScalar(Vr * Vr + Vi * Vi);  in ResidualJacobian()
662     Vm2 = Vm * Vm;  in ResidualJacobian()
668       PD += ld_alphap[k] * PD0[i] * PetscPowScalar(Vm / Vm0, ld_betap[k]);  in ResidualJacobian()
669 …etap[k] * PD0[i] * PetscPowScalar(1 / Vm0, ld_betap[k]) * Vr * PetscPowScalar(Vm, ld_betap[k] - 2);  in ResidualJacobian()
670 …etap[k] * PD0[i] * PetscPowScalar(1 / Vm0, ld_betap[k]) * Vi * PetscPowScalar(Vm, ld_betap[k] - 2);  in ResidualJacobian()
673       QD += ld_alphaq[k] * QD0[i] * PetscPowScalar(Vm / Vm0, ld_betaq[k]);  in ResidualJacobian()
674 …etaq[k] * QD0[i] * PetscPowScalar(1 / Vm0, ld_betaq[k]) * Vr * PetscPowScalar(Vm, ld_betaq[k] - 2);  in ResidualJacobian()
675 …etaq[k] * QD0[i] * PetscPowScalar(1 / Vm0, ld_betaq[k]) * Vi * PetscPowScalar(Vm, ld_betaq[k] - 2);  in ResidualJacobian()