37   PetscScalar        values[8];  in FormJacobian_Power_private()  local
72             values[0] = 1.0;  in FormJacobian_Power_private()
73             values[1] = 0.0;  in FormJacobian_Power_private()
74             values[2] = 0.0;  in FormJacobian_Power_private()
75             values[3] = 1.0;  in FormJacobian_Power_private()
76             PetscCall(MatSetValues(J, 2, row, 2, col, values, ADD_VALUES));  in FormJacobian_Power_private()
87           values[0] = values[1] = values[2] = values[3] = 0.0;  in FormJacobian_Power_private()
89             values[1] = 2.0 * Vm * bus->gl / Sbase;  in FormJacobian_Power_private()
90             values[3] = -2.0 * Vm * bus->bl / Sbase;  in FormJacobian_Power_private()
92           PetscCall(MatSetValues(J, 2, row, 2, col, values, ADD_VALUES));  in FormJacobian_Power_private()
147 …values[0] = Vmf * Vmt * (Gft * -PetscSinScalar(thetaft) + Bft * PetscCosScalar(thetaft));         …  in FormJacobian_Power_private()
148 …values[1] = 2.0 * Gff * Vmf + Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)…  in FormJacobian_Power_private()
149 …values[2] = Vmf * Vmt * (Gft * PetscSinScalar(thetaft) + Bft * -PetscCosScalar(thetaft));         …  in FormJacobian_Power_private()
150 …values[3] = Vmf * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft));                …  in FormJacobian_Power_private()
152               PetscCall(MatSetValues(J, 1, row, 4, col, values, ADD_VALUES));  in FormJacobian_Power_private()
161 …           values[0] = Vmf * Vmt * (Bft * PetscSinScalar(thetaft) + Gft * PetscCosScalar(thetaft));  in FormJacobian_Power_private()
162 …values[1] = -2.0 * Bff * Vmf + Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaf…  in FormJacobian_Power_private()
163 …         values[2] = Vmf * Vmt * (-Bft * PetscSinScalar(thetaft) + Gft * -PetscCosScalar(thetaft));  in FormJacobian_Power_private()
164               values[3] = Vmf * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaft));  in FormJacobian_Power_private()
166               PetscCall(MatSetValues(J, 1, row, 4, col, values, ADD_VALUES));  in FormJacobian_Power_private()
176 …values[0] = Vmt * Vmf * (Gtf * -PetscSinScalar(thetatf) + Btf * PetscCosScalar(thetaft));         …  in FormJacobian_Power_private()
177 …values[1] = 2.0 * Gtt * Vmt + Vmf * (Gtf * PetscCosScalar(thetatf) + Btf * PetscSinScalar(thetatf)…  in FormJacobian_Power_private()
178 …values[2] = Vmt * Vmf * (Gtf * PetscSinScalar(thetatf) + Btf * -PetscCosScalar(thetatf));         …  in FormJacobian_Power_private()
179 …values[3] = Vmt * (Gtf * PetscCosScalar(thetatf) + Btf * PetscSinScalar(thetatf));                …  in FormJacobian_Power_private()
181               PetscCall(MatSetValues(J, 1, row, 4, col, values, ADD_VALUES));  in FormJacobian_Power_private()
190 …           values[0] = Vmt * Vmf * (Btf * PetscSinScalar(thetatf) + Gtf * PetscCosScalar(thetatf));  in FormJacobian_Power_private()
191 …values[1] = -2.0 * Btt * Vmt + Vmf * (-Btf * PetscCosScalar(thetatf) + Gtf * PetscSinScalar(thetat…  in FormJacobian_Power_private()
192 …         values[2] = Vmt * Vmf * (-Btf * PetscSinScalar(thetatf) + Gtf * -PetscCosScalar(thetatf));  in FormJacobian_Power_private()
193               values[3] = Vmt * (-Btf * PetscCosScalar(thetatf) + Gtf * PetscSinScalar(thetatf));  in FormJacobian_Power_private()
195               PetscCall(MatSetValues(J, 1, row, 4, col, values, ADD_VALUES));  in FormJacobian_Power_private()
202           values[0] = 1.0;  in FormJacobian_Power_private()
203           if (user_power->jac_error) values[0] = 50.0;  in FormJacobian_Power_private()
204           PetscCall(MatSetValues(J, 1, row, 1, col, values, ADD_VALUES));  in FormJacobian_Power_private()