136 PetscErrorCode EventFunction(TS ts, PetscReal t, Vec X, PetscReal *fvalue, PetscCtx ctx)  in EventFunction()  argument
152   fvalue[0] = t - user->tfaulton;  in EventFunction()
154   fvalue[1] = t - user->tfaultoff;  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()
192   PetscScalar  fvalue;  in PostEventFunction()  local
250           fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in PostEventFunction()
251           if (fvalue < 0) {  in PostEventFunction()
257           fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i];  in PostEventFunction()
259           if (fvalue > 0) {  in PostEventFunction()