| Line 156... |
Line 156... |
@*/
|
@*/
|
PetscErrorCode SVDGetMonitorContext(SVD svd, void **ctx)
|
PetscErrorCode SVDGetMonitorContext(SVD svd, void **ctx)
|
{
|
{
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(svd,SVD_CLASSID,1);
|
PetscValidHeaderSpecific(svd,SVD_CLASSID,1);
|
*ctx = (svd->monitorcontext[0]);
|
*ctx = (svd->monitorcontext[0]);
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "SVDMonitorAll"
|
#define __FUNCT__ "SVDMonitorAll"
|
| Line 280... |
Line 280... |
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "SVDMonitorLG"
|
#define __FUNCT__ "SVDMonitorLG"
|
PetscErrorCode SVDMonitorLG(SVD svd,PetscInt its,PetscInt nconv,PetscReal *sigma,PetscReal *errest,PetscInt nest,void *monctx)
|
PetscErrorCode SVDMonitorLG(SVD svd,PetscInt its,PetscInt nconv,PetscReal *sigma,PetscReal *errest,PetscInt nest,void *monctx)
|
{
|
{
|
PetscViewer viewer = (PetscViewer) monctx;
|
PetscViewer viewer = (PetscViewer) monctx;
|
PetscDraw draw;
|
PetscDraw draw,draw1;
|
PetscDrawLG lg;
|
PetscDrawLG lg,lg1;
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
PetscReal x,y,p;
|
PetscReal x,y,p;
|
PetscDraw draw1;
|
|
PetscDrawLG lg1;
|
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
|
|
if (!viewer) { viewer = PETSC_VIEWER_DRAW_(((PetscObject)svd)->comm); }
|
if (!viewer) { viewer = PETSC_VIEWER_DRAW_(((PetscObject)svd)->comm); }
|
|
|
ierr = PetscViewerDrawGetDraw(viewer,0,&draw);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,0,&draw);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,0,&lg);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,0,&lg);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,1,&draw1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,1,&draw1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,1,&lg1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,1,&lg1);CHKERRQ(ierr);
|
|
|
| Line 329... |
Line 325... |
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "SVDMonitorLGAll"
|
#define __FUNCT__ "SVDMonitorLGAll"
|
PetscErrorCode SVDMonitorLGAll(SVD svd,PetscInt its,PetscInt nconv,PetscReal *sigma,PetscReal *errest,PetscInt nest,void *monctx)
|
PetscErrorCode SVDMonitorLGAll(SVD svd,PetscInt its,PetscInt nconv,PetscReal *sigma,PetscReal *errest,PetscInt nest,void *monctx)
|
{
|
{
|
PetscViewer viewer = (PetscViewer) monctx;
|
PetscViewer viewer = (PetscViewer) monctx;
|
PetscDraw draw;
|
PetscDraw draw,draw1;
|
PetscDrawLG lg;
|
PetscDrawLG lg,lg1;
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
PetscReal *x,*y,p;
|
PetscReal *x,*y,p;
|
int n = PetscMin(svd->nsv,255);
|
PetscInt i,n = PetscMin(svd->nsv,255);
|
PetscInt i;
|
|
PetscDraw draw1;
|
|
PetscDrawLG lg1;
|
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
|
|
if (!viewer) { viewer = PETSC_VIEWER_DRAW_(((PetscObject)svd)->comm); }
|
if (!viewer) { viewer = PETSC_VIEWER_DRAW_(((PetscObject)svd)->comm); }
|
|
|
ierr = PetscViewerDrawGetDraw(viewer,0,&draw);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,0,&draw);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,0,&lg);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,0,&lg);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,1,&draw1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDraw(viewer,1,&draw1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,1,&lg1);CHKERRQ(ierr);
|
ierr = PetscViewerDrawGetDrawLG(viewer,1,&lg1);CHKERRQ(ierr);
|
|
|