Actual source code: slepcmfnmod.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 slepcmfndefdummy
11: use slepcbvdef
12: use slepcfndef
13: #include <../src/mfn/f90-mod/slepcmfn.h>
14: end module
16: module slepcmfndef
17: use slepcmfndefdummy
18: interface operator (.ne.)
19: function mfnnotequal(A,B)
20: import tMFN
21: logical mfnnotequal
22: type(tMFN), intent(in) :: A,B
23: end function
24: end interface operator (.ne.)
25: interface operator (.eq.)
26: function mfnequals(A,B)
27: import tMFN
28: logical mfnequals
29: type(tMFN), intent(in) :: A,B
30: end function
31: end interface operator (.eq.)
32: end module
34: function mfnnotequal(A,B)
35: use slepcmfndefdummy, only: tMFN
36: logical mfnnotequal
37: type(tMFN), intent(in) :: A,B
38: mfnnotequal = (A%v .ne. B%v)
39: end function
41: function mfnequals(A,B)
42: use slepcmfndefdummy, only: tMFN
43: logical mfnequals
44: type(tMFN), intent(in) :: A,B
45: mfnequals = (A%v .eq. B%v)
46: end function
48: module slepcmfn
49: use slepcmfndef
50: use slepcbv
51: use slepcfn
52: #include <../src/mfn/f90-mod/slepcmfn.h90>
53: interface
54: #include <../src/mfn/f90-mod/ftn-auto-interfaces/slepcmfn.h90>
55: end interface
56: end module