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_arrayCompareLex](@ref pm_arrayCompareLex).
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 : submodule (test_pm_arrayCompareLex) routines
25 :
26 : !use pm_distUnif, only: setUnifRand
27 : use pm_val2str, only: getStr
28 : use pm_kind, only: LK, SK
29 : implicit none
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : contains
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #define test_llt_ENABLED 1
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define test_llt_D0_D0_SK_ENABLED 1
42 :
43 : #if SK5_ENABLED
44 : module procedure test_llt_D0_D0_SK5_1
45 : use pm_kind, only: SKC => SK5
46 : #include "test_pm_arrayCompareLex@routines.inc.F90"
47 : end procedure
48 : #endif
49 :
50 : #if SK4_ENABLED
51 : module procedure test_llt_D0_D0_SK4_1
52 : use pm_kind, only: SKC => SK4
53 : #include "test_pm_arrayCompareLex@routines.inc.F90"
54 : end procedure
55 : #endif
56 :
57 : #if SK3_ENABLED
58 : module procedure test_llt_D0_D0_SK3_1
59 : use pm_kind, only: SKC => SK3
60 : #include "test_pm_arrayCompareLex@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if SK2_ENABLED
65 : module procedure test_llt_D0_D0_SK2_1
66 : use pm_kind, only: SKC => SK2
67 : #include "test_pm_arrayCompareLex@routines.inc.F90"
68 : end procedure
69 : #endif
70 :
71 : #if SK1_ENABLED
72 1 : module procedure test_llt_D0_D0_SK1_1
73 : use pm_kind, only: SKC => SK1
74 : #include "test_pm_arrayCompareLex@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #undef test_llt_D0_D0_SK_ENABLED
79 :
80 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 :
82 : #define test_llt_D1_D1_SK_ENABLED 1
83 :
84 : #if SK5_ENABLED
85 : module procedure test_llt_D1_D1_SK5_1
86 : use pm_kind, only: SKC => SK5
87 : #include "test_pm_arrayCompareLex@routines.inc.F90"
88 : end procedure
89 : #endif
90 :
91 : #if SK4_ENABLED
92 : module procedure test_llt_D1_D1_SK4_1
93 : use pm_kind, only: SKC => SK4
94 : #include "test_pm_arrayCompareLex@routines.inc.F90"
95 : end procedure
96 : #endif
97 :
98 : #if SK3_ENABLED
99 : module procedure test_llt_D1_D1_SK3_1
100 : use pm_kind, only: SKC => SK3
101 : #include "test_pm_arrayCompareLex@routines.inc.F90"
102 : end procedure
103 : #endif
104 :
105 : #if SK2_ENABLED
106 : module procedure test_llt_D1_D1_SK2_1
107 : use pm_kind, only: SKC => SK2
108 : #include "test_pm_arrayCompareLex@routines.inc.F90"
109 : end procedure
110 : #endif
111 :
112 : #if SK1_ENABLED
113 1 : module procedure test_llt_D1_D1_SK1_1
114 : use pm_kind, only: SKC => SK1
115 : #include "test_pm_arrayCompareLex@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #undef test_llt_D1_D1_SK_ENABLED
120 :
121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122 :
123 : #define test_llt_D1_D1_IK_ENABLED 1
124 :
125 : #if IK5_ENABLED
126 1 : module procedure test_llt_D1_D1_IK5_1
127 : use pm_kind, only: IKC => IK5
128 : #include "test_pm_arrayCompareLex@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if IK4_ENABLED
133 1 : module procedure test_llt_D1_D1_IK4_1
134 : use pm_kind, only: IKC => IK4
135 : #include "test_pm_arrayCompareLex@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #if IK3_ENABLED
140 1 : module procedure test_llt_D1_D1_IK3_1
141 : use pm_kind, only: IKC => IK3
142 : #include "test_pm_arrayCompareLex@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if IK2_ENABLED
147 1 : module procedure test_llt_D1_D1_IK2_1
148 : use pm_kind, only: IKC => IK2
149 : #include "test_pm_arrayCompareLex@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if IK1_ENABLED
154 1 : module procedure test_llt_D1_D1_IK1_1
155 : use pm_kind, only: IKC => IK1
156 : #include "test_pm_arrayCompareLex@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #undef test_llt_D1_D1_IK_ENABLED
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define test_llt_D1_D1_LK_ENABLED 1
165 :
166 : #if LK5_ENABLED
167 1 : module procedure test_llt_D1_D1_LK5_1
168 : use pm_kind, only: LKC => LK5
169 : #include "test_pm_arrayCompareLex@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if LK4_ENABLED
174 1 : module procedure test_llt_D1_D1_LK4_1
175 : use pm_kind, only: LKC => LK4
176 : #include "test_pm_arrayCompareLex@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if LK3_ENABLED
181 1 : module procedure test_llt_D1_D1_LK3_1
182 : use pm_kind, only: LKC => LK3
183 : #include "test_pm_arrayCompareLex@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if LK2_ENABLED
188 1 : module procedure test_llt_D1_D1_LK2_1
189 : use pm_kind, only: LKC => LK2
190 : #include "test_pm_arrayCompareLex@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if LK1_ENABLED
195 1 : module procedure test_llt_D1_D1_LK1_1
196 : use pm_kind, only: LKC => LK1
197 : #include "test_pm_arrayCompareLex@routines.inc.F90"
198 : end procedure
199 : #endif
200 :
201 : #undef test_llt_D1_D1_LK_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 :
205 : #define test_llt_D1_D1_CK_ENABLED 1
206 :
207 : #if CK5_ENABLED
208 : module procedure test_llt_D1_D1_CK5_1
209 : use pm_kind, only: CKC => CK5
210 : #include "test_pm_arrayCompareLex@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if CK4_ENABLED
215 1 : module procedure test_llt_D1_D1_CK4_1
216 : use pm_kind, only: CKC => CK4
217 : #include "test_pm_arrayCompareLex@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if CK3_ENABLED
222 1 : module procedure test_llt_D1_D1_CK3_1
223 : use pm_kind, only: CKC => CK3
224 : #include "test_pm_arrayCompareLex@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if CK2_ENABLED
229 1 : module procedure test_llt_D1_D1_CK2_1
230 : use pm_kind, only: CKC => CK2
231 : #include "test_pm_arrayCompareLex@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if CK1_ENABLED
236 1 : module procedure test_llt_D1_D1_CK1_1
237 : use pm_kind, only: CKC => CK1
238 : #include "test_pm_arrayCompareLex@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #undef test_llt_D1_D1_CK_ENABLED
243 :
244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
245 :
246 : #define test_llt_D1_D1_RK_ENABLED 1
247 :
248 : #if RK5_ENABLED
249 : module procedure test_llt_D1_D1_RK5_1
250 : use pm_kind, only: RKC => RK5
251 : #include "test_pm_arrayCompareLex@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if RK4_ENABLED
256 1 : module procedure test_llt_D1_D1_RK4_1
257 : use pm_kind, only: RKC => RK4
258 : #include "test_pm_arrayCompareLex@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #if RK3_ENABLED
263 1 : module procedure test_llt_D1_D1_RK3_1
264 : use pm_kind, only: RKC => RK3
265 : #include "test_pm_arrayCompareLex@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if RK2_ENABLED
270 1 : module procedure test_llt_D1_D1_RK2_1
271 : use pm_kind, only: RKC => RK2
272 : #include "test_pm_arrayCompareLex@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #if RK1_ENABLED
277 1 : module procedure test_llt_D1_D1_RK1_1
278 : use pm_kind, only: RKC => RK1
279 : #include "test_pm_arrayCompareLex@routines.inc.F90"
280 : end procedure
281 : #endif
282 :
283 : #undef test_llt_D1_D1_RK_ENABLED
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : #undef test_llt_ENABLED
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : #define test_lle_ENABLED 1
292 :
293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
294 :
295 : #define test_lle_D0_D0_SK_ENABLED 1
296 :
297 : #if SK5_ENABLED
298 : module procedure test_lle_D0_D0_SK5_1
299 : use pm_kind, only: SKC => SK5
300 : #include "test_pm_arrayCompareLex@routines.inc.F90"
301 : end procedure
302 : #endif
303 :
304 : #if SK4_ENABLED
305 : module procedure test_lle_D0_D0_SK4_1
306 : use pm_kind, only: SKC => SK4
307 : #include "test_pm_arrayCompareLex@routines.inc.F90"
308 : end procedure
309 : #endif
310 :
311 : #if SK3_ENABLED
312 : module procedure test_lle_D0_D0_SK3_1
313 : use pm_kind, only: SKC => SK3
314 : #include "test_pm_arrayCompareLex@routines.inc.F90"
315 : end procedure
316 : #endif
317 :
318 : #if SK2_ENABLED
319 : module procedure test_lle_D0_D0_SK2_1
320 : use pm_kind, only: SKC => SK2
321 : #include "test_pm_arrayCompareLex@routines.inc.F90"
322 : end procedure
323 : #endif
324 :
325 : #if SK1_ENABLED
326 1 : module procedure test_lle_D0_D0_SK1_1
327 : use pm_kind, only: SKC => SK1
328 : #include "test_pm_arrayCompareLex@routines.inc.F90"
329 : end procedure
330 : #endif
331 :
332 : #undef test_lle_D0_D0_SK_ENABLED
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 :
336 : #define test_lle_D1_D1_SK_ENABLED 1
337 :
338 : #if SK5_ENABLED
339 : module procedure test_lle_D1_D1_SK5_1
340 : use pm_kind, only: SKC => SK5
341 : #include "test_pm_arrayCompareLex@routines.inc.F90"
342 : end procedure
343 : #endif
344 :
345 : #if SK4_ENABLED
346 : module procedure test_lle_D1_D1_SK4_1
347 : use pm_kind, only: SKC => SK4
348 : #include "test_pm_arrayCompareLex@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if SK3_ENABLED
353 : module procedure test_lle_D1_D1_SK3_1
354 : use pm_kind, only: SKC => SK3
355 : #include "test_pm_arrayCompareLex@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if SK2_ENABLED
360 : module procedure test_lle_D1_D1_SK2_1
361 : use pm_kind, only: SKC => SK2
362 : #include "test_pm_arrayCompareLex@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #if SK1_ENABLED
367 1 : module procedure test_lle_D1_D1_SK1_1
368 : use pm_kind, only: SKC => SK1
369 : #include "test_pm_arrayCompareLex@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #undef test_lle_D1_D1_SK_ENABLED
374 :
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 :
377 : #define test_lle_D1_D1_IK_ENABLED 1
378 :
379 : #if IK5_ENABLED
380 1 : module procedure test_lle_D1_D1_IK5_1
381 : use pm_kind, only: IKC => IK5
382 : #include "test_pm_arrayCompareLex@routines.inc.F90"
383 : end procedure
384 : #endif
385 :
386 : #if IK4_ENABLED
387 1 : module procedure test_lle_D1_D1_IK4_1
388 : use pm_kind, only: IKC => IK4
389 : #include "test_pm_arrayCompareLex@routines.inc.F90"
390 : end procedure
391 : #endif
392 :
393 : #if IK3_ENABLED
394 1 : module procedure test_lle_D1_D1_IK3_1
395 : use pm_kind, only: IKC => IK3
396 : #include "test_pm_arrayCompareLex@routines.inc.F90"
397 : end procedure
398 : #endif
399 :
400 : #if IK2_ENABLED
401 1 : module procedure test_lle_D1_D1_IK2_1
402 : use pm_kind, only: IKC => IK2
403 : #include "test_pm_arrayCompareLex@routines.inc.F90"
404 : end procedure
405 : #endif
406 :
407 : #if IK1_ENABLED
408 1 : module procedure test_lle_D1_D1_IK1_1
409 : use pm_kind, only: IKC => IK1
410 : #include "test_pm_arrayCompareLex@routines.inc.F90"
411 : end procedure
412 : #endif
413 :
414 : #undef test_lle_D1_D1_IK_ENABLED
415 :
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 :
418 : #define test_lle_D1_D1_LK_ENABLED 1
419 :
420 : #if LK5_ENABLED
421 1 : module procedure test_lle_D1_D1_LK5_1
422 : use pm_kind, only: LKC => LK5
423 : #include "test_pm_arrayCompareLex@routines.inc.F90"
424 : end procedure
425 : #endif
426 :
427 : #if LK4_ENABLED
428 1 : module procedure test_lle_D1_D1_LK4_1
429 : use pm_kind, only: LKC => LK4
430 : #include "test_pm_arrayCompareLex@routines.inc.F90"
431 : end procedure
432 : #endif
433 :
434 : #if LK3_ENABLED
435 1 : module procedure test_lle_D1_D1_LK3_1
436 : use pm_kind, only: LKC => LK3
437 : #include "test_pm_arrayCompareLex@routines.inc.F90"
438 : end procedure
439 : #endif
440 :
441 : #if LK2_ENABLED
442 1 : module procedure test_lle_D1_D1_LK2_1
443 : use pm_kind, only: LKC => LK2
444 : #include "test_pm_arrayCompareLex@routines.inc.F90"
445 : end procedure
446 : #endif
447 :
448 : #if LK1_ENABLED
449 1 : module procedure test_lle_D1_D1_LK1_1
450 : use pm_kind, only: LKC => LK1
451 : #include "test_pm_arrayCompareLex@routines.inc.F90"
452 : end procedure
453 : #endif
454 :
455 : #undef test_lle_D1_D1_LK_ENABLED
456 :
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 :
459 : #define test_lle_D1_D1_CK_ENABLED 1
460 :
461 : #if CK5_ENABLED
462 : module procedure test_lle_D1_D1_CK5_1
463 : use pm_kind, only: CKC => CK5
464 : #include "test_pm_arrayCompareLex@routines.inc.F90"
465 : end procedure
466 : #endif
467 :
468 : #if CK4_ENABLED
469 1 : module procedure test_lle_D1_D1_CK4_1
470 : use pm_kind, only: CKC => CK4
471 : #include "test_pm_arrayCompareLex@routines.inc.F90"
472 : end procedure
473 : #endif
474 :
475 : #if CK3_ENABLED
476 1 : module procedure test_lle_D1_D1_CK3_1
477 : use pm_kind, only: CKC => CK3
478 : #include "test_pm_arrayCompareLex@routines.inc.F90"
479 : end procedure
480 : #endif
481 :
482 : #if CK2_ENABLED
483 1 : module procedure test_lle_D1_D1_CK2_1
484 : use pm_kind, only: CKC => CK2
485 : #include "test_pm_arrayCompareLex@routines.inc.F90"
486 : end procedure
487 : #endif
488 :
489 : #if CK1_ENABLED
490 1 : module procedure test_lle_D1_D1_CK1_1
491 : use pm_kind, only: CKC => CK1
492 : #include "test_pm_arrayCompareLex@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #undef test_lle_D1_D1_CK_ENABLED
497 :
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 :
500 : #define test_lle_D1_D1_RK_ENABLED 1
501 :
502 : #if RK5_ENABLED
503 : module procedure test_lle_D1_D1_RK5_1
504 : use pm_kind, only: RKC => RK5
505 : #include "test_pm_arrayCompareLex@routines.inc.F90"
506 : end procedure
507 : #endif
508 :
509 : #if RK4_ENABLED
510 1 : module procedure test_lle_D1_D1_RK4_1
511 : use pm_kind, only: RKC => RK4
512 : #include "test_pm_arrayCompareLex@routines.inc.F90"
513 : end procedure
514 : #endif
515 :
516 : #if RK3_ENABLED
517 1 : module procedure test_lle_D1_D1_RK3_1
518 : use pm_kind, only: RKC => RK3
519 : #include "test_pm_arrayCompareLex@routines.inc.F90"
520 : end procedure
521 : #endif
522 :
523 : #if RK2_ENABLED
524 1 : module procedure test_lle_D1_D1_RK2_1
525 : use pm_kind, only: RKC => RK2
526 : #include "test_pm_arrayCompareLex@routines.inc.F90"
527 : end procedure
528 : #endif
529 :
530 : #if RK1_ENABLED
531 1 : module procedure test_lle_D1_D1_RK1_1
532 : use pm_kind, only: RKC => RK1
533 : #include "test_pm_arrayCompareLex@routines.inc.F90"
534 : end procedure
535 : #endif
536 :
537 : #undef test_lle_D1_D1_RK_ENABLED
538 :
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 :
541 : #undef test_lle_ENABLED
542 :
543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 :
545 : #define test_lge_ENABLED 1
546 :
547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548 :
549 : #define test_lge_D0_D0_SK_ENABLED 1
550 :
551 : #if SK5_ENABLED
552 : module procedure test_lge_D0_D0_SK5_1
553 : use pm_kind, only: SKC => SK5
554 : #include "test_pm_arrayCompareLex@routines.inc.F90"
555 : end procedure
556 : #endif
557 :
558 : #if SK4_ENABLED
559 : module procedure test_lge_D0_D0_SK4_1
560 : use pm_kind, only: SKC => SK4
561 : #include "test_pm_arrayCompareLex@routines.inc.F90"
562 : end procedure
563 : #endif
564 :
565 : #if SK3_ENABLED
566 : module procedure test_lge_D0_D0_SK3_1
567 : use pm_kind, only: SKC => SK3
568 : #include "test_pm_arrayCompareLex@routines.inc.F90"
569 : end procedure
570 : #endif
571 :
572 : #if SK2_ENABLED
573 : module procedure test_lge_D0_D0_SK2_1
574 : use pm_kind, only: SKC => SK2
575 : #include "test_pm_arrayCompareLex@routines.inc.F90"
576 : end procedure
577 : #endif
578 :
579 : #if SK1_ENABLED
580 1 : module procedure test_lge_D0_D0_SK1_1
581 : use pm_kind, only: SKC => SK1
582 : #include "test_pm_arrayCompareLex@routines.inc.F90"
583 : end procedure
584 : #endif
585 :
586 : #undef test_lge_D0_D0_SK_ENABLED
587 :
588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 :
590 : #define test_lge_D1_D1_SK_ENABLED 1
591 :
592 : #if SK5_ENABLED
593 : module procedure test_lge_D1_D1_SK5_1
594 : use pm_kind, only: SKC => SK5
595 : #include "test_pm_arrayCompareLex@routines.inc.F90"
596 : end procedure
597 : #endif
598 :
599 : #if SK4_ENABLED
600 : module procedure test_lge_D1_D1_SK4_1
601 : use pm_kind, only: SKC => SK4
602 : #include "test_pm_arrayCompareLex@routines.inc.F90"
603 : end procedure
604 : #endif
605 :
606 : #if SK3_ENABLED
607 : module procedure test_lge_D1_D1_SK3_1
608 : use pm_kind, only: SKC => SK3
609 : #include "test_pm_arrayCompareLex@routines.inc.F90"
610 : end procedure
611 : #endif
612 :
613 : #if SK2_ENABLED
614 : module procedure test_lge_D1_D1_SK2_1
615 : use pm_kind, only: SKC => SK2
616 : #include "test_pm_arrayCompareLex@routines.inc.F90"
617 : end procedure
618 : #endif
619 :
620 : #if SK1_ENABLED
621 1 : module procedure test_lge_D1_D1_SK1_1
622 : use pm_kind, only: SKC => SK1
623 : #include "test_pm_arrayCompareLex@routines.inc.F90"
624 : end procedure
625 : #endif
626 :
627 : #undef test_lge_D1_D1_SK_ENABLED
628 :
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #define test_lge_D1_D1_IK_ENABLED 1
632 :
633 : #if IK5_ENABLED
634 1 : module procedure test_lge_D1_D1_IK5_1
635 : use pm_kind, only: IKC => IK5
636 : #include "test_pm_arrayCompareLex@routines.inc.F90"
637 : end procedure
638 : #endif
639 :
640 : #if IK4_ENABLED
641 1 : module procedure test_lge_D1_D1_IK4_1
642 : use pm_kind, only: IKC => IK4
643 : #include "test_pm_arrayCompareLex@routines.inc.F90"
644 : end procedure
645 : #endif
646 :
647 : #if IK3_ENABLED
648 1 : module procedure test_lge_D1_D1_IK3_1
649 : use pm_kind, only: IKC => IK3
650 : #include "test_pm_arrayCompareLex@routines.inc.F90"
651 : end procedure
652 : #endif
653 :
654 : #if IK2_ENABLED
655 1 : module procedure test_lge_D1_D1_IK2_1
656 : use pm_kind, only: IKC => IK2
657 : #include "test_pm_arrayCompareLex@routines.inc.F90"
658 : end procedure
659 : #endif
660 :
661 : #if IK1_ENABLED
662 1 : module procedure test_lge_D1_D1_IK1_1
663 : use pm_kind, only: IKC => IK1
664 : #include "test_pm_arrayCompareLex@routines.inc.F90"
665 : end procedure
666 : #endif
667 :
668 : #undef test_lge_D1_D1_IK_ENABLED
669 :
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define test_lge_D1_D1_LK_ENABLED 1
673 :
674 : #if LK5_ENABLED
675 1 : module procedure test_lge_D1_D1_LK5_1
676 : use pm_kind, only: LKC => LK5
677 : #include "test_pm_arrayCompareLex@routines.inc.F90"
678 : end procedure
679 : #endif
680 :
681 : #if LK4_ENABLED
682 1 : module procedure test_lge_D1_D1_LK4_1
683 : use pm_kind, only: LKC => LK4
684 : #include "test_pm_arrayCompareLex@routines.inc.F90"
685 : end procedure
686 : #endif
687 :
688 : #if LK3_ENABLED
689 1 : module procedure test_lge_D1_D1_LK3_1
690 : use pm_kind, only: LKC => LK3
691 : #include "test_pm_arrayCompareLex@routines.inc.F90"
692 : end procedure
693 : #endif
694 :
695 : #if LK2_ENABLED
696 1 : module procedure test_lge_D1_D1_LK2_1
697 : use pm_kind, only: LKC => LK2
698 : #include "test_pm_arrayCompareLex@routines.inc.F90"
699 : end procedure
700 : #endif
701 :
702 : #if LK1_ENABLED
703 1 : module procedure test_lge_D1_D1_LK1_1
704 : use pm_kind, only: LKC => LK1
705 : #include "test_pm_arrayCompareLex@routines.inc.F90"
706 : end procedure
707 : #endif
708 :
709 : #undef test_lge_D1_D1_LK_ENABLED
710 :
711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 :
713 : #define test_lge_D1_D1_CK_ENABLED 1
714 :
715 : #if CK5_ENABLED
716 : module procedure test_lge_D1_D1_CK5_1
717 : use pm_kind, only: CKC => CK5
718 : #include "test_pm_arrayCompareLex@routines.inc.F90"
719 : end procedure
720 : #endif
721 :
722 : #if CK4_ENABLED
723 1 : module procedure test_lge_D1_D1_CK4_1
724 : use pm_kind, only: CKC => CK4
725 : #include "test_pm_arrayCompareLex@routines.inc.F90"
726 : end procedure
727 : #endif
728 :
729 : #if CK3_ENABLED
730 1 : module procedure test_lge_D1_D1_CK3_1
731 : use pm_kind, only: CKC => CK3
732 : #include "test_pm_arrayCompareLex@routines.inc.F90"
733 : end procedure
734 : #endif
735 :
736 : #if CK2_ENABLED
737 1 : module procedure test_lge_D1_D1_CK2_1
738 : use pm_kind, only: CKC => CK2
739 : #include "test_pm_arrayCompareLex@routines.inc.F90"
740 : end procedure
741 : #endif
742 :
743 : #if CK1_ENABLED
744 1 : module procedure test_lge_D1_D1_CK1_1
745 : use pm_kind, only: CKC => CK1
746 : #include "test_pm_arrayCompareLex@routines.inc.F90"
747 : end procedure
748 : #endif
749 :
750 : #undef test_lge_D1_D1_CK_ENABLED
751 :
752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
753 :
754 : #define test_lge_D1_D1_RK_ENABLED 1
755 :
756 : #if RK5_ENABLED
757 : module procedure test_lge_D1_D1_RK5_1
758 : use pm_kind, only: RKC => RK5
759 : #include "test_pm_arrayCompareLex@routines.inc.F90"
760 : end procedure
761 : #endif
762 :
763 : #if RK4_ENABLED
764 1 : module procedure test_lge_D1_D1_RK4_1
765 : use pm_kind, only: RKC => RK4
766 : #include "test_pm_arrayCompareLex@routines.inc.F90"
767 : end procedure
768 : #endif
769 :
770 : #if RK3_ENABLED
771 1 : module procedure test_lge_D1_D1_RK3_1
772 : use pm_kind, only: RKC => RK3
773 : #include "test_pm_arrayCompareLex@routines.inc.F90"
774 : end procedure
775 : #endif
776 :
777 : #if RK2_ENABLED
778 1 : module procedure test_lge_D1_D1_RK2_1
779 : use pm_kind, only: RKC => RK2
780 : #include "test_pm_arrayCompareLex@routines.inc.F90"
781 : end procedure
782 : #endif
783 :
784 : #if RK1_ENABLED
785 1 : module procedure test_lge_D1_D1_RK1_1
786 : use pm_kind, only: RKC => RK1
787 : #include "test_pm_arrayCompareLex@routines.inc.F90"
788 : end procedure
789 : #endif
790 :
791 : #undef test_lge_D1_D1_RK_ENABLED
792 :
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 :
795 : #undef test_lge_ENABLED
796 :
797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
798 :
799 : #define test_lgt_ENABLED 1
800 :
801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
802 :
803 : #define test_lgt_D0_D0_SK_ENABLED 1
804 :
805 : #if SK5_ENABLED
806 : module procedure test_lgt_D0_D0_SK5_1
807 : use pm_kind, only: SKC => SK5
808 : #include "test_pm_arrayCompareLex@routines.inc.F90"
809 : end procedure
810 : #endif
811 :
812 : #if SK4_ENABLED
813 : module procedure test_lgt_D0_D0_SK4_1
814 : use pm_kind, only: SKC => SK4
815 : #include "test_pm_arrayCompareLex@routines.inc.F90"
816 : end procedure
817 : #endif
818 :
819 : #if SK3_ENABLED
820 : module procedure test_lgt_D0_D0_SK3_1
821 : use pm_kind, only: SKC => SK3
822 : #include "test_pm_arrayCompareLex@routines.inc.F90"
823 : end procedure
824 : #endif
825 :
826 : #if SK2_ENABLED
827 : module procedure test_lgt_D0_D0_SK2_1
828 : use pm_kind, only: SKC => SK2
829 : #include "test_pm_arrayCompareLex@routines.inc.F90"
830 : end procedure
831 : #endif
832 :
833 : #if SK1_ENABLED
834 1 : module procedure test_lgt_D0_D0_SK1_1
835 : use pm_kind, only: SKC => SK1
836 : #include "test_pm_arrayCompareLex@routines.inc.F90"
837 : end procedure
838 : #endif
839 :
840 : #undef test_lgt_D0_D0_SK_ENABLED
841 :
842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843 :
844 : #define test_lgt_D1_D1_SK_ENABLED 1
845 :
846 : #if SK5_ENABLED
847 : module procedure test_lgt_D1_D1_SK5_1
848 : use pm_kind, only: SKC => SK5
849 : #include "test_pm_arrayCompareLex@routines.inc.F90"
850 : end procedure
851 : #endif
852 :
853 : #if SK4_ENABLED
854 : module procedure test_lgt_D1_D1_SK4_1
855 : use pm_kind, only: SKC => SK4
856 : #include "test_pm_arrayCompareLex@routines.inc.F90"
857 : end procedure
858 : #endif
859 :
860 : #if SK3_ENABLED
861 : module procedure test_lgt_D1_D1_SK3_1
862 : use pm_kind, only: SKC => SK3
863 : #include "test_pm_arrayCompareLex@routines.inc.F90"
864 : end procedure
865 : #endif
866 :
867 : #if SK2_ENABLED
868 : module procedure test_lgt_D1_D1_SK2_1
869 : use pm_kind, only: SKC => SK2
870 : #include "test_pm_arrayCompareLex@routines.inc.F90"
871 : end procedure
872 : #endif
873 :
874 : #if SK1_ENABLED
875 1 : module procedure test_lgt_D1_D1_SK1_1
876 : use pm_kind, only: SKC => SK1
877 : #include "test_pm_arrayCompareLex@routines.inc.F90"
878 : end procedure
879 : #endif
880 :
881 : #undef test_lgt_D1_D1_SK_ENABLED
882 :
883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
884 :
885 : #define test_lgt_D1_D1_IK_ENABLED 1
886 :
887 : #if IK5_ENABLED
888 1 : module procedure test_lgt_D1_D1_IK5_1
889 : use pm_kind, only: IKC => IK5
890 : #include "test_pm_arrayCompareLex@routines.inc.F90"
891 : end procedure
892 : #endif
893 :
894 : #if IK4_ENABLED
895 1 : module procedure test_lgt_D1_D1_IK4_1
896 : use pm_kind, only: IKC => IK4
897 : #include "test_pm_arrayCompareLex@routines.inc.F90"
898 : end procedure
899 : #endif
900 :
901 : #if IK3_ENABLED
902 1 : module procedure test_lgt_D1_D1_IK3_1
903 : use pm_kind, only: IKC => IK3
904 : #include "test_pm_arrayCompareLex@routines.inc.F90"
905 : end procedure
906 : #endif
907 :
908 : #if IK2_ENABLED
909 1 : module procedure test_lgt_D1_D1_IK2_1
910 : use pm_kind, only: IKC => IK2
911 : #include "test_pm_arrayCompareLex@routines.inc.F90"
912 : end procedure
913 : #endif
914 :
915 : #if IK1_ENABLED
916 1 : module procedure test_lgt_D1_D1_IK1_1
917 : use pm_kind, only: IKC => IK1
918 : #include "test_pm_arrayCompareLex@routines.inc.F90"
919 : end procedure
920 : #endif
921 :
922 : #undef test_lgt_D1_D1_IK_ENABLED
923 :
924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
925 :
926 : #define test_lgt_D1_D1_LK_ENABLED 1
927 :
928 : #if LK5_ENABLED
929 1 : module procedure test_lgt_D1_D1_LK5_1
930 : use pm_kind, only: LKC => LK5
931 : #include "test_pm_arrayCompareLex@routines.inc.F90"
932 : end procedure
933 : #endif
934 :
935 : #if LK4_ENABLED
936 1 : module procedure test_lgt_D1_D1_LK4_1
937 : use pm_kind, only: LKC => LK4
938 : #include "test_pm_arrayCompareLex@routines.inc.F90"
939 : end procedure
940 : #endif
941 :
942 : #if LK3_ENABLED
943 1 : module procedure test_lgt_D1_D1_LK3_1
944 : use pm_kind, only: LKC => LK3
945 : #include "test_pm_arrayCompareLex@routines.inc.F90"
946 : end procedure
947 : #endif
948 :
949 : #if LK2_ENABLED
950 1 : module procedure test_lgt_D1_D1_LK2_1
951 : use pm_kind, only: LKC => LK2
952 : #include "test_pm_arrayCompareLex@routines.inc.F90"
953 : end procedure
954 : #endif
955 :
956 : #if LK1_ENABLED
957 1 : module procedure test_lgt_D1_D1_LK1_1
958 : use pm_kind, only: LKC => LK1
959 : #include "test_pm_arrayCompareLex@routines.inc.F90"
960 : end procedure
961 : #endif
962 :
963 : #undef test_lgt_D1_D1_LK_ENABLED
964 :
965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
966 :
967 : #define test_lgt_D1_D1_CK_ENABLED 1
968 :
969 : #if CK5_ENABLED
970 : module procedure test_lgt_D1_D1_CK5_1
971 : use pm_kind, only: CKC => CK5
972 : #include "test_pm_arrayCompareLex@routines.inc.F90"
973 : end procedure
974 : #endif
975 :
976 : #if CK4_ENABLED
977 1 : module procedure test_lgt_D1_D1_CK4_1
978 : use pm_kind, only: CKC => CK4
979 : #include "test_pm_arrayCompareLex@routines.inc.F90"
980 : end procedure
981 : #endif
982 :
983 : #if CK3_ENABLED
984 1 : module procedure test_lgt_D1_D1_CK3_1
985 : use pm_kind, only: CKC => CK3
986 : #include "test_pm_arrayCompareLex@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #if CK2_ENABLED
991 1 : module procedure test_lgt_D1_D1_CK2_1
992 : use pm_kind, only: CKC => CK2
993 : #include "test_pm_arrayCompareLex@routines.inc.F90"
994 : end procedure
995 : #endif
996 :
997 : #if CK1_ENABLED
998 1 : module procedure test_lgt_D1_D1_CK1_1
999 : use pm_kind, only: CKC => CK1
1000 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1001 : end procedure
1002 : #endif
1003 :
1004 : #undef test_lgt_D1_D1_CK_ENABLED
1005 :
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #define test_lgt_D1_D1_RK_ENABLED 1
1009 :
1010 : #if RK5_ENABLED
1011 : module procedure test_lgt_D1_D1_RK5_1
1012 : use pm_kind, only: RKC => RK5
1013 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1014 : end procedure
1015 : #endif
1016 :
1017 : #if RK4_ENABLED
1018 1 : module procedure test_lgt_D1_D1_RK4_1
1019 : use pm_kind, only: RKC => RK4
1020 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1021 : end procedure
1022 : #endif
1023 :
1024 : #if RK3_ENABLED
1025 1 : module procedure test_lgt_D1_D1_RK3_1
1026 : use pm_kind, only: RKC => RK3
1027 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1028 : end procedure
1029 : #endif
1030 :
1031 : #if RK2_ENABLED
1032 1 : module procedure test_lgt_D1_D1_RK2_1
1033 : use pm_kind, only: RKC => RK2
1034 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1035 : end procedure
1036 : #endif
1037 :
1038 : #if RK1_ENABLED
1039 1 : module procedure test_lgt_D1_D1_RK1_1
1040 : use pm_kind, only: RKC => RK1
1041 : #include "test_pm_arrayCompareLex@routines.inc.F90"
1042 : end procedure
1043 : #endif
1044 :
1045 : #undef test_lgt_D1_D1_RK_ENABLED
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 :
1049 : #undef test_lgt_ENABLED
1050 :
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 :
1053 : end submodule routines ! LCOV_EXCL_LINE
|
