Actual source code: slepcsvd.h

  1: !
  2: !  Include file for Fortran use of the SVD object in SLEPc
  3: !
  4: !
  5: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  6: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  7: !  Copyright (c) 2002-2010, Universidad Politecnica de Valencia, Spain
  8: !
  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/>.
 22: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 23: !
 24:  #include finclude/slepcsvddef.h

 26: !  Convergence flags.
 27: !  They sould match the flags in $SLEPC_DIR/include/slepcsvd.h

 29:       PetscEnum SVD_CONVERGED_TOL
 30:       PetscEnum SVD_DIVERGED_ITS
 31:       PetscEnum SVD_DIVERGED_BREAKDOWN
 32:       PetscEnum SVD_CONVERGED_ITERATING

 34:       parameter (SVD_CONVERGED_TOL          =  2)
 35:       parameter (SVD_DIVERGED_ITS           = -3)
 36:       parameter (SVD_DIVERGED_BREAKDOWN     = -4)
 37:       parameter (SVD_CONVERGED_ITERATING    =  0)

 39:       PetscEnum SVD_TRANSPOSE_EXPLICIT
 40:       PetscEnum SVD_TRANSPOSE_IMPLICIT

 42:       parameter (SVD_TRANSPOSE_EXPLICIT     =  0)
 43:       parameter (SVD_TRANSPOSE_IMPLICIT     =  1)
 44: 
 45:       integer SVD_LARGEST
 46:       integer SVD_SMALLEST

 48:       parameter (SVD_LARGEST                =  0)
 49:       parameter (SVD_SMALLEST               =  1)