23 static PetscErrorCode VecArrayPrint_private(PetscViewer viewer, PetscInt n, const PetscScalar *xv)  in VecArrayPrint_private()  argument
30     if (PetscImaginaryPart(xv[i]) > 0.0) {  in VecArrayPrint_private()
31 …IIPrintf(viewer, "    %g + %g i\n", (double)PetscRealPart(xv[i]), (double)PetscImaginaryPart(xv[i]…  in VecArrayPrint_private()
32     } else if (PetscImaginaryPart(xv[i]) < 0.0) {  in VecArrayPrint_private()
33 …IPrintf(viewer, "    %g - %g i\n", (double)PetscRealPart(xv[i]), -(double)PetscImaginaryPart(xv[i]…  in VecArrayPrint_private()
34     } else PetscCall(PetscViewerASCIIPrintf(viewer, "    %g\n", (double)PetscRealPart(xv[i])));  in VecArrayPrint_private()
36     PetscCall(PetscViewerASCIIPrintf(viewer, "    %g\n", (double)xv[i]));  in VecArrayPrint_private()
45   const PetscScalar *xv;  in VecView_Network_Seq()  local
48   PetscCall(VecGetArrayRead(X, &xv));  in VecView_Network_Seq()
60     PetscCall(VecArrayPrint_private(viewer, nvar, xv + offset));  in VecView_Network_Seq()
73     PetscCall(VecArrayPrint_private(viewer, nvar, xv + offset));  in VecView_Network_Seq()
76   PetscCall(VecRestoreArrayRead(X, &xv));  in VecView_Network_Seq()
83   const PetscScalar *xv;  in VecView_Network_MPI()  local
100   PetscCall(VecGetArrayRead(localX, &xv));  in VecView_Network_MPI()
126       PetscCall(VecArrayPrint_private(viewer, nvar, xv + offset));  in VecView_Network_MPI()
131       for (i = offset; i < offset + nvar; i++) values[k++] = xv[i];  in VecView_Network_MPI()
147       PetscCall(VecArrayPrint_private(viewer, nvar, xv + offset));  in VecView_Network_MPI()
152       for (i = offset; i < offset + nvar; i++) values[k++] = xv[i];  in VecView_Network_MPI()
191   PetscCall(VecRestoreArrayRead(localX, &xv));  in VecView_Network_MPI()