63           PetscScalar     Gff, Bff, Gft, Bft, Gtf, Btf, Gtt, Btt;  in FormFunction_Subnet()  local
72           Gft = branch->yft[0];  in FormFunction_Subnet()
94 …farr[offsetfrom] += Gff * Vmf * Vmf + Vmf * Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinS…  in FormFunction_Subnet()
95 …m + 1] += -Bff * Vmf * Vmf + Vmf * Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(th…  in FormFunction_Subnet()
228           PetscScalar     Gff, Bff, Gft, Bft, Gtf, Btf, Gtt, Btt;  in FormJacobian_Subnet()  local
238           Gft = branch->yft[0];  in FormJacobian_Subnet()
274 …values[0] = Vmf * Vmt * (Gft * -PetscSinScalar(thetaft) + Bft * PetscCosScalar(thetaft));         …  in FormJacobian_Subnet()
275 …values[1] = 2.0 * Gff * Vmf + Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)…  in FormJacobian_Subnet()
276 …values[2] = Vmf * Vmt * (Gft * PetscSinScalar(thetaft) + Bft * -PetscCosScalar(thetaft));         …  in FormJacobian_Subnet()
277 …values[3] = Vmf * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft));                …  in FormJacobian_Subnet()
288 …           values[0] = Vmf * Vmt * (Bft * PetscSinScalar(thetaft) + Gft * PetscCosScalar(thetaft));  in FormJacobian_Subnet()
289 …values[1] = -2.0 * Bff * Vmf + Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaf…  in FormJacobian_Subnet()
290 …         values[2] = Vmf * Vmt * (-Bft * PetscSinScalar(thetaft) + Gft * -PetscCosScalar(thetaft));  in FormJacobian_Subnet()
291               values[3] = Vmf * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaft));  in FormJacobian_Subnet()