Actual source code: slepclmemod.F90
slepc-3.20.2 2024-03-15
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 slepclmedefdummy
11: use slepcbvdef
12: #include <../src/lme/f90-mod/slepclme.h>
13: end module
15: module slepclmedef
16: use slepclmedefdummy
17: interface operator (.ne.)
18: function lmenotequal(A,B)
19: import tLME
20: logical lmenotequal
21: type(tLME), intent(in) :: A,B
22: end function
23: end interface operator (.ne.)
24: interface operator (.eq.)
25: function lmeequals(A,B)
26: import tLME
27: logical lmeequals
28: type(tLME), intent(in) :: A,B
29: end function
30: end interface operator (.eq.)
31: end module
33: function lmenotequal(A,B)
34: use slepclmedefdummy, only: tLME
35: logical lmenotequal
36: type(tLME), intent(in) :: A,B
37: lmenotequal = (A%v .ne. B%v)
38: end function
40: function lmeequals(A,B)
41: use slepclmedefdummy, only: tLME
42: logical lmeequals
43: type(tLME), intent(in) :: A,B
44: lmeequals = (A%v .eq. B%v)
45: end function
47: module slepclme
48: use slepclmedef
49: use slepcbv
50: #include <../src/lme/f90-mod/slepclme.h90>
51: interface
52: #include <../src/lme/f90-mod/ftn-auto-interfaces/slepclme.h90>
53: end interface
54: end module