/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c

Bug Summary

File:	sys/classes/viewer/impls/draw/drawv.c
Warning:	line 441, column 31 Dereference of null pointer (loaded from variable 'sviewer')

Annotated Source Code

[?] Use j/k keys for keyboard navigation

#include <../src/sys/classes/viewer/impls/draw/vdraw.h> /*I "petscdraw.h" I*/

#include <petscviewer.h> /*I "petscviewer.h" I*/

static PetscErrorCode PetscViewerDestroy_Draw(PetscViewer v)

{

PetscErrorCode ierr;

PetscInt i;

PetscViewer_Draw *vdraw = (PetscViewer_Draw*)v->data;

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 11; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

if (vdraw->singleton_made) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ORDER,"Destroying PetscViewer without first restoring singleton")return PetscError(((MPI_Comm)0x44000001),12,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,58,PETSC_ERROR_INITIAL,"Destroying PetscViewer without first restoring singleton"
);

for (i=0; i<vdraw->draw_max; i++) {

ierr = PetscDrawAxisDestroy(&vdraw->drawaxis[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),14,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscDrawLGDestroy(&vdraw->drawlg[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),15,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscDrawDestroy(&vdraw->draw[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),16,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

}

ierr = PetscFree(vdraw->display)((*PetscTrFree)((void*)(vdraw->display),18,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->display) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),18,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree(vdraw->title)((*PetscTrFree)((void*)(vdraw->title),19,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->title) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),19,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree3(vdraw->draw,vdraw->drawlg,vdraw->drawaxis)PetscFreeA(3,20,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,&(vdraw->draw),&(vdraw->drawlg),&(vdraw->
drawaxis));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),20,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree(vdraw->bounds)((*PetscTrFree)((void*)(vdraw->bounds),21,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->bounds) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),21,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree(vdraw->drawtype)((*PetscTrFree)((void*)(vdraw->drawtype),22,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->drawtype) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),22,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree(v->data)((*PetscTrFree)((void*)(v->data),23,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((v->data) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),23,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

}

static PetscErrorCode PetscViewerFlush_Draw(PetscViewer v)

{

PetscErrorCode ierr;

PetscInt i;

PetscViewer_Draw *vdraw = (PetscViewer_Draw*)v->data;

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 33; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

for (i=0; i<vdraw->draw_max; i++) {

if (vdraw->draw[i]) {ierr = PetscDrawFlush(vdraw->draw[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),35,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

}

/*@C

PetscViewerDrawGetDraw - Returns PetscDraw object from PetscViewer object.

This PetscDraw object may then be used to perform graphics using

PetscDrawXXX() commands.

Collective on PetscViewer

Input Parameters:

+ viewer - the PetscViewer (created with PetscViewerDrawOpen())

- windownumber - indicates which subwindow (usually 0)

Ouput Parameter:

. draw - the draw object

Level: intermediate

.seealso: PetscViewerDrawGetLG(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen()

@*/

PetscErrorCode PetscViewerDrawGetDraw(PetscViewer viewer,PetscInt windownumber,PetscDraw *draw)

{

PetscViewer_Draw *vdraw;

PetscErrorCode ierr;

PetscBool isdraw;

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 65; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),66
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),66,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),66,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),66,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

PetscValidLogicalCollectiveInt(viewer,windownumber,2)do { PetscErrorCode _7_ierr; PetscInt b1[2],b2[2]; b1[0] = -windownumber
; b1[1] = windownumber; _7_ierr = (PetscAllreduceBarrierCheck
(PetscObjectComm((PetscObject)viewer),2,67,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)viewer))),0) || MPI_Allreduce((b1),(b2),(2),(((
MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)),(PetscObjectComm
((PetscObject)viewer)))));do {if (__builtin_expect(!!(_7_ierr
),0)) return PetscError(((MPI_Comm)0x44000001),67,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,_7_ierr,PETSC_ERROR_REPEAT," ");} while (0); if (-b2[0] != b2
[1]) return PetscError(PetscObjectComm((PetscObject)viewer),67
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Int value must be same on all processes, argument # %d"
,2); } while (0);

if (draw) PetscValidPointer(draw,3)do { if (!draw) return PetscError(((MPI_Comm)0x44000001),68,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(draw,PETSC_CHAR)) return PetscError(((MPI_Comm
)0x44000001),68,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),69,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),70,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

if (windownumber < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Window number cannot be negative")return PetscError(((MPI_Comm)0x44000001),71,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,63,PETSC_ERROR_INITIAL,"Window number cannot be negative");

vdraw = (PetscViewer_Draw*)viewer->data;

windownumber += vdraw->draw_base;

if (windownumber >= vdraw->draw_max) {

/* allocate twice as many slots as needed */

PetscInt draw_max = vdraw->draw_max;

PetscDraw *tdraw = vdraw->draw;

PetscDrawLG *drawlg = vdraw->drawlg;

PetscDrawAxis *drawaxis = vdraw->drawaxis;

vdraw->draw_max = 2*windownumber;

ierr = PetscCalloc3(vdraw->draw_max,&vdraw->draw,vdraw->draw_max,&vdraw->drawlg,vdraw->draw_max,&vdraw->drawaxis)PetscMallocA(3,PETSC_TRUE,84,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,(size_t)(vdraw->draw_max)*sizeof(**(&vdraw->draw))
,(&vdraw->draw),(size_t)(vdraw->draw_max)*sizeof(**
(&vdraw->drawlg)),(&vdraw->drawlg),(size_t)(vdraw
->draw_max)*sizeof(**(&vdraw->drawaxis)),(&vdraw
->drawaxis));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),84,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscArraycpy(vdraw->draw,tdraw,draw_max)((sizeof(*(vdraw->draw)) != sizeof(*(tdraw))) || PetscMemcpy
(vdraw->draw,tdraw,(draw_max)*sizeof(*(vdraw->draw))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),85,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscArraycpy(vdraw->drawlg,drawlg,draw_max)((sizeof(*(vdraw->drawlg)) != sizeof(*(drawlg))) || PetscMemcpy
(vdraw->drawlg,drawlg,(draw_max)*sizeof(*(vdraw->drawlg
))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),86,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscArraycpy(vdraw->drawaxis,drawaxis,draw_max)((sizeof(*(vdraw->drawaxis)) != sizeof(*(drawaxis))) || PetscMemcpy
(vdraw->drawaxis,drawaxis,(draw_max)*sizeof(*(vdraw->drawaxis
))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),87,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscFree3(tdraw,drawlg,drawaxis)PetscFreeA(3,88,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,&(tdraw),&(drawlg),&(drawaxis));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),88,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

}

if (!vdraw->draw[windownumber]) {

char *title = vdraw->title, tmp_str[128];

if (windownumber) {

ierr = PetscSNPrintf(tmp_str,sizeof(tmp_str),"%s:%d",vdraw->title?vdraw->title:"",windownumber);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),94,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

title = tmp_str;

}

ierr = PetscDrawCreate(PetscObjectComm((PetscObject)viewer),vdraw->display,title,PETSC_DECIDE-1,PETSC_DECIDE-1,vdraw->w,vdraw->h,&vdraw->draw[windownumber]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),97,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

ierr = PetscLogObjectParent((PetscObject)viewer,(PetscObject)vdraw->draw[windownumber]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),98,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

if (vdraw->drawtype) {

100

ierr = PetscDrawSetType(vdraw->draw[windownumber],vdraw->drawtype);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),100,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

101

}

102

ierr = PetscDrawSetPause(vdraw->draw[windownumber],vdraw->pause);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),102,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

103

ierr = PetscDrawSetOptionsPrefix(vdraw->draw[windownumber],((PetscObject)viewer)->prefix);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),103,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

104

ierr = PetscDrawSetFromOptions(vdraw->draw[windownumber]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),104,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

105

}

106

if (draw) *draw = vdraw->draw[windownumber];

107

if (draw) PetscValidHeaderSpecific(*draw,PETSC_DRAW_CLASSID,-1)do { if (!*draw) return PetscError(((MPI_Comm)0x44000001),107
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",-1); if
(!PetscCheckPointer(*draw,PETSC_OBJECT)) return PetscError((
(MPI_Comm)0x44000001),107,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,-1); if (((PetscObject)(*draw))->classid != PETSC_DRAW_CLASSID
) { if (((PetscObject)(*draw))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),107,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,-1); else return PetscError(((MPI_Comm)0x44000001),107,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,-1); } } while (0);

108

109

}

110

111

/*@C

112

PetscViewerDrawBaseAdd - add to the base integer that is added to the windownumber passed to PetscViewerDrawGetDraw()

113

114

Logically Collective on PetscViewer

115

116

Input Parameters:

117

+ viewer - the PetscViewer (created with PetscViewerDrawOpen())

118

- windownumber - how much to add to the base

119

120

Level: developer

121

122

123

.seealso: PetscViewerDrawGetLG(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen(), PetscViewerDrawGetDraw(), PetscViewerDrawBaseSet()

124

@*/

125

PetscErrorCode PetscViewerDrawBaseAdd(PetscViewer viewer,PetscInt windownumber)

126

{

127

PetscViewer_Draw *vdraw;

128

PetscErrorCode ierr;

129

PetscBool isdraw;

130

131

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 131; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

132

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),132
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),132,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),132,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),132,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

133

PetscValidLogicalCollectiveInt(viewer,windownumber,2)do { PetscErrorCode _7_ierr; PetscInt b1[2],b2[2]; b1[0] = -windownumber
; b1[1] = windownumber; _7_ierr = (PetscAllreduceBarrierCheck
(PetscObjectComm((PetscObject)viewer),2,133,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)viewer))),0) || MPI_Allreduce((b1),(b2),(2),(((
MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)),(PetscObjectComm
((PetscObject)viewer)))));do {if (__builtin_expect(!!(_7_ierr
),0)) return PetscError(((MPI_Comm)0x44000001),133,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,_7_ierr,PETSC_ERROR_REPEAT," ");} while (0); if (-b2[0] != b2
[1]) return PetscError(PetscObjectComm((PetscObject)viewer),133
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Int value must be same on all processes, argument # %d"
,2); } while (0);

134

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),134,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

135

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),135,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

136

vdraw = (PetscViewer_Draw*)viewer->data;

137

138

if (windownumber + vdraw->draw_base < 0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Resulting base %D cannot be negative",windownumber+vdraw->draw_base)return PetscError(((MPI_Comm)0x44000001),138,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,63,PETSC_ERROR_INITIAL,"Resulting base %D cannot be negative"
,windownumber+vdraw->draw_base);

139

vdraw->draw_base += windownumber;

140

141

}

142

143

/*@C

144

PetscViewerDrawBaseSet - sets the base integer that is added to the windownumber passed to PetscViewerDrawGetDraw()

145

146

Logically Collective on PetscViewer

147

148

Input Parameters:

149

+ viewer - the PetscViewer (created with PetscViewerDrawOpen())

150

- windownumber - value to set the base

151

152

Level: developer

153

154

155

.seealso: PetscViewerDrawGetLG(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen(), PetscViewerDrawGetDraw(), PetscViewerDrawBaseAdd()

156

@*/

157

PetscErrorCode PetscViewerDrawBaseSet(PetscViewer viewer,PetscInt windownumber)

158

{

159

PetscViewer_Draw *vdraw;

160

PetscErrorCode ierr;

161

PetscBool isdraw;

162

163

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 163; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

164

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),164
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),164,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),164,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),164,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

165

PetscValidLogicalCollectiveInt(viewer,windownumber,2)do { PetscErrorCode _7_ierr; PetscInt b1[2],b2[2]; b1[0] = -windownumber
; b1[1] = windownumber; _7_ierr = (PetscAllreduceBarrierCheck
(PetscObjectComm((PetscObject)viewer),2,165,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)viewer))),0) || MPI_Allreduce((b1),(b2),(2),(((
MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)),(PetscObjectComm
((PetscObject)viewer)))));do {if (__builtin_expect(!!(_7_ierr
),0)) return PetscError(((MPI_Comm)0x44000001),165,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,_7_ierr,PETSC_ERROR_REPEAT," ");} while (0); if (-b2[0] != b2
[1]) return PetscError(PetscObjectComm((PetscObject)viewer),165
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Int value must be same on all processes, argument # %d"
,2); } while (0);

166

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),166,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

167

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),167,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

168

vdraw = (PetscViewer_Draw*)viewer->data;

169

170

if (windownumber < 0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Resulting base %D cannot be negative",windownumber)return PetscError(((MPI_Comm)0x44000001),170,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,63,PETSC_ERROR_INITIAL,"Resulting base %D cannot be negative"
,windownumber);

171

vdraw->draw_base = windownumber;

172

173

}

174

175

/*@C

176

PetscViewerDrawGetDrawLG - Returns PetscDrawLG object from PetscViewer object.

177

This PetscDrawLG object may then be used to perform graphics using

178

PetscDrawLGXXX() commands.

179

180

Collective on PetscViewer

181

182

Input Parameter:

183

+ PetscViewer - the PetscViewer (created with PetscViewerDrawOpen())

184

- windownumber - indicates which subwindow (usually 0)

185

186

Ouput Parameter:

187

. draw - the draw line graph object

188

189

Level: intermediate

190

191

.seealso: PetscViewerDrawGetDraw(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen()

192

@*/

193

PetscErrorCode PetscViewerDrawGetDrawLG(PetscViewer viewer,PetscInt windownumber,PetscDrawLG *drawlg)

194

{

195

PetscErrorCode ierr;

196

PetscBool isdraw;

197

PetscViewer_Draw *vdraw;

198

199

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 199; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

200

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),200
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),200,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),200,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),200,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

201

PetscValidLogicalCollectiveInt(viewer,windownumber,2)do { PetscErrorCode _7_ierr; PetscInt b1[2],b2[2]; b1[0] = -windownumber
; b1[1] = windownumber; _7_ierr = (PetscAllreduceBarrierCheck
(PetscObjectComm((PetscObject)viewer),2,201,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)viewer))),0) || MPI_Allreduce((b1),(b2),(2),(((
MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)),(PetscObjectComm
((PetscObject)viewer)))));do {if (__builtin_expect(!!(_7_ierr
),0)) return PetscError(((MPI_Comm)0x44000001),201,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,_7_ierr,PETSC_ERROR_REPEAT," ");} while (0); if (-b2[0] != b2
[1]) return PetscError(PetscObjectComm((PetscObject)viewer),201
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Int value must be same on all processes, argument # %d"
,2); } while (0);

202

PetscValidPointer(drawlg,3)do { if (!drawlg) return PetscError(((MPI_Comm)0x44000001),202
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(drawlg,PETSC_CHAR)) return PetscError(((
MPI_Comm)0x44000001),202,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

203

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),203,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

204

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),204,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

205

if (windownumber < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Window number cannot be negative")return PetscError(((MPI_Comm)0x44000001),205,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,63,PETSC_ERROR_INITIAL,"Window number cannot be negative");

206

vdraw = (PetscViewer_Draw*)viewer->data;

207

208

if (windownumber+vdraw->draw_base >= vdraw->draw_max || !vdraw->draw[windownumber+vdraw->draw_base]) {

209

ierr = PetscViewerDrawGetDraw(viewer,windownumber,NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),209,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

210

}

211

if (!vdraw->drawlg[windownumber+vdraw->draw_base]) {

212

ierr = PetscDrawLGCreate(vdraw->draw[windownumber+vdraw->draw_base],1,&vdraw->drawlg[windownumber+vdraw->draw_base]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),212,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

213

ierr = PetscLogObjectParent((PetscObject)viewer,(PetscObject)vdraw->drawlg[windownumber+vdraw->draw_base]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),213,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

214

ierr = PetscDrawLGSetFromOptions(vdraw->drawlg[windownumber+vdraw->draw_base]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),214,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

215

}

216

*drawlg = vdraw->drawlg[windownumber+vdraw->draw_base];

217

218

}

219

220

/*@C

221

PetscViewerDrawGetDrawAxis - Returns PetscDrawAxis object from PetscViewer object.

222

This PetscDrawAxis object may then be used to perform graphics using

223

PetscDrawAxisXXX() commands.

224

225

Collective on PetscViewer

226

227

Input Parameter:

228

+ viewer - the PetscViewer (created with PetscViewerDrawOpen()

229

- windownumber - indicates which subwindow (usually 0)

230

231

Ouput Parameter:

232

. drawaxis - the draw axis object

233

234

Level: advanced

235

236

.seealso: PetscViewerDrawGetDraw(), PetscViewerDrawGetLG(), PetscViewerDrawOpen()

237

@*/

238

PetscErrorCode PetscViewerDrawGetDrawAxis(PetscViewer viewer,PetscInt windownumber,PetscDrawAxis *drawaxis)

239

{

240

PetscErrorCode ierr;

241

PetscBool isdraw;

242

PetscViewer_Draw *vdraw;

243

244

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 244; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

245

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),245
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),245,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),245,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),245,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

246

PetscValidLogicalCollectiveInt(viewer,windownumber,2)do { PetscErrorCode _7_ierr; PetscInt b1[2],b2[2]; b1[0] = -windownumber
; b1[1] = windownumber; _7_ierr = (PetscAllreduceBarrierCheck
(PetscObjectComm((PetscObject)viewer),2,246,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((petsc_allreduce_ct += PetscMPIParallelComm((PetscObjectComm
((PetscObject)viewer))),0) || MPI_Allreduce((b1),(b2),(2),(((
MPI_Datatype)0x4c000405)),((MPI_Op)(0x58000001)),(PetscObjectComm
((PetscObject)viewer)))));do {if (__builtin_expect(!!(_7_ierr
),0)) return PetscError(((MPI_Comm)0x44000001),246,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,_7_ierr,PETSC_ERROR_REPEAT," ");} while (0); if (-b2[0] != b2
[1]) return PetscError(PetscObjectComm((PetscObject)viewer),246
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Int value must be same on all processes, argument # %d"
,2); } while (0);

247

PetscValidPointer(drawaxis,3)do { if (!drawaxis) return PetscError(((MPI_Comm)0x44000001),
247,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Pointer: Parameter # %d",3); if
(!PetscCheckPointer(drawaxis,PETSC_CHAR)) return PetscError(
((MPI_Comm)0x44000001),247,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,68,PETSC_ERROR_INITIAL,"Invalid Pointer: Parameter # %d",3);
} while (0);

248

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),248,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

249

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),249,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

250

if (windownumber < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Window number cannot be negative")return PetscError(((MPI_Comm)0x44000001),250,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,63,PETSC_ERROR_INITIAL,"Window number cannot be negative");

251

vdraw = (PetscViewer_Draw*)viewer->data;

252

253

if (windownumber+vdraw->draw_base >= vdraw->draw_max || !vdraw->draw[windownumber+vdraw->draw_base]) {

254

ierr = PetscViewerDrawGetDraw(viewer,windownumber,NULL((void*)0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),254,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

255

}

256

if (!vdraw->drawaxis[windownumber+vdraw->draw_base]) {

257

ierr = PetscDrawAxisCreate(vdraw->draw[windownumber+vdraw->draw_base],&vdraw->drawaxis[windownumber+vdraw->draw_base]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),257,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

258

ierr = PetscLogObjectParent((PetscObject)viewer,(PetscObject)vdraw->drawaxis[windownumber+vdraw->draw_base]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),258,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

259

}

260

*drawaxis = vdraw->drawaxis[windownumber+vdraw->draw_base];

261

262

}

263

264

PetscErrorCode PetscViewerDrawResize(PetscViewer v,int w,int h)

265

{

266

PetscErrorCode ierr;

267

PetscViewer_Draw *vdraw;

268

PetscBool isdraw;

269

270

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 270; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

271

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),271,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),271,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),271,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),271,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

272

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),272,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

273

if (!isdraw) PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);

274

vdraw = (PetscViewer_Draw*)v->data;

275

276

if (w >= 1) vdraw->w = w;

277

if (h >= 1) vdraw->h = h;

278

279

}

280

281

PetscErrorCode PetscViewerDrawSetInfo(PetscViewer v,const char display[],const char title[],int x,int y,int w,int h)

282

{

283

PetscErrorCode ierr;

284

PetscViewer_Draw *vdraw;

285

PetscBool isdraw;

286

287

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 287; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

288

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),288,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),288,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),288,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),288,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

289

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),289,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

290

291

vdraw = (PetscViewer_Draw*)v->data;

292

293

ierr = PetscStrallocpy(display,&vdraw->display);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),293,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

294

ierr = PetscStrallocpy(title,&vdraw->title);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),294,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

295

if (w >= 1) vdraw->w = w;

296

if (h >= 1) vdraw->h = h;

297

298

}

299

300

PetscErrorCode PetscViewerDrawSetDrawType(PetscViewer v,PetscDrawType drawtype)

301

{

302

PetscErrorCode ierr;

303

PetscViewer_Draw *vdraw;

304

PetscBool isdraw;

305

306

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 306; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

307

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),307,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),307,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),307,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),307,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

308

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),308,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

309

310

vdraw = (PetscViewer_Draw*)v->data;

311

312

ierr = PetscFree(vdraw->drawtype)((*PetscTrFree)((void*)(vdraw->drawtype),312,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->drawtype) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),312,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

313

ierr = PetscStrallocpy(drawtype,(char**)&vdraw->drawtype);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),313,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

314

315

}

316

317

PetscErrorCode PetscViewerDrawGetDrawType(PetscViewer v,PetscDrawType *drawtype)

318

{

319

PetscErrorCode ierr;

320

PetscViewer_Draw *vdraw;

321

PetscBool isdraw;

322

323

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 323; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

324

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),324,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),324,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),324,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),324,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

325

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),325,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

326

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),326,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

327

vdraw = (PetscViewer_Draw*)v->data;

328

329

*drawtype = vdraw->drawtype;

330

331

}

332

333

PetscErrorCode PetscViewerDrawSetTitle(PetscViewer v,const char title[])

334

{

335

PetscErrorCode ierr;

336

PetscViewer_Draw *vdraw;

337

PetscBool isdraw;

338

339

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 339; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

340

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),340,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),340,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),340,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),340,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

341

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),341,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

342

343

vdraw = (PetscViewer_Draw*)v->data;

344

345

ierr = PetscFree(vdraw->title)((*PetscTrFree)((void*)(vdraw->title),345,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->title) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),345,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

346

ierr = PetscStrallocpy(title,&vdraw->title);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),346,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

347

348

}

349

350

PetscErrorCode PetscViewerDrawGetTitle(PetscViewer v,const char *title[])

351

{

352

PetscErrorCode ierr;

353

PetscViewer_Draw *vdraw;

354

PetscBool isdraw;

355

356

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 356; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

357

PetscValidHeaderSpecific(v,PETSC_VIEWER_CLASSID,1)do { if (!v) return PetscError(((MPI_Comm)0x44000001),357,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(v,PETSC_OBJECT)) return PetscError(((MPI_Comm
)0x44000001),357,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(v))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(v))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),357,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),357,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

358

ierr = PetscObjectTypeCompare((PetscObject)v,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),358,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

359

if (!isdraw) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Must be draw type PetscViewer")return PetscError(((MPI_Comm)0x44000001),359,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Must be draw type PetscViewer");

360

vdraw = (PetscViewer_Draw*)v->data;

361

362

*title = vdraw->title;

363

364

}

365

366

/*@C

367

PetscViewerDrawOpen - Opens a window for use as a PetscViewer. If you want to

368

do graphics in this window, you must call PetscViewerDrawGetDraw() and

369

perform the graphics on the PetscDraw object.

370

371

Collective

372

373

Input Parameters:

374

+ comm - communicator that will share window

375

. display - the X display on which to open, or null for the local machine

376

. title - the title to put in the title bar, or null for no title

377

. x, y - the screen coordinates of the upper left corner of window, or use PETSC_DECIDE

378

- w, h - window width and height in pixels, or may use PETSC_DECIDE or PETSC_DRAW_FULL_SIZE, PETSC_DRAW_HALF_SIZE,

379

PETSC_DRAW_THIRD_SIZE, PETSC_DRAW_QUARTER_SIZE

380

381

Output Parameters:

382

. viewer - the PetscViewer

383

384

Format Options:

385

+ PETSC_VIEWER_DRAW_BASIC - displays with basic format

386

- PETSC_VIEWER_DRAW_LG - displays using a line graph

387

388

Options Database Keys:

389

PetscViewerDrawOpen() calls PetscDrawCreate(), so see the manual page for

390

PetscDrawCreate() for runtime options, including

391

+ -draw_type x or null

392

. -nox - Disables all x-windows output

393

. -display <name> - Specifies name of machine for the X display

394

. -geometry <x,y,w,h> - allows setting the window location and size

395

- -draw_pause <pause> - Sets time (in seconds) that the

396

program pauses after PetscDrawPause() has been called

397

(0 is default, -1 implies until user input).

398

399

Level: beginner

400

401

Note for Fortran Programmers:

402

Whenever indicating null character data in a Fortran code,

403

PETSC_NULL_CHARACTER must be employed; using NULL is not

404

correct for character data! Thus, PETSC_NULL_CHARACTER can be

405

used for the display and title input parameters.

406

407

408

409

.seealso: PetscDrawCreate(), PetscViewerDestroy(), PetscViewerDrawGetDraw(), PetscViewerCreate(), PETSC_VIEWER_DRAW_,

410

PETSC_VIEWER_DRAW_WORLD, PETSC_VIEWER_DRAW_SELF

411

@*/

412

PetscErrorCode PetscViewerDrawOpen(MPI_Comm comm,const char display[],const char title[],int x,int y,int w,int h,PetscViewer *viewer)

413

{

414

PetscErrorCode ierr;

415

416

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 416; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

417

ierr = PetscViewerCreate(comm,viewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),417,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

418

ierr = PetscViewerSetType(*viewer,PETSCVIEWERDRAW"draw");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),418,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

419

ierr = PetscViewerDrawSetInfo(*viewer,display,title,x,y,w,h);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),419,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

420

421

}

422

423

PetscErrorCode PetscViewerGetSubViewer_Draw(PetscViewer viewer,MPI_Comm comm,PetscViewer *sviewer)

424

{

425

PetscErrorCode ierr;

426

PetscMPIInt rank;

427

PetscInt i;

428

PetscViewer_Draw *vdraw = (PetscViewer_Draw*)viewer->data,*svdraw;

429

430

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 430; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

431

if (vdraw->singleton_made) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ORDER,"Trying to get SubViewer without first restoring previous")return PetscError(((MPI_Comm)0x44000001),431,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,58,PETSC_ERROR_INITIAL,"Trying to get SubViewer without first restoring previous"
);

Assuming the condition is false

→

←

Taking false branch

→

432

/* only processor zero can use the PetscViewer draw singleton */

433

if (sviewer) *sviewer = NULL((void*)0);

←

Assuming 'sviewer' is null

→

←

Taking false branch

→

434

ierr = MPI_Comm_rank(PetscObjectComm((PetscObject)viewer),&rank);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),434,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

435

if (!rank) {

Assuming 'rank' is 0

Taking true branch

436

PetscMPIInt flg;

437

438

ierr = MPI_Comm_compare(PETSC_COMM_SELF((MPI_Comm)0x44000001),comm,&flg);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),438,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

439

if (flg != MPI_IDENT0 && flg != MPI_CONGRUENT1) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"PetscViewerGetSubViewer() for PETSCVIEWERDRAW requires a singleton MPI_Comm")return PetscError(((MPI_Comm)0x44000001),439,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,56,PETSC_ERROR_INITIAL,"PetscViewerGetSubViewer() for PETSCVIEWERDRAW requires a singleton MPI_Comm"
);

←

Assuming 'flg' is equal to MPI_IDENT

→

440

ierr = PetscViewerCreate(comm,sviewer);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),440,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

441

ierr = PetscViewerSetType(*sviewer,PETSCVIEWERDRAW"draw");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),441,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

←

Dereference of null pointer (loaded from variable 'sviewer')

442

svdraw = (PetscViewer_Draw*)(*sviewer)->data;

443

(*sviewer)->format = viewer->format;

444

for (i=0; i<vdraw->draw_max; i++) { /* XXX this is wrong if svdraw->draw_max (initially 5) < vdraw->draw_max */

445

if (vdraw->draw[i]) {ierr = PetscDrawGetSingleton(vdraw->draw[i],&svdraw->draw[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),445,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

446

}

447

}

448

vdraw->singleton_made = PETSC_TRUE;

449

450

}

451

452

PetscErrorCode PetscViewerRestoreSubViewer_Draw(PetscViewer viewer,MPI_Comm comm,PetscViewer *sviewer)

453

{

454

PetscErrorCode ierr;

455

PetscMPIInt rank;

456

PetscInt i;

457

PetscViewer_Draw *vdraw = (PetscViewer_Draw*)viewer->data,*svdraw;

458

459

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 459; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

460

if (!vdraw->singleton_made) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ORDER,"Trying to restore a singleton that was not gotten")return PetscError(((MPI_Comm)0x44000001),460,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,58,PETSC_ERROR_INITIAL,"Trying to restore a singleton that was not gotten"
);

461

ierr = MPI_Comm_rank(PetscObjectComm((PetscObject)viewer),&rank);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),461,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

462

if (!rank) {

463

svdraw = (PetscViewer_Draw*)(*sviewer)->data;

464

for (i=0; i<vdraw->draw_max; i++) {

465

if (vdraw->draw[i] && svdraw->draw[i]) {

466

ierr = PetscDrawRestoreSingleton(vdraw->draw[i],&svdraw->draw[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),466,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

467

}

468

}

469

ierr = PetscFree3(svdraw->draw,svdraw->drawlg,svdraw->drawaxis)PetscFreeA(3,469,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,&(svdraw->draw),&(svdraw->drawlg),&(svdraw
->drawaxis));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),469,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

470

ierr = PetscFree((*sviewer)->data)((*PetscTrFree)((void*)((*sviewer)->data),470,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || (((*sviewer)->data) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),470,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

471

ierr = PetscHeaderDestroy(sviewer)(PetscHeaderDestroy_Private((PetscObject)(*sviewer)) || ((*PetscTrFree
)((void*)(*sviewer),471,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((*sviewer) = 0,0)));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),471,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

472

}

473

vdraw->singleton_made = PETSC_FALSE;

474

475

}

476

477

PetscErrorCode PetscViewerSetFromOptions_Draw(PetscOptionItems *PetscOptionsObject,PetscViewer v)

478

{

479

PetscErrorCode ierr;

480

PetscReal bounds[16];

481

PetscInt nbounds = 16;

482

PetscBool flg;

483

484

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 484; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

485

ierr = PetscOptionsHead(PetscOptionsObject,"Draw PetscViewer Options");CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),485,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

486

ierr = PetscOptionsRealArray("-draw_bounds","Bounds to put on plots axis","PetscViewerDrawSetBounds",bounds,&nbounds,&flg)PetscOptionsRealArray_Private(PetscOptionsObject,"-draw_bounds"
,"Bounds to put on plots axis","PetscViewerDrawSetBounds",bounds
,&nbounds,&flg);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),486,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

487

if (flg) {

488

ierr = PetscViewerDrawSetBounds(v,nbounds/2,bounds);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),488,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

489

}

490

ierr = PetscOptionsTail()0; do {if (PetscOptionsObject->count != 1) do { do { ; if (
petscstack && petscstack->currentsize > 0) { petscstack
->currentsize--; petscstack->function[petscstack->currentsize
] = 0; petscstack->file[petscstack->currentsize] = 0; petscstack
->line[petscstack->currentsize] = 0; petscstack->petscroutine
[petscstack->currentsize] = PETSC_FALSE; } if (petscstack)
{ petscstack->hotdepth = (((petscstack->hotdepth-1)<
(0)) ? (0) : (petscstack->hotdepth-1)); } ; } while (0); return
(0);} while (0);} while(0);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),490,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

491

492

}

493

494

PetscErrorCode PetscViewerView_Draw(PetscViewer viewer,PetscViewer v)

495

{

496

PetscErrorCode ierr;

497

PetscDraw draw;

498

PetscInt i;

499

PetscViewer_Draw *vdraw = (PetscViewer_Draw*)viewer->data;

500

501

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 501; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

502

/* If the PetscViewer has just been created then no vdraw->draw yet

503

exists so this will not actually call the viewer on any draws. */

504

for (i=0; i<vdraw->draw_base; i++) {

505

if (vdraw->draw[i]) {

506

ierr = PetscViewerDrawGetDraw(viewer,i,&draw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),506,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

507

ierr = PetscDrawView(draw,v);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),507,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

508

}

509

}

510

511

}

512

513

/*MC

514

PETSCVIEWERDRAW - A viewer that generates graphics, either to the screen or a file

515

516

517

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(), PETSC_VIEWER_DRAW_(),PETSC_VIEWER_DRAW_SELF, PETSC_VIEWER_DRAW_WORLD,

518

PetscViewerCreate(), PetscViewerASCIIOpen(), PetscViewerBinaryOpen(), PETSCVIEWERBINARY,

519

PetscViewerMatlabOpen(), VecView(), DMView(), PetscViewerMatlabPutArray(), PETSCVIEWERASCII, PETSCVIEWERMATLAB,

520

PetscViewerFileSetName(), PetscViewerFileSetMode(), PetscViewerFormat, PetscViewerType, PetscViewerSetType()

521

522

Level: beginner

523

524

M*/

525

PETSC_EXTERNextern __attribute__((visibility ("default"))) PetscErrorCode PetscViewerCreate_Draw(PetscViewer viewer)

526

{

527

PetscErrorCode ierr;

528

PetscViewer_Draw *vdraw;

529

530

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 530; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

531

ierr = PetscNewLog(viewer,&vdraw)(PetscMallocA(1,PETSC_TRUE,531,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,(size_t)(1)*sizeof(**(((&vdraw)))),(((&vdraw)))) || PetscLogObjectMemory
((PetscObject)viewer,sizeof(**(&vdraw))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),531,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

532

viewer->data = (void*)vdraw;

533

534

viewer->ops->flush = PetscViewerFlush_Draw;

535

viewer->ops->view = PetscViewerView_Draw;

536

viewer->ops->destroy = PetscViewerDestroy_Draw;

537

viewer->ops->setfromoptions = PetscViewerSetFromOptions_Draw;

538

viewer->ops->getsubviewer = PetscViewerGetSubViewer_Draw;

539

viewer->ops->restoresubviewer = PetscViewerRestoreSubViewer_Draw;

540

541

/* these are created on the fly if requested */

542

vdraw->draw_max = 5;

543

vdraw->draw_base = 0;

544

vdraw->w = PETSC_DECIDE-1;

545

vdraw->h = PETSC_DECIDE-1;

546

547

ierr = PetscCalloc3(vdraw->draw_max,&vdraw->draw,vdraw->draw_max,&vdraw->drawlg,vdraw->draw_max,&vdraw->drawaxis)PetscMallocA(3,PETSC_TRUE,547,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,(size_t)(vdraw->draw_max)*sizeof(**(&vdraw->draw))
,(&vdraw->draw),(size_t)(vdraw->draw_max)*sizeof(**
(&vdraw->drawlg)),(&vdraw->drawlg),(size_t)(vdraw
->draw_max)*sizeof(**(&vdraw->drawaxis)),(&vdraw
->drawaxis));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),547,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

548

vdraw->singleton_made = PETSC_FALSE;

549

550

}

551

552

/*@

553

PetscViewerDrawClear - Clears a PetscDraw graphic associated with a PetscViewer.

554

555

Not Collective

556

557

Input Parameter:

558

. viewer - the PetscViewer

559

560

Level: intermediate

561

562

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(),

563

564

@*/

565

PetscErrorCode PetscViewerDrawClear(PetscViewer viewer)

566

{

567

PetscErrorCode ierr;

568

PetscViewer_Draw *vdraw;

569

PetscBool isdraw;

570

PetscInt i;

571

572

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 572; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

573

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),573
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),573,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),573,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),573,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

574

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),574,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

575

576

vdraw = (PetscViewer_Draw*)viewer->data;

577

578

for (i=0; i<vdraw->draw_max; i++) {

579

if (vdraw->draw[i]) {ierr = PetscDrawClear(vdraw->draw[i]);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),579,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

580

}

581

582

}

583

584

/*@

585

PetscViewerDrawGetPause - Gets a pause for the first present draw

586

587

Not Collective

588

589

Input Parameter:

590

. viewer - the PetscViewer

591

592

Output Parameter:

593

. pause - the pause value

594

595

Level: intermediate

596

597

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(),

598

599

@*/

600

PetscErrorCode PetscViewerDrawGetPause(PetscViewer viewer,PetscReal *pause)

601

{

602

PetscErrorCode ierr;

603

PetscViewer_Draw *vdraw;

604

PetscBool isdraw;

605

PetscInt i;

606

PetscDraw draw;

607

608

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 608; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

609

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),609
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),609,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),609,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),609,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

610

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),610,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

611

if (!isdraw) {*pause = 0.0; PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

612

vdraw = (PetscViewer_Draw*)viewer->data;

613

614

for (i=0; i<vdraw->draw_max; i++) {

615

if (vdraw->draw[i]) {

616

ierr = PetscDrawGetPause(vdraw->draw[i],pause);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),616,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

617

618

}

619

}

620

/* none exist yet so create one and get its pause */

621

ierr = PetscViewerDrawGetDraw(viewer,0,&draw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),621,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

622

ierr = PetscDrawGetPause(draw,pause);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),622,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

623

624

}

625

626

/*@

627

PetscViewerDrawSetPause - Sets a pause for each PetscDraw in the viewer

628

629

Not Collective

630

631

Input Parameters:

632

+ viewer - the PetscViewer

633

- pause - the pause value

634

635

Level: intermediate

636

637

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(),

638

639

@*/

640

PetscErrorCode PetscViewerDrawSetPause(PetscViewer viewer,PetscReal pause)

641

{

642

PetscErrorCode ierr;

643

PetscViewer_Draw *vdraw;

644

PetscBool isdraw;

645

PetscInt i;

646

647

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 647; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

648

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),648
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),648,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),648,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),648,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

649

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),649,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

650

651

vdraw = (PetscViewer_Draw*)viewer->data;

652

653

vdraw->pause = pause;

654

for (i=0; i<vdraw->draw_max; i++) {

655

if (vdraw->draw[i]) {ierr = PetscDrawSetPause(vdraw->draw[i],pause);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),655,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);}

656

}

657

658

}

659

660

661

/*@

662

PetscViewerDrawSetHold - Holds previous image when drawing new image

663

664

Not Collective

665

666

Input Parameters:

667

+ viewer - the PetscViewer

668

- hold - indicates to hold or not

669

670

Level: intermediate

671

672

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(),

673

674

@*/

675

PetscErrorCode PetscViewerDrawSetHold(PetscViewer viewer,PetscBool hold)

676

{

677

PetscErrorCode ierr;

678

PetscViewer_Draw *vdraw;

679

PetscBool isdraw;

680

681

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 681; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

682

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),682
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),682,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),682,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),682,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

683

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),683,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

684

685

vdraw = (PetscViewer_Draw*)viewer->data;

686

687

vdraw->hold = hold;

688

689

}

690

691

/*@

692

PetscViewerDrawGetHold - Checks if holds previous image when drawing new image

693

694

Not Collective

695

696

Input Parameter:

697

. viewer - the PetscViewer

698

699

Output Parameter:

700

. hold - indicates to hold or not

701

702

Level: intermediate

703

704

.seealso: PetscViewerDrawOpen(), PetscViewerDrawGetDraw(),

705

706

@*/

707

PetscErrorCode PetscViewerDrawGetHold(PetscViewer viewer,PetscBool *hold)

708

{

709

PetscErrorCode ierr;

710

PetscViewer_Draw *vdraw;

711

PetscBool isdraw;

712

713

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 713; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

714

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),714
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),714,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),714,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),714,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

715

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),715,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

716

if (!isdraw) {*hold = PETSC_FALSE; PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

717

vdraw = (PetscViewer_Draw*)viewer->data;

718

719

*hold = vdraw->hold;

720

721

}

722

723

/* ---------------------------------------------------------------------*/

724

725

The variable Petsc_Viewer_Draw_keyval is used to indicate an MPI attribute that

726

is attached to a communicator, in this case the attribute is a PetscViewer.

727

728

PetscMPIInt Petsc_Viewer_Draw_keyval = MPI_KEYVAL_INVALID0x24000000;

729

730

/*@C

731

PETSC_VIEWER_DRAW_ - Creates a window PetscViewer shared by all processors

732

in a communicator.

733

734

Collective

735

736

Input Parameter:

737

. comm - the MPI communicator to share the window PetscViewer

738

739

Level: intermediate

740

741

Notes:

742

Unlike almost all other PETSc routines, PETSC_VIEWER_DRAW_ does not return

743

an error code. The window is usually used in the form

744

$ XXXView(XXX object,PETSC_VIEWER_DRAW_(comm));

745

746

.seealso: PETSC_VIEWER_DRAW_WORLD, PETSC_VIEWER_DRAW_SELF, PetscViewerDrawOpen(),

747

@*/

748

PetscViewer PETSC_VIEWER_DRAW_(MPI_Comm comm)

749

{

750

PetscErrorCode ierr;

751

PetscMPIInt flag;

752

PetscViewer viewer;

753

MPI_Comm ncomm;

754

755

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 755; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

756

ierr = PetscCommDuplicate(comm,&ncomm,NULL((void*)0));if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__756,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

757

if (Petsc_Viewer_Draw_keyval == MPI_KEYVAL_INVALID0x24000000) {

758

ierr = MPI_Comm_create_keyval(MPI_COMM_NULL_COPY_FN((MPI_Comm_copy_attr_function*)0),MPI_COMM_NULL_DELETE_FN((MPI_Comm_delete_attr_function*)0),&Petsc_Viewer_Draw_keyval,0);

759

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__759,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

760

}

761

ierr = MPI_Comm_get_attr(ncomm,Petsc_Viewer_Draw_keyval,(void**)&viewer,&flag);

762

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__762,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

763

if (!flag) { /* PetscViewer not yet created */

764

ierr = PetscViewerDrawOpen(ncomm,0,0,PETSC_DECIDE-1,PETSC_DECIDE-1,300,300,&viewer);

765

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__765,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

766

ierr = PetscObjectRegisterDestroy((PetscObject)viewer);

767

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__767,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

768

ierr = MPI_Comm_set_attr(ncomm,Petsc_Viewer_Draw_keyval,(void*)viewer);

769

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__769,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

770

}

771

ierr = PetscCommDestroy(&ncomm);

772

if (ierr) {PetscError(PETSC_COMM_SELF((MPI_Comm)0x44000001),__LINE__772,"PETSC_VIEWER_DRAW_",__FILE__"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c",PETSC_ERR_PLIB77,PETSC_ERROR_INITIAL," ");PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

773

PetscFunctionReturn(viewer)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(viewer);} while (0);

774

}

775

776

/*@

777

PetscViewerDrawSetBounds - sets the upper and lower bounds to be used in plotting

778

779

Collective on PetscViewer

780

781

Input Parameters:

782

+ viewer - the PetscViewer (created with PetscViewerDrawOpen())

783

. nbounds - number of plots that can be made with this viewer, for example the dof passed to DMDACreate()

784

- bounds - the actual bounds, the size of this is 2*nbounds, the values are stored in the order min F_0, max F_0, min F_1, max F_1, .....

785

786

787

Options Database:

788

. -draw_bounds minF0,maxF0,minF1,maxF1

789

790

Level: intermediate

791

792

Notes:

793

this determines the colors used in 2d contour plots generated with VecView() for DMDA in 2d. Any values in the vector below or above the

794

bounds are moved to the bound value before plotting. In this way the color index from color to physical value remains the same for all plots generated with

795

this viewer. Otherwise the color to physical value meaning changes with each new image if this is not set.

796

797

798

.seealso: PetscViewerDrawGetLG(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen()

799

@*/

800

PetscErrorCode PetscViewerDrawSetBounds(PetscViewer viewer,PetscInt nbounds,const PetscReal *bounds)

801

{

802

PetscViewer_Draw *vdraw;

803

PetscBool isdraw;

804

PetscErrorCode ierr;

805

806

807

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 807; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

808

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),808
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),808,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),808,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),808,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

809

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),809,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

810

811

vdraw = (PetscViewer_Draw*)viewer->data;

812

813

vdraw->nbounds = nbounds;

814

ierr = PetscFree(vdraw->bounds)((*PetscTrFree)((void*)(vdraw->bounds),814,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
) || ((vdraw->bounds) = 0,0));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),814,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

815

ierr = PetscMalloc1(2*nbounds,&vdraw->bounds)PetscMallocA(1,PETSC_FALSE,815,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,(size_t)(2*nbounds)*sizeof(**(&vdraw->bounds)),(&
vdraw->bounds));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),815,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

816

ierr = PetscArraycpy(vdraw->bounds,bounds,2*nbounds)((sizeof(*(vdraw->bounds)) != sizeof(*(bounds))) || PetscMemcpy
(vdraw->bounds,bounds,(2*nbounds)*sizeof(*(vdraw->bounds
))));CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),816,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

817

818

}

819

820

/*@C

821

PetscViewerDrawGetBounds - gets the upper and lower bounds to be used in plotting set with PetscViewerDrawSetBounds()

822

823

Collective on PetscViewer

824

825

Input Parameter:

826

. viewer - the PetscViewer (created with PetscViewerDrawOpen())

827

828

Output Paramters:

829

+ nbounds - number of plots that can be made with this viewer, for example the dof passed to DMDACreate()

830

- bounds - the actual bounds, the size of this is 2*nbounds, the values are stored in the order min F_0, max F_0, min F_1, max F_1, .....

831

832

Level: intermediate

833

834

835

.seealso: PetscViewerDrawGetLG(), PetscViewerDrawGetAxis(), PetscViewerDrawOpen(), PetscViewerDrawSetBounds()

836

@*/

837

PetscErrorCode PetscViewerDrawGetBounds(PetscViewer viewer,PetscInt *nbounds,const PetscReal **bounds)

838

{

839

PetscViewer_Draw *vdraw;

840

PetscBool isdraw;

841

PetscErrorCode ierr;

842

843

PetscFunctionBegindo { do { ; if (petscstack && (petscstack->currentsize
< 64)) { petscstack->function[petscstack->currentsize
] = __func__; petscstack->file[petscstack->currentsize]
= "/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
; petscstack->line[petscstack->currentsize] = 843; petscstack
->petscroutine[petscstack->currentsize] = PETSC_TRUE; petscstack
->currentsize++; } if (petscstack) { petscstack->hotdepth
+= (PETSC_FALSE || petscstack->hotdepth); } ; } while (0)
; ; } while (0);

844

PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1)do { if (!viewer) return PetscError(((MPI_Comm)0x44000001),844
,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,85,PETSC_ERROR_INITIAL,"Null Object: Parameter # %d",1); if (
!PetscCheckPointer(viewer,PETSC_OBJECT)) return PetscError(((
MPI_Comm)0x44000001),844,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Invalid Pointer to Object: Parameter # %d"
,1); if (((PetscObject)(viewer))->classid != PETSC_VIEWER_CLASSID
) { if (((PetscObject)(viewer))->classid == -1) return PetscError
(((MPI_Comm)0x44000001),844,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,64,PETSC_ERROR_INITIAL,"Object already free: Parameter # %d"
,1); else return PetscError(((MPI_Comm)0x44000001),844,__func__
,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,62,PETSC_ERROR_INITIAL,"Wrong type of object: Parameter # %d"
,1); } } while (0);

845

ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERDRAW"draw",&isdraw);CHKERRQ(ierr)do {if (__builtin_expect(!!(ierr),0)) return PetscError(((MPI_Comm
)0x44000001),845,__func__,"/sandbox/petsc/petsc.next/src/sys/classes/viewer/impls/draw/drawv.c"
,ierr,PETSC_ERROR_REPEAT," ");} while (0);

846

if (!isdraw) {if (nbounds) *nbounds = 0; if (bounds) *bounds = NULL((void*)0); PetscFunctionReturn(0)do { do { ; if (petscstack && petscstack->currentsize
> 0) { petscstack->currentsize--; petscstack->function
[petscstack->currentsize] = 0; petscstack->file[petscstack
->currentsize] = 0; petscstack->line[petscstack->currentsize
] = 0; petscstack->petscroutine[petscstack->currentsize
] = PETSC_FALSE; } if (petscstack) { petscstack->hotdepth =
(((petscstack->hotdepth-1)<(0)) ? (0) : (petscstack->
hotdepth-1)); } ; } while (0); return(0);} while (0);}

847

vdraw = (PetscViewer_Draw*)viewer->data;

848

849

if (nbounds) *nbounds = vdraw->nbounds;

850

if (bounds) *bounds = vdraw->bounds;

851

852

}