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