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" /*I "petscksp.h" I*/
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 (**)())&f);
28: if (f) {
29: (*f)(ksp,scale);
30: }
31: return(0);
32: }