1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2019, 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 ST object in SLEPc 11: ! 12: #include "slepc/finclude/slepcst.h" 14: type tST 15: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 16: end type tST 18: ST, parameter :: SLEPC_NULL_ST = tST(0) 20: PetscEnum ST_MATMODE_COPY 21: PetscEnum ST_MATMODE_INPLACE 22: PetscEnum ST_MATMODE_SHELL 24: parameter (ST_MATMODE_COPY = 0) 25: parameter (ST_MATMODE_INPLACE = 1) 26: parameter (ST_MATMODE_SHELL = 2) 28: ! 29: ! End of Fortran include file for the ST package in SLEPc 30: !