Actual source code: slepcfn.h

slepc-3.17.2 2022-08-09
Report Typos and Errors
  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: !  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