Actual source code: slepcfn.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 FNRationalSetNumerator
11: subroutine FNRationalSetNumerator0(a,b,c,z)
12: use slepcfndef
13: FN a
14: PetscInt b
15: PetscScalar c
16: integer z
17: end subroutine
18: subroutine FNRationalSetNumerator1(a,b,c,z)
19: use slepcfndef
20: FN a
21: PetscInt b
22: PetscScalar c(*)
23: integer z
24: end subroutine
25: end interface FNRationalSetNumerator
27: interface FNRationalSetDenominator
28: subroutine FNRationalSetDenominator0(a,b,c,z)
29: use slepcfndef
30: FN a
31: PetscInt b
32: PetscScalar c
33: integer z
34: end subroutine
35: subroutine FNRationalSetDenominator1(a,b,c,z)
36: use slepcfndef
37: FN a
38: PetscInt b
39: PetscScalar c(*)
40: integer z
41: end subroutine
42: end interface FNRationalSetDenominator
44: interface FNRationalGetNumerator
45: subroutine FNRationalGetNumerator00(a,b,c,z)
46: use slepcfndef
47: FN a
48: PetscInt b
49: PetscScalar c
50: integer z
51: end subroutine
52: subroutine FNRationalGetNumerator10(a,b,c,z)
53: use slepcfndef
54: FN a
55: PetscInt b(*)
56: PetscScalar c
57: integer z
58: end subroutine
59: subroutine FNRationalGetNumerator01(a,b,c,z)
60: use slepcfndef
61: FN a
62: PetscInt b
63: PetscScalar c(*)
64: integer z
65: end subroutine
66: subroutine FNRationalGetNumerator11(a,b,c,z)
67: use slepcfndef
68: FN a
69: PetscInt b(*)
70: PetscScalar c(*)
71: integer z
72: end subroutine
73: end interface FNRationalGetNumerator
75: interface FNRationalGetDenominator
76: subroutine FNRationalGetDenominator00(a,b,c,z)
77: use slepcfndef
78: FN a
79: PetscInt b
80: PetscScalar c
81: integer z
82: end subroutine
83: subroutine FNRationalGetDenominator10(a,b,c,z)
84: use slepcfndef
85: FN a
86: PetscInt b(*)
87: PetscScalar c
88: integer z
89: end subroutine
90: subroutine FNRationalGetDenominator01(a,b,c,z)
91: use slepcfndef
92: FN a
93: PetscInt b
94: PetscScalar c(*)
95: integer z
96: end subroutine
97: subroutine FNRationalGetDenominator11(a,b,c,z)
98: use slepcfndef
99: FN a
100: PetscInt b(*)
101: PetscScalar c(*)
102: integer z
103: end subroutine
104: end interface FNRationalGetDenominator