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 module contains tests of the module [pm_arrayRebind](@ref pm_arrayRebind).
19 : !>
20 : !> \bug
21 : !> \status \unresolved
22 : !> \source \ifort{2022}
23 : !> \desc
24 : !> There is a viscous \ifort{2022} bug where the appearance of the following `use` statements
25 : !> in the body of the implementation include file `test_pm_arrayRebill@routines.inc.F90` leads to various
26 : !> mistakes in parsing and preprocessing the contents of the include file.<br>
27 : !> The threshold for the maximum number of `use` statements within the entire submodule appears to be
28 : !> about `55`, because activating more than 55 procedures of the submodule
29 : !> leads to compilation failures due syntax parsing mistakes by the Intel compiler.<br>
30 : !> \remedy
31 : !> For now, all `use` statements are moved to the declaration body of the submodules.<br>
32 : !> This causes non-locality of the statements, but is the only solution as of today.<br>
33 : !>
34 : !> \fintest
35 : !>
36 : !> \author
37 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : module test_pm_arrayRebind
42 :
43 : use pm_arrayRebind
44 : use pm_test, only: test_type, LK
45 :
46 : implicit none
47 :
48 : private
49 : public :: setTest
50 : type(test_type) :: test
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : interface
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #if SK5_ENABLED
63 : module function test_setRebound_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64 : #endif
65 : #if SK4_ENABLED
66 : module function test_setRebound_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67 : #endif
68 : #if SK3_ENABLED
69 : module function test_setRebound_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70 : #endif
71 : #if SK2_ENABLED
72 : module function test_setRebound_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73 : #endif
74 : #if SK1_ENABLED
75 : module function test_setRebound_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76 : #endif
77 :
78 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79 :
80 : #if IK5_ENABLED
81 : module function test_setRebound_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
82 : #endif
83 : #if IK4_ENABLED
84 : module function test_setRebound_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
85 : #endif
86 : #if IK3_ENABLED
87 : module function test_setRebound_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
88 : #endif
89 : #if IK2_ENABLED
90 : module function test_setRebound_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
91 : #endif
92 : #if IK1_ENABLED
93 : module function test_setRebound_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #if LK5_ENABLED
99 : module function test_setRebound_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if LK4_ENABLED
102 : module function test_setRebound_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if LK3_ENABLED
105 : module function test_setRebound_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 : #if LK2_ENABLED
108 : module function test_setRebound_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
109 : #endif
110 : #if LK1_ENABLED
111 : module function test_setRebound_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #if CK5_ENABLED
117 : module function test_setRebound_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if CK4_ENABLED
120 : module function test_setRebound_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if CK3_ENABLED
123 : module function test_setRebound_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 : #if CK2_ENABLED
126 : module function test_setRebound_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
127 : #endif
128 : #if CK1_ENABLED
129 : module function test_setRebound_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
130 : #endif
131 :
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #if RK5_ENABLED
135 : module function test_setRebound_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
136 : #endif
137 : #if RK4_ENABLED
138 : module function test_setRebound_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
139 : #endif
140 : #if RK3_ENABLED
141 : module function test_setRebound_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
142 : #endif
143 : #if RK2_ENABLED
144 : module function test_setRebound_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
145 : #endif
146 : #if RK1_ENABLED
147 : module function test_setRebound_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #if SK5_ENABLED
159 : module function test_setRebound_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : #if SK4_ENABLED
162 : module function test_setRebound_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if SK3_ENABLED
165 : module function test_setRebound_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 : #if SK2_ENABLED
168 : module function test_setRebound_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
169 : #endif
170 : #if SK1_ENABLED
171 : module function test_setRebound_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
172 : #endif
173 :
174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175 :
176 : #if IK5_ENABLED
177 : module function test_setRebound_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
178 : #endif
179 : #if IK4_ENABLED
180 : module function test_setRebound_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
181 : #endif
182 : #if IK3_ENABLED
183 : module function test_setRebound_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
184 : #endif
185 : #if IK2_ENABLED
186 : module function test_setRebound_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
187 : #endif
188 : #if IK1_ENABLED
189 : module function test_setRebound_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
190 : #endif
191 :
192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193 :
194 : #if LK5_ENABLED
195 : module function test_setRebound_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
196 : #endif
197 : #if LK4_ENABLED
198 : module function test_setRebound_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
199 : #endif
200 : #if LK3_ENABLED
201 : module function test_setRebound_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
202 : #endif
203 : #if LK2_ENABLED
204 : module function test_setRebound_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
205 : #endif
206 : #if LK1_ENABLED
207 : module function test_setRebound_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
208 : #endif
209 :
210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 :
212 : #if CK5_ENABLED
213 : module function test_setRebound_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
214 : #endif
215 : #if CK4_ENABLED
216 : module function test_setRebound_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
217 : #endif
218 : #if CK3_ENABLED
219 : module function test_setRebound_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if CK2_ENABLED
222 : module function test_setRebound_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if CK1_ENABLED
225 : module function test_setRebound_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 :
228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 :
230 : #if RK5_ENABLED
231 : module function test_setRebound_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
232 : #endif
233 : #if RK4_ENABLED
234 : module function test_setRebound_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
235 : #endif
236 : #if RK3_ENABLED
237 : module function test_setRebound_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if RK2_ENABLED
240 : module function test_setRebound_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if RK1_ENABLED
243 : module function test_setRebound_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 :
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 :
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #if SK5_ENABLED
255 : module function test_setRebound_D3_SK5_1 () result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if SK4_ENABLED
258 : module function test_setRebound_D3_SK4_1 () result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if SK3_ENABLED
261 : module function test_setRebound_D3_SK3_1 () result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 : #if SK2_ENABLED
264 : module function test_setRebound_D3_SK2_1 () result(assertion); logical(LK) :: assertion; end function
265 : #endif
266 : #if SK1_ENABLED
267 : module function test_setRebound_D3_SK1_1 () result(assertion); logical(LK) :: assertion; end function
268 : #endif
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #if IK5_ENABLED
273 : module function test_setRebound_D3_IK5_1 () result(assertion); logical(LK) :: assertion; end function
274 : #endif
275 : #if IK4_ENABLED
276 : module function test_setRebound_D3_IK4_1 () result(assertion); logical(LK) :: assertion; end function
277 : #endif
278 : #if IK3_ENABLED
279 : module function test_setRebound_D3_IK3_1 () result(assertion); logical(LK) :: assertion; end function
280 : #endif
281 : #if IK2_ENABLED
282 : module function test_setRebound_D3_IK2_1 () result(assertion); logical(LK) :: assertion; end function
283 : #endif
284 : #if IK1_ENABLED
285 : module function test_setRebound_D3_IK1_1 () result(assertion); logical(LK) :: assertion; end function
286 : #endif
287 :
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 :
290 : #if LK5_ENABLED
291 : module function test_setRebound_D3_LK5_1 () result(assertion); logical(LK) :: assertion; end function
292 : #endif
293 : #if LK4_ENABLED
294 : module function test_setRebound_D3_LK4_1 () result(assertion); logical(LK) :: assertion; end function
295 : #endif
296 : #if LK3_ENABLED
297 : module function test_setRebound_D3_LK3_1 () result(assertion); logical(LK) :: assertion; end function
298 : #endif
299 : #if LK2_ENABLED
300 : module function test_setRebound_D3_LK2_1 () result(assertion); logical(LK) :: assertion; end function
301 : #endif
302 : #if LK1_ENABLED
303 : module function test_setRebound_D3_LK1_1 () result(assertion); logical(LK) :: assertion; end function
304 : #endif
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : #if CK5_ENABLED
309 : module function test_setRebound_D3_CK5_1 () result(assertion); logical(LK) :: assertion; end function
310 : #endif
311 : #if CK4_ENABLED
312 : module function test_setRebound_D3_CK4_1 () result(assertion); logical(LK) :: assertion; end function
313 : #endif
314 : #if CK3_ENABLED
315 : module function test_setRebound_D3_CK3_1 () result(assertion); logical(LK) :: assertion; end function
316 : #endif
317 : #if CK2_ENABLED
318 : module function test_setRebound_D3_CK2_1 () result(assertion); logical(LK) :: assertion; end function
319 : #endif
320 : #if CK1_ENABLED
321 : module function test_setRebound_D3_CK1_1 () result(assertion); logical(LK) :: assertion; end function
322 : #endif
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #if RK5_ENABLED
327 : module function test_setRebound_D3_RK5_1 () result(assertion); logical(LK) :: assertion; end function
328 : #endif
329 : #if RK4_ENABLED
330 : module function test_setRebound_D3_RK4_1 () result(assertion); logical(LK) :: assertion; end function
331 : #endif
332 : #if RK3_ENABLED
333 : module function test_setRebound_D3_RK3_1 () result(assertion); logical(LK) :: assertion; end function
334 : #endif
335 : #if RK2_ENABLED
336 : module function test_setRebound_D3_RK2_1 () result(assertion); logical(LK) :: assertion; end function
337 : #endif
338 : #if RK1_ENABLED
339 : module function test_setRebound_D3_RK1_1 () result(assertion); logical(LK) :: assertion; end function
340 : #endif
341 :
342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 :
344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 : end interface
349 :
350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351 :
352 : contains
353 :
354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355 :
356 1 : subroutine setTest()
357 :
358 1 : test = test_type(MODULE_NAME)
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 :
364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365 :
366 : #if SK5_ENABLED
367 : call test%run(test_setRebound_D1_SK5_1, SK_"test_setRebound_D1_SK5_1")
368 : #endif
369 : #if SK4_ENABLED
370 : call test%run(test_setRebound_D1_SK4_1, SK_"test_setRebound_D1_SK4_1")
371 : #endif
372 : #if SK3_ENABLED
373 : call test%run(test_setRebound_D1_SK3_1, SK_"test_setRebound_D1_SK3_1")
374 : #endif
375 : #if SK2_ENABLED
376 : call test%run(test_setRebound_D1_SK2_1, SK_"test_setRebound_D1_SK2_1")
377 : #endif
378 : #if SK1_ENABLED
379 1 : call test%run(test_setRebound_D1_SK1_1, SK_"test_setRebound_D1_SK1_1")
380 : #endif
381 :
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 :
384 : #if IK5_ENABLED
385 1 : call test%run(test_setRebound_D1_IK5_1, SK_"test_setRebound_D1_IK5_1")
386 : #endif
387 : #if IK4_ENABLED
388 1 : call test%run(test_setRebound_D1_IK4_1, SK_"test_setRebound_D1_IK4_1")
389 : #endif
390 : #if IK3_ENABLED
391 1 : call test%run(test_setRebound_D1_IK3_1, SK_"test_setRebound_D1_IK3_1")
392 : #endif
393 : #if IK2_ENABLED
394 1 : call test%run(test_setRebound_D1_IK2_1, SK_"test_setRebound_D1_IK2_1")
395 : #endif
396 : #if IK1_ENABLED
397 1 : call test%run(test_setRebound_D1_IK1_1, SK_"test_setRebound_D1_IK1_1")
398 : #endif
399 :
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : #if LK5_ENABLED
403 1 : call test%run(test_setRebound_D1_LK5_1, SK_"test_setRebound_D1_LK5_1")
404 : #endif
405 : #if LK4_ENABLED
406 1 : call test%run(test_setRebound_D1_LK4_1, SK_"test_setRebound_D1_LK4_1")
407 : #endif
408 : #if LK3_ENABLED
409 1 : call test%run(test_setRebound_D1_LK3_1, SK_"test_setRebound_D1_LK3_1")
410 : #endif
411 : #if LK2_ENABLED
412 1 : call test%run(test_setRebound_D1_LK2_1, SK_"test_setRebound_D1_LK2_1")
413 : #endif
414 : #if LK1_ENABLED
415 1 : call test%run(test_setRebound_D1_LK1_1, SK_"test_setRebound_D1_LK1_1")
416 : #endif
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #if CK5_ENABLED
421 : call test%run(test_setRebound_D1_CK5_1, SK_"test_setRebound_D1_CK5_1")
422 : #endif
423 : #if CK4_ENABLED
424 1 : call test%run(test_setRebound_D1_CK4_1, SK_"test_setRebound_D1_CK4_1")
425 : #endif
426 : #if CK3_ENABLED
427 1 : call test%run(test_setRebound_D1_CK3_1, SK_"test_setRebound_D1_CK3_1")
428 : #endif
429 : #if CK2_ENABLED
430 1 : call test%run(test_setRebound_D1_CK2_1, SK_"test_setRebound_D1_CK2_1")
431 : #endif
432 : #if CK1_ENABLED
433 1 : call test%run(test_setRebound_D1_CK1_1, SK_"test_setRebound_D1_CK1_1")
434 : #endif
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #if RK5_ENABLED
439 : call test%run(test_setRebound_D1_RK5_1, SK_"test_setRebound_D1_RK5_1")
440 : #endif
441 : #if RK4_ENABLED
442 1 : call test%run(test_setRebound_D1_RK4_1, SK_"test_setRebound_D1_RK4_1")
443 : #endif
444 : #if RK3_ENABLED
445 1 : call test%run(test_setRebound_D1_RK3_1, SK_"test_setRebound_D1_RK3_1")
446 : #endif
447 : #if RK2_ENABLED
448 1 : call test%run(test_setRebound_D1_RK2_1, SK_"test_setRebound_D1_RK2_1")
449 : #endif
450 : #if RK1_ENABLED
451 1 : call test%run(test_setRebound_D1_RK1_1, SK_"test_setRebound_D1_RK1_1")
452 : #endif
453 :
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 :
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 :
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 :
462 : #if SK5_ENABLED
463 : call test%run(test_setRebound_D2_SK5_1, SK_"test_setRebound_D2_SK5_1")
464 : #endif
465 : #if SK4_ENABLED
466 : call test%run(test_setRebound_D2_SK4_1, SK_"test_setRebound_D2_SK4_1")
467 : #endif
468 : #if SK3_ENABLED
469 : call test%run(test_setRebound_D2_SK3_1, SK_"test_setRebound_D2_SK3_1")
470 : #endif
471 : #if SK2_ENABLED
472 : call test%run(test_setRebound_D2_SK2_1, SK_"test_setRebound_D2_SK2_1")
473 : #endif
474 : #if SK1_ENABLED
475 1 : call test%run(test_setRebound_D2_SK1_1, SK_"test_setRebound_D2_SK1_1")
476 : #endif
477 :
478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479 :
480 : #if IK5_ENABLED
481 1 : call test%run(test_setRebound_D2_IK5_1, SK_"test_setRebound_D2_IK5_1")
482 : #endif
483 : #if IK4_ENABLED
484 1 : call test%run(test_setRebound_D2_IK4_1, SK_"test_setRebound_D2_IK4_1")
485 : #endif
486 : #if IK3_ENABLED
487 1 : call test%run(test_setRebound_D2_IK3_1, SK_"test_setRebound_D2_IK3_1")
488 : #endif
489 : #if IK2_ENABLED
490 1 : call test%run(test_setRebound_D2_IK2_1, SK_"test_setRebound_D2_IK2_1")
491 : #endif
492 : #if IK1_ENABLED
493 1 : call test%run(test_setRebound_D2_IK1_1, SK_"test_setRebound_D2_IK1_1")
494 : #endif
495 :
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 :
498 : #if LK5_ENABLED
499 1 : call test%run(test_setRebound_D2_LK5_1, SK_"test_setRebound_D2_LK5_1")
500 : #endif
501 : #if LK4_ENABLED
502 1 : call test%run(test_setRebound_D2_LK4_1, SK_"test_setRebound_D2_LK4_1")
503 : #endif
504 : #if LK3_ENABLED
505 1 : call test%run(test_setRebound_D2_LK3_1, SK_"test_setRebound_D2_LK3_1")
506 : #endif
507 : #if LK2_ENABLED
508 1 : call test%run(test_setRebound_D2_LK2_1, SK_"test_setRebound_D2_LK2_1")
509 : #endif
510 : #if LK1_ENABLED
511 1 : call test%run(test_setRebound_D2_LK1_1, SK_"test_setRebound_D2_LK1_1")
512 : #endif
513 :
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 :
516 : #if CK5_ENABLED
517 : call test%run(test_setRebound_D2_CK5_1, SK_"test_setRebound_D2_CK5_1")
518 : #endif
519 : #if CK4_ENABLED
520 1 : call test%run(test_setRebound_D2_CK4_1, SK_"test_setRebound_D2_CK4_1")
521 : #endif
522 : #if CK3_ENABLED
523 1 : call test%run(test_setRebound_D2_CK3_1, SK_"test_setRebound_D2_CK3_1")
524 : #endif
525 : #if CK2_ENABLED
526 1 : call test%run(test_setRebound_D2_CK2_1, SK_"test_setRebound_D2_CK2_1")
527 : #endif
528 : #if CK1_ENABLED
529 1 : call test%run(test_setRebound_D2_CK1_1, SK_"test_setRebound_D2_CK1_1")
530 : #endif
531 :
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 :
534 : #if RK5_ENABLED
535 : call test%run(test_setRebound_D2_RK5_1, SK_"test_setRebound_D2_RK5_1")
536 : #endif
537 : #if RK4_ENABLED
538 1 : call test%run(test_setRebound_D2_RK4_1, SK_"test_setRebound_D2_RK4_1")
539 : #endif
540 : #if RK3_ENABLED
541 1 : call test%run(test_setRebound_D2_RK3_1, SK_"test_setRebound_D2_RK3_1")
542 : #endif
543 : #if RK2_ENABLED
544 1 : call test%run(test_setRebound_D2_RK2_1, SK_"test_setRebound_D2_RK2_1")
545 : #endif
546 : #if RK1_ENABLED
547 1 : call test%run(test_setRebound_D2_RK1_1, SK_"test_setRebound_D2_RK1_1")
548 : #endif
549 :
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 : #if SK5_ENABLED
559 : call test%run(test_setRebound_D3_SK5_1, SK_"test_setRebound_D3_SK5_1")
560 : #endif
561 : #if SK4_ENABLED
562 : call test%run(test_setRebound_D3_SK4_1, SK_"test_setRebound_D3_SK4_1")
563 : #endif
564 : #if SK3_ENABLED
565 : call test%run(test_setRebound_D3_SK3_1, SK_"test_setRebound_D3_SK3_1")
566 : #endif
567 : #if SK2_ENABLED
568 : call test%run(test_setRebound_D3_SK2_1, SK_"test_setRebound_D3_SK2_1")
569 : #endif
570 : #if SK1_ENABLED
571 1 : call test%run(test_setRebound_D3_SK1_1, SK_"test_setRebound_D3_SK1_1")
572 : #endif
573 :
574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 :
576 : #if IK5_ENABLED
577 1 : call test%run(test_setRebound_D3_IK5_1, SK_"test_setRebound_D3_IK5_1")
578 : #endif
579 : #if IK4_ENABLED
580 1 : call test%run(test_setRebound_D3_IK4_1, SK_"test_setRebound_D3_IK4_1")
581 : #endif
582 : #if IK3_ENABLED
583 1 : call test%run(test_setRebound_D3_IK3_1, SK_"test_setRebound_D3_IK3_1")
584 : #endif
585 : #if IK2_ENABLED
586 1 : call test%run(test_setRebound_D3_IK2_1, SK_"test_setRebound_D3_IK2_1")
587 : #endif
588 : #if IK1_ENABLED
589 1 : call test%run(test_setRebound_D3_IK1_1, SK_"test_setRebound_D3_IK1_1")
590 : #endif
591 :
592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 :
594 : #if LK5_ENABLED
595 1 : call test%run(test_setRebound_D3_LK5_1, SK_"test_setRebound_D3_LK5_1")
596 : #endif
597 : #if LK4_ENABLED
598 1 : call test%run(test_setRebound_D3_LK4_1, SK_"test_setRebound_D3_LK4_1")
599 : #endif
600 : #if LK3_ENABLED
601 1 : call test%run(test_setRebound_D3_LK3_1, SK_"test_setRebound_D3_LK3_1")
602 : #endif
603 : #if LK2_ENABLED
604 1 : call test%run(test_setRebound_D3_LK2_1, SK_"test_setRebound_D3_LK2_1")
605 : #endif
606 : #if LK1_ENABLED
607 1 : call test%run(test_setRebound_D3_LK1_1, SK_"test_setRebound_D3_LK1_1")
608 : #endif
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 :
612 : #if CK5_ENABLED
613 : call test%run(test_setRebound_D3_CK5_1, SK_"test_setRebound_D3_CK5_1")
614 : #endif
615 : #if CK4_ENABLED
616 1 : call test%run(test_setRebound_D3_CK4_1, SK_"test_setRebound_D3_CK4_1")
617 : #endif
618 : #if CK3_ENABLED
619 1 : call test%run(test_setRebound_D3_CK3_1, SK_"test_setRebound_D3_CK3_1")
620 : #endif
621 : #if CK2_ENABLED
622 1 : call test%run(test_setRebound_D3_CK2_1, SK_"test_setRebound_D3_CK2_1")
623 : #endif
624 : #if CK1_ENABLED
625 1 : call test%run(test_setRebound_D3_CK1_1, SK_"test_setRebound_D3_CK1_1")
626 : #endif
627 :
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 :
630 : #if RK5_ENABLED
631 : call test%run(test_setRebound_D3_RK5_1, SK_"test_setRebound_D3_RK5_1")
632 : #endif
633 : #if RK4_ENABLED
634 1 : call test%run(test_setRebound_D3_RK4_1, SK_"test_setRebound_D3_RK4_1")
635 : #endif
636 : #if RK3_ENABLED
637 1 : call test%run(test_setRebound_D3_RK3_1, SK_"test_setRebound_D3_RK3_1")
638 : #endif
639 : #if RK2_ENABLED
640 1 : call test%run(test_setRebound_D3_RK2_1, SK_"test_setRebound_D3_RK2_1")
641 : #endif
642 : #if RK1_ENABLED
643 1 : call test%run(test_setRebound_D3_RK1_1, SK_"test_setRebound_D3_RK1_1")
644 : #endif
645 :
646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647 :
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
651 :
652 1 : call test%summarize()
653 :
654 1 : end subroutine setTest
655 :
656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657 :
658 : end module test_pm_arrayRebind
|
