142   PetscScalar        Efd, RF, VR, Vr, Vi, Vm;  in EventFunction()  local
157     Efd = xgen[idx + 6];  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()
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
241         Efd = xgen[idx + 6];  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
405     Efd = Eqp + (Xd[i] - Xdp[i]) * Id;  in SetInitialGuess()
406     SE  = k1[i] * PetscExpScalar(k2[i] * Efd);  in SetInitialGuess()
407     VR  = KE[i] * Efd + SE;  in SetInitialGuess()
408     RF  = KF[i] * Efd / TF[i];  in SetInitialGuess()
410     xgen[idx]     = Efd;  in SetInitialGuess()
438   PetscScalar        Efd, RF, VR;        /* Exciter variables */  in ResidualFunction()  local
476     Efd   = xgen[idx + 6];  in ResidualFunction()
481     fgen[idx]     = (-Eqp - (Xd[i] - Xdp[i]) * Id + Efd) / Td0p[i];  in ResidualFunction()
509     SE = k1[i] * PetscExpScalar(k2[i] * Efd);  in ResidualFunction()
512     fgen[idx + 6] = (-KE[i] * Efd - SE + VR) / TE[i];  in ResidualFunction()
513     fgen[idx + 7] = (-RF + KF[i] * Efd / TF[i]) / TF[i];  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()
694   PetscScalar        Efd;  in ResidualJacobian()  local
729     Efd   = xgen[idx + 6];  in ResidualJacobian()
854     dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd);  in ResidualJacobian()