Actual source code: slepcsvd.h90

slepc-3.11.2 2019-07-30
Report Typos and Errors
  1: !
  2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  4: !  Copyright (c) 2002-2019, 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 SVDGetSingularTriplet
 70:         subroutine SVDGetSingularTriplet0(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:         subroutine SVDGetSingularTriplet1(a,b,c,d,e,z)
 80:           use slepcsvddef
 81:           SVD a
 82:           PetscInt b
 83:           PetscReal c(*)
 84:           Vec d
 85:           Vec e
 86:           integer z
 87:         end subroutine
 88:       end interface SVDGetSingularTriplet

 90:       interface SVDGetTolerances
 91:         subroutine SVDGetTolerances00(a,b,c,z)
 92:           use slepcsvddef
 93:           SVD a
 94:           PetscReal b
 95:           PetscInt c
 96:           integer z
 97:         end subroutine
 98:         subroutine SVDGetTolerances10(a,b,c,z)
 99:           use slepcsvddef
100:           SVD a
101:           PetscReal b(*)
102:           PetscInt c
103:           integer z
104:         end subroutine
105:         subroutine SVDGetTolerances01(a,b,c,z)
106:           use slepcsvddef
107:           SVD a
108:           PetscReal b
109:           PetscInt c(*)
110:           integer z
111:         end subroutine
112:       end interface SVDGetTolerances

114:       interface SVDSetInitialSpaces
115:         subroutine SVDSetInitialSpaces00(a,b,c,d,z)
116:           use slepcsvddef
117:           SVD a
118:           PetscInt b
119:           Vec c
120:           Vec d
121:           integer z
122:         end subroutine
123:         subroutine SVDSetInitialSpaces01(a,b,c,d,z)
124:           use slepcsvddef
125:           SVD a
126:           PetscInt b
127:           Vec c
128:           Vec d(*)
129:           integer z
130:         end subroutine
131:         subroutine SVDSetInitialSpaces10(a,b,c,d,z)
132:           use slepcsvddef
133:           SVD a
134:           PetscInt b
135:           Vec c(*)
136:           Vec d
137:           integer z
138:         end subroutine
139:         subroutine SVDSetInitialSpaces11(a,b,c,d,z)
140:           use slepcsvddef
141:           SVD a
142:           PetscInt b
143:           Vec c(*)
144:           Vec d(*)
145:           integer z
146:         end subroutine
147:       end interface SVDSetInitialSpaces