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_distPiwiPoweto](@ref pm_distPiwiPoweto).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distPiwiPoweto) 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 : use pm_arraySort, only: isAscending
34 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
35 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
36 : #else
37 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
38 : #endif
39 :
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define getPiwiPowetoLogPDFNF_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define ALD_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 :
58 : #define RK_ENABLED 1
59 :
60 : #if RK5_ENABLED
61 : module procedure getPiwiPowetoLogPDFNFALD_RK5
62 : use pm_kind, only: RKC => RK5
63 : #include "pm_distPiwiPoweto@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if RK4_ENABLED
68 60 : module procedure getPiwiPowetoLogPDFNFALD_RK4
69 : use pm_kind, only: RKC => RK4
70 : #include "pm_distPiwiPoweto@routines.inc.F90"
71 60 : end procedure
72 : #endif
73 :
74 : #if RK3_ENABLED
75 60 : module procedure getPiwiPowetoLogPDFNFALD_RK3
76 : use pm_kind, only: RKC => RK3
77 : #include "pm_distPiwiPoweto@routines.inc.F90"
78 60 : end procedure
79 : #endif
80 :
81 : #if RK2_ENABLED
82 60 : module procedure getPiwiPowetoLogPDFNFALD_RK2
83 : use pm_kind, only: RKC => RK2
84 : #include "pm_distPiwiPoweto@routines.inc.F90"
85 60 : end procedure
86 : #endif
87 :
88 : #if RK1_ENABLED
89 7286 : module procedure getPiwiPowetoLogPDFNFALD_RK1
90 : use pm_kind, only: RKC => RK1
91 : #include "pm_distPiwiPoweto@routines.inc.F90"
92 7286 : end procedure
93 : #endif
94 :
95 : #undef RK_ENABLED
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #undef ALD_ENABLED
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : #define ALC_ENABLED 1
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define RK_ENABLED 1
110 :
111 : #if RK5_ENABLED
112 : module procedure getPiwiPowetoLogPDFNFALC_RK5
113 : use pm_kind, only: RKC => RK5
114 : #include "pm_distPiwiPoweto@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK4_ENABLED
119 2090 : module procedure getPiwiPowetoLogPDFNFALC_RK4
120 : use pm_kind, only: RKC => RK4
121 : #include "pm_distPiwiPoweto@routines.inc.F90"
122 2090 : end procedure
123 : #endif
124 :
125 : #if RK3_ENABLED
126 2084 : module procedure getPiwiPowetoLogPDFNFALC_RK3
127 : use pm_kind, only: RKC => RK3
128 : #include "pm_distPiwiPoweto@routines.inc.F90"
129 2084 : end procedure
130 : #endif
131 :
132 : #if RK2_ENABLED
133 2080 : module procedure getPiwiPowetoLogPDFNFALC_RK2
134 : use pm_kind, only: RKC => RK2
135 : #include "pm_distPiwiPoweto@routines.inc.F90"
136 2080 : end procedure
137 : #endif
138 :
139 : #if RK1_ENABLED
140 11703 : module procedure getPiwiPowetoLogPDFNFALC_RK1
141 : use pm_kind, only: RKC => RK1
142 : #include "pm_distPiwiPoweto@routines.inc.F90"
143 11703 : end procedure
144 : #endif
145 :
146 : #undef RK_ENABLED
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #undef ALC_ENABLED
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #undef getPiwiPowetoLogPDFNF_ENABLED
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define getPiwiPowetoLogPDF_ENABLED 1
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : #define RK_ENABLED 1
169 :
170 : #if RK5_ENABLED
171 : module procedure getPiwiPowetoLogPDF_RK5
172 : use pm_kind, only: RKC => RK5
173 : #include "pm_distPiwiPoweto@routines.inc.F90"
174 : end procedure
175 : #endif
176 :
177 : #if RK4_ENABLED
178 40 : module procedure getPiwiPowetoLogPDF_RK4
179 : use pm_kind, only: RKC => RK4
180 : #include "pm_distPiwiPoweto@routines.inc.F90"
181 40 : end procedure
182 : #endif
183 :
184 : #if RK3_ENABLED
185 40 : module procedure getPiwiPowetoLogPDF_RK3
186 : use pm_kind, only: RKC => RK3
187 : #include "pm_distPiwiPoweto@routines.inc.F90"
188 40 : end procedure
189 : #endif
190 :
191 : #if RK2_ENABLED
192 40 : module procedure getPiwiPowetoLogPDF_RK2
193 : use pm_kind, only: RKC => RK2
194 : #include "pm_distPiwiPoweto@routines.inc.F90"
195 40 : end procedure
196 : #endif
197 :
198 : #if RK1_ENABLED
199 2448 : module procedure getPiwiPowetoLogPDF_RK1
200 : use pm_kind, only: RKC => RK1
201 : #include "pm_distPiwiPoweto@routines.inc.F90"
202 2448 : end procedure
203 : #endif
204 :
205 : #undef RK_ENABLED
206 :
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #undef getPiwiPowetoLogPDF_ENABLED
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
216 :
217 : #define setPiwiPowetoLogPDF_ENABLED 1
218 :
219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
222 :
223 : #define D0_ENABLED 1
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
228 :
229 : #define ALL_ENABLED 1
230 :
231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232 :
233 : #define RK_ENABLED 1
234 :
235 : #if RK5_ENABLED
236 : module procedure setPiwiPowetoLogPDFALL_D0_RK5
237 : use pm_kind, only: RKC => RK5
238 : #include "pm_distPiwiPoweto@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #if RK4_ENABLED
243 30214 : module procedure setPiwiPowetoLogPDFALL_D0_RK4
244 : use pm_kind, only: RKC => RK4
245 : #include "pm_distPiwiPoweto@routines.inc.F90"
246 : end procedure
247 : #endif
248 :
249 : #if RK3_ENABLED
250 21562 : module procedure setPiwiPowetoLogPDFALL_D0_RK3
251 : use pm_kind, only: RKC => RK3
252 : #include "pm_distPiwiPoweto@routines.inc.F90"
253 : end procedure
254 : #endif
255 :
256 : #if RK2_ENABLED
257 18937 : module procedure setPiwiPowetoLogPDFALL_D0_RK2
258 : use pm_kind, only: RKC => RK2
259 : #include "pm_distPiwiPoweto@routines.inc.F90"
260 : end procedure
261 : #endif
262 :
263 : #if RK1_ENABLED
264 21288 : module procedure setPiwiPowetoLogPDFALL_D0_RK1
265 : use pm_kind, only: RKC => RK1
266 : #include "pm_distPiwiPoweto@routines.inc.F90"
267 : end procedure
268 : #endif
269 :
270 : #undef RK_ENABLED
271 :
272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 :
274 : #undef ALL_ENABLED
275 :
276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 :
280 : #define BAN_ENABLED 1
281 :
282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283 :
284 : #define RK_ENABLED 1
285 :
286 : #if RK5_ENABLED
287 : module procedure setPiwiPowetoLogPDFBAN_D0_RK5
288 : use pm_kind, only: RKC => RK5
289 : #include "pm_distPiwiPoweto@routines.inc.F90"
290 : end procedure
291 : #endif
292 :
293 : #if RK4_ENABLED
294 20 : module procedure setPiwiPowetoLogPDFBAN_D0_RK4
295 : use pm_kind, only: RKC => RK4
296 : #include "pm_distPiwiPoweto@routines.inc.F90"
297 20 : end procedure
298 : #endif
299 :
300 : #if RK3_ENABLED
301 20 : module procedure setPiwiPowetoLogPDFBAN_D0_RK3
302 : use pm_kind, only: RKC => RK3
303 : #include "pm_distPiwiPoweto@routines.inc.F90"
304 20 : end procedure
305 : #endif
306 :
307 : #if RK2_ENABLED
308 20 : module procedure setPiwiPowetoLogPDFBAN_D0_RK2
309 : use pm_kind, only: RKC => RK2
310 : #include "pm_distPiwiPoweto@routines.inc.F90"
311 20 : end procedure
312 : #endif
313 :
314 : #if RK1_ENABLED
315 21 : module procedure setPiwiPowetoLogPDFBAN_D0_RK1
316 : use pm_kind, only: RKC => RK1
317 : #include "pm_distPiwiPoweto@routines.inc.F90"
318 21 : end procedure
319 : #endif
320 :
321 : #undef RK_ENABLED
322 :
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 :
325 : #undef BAN_ENABLED
326 :
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330 :
331 : #undef D0_ENABLED
332 :
333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 :
337 : #undef setPiwiPowetoLogPDF_ENABLED
338 :
339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340 :
341 : #define getPiwiPowetoCDF_ENABLED 1
342 :
343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 :
347 : #define ALDD_ENABLED 1
348 :
349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350 :
351 : #define RK_ENABLED 1
352 :
353 : #if RK5_ENABLED
354 : module procedure getPiwiPowetoCDFALDD_RK5
355 : use pm_kind, only: RKC => RK5
356 : #include "pm_distPiwiPoweto@routines.inc.F90"
357 : end procedure
358 : #endif
359 :
360 : #if RK4_ENABLED
361 188 : module procedure getPiwiPowetoCDFALDD_RK4
362 : use pm_kind, only: RKC => RK4
363 : #include "pm_distPiwiPoweto@routines.inc.F90"
364 188 : end procedure
365 : #endif
366 :
367 : #if RK3_ENABLED
368 172 : module procedure getPiwiPowetoCDFALDD_RK3
369 : use pm_kind, only: RKC => RK3
370 : #include "pm_distPiwiPoweto@routines.inc.F90"
371 172 : end procedure
372 : #endif
373 :
374 : #if RK2_ENABLED
375 182 : module procedure getPiwiPowetoCDFALDD_RK2
376 : use pm_kind, only: RKC => RK2
377 : #include "pm_distPiwiPoweto@routines.inc.F90"
378 182 : end procedure
379 : #endif
380 :
381 : #if RK1_ENABLED
382 197 : module procedure getPiwiPowetoCDFALDD_RK1
383 : use pm_kind, only: RKC => RK1
384 : #include "pm_distPiwiPoweto@routines.inc.F90"
385 197 : end procedure
386 : #endif
387 :
388 : #undef RK_ENABLED
389 :
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : #undef ALDD_ENABLED
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 :
398 : #define ALLC_ENABLED 1
399 :
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : #define RK_ENABLED 1
403 :
404 : #if RK5_ENABLED
405 : module procedure getPiwiPowetoCDFALLC_RK5
406 : use pm_kind, only: RKC => RK5
407 : #include "pm_distPiwiPoweto@routines.inc.F90"
408 : end procedure
409 : #endif
410 :
411 : #if RK4_ENABLED
412 100 : module procedure getPiwiPowetoCDFALLC_RK4
413 : use pm_kind, only: RKC => RK4
414 : #include "pm_distPiwiPoweto@routines.inc.F90"
415 100 : end procedure
416 : #endif
417 :
418 : #if RK3_ENABLED
419 100 : module procedure getPiwiPowetoCDFALLC_RK3
420 : use pm_kind, only: RKC => RK3
421 : #include "pm_distPiwiPoweto@routines.inc.F90"
422 100 : end procedure
423 : #endif
424 :
425 : #if RK2_ENABLED
426 100 : module procedure getPiwiPowetoCDFALLC_RK2
427 : use pm_kind, only: RKC => RK2
428 : #include "pm_distPiwiPoweto@routines.inc.F90"
429 100 : end procedure
430 : #endif
431 :
432 : #if RK1_ENABLED
433 2505 : module procedure getPiwiPowetoCDFALLC_RK1
434 : use pm_kind, only: RKC => RK1
435 : #include "pm_distPiwiPoweto@routines.inc.F90"
436 2505 : end procedure
437 : #endif
438 :
439 : #undef RK_ENABLED
440 :
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 :
443 : #undef ALLC_ENABLED
444 :
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 :
449 : #undef getPiwiPowetoCDF_ENABLED
450 :
451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 :
453 : #define setPiwiPowetoCDF_ENABLED 1
454 :
455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 :
459 : #define MAN_ENABLED 1
460 :
461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462 :
463 : #define RK_ENABLED 1
464 :
465 : #if RK5_ENABLED
466 : module procedure setPiwiPowetoCDFMAN_D0_RK5
467 : use pm_kind, only: RKC => RK5
468 : #include "pm_distPiwiPoweto@routines.inc.F90"
469 : end procedure
470 : #endif
471 :
472 : #if RK4_ENABLED
473 1095 : module procedure setPiwiPowetoCDFMAN_D0_RK4
474 : use pm_kind, only: RKC => RK4
475 : #include "pm_distPiwiPoweto@routines.inc.F90"
476 : end procedure
477 : #endif
478 :
479 : #if RK3_ENABLED
480 1092 : module procedure setPiwiPowetoCDFMAN_D0_RK3
481 : use pm_kind, only: RKC => RK3
482 : #include "pm_distPiwiPoweto@routines.inc.F90"
483 : end procedure
484 : #endif
485 :
486 : #if RK2_ENABLED
487 1090 : module procedure setPiwiPowetoCDFMAN_D0_RK2
488 : use pm_kind, only: RKC => RK2
489 : #include "pm_distPiwiPoweto@routines.inc.F90"
490 : end procedure
491 : #endif
492 :
493 : #if RK1_ENABLED
494 5899 : module procedure setPiwiPowetoCDFMAN_D0_RK1
495 : use pm_kind, only: RKC => RK1
496 : #include "pm_distPiwiPoweto@routines.inc.F90"
497 : end procedure
498 : #endif
499 :
500 : #undef RK_ENABLED
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 :
504 : #undef MAN_ENABLED
505 :
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 :
510 : #define BAN_ENABLED 1
511 :
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 :
514 : #define RK_ENABLED 1
515 :
516 : #if RK5_ENABLED
517 : module procedure setPiwiPowetoCDFBAN_D0_RK5
518 : use pm_kind, only: RKC => RK5
519 : #include "pm_distPiwiPoweto@routines.inc.F90"
520 : end procedure
521 : #endif
522 :
523 : #if RK4_ENABLED
524 1702 : module procedure setPiwiPowetoCDFBAN_D0_RK4
525 : use pm_kind, only: RKC => RK4
526 : #include "pm_distPiwiPoweto@routines.inc.F90"
527 1702 : end procedure
528 : #endif
529 :
530 : #if RK3_ENABLED
531 1712 : module procedure setPiwiPowetoCDFBAN_D0_RK3
532 : use pm_kind, only: RKC => RK3
533 : #include "pm_distPiwiPoweto@routines.inc.F90"
534 1712 : end procedure
535 : #endif
536 :
537 : #if RK2_ENABLED
538 1698 : module procedure setPiwiPowetoCDFBAN_D0_RK2
539 : use pm_kind, only: RKC => RK2
540 : #include "pm_distPiwiPoweto@routines.inc.F90"
541 1698 : end procedure
542 : #endif
543 :
544 : #if RK1_ENABLED
545 6492 : module procedure setPiwiPowetoCDFBAN_D0_RK1
546 : use pm_kind, only: RKC => RK1
547 : #include "pm_distPiwiPoweto@routines.inc.F90"
548 6492 : end procedure
549 : #endif
550 :
551 : #undef RK_ENABLED
552 :
553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 :
555 : #undef BAN_ENABLED
556 :
557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 :
561 : #undef setPiwiPowetoCDF_ENABLED
562 :
563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564 :
565 : #undef CHECK_ASSERTION
566 :
567 : end submodule routines
|
