1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2018, 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: #include "slepc/finclude/slepcfn.h" 14: type tFN 15: PetscFortranAddr:: v 16: end type tFN 18: PetscEnum FN_COMBINE_ADD 19: PetscEnum FN_COMBINE_MULTIPLY 20: PetscEnum FN_COMBINE_DIVIDE 21: PetscEnum FN_COMBINE_COMPOSE 23: parameter (FN_COMBINE_ADD = 0) 24: parameter (FN_COMBINE_MULTIPLY = 1) 25: parameter (FN_COMBINE_DIVIDE = 2) 26: parameter (FN_COMBINE_COMPOSE = 3) 28: ! 29: ! End of Fortran include file for the FN package in SLEPc 30: !