Actual source code: fnregis.c
slepc-3.10.1 2018-10-23
Report Typos and Errors

      1: /*
      2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
      4:    Copyright (c) 2002-2018, 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: #include <slepc/private/fnimpl.h>      /*I "slepcfn.h" I*/

     13: PETSC_EXTERN PetscErrorCode FNCreate_Combine(FN);
     14: PETSC_EXTERN PetscErrorCode FNCreate_Rational(FN);
     15: PETSC_EXTERN PetscErrorCode FNCreate_Exp(FN);
     16: PETSC_EXTERN PetscErrorCode FNCreate_Log(FN);
     17: PETSC_EXTERN PetscErrorCode FNCreate_Phi(FN);
     18: PETSC_EXTERN PetscErrorCode FNCreate_Sqrt(FN);
     19: PETSC_EXTERN PetscErrorCode FNCreate_Invsqrt(FN);

     21: /*@C
     22:    FNRegisterAll - Registers all of the math functions in the FN package.

     24:    Not Collective

     26:    Level: advanced
     27: @*/
     28: PetscErrorCode FNRegisterAll(void)
     29: {

     33:   if (FNRegisterAllCalled) return(0);
     34:   FNRegisterAllCalled = PETSC_TRUE;
     35:   FNRegister(FNCOMBINE,FNCreate_Combine);
     36:   FNRegister(FNRATIONAL,FNCreate_Rational);
     37:   FNRegister(FNEXP,FNCreate_Exp);
     38:   FNRegister(FNLOG,FNCreate_Log);
     39:   FNRegister(FNPHI,FNCreate_Phi);
     40:   FNRegister(FNSQRT,FNCreate_Sqrt);
     41:   FNRegister(FNINVSQRT,FNCreate_Invsqrt);
     42:   return(0);
     43: }