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
6 dsic.upv.es!jroman 1
!
2
!  Include file for Fortran use of the EPS object in SLEPc
3
!
1376 slepc 4
!
5
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1672 slepc 6
!  SLEPc - Scalable Library for Eigenvalue Problem Computations
7
!  Copyright (c) 2002-2009, Universidad Politecnica de Valencia, Spain
1376 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/>.
1376 slepc 22
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
23
!
1543 slepc 24
#include "finclude/slepcepsdef.h"
6 dsic.upv.es!jroman 25
 
26
!  Convergence flags.
27
!  They sould match the flags in $SLEPC_DIR/include/slepceps.h
28
 
1543 slepc 29
      PetscEnum EPS_CONVERGED_TOL        
30
      PetscEnum EPS_DIVERGED_ITS
31
      PetscEnum EPS_DIVERGED_BREAKDOWN
32
      PetscEnum EPS_DIVERGED_NONSYMMETRIC
33
      PetscEnum EPS_CONVERGED_ITERATING
6 dsic.upv.es!jroman 34
 
35
      parameter (EPS_CONVERGED_TOL          =  2)
36
      parameter (EPS_DIVERGED_ITS           = -3)
37
      parameter (EPS_DIVERGED_BREAKDOWN     = -4)
38
      parameter (EPS_DIVERGED_NONSYMMETRIC  = -5)
39
      parameter (EPS_CONVERGED_ITERATING    =  0)
40
 
1543 slepc 41
      PetscEnum EPS_HEP
42
      PetscEnum EPS_GHEP
43
      PetscEnum EPS_NHEP
44
      PetscEnum EPS_GNHEP
1789 antodo 45
      PetscEnum EPS_PGNHEP
397 dsic.upv.es!antodo 46
 
47
      parameter (EPS_HEP                    =  1)
48
      parameter (EPS_GHEP                   =  2)
49
      parameter (EPS_NHEP                   =  3)
50
      parameter (EPS_GNHEP                  =  4)
1789 antodo 51
      parameter (EPS_PGNHEP                 =  5)
604 dsic.upv.es!antodo 52
 
1543 slepc 53
      PetscEnum EPS_LARGEST_MAGNITUDE
54
      PetscEnum EPS_SMALLEST_MAGNITUDE
55
      PetscEnum EPS_LARGEST_REAL
56
      PetscEnum EPS_SMALLEST_REAL
57
      PetscEnum EPS_LARGEST_IMAGINARY
58
      PetscEnum EPS_SMALLEST_IMAGINARY
1839 jroman 59
      PetscEnum EPS_TARGET_MAGNITUDE
60
      PetscEnum EPS_TARGET_REAL
61
      PetscEnum EPS_TARGET_IMAGINARY
1945 jroman 62
      PetscEnum EPS_WHICH_USER
397 dsic.upv.es!antodo 63
 
1942 jroman 64
      parameter (EPS_LARGEST_MAGNITUDE      =  1)
65
      parameter (EPS_SMALLEST_MAGNITUDE     =  2)
66
      parameter (EPS_LARGEST_REAL           =  3)
67
      parameter (EPS_SMALLEST_REAL          =  4)
68
      parameter (EPS_LARGEST_IMAGINARY      =  5)
69
      parameter (EPS_SMALLEST_IMAGINARY     =  6)
70
      parameter (EPS_TARGET_MAGNITUDE       =  7)
71
      parameter (EPS_TARGET_REAL            =  8)
72
      parameter (EPS_TARGET_IMAGINARY       =  9)
1945 jroman 73
      parameter (EPS_WHICH_USER             = 10)
604 dsic.upv.es!antodo 74
 
1940 jroman 75
      PetscEnum EPS_BALANCE_NONE
76
      PetscEnum EPS_BALANCE_ONESIDE
77
      PetscEnum EPS_BALANCE_TWOSIDE
78
      PetscEnum EPS_BALANCE_USER
1839 jroman 79
 
1940 jroman 80
      parameter (EPS_BALANCE_NONE           =  1)
81
      parameter (EPS_BALANCE_ONESIDE        =  2)
82
      parameter (EPS_BALANCE_TWOSIDE        =  3)
83
      parameter (EPS_BALANCE_USER           =  4)
1839 jroman 84
 
1940 jroman 85
      PetscEnum EPS_POWER_SHIFT_CONSTANT
86
      PetscEnum EPS_POWER_SHIFT_RAYLEIGH
87
      PetscEnum EPS_POWER_SHIFT_WILKINSON
604 dsic.upv.es!antodo 88
 
1940 jroman 89
      parameter (EPS_POWER_SHIFT_CONSTANT   =  0)
90
      parameter (EPS_POWER_SHIFT_RAYLEIGH   =  1)
91
      parameter (EPS_POWER_SHIFT_WILKINSON  =  2)
604 dsic.upv.es!antodo 92
 
1543 slepc 93
      PetscEnum EPS_ONE_SIDE
94
      PetscEnum EPS_TWO_SIDE
961 dsic.upv.es!jroman 95
 
96
      parameter (EPS_ONE_SIDE               =  0)
97
      parameter (EPS_TWO_SIDE               =  1)
1459 slepc 98
 
1543 slepc 99
      PetscEnum EPS_RITZ
100
      PetscEnum EPS_HARMONIC
101
      PetscEnum EPS_REFINED
102
      PetscEnum EPS_REFINED_HARMONIC
961 dsic.upv.es!jroman 103
 
1459 slepc 104
      parameter (EPS_RITZ                   =  1)
105
      parameter (EPS_HARMONIC               =  2)
106
      parameter (EPS_REFINED                =  3)
107
      parameter (EPS_REFINED_HARMONIC       =  4)
108
 
1940 jroman 109
      PetscEnum EPS_LANCZOS_REORTHOG_LOCAL
110
      PetscEnum EPS_LANCZOS_REORTHOG_FULL
111
      PetscEnum EPS_LANCZOS_REORTHOG_SELECTIVE
112
      PetscEnum EPS_LANCZOS_REORTHOG_PERIODIC
113
      PetscEnum EPS_LANCZOS_REORTHOG_PARTIAL
961 dsic.upv.es!jroman 114
 
1940 jroman 115
      parameter (EPS_LANCZOS_REORTHOG_LOCAL     =  0)
116
      parameter (EPS_LANCZOS_REORTHOG_FULL      =  1)
117
      parameter (EPS_LANCZOS_REORTHOG_SELECTIVE =  2)
118
      parameter (EPS_LANCZOS_REORTHOG_PERIODIC  =  3)
119
      parameter (EPS_LANCZOS_REORTHOG_PARTIAL   =  4)
961 dsic.upv.es!jroman 120
 
1940 jroman 121
      PetscEnum EPS_PRIMME_DYNAMIC
122
      PetscEnum EPS_PRIMME_DEFAULT_MIN_TIME
123
      PetscEnum EPS_PRIMME_DEFAULT_MIN_MATVECS
124
      PetscEnum EPS_PRIMME_ARNOLDI
125
      PetscEnum EPS_PRIMME_GD
126
      PetscEnum EPS_PRIMME_GD_PLUSK
127
      PetscEnum EPS_PRIMME_GD_OLSEN_PLUSK
128
      PetscEnum EPS_PRIMME_JD_OLSEN_PLUSK
129
      PetscEnum EPS_PRIMME_RQI
130
      PetscEnum EPS_PRIMME_JDQR
131
      PetscEnum EPS_PRIMME_JDQMR
132
      PetscEnum EPS_PRIMME_JDQMR_ETOL
133
      PetscEnum EPS_PRIMME_SUBSPACE_ITERATION
134
      PetscEnum EPS_PRIMME_LOBPCG_ORTHOBASIS
135
      PetscEnum EPS_PRIMME_LOBPCG_ORTHOBASISW
1459 slepc 136
 
1940 jroman 137
      parameter (EPS_PRIMME_DYNAMIC             =  0)
138
      parameter (EPS_PRIMME_DEFAULT_MIN_TIME    =  1)
139
      parameter (EPS_PRIMME_DEFAULT_MIN_MATVECS =  2)
140
      parameter (EPS_PRIMME_ARNOLDI             =  3)
141
      parameter (EPS_PRIMME_GD                  =  4)
142
      parameter (EPS_PRIMME_GD_PLUSK            =  5)
143
      parameter (EPS_PRIMME_GD_OLSEN_PLUSK      =  7)
144
      parameter (EPS_PRIMME_JD_OLSEN_PLUSK      =  8)
145
      parameter (EPS_PRIMME_RQI                 =  9)
146
      parameter (EPS_PRIMME_JDQR                = 10)
147
      parameter (EPS_PRIMME_JDQMR               = 11)
148
      parameter (EPS_PRIMME_JDQMR_ETOL          = 12)
149
      parameter (EPS_PRIMME_SUBSPACE_ITERATION  = 13)
150
      parameter (EPS_PRIMME_LOBPCG_ORTHOBASIS   = 14)
151
      parameter (EPS_PRIMME_LOBPCG_ORTHOBASISW  = 15)
1459 slepc 152
 
1940 jroman 153
      PetscEnum EPS_PRIMME_PRECOND_NONE
154
      PetscEnum EPS_PRIMME_PRECOND_DIAGONAL
1459 slepc 155
 
1940 jroman 156
      parameter (EPS_PRIMME_PRECOND_NONE        =  0)
157
      parameter (EPS_PRIMME_PRECOND_DIAGONAL    =  1)
1781 antodo 158
 
159
      external EPSMONITORDEFAULT
160
      external EPSMONITORLG
161
      external EPSMONITORCONVERGED
162
      external EPSMONITORFIRST
163
 
164
!PETSC_DEC_ATTRIBUTES(EPSMONITORDEFAULT,'_EPSMONITORDEFAULT')
165
!PETSC_DEC_ATTRIBUTES(EPSMONITORLG,'_EPSMONITORLG')
166
!PETSC_DEC_ATTRIBUTES(EPSMONITORCONVERGED,'_EPSMONITORCONVERGED')
167
!PETSC_DEC_ATTRIBUTES(EPSMONITORFIRST,'_EPSMONITORFIRST')