65           PetscScalar     Vmf, Vmt, thetaf, thetat, thetaft, thetatf;  in FormFunction_Subnet()  local
90           thetaft = thetaf - thetat;  in FormFunction_Subnet()
94 …] += Gff * Vmf * Vmf + Vmf * Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft));  in FormFunction_Subnet()
95 …+= -Bff * Vmf * Vmf + Vmf * Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaft));  in FormFunction_Subnet()
230           PetscScalar     Vmf, Vmt, thetaf, thetat, thetaft, thetatf;  in FormJacobian_Subnet()  local
260           thetaft = thetaf - thetat;  in FormJacobian_Subnet()
274 …values[0] = Vmf * Vmt * (Gft * -PetscSinScalar(thetaft) + Bft * PetscCosScalar(thetaft));         …  in FormJacobian_Subnet()
275 …alues[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 …ues[1] = -2.0 * Bff * Vmf + Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaft));  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()
303 …[0] = Vmt * Vmf * (Gtf * -PetscSinScalar(thetatf) + Btf * PetscCosScalar(thetaft));            /* …  in FormJacobian_Subnet()