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: }