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