Actual source code: richscale.c
1: /*$Id: richscale.c,v 1.22 2001/04/10 19:36:34 bsmith Exp $*/
3: #include src/sles/ksp/kspimpl.h
4: #include src/sles/ksp/impls/rich/richctx.h
7: /*@
8: KSPRichardsonSetScale - Set the damping factor; if this routine is not called, the factor
9: defaults to 1.0.
11: Collective on KSP
13: Input Parameters:
14: + ksp - the iterative context
15: - scale - the relaxation factor
17: Level: intermediate
19: .keywords: KSP, Richardson, set, scale
20: @*/
21: int KSPRichardsonSetScale(KSP ksp,PetscReal scale)
22: {
23: int ierr,(*f)(KSP,PetscReal);
27: PetscObjectQueryFunction((PetscObject)ksp,"KSPRichardsonSetScale_C",(void (**)(void))&f);
28: if (f) {
29: (*f)(ksp,scale);
30: }
31: return(0);
32: }