Actual source code: slepcfn.h
slepc-3.16.1 2021-11-17
1: !
2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
4: ! Copyright (c) 2002-2021, 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: ! Include file for Fortran use of the FN object in SLEPc
11: !
12: #if !defined(SLEPCFNDEF_H)
13: #define SLEPCFNDEF_H
15: #include "petsc/finclude/petscmat.h"
17: #define FN type(tFN)
19: #define FNType character*(80)
20: #define FNCombineType PetscEnum
21: #define FNParallelType PetscEnum
23: #define FNCOMBINE 'combine'
24: #define FNRATIONAL 'rational'
25: #define FNEXP 'exp'
26: #define FNLOG 'log'
27: #define FNPHI 'phi'
28: #define FNSQRT 'sqrt'
29: #define FNINVSQRT 'invsqrt'
31: #endif