160   PetscScalar  Efd, RF, VR; /* Exciter variables */  in SetInitialGuess()  local
218     Efd = Eqp + (Xd[i] - Xdp[i]) * Id;  in SetInitialGuess()
219     SE  = k1[i] * PetscExpScalar(k2[i] * Efd);  in SetInitialGuess()
220     VR  = KE[i] * Efd + SE;  in SetInitialGuess()
221     RF  = KF[i] * Efd / TF[i];  in SetInitialGuess()
223     xgen[idx]     = Efd;  in SetInitialGuess()
248   PetscScalar  Efd, RF, VR; /* Exciter variables */  in InitialGuess()  local
304     Efd = Eqp + (Xd[i] - Xdp[i]) * Id;  in InitialGuess()
305     SE  = k1[i] * PetscExpScalar(k2[i] * Efd);  in InitialGuess()
306     VR  = KE[i] * Efd + SE;  in InitialGuess()
307     RF  = KF[i] * Efd / TF[i];  in InitialGuess()
309     xgen[idx]     = Efd;  in InitialGuess()
357   PetscScalar  Efd, RF, VR;        /* Exciter variables */  in ResidualFunction()  local
395     Efd   = xgen[idx + 6];  in ResidualFunction()
400     fgen[idx]     = (Eqp + (Xd[i] - Xdp[i]) * Id - Efd) / Td0p[i];  in ResidualFunction()
428     SE = k1[i] * PetscExpScalar(k2[i] * Efd);  in ResidualFunction()
431     fgen[idx + 6] = (KE[i] * Efd + SE - VR) / TE[i];  in ResidualFunction()
432     fgen[idx + 7] = (RF - KF[i] * Efd / TF[i]) / TF[i];  in ResidualFunction()
433 …  fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in ResidualFunction()
580   PetscScalar        Efd;             /* Exciter variables */  in ResidualJacobian()  local
614     Efd   = xgen[idx + 6];  in ResidualJacobian()
738     dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd);  in ResidualJacobian()