| Line 317... |
Line 317... |
|
|
ierr = EPSCreate(svd->comm,&cross->eps);CHKERRQ(ierr);
|
ierr = EPSCreate(svd->comm,&cross->eps);CHKERRQ(ierr);
|
ierr = EPSSetOptionsPrefix(cross->eps,svd->prefix);CHKERRQ(ierr);
|
ierr = EPSSetOptionsPrefix(cross->eps,svd->prefix);CHKERRQ(ierr);
|
ierr = EPSAppendOptionsPrefix(cross->eps,"svd_");CHKERRQ(ierr);
|
ierr = EPSAppendOptionsPrefix(cross->eps,"svd_");CHKERRQ(ierr);
|
PetscLogObjectParent(svd,cross->eps);
|
PetscLogObjectParent(svd,cross->eps);
|
|
ierr = EPSSetIP(cross->eps,svd->ip);CHKERRQ(ierr);
|
ierr = EPSSetWhichEigenpairs(cross->eps,EPS_LARGEST_REAL);CHKERRQ(ierr);
|
ierr = EPSSetWhichEigenpairs(cross->eps,EPS_LARGEST_REAL);CHKERRQ(ierr);
|
ierr = EPSMonitorSet(cross->eps,SVDMonitor_CROSS,svd,PETSC_NULL);CHKERRQ(ierr);
|
ierr = EPSMonitorSet(cross->eps,SVDMonitor_CROSS,svd,PETSC_NULL);CHKERRQ(ierr);
|
ierr = EPSGetST(cross->eps,&st);CHKERRQ(ierr);
|
ierr = EPSGetST(cross->eps,&st);CHKERRQ(ierr);
|
ierr = STSetMatMode(st,STMATMODE_SHELL);CHKERRQ(ierr);
|
ierr = STSetMatMode(st,STMATMODE_SHELL);CHKERRQ(ierr);
|
cross->mat = PETSC_NULL;
|
cross->mat = PETSC_NULL;
|