Subversion Repositories slepc-dev

Rev

Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1459 slepc 1
!
2
!  Include file for Fortran use of the IP object in SLEPc
3
!
4
!
5
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1672 slepc 6
!  SLEPc - Scalable Library for Eigenvalue Problem Computations
2116 eromero 7
!  Copyright (c) 2002-2010, Universidad Politecnica de Valencia, Spain
1459 slepc 8
!
1672 slepc 9
!  This file is part of SLEPc.
10
!    
11
!  SLEPc is free software: you can redistribute it and/or modify it under  the
12
!  terms of version 3 of the GNU Lesser General Public License as published by
13
!  the Free Software Foundation.
14
!
15
!  SLEPc  is  distributed in the hope that it will be useful, but WITHOUT  ANY
16
!  WARRANTY;  without even the implied warranty of MERCHANTABILITY or  FITNESS
17
!  FOR  A  PARTICULAR PURPOSE. See the GNU Lesser General Public  License  for
18
!  more details.
19
!
20
!  You  should have received a copy of the GNU Lesser General  Public  License
21
!  along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
1459 slepc 22
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
23
!
1543 slepc 24
#include "finclude/slepcipdef.h"
1459 slepc 25
 
1940 jroman 26
      PetscEnum IP_ORTH_MGS
27
      PetscEnum IP_ORTH_CGS
1459 slepc 28
 
1940 jroman 29
      parameter (IP_ORTH_MGS               =  0)
30
      parameter (IP_ORTH_CGS               =  1)
1459 slepc 31
 
1543 slepc 32
      PetscEnum IP_ORTH_REFINE_NEVER
33
      PetscEnum IP_ORTH_REFINE_IFNEEDED
34
      PetscEnum IP_ORTH_REFINE_ALWAYS
1459 slepc 35
 
36
      parameter (IP_ORTH_REFINE_NEVER      =  0)  
37
      parameter (IP_ORTH_REFINE_IFNEEDED   =  1)  
38
      parameter (IP_ORTH_REFINE_ALWAYS     =  2)  
39
 
1940 jroman 40
      PetscEnum IP_INNER_HERMITIAN
41
      PetscEnum IP_INNER_SYMMETRIC
1459 slepc 42
 
1940 jroman 43
      parameter (IP_INNER_HERMITIAN        =  0)
44
      parameter (IP_INNER_SYMMETRIC        =  1)