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_statest](@ref pm_statest).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_statest) 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_distKolm, only: setKolmCDF
40 :
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getProbKS_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define D0_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define WIX_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define RK_ENABLED 1
66 :
67 : #if RK5_ENABLED
68 : module procedure getProbKS_WIX_D0_RK5
69 : use pm_kind, only: TKC => RK5
70 : #include "pm_statest@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if RK4_ENABLED
75 0 : module procedure getProbKS_WIX_D0_RK4
76 : use pm_kind, only: TKC => RK4
77 : #include "pm_statest@routines.inc.F90"
78 0 : end procedure
79 : #endif
80 :
81 : #if RK3_ENABLED
82 0 : module procedure getProbKS_WIX_D0_RK3
83 : use pm_kind, only: TKC => RK3
84 : #include "pm_statest@routines.inc.F90"
85 0 : end procedure
86 : #endif
87 :
88 : #if RK2_ENABLED
89 0 : module procedure getProbKS_WIX_D0_RK2
90 : use pm_kind, only: TKC => RK2
91 : #include "pm_statest@routines.inc.F90"
92 0 : end procedure
93 : #endif
94 :
95 : #if RK1_ENABLED
96 40 : module procedure getProbKS_WIX_D0_RK1
97 : use pm_kind, only: TKC => RK1
98 : #include "pm_statest@routines.inc.F90"
99 40 : end procedure
100 : #endif
101 :
102 : #undef RK_ENABLED
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #undef WIX_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #define WRX_ENABLED 1
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #define RK_ENABLED 1
117 :
118 : #if RK5_ENABLED
119 : module procedure getProbKS_WRX_D0_RK5
120 : use pm_kind, only: TKC => RK5
121 : #include "pm_statest@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if RK4_ENABLED
126 0 : module procedure getProbKS_WRX_D0_RK4
127 : use pm_kind, only: TKC => RK4
128 : #include "pm_statest@routines.inc.F90"
129 0 : end procedure
130 : #endif
131 :
132 : #if RK3_ENABLED
133 0 : module procedure getProbKS_WRX_D0_RK3
134 : use pm_kind, only: TKC => RK3
135 : #include "pm_statest@routines.inc.F90"
136 0 : end procedure
137 : #endif
138 :
139 : #if RK2_ENABLED
140 0 : module procedure getProbKS_WRX_D0_RK2
141 : use pm_kind, only: TKC => RK2
142 : #include "pm_statest@routines.inc.F90"
143 0 : end procedure
144 : #endif
145 :
146 : #if RK1_ENABLED
147 20 : module procedure getProbKS_WRX_D0_RK1
148 : use pm_kind, only: TKC => RK1
149 : #include "pm_statest@routines.inc.F90"
150 20 : end procedure
151 : #endif
152 :
153 : #undef RK_ENABLED
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #undef WRX_ENABLED
158 :
159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 :
163 : #define WII_ENABLED 1
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 :
167 : #define RK_ENABLED 1
168 :
169 : #if RK5_ENABLED
170 : module procedure getProbKS_WII_D0_RK5
171 : use pm_kind, only: TKC => RK5
172 : #include "pm_statest@routines.inc.F90"
173 : end procedure
174 : #endif
175 :
176 : #if RK4_ENABLED
177 0 : module procedure getProbKS_WII_D0_RK4
178 : use pm_kind, only: TKC => RK4
179 : #include "pm_statest@routines.inc.F90"
180 0 : end procedure
181 : #endif
182 :
183 : #if RK3_ENABLED
184 0 : module procedure getProbKS_WII_D0_RK3
185 : use pm_kind, only: TKC => RK3
186 : #include "pm_statest@routines.inc.F90"
187 0 : end procedure
188 : #endif
189 :
190 : #if RK2_ENABLED
191 0 : module procedure getProbKS_WII_D0_RK2
192 : use pm_kind, only: TKC => RK2
193 : #include "pm_statest@routines.inc.F90"
194 0 : end procedure
195 : #endif
196 :
197 : #if RK1_ENABLED
198 30 : module procedure getProbKS_WII_D0_RK1
199 : use pm_kind, only: TKC => RK1
200 : #include "pm_statest@routines.inc.F90"
201 30 : end procedure
202 : #endif
203 :
204 : #undef RK_ENABLED
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 :
208 : #undef WII_ENABLED
209 :
210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #define WRI_ENABLED 1
215 :
216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217 :
218 : #define RK_ENABLED 1
219 :
220 : #if RK5_ENABLED
221 : module procedure getProbKS_WRI_D0_RK5
222 : use pm_kind, only: TKC => RK5
223 : #include "pm_statest@routines.inc.F90"
224 : end procedure
225 : #endif
226 :
227 : #if RK4_ENABLED
228 0 : module procedure getProbKS_WRI_D0_RK4
229 : use pm_kind, only: TKC => RK4
230 : #include "pm_statest@routines.inc.F90"
231 0 : end procedure
232 : #endif
233 :
234 : #if RK3_ENABLED
235 0 : module procedure getProbKS_WRI_D0_RK3
236 : use pm_kind, only: TKC => RK3
237 : #include "pm_statest@routines.inc.F90"
238 0 : end procedure
239 : #endif
240 :
241 : #if RK2_ENABLED
242 0 : module procedure getProbKS_WRI_D0_RK2
243 : use pm_kind, only: TKC => RK2
244 : #include "pm_statest@routines.inc.F90"
245 0 : end procedure
246 : #endif
247 :
248 : #if RK1_ENABLED
249 20 : module procedure getProbKS_WRI_D0_RK1
250 : use pm_kind, only: TKC => RK1
251 : #include "pm_statest@routines.inc.F90"
252 20 : end procedure
253 : #endif
254 :
255 : #undef RK_ENABLED
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #undef WRI_ENABLED
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 :
265 : #define WRR_ENABLED 1
266 :
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 :
269 : #define RK_ENABLED 1
270 :
271 : #if RK5_ENABLED
272 : module procedure getProbKS_WRR_D0_RK5
273 : use pm_kind, only: TKC => RK5
274 : #include "pm_statest@routines.inc.F90"
275 : end procedure
276 : #endif
277 :
278 : #if RK4_ENABLED
279 0 : module procedure getProbKS_WRR_D0_RK4
280 : use pm_kind, only: TKC => RK4
281 : #include "pm_statest@routines.inc.F90"
282 0 : end procedure
283 : #endif
284 :
285 : #if RK3_ENABLED
286 0 : module procedure getProbKS_WRR_D0_RK3
287 : use pm_kind, only: TKC => RK3
288 : #include "pm_statest@routines.inc.F90"
289 0 : end procedure
290 : #endif
291 :
292 : #if RK2_ENABLED
293 0 : module procedure getProbKS_WRR_D0_RK2
294 : use pm_kind, only: TKC => RK2
295 : #include "pm_statest@routines.inc.F90"
296 0 : end procedure
297 : #endif
298 :
299 : #if RK1_ENABLED
300 10 : module procedure getProbKS_WRR_D0_RK1
301 : use pm_kind, only: TKC => RK1
302 : #include "pm_statest@routines.inc.F90"
303 10 : end procedure
304 : #endif
305 :
306 : #undef RK_ENABLED
307 :
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #undef WRR_ENABLED
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #undef D0_ENABLED
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #undef getProbKS_ENABLED
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #define setProbKS_ENABLED 1
327 :
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #define D0_ENABLED 1
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #define WIX_ENABLED 1
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 :
342 : #define RK_ENABLED 1
343 :
344 : #if RK5_ENABLED
345 : module procedure setProbKS_WIX_D0_RK5
346 : use pm_kind, only: TKC => RK5
347 : #include "pm_statest@routines.inc.F90"
348 : end procedure
349 : #endif
350 :
351 : #if RK4_ENABLED
352 0 : module procedure setProbKS_WIX_D0_RK4
353 : use pm_kind, only: TKC => RK4
354 : #include "pm_statest@routines.inc.F90"
355 0 : end procedure
356 : #endif
357 :
358 : #if RK3_ENABLED
359 0 : module procedure setProbKS_WIX_D0_RK3
360 : use pm_kind, only: TKC => RK3
361 : #include "pm_statest@routines.inc.F90"
362 0 : end procedure
363 : #endif
364 :
365 : #if RK2_ENABLED
366 0 : module procedure setProbKS_WIX_D0_RK2
367 : use pm_kind, only: TKC => RK2
368 : #include "pm_statest@routines.inc.F90"
369 0 : end procedure
370 : #endif
371 :
372 : #if RK1_ENABLED
373 40 : module procedure setProbKS_WIX_D0_RK1
374 : use pm_kind, only: TKC => RK1
375 : #include "pm_statest@routines.inc.F90"
376 40 : end procedure
377 : #endif
378 :
379 : #undef RK_ENABLED
380 :
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 :
383 : #undef WIX_ENABLED
384 :
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 :
389 : #define WRX_ENABLED 1
390 :
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 :
393 : #define RK_ENABLED 1
394 :
395 : #if RK5_ENABLED
396 : module procedure setProbKS_WRX_D0_RK5
397 : use pm_kind, only: TKC => RK5
398 : #include "pm_statest@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #if RK4_ENABLED
403 0 : module procedure setProbKS_WRX_D0_RK4
404 : use pm_kind, only: TKC => RK4
405 : #include "pm_statest@routines.inc.F90"
406 0 : end procedure
407 : #endif
408 :
409 : #if RK3_ENABLED
410 0 : module procedure setProbKS_WRX_D0_RK3
411 : use pm_kind, only: TKC => RK3
412 : #include "pm_statest@routines.inc.F90"
413 0 : end procedure
414 : #endif
415 :
416 : #if RK2_ENABLED
417 0 : module procedure setProbKS_WRX_D0_RK2
418 : use pm_kind, only: TKC => RK2
419 : #include "pm_statest@routines.inc.F90"
420 0 : end procedure
421 : #endif
422 :
423 : #if RK1_ENABLED
424 20 : module procedure setProbKS_WRX_D0_RK1
425 : use pm_kind, only: TKC => RK1
426 : #include "pm_statest@routines.inc.F90"
427 20 : end procedure
428 : #endif
429 :
430 : #undef RK_ENABLED
431 :
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 :
434 : #undef WRX_ENABLED
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #define WII_ENABLED 1
441 :
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 :
444 : #define RK_ENABLED 1
445 :
446 : #if RK5_ENABLED
447 : module procedure setProbKS_WII_D0_RK5
448 : use pm_kind, only: TKC => RK5
449 : #include "pm_statest@routines.inc.F90"
450 : end procedure
451 : #endif
452 :
453 : #if RK4_ENABLED
454 0 : module procedure setProbKS_WII_D0_RK4
455 : use pm_kind, only: TKC => RK4
456 : #include "pm_statest@routines.inc.F90"
457 0 : end procedure
458 : #endif
459 :
460 : #if RK3_ENABLED
461 0 : module procedure setProbKS_WII_D0_RK3
462 : use pm_kind, only: TKC => RK3
463 : #include "pm_statest@routines.inc.F90"
464 0 : end procedure
465 : #endif
466 :
467 : #if RK2_ENABLED
468 0 : module procedure setProbKS_WII_D0_RK2
469 : use pm_kind, only: TKC => RK2
470 : #include "pm_statest@routines.inc.F90"
471 0 : end procedure
472 : #endif
473 :
474 : #if RK1_ENABLED
475 30 : module procedure setProbKS_WII_D0_RK1
476 : use pm_kind, only: TKC => RK1
477 : #include "pm_statest@routines.inc.F90"
478 30 : end procedure
479 : #endif
480 :
481 : #undef RK_ENABLED
482 :
483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484 :
485 : #undef WII_ENABLED
486 :
487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 :
491 : #define WRI_ENABLED 1
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #define RK_ENABLED 1
496 :
497 : #if RK5_ENABLED
498 : module procedure setProbKS_WRI_D0_RK5
499 : use pm_kind, only: TKC => RK5
500 : #include "pm_statest@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if RK4_ENABLED
505 0 : module procedure setProbKS_WRI_D0_RK4
506 : use pm_kind, only: TKC => RK4
507 : #include "pm_statest@routines.inc.F90"
508 0 : end procedure
509 : #endif
510 :
511 : #if RK3_ENABLED
512 0 : module procedure setProbKS_WRI_D0_RK3
513 : use pm_kind, only: TKC => RK3
514 : #include "pm_statest@routines.inc.F90"
515 0 : end procedure
516 : #endif
517 :
518 : #if RK2_ENABLED
519 0 : module procedure setProbKS_WRI_D0_RK2
520 : use pm_kind, only: TKC => RK2
521 : #include "pm_statest@routines.inc.F90"
522 0 : end procedure
523 : #endif
524 :
525 : #if RK1_ENABLED
526 20 : module procedure setProbKS_WRI_D0_RK1
527 : use pm_kind, only: TKC => RK1
528 : #include "pm_statest@routines.inc.F90"
529 20 : end procedure
530 : #endif
531 :
532 : #undef RK_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #undef WRI_ENABLED
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #define WRR_ENABLED 1
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #define RK_ENABLED 1
547 :
548 : #if RK5_ENABLED
549 : module procedure setProbKS_WRR_D0_RK5
550 : use pm_kind, only: TKC => RK5
551 : #include "pm_statest@routines.inc.F90"
552 : end procedure
553 : #endif
554 :
555 : #if RK4_ENABLED
556 0 : module procedure setProbKS_WRR_D0_RK4
557 : use pm_kind, only: TKC => RK4
558 : #include "pm_statest@routines.inc.F90"
559 0 : end procedure
560 : #endif
561 :
562 : #if RK3_ENABLED
563 0 : module procedure setProbKS_WRR_D0_RK3
564 : use pm_kind, only: TKC => RK3
565 : #include "pm_statest@routines.inc.F90"
566 0 : end procedure
567 : #endif
568 :
569 : #if RK2_ENABLED
570 0 : module procedure setProbKS_WRR_D0_RK2
571 : use pm_kind, only: TKC => RK2
572 : #include "pm_statest@routines.inc.F90"
573 0 : end procedure
574 : #endif
575 :
576 : #if RK1_ENABLED
577 10 : module procedure setProbKS_WRR_D0_RK1
578 : use pm_kind, only: TKC => RK1
579 : #include "pm_statest@routines.inc.F90"
580 10 : end procedure
581 : #endif
582 :
583 : #undef RK_ENABLED
584 :
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 :
587 : #undef WRR_ENABLED
588 :
589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 :
593 : #undef D0_ENABLED
594 :
595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #undef setProbKS_ENABLED
600 :
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 :
603 : #undef CHECK_ASSERTION
604 :
605 : end submodule routines
|
