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 include file contains procedure implementations of the tests of [pm_distBern](@ref pm_distBern).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Tuesday 2:06 AM, September 21, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_distBern) routines
28 :
29 : implicit none
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : contains
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #define isHead_ENABLED 1
38 :
39 : #if RK5_ENABLED
40 : module procedure test_isHead_RK5_1
41 : use pm_kind, only: RKC => RK5
42 : #include "test_pm_distBern@routines.inc.F90"
43 : end procedure
44 : #endif
45 :
46 : #if RK4_ENABLED
47 1 : module procedure test_isHead_RK4_1
48 : use pm_kind, only: RKC => RK4
49 : #include "test_pm_distBern@routines.inc.F90"
50 1 : end procedure
51 : #endif
52 :
53 : #if RK3_ENABLED
54 1 : module procedure test_isHead_RK3_1
55 : use pm_kind, only: RKC => RK3
56 : #include "test_pm_distBern@routines.inc.F90"
57 1 : end procedure
58 : #endif
59 :
60 : #if RK2_ENABLED
61 1 : module procedure test_isHead_RK2_1
62 : use pm_kind, only: RKC => RK2
63 : #include "test_pm_distBern@routines.inc.F90"
64 1 : end procedure
65 : #endif
66 :
67 : #if RK1_ENABLED
68 1 : module procedure test_isHead_RK1_1
69 : use pm_kind, only: RKC => RK1
70 : #include "test_pm_distBern@routines.inc.F90"
71 1 : end procedure
72 : #endif
73 :
74 : #undef isHead_ENABLED
75 :
76 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77 :
78 : #define getBernRand_ENABLED 1
79 :
80 : #if RK5_ENABLED
81 : module procedure test_getBernRand_RK5_1
82 : use pm_kind, only: RKC => RK5
83 : #include "test_pm_distBern@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if RK4_ENABLED
88 1 : module procedure test_getBernRand_RK4_1
89 : use pm_kind, only: RKC => RK4
90 : #include "test_pm_distBern@routines.inc.F90"
91 1 : end procedure
92 : #endif
93 :
94 : #if RK3_ENABLED
95 1 : module procedure test_getBernRand_RK3_1
96 : use pm_kind, only: RKC => RK3
97 : #include "test_pm_distBern@routines.inc.F90"
98 1 : end procedure
99 : #endif
100 :
101 : #if RK2_ENABLED
102 1 : module procedure test_getBernRand_RK2_1
103 : use pm_kind, only: RKC => RK2
104 : #include "test_pm_distBern@routines.inc.F90"
105 1 : end procedure
106 : #endif
107 :
108 : #if RK1_ENABLED
109 1 : module procedure test_getBernRand_RK1_1
110 : use pm_kind, only: RKC => RK1
111 : #include "test_pm_distBern@routines.inc.F90"
112 1 : end procedure
113 : #endif
114 :
115 : #undef getBernRand_ENABLED
116 :
117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 :
119 : #define setBernRand_ENABLED 1
120 :
121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 :
125 : #define IK_ENABLED 1
126 :
127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 :
129 : #if IK5_ENABLED && RK5_ENABLED
130 : module procedure test_setBernRand_IK5_RK5_1
131 : use pm_kind, only: IKC => IK5, RKC => RK5
132 : #include "test_pm_distBern@routines.inc.F90"
133 : end procedure
134 : #endif
135 :
136 : #if IK5_ENABLED && RK4_ENABLED
137 1 : module procedure test_setBernRand_IK5_RK4_1
138 : use pm_kind, only: IKC => IK5, RKC => RK4
139 : #include "test_pm_distBern@routines.inc.F90"
140 1 : end procedure
141 : #endif
142 :
143 : #if IK5_ENABLED && RK3_ENABLED
144 1 : module procedure test_setBernRand_IK5_RK3_1
145 : use pm_kind, only: IKC => IK5, RKC => RK3
146 : #include "test_pm_distBern@routines.inc.F90"
147 1 : end procedure
148 : #endif
149 :
150 : #if IK5_ENABLED && RK2_ENABLED
151 1 : module procedure test_setBernRand_IK5_RK2_1
152 : use pm_kind, only: IKC => IK5, RKC => RK2
153 : #include "test_pm_distBern@routines.inc.F90"
154 1 : end procedure
155 : #endif
156 :
157 : #if IK5_ENABLED && RK1_ENABLED
158 1 : module procedure test_setBernRand_IK5_RK1_1
159 : use pm_kind, only: IKC => IK5, RKC => RK1
160 : #include "test_pm_distBern@routines.inc.F90"
161 1 : end procedure
162 : #endif
163 :
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : #if IK4_ENABLED && RK5_ENABLED
167 : module procedure test_setBernRand_IK4_RK5_1
168 : use pm_kind, only: IKC => IK4, RKC => RK5
169 : #include "test_pm_distBern@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK4_ENABLED && RK4_ENABLED
174 1 : module procedure test_setBernRand_IK4_RK4_1
175 : use pm_kind, only: IKC => IK4, RKC => RK4
176 : #include "test_pm_distBern@routines.inc.F90"
177 1 : end procedure
178 : #endif
179 :
180 : #if IK4_ENABLED && RK3_ENABLED
181 1 : module procedure test_setBernRand_IK4_RK3_1
182 : use pm_kind, only: IKC => IK4, RKC => RK3
183 : #include "test_pm_distBern@routines.inc.F90"
184 1 : end procedure
185 : #endif
186 :
187 : #if IK4_ENABLED && RK2_ENABLED
188 1 : module procedure test_setBernRand_IK4_RK2_1
189 : use pm_kind, only: IKC => IK4, RKC => RK2
190 : #include "test_pm_distBern@routines.inc.F90"
191 1 : end procedure
192 : #endif
193 :
194 : #if IK4_ENABLED && RK1_ENABLED
195 1 : module procedure test_setBernRand_IK4_RK1_1
196 : use pm_kind, only: IKC => IK4, RKC => RK1
197 : #include "test_pm_distBern@routines.inc.F90"
198 1 : end procedure
199 : #endif
200 :
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 :
203 : #if IK3_ENABLED && RK5_ENABLED
204 : module procedure test_setBernRand_IK3_RK5_1
205 : use pm_kind, only: IKC => IK3, RKC => RK5
206 : #include "test_pm_distBern@routines.inc.F90"
207 : end procedure
208 : #endif
209 :
210 : #if IK3_ENABLED && RK4_ENABLED
211 1 : module procedure test_setBernRand_IK3_RK4_1
212 : use pm_kind, only: IKC => IK3, RKC => RK4
213 : #include "test_pm_distBern@routines.inc.F90"
214 1 : end procedure
215 : #endif
216 :
217 : #if IK3_ENABLED && RK3_ENABLED
218 1 : module procedure test_setBernRand_IK3_RK3_1
219 : use pm_kind, only: IKC => IK3, RKC => RK3
220 : #include "test_pm_distBern@routines.inc.F90"
221 1 : end procedure
222 : #endif
223 :
224 : #if IK3_ENABLED && RK2_ENABLED
225 1 : module procedure test_setBernRand_IK3_RK2_1
226 : use pm_kind, only: IKC => IK3, RKC => RK2
227 : #include "test_pm_distBern@routines.inc.F90"
228 1 : end procedure
229 : #endif
230 :
231 : #if IK3_ENABLED && RK1_ENABLED
232 1 : module procedure test_setBernRand_IK3_RK1_1
233 : use pm_kind, only: IKC => IK3, RKC => RK1
234 : #include "test_pm_distBern@routines.inc.F90"
235 1 : end procedure
236 : #endif
237 :
238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239 :
240 : #if IK2_ENABLED && RK5_ENABLED
241 : module procedure test_setBernRand_IK2_RK5_1
242 : use pm_kind, only: IKC => IK2, RKC => RK5
243 : #include "test_pm_distBern@routines.inc.F90"
244 : end procedure
245 : #endif
246 :
247 : #if IK2_ENABLED && RK4_ENABLED
248 1 : module procedure test_setBernRand_IK2_RK4_1
249 : use pm_kind, only: IKC => IK2, RKC => RK4
250 : #include "test_pm_distBern@routines.inc.F90"
251 1 : end procedure
252 : #endif
253 :
254 : #if IK2_ENABLED && RK3_ENABLED
255 1 : module procedure test_setBernRand_IK2_RK3_1
256 : use pm_kind, only: IKC => IK2, RKC => RK3
257 : #include "test_pm_distBern@routines.inc.F90"
258 1 : end procedure
259 : #endif
260 :
261 : #if IK2_ENABLED && RK2_ENABLED
262 1 : module procedure test_setBernRand_IK2_RK2_1
263 : use pm_kind, only: IKC => IK2, RKC => RK2
264 : #include "test_pm_distBern@routines.inc.F90"
265 1 : end procedure
266 : #endif
267 :
268 : #if IK2_ENABLED && RK1_ENABLED
269 1 : module procedure test_setBernRand_IK2_RK1_1
270 : use pm_kind, only: IKC => IK2, RKC => RK1
271 : #include "test_pm_distBern@routines.inc.F90"
272 1 : end procedure
273 : #endif
274 :
275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276 :
277 : #if IK1_ENABLED && RK5_ENABLED
278 : module procedure test_setBernRand_IK1_RK5_1
279 : use pm_kind, only: IKC => IK1, RKC => RK5
280 : #include "test_pm_distBern@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if IK1_ENABLED && RK4_ENABLED
285 1 : module procedure test_setBernRand_IK1_RK4_1
286 : use pm_kind, only: IKC => IK1, RKC => RK4
287 : #include "test_pm_distBern@routines.inc.F90"
288 1 : end procedure
289 : #endif
290 :
291 : #if IK1_ENABLED && RK3_ENABLED
292 1 : module procedure test_setBernRand_IK1_RK3_1
293 : use pm_kind, only: IKC => IK1, RKC => RK3
294 : #include "test_pm_distBern@routines.inc.F90"
295 1 : end procedure
296 : #endif
297 :
298 : #if IK1_ENABLED && RK2_ENABLED
299 1 : module procedure test_setBernRand_IK1_RK2_1
300 : use pm_kind, only: IKC => IK1, RKC => RK2
301 : #include "test_pm_distBern@routines.inc.F90"
302 1 : end procedure
303 : #endif
304 :
305 : #if IK1_ENABLED && RK1_ENABLED
306 1 : module procedure test_setBernRand_IK1_RK1_1
307 : use pm_kind, only: IKC => IK1, RKC => RK1
308 : #include "test_pm_distBern@routines.inc.F90"
309 1 : end procedure
310 : #endif
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #undef IK_ENABLED
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #define LK_ENABLED 1
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #if LK5_ENABLED && RK5_ENABLED
325 : module procedure test_setBernRand_LK5_RK5_1
326 : use pm_kind, only: LKC => LK5, RKC => RK5
327 : #include "test_pm_distBern@routines.inc.F90"
328 : end procedure
329 : #endif
330 :
331 : #if LK5_ENABLED && RK4_ENABLED
332 1 : module procedure test_setBernRand_LK5_RK4_1
333 : use pm_kind, only: LKC => LK5, RKC => RK4
334 : #include "test_pm_distBern@routines.inc.F90"
335 1 : end procedure
336 : #endif
337 :
338 : #if LK5_ENABLED && RK3_ENABLED
339 1 : module procedure test_setBernRand_LK5_RK3_1
340 : use pm_kind, only: LKC => LK5, RKC => RK3
341 : #include "test_pm_distBern@routines.inc.F90"
342 1 : end procedure
343 : #endif
344 :
345 : #if LK5_ENABLED && RK2_ENABLED
346 1 : module procedure test_setBernRand_LK5_RK2_1
347 : use pm_kind, only: LKC => LK5, RKC => RK2
348 : #include "test_pm_distBern@routines.inc.F90"
349 1 : end procedure
350 : #endif
351 :
352 : #if LK5_ENABLED && RK1_ENABLED
353 1 : module procedure test_setBernRand_LK5_RK1_1
354 : use pm_kind, only: LKC => LK5, RKC => RK1
355 : #include "test_pm_distBern@routines.inc.F90"
356 1 : end procedure
357 : #endif
358 :
359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360 :
361 : #if LK4_ENABLED && RK5_ENABLED
362 : module procedure test_setBernRand_LK4_RK5_1
363 : use pm_kind, only: LKC => LK4, RKC => RK5
364 : #include "test_pm_distBern@routines.inc.F90"
365 : end procedure
366 : #endif
367 :
368 : #if LK4_ENABLED && RK4_ENABLED
369 1 : module procedure test_setBernRand_LK4_RK4_1
370 : use pm_kind, only: LKC => LK4, RKC => RK4
371 : #include "test_pm_distBern@routines.inc.F90"
372 1 : end procedure
373 : #endif
374 :
375 : #if LK4_ENABLED && RK3_ENABLED
376 1 : module procedure test_setBernRand_LK4_RK3_1
377 : use pm_kind, only: LKC => LK4, RKC => RK3
378 : #include "test_pm_distBern@routines.inc.F90"
379 1 : end procedure
380 : #endif
381 :
382 : #if LK4_ENABLED && RK2_ENABLED
383 1 : module procedure test_setBernRand_LK4_RK2_1
384 : use pm_kind, only: LKC => LK4, RKC => RK2
385 : #include "test_pm_distBern@routines.inc.F90"
386 1 : end procedure
387 : #endif
388 :
389 : #if LK4_ENABLED && RK1_ENABLED
390 1 : module procedure test_setBernRand_LK4_RK1_1
391 : use pm_kind, only: LKC => LK4, RKC => RK1
392 : #include "test_pm_distBern@routines.inc.F90"
393 1 : end procedure
394 : #endif
395 :
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 :
398 : #if LK3_ENABLED && RK5_ENABLED
399 : module procedure test_setBernRand_LK3_RK5_1
400 : use pm_kind, only: LKC => LK3, RKC => RK5
401 : #include "test_pm_distBern@routines.inc.F90"
402 : end procedure
403 : #endif
404 :
405 : #if LK3_ENABLED && RK4_ENABLED
406 1 : module procedure test_setBernRand_LK3_RK4_1
407 : use pm_kind, only: LKC => LK3, RKC => RK4
408 : #include "test_pm_distBern@routines.inc.F90"
409 1 : end procedure
410 : #endif
411 :
412 : #if LK3_ENABLED && RK3_ENABLED
413 1 : module procedure test_setBernRand_LK3_RK3_1
414 : use pm_kind, only: LKC => LK3, RKC => RK3
415 : #include "test_pm_distBern@routines.inc.F90"
416 1 : end procedure
417 : #endif
418 :
419 : #if LK3_ENABLED && RK2_ENABLED
420 1 : module procedure test_setBernRand_LK3_RK2_1
421 : use pm_kind, only: LKC => LK3, RKC => RK2
422 : #include "test_pm_distBern@routines.inc.F90"
423 1 : end procedure
424 : #endif
425 :
426 : #if LK3_ENABLED && RK1_ENABLED
427 1 : module procedure test_setBernRand_LK3_RK1_1
428 : use pm_kind, only: LKC => LK3, RKC => RK1
429 : #include "test_pm_distBern@routines.inc.F90"
430 1 : end procedure
431 : #endif
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 :
435 : #if LK2_ENABLED && RK5_ENABLED
436 : module procedure test_setBernRand_LK2_RK5_1
437 : use pm_kind, only: LKC => LK2, RKC => RK5
438 : #include "test_pm_distBern@routines.inc.F90"
439 : end procedure
440 : #endif
441 :
442 : #if LK2_ENABLED && RK4_ENABLED
443 1 : module procedure test_setBernRand_LK2_RK4_1
444 : use pm_kind, only: LKC => LK2, RKC => RK4
445 : #include "test_pm_distBern@routines.inc.F90"
446 1 : end procedure
447 : #endif
448 :
449 : #if LK2_ENABLED && RK3_ENABLED
450 1 : module procedure test_setBernRand_LK2_RK3_1
451 : use pm_kind, only: LKC => LK2, RKC => RK3
452 : #include "test_pm_distBern@routines.inc.F90"
453 1 : end procedure
454 : #endif
455 :
456 : #if LK2_ENABLED && RK2_ENABLED
457 1 : module procedure test_setBernRand_LK2_RK2_1
458 : use pm_kind, only: LKC => LK2, RKC => RK2
459 : #include "test_pm_distBern@routines.inc.F90"
460 1 : end procedure
461 : #endif
462 :
463 : #if LK2_ENABLED && RK1_ENABLED
464 1 : module procedure test_setBernRand_LK2_RK1_1
465 : use pm_kind, only: LKC => LK2, RKC => RK1
466 : #include "test_pm_distBern@routines.inc.F90"
467 1 : end procedure
468 : #endif
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #if LK1_ENABLED && RK5_ENABLED
473 : module procedure test_setBernRand_LK1_RK5_1
474 : use pm_kind, only: LKC => LK1, RKC => RK5
475 : #include "test_pm_distBern@routines.inc.F90"
476 : end procedure
477 : #endif
478 :
479 : #if LK1_ENABLED && RK4_ENABLED
480 1 : module procedure test_setBernRand_LK1_RK4_1
481 : use pm_kind, only: LKC => LK1, RKC => RK4
482 : #include "test_pm_distBern@routines.inc.F90"
483 1 : end procedure
484 : #endif
485 :
486 : #if LK1_ENABLED && RK3_ENABLED
487 1 : module procedure test_setBernRand_LK1_RK3_1
488 : use pm_kind, only: LKC => LK1, RKC => RK3
489 : #include "test_pm_distBern@routines.inc.F90"
490 1 : end procedure
491 : #endif
492 :
493 : #if LK1_ENABLED && RK2_ENABLED
494 1 : module procedure test_setBernRand_LK1_RK2_1
495 : use pm_kind, only: LKC => LK1, RKC => RK2
496 : #include "test_pm_distBern@routines.inc.F90"
497 1 : end procedure
498 : #endif
499 :
500 : #if LK1_ENABLED && RK1_ENABLED
501 1 : module procedure test_setBernRand_LK1_RK1_1
502 : use pm_kind, only: LKC => LK1, RKC => RK1
503 : #include "test_pm_distBern@routines.inc.F90"
504 1 : end procedure
505 : #endif
506 :
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 :
509 : #undef LK_ENABLED
510 :
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 :
515 : #define RK_ENABLED 1
516 :
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 :
519 : #if RK5_ENABLED
520 : module procedure test_setBernRand_RK5_RK5_1
521 : use pm_kind, only: RKC => RK5
522 : #include "test_pm_distBern@routines.inc.F90"
523 : end procedure
524 : #endif
525 :
526 : #if RK4_ENABLED
527 1 : module procedure test_setBernRand_RK4_RK4_1
528 : use pm_kind, only: RKC => RK4
529 : #include "test_pm_distBern@routines.inc.F90"
530 1 : end procedure
531 : #endif
532 :
533 : #if RK3_ENABLED
534 1 : module procedure test_setBernRand_RK3_RK3_1
535 : use pm_kind, only: RKC => RK3
536 : #include "test_pm_distBern@routines.inc.F90"
537 1 : end procedure
538 : #endif
539 :
540 : #if RK2_ENABLED
541 1 : module procedure test_setBernRand_RK2_RK2_1
542 : use pm_kind, only: RKC => RK2
543 : #include "test_pm_distBern@routines.inc.F90"
544 1 : end procedure
545 : #endif
546 :
547 : #if RK1_ENABLED
548 1 : module procedure test_setBernRand_RK1_RK1_1
549 : use pm_kind, only: RKC => RK1
550 : #include "test_pm_distBern@routines.inc.F90"
551 1 : end procedure
552 : #endif
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : #undef RK_ENABLED
557 :
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 :
562 : #undef setBernRand_ENABLED
563 :
564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565 :
566 : end submodule routines ! LCOV_EXCL_LINE
|
