121   PetscScalar  Efd, RF, VR; /* Exciter variables */  in SetInitialGuess()  local
179     Efd = Eqp + (Xd[i] - Xdp[i]) * Id;  in SetInitialGuess()
180     SE  = k1[i] * PetscExpScalar(k2[i] * Efd);  in SetInitialGuess()
181     VR  = KE[i] * Efd + SE;  in SetInitialGuess()
182     RF  = KF[i] * Efd / TF[i];  in SetInitialGuess()
184     xgen[idx]     = Efd;  in SetInitialGuess()
210   PetscScalar  Efd, RF, VR;        /* Exciter variables */  in ResidualFunction()  local
248     Efd   = xgen[idx + 6];  in ResidualFunction()
253     fgen[idx]     = (Eqp + (Xd[i] - Xdp[i]) * Id - Efd) / Td0p[i];  in ResidualFunction()
282     SE = k1[i] * PetscExpScalar(k2[i] * Efd);  in ResidualFunction()
285     fgen[idx + 6] = (KE[i] * Efd + SE - VR) / TE[i];  in ResidualFunction()
286     fgen[idx + 7] = (RF - KF[i] * Efd / TF[i]) / TF[i];  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()
436   PetscScalar        Efd;             /* Exciter variables */  in ResidualJacobian()  local
470     Efd   = xgen[idx + 6];  in ResidualJacobian()
594     dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd);  in ResidualJacobian()