Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_complexCompareAny](@ref pm_complexCompareAny).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_complexCompareAny) routines ! LCOV_EXCL_LINE
28 :
29 : implicit none
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : contains
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #define isanyless_CK_ENABLED 1
38 :
39 : #if CK5_ENABLED
40 : module procedure isanyless_CK5
41 : use pm_kind, only: CKC => CK5
42 : #include "pm_complexCompareAny@routines.inc.F90"
43 : end procedure
44 : #endif
45 :
46 : #if CK4_ENABLED
47 75 : module procedure isanyless_CK4
48 : use pm_kind, only: CKC => CK4
49 : #include "pm_complexCompareAny@routines.inc.F90"
50 75 : end procedure
51 : #endif
52 :
53 : #if CK3_ENABLED
54 75 : module procedure isanyless_CK3
55 : use pm_kind, only: CKC => CK3
56 : #include "pm_complexCompareAny@routines.inc.F90"
57 75 : end procedure
58 : #endif
59 :
60 : #if CK2_ENABLED
61 91 : module procedure isanyless_CK2
62 : use pm_kind, only: CKC => CK2
63 : #include "pm_complexCompareAny@routines.inc.F90"
64 91 : end procedure
65 : #endif
66 :
67 : #if CK1_ENABLED
68 106 : module procedure isanyless_CK1
69 : use pm_kind, only: CKC => CK1
70 : #include "pm_complexCompareAny@routines.inc.F90"
71 106 : end procedure
72 : #endif
73 :
74 : #undef isanyless_CK_ENABLED
75 :
76 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77 :
78 : #define isanyleq_CK_ENABLED 1
79 :
80 : #if CK5_ENABLED
81 : module procedure isanyleq_CK5
82 : use pm_kind, only: CKC => CK5
83 : #include "pm_complexCompareAny@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if CK4_ENABLED
88 75 : module procedure isanyleq_CK4
89 : use pm_kind, only: CKC => CK4
90 : #include "pm_complexCompareAny@routines.inc.F90"
91 75 : end procedure
92 : #endif
93 :
94 : #if CK3_ENABLED
95 75 : module procedure isanyleq_CK3
96 : use pm_kind, only: CKC => CK3
97 : #include "pm_complexCompareAny@routines.inc.F90"
98 75 : end procedure
99 : #endif
100 :
101 : #if CK2_ENABLED
102 91 : module procedure isanyleq_CK2
103 : use pm_kind, only: CKC => CK2
104 : #include "pm_complexCompareAny@routines.inc.F90"
105 91 : end procedure
106 : #endif
107 :
108 : #if CK1_ENABLED
109 75 : module procedure isanyleq_CK1
110 : use pm_kind, only: CKC => CK1
111 : #include "pm_complexCompareAny@routines.inc.F90"
112 75 : end procedure
113 : #endif
114 :
115 : #undef isanyleq_CK_ENABLED
116 :
117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 :
119 : #define isanyneq_CK_ENABLED 1
120 :
121 : #if CK5_ENABLED
122 : module procedure isanyneq_CK5
123 : use pm_kind, only: CKC => CK5
124 : #include "pm_complexCompareAny@routines.inc.F90"
125 : end procedure
126 : #endif
127 :
128 : #if CK4_ENABLED
129 75 : module procedure isanyneq_CK4
130 : use pm_kind, only: CKC => CK4
131 : #include "pm_complexCompareAny@routines.inc.F90"
132 75 : end procedure
133 : #endif
134 :
135 : #if CK3_ENABLED
136 75 : module procedure isanyneq_CK3
137 : use pm_kind, only: CKC => CK3
138 : #include "pm_complexCompareAny@routines.inc.F90"
139 75 : end procedure
140 : #endif
141 :
142 : #if CK2_ENABLED
143 91 : module procedure isanyneq_CK2
144 : use pm_kind, only: CKC => CK2
145 : #include "pm_complexCompareAny@routines.inc.F90"
146 91 : end procedure
147 : #endif
148 :
149 : #if CK1_ENABLED
150 75 : module procedure isanyneq_CK1
151 : use pm_kind, only: CKC => CK1
152 : #include "pm_complexCompareAny@routines.inc.F90"
153 75 : end procedure
154 : #endif
155 :
156 : #undef isanyneq_CK_ENABLED
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #define isanyeq_CK_ENABLED 1
161 :
162 : #if CK5_ENABLED
163 : module procedure isanyeq_CK5
164 : use pm_kind, only: CKC => CK5
165 : #include "pm_complexCompareAny@routines.inc.F90"
166 : end procedure
167 : #endif
168 :
169 : #if CK4_ENABLED
170 75 : module procedure isanyeq_CK4
171 : use pm_kind, only: CKC => CK4
172 : #include "pm_complexCompareAny@routines.inc.F90"
173 75 : end procedure
174 : #endif
175 :
176 : #if CK3_ENABLED
177 75 : module procedure isanyeq_CK3
178 : use pm_kind, only: CKC => CK3
179 : #include "pm_complexCompareAny@routines.inc.F90"
180 75 : end procedure
181 : #endif
182 :
183 : #if CK2_ENABLED
184 91 : module procedure isanyeq_CK2
185 : use pm_kind, only: CKC => CK2
186 : #include "pm_complexCompareAny@routines.inc.F90"
187 91 : end procedure
188 : #endif
189 :
190 : #if CK1_ENABLED
191 75 : module procedure isanyeq_CK1
192 : use pm_kind, only: CKC => CK1
193 : #include "pm_complexCompareAny@routines.inc.F90"
194 75 : end procedure
195 : #endif
196 :
197 : #undef isanyeq_CK_ENABLED
198 :
199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 :
201 : #define isanymeq_CK_ENABLED 1
202 :
203 : #if CK5_ENABLED
204 : module procedure isanymeq_CK5
205 : use pm_kind, only: CKC => CK5
206 : #include "pm_complexCompareAny@routines.inc.F90"
207 : end procedure
208 : #endif
209 :
210 : #if CK4_ENABLED
211 75 : module procedure isanymeq_CK4
212 : use pm_kind, only: CKC => CK4
213 : #include "pm_complexCompareAny@routines.inc.F90"
214 75 : end procedure
215 : #endif
216 :
217 : #if CK3_ENABLED
218 75 : module procedure isanymeq_CK3
219 : use pm_kind, only: CKC => CK3
220 : #include "pm_complexCompareAny@routines.inc.F90"
221 75 : end procedure
222 : #endif
223 :
224 : #if CK2_ENABLED
225 91 : module procedure isanymeq_CK2
226 : use pm_kind, only: CKC => CK2
227 : #include "pm_complexCompareAny@routines.inc.F90"
228 91 : end procedure
229 : #endif
230 :
231 : #if CK1_ENABLED
232 75 : module procedure isanymeq_CK1
233 : use pm_kind, only: CKC => CK1
234 : #include "pm_complexCompareAny@routines.inc.F90"
235 75 : end procedure
236 : #endif
237 :
238 : #undef isanymeq_CK_ENABLED
239 :
240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 :
242 : #define isanymore_CK_ENABLED 1
243 :
244 : #if CK5_ENABLED
245 : module procedure isanymore_CK5
246 : use pm_kind, only: CKC => CK5
247 : #include "pm_complexCompareAny@routines.inc.F90"
248 : end procedure
249 : #endif
250 :
251 : #if CK4_ENABLED
252 75 : module procedure isanymore_CK4
253 : use pm_kind, only: CKC => CK4
254 : #include "pm_complexCompareAny@routines.inc.F90"
255 75 : end procedure
256 : #endif
257 :
258 : #if CK3_ENABLED
259 75 : module procedure isanymore_CK3
260 : use pm_kind, only: CKC => CK3
261 : #include "pm_complexCompareAny@routines.inc.F90"
262 75 : end procedure
263 : #endif
264 :
265 : #if CK2_ENABLED
266 91 : module procedure isanymore_CK2
267 : use pm_kind, only: CKC => CK2
268 : #include "pm_complexCompareAny@routines.inc.F90"
269 91 : end procedure
270 : #endif
271 :
272 : #if CK1_ENABLED
273 75 : module procedure isanymore_CK1
274 : use pm_kind, only: CKC => CK1
275 : #include "pm_complexCompareAny@routines.inc.F90"
276 75 : end procedure
277 : #endif
278 :
279 : #undef isanymore_CK_ENABLED
280 :
281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 :
283 : end submodule routines
|
