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: !  Include file for Fortran use of the SVD object in SLEPc
 11: !
 12: #if !defined(SLEPCSVDDEF_H)
 13: #define SLEPCSVDDEF_H

 15: #include "slepc/finclude/slepcbv.h"
 16: #include "slepc/finclude/slepcds.h"
 17: #include "slepc/finclude/slepceps.h"

 19: #define SVD type(tSVD)

 21: #define SVDType             character*(80)
 22: #define SVDProblemType      PetscEnum
 23: #define SVDConvergedReason  PetscEnum
 24: #define SVDErrorType        PetscEnum
 25: #define SVDWhich            PetscEnum
 26: #define SVDConv             PetscEnum
 27: #define SVDStop             PetscEnum
 28: #define SVDPRIMMEMethod     PetscEnum
 29: #define SVDTRLanczosGBidiag PetscEnum
 30: #define SVDKSVDEigenMethod  PetscEnum
 31: #define SVDKSVDPolarMethod  PetscEnum

 33: #define SVDCROSS      'cross'
 34: #define SVDCYCLIC     'cyclic'
 35: #define SVDLAPACK     'lapack'
 36: #define SVDLANCZOS    'lanczos'
 37: #define SVDTRLANCZOS  'trlanczos'
 38: #define SVDRANDOMIZED 'randomized'
 39: #define SVDSCALAPACK  'scalapack'
 40: #define SVDKSVD       'ksvd'
 41: #define SVDELEMENTAL  'elemental'
 42: #define SVDPRIMME     'primme'

 44: #endif