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_quadRomb](@ref pm_quadRomb).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Apr 21, 2017, 1:54 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_quadRomb) 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_polation, only: setExtrap, monopol
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define getQuadRomb_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define Clos_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : #define EM_ENABLED 1
61 :
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : #define NM_ENABLED 1
67 :
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 :
70 : #define RK_ENABLED 1
71 :
72 : #if RK5_ENABLED
73 : module procedure getQR_Clos_EM_NM_RK5
74 : use pm_kind, only: RKC => RK5
75 : #include "pm_quadRomb@routines.inc.F90"
76 : end procedure
77 : #endif
78 :
79 : #if RK4_ENABLED
80 0 : module procedure getQR_Clos_EM_NM_RK4
81 : use pm_kind, only: RKC => RK4
82 : #include "pm_quadRomb@routines.inc.F90"
83 : end procedure
84 : #endif
85 :
86 : #if RK3_ENABLED
87 0 : module procedure getQR_Clos_EM_NM_RK3
88 : use pm_kind, only: RKC => RK3
89 : #include "pm_quadRomb@routines.inc.F90"
90 : end procedure
91 : #endif
92 :
93 : #if RK2_ENABLED
94 0 : module procedure getQR_Clos_EM_NM_RK2
95 : use pm_kind, only: RKC => RK2
96 : #include "pm_quadRomb@routines.inc.F90"
97 : end procedure
98 : #endif
99 :
100 : #if RK1_ENABLED
101 0 : module procedure getQR_Clos_EM_NM_RK1
102 : use pm_kind, only: RKC => RK1
103 : #include "pm_quadRomb@routines.inc.F90"
104 : end procedure
105 : #endif
106 :
107 : #undef RK_ENABLED
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 :
111 : #undef NM_ENABLED
112 :
113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 :
117 : #undef EM_ENABLED
118 :
119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122 :
123 : #define EP_ENABLED 1
124 :
125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 :
129 : #define NM_ENABLED 1
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : #define RK_ENABLED 1
134 :
135 : #if RK5_ENABLED
136 : module procedure getQR_Clos_EP_NM_RK5
137 : use pm_kind, only: RKC => RK5
138 : #include "pm_quadRomb@routines.inc.F90"
139 : end procedure
140 : #endif
141 :
142 : #if RK4_ENABLED
143 0 : module procedure getQR_Clos_EP_NM_RK4
144 : use pm_kind, only: RKC => RK4
145 : #include "pm_quadRomb@routines.inc.F90"
146 0 : end procedure
147 : #endif
148 :
149 : #if RK3_ENABLED
150 0 : module procedure getQR_Clos_EP_NM_RK3
151 : use pm_kind, only: RKC => RK3
152 : #include "pm_quadRomb@routines.inc.F90"
153 0 : end procedure
154 : #endif
155 :
156 : #if RK2_ENABLED
157 0 : module procedure getQR_Clos_EP_NM_RK2
158 : use pm_kind, only: RKC => RK2
159 : #include "pm_quadRomb@routines.inc.F90"
160 0 : end procedure
161 : #endif
162 :
163 : #if RK1_ENABLED
164 0 : module procedure getQR_Clos_EP_NM_RK1
165 : use pm_kind, only: RKC => RK1
166 : #include "pm_quadRomb@routines.inc.F90"
167 0 : end procedure
168 : #endif
169 :
170 : #undef RK_ENABLED
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : #undef NM_ENABLED
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 :
180 : #undef EP_ENABLED
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #define EP_ENABLED 1
187 :
188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
191 :
192 : #define NP_ENABLED 1
193 :
194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195 :
196 : #define RK_ENABLED 1
197 :
198 : #if RK5_ENABLED
199 : module procedure getQR_Clos_EP_NP_RK5
200 : use pm_kind, only: RKC => RK5
201 : #include "pm_quadRomb@routines.inc.F90"
202 : end procedure
203 : #endif
204 :
205 : #if RK4_ENABLED
206 1 : module procedure getQR_Clos_EP_NP_RK4
207 : use pm_kind, only: RKC => RK4
208 : #include "pm_quadRomb@routines.inc.F90"
209 0 : end procedure
210 : #endif
211 :
212 : #if RK3_ENABLED
213 0 : module procedure getQR_Clos_EP_NP_RK3
214 : use pm_kind, only: RKC => RK3
215 : #include "pm_quadRomb@routines.inc.F90"
216 0 : end procedure
217 : #endif
218 :
219 : #if RK2_ENABLED
220 1 : module procedure getQR_Clos_EP_NP_RK2
221 : use pm_kind, only: RKC => RK2
222 : #include "pm_quadRomb@routines.inc.F90"
223 0 : end procedure
224 : #endif
225 :
226 : #if RK1_ENABLED
227 1 : module procedure getQR_Clos_EP_NP_RK1
228 : use pm_kind, only: RKC => RK1
229 : #include "pm_quadRomb@routines.inc.F90"
230 0 : end procedure
231 : #endif
232 :
233 : #undef RK_ENABLED
234 :
235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
236 :
237 : #undef NP_ENABLED
238 :
239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242 :
243 : #undef EP_ENABLED
244 :
245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #undef Clos_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #define Open_ENABLED 1
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : #define EM_ENABLED 1
262 :
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 :
267 : #define NM_ENABLED 1
268 :
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 :
271 : #define RK_ENABLED 1
272 :
273 : #if RK5_ENABLED
274 : module procedure getQR_Open_EM_NM_RK5
275 : use pm_kind, only: RKC => RK5
276 : #include "pm_quadRomb@routines.inc.F90"
277 : end procedure
278 : #endif
279 :
280 : #if RK4_ENABLED
281 0 : module procedure getQR_Open_EM_NM_RK4
282 : use pm_kind, only: RKC => RK4
283 : #include "pm_quadRomb@routines.inc.F90"
284 : end procedure
285 : #endif
286 :
287 : #if RK3_ENABLED
288 0 : module procedure getQR_Open_EM_NM_RK3
289 : use pm_kind, only: RKC => RK3
290 : #include "pm_quadRomb@routines.inc.F90"
291 : end procedure
292 : #endif
293 :
294 : #if RK2_ENABLED
295 0 : module procedure getQR_Open_EM_NM_RK2
296 : use pm_kind, only: RKC => RK2
297 : #include "pm_quadRomb@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #if RK1_ENABLED
302 0 : module procedure getQR_Open_EM_NM_RK1
303 : use pm_kind, only: RKC => RK1
304 : #include "pm_quadRomb@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #undef RK_ENABLED
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 :
312 : #undef NM_ENABLED
313 :
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : #undef EM_ENABLED
319 :
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #define EP_ENABLED 1
325 :
326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 :
330 : #define NM_ENABLED 1
331 :
332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 :
334 : #define RK_ENABLED 1
335 :
336 : #if RK5_ENABLED
337 : module procedure getQR_Open_EP_NM_RK5
338 : use pm_kind, only: RKC => RK5
339 : #include "pm_quadRomb@routines.inc.F90"
340 : end procedure
341 : #endif
342 :
343 : #if RK4_ENABLED
344 0 : module procedure getQR_Open_EP_NM_RK4
345 : use pm_kind, only: RKC => RK4
346 : #include "pm_quadRomb@routines.inc.F90"
347 0 : end procedure
348 : #endif
349 :
350 : #if RK3_ENABLED
351 0 : module procedure getQR_Open_EP_NM_RK3
352 : use pm_kind, only: RKC => RK3
353 : #include "pm_quadRomb@routines.inc.F90"
354 0 : end procedure
355 : #endif
356 :
357 : #if RK2_ENABLED
358 0 : module procedure getQR_Open_EP_NM_RK2
359 : use pm_kind, only: RKC => RK2
360 : #include "pm_quadRomb@routines.inc.F90"
361 0 : end procedure
362 : #endif
363 :
364 : #if RK1_ENABLED
365 0 : module procedure getQR_Open_EP_NM_RK1
366 : use pm_kind, only: RKC => RK1
367 : #include "pm_quadRomb@routines.inc.F90"
368 0 : end procedure
369 : #endif
370 :
371 : #undef RK_ENABLED
372 :
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 :
375 : #undef NM_ENABLED
376 :
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #undef EP_ENABLED
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : #define EP_ENABLED 1
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 :
393 : #define NP_ENABLED 1
394 :
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 :
397 : #define RK_ENABLED 1
398 :
399 : #if RK5_ENABLED
400 : module procedure getQR_Open_EP_NP_RK5
401 : use pm_kind, only: RKC => RK5
402 : #include "pm_quadRomb@routines.inc.F90"
403 : end procedure
404 : #endif
405 :
406 : #if RK4_ENABLED
407 1 : module procedure getQR_Open_EP_NP_RK4
408 : use pm_kind, only: RKC => RK4
409 : #include "pm_quadRomb@routines.inc.F90"
410 0 : end procedure
411 : #endif
412 :
413 : #if RK3_ENABLED
414 0 : module procedure getQR_Open_EP_NP_RK3
415 : use pm_kind, only: RKC => RK3
416 : #include "pm_quadRomb@routines.inc.F90"
417 0 : end procedure
418 : #endif
419 :
420 : #if RK2_ENABLED
421 1 : module procedure getQR_Open_EP_NP_RK2
422 : use pm_kind, only: RKC => RK2
423 : #include "pm_quadRomb@routines.inc.F90"
424 0 : end procedure
425 : #endif
426 :
427 : #if RK1_ENABLED
428 1 : module procedure getQR_Open_EP_NP_RK1
429 : use pm_kind, only: RKC => RK1
430 : #include "pm_quadRomb@routines.inc.F90"
431 0 : end procedure
432 : #endif
433 :
434 : #undef RK_ENABLED
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #undef NP_ENABLED
439 :
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 :
444 : #undef EP_ENABLED
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 :
450 : #undef Open_ENABLED
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 :
456 : #define PWRL_ENABLED 1
457 :
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 :
462 : #define EM_ENABLED 1
463 :
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #define NM_ENABLED 1
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #define RK_ENABLED 1
473 :
474 : #if RK5_ENABLED
475 : module procedure getQR_PWRL_EM_NM_RK5
476 : use pm_kind, only: RKC => RK5
477 : #include "pm_quadRomb@routines.inc.F90"
478 : end procedure
479 : #endif
480 :
481 : #if RK4_ENABLED
482 0 : module procedure getQR_PWRL_EM_NM_RK4
483 : use pm_kind, only: RKC => RK4
484 : #include "pm_quadRomb@routines.inc.F90"
485 : end procedure
486 : #endif
487 :
488 : #if RK3_ENABLED
489 0 : module procedure getQR_PWRL_EM_NM_RK3
490 : use pm_kind, only: RKC => RK3
491 : #include "pm_quadRomb@routines.inc.F90"
492 : end procedure
493 : #endif
494 :
495 : #if RK2_ENABLED
496 0 : module procedure getQR_PWRL_EM_NM_RK2
497 : use pm_kind, only: RKC => RK2
498 : #include "pm_quadRomb@routines.inc.F90"
499 : end procedure
500 : #endif
501 :
502 : #if RK1_ENABLED
503 0 : module procedure getQR_PWRL_EM_NM_RK1
504 : use pm_kind, only: RKC => RK1
505 : #include "pm_quadRomb@routines.inc.F90"
506 : end procedure
507 : #endif
508 :
509 : #undef RK_ENABLED
510 :
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 :
513 : #undef NM_ENABLED
514 :
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 :
519 : #undef EM_ENABLED
520 :
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524 :
525 : #define EP_ENABLED 1
526 :
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 :
531 : #define NM_ENABLED 1
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : #define RK_ENABLED 1
536 :
537 : #if RK5_ENABLED
538 : module procedure getQR_PWRL_EP_NM_RK5
539 : use pm_kind, only: RKC => RK5
540 : #include "pm_quadRomb@routines.inc.F90"
541 : end procedure
542 : #endif
543 :
544 : #if RK4_ENABLED
545 0 : module procedure getQR_PWRL_EP_NM_RK4
546 : use pm_kind, only: RKC => RK4
547 : #include "pm_quadRomb@routines.inc.F90"
548 0 : end procedure
549 : #endif
550 :
551 : #if RK3_ENABLED
552 0 : module procedure getQR_PWRL_EP_NM_RK3
553 : use pm_kind, only: RKC => RK3
554 : #include "pm_quadRomb@routines.inc.F90"
555 0 : end procedure
556 : #endif
557 :
558 : #if RK2_ENABLED
559 0 : module procedure getQR_PWRL_EP_NM_RK2
560 : use pm_kind, only: RKC => RK2
561 : #include "pm_quadRomb@routines.inc.F90"
562 0 : end procedure
563 : #endif
564 :
565 : #if RK1_ENABLED
566 0 : module procedure getQR_PWRL_EP_NM_RK1
567 : use pm_kind, only: RKC => RK1
568 : #include "pm_quadRomb@routines.inc.F90"
569 0 : end procedure
570 : #endif
571 :
572 : #undef RK_ENABLED
573 :
574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 :
576 : #undef NM_ENABLED
577 :
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #undef EP_ENABLED
583 :
584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 :
588 : #define EP_ENABLED 1
589 :
590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 :
594 : #define NP_ENABLED 1
595 :
596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597 :
598 : #define RK_ENABLED 1
599 :
600 : #if RK5_ENABLED
601 : module procedure getQR_PWRL_EP_NP_RK5
602 : use pm_kind, only: RKC => RK5
603 : #include "pm_quadRomb@routines.inc.F90"
604 : end procedure
605 : #endif
606 :
607 : #if RK4_ENABLED
608 1 : module procedure getQR_PWRL_EP_NP_RK4
609 : use pm_kind, only: RKC => RK4
610 : #include "pm_quadRomb@routines.inc.F90"
611 0 : end procedure
612 : #endif
613 :
614 : #if RK3_ENABLED
615 0 : module procedure getQR_PWRL_EP_NP_RK3
616 : use pm_kind, only: RKC => RK3
617 : #include "pm_quadRomb@routines.inc.F90"
618 0 : end procedure
619 : #endif
620 :
621 : #if RK2_ENABLED
622 1 : module procedure getQR_PWRL_EP_NP_RK2
623 : use pm_kind, only: RKC => RK2
624 : #include "pm_quadRomb@routines.inc.F90"
625 0 : end procedure
626 : #endif
627 :
628 : #if RK1_ENABLED
629 1 : module procedure getQR_PWRL_EP_NP_RK1
630 : use pm_kind, only: RKC => RK1
631 : #include "pm_quadRomb@routines.inc.F90"
632 0 : end procedure
633 : #endif
634 :
635 : #undef RK_ENABLED
636 :
637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
638 :
639 : #undef NP_ENABLED
640 :
641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
644 :
645 : #undef EP_ENABLED
646 :
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
650 :
651 : #undef PWRL_ENABLED
652 :
653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656 :
657 : #define NEXP_ENABLED 1
658 :
659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 :
663 : #define EM_ENABLED 1
664 :
665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668 :
669 : #define NM_ENABLED 1
670 :
671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
672 :
673 : #define RK_ENABLED 1
674 :
675 : #if RK5_ENABLED
676 : module procedure getQR_NEXP_EM_NM_RK5
677 : use pm_kind, only: RKC => RK5
678 : #include "pm_quadRomb@routines.inc.F90"
679 : end procedure
680 : #endif
681 :
682 : #if RK4_ENABLED
683 0 : module procedure getQR_NEXP_EM_NM_RK4
684 : use pm_kind, only: RKC => RK4
685 : #include "pm_quadRomb@routines.inc.F90"
686 : end procedure
687 : #endif
688 :
689 : #if RK3_ENABLED
690 0 : module procedure getQR_NEXP_EM_NM_RK3
691 : use pm_kind, only: RKC => RK3
692 : #include "pm_quadRomb@routines.inc.F90"
693 : end procedure
694 : #endif
695 :
696 : #if RK2_ENABLED
697 0 : module procedure getQR_NEXP_EM_NM_RK2
698 : use pm_kind, only: RKC => RK2
699 : #include "pm_quadRomb@routines.inc.F90"
700 : end procedure
701 : #endif
702 :
703 : #if RK1_ENABLED
704 0 : module procedure getQR_NEXP_EM_NM_RK1
705 : use pm_kind, only: RKC => RK1
706 : #include "pm_quadRomb@routines.inc.F90"
707 : end procedure
708 : #endif
709 :
710 : #undef RK_ENABLED
711 :
712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
713 :
714 : #undef NM_ENABLED
715 :
716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
719 :
720 : #undef EM_ENABLED
721 :
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 :
726 : #define EP_ENABLED 1
727 :
728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731 :
732 : #define NM_ENABLED 1
733 :
734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735 :
736 : #define RK_ENABLED 1
737 :
738 : #if RK5_ENABLED
739 : module procedure getQR_NEXP_EP_NM_RK5
740 : use pm_kind, only: RKC => RK5
741 : #include "pm_quadRomb@routines.inc.F90"
742 : end procedure
743 : #endif
744 :
745 : #if RK4_ENABLED
746 0 : module procedure getQR_NEXP_EP_NM_RK4
747 : use pm_kind, only: RKC => RK4
748 : #include "pm_quadRomb@routines.inc.F90"
749 0 : end procedure
750 : #endif
751 :
752 : #if RK3_ENABLED
753 0 : module procedure getQR_NEXP_EP_NM_RK3
754 : use pm_kind, only: RKC => RK3
755 : #include "pm_quadRomb@routines.inc.F90"
756 0 : end procedure
757 : #endif
758 :
759 : #if RK2_ENABLED
760 0 : module procedure getQR_NEXP_EP_NM_RK2
761 : use pm_kind, only: RKC => RK2
762 : #include "pm_quadRomb@routines.inc.F90"
763 0 : end procedure
764 : #endif
765 :
766 : #if RK1_ENABLED
767 0 : module procedure getQR_NEXP_EP_NM_RK1
768 : use pm_kind, only: RKC => RK1
769 : #include "pm_quadRomb@routines.inc.F90"
770 0 : end procedure
771 : #endif
772 :
773 : #undef RK_ENABLED
774 :
775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
776 :
777 : #undef NM_ENABLED
778 :
779 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
782 :
783 : #undef EP_ENABLED
784 :
785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
788 :
789 : #define EP_ENABLED 1
790 :
791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 :
795 : #define NP_ENABLED 1
796 :
797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
798 :
799 : #define RK_ENABLED 1
800 :
801 : #if RK5_ENABLED
802 : module procedure getQR_NEXP_EP_NP_RK5
803 : use pm_kind, only: RKC => RK5
804 : #include "pm_quadRomb@routines.inc.F90"
805 : end procedure
806 : #endif
807 :
808 : #if RK4_ENABLED
809 2 : module procedure getQR_NEXP_EP_NP_RK4
810 : use pm_kind, only: RKC => RK4
811 : #include "pm_quadRomb@routines.inc.F90"
812 0 : end procedure
813 : #endif
814 :
815 : #if RK3_ENABLED
816 0 : module procedure getQR_NEXP_EP_NP_RK3
817 : use pm_kind, only: RKC => RK3
818 : #include "pm_quadRomb@routines.inc.F90"
819 0 : end procedure
820 : #endif
821 :
822 : #if RK2_ENABLED
823 2 : module procedure getQR_NEXP_EP_NP_RK2
824 : use pm_kind, only: RKC => RK2
825 : #include "pm_quadRomb@routines.inc.F90"
826 0 : end procedure
827 : #endif
828 :
829 : #if RK1_ENABLED
830 2 : module procedure getQR_NEXP_EP_NP_RK1
831 : use pm_kind, only: RKC => RK1
832 : #include "pm_quadRomb@routines.inc.F90"
833 0 : end procedure
834 : #endif
835 :
836 : #undef RK_ENABLED
837 :
838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
839 :
840 : #undef NP_ENABLED
841 :
842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 :
846 : #undef EP_ENABLED
847 :
848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851 :
852 : #undef NEXP_ENABLED
853 :
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 :
858 : #define PEXP_ENABLED 1
859 :
860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
863 :
864 : #define EM_ENABLED 1
865 :
866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
869 :
870 : #define NM_ENABLED 1
871 :
872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873 :
874 : #define RK_ENABLED 1
875 :
876 : #if RK5_ENABLED
877 : module procedure getQR_PEXP_EM_NM_RK5
878 : use pm_kind, only: RKC => RK5
879 : #include "pm_quadRomb@routines.inc.F90"
880 : end procedure
881 : #endif
882 :
883 : #if RK4_ENABLED
884 0 : module procedure getQR_PEXP_EM_NM_RK4
885 : use pm_kind, only: RKC => RK4
886 : #include "pm_quadRomb@routines.inc.F90"
887 : end procedure
888 : #endif
889 :
890 : #if RK3_ENABLED
891 0 : module procedure getQR_PEXP_EM_NM_RK3
892 : use pm_kind, only: RKC => RK3
893 : #include "pm_quadRomb@routines.inc.F90"
894 : end procedure
895 : #endif
896 :
897 : #if RK2_ENABLED
898 0 : module procedure getQR_PEXP_EM_NM_RK2
899 : use pm_kind, only: RKC => RK2
900 : #include "pm_quadRomb@routines.inc.F90"
901 : end procedure
902 : #endif
903 :
904 : #if RK1_ENABLED
905 0 : module procedure getQR_PEXP_EM_NM_RK1
906 : use pm_kind, only: RKC => RK1
907 : #include "pm_quadRomb@routines.inc.F90"
908 : end procedure
909 : #endif
910 :
911 : #undef RK_ENABLED
912 :
913 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
914 :
915 : #undef NM_ENABLED
916 :
917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
920 :
921 : #undef EM_ENABLED
922 :
923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
926 :
927 : #define EP_ENABLED 1
928 :
929 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
930 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
932 :
933 : #define NM_ENABLED 1
934 :
935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
936 :
937 : #define RK_ENABLED 1
938 :
939 : #if RK5_ENABLED
940 : module procedure getQR_PEXP_EP_NM_RK5
941 : use pm_kind, only: RKC => RK5
942 : #include "pm_quadRomb@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #if RK4_ENABLED
947 0 : module procedure getQR_PEXP_EP_NM_RK4
948 : use pm_kind, only: RKC => RK4
949 : #include "pm_quadRomb@routines.inc.F90"
950 0 : end procedure
951 : #endif
952 :
953 : #if RK3_ENABLED
954 0 : module procedure getQR_PEXP_EP_NM_RK3
955 : use pm_kind, only: RKC => RK3
956 : #include "pm_quadRomb@routines.inc.F90"
957 0 : end procedure
958 : #endif
959 :
960 : #if RK2_ENABLED
961 0 : module procedure getQR_PEXP_EP_NM_RK2
962 : use pm_kind, only: RKC => RK2
963 : #include "pm_quadRomb@routines.inc.F90"
964 0 : end procedure
965 : #endif
966 :
967 : #if RK1_ENABLED
968 0 : module procedure getQR_PEXP_EP_NM_RK1
969 : use pm_kind, only: RKC => RK1
970 : #include "pm_quadRomb@routines.inc.F90"
971 0 : end procedure
972 : #endif
973 :
974 : #undef RK_ENABLED
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 :
978 : #undef NM_ENABLED
979 :
980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
983 :
984 : #undef EP_ENABLED
985 :
986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989 :
990 : #define EP_ENABLED 1
991 :
992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 :
996 : #define NP_ENABLED 1
997 :
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 :
1000 : #define RK_ENABLED 1
1001 :
1002 : #if RK5_ENABLED
1003 : module procedure getQR_PEXP_EP_NP_RK5
1004 : use pm_kind, only: RKC => RK5
1005 : #include "pm_quadRomb@routines.inc.F90"
1006 : end procedure
1007 : #endif
1008 :
1009 : #if RK4_ENABLED
1010 2 : module procedure getQR_PEXP_EP_NP_RK4
1011 : use pm_kind, only: RKC => RK4
1012 : #include "pm_quadRomb@routines.inc.F90"
1013 0 : end procedure
1014 : #endif
1015 :
1016 : #if RK3_ENABLED
1017 0 : module procedure getQR_PEXP_EP_NP_RK3
1018 : use pm_kind, only: RKC => RK3
1019 : #include "pm_quadRomb@routines.inc.F90"
1020 0 : end procedure
1021 : #endif
1022 :
1023 : #if RK2_ENABLED
1024 2 : module procedure getQR_PEXP_EP_NP_RK2
1025 : use pm_kind, only: RKC => RK2
1026 : #include "pm_quadRomb@routines.inc.F90"
1027 0 : end procedure
1028 : #endif
1029 :
1030 : #if RK1_ENABLED
1031 2 : module procedure getQR_PEXP_EP_NP_RK1
1032 : use pm_kind, only: RKC => RK1
1033 : #include "pm_quadRomb@routines.inc.F90"
1034 0 : end procedure
1035 : #endif
1036 :
1037 : #undef RK_ENABLED
1038 :
1039 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1040 :
1041 : #undef NP_ENABLED
1042 :
1043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1046 :
1047 : #undef EP_ENABLED
1048 :
1049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 :
1053 : #undef PEXP_ENABLED
1054 :
1055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 :
1059 : #define LBIS_ENABLED 1
1060 :
1061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 :
1065 : #define EM_ENABLED 1
1066 :
1067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 :
1071 : #define NM_ENABLED 1
1072 :
1073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1074 :
1075 : #define RK_ENABLED 1
1076 :
1077 : #if RK5_ENABLED
1078 : module procedure getQR_LBIS_EM_NM_RK5
1079 : use pm_kind, only: RKC => RK5
1080 : #include "pm_quadRomb@routines.inc.F90"
1081 : end procedure
1082 : #endif
1083 :
1084 : #if RK4_ENABLED
1085 2 : module procedure getQR_LBIS_EM_NM_RK4
1086 : use pm_kind, only: RKC => RK4
1087 : #include "pm_quadRomb@routines.inc.F90"
1088 : end procedure
1089 : #endif
1090 :
1091 : #if RK3_ENABLED
1092 0 : module procedure getQR_LBIS_EM_NM_RK3
1093 : use pm_kind, only: RKC => RK3
1094 : #include "pm_quadRomb@routines.inc.F90"
1095 : end procedure
1096 : #endif
1097 :
1098 : #if RK2_ENABLED
1099 4 : module procedure getQR_LBIS_EM_NM_RK2
1100 : use pm_kind, only: RKC => RK2
1101 : #include "pm_quadRomb@routines.inc.F90"
1102 : end procedure
1103 : #endif
1104 :
1105 : #if RK1_ENABLED
1106 2 : module procedure getQR_LBIS_EM_NM_RK1
1107 : use pm_kind, only: RKC => RK1
1108 : #include "pm_quadRomb@routines.inc.F90"
1109 : end procedure
1110 : #endif
1111 :
1112 : #undef RK_ENABLED
1113 :
1114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1115 :
1116 : #undef NM_ENABLED
1117 :
1118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1121 :
1122 : #undef EM_ENABLED
1123 :
1124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1127 :
1128 : #define EP_ENABLED 1
1129 :
1130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133 :
1134 : #define NM_ENABLED 1
1135 :
1136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1137 :
1138 : #define RK_ENABLED 1
1139 :
1140 : #if RK5_ENABLED
1141 : module procedure getQR_LBIS_EP_NM_RK5
1142 : use pm_kind, only: RKC => RK5
1143 : #include "pm_quadRomb@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if RK4_ENABLED
1148 0 : module procedure getQR_LBIS_EP_NM_RK4
1149 : use pm_kind, only: RKC => RK4
1150 : #include "pm_quadRomb@routines.inc.F90"
1151 0 : end procedure
1152 : #endif
1153 :
1154 : #if RK3_ENABLED
1155 0 : module procedure getQR_LBIS_EP_NM_RK3
1156 : use pm_kind, only: RKC => RK3
1157 : #include "pm_quadRomb@routines.inc.F90"
1158 0 : end procedure
1159 : #endif
1160 :
1161 : #if RK2_ENABLED
1162 0 : module procedure getQR_LBIS_EP_NM_RK2
1163 : use pm_kind, only: RKC => RK2
1164 : #include "pm_quadRomb@routines.inc.F90"
1165 0 : end procedure
1166 : #endif
1167 :
1168 : #if RK1_ENABLED
1169 0 : module procedure getQR_LBIS_EP_NM_RK1
1170 : use pm_kind, only: RKC => RK1
1171 : #include "pm_quadRomb@routines.inc.F90"
1172 0 : end procedure
1173 : #endif
1174 :
1175 : #undef RK_ENABLED
1176 :
1177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1178 :
1179 : #undef NM_ENABLED
1180 :
1181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 :
1185 : #undef EP_ENABLED
1186 :
1187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190 :
1191 : #define EP_ENABLED 1
1192 :
1193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1196 :
1197 : #define NP_ENABLED 1
1198 :
1199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1200 :
1201 : #define RK_ENABLED 1
1202 :
1203 : #if RK5_ENABLED
1204 : module procedure getQR_LBIS_EP_NP_RK5
1205 : use pm_kind, only: RKC => RK5
1206 : #include "pm_quadRomb@routines.inc.F90"
1207 : end procedure
1208 : #endif
1209 :
1210 : #if RK4_ENABLED
1211 0 : module procedure getQR_LBIS_EP_NP_RK4
1212 : use pm_kind, only: RKC => RK4
1213 : #include "pm_quadRomb@routines.inc.F90"
1214 0 : end procedure
1215 : #endif
1216 :
1217 : #if RK3_ENABLED
1218 0 : module procedure getQR_LBIS_EP_NP_RK3
1219 : use pm_kind, only: RKC => RK3
1220 : #include "pm_quadRomb@routines.inc.F90"
1221 0 : end procedure
1222 : #endif
1223 :
1224 : #if RK2_ENABLED
1225 0 : module procedure getQR_LBIS_EP_NP_RK2
1226 : use pm_kind, only: RKC => RK2
1227 : #include "pm_quadRomb@routines.inc.F90"
1228 0 : end procedure
1229 : #endif
1230 :
1231 : #if RK1_ENABLED
1232 0 : module procedure getQR_LBIS_EP_NP_RK1
1233 : use pm_kind, only: RKC => RK1
1234 : #include "pm_quadRomb@routines.inc.F90"
1235 0 : end procedure
1236 : #endif
1237 :
1238 : #undef RK_ENABLED
1239 :
1240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1241 :
1242 : #undef NP_ENABLED
1243 :
1244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247 :
1248 : #undef EP_ENABLED
1249 :
1250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #undef LBIS_ENABLED
1255 :
1256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259 :
1260 : #define UBIS_ENABLED 1
1261 :
1262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1265 :
1266 : #define EM_ENABLED 1
1267 :
1268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 :
1272 : #define NM_ENABLED 1
1273 :
1274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1275 :
1276 : #define RK_ENABLED 1
1277 :
1278 : #if RK5_ENABLED
1279 : module procedure getQR_UBIS_EM_NM_RK5
1280 : use pm_kind, only: RKC => RK5
1281 : #include "pm_quadRomb@routines.inc.F90"
1282 : end procedure
1283 : #endif
1284 :
1285 : #if RK4_ENABLED
1286 2 : module procedure getQR_UBIS_EM_NM_RK4
1287 : use pm_kind, only: RKC => RK4
1288 : #include "pm_quadRomb@routines.inc.F90"
1289 : end procedure
1290 : #endif
1291 :
1292 : #if RK3_ENABLED
1293 0 : module procedure getQR_UBIS_EM_NM_RK3
1294 : use pm_kind, only: RKC => RK3
1295 : #include "pm_quadRomb@routines.inc.F90"
1296 : end procedure
1297 : #endif
1298 :
1299 : #if RK2_ENABLED
1300 4 : module procedure getQR_UBIS_EM_NM_RK2
1301 : use pm_kind, only: RKC => RK2
1302 : #include "pm_quadRomb@routines.inc.F90"
1303 : end procedure
1304 : #endif
1305 :
1306 : #if RK1_ENABLED
1307 2 : module procedure getQR_UBIS_EM_NM_RK1
1308 : use pm_kind, only: RKC => RK1
1309 : #include "pm_quadRomb@routines.inc.F90"
1310 : end procedure
1311 : #endif
1312 :
1313 : #undef RK_ENABLED
1314 :
1315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1316 :
1317 : #undef NM_ENABLED
1318 :
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322 :
1323 : #undef EM_ENABLED
1324 :
1325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1328 :
1329 : #define EP_ENABLED 1
1330 :
1331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1334 :
1335 : #define NM_ENABLED 1
1336 :
1337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1338 :
1339 : #define RK_ENABLED 1
1340 :
1341 : #if RK5_ENABLED
1342 : module procedure getQR_UBIS_EP_NM_RK5
1343 : use pm_kind, only: RKC => RK5
1344 : #include "pm_quadRomb@routines.inc.F90"
1345 : end procedure
1346 : #endif
1347 :
1348 : #if RK4_ENABLED
1349 0 : module procedure getQR_UBIS_EP_NM_RK4
1350 : use pm_kind, only: RKC => RK4
1351 : #include "pm_quadRomb@routines.inc.F90"
1352 0 : end procedure
1353 : #endif
1354 :
1355 : #if RK3_ENABLED
1356 0 : module procedure getQR_UBIS_EP_NM_RK3
1357 : use pm_kind, only: RKC => RK3
1358 : #include "pm_quadRomb@routines.inc.F90"
1359 0 : end procedure
1360 : #endif
1361 :
1362 : #if RK2_ENABLED
1363 0 : module procedure getQR_UBIS_EP_NM_RK2
1364 : use pm_kind, only: RKC => RK2
1365 : #include "pm_quadRomb@routines.inc.F90"
1366 0 : end procedure
1367 : #endif
1368 :
1369 : #if RK1_ENABLED
1370 0 : module procedure getQR_UBIS_EP_NM_RK1
1371 : use pm_kind, only: RKC => RK1
1372 : #include "pm_quadRomb@routines.inc.F90"
1373 0 : end procedure
1374 : #endif
1375 :
1376 : #undef RK_ENABLED
1377 :
1378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1379 :
1380 : #undef NM_ENABLED
1381 :
1382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 :
1386 : #undef EP_ENABLED
1387 :
1388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 :
1392 : #define EP_ENABLED 1
1393 :
1394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 :
1398 : #define NP_ENABLED 1
1399 :
1400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1401 :
1402 : #define RK_ENABLED 1
1403 :
1404 : #if RK5_ENABLED
1405 : module procedure getQR_UBIS_EP_NP_RK5
1406 : use pm_kind, only: RKC => RK5
1407 : #include "pm_quadRomb@routines.inc.F90"
1408 : end procedure
1409 : #endif
1410 :
1411 : #if RK4_ENABLED
1412 0 : module procedure getQR_UBIS_EP_NP_RK4
1413 : use pm_kind, only: RKC => RK4
1414 : #include "pm_quadRomb@routines.inc.F90"
1415 0 : end procedure
1416 : #endif
1417 :
1418 : #if RK3_ENABLED
1419 0 : module procedure getQR_UBIS_EP_NP_RK3
1420 : use pm_kind, only: RKC => RK3
1421 : #include "pm_quadRomb@routines.inc.F90"
1422 0 : end procedure
1423 : #endif
1424 :
1425 : #if RK2_ENABLED
1426 0 : module procedure getQR_UBIS_EP_NP_RK2
1427 : use pm_kind, only: RKC => RK2
1428 : #include "pm_quadRomb@routines.inc.F90"
1429 0 : end procedure
1430 : #endif
1431 :
1432 : #if RK1_ENABLED
1433 0 : module procedure getQR_UBIS_EP_NP_RK1
1434 : use pm_kind, only: RKC => RK1
1435 : #include "pm_quadRomb@routines.inc.F90"
1436 0 : end procedure
1437 : #endif
1438 :
1439 : #undef RK_ENABLED
1440 :
1441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1442 :
1443 : #undef NP_ENABLED
1444 :
1445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 :
1449 : #undef EP_ENABLED
1450 :
1451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454 :
1455 : #undef UBIS_ENABLED
1456 :
1457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1460 :
1461 : #undef getQuadRomb_ENABLED
1462 :
1463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1464 :
1465 : #undef CHECK_ASSERTION
1466 :
1467 : end submodule routines
|
