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/fnimpl.h>      /*I "slepcfn.h" I*/
      12             : 
      13             : SLEPC_EXTERN PetscErrorCode FNCreate_Combine(FN);
      14             : SLEPC_EXTERN PetscErrorCode FNCreate_Rational(FN);
      15             : SLEPC_EXTERN PetscErrorCode FNCreate_Exp(FN);
      16             : SLEPC_EXTERN PetscErrorCode FNCreate_Log(FN);
      17             : SLEPC_EXTERN PetscErrorCode FNCreate_Phi(FN);
      18             : SLEPC_EXTERN PetscErrorCode FNCreate_Sqrt(FN);
      19             : SLEPC_EXTERN PetscErrorCode FNCreate_Invsqrt(FN);
      20             : 
      21             : /*@C
      22             :    FNRegisterAll - Registers all of the math functions in the FN package.
      23             : 
      24             :    Not Collective
      25             : 
      26             :    Level: advanced
      27             : 
      28             : .seealso: FNRegister()
      29             : @*/
      30         553 : PetscErrorCode FNRegisterAll(void)
      31             : {
      32         553 :   PetscFunctionBegin;
      33         553 :   if (FNRegisterAllCalled) PetscFunctionReturn(PETSC_SUCCESS);
      34         178 :   FNRegisterAllCalled = PETSC_TRUE;
      35         178 :   PetscCall(FNRegister(FNCOMBINE,FNCreate_Combine));
      36         178 :   PetscCall(FNRegister(FNRATIONAL,FNCreate_Rational));
      37         178 :   PetscCall(FNRegister(FNEXP,FNCreate_Exp));
      38         178 :   PetscCall(FNRegister(FNLOG,FNCreate_Log));
      39         178 :   PetscCall(FNRegister(FNPHI,FNCreate_Phi));
      40         178 :   PetscCall(FNRegister(FNSQRT,FNCreate_Sqrt));
      41         178 :   PetscCall(FNRegister(FNINVSQRT,FNCreate_Invsqrt));
      42         178 :   PetscFunctionReturn(PETSC_SUCCESS);
      43             : }