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 [pm_sampleAffinity](@ref pm_sampleAffinity).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleAffinity) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getAffinity_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define D1_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define RK_ENABLED 1
58 :
59 : #if RK5_ENABLED
60 : module procedure getAffinity_D1_RK5
61 : use pm_kind, only: RKC => RK5
62 : #include "pm_sampleAffinity@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if RK4_ENABLED
67 0 : module procedure getAffinity_D1_RK4
68 : use pm_kind, only: RKC => RK4
69 : #include "pm_sampleAffinity@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if RK3_ENABLED
74 0 : module procedure getAffinity_D1_RK3
75 : use pm_kind, only: RKC => RK3
76 : #include "pm_sampleAffinity@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #if RK2_ENABLED
81 0 : module procedure getAffinity_D1_RK2
82 : use pm_kind, only: RKC => RK2
83 : #include "pm_sampleAffinity@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if RK1_ENABLED
88 230 : module procedure getAffinity_D1_RK1
89 : use pm_kind, only: RKC => RK1
90 : #include "pm_sampleAffinity@routines.inc.F90"
91 : end procedure
92 : #endif
93 :
94 : #undef RK_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #undef D1_ENABLED
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define D2_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #define ONO_ENABLED 1
111 :
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 :
114 : #define RK_ENABLED 1
115 :
116 : #if RK5_ENABLED
117 : module procedure getAffinity_D2_RK5
118 : use pm_kind, only: RKC => RK5
119 : #include "pm_sampleAffinity@routines.inc.F90"
120 : end procedure
121 : #endif
122 :
123 : #if RK4_ENABLED
124 0 : module procedure getAffinity_D2_RK4
125 : use pm_kind, only: RKC => RK4
126 : #include "pm_sampleAffinity@routines.inc.F90"
127 : end procedure
128 : #endif
129 :
130 : #if RK3_ENABLED
131 0 : module procedure getAffinity_D2_RK3
132 : use pm_kind, only: RKC => RK3
133 : #include "pm_sampleAffinity@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #if RK2_ENABLED
138 0 : module procedure getAffinity_D2_RK2
139 : use pm_kind, only: RKC => RK2
140 : #include "pm_sampleAffinity@routines.inc.F90"
141 : end procedure
142 : #endif
143 :
144 : #if RK1_ENABLED
145 108 : module procedure getAffinity_D2_RK1
146 : use pm_kind, only: RKC => RK1
147 : #include "pm_sampleAffinity@routines.inc.F90"
148 : end procedure
149 : #endif
150 :
151 : #undef RK_ENABLED
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : #undef ONO_ENABLED
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160 :
161 : #undef D2_ENABLED
162 :
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 :
167 : #undef getAffinity_ENABLED
168 :
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 :
171 : #define setAffinity_ENABLED 1
172 :
173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176 :
177 : #define ATL_ENABLED 1
178 :
179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
182 :
183 : #define CGR_ENABLED 1
184 :
185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 :
189 : #define D1_ENABLED 1
190 :
191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192 :
193 : #define RK_ENABLED 1
194 :
195 : #if RK5_ENABLED
196 : module procedure setAffinity_CGR_ATL_D1_RK5
197 : use pm_kind, only: RKC => RK5
198 : #include "pm_sampleAffinity@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if RK4_ENABLED
203 0 : module procedure setAffinity_CGR_ATL_D1_RK4
204 : use pm_kind, only: RKC => RK4
205 : #include "pm_sampleAffinity@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if RK3_ENABLED
210 0 : module procedure setAffinity_CGR_ATL_D1_RK3
211 : use pm_kind, only: RKC => RK3
212 : #include "pm_sampleAffinity@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if RK2_ENABLED
217 0 : module procedure setAffinity_CGR_ATL_D1_RK2
218 : use pm_kind, only: RKC => RK2
219 : #include "pm_sampleAffinity@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if RK1_ENABLED
224 0 : module procedure setAffinity_CGR_ATL_D1_RK1
225 : use pm_kind, only: RKC => RK1
226 : #include "pm_sampleAffinity@routines.inc.F90"
227 : end procedure
228 : #endif
229 :
230 : #undef RK_ENABLED
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : #undef D1_ENABLED
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239 :
240 : #define D2_ENABLED 1
241 :
242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243 :
244 : #define RK_ENABLED 1
245 :
246 : #if RK5_ENABLED
247 : module procedure setAffinity_CGR_ATL_D2_RK5
248 : use pm_kind, only: RKC => RK5
249 : #include "pm_sampleAffinity@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if RK4_ENABLED
254 0 : module procedure setAffinity_CGR_ATL_D2_RK4
255 : use pm_kind, only: RKC => RK4
256 : #include "pm_sampleAffinity@routines.inc.F90"
257 : end procedure
258 : #endif
259 :
260 : #if RK3_ENABLED
261 0 : module procedure setAffinity_CGR_ATL_D2_RK3
262 : use pm_kind, only: RKC => RK3
263 : #include "pm_sampleAffinity@routines.inc.F90"
264 : end procedure
265 : #endif
266 :
267 : #if RK2_ENABLED
268 0 : module procedure setAffinity_CGR_ATL_D2_RK2
269 : use pm_kind, only: RKC => RK2
270 : #include "pm_sampleAffinity@routines.inc.F90"
271 : end procedure
272 : #endif
273 :
274 : #if RK1_ENABLED
275 4 : module procedure setAffinity_CGR_ATL_D2_RK1
276 : use pm_kind, only: RKC => RK1
277 : #include "pm_sampleAffinity@routines.inc.F90"
278 : end procedure
279 : #endif
280 :
281 : #undef RK_ENABLED
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : #undef D2_ENABLED
286 :
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : #undef CGR_ENABLED
292 :
293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296 :
297 : #define CUD_ENABLED 1
298 :
299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 :
303 : #define D1_ENABLED 1
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #define RK_ENABLED 1
308 :
309 : #if RK5_ENABLED
310 : module procedure setAffinity_CUD_ATL_D1_RK5
311 : use pm_kind, only: RKC => RK5
312 : #include "pm_sampleAffinity@routines.inc.F90"
313 : end procedure
314 : #endif
315 :
316 : #if RK4_ENABLED
317 0 : module procedure setAffinity_CUD_ATL_D1_RK4
318 : use pm_kind, only: RKC => RK4
319 : #include "pm_sampleAffinity@routines.inc.F90"
320 : end procedure
321 : #endif
322 :
323 : #if RK3_ENABLED
324 0 : module procedure setAffinity_CUD_ATL_D1_RK3
325 : use pm_kind, only: RKC => RK3
326 : #include "pm_sampleAffinity@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if RK2_ENABLED
331 0 : module procedure setAffinity_CUD_ATL_D1_RK2
332 : use pm_kind, only: RKC => RK2
333 : #include "pm_sampleAffinity@routines.inc.F90"
334 : end procedure
335 : #endif
336 :
337 : #if RK1_ENABLED
338 0 : module procedure setAffinity_CUD_ATL_D1_RK1
339 : use pm_kind, only: RKC => RK1
340 : #include "pm_sampleAffinity@routines.inc.F90"
341 : end procedure
342 : #endif
343 :
344 : #undef RK_ENABLED
345 :
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 : #undef D1_ENABLED
349 :
350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #define D2_ENABLED 1
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #define RK_ENABLED 1
359 :
360 : #if RK5_ENABLED
361 : module procedure setAffinity_CUD_ATL_D2_RK5
362 : use pm_kind, only: RKC => RK5
363 : #include "pm_sampleAffinity@routines.inc.F90"
364 : end procedure
365 : #endif
366 :
367 : #if RK4_ENABLED
368 0 : module procedure setAffinity_CUD_ATL_D2_RK4
369 : use pm_kind, only: RKC => RK4
370 : #include "pm_sampleAffinity@routines.inc.F90"
371 : end procedure
372 : #endif
373 :
374 : #if RK3_ENABLED
375 0 : module procedure setAffinity_CUD_ATL_D2_RK3
376 : use pm_kind, only: RKC => RK3
377 : #include "pm_sampleAffinity@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if RK2_ENABLED
382 0 : module procedure setAffinity_CUD_ATL_D2_RK2
383 : use pm_kind, only: RKC => RK2
384 : #include "pm_sampleAffinity@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if RK1_ENABLED
389 0 : module procedure setAffinity_CUD_ATL_D2_RK1
390 : use pm_kind, only: RKC => RK1
391 : #include "pm_sampleAffinity@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #undef RK_ENABLED
396 :
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : #undef D2_ENABLED
400 :
401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 :
405 : #undef CUD_ENABLED
406 :
407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410 :
411 : #define CLD_ENABLED 1
412 :
413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 :
417 : #define D1_ENABLED 1
418 :
419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 :
421 : #define RK_ENABLED 1
422 :
423 : #if RK5_ENABLED
424 : module procedure setAffinity_CLD_ATL_D1_RK5
425 : use pm_kind, only: RKC => RK5
426 : #include "pm_sampleAffinity@routines.inc.F90"
427 : end procedure
428 : #endif
429 :
430 : #if RK4_ENABLED
431 0 : module procedure setAffinity_CLD_ATL_D1_RK4
432 : use pm_kind, only: RKC => RK4
433 : #include "pm_sampleAffinity@routines.inc.F90"
434 : end procedure
435 : #endif
436 :
437 : #if RK3_ENABLED
438 0 : module procedure setAffinity_CLD_ATL_D1_RK3
439 : use pm_kind, only: RKC => RK3
440 : #include "pm_sampleAffinity@routines.inc.F90"
441 : end procedure
442 : #endif
443 :
444 : #if RK2_ENABLED
445 0 : module procedure setAffinity_CLD_ATL_D1_RK2
446 : use pm_kind, only: RKC => RK2
447 : #include "pm_sampleAffinity@routines.inc.F90"
448 : end procedure
449 : #endif
450 :
451 : #if RK1_ENABLED
452 0 : module procedure setAffinity_CLD_ATL_D1_RK1
453 : use pm_kind, only: RKC => RK1
454 : #include "pm_sampleAffinity@routines.inc.F90"
455 : end procedure
456 : #endif
457 :
458 : #undef RK_ENABLED
459 :
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 :
462 : #undef D1_ENABLED
463 :
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #define D2_ENABLED 1
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #define RK_ENABLED 1
473 :
474 : #if RK5_ENABLED
475 : module procedure setAffinity_CLD_ATL_D2_RK5
476 : use pm_kind, only: RKC => RK5
477 : #include "pm_sampleAffinity@routines.inc.F90"
478 : end procedure
479 : #endif
480 :
481 : #if RK4_ENABLED
482 0 : module procedure setAffinity_CLD_ATL_D2_RK4
483 : use pm_kind, only: RKC => RK4
484 : #include "pm_sampleAffinity@routines.inc.F90"
485 : end procedure
486 : #endif
487 :
488 : #if RK3_ENABLED
489 0 : module procedure setAffinity_CLD_ATL_D2_RK3
490 : use pm_kind, only: RKC => RK3
491 : #include "pm_sampleAffinity@routines.inc.F90"
492 : end procedure
493 : #endif
494 :
495 : #if RK2_ENABLED
496 0 : module procedure setAffinity_CLD_ATL_D2_RK2
497 : use pm_kind, only: RKC => RK2
498 : #include "pm_sampleAffinity@routines.inc.F90"
499 : end procedure
500 : #endif
501 :
502 : #if RK1_ENABLED
503 4 : module procedure setAffinity_CLD_ATL_D2_RK1
504 : use pm_kind, only: RKC => RK1
505 : #include "pm_sampleAffinity@routines.inc.F90"
506 : end procedure
507 : #endif
508 :
509 : #undef RK_ENABLED
510 :
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 :
513 : #undef D2_ENABLED
514 :
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 :
519 : #undef CLD_ENABLED
520 :
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524 :
525 : #define CUU_ENABLED 1
526 :
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 :
531 : #define D1_ENABLED 1
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : #define RK_ENABLED 1
536 :
537 : #if RK5_ENABLED
538 : module procedure setAffinity_CUU_ATL_D1_RK5
539 : use pm_kind, only: RKC => RK5
540 : #include "pm_sampleAffinity@routines.inc.F90"
541 : end procedure
542 : #endif
543 :
544 : #if RK4_ENABLED
545 0 : module procedure setAffinity_CUU_ATL_D1_RK4
546 : use pm_kind, only: RKC => RK4
547 : #include "pm_sampleAffinity@routines.inc.F90"
548 : end procedure
549 : #endif
550 :
551 : #if RK3_ENABLED
552 0 : module procedure setAffinity_CUU_ATL_D1_RK3
553 : use pm_kind, only: RKC => RK3
554 : #include "pm_sampleAffinity@routines.inc.F90"
555 : end procedure
556 : #endif
557 :
558 : #if RK2_ENABLED
559 0 : module procedure setAffinity_CUU_ATL_D1_RK2
560 : use pm_kind, only: RKC => RK2
561 : #include "pm_sampleAffinity@routines.inc.F90"
562 : end procedure
563 : #endif
564 :
565 : #if RK1_ENABLED
566 0 : module procedure setAffinity_CUU_ATL_D1_RK1
567 : use pm_kind, only: RKC => RK1
568 : #include "pm_sampleAffinity@routines.inc.F90"
569 : end procedure
570 : #endif
571 :
572 : #undef RK_ENABLED
573 :
574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 :
576 : #undef D1_ENABLED
577 :
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #define D2_ENABLED 1
583 :
584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585 :
586 : #define RK_ENABLED 1
587 :
588 : #if RK5_ENABLED
589 : module procedure setAffinity_CUU_ATL_D2_RK5
590 : use pm_kind, only: RKC => RK5
591 : #include "pm_sampleAffinity@routines.inc.F90"
592 : end procedure
593 : #endif
594 :
595 : #if RK4_ENABLED
596 0 : module procedure setAffinity_CUU_ATL_D2_RK4
597 : use pm_kind, only: RKC => RK4
598 : #include "pm_sampleAffinity@routines.inc.F90"
599 : end procedure
600 : #endif
601 :
602 : #if RK3_ENABLED
603 0 : module procedure setAffinity_CUU_ATL_D2_RK3
604 : use pm_kind, only: RKC => RK3
605 : #include "pm_sampleAffinity@routines.inc.F90"
606 : end procedure
607 : #endif
608 :
609 : #if RK2_ENABLED
610 0 : module procedure setAffinity_CUU_ATL_D2_RK2
611 : use pm_kind, only: RKC => RK2
612 : #include "pm_sampleAffinity@routines.inc.F90"
613 : end procedure
614 : #endif
615 :
616 : #if RK1_ENABLED
617 0 : module procedure setAffinity_CUU_ATL_D2_RK1
618 : use pm_kind, only: RKC => RK1
619 : #include "pm_sampleAffinity@routines.inc.F90"
620 : end procedure
621 : #endif
622 :
623 : #undef RK_ENABLED
624 :
625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
626 :
627 : #undef D2_ENABLED
628 :
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
632 :
633 : #undef CUU_ENABLED
634 :
635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
638 :
639 : #define CLU_ENABLED 1
640 :
641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
644 :
645 : #define D1_ENABLED 1
646 :
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 :
649 : #define RK_ENABLED 1
650 :
651 : #if RK5_ENABLED
652 : module procedure setAffinity_CLU_ATL_D1_RK5
653 : use pm_kind, only: RKC => RK5
654 : #include "pm_sampleAffinity@routines.inc.F90"
655 : end procedure
656 : #endif
657 :
658 : #if RK4_ENABLED
659 0 : module procedure setAffinity_CLU_ATL_D1_RK4
660 : use pm_kind, only: RKC => RK4
661 : #include "pm_sampleAffinity@routines.inc.F90"
662 : end procedure
663 : #endif
664 :
665 : #if RK3_ENABLED
666 0 : module procedure setAffinity_CLU_ATL_D1_RK3
667 : use pm_kind, only: RKC => RK3
668 : #include "pm_sampleAffinity@routines.inc.F90"
669 : end procedure
670 : #endif
671 :
672 : #if RK2_ENABLED
673 0 : module procedure setAffinity_CLU_ATL_D1_RK2
674 : use pm_kind, only: RKC => RK2
675 : #include "pm_sampleAffinity@routines.inc.F90"
676 : end procedure
677 : #endif
678 :
679 : #if RK1_ENABLED
680 0 : module procedure setAffinity_CLU_ATL_D1_RK1
681 : use pm_kind, only: RKC => RK1
682 : #include "pm_sampleAffinity@routines.inc.F90"
683 : end procedure
684 : #endif
685 :
686 : #undef RK_ENABLED
687 :
688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
689 :
690 : #undef D1_ENABLED
691 :
692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695 :
696 : #define D2_ENABLED 1
697 :
698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
699 :
700 : #define RK_ENABLED 1
701 :
702 : #if RK5_ENABLED
703 : module procedure setAffinity_CLU_ATL_D2_RK5
704 : use pm_kind, only: RKC => RK5
705 : #include "pm_sampleAffinity@routines.inc.F90"
706 : end procedure
707 : #endif
708 :
709 : #if RK4_ENABLED
710 0 : module procedure setAffinity_CLU_ATL_D2_RK4
711 : use pm_kind, only: RKC => RK4
712 : #include "pm_sampleAffinity@routines.inc.F90"
713 : end procedure
714 : #endif
715 :
716 : #if RK3_ENABLED
717 0 : module procedure setAffinity_CLU_ATL_D2_RK3
718 : use pm_kind, only: RKC => RK3
719 : #include "pm_sampleAffinity@routines.inc.F90"
720 : end procedure
721 : #endif
722 :
723 : #if RK2_ENABLED
724 0 : module procedure setAffinity_CLU_ATL_D2_RK2
725 : use pm_kind, only: RKC => RK2
726 : #include "pm_sampleAffinity@routines.inc.F90"
727 : end procedure
728 : #endif
729 :
730 : #if RK1_ENABLED
731 0 : module procedure setAffinity_CLU_ATL_D2_RK1
732 : use pm_kind, only: RKC => RK1
733 : #include "pm_sampleAffinity@routines.inc.F90"
734 : end procedure
735 : #endif
736 :
737 : #undef RK_ENABLED
738 :
739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
740 :
741 : #undef D2_ENABLED
742 :
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
746 :
747 : #undef CLU_ENABLED
748 :
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
752 :
753 : #undef ATL_ENABLED
754 :
755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
758 :
759 : #define DTL_ENABLED 1
760 :
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
764 :
765 : #define CGR_ENABLED 1
766 :
767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
770 :
771 : #define D1_ENABLED 1
772 :
773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774 :
775 : #define RK_ENABLED 1
776 :
777 : #if RK5_ENABLED
778 : module procedure setAffinity_CGR_DTL_D1_RK5
779 : use pm_kind, only: RKC => RK5
780 : #include "pm_sampleAffinity@routines.inc.F90"
781 : end procedure
782 : #endif
783 :
784 : #if RK4_ENABLED
785 0 : module procedure setAffinity_CGR_DTL_D1_RK4
786 : use pm_kind, only: RKC => RK4
787 : #include "pm_sampleAffinity@routines.inc.F90"
788 : end procedure
789 : #endif
790 :
791 : #if RK3_ENABLED
792 0 : module procedure setAffinity_CGR_DTL_D1_RK3
793 : use pm_kind, only: RKC => RK3
794 : #include "pm_sampleAffinity@routines.inc.F90"
795 : end procedure
796 : #endif
797 :
798 : #if RK2_ENABLED
799 0 : module procedure setAffinity_CGR_DTL_D1_RK2
800 : use pm_kind, only: RKC => RK2
801 : #include "pm_sampleAffinity@routines.inc.F90"
802 : end procedure
803 : #endif
804 :
805 : #if RK1_ENABLED
806 92 : module procedure setAffinity_CGR_DTL_D1_RK1
807 : use pm_kind, only: RKC => RK1
808 : #include "pm_sampleAffinity@routines.inc.F90"
809 : end procedure
810 : #endif
811 :
812 : #undef RK_ENABLED
813 :
814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
815 :
816 : #undef D1_ENABLED
817 :
818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
821 :
822 : #define D2_ENABLED 1
823 :
824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
825 :
826 : #define RK_ENABLED 1
827 :
828 : #if RK5_ENABLED
829 : module procedure setAffinity_CGR_DTL_D2_RK5
830 : use pm_kind, only: RKC => RK5
831 : #include "pm_sampleAffinity@routines.inc.F90"
832 : end procedure
833 : #endif
834 :
835 : #if RK4_ENABLED
836 0 : module procedure setAffinity_CGR_DTL_D2_RK4
837 : use pm_kind, only: RKC => RK4
838 : #include "pm_sampleAffinity@routines.inc.F90"
839 : end procedure
840 : #endif
841 :
842 : #if RK3_ENABLED
843 0 : module procedure setAffinity_CGR_DTL_D2_RK3
844 : use pm_kind, only: RKC => RK3
845 : #include "pm_sampleAffinity@routines.inc.F90"
846 : end procedure
847 : #endif
848 :
849 : #if RK2_ENABLED
850 0 : module procedure setAffinity_CGR_DTL_D2_RK2
851 : use pm_kind, only: RKC => RK2
852 : #include "pm_sampleAffinity@routines.inc.F90"
853 : end procedure
854 : #endif
855 :
856 : #if RK1_ENABLED
857 48 : module procedure setAffinity_CGR_DTL_D2_RK1
858 : use pm_kind, only: RKC => RK1
859 : #include "pm_sampleAffinity@routines.inc.F90"
860 : end procedure
861 : #endif
862 :
863 : #undef RK_ENABLED
864 :
865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866 :
867 : #undef D2_ENABLED
868 :
869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
872 :
873 : #undef CGR_ENABLED
874 :
875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
878 :
879 : #define CUD_ENABLED 1
880 :
881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
884 :
885 : #define D1_ENABLED 1
886 :
887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
888 :
889 : #define RK_ENABLED 1
890 :
891 : #if RK5_ENABLED
892 : module procedure setAffinity_CUD_DTL_D1_RK5
893 : use pm_kind, only: RKC => RK5
894 : #include "pm_sampleAffinity@routines.inc.F90"
895 : end procedure
896 : #endif
897 :
898 : #if RK4_ENABLED
899 0 : module procedure setAffinity_CUD_DTL_D1_RK4
900 : use pm_kind, only: RKC => RK4
901 : #include "pm_sampleAffinity@routines.inc.F90"
902 : end procedure
903 : #endif
904 :
905 : #if RK3_ENABLED
906 0 : module procedure setAffinity_CUD_DTL_D1_RK3
907 : use pm_kind, only: RKC => RK3
908 : #include "pm_sampleAffinity@routines.inc.F90"
909 : end procedure
910 : #endif
911 :
912 : #if RK2_ENABLED
913 0 : module procedure setAffinity_CUD_DTL_D1_RK2
914 : use pm_kind, only: RKC => RK2
915 : #include "pm_sampleAffinity@routines.inc.F90"
916 : end procedure
917 : #endif
918 :
919 : #if RK1_ENABLED
920 92 : module procedure setAffinity_CUD_DTL_D1_RK1
921 : use pm_kind, only: RKC => RK1
922 : #include "pm_sampleAffinity@routines.inc.F90"
923 : end procedure
924 : #endif
925 :
926 : #undef RK_ENABLED
927 :
928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
929 :
930 : #undef D1_ENABLED
931 :
932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
935 :
936 : #define D2_ENABLED 1
937 :
938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 :
940 : #define RK_ENABLED 1
941 :
942 : #if RK5_ENABLED
943 : module procedure setAffinity_CUD_DTL_D2_RK5
944 : use pm_kind, only: RKC => RK5
945 : #include "pm_sampleAffinity@routines.inc.F90"
946 : end procedure
947 : #endif
948 :
949 : #if RK4_ENABLED
950 0 : module procedure setAffinity_CUD_DTL_D2_RK4
951 : use pm_kind, only: RKC => RK4
952 : #include "pm_sampleAffinity@routines.inc.F90"
953 : end procedure
954 : #endif
955 :
956 : #if RK3_ENABLED
957 0 : module procedure setAffinity_CUD_DTL_D2_RK3
958 : use pm_kind, only: RKC => RK3
959 : #include "pm_sampleAffinity@routines.inc.F90"
960 : end procedure
961 : #endif
962 :
963 : #if RK2_ENABLED
964 0 : module procedure setAffinity_CUD_DTL_D2_RK2
965 : use pm_kind, only: RKC => RK2
966 : #include "pm_sampleAffinity@routines.inc.F90"
967 : end procedure
968 : #endif
969 :
970 : #if RK1_ENABLED
971 40 : module procedure setAffinity_CUD_DTL_D2_RK1
972 : use pm_kind, only: RKC => RK1
973 : #include "pm_sampleAffinity@routines.inc.F90"
974 : end procedure
975 : #endif
976 :
977 : #undef RK_ENABLED
978 :
979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 :
981 : #undef D2_ENABLED
982 :
983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
986 :
987 : #undef CUD_ENABLED
988 :
989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
992 :
993 : #define CLD_ENABLED 1
994 :
995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998 :
999 : #define D1_ENABLED 1
1000 :
1001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002 :
1003 : #define RK_ENABLED 1
1004 :
1005 : #if RK5_ENABLED
1006 : module procedure setAffinity_CLD_DTL_D1_RK5
1007 : use pm_kind, only: RKC => RK5
1008 : #include "pm_sampleAffinity@routines.inc.F90"
1009 : end procedure
1010 : #endif
1011 :
1012 : #if RK4_ENABLED
1013 0 : module procedure setAffinity_CLD_DTL_D1_RK4
1014 : use pm_kind, only: RKC => RK4
1015 : #include "pm_sampleAffinity@routines.inc.F90"
1016 : end procedure
1017 : #endif
1018 :
1019 : #if RK3_ENABLED
1020 0 : module procedure setAffinity_CLD_DTL_D1_RK3
1021 : use pm_kind, only: RKC => RK3
1022 : #include "pm_sampleAffinity@routines.inc.F90"
1023 : end procedure
1024 : #endif
1025 :
1026 : #if RK2_ENABLED
1027 0 : module procedure setAffinity_CLD_DTL_D1_RK2
1028 : use pm_kind, only: RKC => RK2
1029 : #include "pm_sampleAffinity@routines.inc.F90"
1030 : end procedure
1031 : #endif
1032 :
1033 : #if RK1_ENABLED
1034 92 : module procedure setAffinity_CLD_DTL_D1_RK1
1035 : use pm_kind, only: RKC => RK1
1036 : #include "pm_sampleAffinity@routines.inc.F90"
1037 : end procedure
1038 : #endif
1039 :
1040 : #undef RK_ENABLED
1041 :
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 :
1044 : #undef D1_ENABLED
1045 :
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1049 :
1050 : #define D2_ENABLED 1
1051 :
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 :
1054 : #define RK_ENABLED 1
1055 :
1056 : #if RK5_ENABLED
1057 : module procedure setAffinity_CLD_DTL_D2_RK5
1058 : use pm_kind, only: RKC => RK5
1059 : #include "pm_sampleAffinity@routines.inc.F90"
1060 : end procedure
1061 : #endif
1062 :
1063 : #if RK4_ENABLED
1064 0 : module procedure setAffinity_CLD_DTL_D2_RK4
1065 : use pm_kind, only: RKC => RK4
1066 : #include "pm_sampleAffinity@routines.inc.F90"
1067 : end procedure
1068 : #endif
1069 :
1070 : #if RK3_ENABLED
1071 0 : module procedure setAffinity_CLD_DTL_D2_RK3
1072 : use pm_kind, only: RKC => RK3
1073 : #include "pm_sampleAffinity@routines.inc.F90"
1074 : end procedure
1075 : #endif
1076 :
1077 : #if RK2_ENABLED
1078 0 : module procedure setAffinity_CLD_DTL_D2_RK2
1079 : use pm_kind, only: RKC => RK2
1080 : #include "pm_sampleAffinity@routines.inc.F90"
1081 : end procedure
1082 : #endif
1083 :
1084 : #if RK1_ENABLED
1085 40 : module procedure setAffinity_CLD_DTL_D2_RK1
1086 : use pm_kind, only: RKC => RK1
1087 : #include "pm_sampleAffinity@routines.inc.F90"
1088 : end procedure
1089 : #endif
1090 :
1091 : #undef RK_ENABLED
1092 :
1093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094 :
1095 : #undef D2_ENABLED
1096 :
1097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1100 :
1101 : #undef CLD_ENABLED
1102 :
1103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 :
1107 : #define CUU_ENABLED 1
1108 :
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112 :
1113 : #define D1_ENABLED 1
1114 :
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 :
1117 : #define RK_ENABLED 1
1118 :
1119 : #if RK5_ENABLED
1120 : module procedure setAffinity_CUU_DTL_D1_RK5
1121 : use pm_kind, only: RKC => RK5
1122 : #include "pm_sampleAffinity@routines.inc.F90"
1123 : end procedure
1124 : #endif
1125 :
1126 : #if RK4_ENABLED
1127 0 : module procedure setAffinity_CUU_DTL_D1_RK4
1128 : use pm_kind, only: RKC => RK4
1129 : #include "pm_sampleAffinity@routines.inc.F90"
1130 : end procedure
1131 : #endif
1132 :
1133 : #if RK3_ENABLED
1134 0 : module procedure setAffinity_CUU_DTL_D1_RK3
1135 : use pm_kind, only: RKC => RK3
1136 : #include "pm_sampleAffinity@routines.inc.F90"
1137 : end procedure
1138 : #endif
1139 :
1140 : #if RK2_ENABLED
1141 0 : module procedure setAffinity_CUU_DTL_D1_RK2
1142 : use pm_kind, only: RKC => RK2
1143 : #include "pm_sampleAffinity@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if RK1_ENABLED
1148 92 : module procedure setAffinity_CUU_DTL_D1_RK1
1149 : use pm_kind, only: RKC => RK1
1150 : #include "pm_sampleAffinity@routines.inc.F90"
1151 : end procedure
1152 : #endif
1153 :
1154 : #undef RK_ENABLED
1155 :
1156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1157 :
1158 : #undef D1_ENABLED
1159 :
1160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1163 :
1164 : #define D2_ENABLED 1
1165 :
1166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1167 :
1168 : #define RK_ENABLED 1
1169 :
1170 : #if RK5_ENABLED
1171 : module procedure setAffinity_CUU_DTL_D2_RK5
1172 : use pm_kind, only: RKC => RK5
1173 : #include "pm_sampleAffinity@routines.inc.F90"
1174 : end procedure
1175 : #endif
1176 :
1177 : #if RK4_ENABLED
1178 0 : module procedure setAffinity_CUU_DTL_D2_RK4
1179 : use pm_kind, only: RKC => RK4
1180 : #include "pm_sampleAffinity@routines.inc.F90"
1181 : end procedure
1182 : #endif
1183 :
1184 : #if RK3_ENABLED
1185 0 : module procedure setAffinity_CUU_DTL_D2_RK3
1186 : use pm_kind, only: RKC => RK3
1187 : #include "pm_sampleAffinity@routines.inc.F90"
1188 : end procedure
1189 : #endif
1190 :
1191 : #if RK2_ENABLED
1192 0 : module procedure setAffinity_CUU_DTL_D2_RK2
1193 : use pm_kind, only: RKC => RK2
1194 : #include "pm_sampleAffinity@routines.inc.F90"
1195 : end procedure
1196 : #endif
1197 :
1198 : #if RK1_ENABLED
1199 40 : module procedure setAffinity_CUU_DTL_D2_RK1
1200 : use pm_kind, only: RKC => RK1
1201 : #include "pm_sampleAffinity@routines.inc.F90"
1202 : end procedure
1203 : #endif
1204 :
1205 : #undef RK_ENABLED
1206 :
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 :
1209 : #undef D2_ENABLED
1210 :
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 :
1215 : #undef CUU_ENABLED
1216 :
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1220 :
1221 : #define CLU_ENABLED 1
1222 :
1223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226 :
1227 : #define D1_ENABLED 1
1228 :
1229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1230 :
1231 : #define RK_ENABLED 1
1232 :
1233 : #if RK5_ENABLED
1234 : module procedure setAffinity_CLU_DTL_D1_RK5
1235 : use pm_kind, only: RKC => RK5
1236 : #include "pm_sampleAffinity@routines.inc.F90"
1237 : end procedure
1238 : #endif
1239 :
1240 : #if RK4_ENABLED
1241 0 : module procedure setAffinity_CLU_DTL_D1_RK4
1242 : use pm_kind, only: RKC => RK4
1243 : #include "pm_sampleAffinity@routines.inc.F90"
1244 : end procedure
1245 : #endif
1246 :
1247 : #if RK3_ENABLED
1248 0 : module procedure setAffinity_CLU_DTL_D1_RK3
1249 : use pm_kind, only: RKC => RK3
1250 : #include "pm_sampleAffinity@routines.inc.F90"
1251 : end procedure
1252 : #endif
1253 :
1254 : #if RK2_ENABLED
1255 0 : module procedure setAffinity_CLU_DTL_D1_RK2
1256 : use pm_kind, only: RKC => RK2
1257 : #include "pm_sampleAffinity@routines.inc.F90"
1258 : end procedure
1259 : #endif
1260 :
1261 : #if RK1_ENABLED
1262 92 : module procedure setAffinity_CLU_DTL_D1_RK1
1263 : use pm_kind, only: RKC => RK1
1264 : #include "pm_sampleAffinity@routines.inc.F90"
1265 : end procedure
1266 : #endif
1267 :
1268 : #undef RK_ENABLED
1269 :
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 :
1272 : #undef D1_ENABLED
1273 :
1274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277 :
1278 : #define D2_ENABLED 1
1279 :
1280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1281 :
1282 : #define RK_ENABLED 1
1283 :
1284 : #if RK5_ENABLED
1285 : module procedure setAffinity_CLU_DTL_D2_RK5
1286 : use pm_kind, only: RKC => RK5
1287 : #include "pm_sampleAffinity@routines.inc.F90"
1288 : end procedure
1289 : #endif
1290 :
1291 : #if RK4_ENABLED
1292 0 : module procedure setAffinity_CLU_DTL_D2_RK4
1293 : use pm_kind, only: RKC => RK4
1294 : #include "pm_sampleAffinity@routines.inc.F90"
1295 : end procedure
1296 : #endif
1297 :
1298 : #if RK3_ENABLED
1299 0 : module procedure setAffinity_CLU_DTL_D2_RK3
1300 : use pm_kind, only: RKC => RK3
1301 : #include "pm_sampleAffinity@routines.inc.F90"
1302 : end procedure
1303 : #endif
1304 :
1305 : #if RK2_ENABLED
1306 0 : module procedure setAffinity_CLU_DTL_D2_RK2
1307 : use pm_kind, only: RKC => RK2
1308 : #include "pm_sampleAffinity@routines.inc.F90"
1309 : end procedure
1310 : #endif
1311 :
1312 : #if RK1_ENABLED
1313 40 : module procedure setAffinity_CLU_DTL_D2_RK1
1314 : use pm_kind, only: RKC => RK1
1315 : #include "pm_sampleAffinity@routines.inc.F90"
1316 : end procedure
1317 : #endif
1318 :
1319 : #undef RK_ENABLED
1320 :
1321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322 :
1323 : #undef D2_ENABLED
1324 :
1325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1328 :
1329 : #undef CLU_ENABLED
1330 :
1331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1334 :
1335 : #undef DTL_ENABLED
1336 :
1337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1340 :
1341 : #undef setAffinity_ENABLED
1342 :
1343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1344 :
1345 268 : end submodule routines
|
