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