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_distGeomCyclic](@ref pm_distGeomCyclic).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Monday March 6, 2017, 3:22 pm, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin.<br>
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distGeomCyclic) 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 : use pm_math1mexp, only: get1mexp
40 : use pm_distGeom, only: setGeomRand
41 : use pm_optimization, only: getMinBrent
42 : use pm_optimization, only: setMinBrent
43 : use pm_optimization, only: isFailedMinPowell
44 :
45 : implicit none
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : contains
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define getGeomCyclicLogPMF_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 :
59 : #define D0_ENABLED 1
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #define RK_ENABLED 1
64 :
65 : #if RK5_ENABLED
66 : module procedure getGeomCyclicLogPMF_D0_IK_RK5
67 : use pm_kind, only: RKC => RK5
68 : #include "pm_distGeomCyclic@routines.inc.F90"
69 : end procedure
70 : #endif
71 :
72 : #if RK4_ENABLED
73 0 : module procedure getGeomCyclicLogPMF_D0_IK_RK4
74 : use pm_kind, only: RKC => RK4
75 : #include "pm_distGeomCyclic@routines.inc.F90"
76 0 : end procedure
77 : #endif
78 :
79 : #if RK3_ENABLED
80 0 : module procedure getGeomCyclicLogPMF_D0_IK_RK3
81 : use pm_kind, only: RKC => RK3
82 : #include "pm_distGeomCyclic@routines.inc.F90"
83 0 : end procedure
84 : #endif
85 :
86 : #if RK2_ENABLED
87 410 : module procedure getGeomCyclicLogPMF_D0_IK_RK2
88 : use pm_kind, only: RKC => RK2
89 : #include "pm_distGeomCyclic@routines.inc.F90"
90 410 : end procedure
91 : #endif
92 :
93 : #if RK1_ENABLED
94 164 : module procedure getGeomCyclicLogPMF_D0_IK_RK1
95 : use pm_kind, only: RKC => RK1
96 : #include "pm_distGeomCyclic@routines.inc.F90"
97 164 : end procedure
98 : #endif
99 :
100 : #undef RK_ENABLED
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define RK_ENABLED 1
105 :
106 : #if RK5_ENABLED
107 : module procedure getGeomCyclicLogPMF_D0_RK_RK5
108 : use pm_kind, only: RKC => RK5
109 : #include "pm_distGeomCyclic@routines.inc.F90"
110 : end procedure
111 : #endif
112 :
113 : #if RK4_ENABLED
114 500 : module procedure getGeomCyclicLogPMF_D0_RK_RK4
115 : use pm_kind, only: RKC => RK4
116 : #include "pm_distGeomCyclic@routines.inc.F90"
117 500 : end procedure
118 : #endif
119 :
120 : #if RK3_ENABLED
121 0 : module procedure getGeomCyclicLogPMF_D0_RK_RK3
122 : use pm_kind, only: RKC => RK3
123 : #include "pm_distGeomCyclic@routines.inc.F90"
124 0 : end procedure
125 : #endif
126 :
127 : #if RK2_ENABLED
128 0 : module procedure getGeomCyclicLogPMF_D0_RK_RK2
129 : use pm_kind, only: RKC => RK2
130 : #include "pm_distGeomCyclic@routines.inc.F90"
131 0 : end procedure
132 : #endif
133 :
134 : #if RK1_ENABLED
135 0 : module procedure getGeomCyclicLogPMF_D0_RK_RK1
136 : use pm_kind, only: RKC => RK1
137 : #include "pm_distGeomCyclic@routines.inc.F90"
138 0 : end procedure
139 : #endif
140 :
141 : #undef RK_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #undef D0_ENABLED
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 :
151 : #undef getGeomCyclicLogPMF_ENABLED
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : #define setGeomCyclicLogPMF_ENABLED 1
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160 :
161 : #define D0_ENABLED 1
162 :
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 :
167 : #define Def_ENABLED 1
168 :
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 :
171 : #define RK_ENABLED 1
172 :
173 : #if RK5_ENABLED
174 : module procedure setGeomCyclicLogPMFDef_D0_IK_RK5
175 : use pm_kind, only: RKC => RK5
176 : #include "pm_distGeomCyclic@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if RK4_ENABLED
181 0 : module procedure setGeomCyclicLogPMFDef_D0_IK_RK4
182 : use pm_kind, only: RKC => RK4
183 : #include "pm_distGeomCyclic@routines.inc.F90"
184 0 : end procedure
185 : #endif
186 :
187 : #if RK3_ENABLED
188 0 : module procedure setGeomCyclicLogPMFDef_D0_IK_RK3
189 : use pm_kind, only: RKC => RK3
190 : #include "pm_distGeomCyclic@routines.inc.F90"
191 0 : end procedure
192 : #endif
193 :
194 : #if RK2_ENABLED
195 457 : module procedure setGeomCyclicLogPMFDef_D0_IK_RK2
196 : use pm_kind, only: RKC => RK2
197 : #include "pm_distGeomCyclic@routines.inc.F90"
198 457 : end procedure
199 : #endif
200 :
201 : #if RK1_ENABLED
202 164 : module procedure setGeomCyclicLogPMFDef_D0_IK_RK1
203 : use pm_kind, only: RKC => RK1
204 : #include "pm_distGeomCyclic@routines.inc.F90"
205 164 : end procedure
206 : #endif
207 :
208 : #undef RK_ENABLED
209 :
210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 :
212 : #define RK_ENABLED 1
213 :
214 : #if RK5_ENABLED
215 : module procedure setGeomCyclicLogPMFDef_D0_RK_RK5
216 : use pm_kind, only: RKC => RK5
217 : #include "pm_distGeomCyclic@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if RK4_ENABLED
222 500 : module procedure setGeomCyclicLogPMFDef_D0_RK_RK4
223 : use pm_kind, only: RKC => RK4
224 : #include "pm_distGeomCyclic@routines.inc.F90"
225 500 : end procedure
226 : #endif
227 :
228 : #if RK3_ENABLED
229 0 : module procedure setGeomCyclicLogPMFDef_D0_RK_RK3
230 : use pm_kind, only: RKC => RK3
231 : #include "pm_distGeomCyclic@routines.inc.F90"
232 0 : end procedure
233 : #endif
234 :
235 : #if RK2_ENABLED
236 0 : module procedure setGeomCyclicLogPMFDef_D0_RK_RK2
237 : use pm_kind, only: RKC => RK2
238 : #include "pm_distGeomCyclic@routines.inc.F90"
239 0 : end procedure
240 : #endif
241 :
242 : #if RK1_ENABLED
243 0 : module procedure setGeomCyclicLogPMFDef_D0_RK_RK1
244 : use pm_kind, only: RKC => RK1
245 : #include "pm_distGeomCyclic@routines.inc.F90"
246 0 : end procedure
247 : #endif
248 :
249 : #undef RK_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 :
253 : #undef Def_ENABLED
254 :
255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define Log_ENABLED 1
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 :
263 : #define RK_ENABLED 1
264 :
265 : #if RK5_ENABLED
266 : module procedure setGeomCyclicLogPMFLog_D0_IK_RK5
267 : use pm_kind, only: RKC => RK5
268 : #include "pm_distGeomCyclic@routines.inc.F90"
269 : end procedure
270 : #endif
271 :
272 : #if RK4_ENABLED
273 0 : module procedure setGeomCyclicLogPMFLog_D0_IK_RK4
274 : use pm_kind, only: RKC => RK4
275 : #include "pm_distGeomCyclic@routines.inc.F90"
276 0 : end procedure
277 : #endif
278 :
279 : #if RK3_ENABLED
280 0 : module procedure setGeomCyclicLogPMFLog_D0_IK_RK3
281 : use pm_kind, only: RKC => RK3
282 : #include "pm_distGeomCyclic@routines.inc.F90"
283 0 : end procedure
284 : #endif
285 :
286 : #if RK2_ENABLED
287 0 : module procedure setGeomCyclicLogPMFLog_D0_IK_RK2
288 : use pm_kind, only: RKC => RK2
289 : #include "pm_distGeomCyclic@routines.inc.F90"
290 0 : end procedure
291 : #endif
292 :
293 : #if RK1_ENABLED
294 0 : module procedure setGeomCyclicLogPMFLog_D0_IK_RK1
295 : use pm_kind, only: RKC => RK1
296 : #include "pm_distGeomCyclic@routines.inc.F90"
297 0 : end procedure
298 : #endif
299 :
300 : #undef RK_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : #define RK_ENABLED 1
305 :
306 : #if RK5_ENABLED
307 : module procedure setGeomCyclicLogPMFLog_D0_RK_RK5
308 : use pm_kind, only: RKC => RK5
309 : #include "pm_distGeomCyclic@routines.inc.F90"
310 : end procedure
311 : #endif
312 :
313 : #if RK4_ENABLED
314 0 : module procedure setGeomCyclicLogPMFLog_D0_RK_RK4
315 : use pm_kind, only: RKC => RK4
316 : #include "pm_distGeomCyclic@routines.inc.F90"
317 0 : end procedure
318 : #endif
319 :
320 : #if RK3_ENABLED
321 0 : module procedure setGeomCyclicLogPMFLog_D0_RK_RK3
322 : use pm_kind, only: RKC => RK3
323 : #include "pm_distGeomCyclic@routines.inc.F90"
324 0 : end procedure
325 : #endif
326 :
327 : #if RK2_ENABLED
328 0 : module procedure setGeomCyclicLogPMFLog_D0_RK_RK2
329 : use pm_kind, only: RKC => RK2
330 : #include "pm_distGeomCyclic@routines.inc.F90"
331 0 : end procedure
332 : #endif
333 :
334 : #if RK1_ENABLED
335 0 : module procedure setGeomCyclicLogPMFLog_D0_RK_RK1
336 : use pm_kind, only: RKC => RK1
337 : #include "pm_distGeomCyclic@routines.inc.F90"
338 0 : end procedure
339 : #endif
340 :
341 : #undef RK_ENABLED
342 :
343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 :
345 : #undef Log_ENABLED
346 :
347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350 :
351 : #undef D0_ENABLED
352 :
353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 :
357 : #define D1_ENABLED 1
358 :
359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 :
363 : #define Def_ENABLED 1
364 :
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 :
367 : #define RK_ENABLED 1
368 :
369 : #if RK5_ENABLED
370 : module procedure setGeomCyclicLogPMFDef_D1_IK_RK5
371 : use pm_kind, only: RKC => RK5
372 : #include "pm_distGeomCyclic@routines.inc.F90"
373 : end procedure
374 : #endif
375 :
376 : #if RK4_ENABLED
377 0 : module procedure setGeomCyclicLogPMFDef_D1_IK_RK4
378 : use pm_kind, only: RKC => RK4
379 : #include "pm_distGeomCyclic@routines.inc.F90"
380 0 : end procedure
381 : #endif
382 :
383 : #if RK3_ENABLED
384 0 : module procedure setGeomCyclicLogPMFDef_D1_IK_RK3
385 : use pm_kind, only: RKC => RK3
386 : #include "pm_distGeomCyclic@routines.inc.F90"
387 0 : end procedure
388 : #endif
389 :
390 : #if RK2_ENABLED
391 0 : module procedure setGeomCyclicLogPMFDef_D1_IK_RK2
392 : use pm_kind, only: RKC => RK2
393 : #include "pm_distGeomCyclic@routines.inc.F90"
394 0 : end procedure
395 : #endif
396 :
397 : #if RK1_ENABLED
398 0 : module procedure setGeomCyclicLogPMFDef_D1_IK_RK1
399 : use pm_kind, only: RKC => RK1
400 : #include "pm_distGeomCyclic@routines.inc.F90"
401 0 : end procedure
402 : #endif
403 :
404 : #undef RK_ENABLED
405 :
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 :
408 : #define RK_ENABLED 1
409 :
410 : #if RK5_ENABLED
411 : module procedure setGeomCyclicLogPMFDef_D1_RK_RK5
412 : use pm_kind, only: RKC => RK5
413 : #include "pm_distGeomCyclic@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if RK4_ENABLED
418 0 : module procedure setGeomCyclicLogPMFDef_D1_RK_RK4
419 : use pm_kind, only: RKC => RK4
420 : #include "pm_distGeomCyclic@routines.inc.F90"
421 0 : end procedure
422 : #endif
423 :
424 : #if RK3_ENABLED
425 0 : module procedure setGeomCyclicLogPMFDef_D1_RK_RK3
426 : use pm_kind, only: RKC => RK3
427 : #include "pm_distGeomCyclic@routines.inc.F90"
428 0 : end procedure
429 : #endif
430 :
431 : #if RK2_ENABLED
432 0 : module procedure setGeomCyclicLogPMFDef_D1_RK_RK2
433 : use pm_kind, only: RKC => RK2
434 : #include "pm_distGeomCyclic@routines.inc.F90"
435 0 : end procedure
436 : #endif
437 :
438 : #if RK1_ENABLED
439 0 : module procedure setGeomCyclicLogPMFDef_D1_RK_RK1
440 : use pm_kind, only: RKC => RK1
441 : #include "pm_distGeomCyclic@routines.inc.F90"
442 0 : end procedure
443 : #endif
444 :
445 : #undef RK_ENABLED
446 :
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 :
449 : #undef Def_ENABLED
450 :
451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 :
455 : #define Log_ENABLED 1
456 :
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 :
459 : #define RK_ENABLED 1
460 :
461 : #if RK5_ENABLED
462 : module procedure setGeomCyclicLogPMFLog_D1_IK_RK5
463 : use pm_kind, only: RKC => RK5
464 : #include "pm_distGeomCyclic@routines.inc.F90"
465 : end procedure
466 : #endif
467 :
468 : #if RK4_ENABLED
469 1 : module procedure setGeomCyclicLogPMFLog_D1_IK_RK4
470 : use pm_kind, only: RKC => RK4
471 : #include "pm_distGeomCyclic@routines.inc.F90"
472 1 : end procedure
473 : #endif
474 :
475 : #if RK3_ENABLED
476 0 : module procedure setGeomCyclicLogPMFLog_D1_IK_RK3
477 : use pm_kind, only: RKC => RK3
478 : #include "pm_distGeomCyclic@routines.inc.F90"
479 0 : end procedure
480 : #endif
481 :
482 : #if RK2_ENABLED
483 1 : module procedure setGeomCyclicLogPMFLog_D1_IK_RK2
484 : use pm_kind, only: RKC => RK2
485 : #include "pm_distGeomCyclic@routines.inc.F90"
486 1 : end procedure
487 : #endif
488 :
489 : #if RK1_ENABLED
490 0 : module procedure setGeomCyclicLogPMFLog_D1_IK_RK1
491 : use pm_kind, only: RKC => RK1
492 : #include "pm_distGeomCyclic@routines.inc.F90"
493 0 : end procedure
494 : #endif
495 :
496 : #undef RK_ENABLED
497 :
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 :
500 : #define RK_ENABLED 1
501 :
502 : #if RK5_ENABLED
503 : module procedure setGeomCyclicLogPMFLog_D1_RK_RK5
504 : use pm_kind, only: RKC => RK5
505 : #include "pm_distGeomCyclic@routines.inc.F90"
506 : end procedure
507 : #endif
508 :
509 : #if RK4_ENABLED
510 0 : module procedure setGeomCyclicLogPMFLog_D1_RK_RK4
511 : use pm_kind, only: RKC => RK4
512 : #include "pm_distGeomCyclic@routines.inc.F90"
513 0 : end procedure
514 : #endif
515 :
516 : #if RK3_ENABLED
517 0 : module procedure setGeomCyclicLogPMFLog_D1_RK_RK3
518 : use pm_kind, only: RKC => RK3
519 : #include "pm_distGeomCyclic@routines.inc.F90"
520 0 : end procedure
521 : #endif
522 :
523 : #if RK2_ENABLED
524 0 : module procedure setGeomCyclicLogPMFLog_D1_RK_RK2
525 : use pm_kind, only: RKC => RK2
526 : #include "pm_distGeomCyclic@routines.inc.F90"
527 0 : end procedure
528 : #endif
529 :
530 : #if RK1_ENABLED
531 0 : module procedure setGeomCyclicLogPMFLog_D1_RK_RK1
532 : use pm_kind, only: RKC => RK1
533 : #include "pm_distGeomCyclic@routines.inc.F90"
534 0 : end procedure
535 : #endif
536 :
537 : #undef RK_ENABLED
538 :
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 :
541 : #undef Log_ENABLED
542 :
543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 :
547 : #undef D1_ENABLED
548 :
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552 :
553 : #undef setGeomCyclicLogPMF_ENABLED
554 :
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 :
557 : #define getGeomCyclicLogCDF_ENABLED 1
558 :
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 :
563 : #define D0_ENABLED 1
564 :
565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 :
567 : #define RK_ENABLED 1
568 :
569 : #if RK5_ENABLED
570 : module procedure getGeomCyclicLogCDF_D0_IK_RK5
571 : use pm_kind, only: RKC => RK5
572 : #include "pm_distGeomCyclic@routines.inc.F90"
573 : end procedure
574 : #endif
575 :
576 : #if RK4_ENABLED
577 0 : module procedure getGeomCyclicLogCDF_D0_IK_RK4
578 : use pm_kind, only: RKC => RK4
579 : #include "pm_distGeomCyclic@routines.inc.F90"
580 0 : end procedure
581 : #endif
582 :
583 : #if RK3_ENABLED
584 0 : module procedure getGeomCyclicLogCDF_D0_IK_RK3
585 : use pm_kind, only: RKC => RK3
586 : #include "pm_distGeomCyclic@routines.inc.F90"
587 0 : end procedure
588 : #endif
589 :
590 : #if RK2_ENABLED
591 50 : module procedure getGeomCyclicLogCDF_D0_IK_RK2
592 : use pm_kind, only: RKC => RK2
593 : #include "pm_distGeomCyclic@routines.inc.F90"
594 50 : end procedure
595 : #endif
596 :
597 : #if RK1_ENABLED
598 0 : module procedure getGeomCyclicLogCDF_D0_IK_RK1
599 : use pm_kind, only: RKC => RK1
600 : #include "pm_distGeomCyclic@routines.inc.F90"
601 0 : end procedure
602 : #endif
603 :
604 : #undef RK_ENABLED
605 :
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 :
608 : #define RK_ENABLED 1
609 :
610 : #if RK5_ENABLED
611 : module procedure getGeomCyclicLogCDF_D0_RK_RK5
612 : use pm_kind, only: RKC => RK5
613 : #include "pm_distGeomCyclic@routines.inc.F90"
614 : end procedure
615 : #endif
616 :
617 : #if RK4_ENABLED
618 0 : module procedure getGeomCyclicLogCDF_D0_RK_RK4
619 : use pm_kind, only: RKC => RK4
620 : #include "pm_distGeomCyclic@routines.inc.F90"
621 0 : end procedure
622 : #endif
623 :
624 : #if RK3_ENABLED
625 0 : module procedure getGeomCyclicLogCDF_D0_RK_RK3
626 : use pm_kind, only: RKC => RK3
627 : #include "pm_distGeomCyclic@routines.inc.F90"
628 0 : end procedure
629 : #endif
630 :
631 : #if RK2_ENABLED
632 0 : module procedure getGeomCyclicLogCDF_D0_RK_RK2
633 : use pm_kind, only: RKC => RK2
634 : #include "pm_distGeomCyclic@routines.inc.F90"
635 0 : end procedure
636 : #endif
637 :
638 : #if RK1_ENABLED
639 0 : module procedure getGeomCyclicLogCDF_D0_RK_RK1
640 : use pm_kind, only: RKC => RK1
641 : #include "pm_distGeomCyclic@routines.inc.F90"
642 0 : end procedure
643 : #endif
644 :
645 : #undef RK_ENABLED
646 :
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 :
649 : #undef D0_ENABLED
650 :
651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
654 :
655 : #undef getGeomCyclicLogCDF_ENABLED
656 :
657 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
658 :
659 : #define setGeomCyclicLogCDF_ENABLED 1
660 :
661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 :
665 : #define D0_ENABLED 1
666 :
667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670 :
671 : #define Def_ENABLED 1
672 :
673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
674 :
675 : #define RK_ENABLED 1
676 :
677 : #if RK5_ENABLED
678 : module procedure setGeomCyclicLogCDFDef_D0_IK_RK5
679 : use pm_kind, only: RKC => RK5
680 : #include "pm_distGeomCyclic@routines.inc.F90"
681 : end procedure
682 : #endif
683 :
684 : #if RK4_ENABLED
685 0 : module procedure setGeomCyclicLogCDFDef_D0_IK_RK4
686 : use pm_kind, only: RKC => RK4
687 : #include "pm_distGeomCyclic@routines.inc.F90"
688 0 : end procedure
689 : #endif
690 :
691 : #if RK3_ENABLED
692 0 : module procedure setGeomCyclicLogCDFDef_D0_IK_RK3
693 : use pm_kind, only: RKC => RK3
694 : #include "pm_distGeomCyclic@routines.inc.F90"
695 0 : end procedure
696 : #endif
697 :
698 : #if RK2_ENABLED
699 97 : module procedure setGeomCyclicLogCDFDef_D0_IK_RK2
700 : use pm_kind, only: RKC => RK2
701 : #include "pm_distGeomCyclic@routines.inc.F90"
702 97 : end procedure
703 : #endif
704 :
705 : #if RK1_ENABLED
706 0 : module procedure setGeomCyclicLogCDFDef_D0_IK_RK1
707 : use pm_kind, only: RKC => RK1
708 : #include "pm_distGeomCyclic@routines.inc.F90"
709 0 : end procedure
710 : #endif
711 :
712 : #undef RK_ENABLED
713 :
714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
715 :
716 : #define RK_ENABLED 1
717 :
718 : #if RK5_ENABLED
719 : module procedure setGeomCyclicLogCDFDef_D0_RK_RK5
720 : use pm_kind, only: RKC => RK5
721 : #include "pm_distGeomCyclic@routines.inc.F90"
722 : end procedure
723 : #endif
724 :
725 : #if RK4_ENABLED
726 0 : module procedure setGeomCyclicLogCDFDef_D0_RK_RK4
727 : use pm_kind, only: RKC => RK4
728 : #include "pm_distGeomCyclic@routines.inc.F90"
729 0 : end procedure
730 : #endif
731 :
732 : #if RK3_ENABLED
733 0 : module procedure setGeomCyclicLogCDFDef_D0_RK_RK3
734 : use pm_kind, only: RKC => RK3
735 : #include "pm_distGeomCyclic@routines.inc.F90"
736 0 : end procedure
737 : #endif
738 :
739 : #if RK2_ENABLED
740 0 : module procedure setGeomCyclicLogCDFDef_D0_RK_RK2
741 : use pm_kind, only: RKC => RK2
742 : #include "pm_distGeomCyclic@routines.inc.F90"
743 0 : end procedure
744 : #endif
745 :
746 : #if RK1_ENABLED
747 0 : module procedure setGeomCyclicLogCDFDef_D0_RK_RK1
748 : use pm_kind, only: RKC => RK1
749 : #include "pm_distGeomCyclic@routines.inc.F90"
750 0 : end procedure
751 : #endif
752 :
753 : #undef RK_ENABLED
754 :
755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756 :
757 : #undef Def_ENABLED
758 :
759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 :
763 : #define Log_ENABLED 1
764 :
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 :
767 : #define RK_ENABLED 1
768 :
769 : #if RK5_ENABLED
770 : module procedure setGeomCyclicLogCDFLog_D0_IK_RK5
771 : use pm_kind, only: RKC => RK5
772 : #include "pm_distGeomCyclic@routines.inc.F90"
773 : end procedure
774 : #endif
775 :
776 : #if RK4_ENABLED
777 0 : module procedure setGeomCyclicLogCDFLog_D0_IK_RK4
778 : use pm_kind, only: RKC => RK4
779 : #include "pm_distGeomCyclic@routines.inc.F90"
780 0 : end procedure
781 : #endif
782 :
783 : #if RK3_ENABLED
784 0 : module procedure setGeomCyclicLogCDFLog_D0_IK_RK3
785 : use pm_kind, only: RKC => RK3
786 : #include "pm_distGeomCyclic@routines.inc.F90"
787 0 : end procedure
788 : #endif
789 :
790 : #if RK2_ENABLED
791 0 : module procedure setGeomCyclicLogCDFLog_D0_IK_RK2
792 : use pm_kind, only: RKC => RK2
793 : #include "pm_distGeomCyclic@routines.inc.F90"
794 0 : end procedure
795 : #endif
796 :
797 : #if RK1_ENABLED
798 0 : module procedure setGeomCyclicLogCDFLog_D0_IK_RK1
799 : use pm_kind, only: RKC => RK1
800 : #include "pm_distGeomCyclic@routines.inc.F90"
801 0 : end procedure
802 : #endif
803 :
804 : #undef RK_ENABLED
805 :
806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
807 :
808 : #define RK_ENABLED 1
809 :
810 : #if RK5_ENABLED
811 : module procedure setGeomCyclicLogCDFLog_D0_RK_RK5
812 : use pm_kind, only: RKC => RK5
813 : #include "pm_distGeomCyclic@routines.inc.F90"
814 : end procedure
815 : #endif
816 :
817 : #if RK4_ENABLED
818 0 : module procedure setGeomCyclicLogCDFLog_D0_RK_RK4
819 : use pm_kind, only: RKC => RK4
820 : #include "pm_distGeomCyclic@routines.inc.F90"
821 0 : end procedure
822 : #endif
823 :
824 : #if RK3_ENABLED
825 0 : module procedure setGeomCyclicLogCDFLog_D0_RK_RK3
826 : use pm_kind, only: RKC => RK3
827 : #include "pm_distGeomCyclic@routines.inc.F90"
828 0 : end procedure
829 : #endif
830 :
831 : #if RK2_ENABLED
832 0 : module procedure setGeomCyclicLogCDFLog_D0_RK_RK2
833 : use pm_kind, only: RKC => RK2
834 : #include "pm_distGeomCyclic@routines.inc.F90"
835 0 : end procedure
836 : #endif
837 :
838 : #if RK1_ENABLED
839 0 : module procedure setGeomCyclicLogCDFLog_D0_RK_RK1
840 : use pm_kind, only: RKC => RK1
841 : #include "pm_distGeomCyclic@routines.inc.F90"
842 0 : end procedure
843 : #endif
844 :
845 : #undef RK_ENABLED
846 :
847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
848 :
849 : #undef Log_ENABLED
850 :
851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854 :
855 : #undef D0_ENABLED
856 :
857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
860 :
861 : #define D1_ENABLED 1
862 :
863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866 :
867 : #define Def_ENABLED 1
868 :
869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
870 :
871 : #define RK_ENABLED 1
872 :
873 : #if RK5_ENABLED
874 : module procedure setGeomCyclicLogCDFDef_D1_IK_RK5
875 : use pm_kind, only: RKC => RK5
876 : #include "pm_distGeomCyclic@routines.inc.F90"
877 : end procedure
878 : #endif
879 :
880 : #if RK4_ENABLED
881 0 : module procedure setGeomCyclicLogCDFDef_D1_IK_RK4
882 : use pm_kind, only: RKC => RK4
883 : #include "pm_distGeomCyclic@routines.inc.F90"
884 0 : end procedure
885 : #endif
886 :
887 : #if RK3_ENABLED
888 0 : module procedure setGeomCyclicLogCDFDef_D1_IK_RK3
889 : use pm_kind, only: RKC => RK3
890 : #include "pm_distGeomCyclic@routines.inc.F90"
891 0 : end procedure
892 : #endif
893 :
894 : #if RK2_ENABLED
895 0 : module procedure setGeomCyclicLogCDFDef_D1_IK_RK2
896 : use pm_kind, only: RKC => RK2
897 : #include "pm_distGeomCyclic@routines.inc.F90"
898 0 : end procedure
899 : #endif
900 :
901 : #if RK1_ENABLED
902 0 : module procedure setGeomCyclicLogCDFDef_D1_IK_RK1
903 : use pm_kind, only: RKC => RK1
904 : #include "pm_distGeomCyclic@routines.inc.F90"
905 0 : end procedure
906 : #endif
907 :
908 : #undef RK_ENABLED
909 :
910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911 :
912 : #define RK_ENABLED 1
913 :
914 : #if RK5_ENABLED
915 : module procedure setGeomCyclicLogCDFDef_D1_RK_RK5
916 : use pm_kind, only: RKC => RK5
917 : #include "pm_distGeomCyclic@routines.inc.F90"
918 : end procedure
919 : #endif
920 :
921 : #if RK4_ENABLED
922 0 : module procedure setGeomCyclicLogCDFDef_D1_RK_RK4
923 : use pm_kind, only: RKC => RK4
924 : #include "pm_distGeomCyclic@routines.inc.F90"
925 0 : end procedure
926 : #endif
927 :
928 : #if RK3_ENABLED
929 0 : module procedure setGeomCyclicLogCDFDef_D1_RK_RK3
930 : use pm_kind, only: RKC => RK3
931 : #include "pm_distGeomCyclic@routines.inc.F90"
932 0 : end procedure
933 : #endif
934 :
935 : #if RK2_ENABLED
936 0 : module procedure setGeomCyclicLogCDFDef_D1_RK_RK2
937 : use pm_kind, only: RKC => RK2
938 : #include "pm_distGeomCyclic@routines.inc.F90"
939 0 : end procedure
940 : #endif
941 :
942 : #if RK1_ENABLED
943 0 : module procedure setGeomCyclicLogCDFDef_D1_RK_RK1
944 : use pm_kind, only: RKC => RK1
945 : #include "pm_distGeomCyclic@routines.inc.F90"
946 0 : end procedure
947 : #endif
948 :
949 : #undef RK_ENABLED
950 :
951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
952 :
953 : #undef Def_ENABLED
954 :
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
958 :
959 : #define Log_ENABLED 1
960 :
961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
962 :
963 : #define RK_ENABLED 1
964 :
965 : #if RK5_ENABLED
966 : module procedure setGeomCyclicLogCDFLog_D1_IK_RK5
967 : use pm_kind, only: RKC => RK5
968 : #include "pm_distGeomCyclic@routines.inc.F90"
969 : end procedure
970 : #endif
971 :
972 : #if RK4_ENABLED
973 0 : module procedure setGeomCyclicLogCDFLog_D1_IK_RK4
974 : use pm_kind, only: RKC => RK4
975 : #include "pm_distGeomCyclic@routines.inc.F90"
976 0 : end procedure
977 : #endif
978 :
979 : #if RK3_ENABLED
980 0 : module procedure setGeomCyclicLogCDFLog_D1_IK_RK3
981 : use pm_kind, only: RKC => RK3
982 : #include "pm_distGeomCyclic@routines.inc.F90"
983 0 : end procedure
984 : #endif
985 :
986 : #if RK2_ENABLED
987 1 : module procedure setGeomCyclicLogCDFLog_D1_IK_RK2
988 : use pm_kind, only: RKC => RK2
989 : #include "pm_distGeomCyclic@routines.inc.F90"
990 1 : end procedure
991 : #endif
992 :
993 : #if RK1_ENABLED
994 0 : module procedure setGeomCyclicLogCDFLog_D1_IK_RK1
995 : use pm_kind, only: RKC => RK1
996 : #include "pm_distGeomCyclic@routines.inc.F90"
997 0 : end procedure
998 : #endif
999 :
1000 : #undef RK_ENABLED
1001 :
1002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1003 :
1004 : #define RK_ENABLED 1
1005 :
1006 : #if RK5_ENABLED
1007 : module procedure setGeomCyclicLogCDFLog_D1_RK_RK5
1008 : use pm_kind, only: RKC => RK5
1009 : #include "pm_distGeomCyclic@routines.inc.F90"
1010 : end procedure
1011 : #endif
1012 :
1013 : #if RK4_ENABLED
1014 0 : module procedure setGeomCyclicLogCDFLog_D1_RK_RK4
1015 : use pm_kind, only: RKC => RK4
1016 : #include "pm_distGeomCyclic@routines.inc.F90"
1017 0 : end procedure
1018 : #endif
1019 :
1020 : #if RK3_ENABLED
1021 0 : module procedure setGeomCyclicLogCDFLog_D1_RK_RK3
1022 : use pm_kind, only: RKC => RK3
1023 : #include "pm_distGeomCyclic@routines.inc.F90"
1024 0 : end procedure
1025 : #endif
1026 :
1027 : #if RK2_ENABLED
1028 0 : module procedure setGeomCyclicLogCDFLog_D1_RK_RK2
1029 : use pm_kind, only: RKC => RK2
1030 : #include "pm_distGeomCyclic@routines.inc.F90"
1031 0 : end procedure
1032 : #endif
1033 :
1034 : #if RK1_ENABLED
1035 0 : module procedure setGeomCyclicLogCDFLog_D1_RK_RK1
1036 : use pm_kind, only: RKC => RK1
1037 : #include "pm_distGeomCyclic@routines.inc.F90"
1038 0 : end procedure
1039 : #endif
1040 :
1041 : #undef RK_ENABLED
1042 :
1043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1044 :
1045 : #undef Log_ENABLED
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1050 :
1051 : #undef D1_ENABLED
1052 :
1053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 :
1057 : #undef setGeomCyclicLogCDF_ENABLED
1058 :
1059 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1060 :
1061 : #define getGeomCyclicRand_ENABLED 1
1062 :
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1066 :
1067 : #define RNGD_ENABLED 1
1068 :
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 :
1071 : #define RK_ENABLED 1
1072 :
1073 : #if RK5_ENABLED
1074 : module procedure getGeomCyclicRand_RK5
1075 : use pm_kind, only: RKC => RK5
1076 : #include "pm_distGeomCyclic@routines.inc.F90"
1077 : end procedure
1078 : #endif
1079 :
1080 : #if RK4_ENABLED
1081 2000 : module procedure getGeomCyclicRand_RK4
1082 : use pm_kind, only: RKC => RK4
1083 : #include "pm_distGeomCyclic@routines.inc.F90"
1084 2000 : end procedure
1085 : #endif
1086 :
1087 : #if RK3_ENABLED
1088 0 : module procedure getGeomCyclicRand_RK3
1089 : use pm_kind, only: RKC => RK3
1090 : #include "pm_distGeomCyclic@routines.inc.F90"
1091 0 : end procedure
1092 : #endif
1093 :
1094 : #if RK2_ENABLED
1095 0 : module procedure getGeomCyclicRand_RK2
1096 : use pm_kind, only: RKC => RK2
1097 : #include "pm_distGeomCyclic@routines.inc.F90"
1098 0 : end procedure
1099 : #endif
1100 :
1101 : #if RK1_ENABLED
1102 20006 : module procedure getGeomCyclicRand_RK1
1103 : use pm_kind, only: RKC => RK1
1104 : #include "pm_distGeomCyclic@routines.inc.F90"
1105 20006 : end procedure
1106 : #endif
1107 :
1108 : #undef RK_ENABLED
1109 :
1110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1111 :
1112 : #undef RNGD_ENABLED
1113 :
1114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1117 :
1118 : #undef getGeomCyclicRand_ENABLED
1119 :
1120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1121 :
1122 : #define setGeomCyclicRand_ENABLED 1
1123 :
1124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1127 :
1128 : #define D0_ENABLED 1
1129 :
1130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133 :
1134 : #define RNGD_ENABLED 1
1135 :
1136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1137 :
1138 : #define RK_ENABLED 1
1139 :
1140 : #if RK5_ENABLED
1141 : module procedure setGeomCyclicRandRNGD_D0_RK5
1142 : use pm_kind, only: RKC => RK5
1143 : #include "pm_distGeomCyclic@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if RK4_ENABLED
1148 2000 : module procedure setGeomCyclicRandRNGD_D0_RK4
1149 : use pm_kind, only: RKC => RK4
1150 : #include "pm_distGeomCyclic@routines.inc.F90"
1151 2000 : end procedure
1152 : #endif
1153 :
1154 : #if RK3_ENABLED
1155 0 : module procedure setGeomCyclicRandRNGD_D0_RK3
1156 : use pm_kind, only: RKC => RK3
1157 : #include "pm_distGeomCyclic@routines.inc.F90"
1158 0 : end procedure
1159 : #endif
1160 :
1161 : #if RK2_ENABLED
1162 0 : module procedure setGeomCyclicRandRNGD_D0_RK2
1163 : use pm_kind, only: RKC => RK2
1164 : #include "pm_distGeomCyclic@routines.inc.F90"
1165 0 : end procedure
1166 : #endif
1167 :
1168 : #if RK1_ENABLED
1169 40009 : module procedure setGeomCyclicRandRNGD_D0_RK1
1170 : use pm_kind, only: RKC => RK1
1171 : #include "pm_distGeomCyclic@routines.inc.F90"
1172 40009 : end procedure
1173 : #endif
1174 :
1175 : #undef RK_ENABLED
1176 :
1177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1178 :
1179 : #undef RNGD_ENABLED
1180 :
1181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 :
1185 : #define RNGF_ENABLED 1
1186 :
1187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188 :
1189 : #define RK_ENABLED 1
1190 :
1191 : #if RK5_ENABLED
1192 : module procedure setGeomCyclicRandRNGF_D0_RK5
1193 : use pm_kind, only: RKC => RK5
1194 : #include "pm_distGeomCyclic@routines.inc.F90"
1195 : end procedure
1196 : #endif
1197 :
1198 : #if RK4_ENABLED
1199 0 : module procedure setGeomCyclicRandRNGF_D0_RK4
1200 : use pm_kind, only: RKC => RK4
1201 : #include "pm_distGeomCyclic@routines.inc.F90"
1202 0 : end procedure
1203 : #endif
1204 :
1205 : #if RK3_ENABLED
1206 0 : module procedure setGeomCyclicRandRNGF_D0_RK3
1207 : use pm_kind, only: RKC => RK3
1208 : #include "pm_distGeomCyclic@routines.inc.F90"
1209 0 : end procedure
1210 : #endif
1211 :
1212 : #if RK2_ENABLED
1213 0 : module procedure setGeomCyclicRandRNGF_D0_RK2
1214 : use pm_kind, only: RKC => RK2
1215 : #include "pm_distGeomCyclic@routines.inc.F90"
1216 0 : end procedure
1217 : #endif
1218 :
1219 : #if RK1_ENABLED
1220 0 : module procedure setGeomCyclicRandRNGF_D0_RK1
1221 : use pm_kind, only: RKC => RK1
1222 : #include "pm_distGeomCyclic@routines.inc.F90"
1223 0 : end procedure
1224 : #endif
1225 :
1226 : #undef RK_ENABLED
1227 :
1228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1229 :
1230 : #undef RNGF_ENABLED
1231 :
1232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1235 :
1236 : #define RNGX_ENABLED 1
1237 :
1238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1239 :
1240 : #define RK_ENABLED 1
1241 :
1242 : #if RK5_ENABLED
1243 : module procedure setGeomCyclicRandRNGX_D0_RK5
1244 : use pm_kind, only: RKC => RK5
1245 : #include "pm_distGeomCyclic@routines.inc.F90"
1246 : end procedure
1247 : #endif
1248 :
1249 : #if RK4_ENABLED
1250 0 : module procedure setGeomCyclicRandRNGX_D0_RK4
1251 : use pm_kind, only: RKC => RK4
1252 : #include "pm_distGeomCyclic@routines.inc.F90"
1253 0 : end procedure
1254 : #endif
1255 :
1256 : #if RK3_ENABLED
1257 0 : module procedure setGeomCyclicRandRNGX_D0_RK3
1258 : use pm_kind, only: RKC => RK3
1259 : #include "pm_distGeomCyclic@routines.inc.F90"
1260 0 : end procedure
1261 : #endif
1262 :
1263 : #if RK2_ENABLED
1264 0 : module procedure setGeomCyclicRandRNGX_D0_RK2
1265 : use pm_kind, only: RKC => RK2
1266 : #include "pm_distGeomCyclic@routines.inc.F90"
1267 0 : end procedure
1268 : #endif
1269 :
1270 : #if RK1_ENABLED
1271 0 : module procedure setGeomCyclicRandRNGX_D0_RK1
1272 : use pm_kind, only: RKC => RK1
1273 : #include "pm_distGeomCyclic@routines.inc.F90"
1274 0 : end procedure
1275 : #endif
1276 :
1277 : #undef RK_ENABLED
1278 :
1279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1280 :
1281 : #undef RNGX_ENABLED
1282 :
1283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1286 :
1287 : #undef D0_ENABLED
1288 :
1289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1292 :
1293 : #define D1_ENABLED 1
1294 :
1295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1298 :
1299 : #define RNGD_ENABLED 1
1300 :
1301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1302 :
1303 : #define RK_ENABLED 1
1304 :
1305 : #if RK5_ENABLED
1306 : module procedure setGeomCyclicRandRNGD_D1_RK5
1307 : use pm_kind, only: RKC => RK5
1308 : #include "pm_distGeomCyclic@routines.inc.F90"
1309 : end procedure
1310 : #endif
1311 :
1312 : #if RK4_ENABLED
1313 0 : module procedure setGeomCyclicRandRNGD_D1_RK4
1314 : use pm_kind, only: RKC => RK4
1315 : #include "pm_distGeomCyclic@routines.inc.F90"
1316 0 : end procedure
1317 : #endif
1318 :
1319 : #if RK3_ENABLED
1320 0 : module procedure setGeomCyclicRandRNGD_D1_RK3
1321 : use pm_kind, only: RKC => RK3
1322 : #include "pm_distGeomCyclic@routines.inc.F90"
1323 0 : end procedure
1324 : #endif
1325 :
1326 : #if RK2_ENABLED
1327 0 : module procedure setGeomCyclicRandRNGD_D1_RK2
1328 : use pm_kind, only: RKC => RK2
1329 : #include "pm_distGeomCyclic@routines.inc.F90"
1330 0 : end procedure
1331 : #endif
1332 :
1333 : #if RK1_ENABLED
1334 1 : module procedure setGeomCyclicRandRNGD_D1_RK1
1335 : use pm_kind, only: RKC => RK1
1336 : #include "pm_distGeomCyclic@routines.inc.F90"
1337 1 : end procedure
1338 : #endif
1339 :
1340 : #undef RK_ENABLED
1341 :
1342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1343 :
1344 : #undef RNGD_ENABLED
1345 :
1346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1349 :
1350 : #define RNGF_ENABLED 1
1351 :
1352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1353 :
1354 : #define RK_ENABLED 1
1355 :
1356 : #if RK5_ENABLED
1357 : module procedure setGeomCyclicRandRNGF_D1_RK5
1358 : use pm_kind, only: RKC => RK5
1359 : #include "pm_distGeomCyclic@routines.inc.F90"
1360 : end procedure
1361 : #endif
1362 :
1363 : #if RK4_ENABLED
1364 0 : module procedure setGeomCyclicRandRNGF_D1_RK4
1365 : use pm_kind, only: RKC => RK4
1366 : #include "pm_distGeomCyclic@routines.inc.F90"
1367 0 : end procedure
1368 : #endif
1369 :
1370 : #if RK3_ENABLED
1371 0 : module procedure setGeomCyclicRandRNGF_D1_RK3
1372 : use pm_kind, only: RKC => RK3
1373 : #include "pm_distGeomCyclic@routines.inc.F90"
1374 0 : end procedure
1375 : #endif
1376 :
1377 : #if RK2_ENABLED
1378 0 : module procedure setGeomCyclicRandRNGF_D1_RK2
1379 : use pm_kind, only: RKC => RK2
1380 : #include "pm_distGeomCyclic@routines.inc.F90"
1381 0 : end procedure
1382 : #endif
1383 :
1384 : #if RK1_ENABLED
1385 0 : module procedure setGeomCyclicRandRNGF_D1_RK1
1386 : use pm_kind, only: RKC => RK1
1387 : #include "pm_distGeomCyclic@routines.inc.F90"
1388 0 : end procedure
1389 : #endif
1390 :
1391 : #undef RK_ENABLED
1392 :
1393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 :
1395 : #undef RNGF_ENABLED
1396 :
1397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1400 :
1401 : #define RNGX_ENABLED 1
1402 :
1403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1404 :
1405 : #define RK_ENABLED 1
1406 :
1407 : #if RK5_ENABLED
1408 : module procedure setGeomCyclicRandRNGX_D1_RK5
1409 : use pm_kind, only: RKC => RK5
1410 : #include "pm_distGeomCyclic@routines.inc.F90"
1411 : end procedure
1412 : #endif
1413 :
1414 : #if RK4_ENABLED
1415 0 : module procedure setGeomCyclicRandRNGX_D1_RK4
1416 : use pm_kind, only: RKC => RK4
1417 : #include "pm_distGeomCyclic@routines.inc.F90"
1418 0 : end procedure
1419 : #endif
1420 :
1421 : #if RK3_ENABLED
1422 0 : module procedure setGeomCyclicRandRNGX_D1_RK3
1423 : use pm_kind, only: RKC => RK3
1424 : #include "pm_distGeomCyclic@routines.inc.F90"
1425 0 : end procedure
1426 : #endif
1427 :
1428 : #if RK2_ENABLED
1429 0 : module procedure setGeomCyclicRandRNGX_D1_RK2
1430 : use pm_kind, only: RKC => RK2
1431 : #include "pm_distGeomCyclic@routines.inc.F90"
1432 0 : end procedure
1433 : #endif
1434 :
1435 : #if RK1_ENABLED
1436 1 : module procedure setGeomCyclicRandRNGX_D1_RK1
1437 : use pm_kind, only: RKC => RK1
1438 : #include "pm_distGeomCyclic@routines.inc.F90"
1439 1 : end procedure
1440 : #endif
1441 :
1442 : #undef RK_ENABLED
1443 :
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 :
1446 : #undef RNGX_ENABLED
1447 :
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 :
1452 : #undef D1_ENABLED
1453 :
1454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457 :
1458 : #undef setGeomCyclicRand_ENABLED
1459 :
1460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1461 :
1462 : #define isFailedGeomCyclicFit_ENABLED 1
1463 :
1464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1465 :
1466 : #define RK_ENABLED 1
1467 :
1468 : #if RK5_ENABLED
1469 : module procedure isFailedGeomCyclicFit_IK_RK5
1470 : use pm_kind, only: RKC => RK5
1471 : #include "pm_distGeomCyclic@routines.inc.F90"
1472 : end procedure
1473 : #endif
1474 :
1475 : #if RK4_ENABLED
1476 1 : module procedure isFailedGeomCyclicFit_IK_RK4
1477 : use pm_kind, only: RKC => RK4
1478 : #include "pm_distGeomCyclic@routines.inc.F90"
1479 : end procedure
1480 : #endif
1481 :
1482 : #if RK3_ENABLED
1483 0 : module procedure isFailedGeomCyclicFit_IK_RK3
1484 : use pm_kind, only: RKC => RK3
1485 : #include "pm_distGeomCyclic@routines.inc.F90"
1486 : end procedure
1487 : #endif
1488 :
1489 : #if RK2_ENABLED
1490 0 : module procedure isFailedGeomCyclicFit_IK_RK2
1491 : use pm_kind, only: RKC => RK2
1492 : #include "pm_distGeomCyclic@routines.inc.F90"
1493 : end procedure
1494 : #endif
1495 :
1496 : #if RK1_ENABLED
1497 0 : module procedure isFailedGeomCyclicFit_IK_RK1
1498 : use pm_kind, only: RKC => RK1
1499 : #include "pm_distGeomCyclic@routines.inc.F90"
1500 : end procedure
1501 : #endif
1502 :
1503 : #undef RK_ENABLED
1504 :
1505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1506 :
1507 : #define RK_ENABLED 1
1508 :
1509 : #if RK5_ENABLED
1510 : module procedure isFailedGeomCyclicFit_RK_RK5
1511 : use pm_kind, only: RKC => RK5
1512 : #include "pm_distGeomCyclic@routines.inc.F90"
1513 : end procedure
1514 : #endif
1515 :
1516 : #if RK4_ENABLED
1517 0 : module procedure isFailedGeomCyclicFit_RK_RK4
1518 : use pm_kind, only: RKC => RK4
1519 : #include "pm_distGeomCyclic@routines.inc.F90"
1520 : end procedure
1521 : #endif
1522 :
1523 : #if RK3_ENABLED
1524 0 : module procedure isFailedGeomCyclicFit_RK_RK3
1525 : use pm_kind, only: RKC => RK3
1526 : #include "pm_distGeomCyclic@routines.inc.F90"
1527 : end procedure
1528 : #endif
1529 :
1530 : #if RK2_ENABLED
1531 0 : module procedure isFailedGeomCyclicFit_RK_RK2
1532 : use pm_kind, only: RKC => RK2
1533 : #include "pm_distGeomCyclic@routines.inc.F90"
1534 : end procedure
1535 : #endif
1536 :
1537 : #if RK1_ENABLED
1538 0 : module procedure isFailedGeomCyclicFit_RK_RK1
1539 : use pm_kind, only: RKC => RK1
1540 : #include "pm_distGeomCyclic@routines.inc.F90"
1541 : end procedure
1542 : #endif
1543 :
1544 : #undef RK_ENABLED
1545 :
1546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1547 :
1548 : #undef isFailedGeomCyclicFit_ENABLED
1549 :
1550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1551 :
1552 : #undef CHECK_ASSERTION
1553 :
1554 : end submodule routines
|
