46 PetscErrorCode PetscViewerGLVisSetPrecision(PetscViewer viewer, PetscInt prec)  in PetscViewerGLVisSetPrecision()  argument
49   PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1);  in PetscViewerGLVisSetPrecision()
50   PetscTryMethod(viewer, "PetscViewerGLVisSetPrecision_C", (PetscViewer, PetscInt), (viewer, prec));  in PetscViewerGLVisSetPrecision()
54 static PetscErrorCode PetscViewerGLVisSetPrecision_GLVis(PetscViewer viewer, PetscInt prec)  in PetscViewerGLVisSetPrecision_GLVis()  argument
56   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisSetPrecision_GLVis()
82 PetscErrorCode PetscViewerGLVisSetSnapId(PetscViewer viewer, PetscInt id)  in PetscViewerGLVisSetSnapId()  argument
85   PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1);  in PetscViewerGLVisSetSnapId()
86   PetscValidLogicalCollectiveInt(viewer, id, 2);  in PetscViewerGLVisSetSnapId()
87   PetscTryMethod(viewer, "PetscViewerGLVisSetSnapId_C", (PetscViewer, PetscInt), (viewer, id));  in PetscViewerGLVisSetSnapId()
91 static PetscErrorCode PetscViewerGLVisSetSnapId_GLVis(PetscViewer viewer, PetscInt id)  in PetscViewerGLVisSetSnapId_GLVis()  argument
93   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisSetSnapId_GLVis()
128 PetscErrorCode PetscViewerGLVisSetFields(PetscViewer viewer, PetscInt nf, const char *fec_type[], P…  in PetscViewerGLVisSetFields()  argument
131   PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1);  in PetscViewerGLVisSetFields()
132   PetscValidLogicalCollectiveInt(viewer, nf, 2);  in PetscViewerGLVisSetFields()
133 …PetscCheck(fec_type, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "You need to provide the…  in PetscViewerGLVisSetFields()
137 …viewer, "PetscViewerGLVisSetFields_C", (PetscViewer, PetscInt, const char *[], PetscInt[], PetscEr…  in PetscViewerGLVisSetFields()
141 static PetscErrorCode PetscViewerGLVisSetFields_GLVis(PetscViewer viewer, PetscInt nfields, const c…  in PetscViewerGLVisSetFields_GLVis()  argument
143   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisSetFields_GLVis()
147 …PetscCheck(!socket->nwindow || socket->nwindow == nfields, PetscObjectComm((PetscObject)viewer), P…  in PetscViewerGLVisSetFields_GLVis()
164 …PetscCheck(nfields == socket->nwindow, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Canno…  in PetscViewerGLVisSetFields_GLVis()
183 static PetscErrorCode PetscViewerGLVisAttachInfo_Private(PetscViewer viewer, PetscViewer window)  in PetscViewerGLVisAttachInfo_Private()  argument
185   PetscViewerGLVis     socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisAttachInfo_Private()
207 static PetscErrorCode PetscViewerGLVisGetNewWindow_Private(PetscViewer viewer, PetscViewer *view)  in PetscViewerGLVisGetNewWindow_Private()  argument
209   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetNewWindow_Private()
216   ldis = !viewer ? PETSC_TRUE : PETSC_FALSE;  in PetscViewerGLVisGetNewWindow_Private()
217 …CallMPI(MPIU_Allreduce(&ldis, &dis, 1, MPI_C_BOOL, MPI_LOR, PetscObjectComm((PetscObject)viewer)));  in PetscViewerGLVisGetNewWindow_Private()
226 PetscErrorCode PetscViewerGLVisPause_Internal(PetscViewer viewer)  in PetscViewerGLVisPause_Internal()  argument
228   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisPause_Internal()
236 PetscErrorCode PetscViewerGLVisSetDM_Internal(PetscViewer viewer, PetscObject dm)  in PetscViewerGLVisSetDM_Internal()  argument
238   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisSetDM_Internal()
241 …PetscCheck(!socket->dm || socket->dm == dm, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "…  in PetscViewerGLVisSetDM_Internal()
247     PetscCall((*setupwithdm)(dm, viewer));  in PetscViewerGLVisSetDM_Internal()
254 PetscErrorCode PetscViewerGLVisGetDMWindow_Internal(PetscViewer viewer, PetscViewer *view)  in PetscViewerGLVisGetDMWindow_Internal()  argument
256   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetDMWindow_Internal()
262       PetscCall(PetscViewerGLVisGetNewWindow_Private(viewer, &socket->meshwindow));  in PetscViewerGLVisGetDMWindow_Internal()
274         PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank));  in PetscViewerGLVisGetDMWindow_Internal()
281   if (socket->meshwindow) PetscCall(PetscViewerGLVisAttachInfo_Private(viewer, socket->meshwindow));  in PetscViewerGLVisGetDMWindow_Internal()
286 PetscErrorCode PetscViewerGLVisRestoreDMWindow_Internal(PetscViewer viewer, PetscViewer *view)  in PetscViewerGLVisRestoreDMWindow_Internal()  argument
288   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisRestoreDMWindow_Internal()
292 …PetscCheck(!*view || *view == socket->meshwindow, PetscObjectComm((PetscObject)viewer), PETSC_ERR_…  in PetscViewerGLVisRestoreDMWindow_Internal()
295     PetscCall(PetscBarrier((PetscObject)viewer));  in PetscViewerGLVisRestoreDMWindow_Internal()
306 PetscErrorCode PetscViewerGLVisGetType_Internal(PetscViewer viewer, PetscViewerGLVisType *type)  in PetscViewerGLVisGetType_Internal()  argument
308   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetType_Internal()
317 PetscErrorCode PetscViewerGLVisGetStatus_Internal(PetscViewer viewer, PetscViewerGLVisStatus *socks…  in PetscViewerGLVisGetStatus_Internal()  argument
319   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetStatus_Internal()
332 …lMPI(MPIU_Allreduce(&lconn, &conn, 1, MPI_C_BOOL, MPI_LAND, PetscObjectComm((PetscObject)viewer)));  in PetscViewerGLVisGetStatus_Internal()
339 PetscErrorCode PetscViewerGLVisGetDM_Internal(PetscViewer viewer, PetscObject *dm)  in PetscViewerGLVisGetDM_Internal()  argument
341   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetDM_Internal()
348 PetscErrorCode PetscViewerGLVisGetFields_Internal(PetscViewer viewer, PetscInt *nfield, const char …  in PetscViewerGLVisGetFields_Internal()  argument
350   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetFields_Internal()
366 PetscErrorCode PetscViewerGLVisGetWindow_Internal(PetscViewer viewer, PetscInt wid, PetscViewer *vi…  in PetscViewerGLVisGetWindow_Internal()  argument
368   PetscViewerGLVis       socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisGetWindow_Internal()
372   PetscValidLogicalCollectiveInt(viewer, wid, 2);  in PetscViewerGLVisGetWindow_Internal()
374 …PetscCheck(wid >= 0 && (wid <= socket->nwindow - 1), PetscObjectComm((PetscObject)viewer), PETSC_E…  in PetscViewerGLVisGetWindow_Internal()
392         PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)viewer), &rank));  in PetscViewerGLVisGetWindow_Internal()
397       PetscCall(PetscViewerGLVisGetNewWindow_Private(viewer, &socket->window[wid]));  in PetscViewerGLVisGetWindow_Internal()
409 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Unhandled socket status %d", (int)st…  in PetscViewerGLVisGetWindow_Internal()
411   if (*view) PetscCall(PetscViewerGLVisAttachInfo_Private(viewer, *view));  in PetscViewerGLVisGetWindow_Internal()
422 PetscErrorCode PetscViewerGLVisRestoreWindow_Internal(PetscViewer viewer, PetscInt wid, PetscViewer…  in PetscViewerGLVisRestoreWindow_Internal()  argument
424   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerGLVisRestoreWindow_Internal()
427   PetscValidHeaderSpecificType(viewer, PETSC_VIEWER_CLASSID, 1, PETSCVIEWERGLVIS);  in PetscViewerGLVisRestoreWindow_Internal()
428   PetscValidLogicalCollectiveInt(viewer, wid, 2);  in PetscViewerGLVisRestoreWindow_Internal()
430 …PetscCheck(wid >= 0 && wid < socket->nwindow, PetscObjectComm((PetscObject)viewer), PETSC_ERR_USER…  in PetscViewerGLVisRestoreWindow_Internal()
431 …PetscCheck(!*view || *view == socket->window[wid], PetscObjectComm((PetscObject)viewer), PETSC_ERR…  in PetscViewerGLVisRestoreWindow_Internal()
434     PetscCall(PetscBarrier((PetscObject)viewer));  in PetscViewerGLVisRestoreWindow_Internal()
446 PetscErrorCode PetscViewerGLVisInitWindow_Internal(PetscViewer viewer, PetscBool mesh, PetscInt dim…  in PetscViewerGLVisInitWindow_Internal()  argument
452 …PetscCall(PetscObjectQuery((PetscObject)viewer, "_glvis_info_container", (PetscObject *)&container…  in PetscViewerGLVisInitWindow_Internal()
458 …if (info->size[0] > 0) PetscCall(PetscViewerASCIIPrintf(viewer, "window_size %" PetscInt_FMT " %" …  in PetscViewerGLVisInitWindow_Internal()
459   if (name) PetscCall(PetscViewerASCIIPrintf(viewer, "window_title '%s'\n", name));  in PetscViewerGLVisInitWindow_Internal()
465       PetscCall(PetscViewerASCIIPrintf(viewer, "keys m\n")); /* show mesh */  in PetscViewerGLVisInitWindow_Internal()
468       PetscCall(PetscViewerASCIIPrintf(viewer, "keys m\n")); /* show mesh */  in PetscViewerGLVisInitWindow_Internal()
474     PetscCall(PetscViewerASCIIPrintf(viewer, "keys cm\n")); /* show colorbar and mesh */  in PetscViewerGLVisInitWindow_Internal()
477 …PetscCall(PetscViewerASCIIPrintf(viewer, "keys RRjl\n")); /* set to 1D (side view), turn off persp…  in PetscViewerGLVisInitWindow_Internal()
480 …PetscCall(PetscViewerASCIIPrintf(viewer, "keys Rjl\n")); /* set to 2D (top view), turn off perspec…  in PetscViewerGLVisInitWindow_Internal()
485 …PetscCall(PetscViewerASCIIPrintf(viewer, "autoscale value\n")); /* update value-range; keep mesh-e…  in PetscViewerGLVisInitWindow_Internal()
490     PetscOptions opt = ((PetscObject)viewer)->options;  in PetscViewerGLVisInitWindow_Internal()
491     const char  *pre = ((PetscObject)viewer)->prefix;  in PetscViewerGLVisInitWindow_Internal()
495     if (keys[0]) PetscCall(PetscViewerASCIIPrintf(viewer, "keys %s\n", keys));  in PetscViewerGLVisInitWindow_Internal()
496     if (cmds[0]) PetscCall(PetscViewerASCIIPrintf(viewer, "%s\n", cmds));  in PetscViewerGLVisInitWindow_Internal()
500   if (!mesh && info->pause == -1) PetscCall(PetscViewerASCIIPrintf(viewer, "autopause 1\n"));  in PetscViewerGLVisInitWindow_Internal()
501   if (!mesh && info->pause == 0) PetscCall(PetscViewerASCIIPrintf(viewer, "pause\n"));  in PetscViewerGLVisInitWindow_Internal()
507 static PetscErrorCode PetscViewerDestroy_GLVis(PetscViewer viewer)  in PetscViewerDestroy_GLVis()  argument
509   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerDestroy_GLVis()
526 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetPrecision_C", NULL));  in PetscViewerDestroy_GLVis()
527   PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetSnapId_C", NULL));  in PetscViewerDestroy_GLVis()
528   PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetFields_C", NULL));  in PetscViewerDestroy_GLVis()
529   PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetName_C", NULL));  in PetscViewerDestroy_GLVis()
531   viewer->data = NULL;  in PetscViewerDestroy_GLVis()
554 static PetscErrorCode PetscViewerFileSetName_GLVis(PetscViewer viewer, const char name[])  in PetscViewerFileSetName_GLVis()  argument
557   PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;  in PetscViewerFileSetName_GLVis()
609 …en(MPI_Comm comm, PetscViewerGLVisType type, const char name[], PetscInt port, PetscViewer *viewer)  in PetscViewerGLVisOpen()  argument
614   PetscCall(PetscViewerCreate(comm, viewer));  in PetscViewerGLVisOpen()
615   PetscCall(PetscViewerSetType(*viewer, PETSCVIEWERGLVIS));  in PetscViewerGLVisOpen()
617   socket       = (PetscViewerGLVis)((*viewer)->data);  in PetscViewerGLVisOpen()
625   PetscCall(PetscViewerSetFromOptions(*viewer));  in PetscViewerGLVisOpen()
659   PetscViewer          viewer;  in PETSC_VIEWER_GLVIS_()  local
675   PetscCallNull(PetscViewerGLVisOpen(comm, type, fname, port, &viewer));  in PETSC_VIEWER_GLVIS_()
676   PetscCallNull(PetscObjectRegisterDestroy((PetscObject)viewer));  in PETSC_VIEWER_GLVIS_()
677   PetscFunctionReturn(viewer);  in PETSC_VIEWER_GLVIS_()
680 PETSC_EXTERN PetscErrorCode PetscViewerCreate_GLVis(PetscViewer viewer)  in PetscViewerCreate_GLVis()  argument
699   viewer->data                = (void *)socket;  in PetscViewerCreate_GLVis()
700   viewer->ops->destroy        = PetscViewerDestroy_GLVis;  in PetscViewerCreate_GLVis()
701   viewer->ops->setfromoptions = PetscViewerSetFromOptions_GLVis;  in PetscViewerCreate_GLVis()
703 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetPrecision_C", PetscV…  in PetscViewerCreate_GLVis()
704 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetSnapId_C", PetscView…  in PetscViewerCreate_GLVis()
705 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerGLVisSetFields_C", PetscView…  in PetscViewerCreate_GLVis()
706 …PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetName_C", PetscViewerF…  in PetscViewerCreate_GLVis()
719 static PetscErrorCode PetscViewerDestroy_ASCII_Socket(PetscViewer viewer)  in PetscViewerDestroy_ASCII_Socket()  argument
724   PetscCall(PetscViewerASCIIGetPointer(viewer, &stream));  in PetscViewerDestroy_ASCII_Socket()
729   PetscCall(PetscViewerDestroy_ASCII(viewer));  in PetscViewerDestroy_ASCII_Socket()
742 …PetscViewerASCIISocketOpen(MPI_Comm comm, const char *hostname, PetscInt port, PetscViewer *viewer)  in PetscViewerASCIISocketOpen()  argument
755   PetscAssertPointer(viewer, 4);  in PetscViewerASCIISocketOpen()
769     *viewer = NULL;  in PetscViewerASCIISocketOpen()
776   PetscCall(PetscViewerASCIIOpenWithFILE(PETSC_COMM_SELF, stream, viewer));  in PetscViewerASCIISocketOpen()
777   PetscViewerDestroy_ASCII = (*viewer)->ops->destroy;  in PetscViewerASCIISocketOpen()
778   (*viewer)->ops->destroy  = PetscViewerDestroy_ASCII_Socket;  in PetscViewerASCIISocketOpen()