Subversion Repositories slepc-dev

Compare Revisions

Ignore whitespace Rev 1542 → Rev 1543

/trunk/include/finclude/slepcstdef.h New file
0,0 → 1,30
!
! Include file for Fortran use of the ST object in SLEPc
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! SLEPc - Scalable Library for Eigenvalue Problem Computations
! Copyright (c) 2002-2007, Universidad Politecnica de Valencia, Spain
!
! This file is part of SLEPc. See the README file for conditions of use
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCST_H)
#define __SLEPCST_H
 
#include "finclude/petsckspdef.h"
 
#if !defined(PETSC_USE_FORTRAN_TYPES)
#define ST PetscFortranAddr
#endif
 
#define STType character*(80)
#define STMatMode PetscEnum
 
#define STSHELL 'shell'
#define STSHIFT 'shift'
#define STSINV 'sinvert'
#define STCAYLEY 'cayley'
#define STFOLD 'fold'
 
#endif
trunk/include/finclude/slepcstdef.h Property changes : Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
/trunk/include/finclude/slepcepsdef.h New file
0,0 → 1,47
!
! Include file for Fortran use of the EPS object in SLEPc
!
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! SLEPc - Scalable Library for Eigenvalue Problem Computations
! Copyright (c) 2002-2007, Universidad Politecnica de Valencia, Spain
!
! This file is part of SLEPc. See the README file for conditions of use
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCEPS_H)
#define __SLEPCEPS_H
 
#include "finclude/slepcstdef.h"
#include "finclude/slepcipdef.h"
 
#if !defined(PETSC_USE_FORTRAN_TYPES)
#define EPS PetscFortranAddr
#endif
 
#define EPSType character*(80)
#define EPSConvergedReason PetscEnum
#define EPSProblemType PetscEnum
#define EPSWhich PetscEnum
#define EPSClass PetscEnum
#define EPSProjection PetscEnum
#define EPSPowerShiftType PetscEnum
#define EPSLanczosReorthogType PetscEnum
#define EPSPRIMMEMethod PetscEnum
#define EPSPRIMMEPrecond PetscEnum
 
 
#define EPSPOWER 'power'
#define EPSSUBSPACE 'subspace'
#define EPSARNOLDI 'arnoldi'
#define EPSLANCZOS 'lanczos'
#define EPSKRYLOVSCHUR 'krylovschur'
#define EPSLAPACK 'lapack'
#define EPSARPACK 'arpack'
#define EPSBLZPACK 'blzpack'
#define EPSTRLAN 'trlan'
#define EPSBLOPEX 'blopex'
#define EPSPRIMME 'primme'
 
#endif
trunk/include/finclude/slepcepsdef.h Property changes : Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
/trunk/include/finclude/slepcst.h
9,24 → 9,13
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCST_H)
#define __SLEPCST_H
#include "finclude/slepcstdef.h"
 
#define ST PetscFortranAddr
#define STType character*(80)
PetscEnum STMATMODE_COPY
PetscEnum STMATMODE_INPLACE
PetscEnum STMATMODE_SHELL
 
#define STSHELL 'shell'
#define STSHIFT 'shift'
#define STSINV 'sinvert'
#define STCAYLEY 'cayley'
#define STFOLD 'fold'
 
integer STMATMODE_COPY
integer STMATMODE_INPLACE
integer STMATMODE_SHELL
 
parameter (STMATMODE_COPY = 0)
parameter (STMATMODE_INPLACE = 1)
parameter (STMATMODE_SHELL = 2)
 
#endif
/trunk/include/finclude/slepceps.h
10,33 → 10,16
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCEPS_H)
#define __SLEPCEPS_H
#include "finclude/slepcepsdef.h"
 
#define EPS PetscFortranAddr
#define EPSType character*(80)
#define EPSConvergedReason integer
 
#define EPSPOWER 'power'
#define EPSSUBSPACE 'subspace'
#define EPSARNOLDI 'arnoldi'
#define EPSLANCZOS 'lanczos'
#define EPSKRYLOVSCHUR 'krylovschur'
#define EPSLAPACK 'lapack'
#define EPSARPACK 'arpack'
#define EPSBLZPACK 'blzpack'
#define EPSTRLAN 'trlan'
#define EPSBLOPEX 'blopex'
#define EPSPRIMME 'primme'
 
! Convergence flags.
! They sould match the flags in $SLEPC_DIR/include/slepceps.h
 
integer EPS_CONVERGED_TOL
integer EPS_DIVERGED_ITS
integer EPS_DIVERGED_BREAKDOWN
integer EPS_DIVERGED_NONSYMMETRIC
integer EPS_CONVERGED_ITERATING
PetscEnum EPS_CONVERGED_TOL
PetscEnum EPS_DIVERGED_ITS
PetscEnum EPS_DIVERGED_BREAKDOWN
PetscEnum EPS_DIVERGED_NONSYMMETRIC
PetscEnum EPS_CONVERGED_ITERATING
 
parameter (EPS_CONVERGED_TOL = 2)
parameter (EPS_DIVERGED_ITS = -3)
44,22 → 27,22
parameter (EPS_DIVERGED_NONSYMMETRIC = -5)
parameter (EPS_CONVERGED_ITERATING = 0)
 
integer EPS_HEP
integer EPS_GHEP
integer EPS_NHEP
integer EPS_GNHEP
PetscEnum EPS_HEP
PetscEnum EPS_GHEP
PetscEnum EPS_NHEP
PetscEnum EPS_GNHEP
 
parameter (EPS_HEP = 1)
parameter (EPS_GHEP = 2)
parameter (EPS_NHEP = 3)
parameter (EPS_GNHEP = 4)
integer EPS_LARGEST_MAGNITUDE
integer EPS_SMALLEST_MAGNITUDE
integer EPS_LARGEST_REAL
integer EPS_SMALLEST_REAL
integer EPS_LARGEST_IMAGINARY
integer EPS_SMALLEST_IMAGINARY
PetscEnum EPS_LARGEST_MAGNITUDE
PetscEnum EPS_SMALLEST_MAGNITUDE
PetscEnum EPS_LARGEST_REAL
PetscEnum EPS_SMALLEST_REAL
PetscEnum EPS_LARGEST_IMAGINARY
PetscEnum EPS_SMALLEST_IMAGINARY
 
parameter (EPS_LARGEST_MAGNITUDE = 0)
parameter (EPS_SMALLEST_MAGNITUDE = 1)
68,57 → 51,57
parameter (EPS_LARGEST_IMAGINARY = 4)
parameter (EPS_SMALLEST_IMAGINARY = 5)
integer EPSPOWER_SHIFT_CONSTANT
integer EPSPOWER_SHIFT_RAYLEIGH
integer EPSPOWER_SHIFT_WILKINSON
PetscEnum EPSPOWER_SHIFT_CONSTANT
PetscEnum EPSPOWER_SHIFT_RAYLEIGH
PetscEnum EPSPOWER_SHIFT_WILKINSON
 
parameter (EPSPOWER_SHIFT_CONSTANT = 0)
parameter (EPSPOWER_SHIFT_RAYLEIGH = 1)
parameter (EPSPOWER_SHIFT_WILKINSON = 2)
 
integer EPS_ONE_SIDE
integer EPS_TWO_SIDE
PetscEnum EPS_ONE_SIDE
PetscEnum EPS_TWO_SIDE
 
parameter (EPS_ONE_SIDE = 0)
parameter (EPS_TWO_SIDE = 1)
integer EPS_RITZ
integer EPS_HARMONIC
integer EPS_REFINED
integer EPS_REFINED_HARMONIC
PetscEnum EPS_RITZ
PetscEnum EPS_HARMONIC
PetscEnum EPS_REFINED
PetscEnum EPS_REFINED_HARMONIC
 
parameter (EPS_RITZ = 1)
parameter (EPS_HARMONIC = 2)
parameter (EPS_REFINED = 3)
parameter (EPS_REFINED_HARMONIC = 4)
 
integer EPSLANCZOS_REORTHOG_LOCAL
integer EPSLANCZOS_REORTHOG_FULL
integer EPSLANCZOS_REORTHOG_SELECTIVE
integer EPSLANCZOS_REORTHOG_PERIODIC
integer EPSLANCZOS_REORTHOG_PARTIAL
PetscEnum EPSLANCZOS_REORTHOG_LOCAL
PetscEnum EPSLANCZOS_REORTHOG_FULL
PetscEnum EPSLANCZOS_REORTHOG_SELECTIVE
PetscEnum EPSLANCZOS_REORTHOG_PERIODIC
PetscEnum EPSLANCZOS_REORTHOG_PARTIAL
 
parameter (EPSLANCZOS_REORTHOG_LOCAL = 0)
parameter (EPSLANCZOS_REORTHOG_LOCAL = 0)
parameter (EPSLANCZOS_REORTHOG_FULL = 1)
parameter (EPSLANCZOS_REORTHOG_SELECTIVE = 2)
parameter (EPSLANCZOS_REORTHOG_PERIODIC = 3)
parameter (EPSLANCZOS_REORTHOG_PARTIAL = 4)
 
integer EPSPRIMME_DYNAMIC
integer EPSPRIMME_DEFAULT_MIN_TIME
integer EPSPRIMME_DEFAULT_MIN_MATVECS
integer EPSPRIMME_ARNOLDI
integer EPSPRIMME_GD
integer EPSPRIMME_GD_PLUSK
integer EPSPRIMME_GD_OLSEN_PLUSK
integer EPSPRIMME_JD_OLSEN_PLUSK
integer EPSPRIMME_RQI
integer EPSPRIMME_JDQR
integer EPSPRIMME_JDQMR
integer EPSPRIMME_JDQMR_ETOL
integer EPSPRIMME_SUBSPACE_ITERATION
integer EPSPRIMME_LOBPCG_ORTHOBASIS
integer EPSPRIMME_LOBPCG_ORTHOBASIS_WINDOW
PetscEnum EPSPRIMME_DYNAMIC
PetscEnum EPSPRIMME_DEFAULT_MIN_TIME
PetscEnum EPSPRIMME_DEFAULT_MIN_MATVECS
PetscEnum EPSPRIMME_ARNOLDI
PetscEnum EPSPRIMME_GD
PetscEnum EPSPRIMME_GD_PLUSK
PetscEnum EPSPRIMME_GD_OLSEN_PLUSK
PetscEnum EPSPRIMME_JD_OLSEN_PLUSK
PetscEnum EPSPRIMME_RQI
PetscEnum EPSPRIMME_JDQR
PetscEnum EPSPRIMME_JDQMR
PetscEnum EPSPRIMME_JDQMR_ETOL
PetscEnum EPSPRIMME_SUBSPACE_ITERATION
PetscEnum EPSPRIMME_LOBPCG_ORTHOBASIS
PetscEnum EPSPRIMME_LOBPCG_ORTHOBASISW
 
parameter (EPSPRIMME_DYNAMIC = 0)
parameter (EPSPRIMME_DEFAULT_MIN_TIME = 1)
134,12 → 117,10
parameter (EPSPRIMME_JDQMR_ETOL = 12)
parameter (EPSPRIMME_SUBSPACE_ITERATION = 13)
parameter (EPSPRIMME_LOBPCG_ORTHOBASIS = 14)
parameter (EPSPRIMME_LOBPCG_ORTHOBASIS_WINDOW = 15)
parameter (EPSPRIMME_LOBPCG_ORTHOBASISW = 15)
 
integer EPSPRIMME_NONE
integer EPSPRIMME_DIAGONAL
PetscEnum EPSPRIMME_NONE
PetscEnum EPSPRIMME_DIAGONAL
 
parameter (EPSPRIMME_NONE = 0)
parameter (EPSPRIMME_DIAGONAL = 1)
 
#endif
/trunk/include/finclude/slepcipdef.h New file
0,0 → 1,24
!
! Include file for Fortran use of the IP object in SLEPc
!
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! SLEPc - Scalable Library for Eigenvalue Problem Computations
! Copyright (c) 2002-2007, Universidad Politecnica de Valencia, Spain
!
! This file is part of SLEPc. See the README file for conditions of use
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCIP_H)
#define __SLEPCIP_H
 
#if !defined(PETSC_USE_FORTRAN_TYPES)
#define IP PetscFortranAddr
#endif
 
#define IPOrthogonalizationType PetscEnum
#define IPOrthogonalizationRefinementType PetscEnum
#define IPBilinearForm PetscEnum
 
#endif
trunk/include/finclude/slepcipdef.h Property changes : Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
/trunk/include/finclude/slepcip.h
10,29 → 10,24
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCIP_H)
#define __SLEPCIP_H
#include "finclude/slepcipdef.h"
 
#define IP PetscFortranAddr
 
integer IP_MGS_ORTH
integer IP_CGS_ORTH
PetscEnum IP_MGS_ORTH
PetscEnum IP_CGS_ORTH
parameter (IP_MGS_ORTH = 0)
parameter (IP_CGS_ORTH = 1)
 
integer IP_ORTH_REFINE_NEVER
integer IP_ORTH_REFINE_IFNEEDED
integer IP_ORTH_REFINE_ALWAYS
PetscEnum IP_ORTH_REFINE_NEVER
PetscEnum IP_ORTH_REFINE_IFNEEDED
PetscEnum IP_ORTH_REFINE_ALWAYS
 
parameter (IP_ORTH_REFINE_NEVER = 0)
parameter (IP_ORTH_REFINE_IFNEEDED = 1)
parameter (IP_ORTH_REFINE_ALWAYS = 2)
 
integer IP_MGS_ORTH
integer IP_CGS_ORTH
PetscEnum IPINNER_HERMITIAN
PetscEnum IPINNER_SYMMETRIC
 
parameter (IP_MGS_ORTH = 0)
parameter (IP_CGS_ORTH = 1)
 
#endif
parameter (IPINNER_HERMITIAN = 0)
parameter (IPINNER_SYMMETRIC = 1)
/trunk/include/finclude/slepcsvddef.h New file
0,0 → 1,33
!
! Include file for Fortran use of the SVD object in SLEPc
!
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! SLEPc - Scalable Library for Eigenvalue Problem Computations
! Copyright (c) 2002-2007, Universidad Politecnica de Valencia, Spain
!
! This file is part of SLEPc. See the README file for conditions of use
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCSVD_H)
#define __SLEPCSVD_H
 
#include "finclude/slepcipdef.h"
 
#if !defined(PETSC_USE_FORTRAN_TYPES)
#define SVD PetscFortranAddr
#endif
 
#define SVDType character*(80)
#define SVDTransposeMode PetscEnum
#define SVDWhich PetscEnum
#define SVDConvergedReason PetscEnum
 
#define SVDCROSS 'cross'
#define SVDCYCLIC 'cyclic'
#define SVDLAPACK 'lapack'
#define SVDLANCZOS 'lanczos'
#define SVDTRLANCZOS 'trlanczos'
 
#endif
trunk/include/finclude/slepcsvddef.h Property changes : Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
/trunk/include/finclude/slepcsvd.h
10,34 → 10,23
! and additional information.
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
#if !defined(__SLEPCSVD_H)
#define __SLEPCSVD_H
#include "finclude/slepcsvddef.h"
 
#define SVD PetscFortranAddr
#define SVDType character*(80)
#define SVDConvergedReason integer
 
#define SVDCROSS 'cross'
#define SVDCYCLIC 'cyclic'
#define SVDLAPACK 'lapack'
#define SVDLANCZOS 'lanczos'
#define SVDTRLANCZOS 'trlanczos'
 
! Convergence flags.
! They sould match the flags in $SLEPC_DIR/include/slepcsvd.h
 
integer SVD_CONVERGED_TOL
integer SVD_DIVERGED_ITS
integer SVD_DIVERGED_BREAKDOWN
integer SVD_CONVERGED_ITERATING
PetscEnum SVD_CONVERGED_TOL
PetscEnum SVD_DIVERGED_ITS
PetscEnum SVD_DIVERGED_BREAKDOWN
PetscEnum SVD_CONVERGED_ITERATING
 
parameter (SVD_CONVERGED_TOL = 2)
parameter (SVD_DIVERGED_ITS = -3)
parameter (SVD_DIVERGED_BREAKDOWN = -4)
parameter (SVD_CONVERGED_ITERATING = 0)
 
integer SVD_TRANSPOSE_EXPLICIT
integer SVD_TRANSPOSE_IMPLICIT
PetscEnum SVD_TRANSPOSE_EXPLICIT
PetscEnum SVD_TRANSPOSE_IMPLICIT
 
parameter (SVD_TRANSPOSE_EXPLICIT = 0)
parameter (SVD_TRANSPOSE_IMPLICIT = 1)
47,5 → 36,3
 
parameter (SVD_LARGEST = 0)
parameter (SVD_SMALLEST = 1)
 
#endif