Actual source code: slepcsvd.h90
slepc-3.8.0 2017-10-20
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