Actual source code: slepcfn.h90
slepc-3.15.1 2021-05-28
1: !
2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
4: ! Copyright (c) 2002-2021, 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: import tFN
13: FN a
14: PetscInt b
15: PetscScalar c
16: PetscErrorCode z
17: end subroutine
18: subroutine FNRationalSetNumerator1(a,b,c,z)
19: import tFN
20: FN a
21: PetscInt b
22: PetscScalar c(*)
23: PetscErrorCode z
24: end subroutine
25: end interface FNRationalSetNumerator
27: interface FNRationalSetDenominator
28: subroutine FNRationalSetDenominator0(a,b,c,z)
29: import tFN
30: FN a
31: PetscInt b
32: PetscScalar c
33: PetscErrorCode z
34: end subroutine
35: subroutine FNRationalSetDenominator1(a,b,c,z)
36: import tFN
37: FN a
38: PetscInt b
39: PetscScalar c(*)
40: PetscErrorCode z
41: end subroutine
42: end interface FNRationalSetDenominator
44: interface FNRationalGetNumerator
45: subroutine FNRationalGetNumerator0(a,b,c,z)
46: import tFN
47: FN a
48: PetscInt b
49: PetscScalar c(*)
50: PetscErrorCode z
51: end subroutine
52: subroutine FNRationalGetNumerator1(a,b,c,z)
53: import tFN
54: FN a
55: PetscInt b(*)
56: PetscScalar c(*)
57: PetscErrorCode z
58: end subroutine
59: end interface FNRationalGetNumerator
61: interface FNRationalGetDenominator
62: subroutine FNRationalGetDenominator0(a,b,c,z)
63: import tFN
64: FN a
65: PetscInt b
66: PetscScalar c(*)
67: PetscErrorCode z
68: end subroutine
69: subroutine FNRationalGetDenominator1(a,b,c,z)
70: import tFN
71: FN a
72: PetscInt b(*)
73: PetscScalar c(*)
74: PetscErrorCode z
75: end subroutine
76: end interface FNRationalGetDenominator