Line data    Source code

       1             : /*
       2             :    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       3             :    SLEPc - Scalable Library for Eigenvalue Problem Computations
       4             :    Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
       5             : 
       6             :    This file is part of SLEPc.
       7             :    SLEPc is distributed under a 2-clause BSD license (see LICENSE).
       8             :    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       9             : */
      10             : 
      11             : #include <slepc/private/lmeimpl.h>  /*I "slepclme.h" I*/
      12             : 
      13             : SLEPC_EXTERN PetscErrorCode LMECreate_Krylov(LME);
      14             : 
      15             : /*@C
      16             :   LMERegisterAll - Registers all the matrix functions in the LME package.
      17             : 
      18             :   Not Collective
      19             : 
      20             :   Level: advanced
      21             : 
      22             : .seealso: LMERegister()
      23             : @*/
      24          16 : PetscErrorCode LMERegisterAll(void)
      25             : {
      26          16 :   PetscFunctionBegin;
      27          16 :   if (LMERegisterAllCalled) PetscFunctionReturn(PETSC_SUCCESS);
      28           9 :   LMERegisterAllCalled = PETSC_TRUE;
      29           9 :   PetscCall(LMERegister(LMEKRYLOV,LMECreate_Krylov));
      30           9 :   PetscFunctionReturn(PETSC_SUCCESS);
      31             : }
      32             : 
      33             : /*@C
      34             :   LMEMonitorRegisterAll - Registers all the monitors in the LME package.
      35             : 
      36             :   Not Collective
      37             : 
      38             :   Level: advanced
      39             : 
      40             : .seealso: LMEMonitorRegister()
      41             : @*/
      42           9 : PetscErrorCode LMEMonitorRegisterAll(void)
      43             : {
      44           9 :   PetscFunctionBegin;
      45           9 :   if (LMEMonitorRegisterAllCalled) PetscFunctionReturn(PETSC_SUCCESS);
      46           9 :   LMEMonitorRegisterAllCalled = PETSC_TRUE;
      47             : 
      48           9 :   PetscCall(LMEMonitorRegister("error_estimate",PETSCVIEWERASCII,PETSC_VIEWER_DEFAULT,LMEMonitorDefault,NULL,NULL));
      49           9 :   PetscCall(LMEMonitorRegister("error_estimate",PETSCVIEWERDRAW,PETSC_VIEWER_DRAW_LG,LMEMonitorDefaultDrawLG,LMEMonitorDefaultDrawLGCreate,NULL));
      50           9 :   PetscFunctionReturn(PETSC_SUCCESS);
      51             : }