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_sampleScale](@ref pm_sampleScale).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleScale) 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 getScaled_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define ARK_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 :
59 : #define D1_ENABLED 1
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define ONO_ENABLED 1
66 :
67 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 :
69 : #define CK_ENABLED 1
70 :
71 : #if CK5_ENABLED
72 : module procedure getScaled_ARK_ONO_D1_CK5
73 : use pm_kind, only: CKC => CK5
74 : #include "pm_sampleScale@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #if CK4_ENABLED
79 0 : module procedure getScaled_ARK_ONO_D1_CK4
80 : use pm_kind, only: CKC => CK4
81 : #include "pm_sampleScale@routines.inc.F90"
82 0 : end procedure
83 : #endif
84 :
85 : #if CK3_ENABLED
86 0 : module procedure getScaled_ARK_ONO_D1_CK3
87 : use pm_kind, only: CKC => CK3
88 : #include "pm_sampleScale@routines.inc.F90"
89 0 : end procedure
90 : #endif
91 :
92 : #if CK2_ENABLED
93 0 : module procedure getScaled_ARK_ONO_D1_CK2
94 : use pm_kind, only: CKC => CK2
95 : #include "pm_sampleScale@routines.inc.F90"
96 0 : end procedure
97 : #endif
98 :
99 : #if CK1_ENABLED
100 1 : module procedure getScaled_ARK_ONO_D1_CK1
101 : use pm_kind, only: CKC => CK1
102 : #include "pm_sampleScale@routines.inc.F90"
103 1 : end procedure
104 : #endif
105 :
106 : #undef CK_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #define RK_ENABLED 1
111 :
112 : #if RK5_ENABLED
113 : module procedure getScaled_ARK_ONO_D1_RK5
114 : use pm_kind, only: RKC => RK5
115 : #include "pm_sampleScale@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #if RK4_ENABLED
120 0 : module procedure getScaled_ARK_ONO_D1_RK4
121 : use pm_kind, only: RKC => RK4
122 : #include "pm_sampleScale@routines.inc.F90"
123 0 : end procedure
124 : #endif
125 :
126 : #if RK3_ENABLED
127 0 : module procedure getScaled_ARK_ONO_D1_RK3
128 : use pm_kind, only: RKC => RK3
129 : #include "pm_sampleScale@routines.inc.F90"
130 0 : end procedure
131 : #endif
132 :
133 : #if RK2_ENABLED
134 0 : module procedure getScaled_ARK_ONO_D1_RK2
135 : use pm_kind, only: RKC => RK2
136 : #include "pm_sampleScale@routines.inc.F90"
137 0 : end procedure
138 : #endif
139 :
140 : #if RK1_ENABLED
141 1 : module procedure getScaled_ARK_ONO_D1_RK1
142 : use pm_kind, only: RKC => RK1
143 : #include "pm_sampleScale@routines.inc.F90"
144 1 : end procedure
145 : #endif
146 :
147 : #undef RK_ENABLED
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 :
151 : #undef ONO_ENABLED
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #undef D1_ENABLED
158 :
159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 :
163 : #define D2_ENABLED 1
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : #define ONO_ENABLED 1
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : #define CK_ENABLED 1
174 :
175 : #if CK5_ENABLED
176 : module procedure getScaled_ARK_ONO_D2_CK5
177 : use pm_kind, only: CKC => CK5
178 : #include "pm_sampleScale@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #if CK4_ENABLED
183 0 : module procedure getScaled_ARK_ONO_D2_CK4
184 : use pm_kind, only: CKC => CK4
185 : #include "pm_sampleScale@routines.inc.F90"
186 0 : end procedure
187 : #endif
188 :
189 : #if CK3_ENABLED
190 0 : module procedure getScaled_ARK_ONO_D2_CK3
191 : use pm_kind, only: CKC => CK3
192 : #include "pm_sampleScale@routines.inc.F90"
193 0 : end procedure
194 : #endif
195 :
196 : #if CK2_ENABLED
197 0 : module procedure getScaled_ARK_ONO_D2_CK2
198 : use pm_kind, only: CKC => CK2
199 : #include "pm_sampleScale@routines.inc.F90"
200 0 : end procedure
201 : #endif
202 :
203 : #if CK1_ENABLED
204 1 : module procedure getScaled_ARK_ONO_D2_CK1
205 : use pm_kind, only: CKC => CK1
206 : #include "pm_sampleScale@routines.inc.F90"
207 1 : end procedure
208 : #endif
209 :
210 : #undef CK_ENABLED
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #define RK_ENABLED 1
215 :
216 : #if RK5_ENABLED
217 : module procedure getScaled_ARK_ONO_D2_RK5
218 : use pm_kind, only: RKC => RK5
219 : #include "pm_sampleScale@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if RK4_ENABLED
224 0 : module procedure getScaled_ARK_ONO_D2_RK4
225 : use pm_kind, only: RKC => RK4
226 : #include "pm_sampleScale@routines.inc.F90"
227 0 : end procedure
228 : #endif
229 :
230 : #if RK3_ENABLED
231 0 : module procedure getScaled_ARK_ONO_D2_RK3
232 : use pm_kind, only: RKC => RK3
233 : #include "pm_sampleScale@routines.inc.F90"
234 0 : end procedure
235 : #endif
236 :
237 : #if RK2_ENABLED
238 0 : module procedure getScaled_ARK_ONO_D2_RK2
239 : use pm_kind, only: RKC => RK2
240 : #include "pm_sampleScale@routines.inc.F90"
241 0 : end procedure
242 : #endif
243 :
244 : #if RK1_ENABLED
245 1 : module procedure getScaled_ARK_ONO_D2_RK1
246 : use pm_kind, only: RKC => RK1
247 : #include "pm_sampleScale@routines.inc.F90"
248 1 : end procedure
249 : #endif
250 :
251 : #undef RK_ENABLED
252 :
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #undef ONO_ENABLED
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : #define OTH_ENABLED 1
262 :
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 :
265 : #define CK_ENABLED 1
266 :
267 : #if CK5_ENABLED
268 : module procedure getScaled_ARK_OTH_D2_CK5
269 : use pm_kind, only: CKC => CK5
270 : #include "pm_sampleScale@routines.inc.F90"
271 : end procedure
272 : #endif
273 :
274 : #if CK4_ENABLED
275 0 : module procedure getScaled_ARK_OTH_D2_CK4
276 : use pm_kind, only: CKC => CK4
277 : #include "pm_sampleScale@routines.inc.F90"
278 0 : end procedure
279 : #endif
280 :
281 : #if CK3_ENABLED
282 0 : module procedure getScaled_ARK_OTH_D2_CK3
283 : use pm_kind, only: CKC => CK3
284 : #include "pm_sampleScale@routines.inc.F90"
285 0 : end procedure
286 : #endif
287 :
288 : #if CK2_ENABLED
289 0 : module procedure getScaled_ARK_OTH_D2_CK2
290 : use pm_kind, only: CKC => CK2
291 : #include "pm_sampleScale@routines.inc.F90"
292 0 : end procedure
293 : #endif
294 :
295 : #if CK1_ENABLED
296 1 : module procedure getScaled_ARK_OTH_D2_CK1
297 : use pm_kind, only: CKC => CK1
298 : #include "pm_sampleScale@routines.inc.F90"
299 1 : end procedure
300 : #endif
301 :
302 : #undef CK_ENABLED
303 :
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 :
306 : #define RK_ENABLED 1
307 :
308 : #if RK5_ENABLED
309 : module procedure getScaled_ARK_OTH_D2_RK5
310 : use pm_kind, only: RKC => RK5
311 : #include "pm_sampleScale@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if RK4_ENABLED
316 0 : module procedure getScaled_ARK_OTH_D2_RK4
317 : use pm_kind, only: RKC => RK4
318 : #include "pm_sampleScale@routines.inc.F90"
319 0 : end procedure
320 : #endif
321 :
322 : #if RK3_ENABLED
323 0 : module procedure getScaled_ARK_OTH_D2_RK3
324 : use pm_kind, only: RKC => RK3
325 : #include "pm_sampleScale@routines.inc.F90"
326 0 : end procedure
327 : #endif
328 :
329 : #if RK2_ENABLED
330 0 : module procedure getScaled_ARK_OTH_D2_RK2
331 : use pm_kind, only: RKC => RK2
332 : #include "pm_sampleScale@routines.inc.F90"
333 0 : end procedure
334 : #endif
335 :
336 : #if RK1_ENABLED
337 1 : module procedure getScaled_ARK_OTH_D2_RK1
338 : use pm_kind, only: RKC => RK1
339 : #include "pm_sampleScale@routines.inc.F90"
340 1 : end procedure
341 : #endif
342 :
343 : #undef RK_ENABLED
344 :
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 :
347 : #undef OTH_ENABLED
348 :
349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352 :
353 : #undef D2_ENABLED
354 :
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #undef ARK_ENABLED
360 :
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #undef getScaled_ENABLED
366 :
367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 :
369 : #define getScaled_ENABLED 1
370 :
371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 :
375 : #define ACK_ENABLED 1
376 :
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #define D1_ENABLED 1
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : #define ONO_ENABLED 1
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 :
391 : #define CK_ENABLED 1
392 :
393 : #if CK5_ENABLED
394 : module procedure getScaled_ACK_ONO_D1_CK5
395 : use pm_kind, only: CKC => CK5
396 : #include "pm_sampleScale@routines.inc.F90"
397 : end procedure
398 : #endif
399 :
400 : #if CK4_ENABLED
401 0 : module procedure getScaled_ACK_ONO_D1_CK4
402 : use pm_kind, only: CKC => CK4
403 : #include "pm_sampleScale@routines.inc.F90"
404 0 : end procedure
405 : #endif
406 :
407 : #if CK3_ENABLED
408 0 : module procedure getScaled_ACK_ONO_D1_CK3
409 : use pm_kind, only: CKC => CK3
410 : #include "pm_sampleScale@routines.inc.F90"
411 0 : end procedure
412 : #endif
413 :
414 : #if CK2_ENABLED
415 0 : module procedure getScaled_ACK_ONO_D1_CK2
416 : use pm_kind, only: CKC => CK2
417 : #include "pm_sampleScale@routines.inc.F90"
418 0 : end procedure
419 : #endif
420 :
421 : #if CK1_ENABLED
422 0 : module procedure getScaled_ACK_ONO_D1_CK1
423 : use pm_kind, only: CKC => CK1
424 : #include "pm_sampleScale@routines.inc.F90"
425 0 : end procedure
426 : #endif
427 :
428 : #undef CK_ENABLED
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #undef ONO_ENABLED
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #undef D1_ENABLED
439 :
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 :
444 : #define D2_ENABLED 1
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 :
450 : #define ONO_ENABLED 1
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #define CK_ENABLED 1
455 :
456 : #if CK5_ENABLED
457 : module procedure getScaled_ACK_ONO_D2_CK5
458 : use pm_kind, only: CKC => CK5
459 : #include "pm_sampleScale@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if CK4_ENABLED
464 0 : module procedure getScaled_ACK_ONO_D2_CK4
465 : use pm_kind, only: CKC => CK4
466 : #include "pm_sampleScale@routines.inc.F90"
467 0 : end procedure
468 : #endif
469 :
470 : #if CK3_ENABLED
471 0 : module procedure getScaled_ACK_ONO_D2_CK3
472 : use pm_kind, only: CKC => CK3
473 : #include "pm_sampleScale@routines.inc.F90"
474 0 : end procedure
475 : #endif
476 :
477 : #if CK2_ENABLED
478 0 : module procedure getScaled_ACK_ONO_D2_CK2
479 : use pm_kind, only: CKC => CK2
480 : #include "pm_sampleScale@routines.inc.F90"
481 0 : end procedure
482 : #endif
483 :
484 : #if CK1_ENABLED
485 0 : module procedure getScaled_ACK_ONO_D2_CK1
486 : use pm_kind, only: CKC => CK1
487 : #include "pm_sampleScale@routines.inc.F90"
488 0 : end procedure
489 : #endif
490 :
491 : #undef CK_ENABLED
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #undef ONO_ENABLED
496 :
497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 :
501 : #define OTH_ENABLED 1
502 :
503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504 :
505 : #define CK_ENABLED 1
506 :
507 : #if CK5_ENABLED
508 : module procedure getScaled_ACK_OTH_D2_CK5
509 : use pm_kind, only: CKC => CK5
510 : #include "pm_sampleScale@routines.inc.F90"
511 : end procedure
512 : #endif
513 :
514 : #if CK4_ENABLED
515 0 : module procedure getScaled_ACK_OTH_D2_CK4
516 : use pm_kind, only: CKC => CK4
517 : #include "pm_sampleScale@routines.inc.F90"
518 0 : end procedure
519 : #endif
520 :
521 : #if CK3_ENABLED
522 0 : module procedure getScaled_ACK_OTH_D2_CK3
523 : use pm_kind, only: CKC => CK3
524 : #include "pm_sampleScale@routines.inc.F90"
525 0 : end procedure
526 : #endif
527 :
528 : #if CK2_ENABLED
529 0 : module procedure getScaled_ACK_OTH_D2_CK2
530 : use pm_kind, only: CKC => CK2
531 : #include "pm_sampleScale@routines.inc.F90"
532 0 : end procedure
533 : #endif
534 :
535 : #if CK1_ENABLED
536 0 : module procedure getScaled_ACK_OTH_D2_CK1
537 : use pm_kind, only: CKC => CK1
538 : #include "pm_sampleScale@routines.inc.F90"
539 0 : end procedure
540 : #endif
541 :
542 : #undef CK_ENABLED
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #undef OTH_ENABLED
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #undef D2_ENABLED
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 : #undef ACK_ENABLED
559 :
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 :
564 : #undef getScaled_ENABLED
565 :
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 :
568 : #define setScaled_ENABLED 1
569 :
570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 :
574 : #define ARK_ENABLED 1
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 :
580 : #define D1_ENABLED 1
581 :
582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 :
584 : #define CK_ENABLED 1
585 :
586 : #if CK5_ENABLED
587 : module procedure setScaled_ARK_D1_CK5
588 : use pm_kind, only: CKC => CK5
589 : #include "pm_sampleScale@routines.inc.F90"
590 : end procedure
591 : #endif
592 :
593 : #if CK4_ENABLED
594 0 : module procedure setScaled_ARK_D1_CK4
595 : use pm_kind, only: CKC => CK4
596 : #include "pm_sampleScale@routines.inc.F90"
597 0 : end procedure
598 : #endif
599 :
600 : #if CK3_ENABLED
601 0 : module procedure setScaled_ARK_D1_CK3
602 : use pm_kind, only: CKC => CK3
603 : #include "pm_sampleScale@routines.inc.F90"
604 0 : end procedure
605 : #endif
606 :
607 : #if CK2_ENABLED
608 0 : module procedure setScaled_ARK_D1_CK2
609 : use pm_kind, only: CKC => CK2
610 : #include "pm_sampleScale@routines.inc.F90"
611 0 : end procedure
612 : #endif
613 :
614 : #if CK1_ENABLED
615 1 : module procedure setScaled_ARK_D1_CK1
616 : use pm_kind, only: CKC => CK1
617 : #include "pm_sampleScale@routines.inc.F90"
618 1 : end procedure
619 : #endif
620 :
621 : #undef CK_ENABLED
622 :
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #define RK_ENABLED 1
626 :
627 : #if RK5_ENABLED
628 : module procedure setScaled_ARK_D1_RK5
629 : use pm_kind, only: RKC => RK5
630 : #include "pm_sampleScale@routines.inc.F90"
631 : end procedure
632 : #endif
633 :
634 : #if RK4_ENABLED
635 0 : module procedure setScaled_ARK_D1_RK4
636 : use pm_kind, only: RKC => RK4
637 : #include "pm_sampleScale@routines.inc.F90"
638 0 : end procedure
639 : #endif
640 :
641 : #if RK3_ENABLED
642 0 : module procedure setScaled_ARK_D1_RK3
643 : use pm_kind, only: RKC => RK3
644 : #include "pm_sampleScale@routines.inc.F90"
645 0 : end procedure
646 : #endif
647 :
648 : #if RK2_ENABLED
649 0 : module procedure setScaled_ARK_D1_RK2
650 : use pm_kind, only: RKC => RK2
651 : #include "pm_sampleScale@routines.inc.F90"
652 0 : end procedure
653 : #endif
654 :
655 : #if RK1_ENABLED
656 1 : module procedure setScaled_ARK_D1_RK1
657 : use pm_kind, only: RKC => RK1
658 : #include "pm_sampleScale@routines.inc.F90"
659 1 : end procedure
660 : #endif
661 :
662 : #undef RK_ENABLED
663 :
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 :
666 : #undef D1_ENABLED
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define D2_ENABLED 1
673 :
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #define CK_ENABLED 1
677 :
678 : #if CK5_ENABLED
679 : module procedure setScaled_ARK_D2_CK5
680 : use pm_kind, only: CKC => CK5
681 : #include "pm_sampleScale@routines.inc.F90"
682 : end procedure
683 : #endif
684 :
685 : #if CK4_ENABLED
686 0 : module procedure setScaled_ARK_D2_CK4
687 : use pm_kind, only: CKC => CK4
688 : #include "pm_sampleScale@routines.inc.F90"
689 0 : end procedure
690 : #endif
691 :
692 : #if CK3_ENABLED
693 0 : module procedure setScaled_ARK_D2_CK3
694 : use pm_kind, only: CKC => CK3
695 : #include "pm_sampleScale@routines.inc.F90"
696 0 : end procedure
697 : #endif
698 :
699 : #if CK2_ENABLED
700 0 : module procedure setScaled_ARK_D2_CK2
701 : use pm_kind, only: CKC => CK2
702 : #include "pm_sampleScale@routines.inc.F90"
703 0 : end procedure
704 : #endif
705 :
706 : #if CK1_ENABLED
707 1 : module procedure setScaled_ARK_D2_CK1
708 : use pm_kind, only: CKC => CK1
709 : #include "pm_sampleScale@routines.inc.F90"
710 1 : end procedure
711 : #endif
712 :
713 : #undef CK_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #define RK_ENABLED 1
718 :
719 : #if RK5_ENABLED
720 : module procedure setScaled_ARK_D2_RK5
721 : use pm_kind, only: RKC => RK5
722 : #include "pm_sampleScale@routines.inc.F90"
723 : end procedure
724 : #endif
725 :
726 : #if RK4_ENABLED
727 0 : module procedure setScaled_ARK_D2_RK4
728 : use pm_kind, only: RKC => RK4
729 : #include "pm_sampleScale@routines.inc.F90"
730 0 : end procedure
731 : #endif
732 :
733 : #if RK3_ENABLED
734 0 : module procedure setScaled_ARK_D2_RK3
735 : use pm_kind, only: RKC => RK3
736 : #include "pm_sampleScale@routines.inc.F90"
737 0 : end procedure
738 : #endif
739 :
740 : #if RK2_ENABLED
741 0 : module procedure setScaled_ARK_D2_RK2
742 : use pm_kind, only: RKC => RK2
743 : #include "pm_sampleScale@routines.inc.F90"
744 0 : end procedure
745 : #endif
746 :
747 : #if RK1_ENABLED
748 1 : module procedure setScaled_ARK_D2_RK1
749 : use pm_kind, only: RKC => RK1
750 : #include "pm_sampleScale@routines.inc.F90"
751 1 : end procedure
752 : #endif
753 :
754 : #undef RK_ENABLED
755 :
756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 :
758 : #undef D2_ENABLED
759 :
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 :
764 : #undef ARK_ENABLED
765 :
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 :
770 : #undef setScaled_ENABLED
771 :
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 :
774 : #define setScaled_ENABLED 1
775 :
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #define ACK_ENABLED 1
781 :
782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #define D1_ENABLED 1
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 :
790 : #define CK_ENABLED 1
791 :
792 : #if CK5_ENABLED
793 : module procedure setScaled_ACK_D1_CK5
794 : use pm_kind, only: CKC => CK5
795 : #include "pm_sampleScale@routines.inc.F90"
796 : end procedure
797 : #endif
798 :
799 : #if CK4_ENABLED
800 0 : module procedure setScaled_ACK_D1_CK4
801 : use pm_kind, only: CKC => CK4
802 : #include "pm_sampleScale@routines.inc.F90"
803 0 : end procedure
804 : #endif
805 :
806 : #if CK3_ENABLED
807 0 : module procedure setScaled_ACK_D1_CK3
808 : use pm_kind, only: CKC => CK3
809 : #include "pm_sampleScale@routines.inc.F90"
810 0 : end procedure
811 : #endif
812 :
813 : #if CK2_ENABLED
814 0 : module procedure setScaled_ACK_D1_CK2
815 : use pm_kind, only: CKC => CK2
816 : #include "pm_sampleScale@routines.inc.F90"
817 0 : end procedure
818 : #endif
819 :
820 : #if CK1_ENABLED
821 0 : module procedure setScaled_ACK_D1_CK1
822 : use pm_kind, only: CKC => CK1
823 : #include "pm_sampleScale@routines.inc.F90"
824 0 : end procedure
825 : #endif
826 :
827 : #undef CK_ENABLED
828 :
829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 :
831 : #undef D1_ENABLED
832 :
833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
836 :
837 : #define D2_ENABLED 1
838 :
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 :
841 : #define CK_ENABLED 1
842 :
843 : #if CK5_ENABLED
844 : module procedure setScaled_ACK_D2_CK5
845 : use pm_kind, only: CKC => CK5
846 : #include "pm_sampleScale@routines.inc.F90"
847 : end procedure
848 : #endif
849 :
850 : #if CK4_ENABLED
851 0 : module procedure setScaled_ACK_D2_CK4
852 : use pm_kind, only: CKC => CK4
853 : #include "pm_sampleScale@routines.inc.F90"
854 0 : end procedure
855 : #endif
856 :
857 : #if CK3_ENABLED
858 0 : module procedure setScaled_ACK_D2_CK3
859 : use pm_kind, only: CKC => CK3
860 : #include "pm_sampleScale@routines.inc.F90"
861 0 : end procedure
862 : #endif
863 :
864 : #if CK2_ENABLED
865 0 : module procedure setScaled_ACK_D2_CK2
866 : use pm_kind, only: CKC => CK2
867 : #include "pm_sampleScale@routines.inc.F90"
868 0 : end procedure
869 : #endif
870 :
871 : #if CK1_ENABLED
872 0 : module procedure setScaled_ACK_D2_CK1
873 : use pm_kind, only: CKC => CK1
874 : #include "pm_sampleScale@routines.inc.F90"
875 0 : end procedure
876 : #endif
877 :
878 : #undef CK_ENABLED
879 :
880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
881 :
882 : #undef D2_ENABLED
883 :
884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 :
888 : #undef ACK_ENABLED
889 :
890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #undef setScaled_ENABLED
895 :
896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
897 :
898 : end submodule routines
|
