1: !
  2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  4: !  Copyright (c) 2002-, 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: !  Used by slepcsvdmod.F90 to create Fortran module file
 11: !
 12: #include "slepc/finclude/slepcsvd.h"

 14:       type tSVD
 15:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 16:       end type tSVD

 18:       SVD, parameter :: SLEPC_NULL_SVD = tSVD(0)

 20:       PetscEnum, parameter :: SVD_CONVERGED_TOL          =  1
 21:       PetscEnum, parameter :: SVD_CONVERGED_USER         =  2
 22:       PetscEnum, parameter :: SVD_CONVERGED_MAXIT        =  3
 23:       PetscEnum, parameter :: SVD_DIVERGED_ITS           = -1
 24:       PetscEnum, parameter :: SVD_DIVERGED_BREAKDOWN     = -2
 25:       PetscEnum, parameter :: SVD_CONVERGED_ITERATING    =  0

 27:       PetscEnum, parameter :: SVD_STANDARD               =  1
 28:       PetscEnum, parameter :: SVD_GENERALIZED            =  2
 29:       PetscEnum, parameter :: SVD_HYPERBOLIC             =  3

 31:       PetscEnum, parameter :: SVD_LARGEST                =  0
 32:       PetscEnum, parameter :: SVD_SMALLEST               =  1

 34:       PetscEnum, parameter :: SVD_ERROR_ABSOLUTE         =  0
 35:       PetscEnum, parameter :: SVD_ERROR_RELATIVE         =  1
 36:       PetscEnum, parameter :: SVD_ERROR_NORM             =  2

 38:       PetscEnum, parameter :: SVD_CONV_ABS               =  0
 39:       PetscEnum, parameter :: SVD_CONV_REL               =  1
 40:       PetscEnum, parameter :: SVD_CONV_NORM              =  2
 41:       PetscEnum, parameter :: SVD_CONV_MAXIT             =  3
 42:       PetscEnum, parameter :: SVD_CONV_USER              =  4

 44:       PetscEnum, parameter :: SVD_STOP_BASIC             =  0
 45:       PetscEnum, parameter :: SVD_STOP_USER              =  1

 47:       PetscEnum, parameter :: SVD_TRLANCZOS_GBIDIAG_SINGLE =  0
 48:       PetscEnum, parameter :: SVD_TRLANCZOS_GBIDIAG_UPPER  =  1
 49:       PetscEnum, parameter :: SVD_TRLANCZOS_GBIDIAG_LOWER  =  2

 51:       PetscEnum, parameter :: SVD_PRIMME_HYBRID          =  1
 52:       PetscEnum, parameter :: SVD_PRIMME_NORMALEQUATIONS =  2
 53:       PetscEnum, parameter :: SVD_PRIMME_AUGMENTED       =  3

 55: !
 56: !   Possible arguments to SVDMonitorSet()
 57: !
 58:       external SVDMONITORFIRST
 59:       external SVDMONITORALL
 60:       external SVDMONITORCONVERGED

 62:       external SVDMonitorConvergedDestroy

 64: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 65: !DEC$ ATTRIBUTES DLLEXPORT::SLEPC_NULL_SVD
 66: #endif