142   PetscScalar        Efd, RF, VR, Vr, Vi, Vm;  in EventFunction()  local
159     VR  = xgen[idx + 8];  in EventFunction()
166       fvalue[2 + 2 * i] = PetscRealPart(VRMAX[i] - VR);  in EventFunction()
168 …fvalue[2 + 2 * i] = PetscRealPart((VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i…  in EventFunction()
171       fvalue[2 + 2 * i + 1] = PetscRealPart(VRMIN[i] - VR);  in EventFunction()
173 …fvalue[2 + 2 * i + 1] = PetscRealPart((VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vr…  in EventFunction()
193   PetscScalar  Efd, RF, VR;  in PostEventFunction()  local
243         VR  = xgen[idx + 8];  in PostEventFunction()
250           fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in PostEventFunction()
257           fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in PostEventFunction()
347   PetscScalar        Efd, RF, VR; /* Exciter variables */  in SetInitialGuess()  local
407     VR  = KE[i] * Efd + SE;  in SetInitialGuess()
412     xgen[idx + 2] = VR;  in SetInitialGuess()
414     Vref[i] = Vm + (VR / KA[i]);  in SetInitialGuess()
438   PetscScalar        Efd, RF, VR;        /* Exciter variables */  in ResidualFunction()  local
478     VR    = xgen[idx + 8];  in ResidualFunction()
512     fgen[idx + 6] = (-KE[i] * Efd - SE + VR) / TE[i];  in ResidualFunction()
514     if (VRatmax[i]) fgen[idx + 8] = VR - VRMAX[i];  in ResidualFunction()
515     else if (VRatmin[i]) fgen[idx + 8] = VRMIN[i] - VR;  in ResidualFunction()
516 …else fgen[idx + 8] = (-VR + KA[i] * RF - KA[i] * KF[i] * Efd / TF[i] + KA[i] * (Vref[i] - Vm)) / T…  in ResidualFunction()