Lines Matching refs:farr
16 PetscScalar *farr; in FormFunction_Subnet() local
21 PetscCall(VecGetArray(localF, &farr)); in FormFunction_Subnet()
46 farr[offset] = xarr[offset] - bus->va * PETSC_PI / 180.0; in FormFunction_Subnet()
47 farr[offset + 1] = xarr[offset + 1] - bus->vm; in FormFunction_Subnet()
55 farr[offset] += Vm * Vm * bus->gl / Sbase; in FormFunction_Subnet()
56 if (bus->ide != PV_BUS) farr[offset + 1] += -Vm * Vm * bus->bl / Sbase; in FormFunction_Subnet()
94 …farr[offsetfrom] += Gff * Vmf * Vmf + Vmf * Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinS… in FormFunction_Subnet()
95 …farr[offsetfrom + 1] += -Bff * Vmf * Vmf + Vmf * Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * Pet… in FormFunction_Subnet()
97 …farr[offsetto] += Gtt * Vmt * Vmt + Vmt * Vmf * (Gtf * PetscCosScalar(thetatf) + Btf * PetscSinSca… in FormFunction_Subnet()
98 …farr[offsetto + 1] += -Btt * Vmt * Vmt + Vmt * Vmf * (-Btf * PetscCosScalar(thetatf) + Gtf * Petsc… in FormFunction_Subnet()
105 farr[offset] += -gen->pg / Sbase; in FormFunction_Subnet()
106 farr[offset + 1] += -gen->qg / Sbase; in FormFunction_Subnet()
111 farr[offset] += load->pl / Sbase; in FormFunction_Subnet()
112 farr[offset + 1] += load->ql / Sbase; in FormFunction_Subnet()
116 if (bus && bus->ide == PV_BUS) farr[offset + 1] = xarr[offset + 1] - bus->vm; in FormFunction_Subnet()
119 PetscCall(VecRestoreArray(localF, &farr)); in FormFunction_Subnet()