27     VERTEX_Power bus   = NULL;  in FormFunction_Subnet()  local
43         bus = (VERTEX_Power)component;  in FormFunction_Subnet()
45         if (bus->ide == REF_BUS || bus->ide == ISOLATED_BUS) {  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()
116     if (bus && bus->ide == PV_BUS) farr[offset + 1] = xarr[offset + 1] - bus->vm;  in FormFunction_Subnet()
175     VERTEX_Power bus;  in FormJacobian_Subnet()  local
190         bus = (VERTEX_Power)component;  in FormJacobian_Subnet()
193           if (bus->ide == REF_BUS || bus->ide == ISOLATED_BUS) {  in FormJacobian_Subnet()
216           if (bus->ide != PV_BUS) {  in FormJacobian_Subnet()
217             values[1] = 2.0 * Vm * bus->gl / Sbase;  in FormJacobian_Subnet()
218             values[3] = -2.0 * Vm * bus->bl / Sbase;  in FormJacobian_Subnet()
326         if (!ghostvtex && bus->ide == PV_BUS) {  in FormJacobian_Subnet()
372   VERTEX_Power bus;  in SetInitialValues_Subnet()  local
391         bus              = (VERTEX_Power)component;  in SetInitialValues_Subnet()
392         xarr[offset]     = bus->va * PETSC_PI / 180.0;  in SetInitialValues_Subnet()
393         xarr[offset + 1] = bus->vm;  in SetInitialValues_Subnet()
517         PetscCall(DMNetworkAddComponent(networkdm, vtx[i], componentkey[1], &pfdata1->bus[i], 2));  in main()
518         if (pfdata1->bus[i].ngen) {  in main()
519 …for (j = 0; j < pfdata1->bus[i].ngen; j++) PetscCall(DMNetworkAddComponent(networkdm, vtx[i], comp…  in main()
521         if (pfdata1->bus[i].nload) {  in main()
522 …for (j = 0; j < pfdata1->bus[i].nload; j++) PetscCall(DMNetworkAddComponent(networkdm, vtx[i], com…  in main()
535         PetscCall(DMNetworkAddComponent(networkdm, vtx[i], componentkey[1], &pfdata2->bus[i], 2));  in main()
536         if (pfdata2->bus[i].ngen) {  in main()
537 …for (j = 0; j < pfdata2->bus[i].ngen; j++) PetscCall(DMNetworkAddComponent(networkdm, vtx[i], comp…  in main()
539         if (pfdata2->bus[i].nload) {  in main()
540 …for (j = 0; j < pfdata2->bus[i].nload; j++) PetscCall(DMNetworkAddComponent(networkdm, vtx[i], com…  in main()
554       PetscCall(PetscFree(pfdata1->bus));  in main()
560       PetscCall(PetscFree(pfdata2->bus));  in main()