Actual source code: slepcsvdmod.F90
slepc-3.21.1 2024-04-26
1: !
2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
4: ! Copyright (c) 2002-, 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: module slepcsvddefdummy
11: use slepcepsdef
12: #include <../src/svd/f90-mod/slepcsvd.h>
13: end module
15: module slepcsvddef
16: use slepcsvddefdummy
17: interface operator (.ne.)
18: function svdnotequal(A,B)
19: import tSVD
20: logical svdnotequal
21: type(tSVD), intent(in) :: A,B
22: end function
23: end interface operator (.ne.)
24: interface operator (.eq.)
25: function svdequals(A,B)
26: import tSVD
27: logical svdequals
28: type(tSVD), intent(in) :: A,B
29: end function
30: end interface operator (.eq.)
31: end module
33: function svdnotequal(A,B)
34: use slepcsvddefdummy, only: tSVD
35: logical svdnotequal
36: type(tSVD), intent(in) :: A,B
37: svdnotequal = (A%v .ne. B%v)
38: end function
40: function svdequals(A,B)
41: use slepcsvddefdummy, only: tSVD
42: logical svdequals
43: type(tSVD), intent(in) :: A,B
44: svdequals = (A%v .eq. B%v)
45: end function
47: module slepcsvd
48: use slepcsvddef
49: use slepceps
50: #include <../src/svd/f90-mod/slepcsvd.h90>
51: interface
52: #include <../src/svd/f90-mod/ftn-auto-interfaces/slepcsvd.h90>
53: end interface
54: end module