Actual source code: slepcfnmod.F90
slepc-3.21.2 2024-09-25
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 slepcfndefdummy
11: use slepcsysdef
12: #include <../src/sys/classes/fn/f90-mod/slepcfn.h>
13: end module
15: module slepcfndef
16: use slepcfndefdummy
17: interface operator (.ne.)
18: function fnnotequal(A,B)
19: import tFN
20: logical fnnotequal
21: type(tFN), intent(in) :: A,B
22: end function
23: end interface operator (.ne.)
24: interface operator (.eq.)
25: function fnequals(A,B)
26: import tFN
27: logical fnequals
28: type(tFN), intent(in) :: A,B
29: end function
30: end interface operator (.eq.)
31: end module
33: function fnnotequal(A,B)
34: use slepcfndefdummy, only: tFN
35: logical fnnotequal
36: type(tFN), intent(in) :: A,B
37: fnnotequal = (A%v .ne. B%v)
38: end function
40: function fnequals(A,B)
41: use slepcfndefdummy, only: tFN
42: logical fnequals
43: type(tFN), intent(in) :: A,B
44: fnequals = (A%v .eq. B%v)
45: end function
47: module slepcfn
48: use slepcfndef
49: use slepcsys
50: #include <../src/sys/classes/fn/f90-mod/slepcfn.h90>
51: interface
52: #include <../src/sys/classes/fn/f90-mod/ftn-auto-interfaces/slepcfn.h90>
53: end interface
54: end module