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_err](@ref pm_err).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, 3:43 AM Friday, March 1, 2013, Institute for Fusion Studies, The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : #if MEXPRINT_ENABLED
28 : #include "fintrf.h"
29 : #endif
30 :
31 : submodule (pm_err) routines ! LCOV_EXCL_LINE
32 :
33 : use, intrinsic :: iso_fortran_env, only: output_unit
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 1 : module procedure constructErr
43 0 : if (present(occurred)) err%occurred = occurred
44 1 : if (present(stat)) err%stat = stat
45 1 : if (present(msg)) then
46 0 : err%msg = msg
47 : else
48 1 : err%msg = repeat(SK_"A", 255)
49 : end if
50 1 : end procedure
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define constructMark_ENABLED 1
55 97329 : module procedure constructMark
56 : #include "pm_err@routines.inc.F90"
57 97329 : end procedure
58 : #undef constructMark_ENABLED
59 :
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #define constructNote_ENABLED 1
63 97329 : module procedure constructNote
64 : #include "pm_err@routines.inc.F90"
65 97329 : end procedure
66 : #undef constructNote_ENABLED
67 :
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 :
70 : #define constructWarn_ENABLED 1
71 97329 : module procedure constructWarn
72 : #include "pm_err@routines.inc.F90"
73 97329 : end procedure
74 : #undef constructWarn_ENABLED
75 :
76 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77 :
78 : #define constructStop_ENABLED 1
79 97329 : module procedure constructStop
80 : #include "pm_err@routines.inc.F90"
81 97329 : end procedure
82 : #undef constructStop_ENABLED
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : #define getFine_ENABLED 1
87 :
88 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 :
90 : #define SK_ENABLED 1
91 :
92 : #if SK5_ENABLED
93 : module procedure getFine_SK5
94 : use pm_kind, only: SKC => SK5
95 : #include "pm_err@routines.inc.F90"
96 : end procedure
97 : #endif
98 :
99 : #if SK4_ENABLED
100 : module procedure getFine_SK4
101 : use pm_kind, only: SKC => SK4
102 : #include "pm_err@routines.inc.F90"
103 : end procedure
104 : #endif
105 :
106 : #if SK3_ENABLED
107 : module procedure getFine_SK3
108 : use pm_kind, only: SKC => SK3
109 : #include "pm_err@routines.inc.F90"
110 : end procedure
111 : #endif
112 :
113 : #if SK2_ENABLED
114 : module procedure getFine_SK2
115 : use pm_kind, only: SKC => SK2
116 : #include "pm_err@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if SK1_ENABLED
121 633283916 : module procedure getFine_SK1
122 : use pm_kind, only: SKC => SK1
123 : #include "pm_err@routines.inc.F90"
124 633283916 : end procedure
125 : #endif
126 :
127 : #undef SK_ENABLED
128 :
129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130 :
131 : #undef getFine_ENABLED
132 :
133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 :
135 : #define getFile_ENABLED 1
136 :
137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 :
139 : #define SK_ENABLED 1
140 :
141 : #if SK5_ENABLED
142 : module procedure getFile_SK5
143 : use pm_kind, only: SKC => SK5
144 : #include "pm_err@routines.inc.F90"
145 : end procedure
146 : #endif
147 :
148 : #if SK4_ENABLED
149 : module procedure getFile_SK4
150 : use pm_kind, only: SKC => SK4
151 : #include "pm_err@routines.inc.F90"
152 : end procedure
153 : #endif
154 :
155 : #if SK3_ENABLED
156 : module procedure getFile_SK3
157 : use pm_kind, only: SKC => SK3
158 : #include "pm_err@routines.inc.F90"
159 : end procedure
160 : #endif
161 :
162 : #if SK2_ENABLED
163 : module procedure getFile_SK2
164 : use pm_kind, only: SKC => SK2
165 : #include "pm_err@routines.inc.F90"
166 : end procedure
167 : #endif
168 :
169 : #if SK1_ENABLED
170 633283917 : module procedure getFile_SK1
171 : use pm_kind, only: SKC => SK1
172 : #include "pm_err@routines.inc.F90"
173 633283917 : end procedure
174 : #endif
175 :
176 : #undef SK_ENABLED
177 :
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 :
180 : #undef getFile_ENABLED
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #define getLine_ENABLED 1
185 :
186 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
187 :
188 : #define IK_ENABLED 1
189 :
190 : #if IK5_ENABLED
191 0 : module procedure getLine_IK5
192 : use pm_kind, only: IKC => IK5
193 : #include "pm_err@routines.inc.F90"
194 0 : end procedure
195 : #endif
196 :
197 : #if IK4_ENABLED
198 0 : module procedure getLine_IK4
199 : use pm_kind, only: IKC => IK4
200 : #include "pm_err@routines.inc.F90"
201 0 : end procedure
202 : #endif
203 :
204 : #if IK3_ENABLED
205 633283918 : module procedure getLine_IK3
206 : use pm_kind, only: IKC => IK3
207 : #include "pm_err@routines.inc.F90"
208 633283918 : end procedure
209 : #endif
210 :
211 : #if IK2_ENABLED
212 0 : module procedure getLine_IK2
213 : use pm_kind, only: IKC => IK2
214 : #include "pm_err@routines.inc.F90"
215 0 : end procedure
216 : #endif
217 :
218 : #if IK1_ENABLED
219 0 : module procedure getLine_IK1
220 : use pm_kind, only: IKC => IK1
221 : #include "pm_err@routines.inc.F90"
222 0 : end procedure
223 : #endif
224 :
225 : #undef IK_ENABLED
226 :
227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
228 :
229 : #undef getLine_ENABLED
230 :
231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232 :
233 : #define setAsserted_ENABLED 1
234 :
235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
236 :
237 : #define LK_ENABLED 1
238 :
239 : #if LK5_ENABLED
240 0 : module procedure setAsserted_LK5
241 : use pm_kind, only: LKC => LK5
242 : #include "pm_err@routines.inc.F90"
243 : end procedure
244 : #endif
245 :
246 : #if LK4_ENABLED
247 0 : module procedure setAsserted_LK4
248 : use pm_kind, only: LKC => LK4
249 : #include "pm_err@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if LK3_ENABLED
254 633284392 : module procedure setAsserted_LK3
255 : use pm_kind, only: LKC => LK3
256 : #include "pm_err@routines.inc.F90"
257 : end procedure
258 : #endif
259 :
260 : #if LK2_ENABLED
261 0 : module procedure setAsserted_LK2
262 : use pm_kind, only: LKC => LK2
263 : #include "pm_err@routines.inc.F90"
264 : end procedure
265 : #endif
266 :
267 : #if LK1_ENABLED
268 0 : module procedure setAsserted_LK1
269 : use pm_kind, only: LKC => LK1
270 : #include "pm_err@routines.inc.F90"
271 : end procedure
272 : #endif
273 :
274 : #undef LK_ENABLED
275 :
276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277 :
278 : #undef setAsserted_ENABLED
279 :
280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 :
282 : #define setMarked_ENABLED 1
283 :
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287 :
288 : #define Static_ENABLED 1
289 :
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : #define SK_ENABLED 1
293 :
294 : #if SK5_ENABLED
295 : module procedure setMarkedStatic_D0_SK5
296 : use pm_kind, only: SKC => SK5
297 : #include "pm_err@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #if SK4_ENABLED
302 : module procedure setMarkedStatic_D0_SK4
303 : use pm_kind, only: SKC => SK4
304 : #include "pm_err@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #if SK3_ENABLED
309 : module procedure setMarkedStatic_D0_SK3
310 : use pm_kind, only: SKC => SK3
311 : #include "pm_err@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if SK2_ENABLED
316 : module procedure setMarkedStatic_D0_SK2
317 : use pm_kind, only: SKC => SK2
318 : #include "pm_err@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if SK1_ENABLED
323 1496 : module procedure setMarkedStatic_D0_SK1
324 : use pm_kind, only: SKC => SK1
325 : #include "pm_err@routines.inc.F90"
326 2992 : end procedure
327 : #endif
328 :
329 : #undef SK_ENABLED
330 :
331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332 :
333 : #undef Static_ENABLED
334 :
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
338 :
339 : #define Method_ENABLED 1
340 :
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 :
343 : #define SK_ENABLED 1
344 :
345 : #if SK5_ENABLED
346 : module procedure setMarkedMethod_D0_SK5
347 : use pm_kind, only: SKC => SK5
348 : #include "pm_err@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if SK4_ENABLED
353 : module procedure setMarkedMethod_D0_SK4
354 : use pm_kind, only: SKC => SK4
355 : #include "pm_err@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if SK3_ENABLED
360 : module procedure setMarkedMethod_D0_SK3
361 : use pm_kind, only: SKC => SK3
362 : #include "pm_err@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #if SK2_ENABLED
367 : module procedure setMarkedMethod_D0_SK2
368 : use pm_kind, only: SKC => SK2
369 : #include "pm_err@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #if SK1_ENABLED
374 16 : module procedure setMarkedMethod_D0_SK1
375 : use pm_kind, only: SKC => SK1
376 : #include "pm_err@routines.inc.F90"
377 16 : end procedure
378 : #endif
379 :
380 : #undef SK_ENABLED
381 :
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 :
384 : #undef Method_ENABLED
385 :
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 :
390 : #undef setMarked_ENABLED
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #define setNoted_ENABLED 1
395 :
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : #define Static_ENABLED 1
401 :
402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 :
404 : #define SK_ENABLED 1
405 :
406 : #if SK5_ENABLED
407 : module procedure setNotedStatic_D0_SK5
408 : use pm_kind, only: SKC => SK5
409 : #include "pm_err@routines.inc.F90"
410 : end procedure
411 : #endif
412 :
413 : #if SK4_ENABLED
414 : module procedure setNotedStatic_D0_SK4
415 : use pm_kind, only: SKC => SK4
416 : #include "pm_err@routines.inc.F90"
417 : end procedure
418 : #endif
419 :
420 : #if SK3_ENABLED
421 : module procedure setNotedStatic_D0_SK3
422 : use pm_kind, only: SKC => SK3
423 : #include "pm_err@routines.inc.F90"
424 : end procedure
425 : #endif
426 :
427 : #if SK2_ENABLED
428 : module procedure setNotedStatic_D0_SK2
429 : use pm_kind, only: SKC => SK2
430 : #include "pm_err@routines.inc.F90"
431 : end procedure
432 : #endif
433 :
434 : #if SK1_ENABLED
435 1449 : module procedure setNotedStatic_D0_SK1
436 : use pm_kind, only: SKC => SK1
437 : #include "pm_err@routines.inc.F90"
438 1449 : end procedure
439 : #endif
440 :
441 : #undef SK_ENABLED
442 :
443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 :
445 : #undef Static_ENABLED
446 :
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450 :
451 : #define Method_ENABLED 1
452 :
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 :
455 : #define SK_ENABLED 1
456 :
457 : #if SK5_ENABLED
458 : module procedure setNotedMethod_D0_SK5
459 : use pm_kind, only: SKC => SK5
460 : #include "pm_err@routines.inc.F90"
461 : end procedure
462 : #endif
463 :
464 : #if SK4_ENABLED
465 : module procedure setNotedMethod_D0_SK4
466 : use pm_kind, only: SKC => SK4
467 : #include "pm_err@routines.inc.F90"
468 : end procedure
469 : #endif
470 :
471 : #if SK3_ENABLED
472 : module procedure setNotedMethod_D0_SK3
473 : use pm_kind, only: SKC => SK3
474 : #include "pm_err@routines.inc.F90"
475 : end procedure
476 : #endif
477 :
478 : #if SK2_ENABLED
479 : module procedure setNotedMethod_D0_SK2
480 : use pm_kind, only: SKC => SK2
481 : #include "pm_err@routines.inc.F90"
482 : end procedure
483 : #endif
484 :
485 : #if SK1_ENABLED
486 1446 : module procedure setNotedMethod_D0_SK1
487 : use pm_kind, only: SKC => SK1
488 : #include "pm_err@routines.inc.F90"
489 1446 : end procedure
490 : #endif
491 :
492 : #undef SK_ENABLED
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 :
496 : #undef Method_ENABLED
497 :
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501 :
502 : #undef setNoted_ENABLED
503 :
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 :
506 : #define setWarned_ENABLED 1
507 :
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 :
512 : #define Static_ENABLED 1
513 :
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 :
516 : #define SK_ENABLED 1
517 :
518 : #if SK5_ENABLED
519 : module procedure setWarnedStatic_D0_SK5
520 : use pm_kind, only: SKC => SK5
521 : #include "pm_err@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #if SK4_ENABLED
526 : module procedure setWarnedStatic_D0_SK4
527 : use pm_kind, only: SKC => SK4
528 : #include "pm_err@routines.inc.F90"
529 : end procedure
530 : #endif
531 :
532 : #if SK3_ENABLED
533 : module procedure setWarnedStatic_D0_SK3
534 : use pm_kind, only: SKC => SK3
535 : #include "pm_err@routines.inc.F90"
536 : end procedure
537 : #endif
538 :
539 : #if SK2_ENABLED
540 : module procedure setWarnedStatic_D0_SK2
541 : use pm_kind, only: SKC => SK2
542 : #include "pm_err@routines.inc.F90"
543 : end procedure
544 : #endif
545 :
546 : #if SK1_ENABLED
547 14 : module procedure setWarnedStatic_D0_SK1
548 : use pm_kind, only: SKC => SK1
549 : #include "pm_err@routines.inc.F90"
550 14 : end procedure
551 : #endif
552 :
553 : #undef SK_ENABLED
554 :
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 :
557 : #undef Static_ENABLED
558 :
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 :
563 : #define Method_ENABLED 1
564 :
565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 :
567 : #define SK_ENABLED 1
568 :
569 : #if SK5_ENABLED
570 : module procedure setWarnedMethod_D0_SK5
571 : use pm_kind, only: SKC => SK5
572 : #include "pm_err@routines.inc.F90"
573 : end procedure
574 : #endif
575 :
576 : #if SK4_ENABLED
577 : module procedure setWarnedMethod_D0_SK4
578 : use pm_kind, only: SKC => SK4
579 : #include "pm_err@routines.inc.F90"
580 : end procedure
581 : #endif
582 :
583 : #if SK3_ENABLED
584 : module procedure setWarnedMethod_D0_SK3
585 : use pm_kind, only: SKC => SK3
586 : #include "pm_err@routines.inc.F90"
587 : end procedure
588 : #endif
589 :
590 : #if SK2_ENABLED
591 : module procedure setWarnedMethod_D0_SK2
592 : use pm_kind, only: SKC => SK2
593 : #include "pm_err@routines.inc.F90"
594 : end procedure
595 : #endif
596 :
597 : #if SK1_ENABLED
598 11 : module procedure setWarnedMethod_D0_SK1
599 : use pm_kind, only: SKC => SK1
600 : #include "pm_err@routines.inc.F90"
601 11 : end procedure
602 : #endif
603 :
604 : #undef SK_ENABLED
605 :
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 :
608 : #undef Method_ENABLED
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
613 :
614 : #undef setWarned_ENABLED
615 :
616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
617 :
618 : #define setAborted_ENABLED 1
619 :
620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 :
624 : #define Static_ENABLED 1
625 :
626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 :
628 : #define SK_ENABLED 1
629 :
630 : #if SK5_ENABLED
631 : module procedure setAbortedStatic_D0_SK5
632 : use pm_kind, only: SKC => SK5
633 : #include "pm_err@routines.inc.F90"
634 : end procedure
635 : #endif
636 :
637 : #if SK4_ENABLED
638 : module procedure setAbortedStatic_D0_SK4
639 : use pm_kind, only: SKC => SK4
640 : #include "pm_err@routines.inc.F90"
641 : end procedure
642 : #endif
643 :
644 : #if SK3_ENABLED
645 : module procedure setAbortedStatic_D0_SK3
646 : use pm_kind, only: SKC => SK3
647 : #include "pm_err@routines.inc.F90"
648 : end procedure
649 : #endif
650 :
651 : #if SK2_ENABLED
652 : module procedure setAbortedStatic_D0_SK2
653 : use pm_kind, only: SKC => SK2
654 : #include "pm_err@routines.inc.F90"
655 : end procedure
656 : #endif
657 :
658 : #if SK1_ENABLED
659 7 : module procedure setAbortedStatic_D0_SK1
660 : use pm_kind, only: SKC => SK1
661 : #include "pm_err@routines.inc.F90"
662 14 : end procedure
663 : #endif
664 :
665 : #undef SK_ENABLED
666 :
667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668 :
669 : #undef Static_ENABLED
670 :
671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
674 :
675 : #define Method_ENABLED 1
676 :
677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
678 :
679 : #define SK_ENABLED 1
680 :
681 : #if SK5_ENABLED
682 : module procedure setAbortedMethod_D0_SK5
683 : use pm_kind, only: SKC => SK5
684 : #include "pm_err@routines.inc.F90"
685 : end procedure
686 : #endif
687 :
688 : #if SK4_ENABLED
689 : module procedure setAbortedMethod_D0_SK4
690 : use pm_kind, only: SKC => SK4
691 : #include "pm_err@routines.inc.F90"
692 : end procedure
693 : #endif
694 :
695 : #if SK3_ENABLED
696 : module procedure setAbortedMethod_D0_SK3
697 : use pm_kind, only: SKC => SK3
698 : #include "pm_err@routines.inc.F90"
699 : end procedure
700 : #endif
701 :
702 : #if SK2_ENABLED
703 : module procedure setAbortedMethod_D0_SK2
704 : use pm_kind, only: SKC => SK2
705 : #include "pm_err@routines.inc.F90"
706 : end procedure
707 : #endif
708 :
709 : #if SK1_ENABLED
710 3 : module procedure setAbortedMethod_D0_SK1
711 : use pm_kind, only: SKC => SK1
712 : #include "pm_err@routines.inc.F90"
713 3 : end procedure
714 : #endif
715 :
716 : #undef SK_ENABLED
717 :
718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
719 :
720 : #undef Method_ENABLED
721 :
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 :
726 : #undef setAborted_ENABLED
727 :
728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729 :
730 : end submodule routines
|
