1: /*
  2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
  4:    Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain

  6:    This file is part of SLEPc.
  7:    SLEPc is distributed under a 2-clause BSD license (see LICENSE).
  8:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  9: */

 11: #pragma once

 13: #include <slepcrg.h>
 14: #include <slepc/private/slepcimpl.h>

 16: /* SUBMANSEC = RG */

 18: SLEPC_EXTERN PetscBool RGRegisterAllCalled;
 19: SLEPC_EXTERN PetscErrorCode RGRegisterAll(void);

 21: typedef struct _RGOps *RGOps;

 23: struct _RGOps {
 24:   PetscErrorCode (*istrivial)(RG,PetscBool*);
 25:   PetscErrorCode (*computecontour)(RG,PetscInt,PetscScalar*,PetscScalar*);
 26:   PetscErrorCode (*computebbox)(RG,PetscReal*,PetscReal*,PetscReal*,PetscReal*);
 27:   PetscErrorCode (*computequadrature)(RG,RGQuadRule,PetscInt,PetscScalar*,PetscScalar*,PetscScalar*);
 28:   PetscErrorCode (*checkinside)(RG,PetscReal,PetscReal,PetscInt*);
 29:   PetscErrorCode (*isaxisymmetric)(RG,PetscBool,PetscBool*);
 30:   PetscErrorCode (*setfromoptions)(RG,PetscOptionItems*);
 31:   PetscErrorCode (*view)(RG,PetscViewer);
 32:   PetscErrorCode (*destroy)(RG);
 33: };

 35: struct _p_RG {
 36:   PETSCHEADER(struct _RGOps);
 37:   PetscBool   complement;    /* region is the complement of the specified one */
 38:   PetscReal   sfactor;       /* scaling factor */
 39:   PetscReal   osfactor;      /* old scaling factor, before RGPushScale */
 40:   void        *data;
 41: };

 43: /* show an inf instead of PETSC_MAX_REAL */
 44: #define RGShowReal(r) (double)((PetscAbsReal(r)>=PETSC_MAX_REAL)?10*(r):(r))