Actual source code: slepcsvd.h90

slepc-3.8.0 2017-10-20
Report Typos and Errors
  1: !
  2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  4: !  Copyright (c) 2002-2017, 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:       interface SVDGetDimensions
 11:         subroutine SVDGetDimensions000(a,b,c,d,z)
 12:           use slepcsvddef
 13:           SVD a
 14:           PetscInt b
 15:           PetscInt c
 16:           PetscInt d
 17:           integer z
 18:         end subroutine
 19:         subroutine SVDGetDimensions100(a,b,c,d,z)
 20:           use slepcsvddef
 21:           SVD a
 22:           PetscInt b(*)
 23:           PetscInt c
 24:           PetscInt d
 25:           integer z
 26:         end subroutine
 27:         subroutine SVDGetDimensions010(a,b,c,d,z)
 28:           use slepcsvddef
 29:           SVD a
 30:           PetscInt b
 31:           PetscInt c(*)
 32:           PetscInt d
 33:           integer z
 34:         end subroutine
 35:         subroutine SVDGetDimensions001(a,b,c,d,z)
 36:           use slepcsvddef
 37:           SVD a
 38:           PetscInt b
 39:           PetscInt c
 40:           PetscInt d(*)
 41:           integer z
 42:         end subroutine
 43:         subroutine SVDGetDimensions110(a,b,c,d,z)
 44:           use slepcsvddef
 45:           SVD a
 46:           PetscInt b(*)
 47:           PetscInt c(*)
 48:           PetscInt d
 49:           integer z
 50:         end subroutine
 51:         subroutine SVDGetDimensions011(a,b,c,d,z)
 52:           use slepcsvddef
 53:           SVD a
 54:           PetscInt b
 55:           PetscInt c(*)
 56:           PetscInt d(*)
 57:           integer z
 58:         end subroutine
 59:         subroutine SVDGetDimensions101(a,b,c,d,z)
 60:           use slepcsvddef
 61:           SVD a
 62:           PetscInt b(*)
 63:           PetscInt c
 64:           PetscInt d(*)
 65:           integer z
 66:         end subroutine
 67:       end interface SVDGetDimensions

 69:       interface
 70:         subroutine SVDGetSingularTriplet(a,b,c,d,e,z)
 71:           use slepcsvddef
 72:           SVD a
 73:           PetscInt b
 74:           PetscReal c
 75:           Vec d
 76:           Vec e
 77:           integer z
 78:         end subroutine
 79:       end interface

 81:       interface SVDGetSingularTriplet
 82:         subroutine SVDGetSingularTriplet0(a,b,c,d,e,z)
 83:           use slepcsvddef
 84:           SVD a
 85:           PetscInt b
 86:           PetscReal c
 87:           Vec d
 88:           Vec e
 89:           integer z
 90:         end subroutine
 91:         subroutine SVDGetSingularTriplet1(a,b,c,d,e,z)
 92:           use slepcsvddef
 93:           SVD a
 94:           PetscInt b
 95:           PetscReal c(*)
 96:           Vec d
 97:           Vec e
 98:           integer z
 99:         end subroutine
100:       end interface SVDGetSingularTriplet

102:       interface SVDGetTolerances
103:         subroutine SVDGetTolerances00(a,b,c,z)
104:           use slepcsvddef
105:           SVD a
106:           PetscReal b
107:           PetscInt c
108:           integer z
109:         end subroutine
110:         subroutine SVDGetTolerances10(a,b,c,z)
111:           use slepcsvddef
112:           SVD a
113:           PetscReal b(*)
114:           PetscInt c
115:           integer z
116:         end subroutine
117:         subroutine SVDGetTolerances01(a,b,c,z)
118:           use slepcsvddef
119:           SVD a
120:           PetscReal b
121:           PetscInt c(*)
122:           integer z
123:         end subroutine
124:       end interface SVDGetTolerances