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