Actual source code: slepcsvd.h90
slepc-3.11.2 2019-07-30
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