WebSVN - slepc-dev - Diff - Rev 2324 and 2326 - /trunk/src/qep/impls/linear/linear.c

Rev 2324	Rev 2326
Line 391...	Line 391...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
	PetscValidLogicalCollectiveInt(qep,cform,2);
ierr = PetscTryMethod(qep,"QEPLinearSetCompanionForm_C",(QEP,PetscInt),(qep,cform));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearSetCompanionForm_C",(QEP,PetscInt),(qep,cform));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

EXTERN_C_BEGIN	EXTERN_C_BEGIN
Line 403...	Line 404...
PetscErrorCode QEPLinearGetCompanionForm_Linear(QEP qep,PetscInt *cform)	PetscErrorCode QEPLinearGetCompanionForm_Linear(QEP qep,PetscInt *cform)
{	{
QEP_LINEAR ctx = (QEP_LINEAR )qep->data;	QEP_LINEAR ctx = (QEP_LINEAR )qep->data;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidPointer(cform,2);
*cform = ctx->cform;	*cform = ctx->cform;
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}
EXTERN_C_END	EXTERN_C_END

Line 433...	Line 433...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
	PetscValidIntPointer(cform,2);
ierr = PetscTryMethod(qep,"QEPLinearGetCompanionForm_C",(QEP,PetscInt*),(qep,cform));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearGetCompanionForm_C",(QEP,PetscInt*),(qep,cform));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

EXTERN_C_BEGIN	EXTERN_C_BEGIN
Line 475...	Line 476...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
	PetscValidLogicalCollectiveBool(qep,explicitmatrix,2);
ierr = PetscTryMethod(qep,"QEPLinearSetExplicitMatrix_C",(QEP,PetscBool),(qep,explicitmatrix));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearSetExplicitMatrix_C",(QEP,PetscBool),(qep,explicitmatrix));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

EXTERN_C_BEGIN	EXTERN_C_BEGIN
Line 487...	Line 489...
PetscErrorCode QEPLinearGetExplicitMatrix_Linear(QEP qep,PetscBool *explicitmatrix)	PetscErrorCode QEPLinearGetExplicitMatrix_Linear(QEP qep,PetscBool *explicitmatrix)
{	{
QEP_LINEAR ctx = (QEP_LINEAR )qep->data;	QEP_LINEAR ctx = (QEP_LINEAR )qep->data;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidPointer(explicitmatrix,2);
*explicitmatrix = ctx->explicitmatrix;	*explicitmatrix = ctx->explicitmatrix;
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}
EXTERN_C_END	EXTERN_C_END

Line 517...	Line 518...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
	PetscValidPointer(explicitmatrix,2);
ierr = PetscTryMethod(qep,"QEPLinearGetExplicitMatrix_C",(QEP,PetscBool*),(qep,explicitmatrix));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearGetExplicitMatrix_C",(QEP,PetscBool*),(qep,explicitmatrix));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

EXTERN_C_BEGIN	EXTERN_C_BEGIN
Line 530...	Line 532...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;
QEP_LINEAR ctx = (QEP_LINEAR )qep->data;	QEP_LINEAR ctx = (QEP_LINEAR )qep->data;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(eps,EPS_CLASSID,2);
PetscCheckSameComm(qep,1,eps,2);
ierr = PetscObjectReference((PetscObject)eps);CHKERRQ(ierr);	ierr = PetscObjectReference((PetscObject)eps);CHKERRQ(ierr);
ierr = EPSDestroy(&ctx->eps);CHKERRQ(ierr);	ierr = EPSDestroy(&ctx->eps);CHKERRQ(ierr);
ctx->eps = eps;	ctx->eps = eps;
qep->setupcalled = 0;	qep->setupcalled = 0;
PetscFunctionReturn(0);	PetscFunctionReturn(0);
Line 563...	Line 563...
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
PetscValidHeaderSpecific(eps,EPS_CLASSID,2);	PetscValidHeaderSpecific(eps,EPS_CLASSID,2);
	PetscCheckSameComm(qep,1,eps,2);
ierr = PetscTryMethod(qep,"QEPLinearSetEPS_C",(QEP,EPS),(qep,eps));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearSetEPS_C",(QEP,EPS),(qep,eps));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

EXTERN_C_BEGIN	EXTERN_C_BEGIN
Line 575...	Line 576...
PetscErrorCode QEPLinearGetEPS_Linear(QEP qep,EPS *eps)	PetscErrorCode QEPLinearGetEPS_Linear(QEP qep,EPS *eps)
{	{
QEP_LINEAR ctx = (QEP_LINEAR )qep->data;	QEP_LINEAR ctx = (QEP_LINEAR )qep->data;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidPointer(eps,2);
*eps = ctx->eps;	*eps = ctx->eps;
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}
EXTERN_C_END	EXTERN_C_END

Line 605...	Line 605...
{	{
PetscErrorCode ierr;	PetscErrorCode ierr;

PetscFunctionBegin;	PetscFunctionBegin;
PetscValidHeaderSpecific(qep,QEP_CLASSID,1);	PetscValidHeaderSpecific(qep,QEP_CLASSID,1);
	PetscValidPointer(eps,2);
ierr = PetscTryMethod(qep,"QEPLinearGetEPS_C",(QEP,EPS*),(qep,eps));CHKERRQ(ierr);	ierr = PetscTryMethod(qep,"QEPLinearGetEPS_C",(QEP,EPS*),(qep,eps));CHKERRQ(ierr);
PetscFunctionReturn(0);	PetscFunctionReturn(0);
}	}

#undef __FUNCT__	#undef __FUNCT__

Line 391...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidLogicalCollectiveInt(qep,cform,2);

  ierr = PetscTryMethod(qep,"QEPLinearSetCompanionForm_C",(QEP,PetscInt),(qep,cform));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearSetCompanionForm_C",(QEP,PetscInt),(qep,cform));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_BEGIN

EXTERN_C_BEGIN

Line 403...

Line 404...

PetscErrorCode QEPLinearGetCompanionForm_Linear(QEP qep,PetscInt *cform)

PetscErrorCode QEPLinearGetCompanionForm_Linear(QEP qep,PetscInt *cform)

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidPointer(cform,2);

  *cform = ctx->cform;

  *cform = ctx->cform;

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_END

EXTERN_C_END

Line 433...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidIntPointer(cform,2);

  ierr = PetscTryMethod(qep,"QEPLinearGetCompanionForm_C",(QEP,PetscInt*),(qep,cform));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearGetCompanionForm_C",(QEP,PetscInt*),(qep,cform));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_BEGIN

EXTERN_C_BEGIN

Line 475...

Line 476...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidLogicalCollectiveBool(qep,explicitmatrix,2);

  ierr = PetscTryMethod(qep,"QEPLinearSetExplicitMatrix_C",(QEP,PetscBool),(qep,explicitmatrix));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearSetExplicitMatrix_C",(QEP,PetscBool),(qep,explicitmatrix));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_BEGIN

EXTERN_C_BEGIN

Line 487...

Line 489...

PetscErrorCode QEPLinearGetExplicitMatrix_Linear(QEP qep,PetscBool *explicitmatrix)

PetscErrorCode QEPLinearGetExplicitMatrix_Linear(QEP qep,PetscBool *explicitmatrix)

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidPointer(explicitmatrix,2);

  *explicitmatrix = ctx->explicitmatrix;

  *explicitmatrix = ctx->explicitmatrix;

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_END

EXTERN_C_END

Line 517...

Line 518...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidPointer(explicitmatrix,2);

  ierr = PetscTryMethod(qep,"QEPLinearGetExplicitMatrix_C",(QEP,PetscBool*),(qep,explicitmatrix));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearGetExplicitMatrix_C",(QEP,PetscBool*),(qep,explicitmatrix));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_BEGIN

EXTERN_C_BEGIN

Line 530...

Line 532...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  QEP_LINEAR     *ctx = (QEP_LINEAR *)qep->data;

  QEP_LINEAR     *ctx = (QEP_LINEAR *)qep->data;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(eps,EPS_CLASSID,2);

  PetscCheckSameComm(qep,1,eps,2);

  ierr = PetscObjectReference((PetscObject)eps);CHKERRQ(ierr);

  ierr = PetscObjectReference((PetscObject)eps);CHKERRQ(ierr);

  ierr = EPSDestroy(&ctx->eps);CHKERRQ(ierr);

  ierr = EPSDestroy(&ctx->eps);CHKERRQ(ierr);

  ctx->eps = eps;

  ctx->eps = eps;

  qep->setupcalled = 0;

  qep->setupcalled = 0;

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

Line 563...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(eps,EPS_CLASSID,2);

  PetscValidHeaderSpecific(eps,EPS_CLASSID,2);

  PetscCheckSameComm(qep,1,eps,2);

  ierr = PetscTryMethod(qep,"QEPLinearSetEPS_C",(QEP,EPS),(qep,eps));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearSetEPS_C",(QEP,EPS),(qep,eps));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_BEGIN

EXTERN_C_BEGIN

Line 575...

Line 576...

PetscErrorCode QEPLinearGetEPS_Linear(QEP qep,EPS *eps)

PetscErrorCode QEPLinearGetEPS_Linear(QEP qep,EPS *eps)

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  QEP_LINEAR *ctx = (QEP_LINEAR *)qep->data;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidPointer(eps,2);

  *eps = ctx->eps;

  *eps = ctx->eps;

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

EXTERN_C_END

EXTERN_C_END

Line 605...

  PetscErrorCode ierr;

  PetscErrorCode ierr;

  PetscFunctionBegin;

  PetscFunctionBegin;

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidHeaderSpecific(qep,QEP_CLASSID,1);

  PetscValidPointer(eps,2);

  ierr = PetscTryMethod(qep,"QEPLinearGetEPS_C",(QEP,EPS*),(qep,eps));CHKERRQ(ierr);

  ierr = PetscTryMethod(qep,"QEPLinearGetEPS_C",(QEP,EPS*),(qep,eps));CHKERRQ(ierr);

  PetscFunctionReturn(0);

  PetscFunctionReturn(0);

#undef __FUNCT__

#undef __FUNCT__

Subversion Repositories slepc-dev

(root)/trunk/src/qep/impls/linear/linear.c @ 2329 - Rev 2324 → 2326