123   PetscScalar  Efd, RF, VR; /* Exciter variables */  in SetInitialGuess()  local
181     Efd = Eqp + (Xd[i] - Xdp[i]) * Id;  in SetInitialGuess()
182     SE  = k1[i] * PetscExpScalar(k2[i] * Efd);  in SetInitialGuess()
183     VR  = KE[i] * Efd + SE;  in SetInitialGuess()
184     RF  = KF[i] * Efd / TF[i];  in SetInitialGuess()
186     xgen[idx]     = Efd;  in SetInitialGuess()
212   PetscScalar  Efd, RF, VR;        /* Exciter variables */  in ResidualFunction()  local
250     Efd   = xgen[idx + 6];  in ResidualFunction()
255     fgen[idx]     = (Eqp + (Xd[i] - Xdp[i]) * Id - Efd) / Td0p[i];  in ResidualFunction()
283     SE = k1[i] * PetscExpScalar(k2[i] * Efd);  in ResidualFunction()
286     fgen[idx + 6] = (KE[i] * Efd + SE - VR) / TE[i];  in ResidualFunction()
287     fgen[idx + 7] = (RF - KF[i] * Efd / TF[i]) / TF[i];  in ResidualFunction()
288 …  fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in ResidualFunction()
437   PetscScalar        Efd;             /* Exciter variables */  in ResidualJacobian()  local
471     Efd   = xgen[idx + 6];  in ResidualJacobian()
596     dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd);  in ResidualJacobian()