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 This file contains the implementations of the tests of module [pm_complexCompareAny](@ref pm_complexCompareAny).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : submodule (test_pm_complexCompareAny) routines
27 :
28 : implicit none
29 :
30 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31 :
32 : contains
33 :
34 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35 :
36 : #define isanyless_ENABLED 1
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : #define isanyless_CK_ENABLED 1
41 :
42 : #if CK5_ENABLED
43 : module procedure test_isanyless_CK5_1
44 : use pm_kind, only: CKC => CK5
45 : #include "test_pm_complexCompareAny@routines.inc.F90"
46 : end procedure
47 : #endif
48 :
49 : #if CK4_ENABLED
50 1 : module procedure test_isanyless_CK4_1
51 : use pm_kind, only: CKC => CK4
52 : #include "test_pm_complexCompareAny@routines.inc.F90"
53 : end procedure
54 : #endif
55 :
56 : #if CK3_ENABLED
57 1 : module procedure test_isanyless_CK3_1
58 : use pm_kind, only: CKC => CK3
59 : #include "test_pm_complexCompareAny@routines.inc.F90"
60 : end procedure
61 : #endif
62 :
63 : #if CK2_ENABLED
64 1 : module procedure test_isanyless_CK2_1
65 : use pm_kind, only: CKC => CK2
66 : #include "test_pm_complexCompareAny@routines.inc.F90"
67 : end procedure
68 : #endif
69 :
70 : #if CK1_ENABLED
71 1 : module procedure test_isanyless_CK1_1
72 : use pm_kind, only: CKC => CK1
73 : #include "test_pm_complexCompareAny@routines.inc.F90"
74 : end procedure
75 : #endif
76 :
77 : #undef isanyless_CK_ENABLED
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : #undef isanyless_ENABLED
82 :
83 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
84 :
85 : #define isanyleq_ENABLED 1
86 :
87 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88 :
89 : #define isanyleq_CK_ENABLED 1
90 :
91 : #if CK5_ENABLED
92 : module procedure test_isanyleq_CK5_1
93 : use pm_kind, only: CKC => CK5
94 : #include "test_pm_complexCompareAny@routines.inc.F90"
95 : end procedure
96 : #endif
97 :
98 : #if CK4_ENABLED
99 1 : module procedure test_isanyleq_CK4_1
100 : use pm_kind, only: CKC => CK4
101 : #include "test_pm_complexCompareAny@routines.inc.F90"
102 : end procedure
103 : #endif
104 :
105 : #if CK3_ENABLED
106 1 : module procedure test_isanyleq_CK3_1
107 : use pm_kind, only: CKC => CK3
108 : #include "test_pm_complexCompareAny@routines.inc.F90"
109 : end procedure
110 : #endif
111 :
112 : #if CK2_ENABLED
113 1 : module procedure test_isanyleq_CK2_1
114 : use pm_kind, only: CKC => CK2
115 : #include "test_pm_complexCompareAny@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #if CK1_ENABLED
120 1 : module procedure test_isanyleq_CK1_1
121 : use pm_kind, only: CKC => CK1
122 : #include "test_pm_complexCompareAny@routines.inc.F90"
123 : end procedure
124 : #endif
125 :
126 : #undef isanyleq_CK_ENABLED
127 :
128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
129 :
130 : #undef isanyleq_ENABLED
131 :
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #define isanyneq_ENABLED 1
135 :
136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137 :
138 : #define isanyneq_CK_ENABLED 1
139 :
140 : #if CK5_ENABLED
141 : module procedure test_isanyneq_CK5_1
142 : use pm_kind, only: CKC => CK5
143 : #include "test_pm_complexCompareAny@routines.inc.F90"
144 : end procedure
145 : #endif
146 :
147 : #if CK4_ENABLED
148 1 : module procedure test_isanyneq_CK4_1
149 : use pm_kind, only: CKC => CK4
150 : #include "test_pm_complexCompareAny@routines.inc.F90"
151 : end procedure
152 : #endif
153 :
154 : #if CK3_ENABLED
155 1 : module procedure test_isanyneq_CK3_1
156 : use pm_kind, only: CKC => CK3
157 : #include "test_pm_complexCompareAny@routines.inc.F90"
158 : end procedure
159 : #endif
160 :
161 : #if CK2_ENABLED
162 1 : module procedure test_isanyneq_CK2_1
163 : use pm_kind, only: CKC => CK2
164 : #include "test_pm_complexCompareAny@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if CK1_ENABLED
169 1 : module procedure test_isanyneq_CK1_1
170 : use pm_kind, only: CKC => CK1
171 : #include "test_pm_complexCompareAny@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #undef isanyneq_CK_ENABLED
176 :
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 :
179 : #undef isanyneq_ENABLED
180 :
181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
182 :
183 : #define isanyeq_ENABLED 1
184 :
185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
186 :
187 : #define isanyeq_CK_ENABLED 1
188 :
189 : #if CK5_ENABLED
190 : module procedure test_isanyeq_CK5_1
191 : use pm_kind, only: CKC => CK5
192 : #include "test_pm_complexCompareAny@routines.inc.F90"
193 : end procedure
194 : #endif
195 :
196 : #if CK4_ENABLED
197 1 : module procedure test_isanyeq_CK4_1
198 : use pm_kind, only: CKC => CK4
199 : #include "test_pm_complexCompareAny@routines.inc.F90"
200 : end procedure
201 : #endif
202 :
203 : #if CK3_ENABLED
204 1 : module procedure test_isanyeq_CK3_1
205 : use pm_kind, only: CKC => CK3
206 : #include "test_pm_complexCompareAny@routines.inc.F90"
207 : end procedure
208 : #endif
209 :
210 : #if CK2_ENABLED
211 1 : module procedure test_isanyeq_CK2_1
212 : use pm_kind, only: CKC => CK2
213 : #include "test_pm_complexCompareAny@routines.inc.F90"
214 : end procedure
215 : #endif
216 :
217 : #if CK1_ENABLED
218 1 : module procedure test_isanyeq_CK1_1
219 : use pm_kind, only: CKC => CK1
220 : #include "test_pm_complexCompareAny@routines.inc.F90"
221 : end procedure
222 : #endif
223 :
224 : #undef isanyeq_CK_ENABLED
225 :
226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227 :
228 : #undef isanyeq_ENABLED
229 :
230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231 :
232 : #define isanymeq_ENABLED 1
233 :
234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 :
236 : #define isanymeq_CK_ENABLED 1
237 :
238 : #if CK5_ENABLED
239 : module procedure test_isanymeq_CK5_1
240 : use pm_kind, only: CKC => CK5
241 : #include "test_pm_complexCompareAny@routines.inc.F90"
242 : end procedure
243 : #endif
244 :
245 : #if CK4_ENABLED
246 1 : module procedure test_isanymeq_CK4_1
247 : use pm_kind, only: CKC => CK4
248 : #include "test_pm_complexCompareAny@routines.inc.F90"
249 : end procedure
250 : #endif
251 :
252 : #if CK3_ENABLED
253 1 : module procedure test_isanymeq_CK3_1
254 : use pm_kind, only: CKC => CK3
255 : #include "test_pm_complexCompareAny@routines.inc.F90"
256 : end procedure
257 : #endif
258 :
259 : #if CK2_ENABLED
260 1 : module procedure test_isanymeq_CK2_1
261 : use pm_kind, only: CKC => CK2
262 : #include "test_pm_complexCompareAny@routines.inc.F90"
263 : end procedure
264 : #endif
265 :
266 : #if CK1_ENABLED
267 1 : module procedure test_isanymeq_CK1_1
268 : use pm_kind, only: CKC => CK1
269 : #include "test_pm_complexCompareAny@routines.inc.F90"
270 : end procedure
271 : #endif
272 :
273 : #undef isanymeq_CK_ENABLED
274 :
275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276 :
277 : #undef isanymeq_ENABLED
278 :
279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280 :
281 : #define isanymore_ENABLED 1
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : #define isanymore_CK_ENABLED 1
286 :
287 : #if CK5_ENABLED
288 : module procedure test_isanymore_CK5_1
289 : use pm_kind, only: CKC => CK5
290 : #include "test_pm_complexCompareAny@routines.inc.F90"
291 : end procedure
292 : #endif
293 :
294 : #if CK4_ENABLED
295 1 : module procedure test_isanymore_CK4_1
296 : use pm_kind, only: CKC => CK4
297 : #include "test_pm_complexCompareAny@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #if CK3_ENABLED
302 1 : module procedure test_isanymore_CK3_1
303 : use pm_kind, only: CKC => CK3
304 : #include "test_pm_complexCompareAny@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #if CK2_ENABLED
309 1 : module procedure test_isanymore_CK2_1
310 : use pm_kind, only: CKC => CK2
311 : #include "test_pm_complexCompareAny@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if CK1_ENABLED
316 1 : module procedure test_isanymore_CK1_1
317 : use pm_kind, only: CKC => CK1
318 : #include "test_pm_complexCompareAny@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #undef isanymore_CK_ENABLED
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #undef isanymore_ENABLED
327 :
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 :
330 : end submodule routines ! LCOV_EXCL_LINE
|
