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_quadPack](@ref pm_quadPack).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_quadPack) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_err, only: setAsserted
32 : use pm_arrayUnique, only: getUnique
33 : use pm_arraySort, only: isAscending
34 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
35 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
36 : #else
37 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
38 : #endif
39 :
40 : use pm_arrayMerge, only: setMerged
41 : use pm_val2str, only: getStr
42 :
43 : implicit none
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : contains
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define constructWcauchy_ENABLED 1
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define RK_ENABLED 1
56 :
57 : #if RK5_ENABLED
58 : module procedure constructWcauchy_RK5
59 : use pm_kind, only: RKC => RK5
60 : #include "pm_quadPack@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if RK4_ENABLED
65 4 : module procedure constructWcauchy_RK4
66 : use pm_kind, only: RKC => RK4
67 : #include "pm_quadPack@routines.inc.F90"
68 4 : end procedure
69 : #endif
70 :
71 : #if RK3_ENABLED
72 0 : module procedure constructWcauchy_RK3
73 : use pm_kind, only: RKC => RK3
74 : #include "pm_quadPack@routines.inc.F90"
75 0 : end procedure
76 : #endif
77 :
78 : #if RK2_ENABLED
79 0 : module procedure constructWcauchy_RK2
80 : use pm_kind, only: RKC => RK2
81 : #include "pm_quadPack@routines.inc.F90"
82 0 : end procedure
83 : #endif
84 :
85 : #if RK1_ENABLED
86 0 : module procedure constructWcauchy_RK1
87 : use pm_kind, only: RKC => RK1
88 : #include "pm_quadPack@routines.inc.F90"
89 0 : end procedure
90 : #endif
91 :
92 : #undef RK_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #undef constructWcauchy_ENABLED
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 :
100 : #define constructWsin_ENABLED 1
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define RK_ENABLED 1
105 :
106 : #if RK5_ENABLED
107 : module procedure constructWsin_RK5
108 : use pm_kind, only: RKC => RK5
109 : #include "pm_quadPack@routines.inc.F90"
110 : end procedure
111 : #endif
112 :
113 : #if RK4_ENABLED
114 0 : module procedure constructWsin_RK4
115 : use pm_kind, only: RKC => RK4
116 : #include "pm_quadPack@routines.inc.F90"
117 0 : end procedure
118 : #endif
119 :
120 : #if RK3_ENABLED
121 0 : module procedure constructWsin_RK3
122 : use pm_kind, only: RKC => RK3
123 : #include "pm_quadPack@routines.inc.F90"
124 0 : end procedure
125 : #endif
126 :
127 : #if RK2_ENABLED
128 0 : module procedure constructWsin_RK2
129 : use pm_kind, only: RKC => RK2
130 : #include "pm_quadPack@routines.inc.F90"
131 0 : end procedure
132 : #endif
133 :
134 : #if RK1_ENABLED
135 0 : module procedure constructWsin_RK1
136 : use pm_kind, only: RKC => RK1
137 : #include "pm_quadPack@routines.inc.F90"
138 0 : end procedure
139 : #endif
140 :
141 : #undef RK_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #undef constructWsin_ENABLED
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #define constructWcos_ENABLED 1
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : #define RK_ENABLED 1
154 :
155 : #if RK5_ENABLED
156 : module procedure constructWcos_RK5
157 : use pm_kind, only: RKC => RK5
158 : #include "pm_quadPack@routines.inc.F90"
159 : end procedure
160 : #endif
161 :
162 : #if RK4_ENABLED
163 0 : module procedure constructWcos_RK4
164 : use pm_kind, only: RKC => RK4
165 : #include "pm_quadPack@routines.inc.F90"
166 0 : end procedure
167 : #endif
168 :
169 : #if RK3_ENABLED
170 0 : module procedure constructWcos_RK3
171 : use pm_kind, only: RKC => RK3
172 : #include "pm_quadPack@routines.inc.F90"
173 0 : end procedure
174 : #endif
175 :
176 : #if RK2_ENABLED
177 0 : module procedure constructWcos_RK2
178 : use pm_kind, only: RKC => RK2
179 : #include "pm_quadPack@routines.inc.F90"
180 0 : end procedure
181 : #endif
182 :
183 : #if RK1_ENABLED
184 0 : module procedure constructWcos_RK1
185 : use pm_kind, only: RKC => RK1
186 : #include "pm_quadPack@routines.inc.F90"
187 0 : end procedure
188 : #endif
189 :
190 : #undef RK_ENABLED
191 :
192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193 :
194 : #undef constructWcos_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #define setNodeWeightGK_ENABLED 1
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #define Fixed_ENABLED 1
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 :
208 : #define RK_ENABLED 1
209 :
210 : #if RK5_ENABLED
211 : module procedure setNodeWeightGKFixed_RK5
212 : use pm_kind, only: RKC => RK5
213 : #include "pm_quadPack@routines.inc.F90"
214 : end procedure
215 : #endif
216 :
217 : #if RK4_ENABLED
218 126 : module procedure setNodeWeightGKFixed_RK4
219 : use pm_kind, only: RKC => RK4
220 : #include "pm_quadPack@routines.inc.F90"
221 : end procedure
222 : #endif
223 :
224 : #if RK3_ENABLED
225 0 : module procedure setNodeWeightGKFixed_RK3
226 : use pm_kind, only: RKC => RK3
227 : #include "pm_quadPack@routines.inc.F90"
228 : end procedure
229 : #endif
230 :
231 : #if RK2_ENABLED
232 0 : module procedure setNodeWeightGKFixed_RK2
233 : use pm_kind, only: RKC => RK2
234 : #include "pm_quadPack@routines.inc.F90"
235 : end procedure
236 : #endif
237 :
238 : #if RK1_ENABLED
239 0 : module procedure setNodeWeightGKFixed_RK1
240 : use pm_kind, only: RKC => RK1
241 : #include "pm_quadPack@routines.inc.F90"
242 : end procedure
243 : #endif
244 :
245 : #undef RK_ENABLED
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #undef Fixed_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #define Alloc_ENABLED 1
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define RK_ENABLED 1
260 :
261 : #if RK5_ENABLED
262 : module procedure setNodeWeightGKAlloc_RK5
263 : use pm_kind, only: RKC => RK5
264 : #include "pm_quadPack@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #if RK4_ENABLED
269 350 : module procedure setNodeWeightGKAlloc_RK4
270 : use pm_kind, only: RKC => RK4
271 : #include "pm_quadPack@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #if RK3_ENABLED
276 0 : module procedure setNodeWeightGKAlloc_RK3
277 : use pm_kind, only: RKC => RK3
278 : #include "pm_quadPack@routines.inc.F90"
279 : end procedure
280 : #endif
281 :
282 : #if RK2_ENABLED
283 0 : module procedure setNodeWeightGKAlloc_RK2
284 : use pm_kind, only: RKC => RK2
285 : #include "pm_quadPack@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK1_ENABLED
290 0 : module procedure setNodeWeightGKAlloc_RK1
291 : use pm_kind, only: RKC => RK1
292 : #include "pm_quadPack@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #undef RK_ENABLED
297 :
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : #undef Alloc_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 :
306 : #undef setNodeWeightGK_ENABLED
307 :
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #define getQuadGK_ENABLED 1
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #define GK15_ENABLED 1
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #define FF_ENABLED 1
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #define RK_ENABLED 1
327 :
328 : #if RK5_ENABLED
329 : module procedure getQuadGK15_FF_RK5
330 : use pm_kind, only: RKC => RK5
331 : #include "pm_quadPack@routines.inc.F90"
332 : end procedure
333 : #endif
334 :
335 : #if RK4_ENABLED
336 27921 : module procedure getQuadGK15_FF_RK4
337 : use pm_kind, only: RKC => RK4
338 : #include "pm_quadPack@routines.inc.F90"
339 27921 : end procedure
340 : #endif
341 :
342 : #if RK3_ENABLED
343 0 : module procedure getQuadGK15_FF_RK3
344 : use pm_kind, only: RKC => RK3
345 : #include "pm_quadPack@routines.inc.F90"
346 0 : end procedure
347 : #endif
348 :
349 : #if RK2_ENABLED
350 0 : module procedure getQuadGK15_FF_RK2
351 : use pm_kind, only: RKC => RK2
352 : #include "pm_quadPack@routines.inc.F90"
353 0 : end procedure
354 : #endif
355 :
356 : #if RK1_ENABLED
357 0 : module procedure getQuadGK15_FF_RK1
358 : use pm_kind, only: RKC => RK1
359 : #include "pm_quadPack@routines.inc.F90"
360 0 : end procedure
361 : #endif
362 :
363 : #undef RK_ENABLED
364 :
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 :
367 : #undef FF_ENABLED
368 :
369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
372 :
373 : #define FI_ENABLED 1
374 :
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 :
377 : #define RK_ENABLED 1
378 :
379 : #if RK5_ENABLED
380 : module procedure getQuadGK15_FI_RK5
381 : use pm_kind, only: RKC => RK5
382 : #include "pm_quadPack@routines.inc.F90"
383 : end procedure
384 : #endif
385 :
386 : #if RK4_ENABLED
387 1 : module procedure getQuadGK15_FI_RK4
388 : use pm_kind, only: RKC => RK4
389 : #include "pm_quadPack@routines.inc.F90"
390 1 : end procedure
391 : #endif
392 :
393 : #if RK3_ENABLED
394 0 : module procedure getQuadGK15_FI_RK3
395 : use pm_kind, only: RKC => RK3
396 : #include "pm_quadPack@routines.inc.F90"
397 0 : end procedure
398 : #endif
399 :
400 : #if RK2_ENABLED
401 0 : module procedure getQuadGK15_FI_RK2
402 : use pm_kind, only: RKC => RK2
403 : #include "pm_quadPack@routines.inc.F90"
404 0 : end procedure
405 : #endif
406 :
407 : #if RK1_ENABLED
408 0 : module procedure getQuadGK15_FI_RK1
409 : use pm_kind, only: RKC => RK1
410 : #include "pm_quadPack@routines.inc.F90"
411 0 : end procedure
412 : #endif
413 :
414 : #undef RK_ENABLED
415 :
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 :
418 : #undef FI_ENABLED
419 :
420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 :
424 : #define IF_ENABLED 1
425 :
426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
427 :
428 : #define RK_ENABLED 1
429 :
430 : #if RK5_ENABLED
431 : module procedure getQuadGK15_IF_RK5
432 : use pm_kind, only: RKC => RK5
433 : #include "pm_quadPack@routines.inc.F90"
434 : end procedure
435 : #endif
436 :
437 : #if RK4_ENABLED
438 1 : module procedure getQuadGK15_IF_RK4
439 : use pm_kind, only: RKC => RK4
440 : #include "pm_quadPack@routines.inc.F90"
441 1 : end procedure
442 : #endif
443 :
444 : #if RK3_ENABLED
445 0 : module procedure getQuadGK15_IF_RK3
446 : use pm_kind, only: RKC => RK3
447 : #include "pm_quadPack@routines.inc.F90"
448 0 : end procedure
449 : #endif
450 :
451 : #if RK2_ENABLED
452 0 : module procedure getQuadGK15_IF_RK2
453 : use pm_kind, only: RKC => RK2
454 : #include "pm_quadPack@routines.inc.F90"
455 0 : end procedure
456 : #endif
457 :
458 : #if RK1_ENABLED
459 0 : module procedure getQuadGK15_IF_RK1
460 : use pm_kind, only: RKC => RK1
461 : #include "pm_quadPack@routines.inc.F90"
462 0 : end procedure
463 : #endif
464 :
465 : #undef RK_ENABLED
466 :
467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468 :
469 : #undef IF_ENABLED
470 :
471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 :
475 : #define II_ENABLED 1
476 :
477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478 :
479 : #define RK_ENABLED 1
480 :
481 : #if RK5_ENABLED
482 : module procedure getQuadGK15_II_RK5
483 : use pm_kind, only: RKC => RK5
484 : #include "pm_quadPack@routines.inc.F90"
485 : end procedure
486 : #endif
487 :
488 : #if RK4_ENABLED
489 1 : module procedure getQuadGK15_II_RK4
490 : use pm_kind, only: RKC => RK4
491 : #include "pm_quadPack@routines.inc.F90"
492 1 : end procedure
493 : #endif
494 :
495 : #if RK3_ENABLED
496 0 : module procedure getQuadGK15_II_RK3
497 : use pm_kind, only: RKC => RK3
498 : #include "pm_quadPack@routines.inc.F90"
499 0 : end procedure
500 : #endif
501 :
502 : #if RK2_ENABLED
503 0 : module procedure getQuadGK15_II_RK2
504 : use pm_kind, only: RKC => RK2
505 : #include "pm_quadPack@routines.inc.F90"
506 0 : end procedure
507 : #endif
508 :
509 : #if RK1_ENABLED
510 0 : module procedure getQuadGK15_II_RK1
511 : use pm_kind, only: RKC => RK1
512 : #include "pm_quadPack@routines.inc.F90"
513 0 : end procedure
514 : #endif
515 :
516 : #undef RK_ENABLED
517 :
518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
519 :
520 : #undef II_ENABLED
521 :
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 :
526 : #undef GK15_ENABLED
527 :
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #undef getQuadGK_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #define getQuadGK_ENABLED 1
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #define GK21_ENABLED 1
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : #define FF_ENABLED 1
549 :
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #define RK_ENABLED 1
553 :
554 : #if RK5_ENABLED
555 : module procedure getQuadGK21_FF_RK5
556 : use pm_kind, only: RKC => RK5
557 : #include "pm_quadPack@routines.inc.F90"
558 : end procedure
559 : #endif
560 :
561 : #if RK4_ENABLED
562 117636 : module procedure getQuadGK21_FF_RK4
563 : use pm_kind, only: RKC => RK4
564 : #include "pm_quadPack@routines.inc.F90"
565 117636 : end procedure
566 : #endif
567 :
568 : #if RK3_ENABLED
569 15159 : module procedure getQuadGK21_FF_RK3
570 : use pm_kind, only: RKC => RK3
571 : #include "pm_quadPack@routines.inc.F90"
572 15159 : end procedure
573 : #endif
574 :
575 : #if RK2_ENABLED
576 149390 : module procedure getQuadGK21_FF_RK2
577 : use pm_kind, only: RKC => RK2
578 : #include "pm_quadPack@routines.inc.F90"
579 149390 : end procedure
580 : #endif
581 :
582 : #if RK1_ENABLED
583 74089 : module procedure getQuadGK21_FF_RK1
584 : use pm_kind, only: RKC => RK1
585 : #include "pm_quadPack@routines.inc.F90"
586 74089 : end procedure
587 : #endif
588 :
589 : #undef RK_ENABLED
590 :
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 :
593 : #undef FF_ENABLED
594 :
595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #define FI_ENABLED 1
600 :
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 :
603 : #define RK_ENABLED 1
604 :
605 : #if RK5_ENABLED
606 : module procedure getQuadGK21_FI_RK5
607 : use pm_kind, only: RKC => RK5
608 : #include "pm_quadPack@routines.inc.F90"
609 : end procedure
610 : #endif
611 :
612 : #if RK4_ENABLED
613 1 : module procedure getQuadGK21_FI_RK4
614 : use pm_kind, only: RKC => RK4
615 : #include "pm_quadPack@routines.inc.F90"
616 1 : end procedure
617 : #endif
618 :
619 : #if RK3_ENABLED
620 0 : module procedure getQuadGK21_FI_RK3
621 : use pm_kind, only: RKC => RK3
622 : #include "pm_quadPack@routines.inc.F90"
623 0 : end procedure
624 : #endif
625 :
626 : #if RK2_ENABLED
627 0 : module procedure getQuadGK21_FI_RK2
628 : use pm_kind, only: RKC => RK2
629 : #include "pm_quadPack@routines.inc.F90"
630 0 : end procedure
631 : #endif
632 :
633 : #if RK1_ENABLED
634 0 : module procedure getQuadGK21_FI_RK1
635 : use pm_kind, only: RKC => RK1
636 : #include "pm_quadPack@routines.inc.F90"
637 0 : end procedure
638 : #endif
639 :
640 : #undef RK_ENABLED
641 :
642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
643 :
644 : #undef FI_ENABLED
645 :
646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : #define IF_ENABLED 1
651 :
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 :
654 : #define RK_ENABLED 1
655 :
656 : #if RK5_ENABLED
657 : module procedure getQuadGK21_IF_RK5
658 : use pm_kind, only: RKC => RK5
659 : #include "pm_quadPack@routines.inc.F90"
660 : end procedure
661 : #endif
662 :
663 : #if RK4_ENABLED
664 1 : module procedure getQuadGK21_IF_RK4
665 : use pm_kind, only: RKC => RK4
666 : #include "pm_quadPack@routines.inc.F90"
667 1 : end procedure
668 : #endif
669 :
670 : #if RK3_ENABLED
671 0 : module procedure getQuadGK21_IF_RK3
672 : use pm_kind, only: RKC => RK3
673 : #include "pm_quadPack@routines.inc.F90"
674 0 : end procedure
675 : #endif
676 :
677 : #if RK2_ENABLED
678 0 : module procedure getQuadGK21_IF_RK2
679 : use pm_kind, only: RKC => RK2
680 : #include "pm_quadPack@routines.inc.F90"
681 0 : end procedure
682 : #endif
683 :
684 : #if RK1_ENABLED
685 0 : module procedure getQuadGK21_IF_RK1
686 : use pm_kind, only: RKC => RK1
687 : #include "pm_quadPack@routines.inc.F90"
688 0 : end procedure
689 : #endif
690 :
691 : #undef RK_ENABLED
692 :
693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
694 :
695 : #undef IF_ENABLED
696 :
697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
700 :
701 : #define II_ENABLED 1
702 :
703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704 :
705 : #define RK_ENABLED 1
706 :
707 : #if RK5_ENABLED
708 : module procedure getQuadGK21_II_RK5
709 : use pm_kind, only: RKC => RK5
710 : #include "pm_quadPack@routines.inc.F90"
711 : end procedure
712 : #endif
713 :
714 : #if RK4_ENABLED
715 1 : module procedure getQuadGK21_II_RK4
716 : use pm_kind, only: RKC => RK4
717 : #include "pm_quadPack@routines.inc.F90"
718 1 : end procedure
719 : #endif
720 :
721 : #if RK3_ENABLED
722 0 : module procedure getQuadGK21_II_RK3
723 : use pm_kind, only: RKC => RK3
724 : #include "pm_quadPack@routines.inc.F90"
725 0 : end procedure
726 : #endif
727 :
728 : #if RK2_ENABLED
729 0 : module procedure getQuadGK21_II_RK2
730 : use pm_kind, only: RKC => RK2
731 : #include "pm_quadPack@routines.inc.F90"
732 0 : end procedure
733 : #endif
734 :
735 : #if RK1_ENABLED
736 0 : module procedure getQuadGK21_II_RK1
737 : use pm_kind, only: RKC => RK1
738 : #include "pm_quadPack@routines.inc.F90"
739 0 : end procedure
740 : #endif
741 :
742 : #undef RK_ENABLED
743 :
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : #undef II_ENABLED
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 :
752 : #undef GK21_ENABLED
753 :
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 :
758 : #undef getQuadGK_ENABLED
759 :
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 :
762 : #define getQuadGK_ENABLED 1
763 :
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #define GK31_ENABLED 1
769 :
770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 :
774 : #define FF_ENABLED 1
775 :
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 :
778 : #define RK_ENABLED 1
779 :
780 : #if RK5_ENABLED
781 : module procedure getQuadGK31_FF_RK5
782 : use pm_kind, only: RKC => RK5
783 : #include "pm_quadPack@routines.inc.F90"
784 : end procedure
785 : #endif
786 :
787 : #if RK4_ENABLED
788 11852 : module procedure getQuadGK31_FF_RK4
789 : use pm_kind, only: RKC => RK4
790 : #include "pm_quadPack@routines.inc.F90"
791 11852 : end procedure
792 : #endif
793 :
794 : #if RK3_ENABLED
795 881 : module procedure getQuadGK31_FF_RK3
796 : use pm_kind, only: RKC => RK3
797 : #include "pm_quadPack@routines.inc.F90"
798 881 : end procedure
799 : #endif
800 :
801 : #if RK2_ENABLED
802 936 : module procedure getQuadGK31_FF_RK2
803 : use pm_kind, only: RKC => RK2
804 : #include "pm_quadPack@routines.inc.F90"
805 936 : end procedure
806 : #endif
807 :
808 : #if RK1_ENABLED
809 768 : module procedure getQuadGK31_FF_RK1
810 : use pm_kind, only: RKC => RK1
811 : #include "pm_quadPack@routines.inc.F90"
812 768 : end procedure
813 : #endif
814 :
815 : #undef RK_ENABLED
816 :
817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
818 :
819 : #undef FF_ENABLED
820 :
821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
824 :
825 : #define FI_ENABLED 1
826 :
827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
828 :
829 : #define RK_ENABLED 1
830 :
831 : #if RK5_ENABLED
832 : module procedure getQuadGK31_FI_RK5
833 : use pm_kind, only: RKC => RK5
834 : #include "pm_quadPack@routines.inc.F90"
835 : end procedure
836 : #endif
837 :
838 : #if RK4_ENABLED
839 0 : module procedure getQuadGK31_FI_RK4
840 : use pm_kind, only: RKC => RK4
841 : #include "pm_quadPack@routines.inc.F90"
842 0 : end procedure
843 : #endif
844 :
845 : #if RK3_ENABLED
846 0 : module procedure getQuadGK31_FI_RK3
847 : use pm_kind, only: RKC => RK3
848 : #include "pm_quadPack@routines.inc.F90"
849 0 : end procedure
850 : #endif
851 :
852 : #if RK2_ENABLED
853 0 : module procedure getQuadGK31_FI_RK2
854 : use pm_kind, only: RKC => RK2
855 : #include "pm_quadPack@routines.inc.F90"
856 0 : end procedure
857 : #endif
858 :
859 : #if RK1_ENABLED
860 0 : module procedure getQuadGK31_FI_RK1
861 : use pm_kind, only: RKC => RK1
862 : #include "pm_quadPack@routines.inc.F90"
863 0 : end procedure
864 : #endif
865 :
866 : #undef RK_ENABLED
867 :
868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
869 :
870 : #undef FI_ENABLED
871 :
872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875 :
876 : #define IF_ENABLED 1
877 :
878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879 :
880 : #define RK_ENABLED 1
881 :
882 : #if RK5_ENABLED
883 : module procedure getQuadGK31_IF_RK5
884 : use pm_kind, only: RKC => RK5
885 : #include "pm_quadPack@routines.inc.F90"
886 : end procedure
887 : #endif
888 :
889 : #if RK4_ENABLED
890 0 : module procedure getQuadGK31_IF_RK4
891 : use pm_kind, only: RKC => RK4
892 : #include "pm_quadPack@routines.inc.F90"
893 0 : end procedure
894 : #endif
895 :
896 : #if RK3_ENABLED
897 0 : module procedure getQuadGK31_IF_RK3
898 : use pm_kind, only: RKC => RK3
899 : #include "pm_quadPack@routines.inc.F90"
900 0 : end procedure
901 : #endif
902 :
903 : #if RK2_ENABLED
904 0 : module procedure getQuadGK31_IF_RK2
905 : use pm_kind, only: RKC => RK2
906 : #include "pm_quadPack@routines.inc.F90"
907 0 : end procedure
908 : #endif
909 :
910 : #if RK1_ENABLED
911 0 : module procedure getQuadGK31_IF_RK1
912 : use pm_kind, only: RKC => RK1
913 : #include "pm_quadPack@routines.inc.F90"
914 0 : end procedure
915 : #endif
916 :
917 : #undef RK_ENABLED
918 :
919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
920 :
921 : #undef IF_ENABLED
922 :
923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
926 :
927 : #define II_ENABLED 1
928 :
929 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
930 :
931 : #define RK_ENABLED 1
932 :
933 : #if RK5_ENABLED
934 : module procedure getQuadGK31_II_RK5
935 : use pm_kind, only: RKC => RK5
936 : #include "pm_quadPack@routines.inc.F90"
937 : end procedure
938 : #endif
939 :
940 : #if RK4_ENABLED
941 0 : module procedure getQuadGK31_II_RK4
942 : use pm_kind, only: RKC => RK4
943 : #include "pm_quadPack@routines.inc.F90"
944 0 : end procedure
945 : #endif
946 :
947 : #if RK3_ENABLED
948 0 : module procedure getQuadGK31_II_RK3
949 : use pm_kind, only: RKC => RK3
950 : #include "pm_quadPack@routines.inc.F90"
951 0 : end procedure
952 : #endif
953 :
954 : #if RK2_ENABLED
955 0 : module procedure getQuadGK31_II_RK2
956 : use pm_kind, only: RKC => RK2
957 : #include "pm_quadPack@routines.inc.F90"
958 0 : end procedure
959 : #endif
960 :
961 : #if RK1_ENABLED
962 0 : module procedure getQuadGK31_II_RK1
963 : use pm_kind, only: RKC => RK1
964 : #include "pm_quadPack@routines.inc.F90"
965 0 : end procedure
966 : #endif
967 :
968 : #undef RK_ENABLED
969 :
970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 :
972 : #undef II_ENABLED
973 :
974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 :
978 : #undef GK31_ENABLED
979 :
980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
983 :
984 : #undef getQuadGK_ENABLED
985 :
986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
987 :
988 : #define getQuadGK_ENABLED 1
989 :
990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 :
994 : #define GK41_ENABLED 1
995 :
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 :
1000 : #define FF_ENABLED 1
1001 :
1002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1003 :
1004 : #define RK_ENABLED 1
1005 :
1006 : #if RK5_ENABLED
1007 : module procedure getQuadGK41_FF_RK5
1008 : use pm_kind, only: RKC => RK5
1009 : #include "pm_quadPack@routines.inc.F90"
1010 : end procedure
1011 : #endif
1012 :
1013 : #if RK4_ENABLED
1014 9659 : module procedure getQuadGK41_FF_RK4
1015 : use pm_kind, only: RKC => RK4
1016 : #include "pm_quadPack@routines.inc.F90"
1017 9659 : end procedure
1018 : #endif
1019 :
1020 : #if RK3_ENABLED
1021 0 : module procedure getQuadGK41_FF_RK3
1022 : use pm_kind, only: RKC => RK3
1023 : #include "pm_quadPack@routines.inc.F90"
1024 0 : end procedure
1025 : #endif
1026 :
1027 : #if RK2_ENABLED
1028 0 : module procedure getQuadGK41_FF_RK2
1029 : use pm_kind, only: RKC => RK2
1030 : #include "pm_quadPack@routines.inc.F90"
1031 0 : end procedure
1032 : #endif
1033 :
1034 : #if RK1_ENABLED
1035 0 : module procedure getQuadGK41_FF_RK1
1036 : use pm_kind, only: RKC => RK1
1037 : #include "pm_quadPack@routines.inc.F90"
1038 0 : end procedure
1039 : #endif
1040 :
1041 : #undef RK_ENABLED
1042 :
1043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1044 :
1045 : #undef FF_ENABLED
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1050 :
1051 : #define FI_ENABLED 1
1052 :
1053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1054 :
1055 : #define RK_ENABLED 1
1056 :
1057 : #if RK5_ENABLED
1058 : module procedure getQuadGK41_FI_RK5
1059 : use pm_kind, only: RKC => RK5
1060 : #include "pm_quadPack@routines.inc.F90"
1061 : end procedure
1062 : #endif
1063 :
1064 : #if RK4_ENABLED
1065 1 : module procedure getQuadGK41_FI_RK4
1066 : use pm_kind, only: RKC => RK4
1067 : #include "pm_quadPack@routines.inc.F90"
1068 1 : end procedure
1069 : #endif
1070 :
1071 : #if RK3_ENABLED
1072 0 : module procedure getQuadGK41_FI_RK3
1073 : use pm_kind, only: RKC => RK3
1074 : #include "pm_quadPack@routines.inc.F90"
1075 0 : end procedure
1076 : #endif
1077 :
1078 : #if RK2_ENABLED
1079 0 : module procedure getQuadGK41_FI_RK2
1080 : use pm_kind, only: RKC => RK2
1081 : #include "pm_quadPack@routines.inc.F90"
1082 0 : end procedure
1083 : #endif
1084 :
1085 : #if RK1_ENABLED
1086 0 : module procedure getQuadGK41_FI_RK1
1087 : use pm_kind, only: RKC => RK1
1088 : #include "pm_quadPack@routines.inc.F90"
1089 0 : end procedure
1090 : #endif
1091 :
1092 : #undef RK_ENABLED
1093 :
1094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1095 :
1096 : #undef FI_ENABLED
1097 :
1098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1101 :
1102 : #define IF_ENABLED 1
1103 :
1104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1105 :
1106 : #define RK_ENABLED 1
1107 :
1108 : #if RK5_ENABLED
1109 : module procedure getQuadGK41_IF_RK5
1110 : use pm_kind, only: RKC => RK5
1111 : #include "pm_quadPack@routines.inc.F90"
1112 : end procedure
1113 : #endif
1114 :
1115 : #if RK4_ENABLED
1116 1 : module procedure getQuadGK41_IF_RK4
1117 : use pm_kind, only: RKC => RK4
1118 : #include "pm_quadPack@routines.inc.F90"
1119 1 : end procedure
1120 : #endif
1121 :
1122 : #if RK3_ENABLED
1123 0 : module procedure getQuadGK41_IF_RK3
1124 : use pm_kind, only: RKC => RK3
1125 : #include "pm_quadPack@routines.inc.F90"
1126 0 : end procedure
1127 : #endif
1128 :
1129 : #if RK2_ENABLED
1130 0 : module procedure getQuadGK41_IF_RK2
1131 : use pm_kind, only: RKC => RK2
1132 : #include "pm_quadPack@routines.inc.F90"
1133 0 : end procedure
1134 : #endif
1135 :
1136 : #if RK1_ENABLED
1137 0 : module procedure getQuadGK41_IF_RK1
1138 : use pm_kind, only: RKC => RK1
1139 : #include "pm_quadPack@routines.inc.F90"
1140 0 : end procedure
1141 : #endif
1142 :
1143 : #undef RK_ENABLED
1144 :
1145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1146 :
1147 : #undef IF_ENABLED
1148 :
1149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1152 :
1153 : #define II_ENABLED 1
1154 :
1155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1156 :
1157 : #define RK_ENABLED 1
1158 :
1159 : #if RK5_ENABLED
1160 : module procedure getQuadGK41_II_RK5
1161 : use pm_kind, only: RKC => RK5
1162 : #include "pm_quadPack@routines.inc.F90"
1163 : end procedure
1164 : #endif
1165 :
1166 : #if RK4_ENABLED
1167 1 : module procedure getQuadGK41_II_RK4
1168 : use pm_kind, only: RKC => RK4
1169 : #include "pm_quadPack@routines.inc.F90"
1170 1 : end procedure
1171 : #endif
1172 :
1173 : #if RK3_ENABLED
1174 0 : module procedure getQuadGK41_II_RK3
1175 : use pm_kind, only: RKC => RK3
1176 : #include "pm_quadPack@routines.inc.F90"
1177 0 : end procedure
1178 : #endif
1179 :
1180 : #if RK2_ENABLED
1181 0 : module procedure getQuadGK41_II_RK2
1182 : use pm_kind, only: RKC => RK2
1183 : #include "pm_quadPack@routines.inc.F90"
1184 0 : end procedure
1185 : #endif
1186 :
1187 : #if RK1_ENABLED
1188 0 : module procedure getQuadGK41_II_RK1
1189 : use pm_kind, only: RKC => RK1
1190 : #include "pm_quadPack@routines.inc.F90"
1191 0 : end procedure
1192 : #endif
1193 :
1194 : #undef RK_ENABLED
1195 :
1196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1197 :
1198 : #undef II_ENABLED
1199 :
1200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1203 :
1204 : #undef GK41_ENABLED
1205 :
1206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209 :
1210 : #undef getQuadGK_ENABLED
1211 :
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 :
1214 : #define getQuadGK_ENABLED 1
1215 :
1216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 :
1220 : #define GK51_ENABLED 1
1221 :
1222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1225 :
1226 : #define FF_ENABLED 1
1227 :
1228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1229 :
1230 : #define RK_ENABLED 1
1231 :
1232 : #if RK5_ENABLED
1233 : module procedure getQuadGK51_FF_RK5
1234 : use pm_kind, only: RKC => RK5
1235 : #include "pm_quadPack@routines.inc.F90"
1236 : end procedure
1237 : #endif
1238 :
1239 : #if RK4_ENABLED
1240 8695 : module procedure getQuadGK51_FF_RK4
1241 : use pm_kind, only: RKC => RK4
1242 : #include "pm_quadPack@routines.inc.F90"
1243 8695 : end procedure
1244 : #endif
1245 :
1246 : #if RK3_ENABLED
1247 0 : module procedure getQuadGK51_FF_RK3
1248 : use pm_kind, only: RKC => RK3
1249 : #include "pm_quadPack@routines.inc.F90"
1250 0 : end procedure
1251 : #endif
1252 :
1253 : #if RK2_ENABLED
1254 0 : module procedure getQuadGK51_FF_RK2
1255 : use pm_kind, only: RKC => RK2
1256 : #include "pm_quadPack@routines.inc.F90"
1257 0 : end procedure
1258 : #endif
1259 :
1260 : #if RK1_ENABLED
1261 0 : module procedure getQuadGK51_FF_RK1
1262 : use pm_kind, only: RKC => RK1
1263 : #include "pm_quadPack@routines.inc.F90"
1264 0 : end procedure
1265 : #endif
1266 :
1267 : #undef RK_ENABLED
1268 :
1269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1270 :
1271 : #undef FF_ENABLED
1272 :
1273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1276 :
1277 : #define FI_ENABLED 1
1278 :
1279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1280 :
1281 : #define RK_ENABLED 1
1282 :
1283 : #if RK5_ENABLED
1284 : module procedure getQuadGK51_FI_RK5
1285 : use pm_kind, only: RKC => RK5
1286 : #include "pm_quadPack@routines.inc.F90"
1287 : end procedure
1288 : #endif
1289 :
1290 : #if RK4_ENABLED
1291 1 : module procedure getQuadGK51_FI_RK4
1292 : use pm_kind, only: RKC => RK4
1293 : #include "pm_quadPack@routines.inc.F90"
1294 1 : end procedure
1295 : #endif
1296 :
1297 : #if RK3_ENABLED
1298 0 : module procedure getQuadGK51_FI_RK3
1299 : use pm_kind, only: RKC => RK3
1300 : #include "pm_quadPack@routines.inc.F90"
1301 0 : end procedure
1302 : #endif
1303 :
1304 : #if RK2_ENABLED
1305 0 : module procedure getQuadGK51_FI_RK2
1306 : use pm_kind, only: RKC => RK2
1307 : #include "pm_quadPack@routines.inc.F90"
1308 0 : end procedure
1309 : #endif
1310 :
1311 : #if RK1_ENABLED
1312 0 : module procedure getQuadGK51_FI_RK1
1313 : use pm_kind, only: RKC => RK1
1314 : #include "pm_quadPack@routines.inc.F90"
1315 0 : end procedure
1316 : #endif
1317 :
1318 : #undef RK_ENABLED
1319 :
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 :
1322 : #undef FI_ENABLED
1323 :
1324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327 :
1328 : #define IF_ENABLED 1
1329 :
1330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1331 :
1332 : #define RK_ENABLED 1
1333 :
1334 : #if RK5_ENABLED
1335 : module procedure getQuadGK51_IF_RK5
1336 : use pm_kind, only: RKC => RK5
1337 : #include "pm_quadPack@routines.inc.F90"
1338 : end procedure
1339 : #endif
1340 :
1341 : #if RK4_ENABLED
1342 1 : module procedure getQuadGK51_IF_RK4
1343 : use pm_kind, only: RKC => RK4
1344 : #include "pm_quadPack@routines.inc.F90"
1345 1 : end procedure
1346 : #endif
1347 :
1348 : #if RK3_ENABLED
1349 0 : module procedure getQuadGK51_IF_RK3
1350 : use pm_kind, only: RKC => RK3
1351 : #include "pm_quadPack@routines.inc.F90"
1352 0 : end procedure
1353 : #endif
1354 :
1355 : #if RK2_ENABLED
1356 0 : module procedure getQuadGK51_IF_RK2
1357 : use pm_kind, only: RKC => RK2
1358 : #include "pm_quadPack@routines.inc.F90"
1359 0 : end procedure
1360 : #endif
1361 :
1362 : #if RK1_ENABLED
1363 0 : module procedure getQuadGK51_IF_RK1
1364 : use pm_kind, only: RKC => RK1
1365 : #include "pm_quadPack@routines.inc.F90"
1366 0 : end procedure
1367 : #endif
1368 :
1369 : #undef RK_ENABLED
1370 :
1371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1372 :
1373 : #undef IF_ENABLED
1374 :
1375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1378 :
1379 : #define II_ENABLED 1
1380 :
1381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382 :
1383 : #define RK_ENABLED 1
1384 :
1385 : #if RK5_ENABLED
1386 : module procedure getQuadGK51_II_RK5
1387 : use pm_kind, only: RKC => RK5
1388 : #include "pm_quadPack@routines.inc.F90"
1389 : end procedure
1390 : #endif
1391 :
1392 : #if RK4_ENABLED
1393 1 : module procedure getQuadGK51_II_RK4
1394 : use pm_kind, only: RKC => RK4
1395 : #include "pm_quadPack@routines.inc.F90"
1396 1 : end procedure
1397 : #endif
1398 :
1399 : #if RK3_ENABLED
1400 0 : module procedure getQuadGK51_II_RK3
1401 : use pm_kind, only: RKC => RK3
1402 : #include "pm_quadPack@routines.inc.F90"
1403 0 : end procedure
1404 : #endif
1405 :
1406 : #if RK2_ENABLED
1407 0 : module procedure getQuadGK51_II_RK2
1408 : use pm_kind, only: RKC => RK2
1409 : #include "pm_quadPack@routines.inc.F90"
1410 0 : end procedure
1411 : #endif
1412 :
1413 : #if RK1_ENABLED
1414 0 : module procedure getQuadGK51_II_RK1
1415 : use pm_kind, only: RKC => RK1
1416 : #include "pm_quadPack@routines.inc.F90"
1417 0 : end procedure
1418 : #endif
1419 :
1420 : #undef RK_ENABLED
1421 :
1422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1423 :
1424 : #undef II_ENABLED
1425 :
1426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1429 :
1430 : #undef GK51_ENABLED
1431 :
1432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1435 :
1436 : #undef getQuadGK_ENABLED
1437 :
1438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439 :
1440 : #define getQuadGK_ENABLED 1
1441 :
1442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 :
1446 : #define GK61_ENABLED 1
1447 :
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 :
1452 : #define FF_ENABLED 1
1453 :
1454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1455 :
1456 : #define RK_ENABLED 1
1457 :
1458 : #if RK5_ENABLED
1459 : module procedure getQuadGK61_FF_RK5
1460 : use pm_kind, only: RKC => RK5
1461 : #include "pm_quadPack@routines.inc.F90"
1462 : end procedure
1463 : #endif
1464 :
1465 : #if RK4_ENABLED
1466 8775 : module procedure getQuadGK61_FF_RK4
1467 : use pm_kind, only: RKC => RK4
1468 : #include "pm_quadPack@routines.inc.F90"
1469 8775 : end procedure
1470 : #endif
1471 :
1472 : #if RK3_ENABLED
1473 0 : module procedure getQuadGK61_FF_RK3
1474 : use pm_kind, only: RKC => RK3
1475 : #include "pm_quadPack@routines.inc.F90"
1476 0 : end procedure
1477 : #endif
1478 :
1479 : #if RK2_ENABLED
1480 0 : module procedure getQuadGK61_FF_RK2
1481 : use pm_kind, only: RKC => RK2
1482 : #include "pm_quadPack@routines.inc.F90"
1483 0 : end procedure
1484 : #endif
1485 :
1486 : #if RK1_ENABLED
1487 0 : module procedure getQuadGK61_FF_RK1
1488 : use pm_kind, only: RKC => RK1
1489 : #include "pm_quadPack@routines.inc.F90"
1490 0 : end procedure
1491 : #endif
1492 :
1493 : #undef RK_ENABLED
1494 :
1495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1496 :
1497 : #undef FF_ENABLED
1498 :
1499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1502 :
1503 : #define FI_ENABLED 1
1504 :
1505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1506 :
1507 : #define RK_ENABLED 1
1508 :
1509 : #if RK5_ENABLED
1510 : module procedure getQuadGK61_FI_RK5
1511 : use pm_kind, only: RKC => RK5
1512 : #include "pm_quadPack@routines.inc.F90"
1513 : end procedure
1514 : #endif
1515 :
1516 : #if RK4_ENABLED
1517 1 : module procedure getQuadGK61_FI_RK4
1518 : use pm_kind, only: RKC => RK4
1519 : #include "pm_quadPack@routines.inc.F90"
1520 1 : end procedure
1521 : #endif
1522 :
1523 : #if RK3_ENABLED
1524 0 : module procedure getQuadGK61_FI_RK3
1525 : use pm_kind, only: RKC => RK3
1526 : #include "pm_quadPack@routines.inc.F90"
1527 0 : end procedure
1528 : #endif
1529 :
1530 : #if RK2_ENABLED
1531 0 : module procedure getQuadGK61_FI_RK2
1532 : use pm_kind, only: RKC => RK2
1533 : #include "pm_quadPack@routines.inc.F90"
1534 0 : end procedure
1535 : #endif
1536 :
1537 : #if RK1_ENABLED
1538 0 : module procedure getQuadGK61_FI_RK1
1539 : use pm_kind, only: RKC => RK1
1540 : #include "pm_quadPack@routines.inc.F90"
1541 0 : end procedure
1542 : #endif
1543 :
1544 : #undef RK_ENABLED
1545 :
1546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1547 :
1548 : #undef FI_ENABLED
1549 :
1550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1553 :
1554 : #define IF_ENABLED 1
1555 :
1556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1557 :
1558 : #define RK_ENABLED 1
1559 :
1560 : #if RK5_ENABLED
1561 : module procedure getQuadGK61_IF_RK5
1562 : use pm_kind, only: RKC => RK5
1563 : #include "pm_quadPack@routines.inc.F90"
1564 : end procedure
1565 : #endif
1566 :
1567 : #if RK4_ENABLED
1568 1 : module procedure getQuadGK61_IF_RK4
1569 : use pm_kind, only: RKC => RK4
1570 : #include "pm_quadPack@routines.inc.F90"
1571 1 : end procedure
1572 : #endif
1573 :
1574 : #if RK3_ENABLED
1575 0 : module procedure getQuadGK61_IF_RK3
1576 : use pm_kind, only: RKC => RK3
1577 : #include "pm_quadPack@routines.inc.F90"
1578 0 : end procedure
1579 : #endif
1580 :
1581 : #if RK2_ENABLED
1582 0 : module procedure getQuadGK61_IF_RK2
1583 : use pm_kind, only: RKC => RK2
1584 : #include "pm_quadPack@routines.inc.F90"
1585 0 : end procedure
1586 : #endif
1587 :
1588 : #if RK1_ENABLED
1589 0 : module procedure getQuadGK61_IF_RK1
1590 : use pm_kind, only: RKC => RK1
1591 : #include "pm_quadPack@routines.inc.F90"
1592 0 : end procedure
1593 : #endif
1594 :
1595 : #undef RK_ENABLED
1596 :
1597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1598 :
1599 : #undef IF_ENABLED
1600 :
1601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1604 :
1605 : #define II_ENABLED 1
1606 :
1607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608 :
1609 : #define RK_ENABLED 1
1610 :
1611 : #if RK5_ENABLED
1612 : module procedure getQuadGK61_II_RK5
1613 : use pm_kind, only: RKC => RK5
1614 : #include "pm_quadPack@routines.inc.F90"
1615 : end procedure
1616 : #endif
1617 :
1618 : #if RK4_ENABLED
1619 1 : module procedure getQuadGK61_II_RK4
1620 : use pm_kind, only: RKC => RK4
1621 : #include "pm_quadPack@routines.inc.F90"
1622 1 : end procedure
1623 : #endif
1624 :
1625 : #if RK3_ENABLED
1626 0 : module procedure getQuadGK61_II_RK3
1627 : use pm_kind, only: RKC => RK3
1628 : #include "pm_quadPack@routines.inc.F90"
1629 0 : end procedure
1630 : #endif
1631 :
1632 : #if RK2_ENABLED
1633 0 : module procedure getQuadGK61_II_RK2
1634 : use pm_kind, only: RKC => RK2
1635 : #include "pm_quadPack@routines.inc.F90"
1636 0 : end procedure
1637 : #endif
1638 :
1639 : #if RK1_ENABLED
1640 0 : module procedure getQuadGK61_II_RK1
1641 : use pm_kind, only: RKC => RK1
1642 : #include "pm_quadPack@routines.inc.F90"
1643 0 : end procedure
1644 : #endif
1645 :
1646 : #undef RK_ENABLED
1647 :
1648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1649 :
1650 : #undef II_ENABLED
1651 :
1652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1655 :
1656 : #undef GK61_ENABLED
1657 :
1658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1661 :
1662 : #undef getQuadGK_ENABLED
1663 :
1664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665 :
1666 : #define getQuadGK_ENABLED 1
1667 :
1668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671 :
1672 : #define GKXX_ENABLED 1
1673 :
1674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677 :
1678 : #define FF_ENABLED 1
1679 :
1680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1681 :
1682 : #define RK_ENABLED 1
1683 :
1684 : #if RK5_ENABLED
1685 : module procedure getQuadGKXX_FF_RK5
1686 : use pm_kind, only: RKC => RK5
1687 : #include "pm_quadPack@routines.inc.F90"
1688 : end procedure
1689 : #endif
1690 :
1691 : #if RK4_ENABLED
1692 8124 : module procedure getQuadGKXX_FF_RK4
1693 : use pm_kind, only: RKC => RK4
1694 : #include "pm_quadPack@routines.inc.F90"
1695 8124 : end procedure
1696 : #endif
1697 :
1698 : #if RK3_ENABLED
1699 0 : module procedure getQuadGKXX_FF_RK3
1700 : use pm_kind, only: RKC => RK3
1701 : #include "pm_quadPack@routines.inc.F90"
1702 0 : end procedure
1703 : #endif
1704 :
1705 : #if RK2_ENABLED
1706 0 : module procedure getQuadGKXX_FF_RK2
1707 : use pm_kind, only: RKC => RK2
1708 : #include "pm_quadPack@routines.inc.F90"
1709 0 : end procedure
1710 : #endif
1711 :
1712 : #if RK1_ENABLED
1713 0 : module procedure getQuadGKXX_FF_RK1
1714 : use pm_kind, only: RKC => RK1
1715 : #include "pm_quadPack@routines.inc.F90"
1716 0 : end procedure
1717 : #endif
1718 :
1719 : #undef RK_ENABLED
1720 :
1721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1722 :
1723 : #undef FF_ENABLED
1724 :
1725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1728 :
1729 : #define FI_ENABLED 1
1730 :
1731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1732 :
1733 : #define RK_ENABLED 1
1734 :
1735 : #if RK5_ENABLED
1736 : module procedure getQuadGKXX_FI_RK5
1737 : use pm_kind, only: RKC => RK5
1738 : #include "pm_quadPack@routines.inc.F90"
1739 : end procedure
1740 : #endif
1741 :
1742 : #if RK4_ENABLED
1743 30 : module procedure getQuadGKXX_FI_RK4
1744 : use pm_kind, only: RKC => RK4
1745 : #include "pm_quadPack@routines.inc.F90"
1746 30 : end procedure
1747 : #endif
1748 :
1749 : #if RK3_ENABLED
1750 0 : module procedure getQuadGKXX_FI_RK3
1751 : use pm_kind, only: RKC => RK3
1752 : #include "pm_quadPack@routines.inc.F90"
1753 0 : end procedure
1754 : #endif
1755 :
1756 : #if RK2_ENABLED
1757 0 : module procedure getQuadGKXX_FI_RK2
1758 : use pm_kind, only: RKC => RK2
1759 : #include "pm_quadPack@routines.inc.F90"
1760 0 : end procedure
1761 : #endif
1762 :
1763 : #if RK1_ENABLED
1764 0 : module procedure getQuadGKXX_FI_RK1
1765 : use pm_kind, only: RKC => RK1
1766 : #include "pm_quadPack@routines.inc.F90"
1767 0 : end procedure
1768 : #endif
1769 :
1770 : #undef RK_ENABLED
1771 :
1772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1773 :
1774 : #undef FI_ENABLED
1775 :
1776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1779 :
1780 : #define IF_ENABLED 1
1781 :
1782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1783 :
1784 : #define RK_ENABLED 1
1785 :
1786 : #if RK5_ENABLED
1787 : module procedure getQuadGKXX_IF_RK5
1788 : use pm_kind, only: RKC => RK5
1789 : #include "pm_quadPack@routines.inc.F90"
1790 : end procedure
1791 : #endif
1792 :
1793 : #if RK4_ENABLED
1794 30 : module procedure getQuadGKXX_IF_RK4
1795 : use pm_kind, only: RKC => RK4
1796 : #include "pm_quadPack@routines.inc.F90"
1797 30 : end procedure
1798 : #endif
1799 :
1800 : #if RK3_ENABLED
1801 0 : module procedure getQuadGKXX_IF_RK3
1802 : use pm_kind, only: RKC => RK3
1803 : #include "pm_quadPack@routines.inc.F90"
1804 0 : end procedure
1805 : #endif
1806 :
1807 : #if RK2_ENABLED
1808 0 : module procedure getQuadGKXX_IF_RK2
1809 : use pm_kind, only: RKC => RK2
1810 : #include "pm_quadPack@routines.inc.F90"
1811 0 : end procedure
1812 : #endif
1813 :
1814 : #if RK1_ENABLED
1815 0 : module procedure getQuadGKXX_IF_RK1
1816 : use pm_kind, only: RKC => RK1
1817 : #include "pm_quadPack@routines.inc.F90"
1818 0 : end procedure
1819 : #endif
1820 :
1821 : #undef RK_ENABLED
1822 :
1823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1824 :
1825 : #undef IF_ENABLED
1826 :
1827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1830 :
1831 : #define II_ENABLED 1
1832 :
1833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1834 :
1835 : #define RK_ENABLED 1
1836 :
1837 : #if RK5_ENABLED
1838 : module procedure getQuadGKXX_II_RK5
1839 : use pm_kind, only: RKC => RK5
1840 : #include "pm_quadPack@routines.inc.F90"
1841 : end procedure
1842 : #endif
1843 :
1844 : #if RK4_ENABLED
1845 30 : module procedure getQuadGKXX_II_RK4
1846 : use pm_kind, only: RKC => RK4
1847 : #include "pm_quadPack@routines.inc.F90"
1848 30 : end procedure
1849 : #endif
1850 :
1851 : #if RK3_ENABLED
1852 0 : module procedure getQuadGKXX_II_RK3
1853 : use pm_kind, only: RKC => RK3
1854 : #include "pm_quadPack@routines.inc.F90"
1855 0 : end procedure
1856 : #endif
1857 :
1858 : #if RK2_ENABLED
1859 0 : module procedure getQuadGKXX_II_RK2
1860 : use pm_kind, only: RKC => RK2
1861 : #include "pm_quadPack@routines.inc.F90"
1862 0 : end procedure
1863 : #endif
1864 :
1865 : #if RK1_ENABLED
1866 0 : module procedure getQuadGKXX_II_RK1
1867 : use pm_kind, only: RKC => RK1
1868 : #include "pm_quadPack@routines.inc.F90"
1869 0 : end procedure
1870 : #endif
1871 :
1872 : #undef RK_ENABLED
1873 :
1874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1875 :
1876 : #undef II_ENABLED
1877 :
1878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1881 :
1882 : #undef GKXX_ENABLED
1883 :
1884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1887 :
1888 : #undef getQuadGK_ENABLED
1889 :
1890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1891 :
1892 : #define setSeqLimEps_ENABLED 1
1893 :
1894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1895 :
1896 : #define RK_ENABLED 1
1897 :
1898 : #if RK5_ENABLED
1899 : module procedure setSeqLimEps_RK5
1900 : use pm_kind, only: RKC => RK5
1901 : #include "pm_quadPack@routines.inc.F90"
1902 : end procedure
1903 : #endif
1904 :
1905 : #if RK4_ENABLED
1906 13837 : module procedure setSeqLimEps_RK4
1907 : use pm_kind, only: RKC => RK4
1908 : #include "pm_quadPack@routines.inc.F90"
1909 13837 : end procedure
1910 : #endif
1911 :
1912 : #if RK3_ENABLED
1913 266 : module procedure setSeqLimEps_RK3
1914 : use pm_kind, only: RKC => RK3
1915 : #include "pm_quadPack@routines.inc.F90"
1916 266 : end procedure
1917 : #endif
1918 :
1919 : #if RK2_ENABLED
1920 3750 : module procedure setSeqLimEps_RK2
1921 : use pm_kind, only: RKC => RK2
1922 : #include "pm_quadPack@routines.inc.F90"
1923 3750 : end procedure
1924 : #endif
1925 :
1926 : #if RK1_ENABLED
1927 6195 : module procedure setSeqLimEps_RK1
1928 : use pm_kind, only: RKC => RK1
1929 : #include "pm_quadPack@routines.inc.F90"
1930 6195 : end procedure
1931 : #endif
1932 :
1933 : #undef RK_ENABLED
1934 :
1935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1936 :
1937 : #undef setSeqLimEps_ENABLED
1938 :
1939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1940 :
1941 : #define setErrSorted_ENABLED 1
1942 :
1943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1944 :
1945 : #define RK_ENABLED 1
1946 :
1947 : #if RK5_ENABLED
1948 : module procedure setErrSorted_RK5
1949 : use pm_kind, only: RKC => RK5
1950 : #include "pm_quadPack@routines.inc.F90"
1951 : end procedure
1952 : #endif
1953 :
1954 : #if RK4_ENABLED
1955 93380 : module procedure setErrSorted_RK4
1956 : use pm_kind, only: RKC => RK4
1957 : #include "pm_quadPack@routines.inc.F90"
1958 : end procedure
1959 : #endif
1960 :
1961 : #if RK3_ENABLED
1962 6924 : module procedure setErrSorted_RK3
1963 : use pm_kind, only: RKC => RK3
1964 : #include "pm_quadPack@routines.inc.F90"
1965 : end procedure
1966 : #endif
1967 :
1968 : #if RK2_ENABLED
1969 41289 : module procedure setErrSorted_RK2
1970 : use pm_kind, only: RKC => RK2
1971 : #include "pm_quadPack@routines.inc.F90"
1972 : end procedure
1973 : #endif
1974 :
1975 : #if RK1_ENABLED
1976 29545 : module procedure setErrSorted_RK1
1977 : use pm_kind, only: RKC => RK1
1978 : #include "pm_quadPack@routines.inc.F90"
1979 : end procedure
1980 : #endif
1981 :
1982 : #undef RK_ENABLED
1983 :
1984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1985 :
1986 : #undef setErrSorted_ENABLED
1987 :
1988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1989 :
1990 : #define setChebExpan_ENABLED 1
1991 :
1992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1993 :
1994 : #define RK_ENABLED 1
1995 :
1996 : #if RK5_ENABLED
1997 : module procedure setChebExpan_RK5
1998 : use pm_kind, only: RKC => RK5
1999 : #include "pm_quadPack@routines.inc.F90"
2000 : end procedure
2001 : #endif
2002 :
2003 : #if RK4_ENABLED
2004 80 : module procedure setChebExpan_RK4
2005 : use pm_kind, only: RKC => RK4
2006 : #include "pm_quadPack@routines.inc.F90"
2007 80 : end procedure
2008 : #endif
2009 :
2010 : #if RK3_ENABLED
2011 0 : module procedure setChebExpan_RK3
2012 : use pm_kind, only: RKC => RK3
2013 : #include "pm_quadPack@routines.inc.F90"
2014 0 : end procedure
2015 : #endif
2016 :
2017 : #if RK2_ENABLED
2018 0 : module procedure setChebExpan_RK2
2019 : use pm_kind, only: RKC => RK2
2020 : #include "pm_quadPack@routines.inc.F90"
2021 0 : end procedure
2022 : #endif
2023 :
2024 : #if RK1_ENABLED
2025 0 : module procedure setChebExpan_RK1
2026 : use pm_kind, only: RKC => RK1
2027 : #include "pm_quadPack@routines.inc.F90"
2028 0 : end procedure
2029 : #endif
2030 :
2031 : #undef RK_ENABLED
2032 :
2033 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2034 :
2035 : #undef setChebExpan_ENABLED
2036 :
2037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2038 :
2039 : #define isFailedQuad_ENABLED 1
2040 :
2041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2044 :
2045 : #define QAGD_ENABLED 1
2046 :
2047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2048 :
2049 : #define RK_ENABLED 1
2050 :
2051 : #if RK5_ENABLED
2052 : module procedure isFailedQuadQAGD_RK5
2053 : use pm_kind, only: RKC => RK5
2054 : #include "pm_quadPack@routines.inc.F90"
2055 : end procedure
2056 : #endif
2057 :
2058 : #if RK4_ENABLED
2059 1472 : module procedure isFailedQuadQAGD_RK4
2060 : use pm_kind, only: RKC => RK4
2061 : #include "pm_quadPack@routines.inc.F90"
2062 1472 : end procedure
2063 : #endif
2064 :
2065 : #if RK3_ENABLED
2066 1443 : module procedure isFailedQuadQAGD_RK3
2067 : use pm_kind, only: RKC => RK3
2068 : #include "pm_quadPack@routines.inc.F90"
2069 1443 : end procedure
2070 : #endif
2071 :
2072 : #if RK2_ENABLED
2073 1433 : module procedure isFailedQuadQAGD_RK2
2074 : use pm_kind, only: RKC => RK2
2075 : #include "pm_quadPack@routines.inc.F90"
2076 1433 : end procedure
2077 : #endif
2078 :
2079 : #if RK1_ENABLED
2080 1463 : module procedure isFailedQuadQAGD_RK1
2081 : use pm_kind, only: RKC => RK1
2082 : #include "pm_quadPack@routines.inc.F90"
2083 1463 : end procedure
2084 : #endif
2085 :
2086 : #undef RK_ENABLED
2087 :
2088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2089 :
2090 : #undef QAGD_ENABLED
2091 :
2092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2095 :
2096 : #define QAGS_ENABLED 1
2097 :
2098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2099 :
2100 : #define RK_ENABLED 1
2101 :
2102 : #if RK5_ENABLED
2103 : module procedure isFailedQuadQAGS_RK5
2104 : use pm_kind, only: RKC => RK5
2105 : #include "pm_quadPack@routines.inc.F90"
2106 : end procedure
2107 : #endif
2108 :
2109 : #if RK4_ENABLED
2110 24 : module procedure isFailedQuadQAGS_RK4
2111 : use pm_kind, only: RKC => RK4
2112 : #include "pm_quadPack@routines.inc.F90"
2113 24 : end procedure
2114 : #endif
2115 :
2116 : #if RK3_ENABLED
2117 0 : module procedure isFailedQuadQAGS_RK3
2118 : use pm_kind, only: RKC => RK3
2119 : #include "pm_quadPack@routines.inc.F90"
2120 0 : end procedure
2121 : #endif
2122 :
2123 : #if RK2_ENABLED
2124 0 : module procedure isFailedQuadQAGS_RK2
2125 : use pm_kind, only: RKC => RK2
2126 : #include "pm_quadPack@routines.inc.F90"
2127 0 : end procedure
2128 : #endif
2129 :
2130 : #if RK1_ENABLED
2131 0 : module procedure isFailedQuadQAGS_RK1
2132 : use pm_kind, only: RKC => RK1
2133 : #include "pm_quadPack@routines.inc.F90"
2134 0 : end procedure
2135 : #endif
2136 :
2137 : #undef RK_ENABLED
2138 :
2139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2140 :
2141 : #undef QAGS_ENABLED
2142 :
2143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2146 :
2147 : #define QAGP_ENABLED 1
2148 :
2149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2150 :
2151 : #define RK_ENABLED 1
2152 :
2153 : #if RK5_ENABLED
2154 : module procedure isFailedQuadQAGP_RK5
2155 : use pm_kind, only: RKC => RK5
2156 : #include "pm_quadPack@routines.inc.F90"
2157 : end procedure
2158 : #endif
2159 :
2160 : #if RK4_ENABLED
2161 6 : module procedure isFailedQuadQAGP_RK4
2162 : use pm_kind, only: RKC => RK4
2163 : #include "pm_quadPack@routines.inc.F90"
2164 6 : end procedure
2165 : #endif
2166 :
2167 : #if RK3_ENABLED
2168 0 : module procedure isFailedQuadQAGP_RK3
2169 : use pm_kind, only: RKC => RK3
2170 : #include "pm_quadPack@routines.inc.F90"
2171 0 : end procedure
2172 : #endif
2173 :
2174 : #if RK2_ENABLED
2175 0 : module procedure isFailedQuadQAGP_RK2
2176 : use pm_kind, only: RKC => RK2
2177 : #include "pm_quadPack@routines.inc.F90"
2178 0 : end procedure
2179 : #endif
2180 :
2181 : #if RK1_ENABLED
2182 0 : module procedure isFailedQuadQAGP_RK1
2183 : use pm_kind, only: RKC => RK1
2184 : #include "pm_quadPack@routines.inc.F90"
2185 0 : end procedure
2186 : #endif
2187 :
2188 : #undef RK_ENABLED
2189 :
2190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2191 :
2192 : #undef QAGP_ENABLED
2193 :
2194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2197 :
2198 : #define QAWC_ENABLED 1
2199 :
2200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2201 :
2202 : #define RK_ENABLED 1
2203 :
2204 : #if RK5_ENABLED
2205 : module procedure isFailedQuadQAWC_RK5
2206 : use pm_kind, only: RKC => RK5
2207 : #include "pm_quadPack@routines.inc.F90"
2208 : end procedure
2209 : #endif
2210 :
2211 : #if RK4_ENABLED
2212 2 : module procedure isFailedQuadQAWC_RK4
2213 : use pm_kind, only: RKC => RK4
2214 : #include "pm_quadPack@routines.inc.F90"
2215 2 : end procedure
2216 : #endif
2217 :
2218 : #if RK3_ENABLED
2219 0 : module procedure isFailedQuadQAWC_RK3
2220 : use pm_kind, only: RKC => RK3
2221 : #include "pm_quadPack@routines.inc.F90"
2222 0 : end procedure
2223 : #endif
2224 :
2225 : #if RK2_ENABLED
2226 0 : module procedure isFailedQuadQAWC_RK2
2227 : use pm_kind, only: RKC => RK2
2228 : #include "pm_quadPack@routines.inc.F90"
2229 0 : end procedure
2230 : #endif
2231 :
2232 : #if RK1_ENABLED
2233 0 : module procedure isFailedQuadQAWC_RK1
2234 : use pm_kind, only: RKC => RK1
2235 : #include "pm_quadPack@routines.inc.F90"
2236 0 : end procedure
2237 : #endif
2238 :
2239 : #undef RK_ENABLED
2240 :
2241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2242 :
2243 : #undef QAWC_ENABLED
2244 :
2245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2248 :
2249 : #undef isFailedQuad_ENABLED
2250 :
2251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252 :
2253 : #define getQuadErr_ENABLED 1
2254 :
2255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258 :
2259 : #define QAGD_ENABLED 1
2260 :
2261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2264 :
2265 : #define GK15_ENABLED 1
2266 :
2267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2270 :
2271 : #define FF_ENABLED 1
2272 :
2273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2274 :
2275 : #define RK_ENABLED 1
2276 :
2277 : #if RK5_ENABLED
2278 : module procedure QAGD_GK15_FF_RK5
2279 : use pm_kind, only: RKC => RK5
2280 : #include "pm_quadPack@routines.inc.F90"
2281 : end procedure
2282 : #endif
2283 :
2284 : #if RK4_ENABLED
2285 23 : module procedure QAGD_GK15_FF_RK4
2286 : use pm_kind, only: RKC => RK4
2287 : #include "pm_quadPack@routines.inc.F90"
2288 : end procedure
2289 : #endif
2290 :
2291 : #if RK3_ENABLED
2292 0 : module procedure QAGD_GK15_FF_RK3
2293 : use pm_kind, only: RKC => RK3
2294 : #include "pm_quadPack@routines.inc.F90"
2295 : end procedure
2296 : #endif
2297 :
2298 : #if RK2_ENABLED
2299 0 : module procedure QAGD_GK15_FF_RK2
2300 : use pm_kind, only: RKC => RK2
2301 : #include "pm_quadPack@routines.inc.F90"
2302 : end procedure
2303 : #endif
2304 :
2305 : #if RK1_ENABLED
2306 0 : module procedure QAGD_GK15_FF_RK1
2307 : use pm_kind, only: RKC => RK1
2308 : #include "pm_quadPack@routines.inc.F90"
2309 : end procedure
2310 : #endif
2311 :
2312 : #undef RK_ENABLED
2313 :
2314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2315 :
2316 : #undef FF_ENABLED
2317 :
2318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2321 :
2322 : #define FI_ENABLED 1
2323 :
2324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2325 :
2326 : #define RK_ENABLED 1
2327 :
2328 : #if RK5_ENABLED
2329 : module procedure QAGD_GK15_FI_RK5
2330 : use pm_kind, only: RKC => RK5
2331 : #include "pm_quadPack@routines.inc.F90"
2332 : end procedure
2333 : #endif
2334 :
2335 : #if RK4_ENABLED
2336 4 : module procedure QAGD_GK15_FI_RK4
2337 : use pm_kind, only: RKC => RK4
2338 : #include "pm_quadPack@routines.inc.F90"
2339 : end procedure
2340 : #endif
2341 :
2342 : #if RK3_ENABLED
2343 0 : module procedure QAGD_GK15_FI_RK3
2344 : use pm_kind, only: RKC => RK3
2345 : #include "pm_quadPack@routines.inc.F90"
2346 : end procedure
2347 : #endif
2348 :
2349 : #if RK2_ENABLED
2350 0 : module procedure QAGD_GK15_FI_RK2
2351 : use pm_kind, only: RKC => RK2
2352 : #include "pm_quadPack@routines.inc.F90"
2353 : end procedure
2354 : #endif
2355 :
2356 : #if RK1_ENABLED
2357 0 : module procedure QAGD_GK15_FI_RK1
2358 : use pm_kind, only: RKC => RK1
2359 : #include "pm_quadPack@routines.inc.F90"
2360 : end procedure
2361 : #endif
2362 :
2363 : #undef RK_ENABLED
2364 :
2365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2366 :
2367 : #undef FI_ENABLED
2368 :
2369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372 :
2373 : #define IF_ENABLED 1
2374 :
2375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2376 :
2377 : #define RK_ENABLED 1
2378 :
2379 : #if RK5_ENABLED
2380 : module procedure QAGD_GK15_IF_RK5
2381 : use pm_kind, only: RKC => RK5
2382 : #include "pm_quadPack@routines.inc.F90"
2383 : end procedure
2384 : #endif
2385 :
2386 : #if RK4_ENABLED
2387 3 : module procedure QAGD_GK15_IF_RK4
2388 : use pm_kind, only: RKC => RK4
2389 : #include "pm_quadPack@routines.inc.F90"
2390 : end procedure
2391 : #endif
2392 :
2393 : #if RK3_ENABLED
2394 0 : module procedure QAGD_GK15_IF_RK3
2395 : use pm_kind, only: RKC => RK3
2396 : #include "pm_quadPack@routines.inc.F90"
2397 : end procedure
2398 : #endif
2399 :
2400 : #if RK2_ENABLED
2401 0 : module procedure QAGD_GK15_IF_RK2
2402 : use pm_kind, only: RKC => RK2
2403 : #include "pm_quadPack@routines.inc.F90"
2404 : end procedure
2405 : #endif
2406 :
2407 : #if RK1_ENABLED
2408 0 : module procedure QAGD_GK15_IF_RK1
2409 : use pm_kind, only: RKC => RK1
2410 : #include "pm_quadPack@routines.inc.F90"
2411 : end procedure
2412 : #endif
2413 :
2414 : #undef RK_ENABLED
2415 :
2416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2417 :
2418 : #undef IF_ENABLED
2419 :
2420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2423 :
2424 : #define II_ENABLED 1
2425 :
2426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2427 :
2428 : #define RK_ENABLED 1
2429 :
2430 : #if RK5_ENABLED
2431 : module procedure QAGD_GK15_II_RK5
2432 : use pm_kind, only: RKC => RK5
2433 : #include "pm_quadPack@routines.inc.F90"
2434 : end procedure
2435 : #endif
2436 :
2437 : #if RK4_ENABLED
2438 3 : module procedure QAGD_GK15_II_RK4
2439 : use pm_kind, only: RKC => RK4
2440 : #include "pm_quadPack@routines.inc.F90"
2441 : end procedure
2442 : #endif
2443 :
2444 : #if RK3_ENABLED
2445 0 : module procedure QAGD_GK15_II_RK3
2446 : use pm_kind, only: RKC => RK3
2447 : #include "pm_quadPack@routines.inc.F90"
2448 : end procedure
2449 : #endif
2450 :
2451 : #if RK2_ENABLED
2452 0 : module procedure QAGD_GK15_II_RK2
2453 : use pm_kind, only: RKC => RK2
2454 : #include "pm_quadPack@routines.inc.F90"
2455 : end procedure
2456 : #endif
2457 :
2458 : #if RK1_ENABLED
2459 0 : module procedure QAGD_GK15_II_RK1
2460 : use pm_kind, only: RKC => RK1
2461 : #include "pm_quadPack@routines.inc.F90"
2462 : end procedure
2463 : #endif
2464 :
2465 : #undef RK_ENABLED
2466 :
2467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2468 :
2469 : #undef II_ENABLED
2470 :
2471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2474 :
2475 : #undef GK15_ENABLED
2476 :
2477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2480 :
2481 : #define GK21_ENABLED 1
2482 :
2483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2486 :
2487 : #define FF_ENABLED 1
2488 :
2489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2490 :
2491 : #define RK_ENABLED 1
2492 :
2493 : #if RK5_ENABLED
2494 : module procedure QAGD_GK21_FF_RK5
2495 : use pm_kind, only: RKC => RK5
2496 : #include "pm_quadPack@routines.inc.F90"
2497 : end procedure
2498 : #endif
2499 :
2500 : #if RK4_ENABLED
2501 2107 : module procedure QAGD_GK21_FF_RK4
2502 : use pm_kind, only: RKC => RK4
2503 : #include "pm_quadPack@routines.inc.F90"
2504 : end procedure
2505 : #endif
2506 :
2507 : #if RK3_ENABLED
2508 2055 : module procedure QAGD_GK21_FF_RK3
2509 : use pm_kind, only: RKC => RK3
2510 : #include "pm_quadPack@routines.inc.F90"
2511 : end procedure
2512 : #endif
2513 :
2514 : #if RK2_ENABLED
2515 65298 : module procedure QAGD_GK21_FF_RK2
2516 : use pm_kind, only: RKC => RK2
2517 : #include "pm_quadPack@routines.inc.F90"
2518 : end procedure
2519 : #endif
2520 :
2521 : #if RK1_ENABLED
2522 14131 : module procedure QAGD_GK21_FF_RK1
2523 : use pm_kind, only: RKC => RK1
2524 : #include "pm_quadPack@routines.inc.F90"
2525 : end procedure
2526 : #endif
2527 :
2528 : #undef RK_ENABLED
2529 :
2530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2531 :
2532 : #undef FF_ENABLED
2533 :
2534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2537 :
2538 : #define FI_ENABLED 1
2539 :
2540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2541 :
2542 : #define RK_ENABLED 1
2543 :
2544 : #if RK5_ENABLED
2545 : module procedure QAGD_GK21_FI_RK5
2546 : use pm_kind, only: RKC => RK5
2547 : #include "pm_quadPack@routines.inc.F90"
2548 : end procedure
2549 : #endif
2550 :
2551 : #if RK4_ENABLED
2552 29 : module procedure QAGD_GK21_FI_RK4
2553 : use pm_kind, only: RKC => RK4
2554 : #include "pm_quadPack@routines.inc.F90"
2555 : end procedure
2556 : #endif
2557 :
2558 : #if RK3_ENABLED
2559 20 : module procedure QAGD_GK21_FI_RK3
2560 : use pm_kind, only: RKC => RK3
2561 : #include "pm_quadPack@routines.inc.F90"
2562 : end procedure
2563 : #endif
2564 :
2565 : #if RK2_ENABLED
2566 20 : module procedure QAGD_GK21_FI_RK2
2567 : use pm_kind, only: RKC => RK2
2568 : #include "pm_quadPack@routines.inc.F90"
2569 : end procedure
2570 : #endif
2571 :
2572 : #if RK1_ENABLED
2573 20 : module procedure QAGD_GK21_FI_RK1
2574 : use pm_kind, only: RKC => RK1
2575 : #include "pm_quadPack@routines.inc.F90"
2576 : end procedure
2577 : #endif
2578 :
2579 : #undef RK_ENABLED
2580 :
2581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2582 :
2583 : #undef FI_ENABLED
2584 :
2585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2588 :
2589 : #define IF_ENABLED 1
2590 :
2591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2592 :
2593 : #define RK_ENABLED 1
2594 :
2595 : #if RK5_ENABLED
2596 : module procedure QAGD_GK21_IF_RK5
2597 : use pm_kind, only: RKC => RK5
2598 : #include "pm_quadPack@routines.inc.F90"
2599 : end procedure
2600 : #endif
2601 :
2602 : #if RK4_ENABLED
2603 6 : module procedure QAGD_GK21_IF_RK4
2604 : use pm_kind, only: RKC => RK4
2605 : #include "pm_quadPack@routines.inc.F90"
2606 : end procedure
2607 : #endif
2608 :
2609 : #if RK3_ENABLED
2610 0 : module procedure QAGD_GK21_IF_RK3
2611 : use pm_kind, only: RKC => RK3
2612 : #include "pm_quadPack@routines.inc.F90"
2613 : end procedure
2614 : #endif
2615 :
2616 : #if RK2_ENABLED
2617 0 : module procedure QAGD_GK21_IF_RK2
2618 : use pm_kind, only: RKC => RK2
2619 : #include "pm_quadPack@routines.inc.F90"
2620 : end procedure
2621 : #endif
2622 :
2623 : #if RK1_ENABLED
2624 0 : module procedure QAGD_GK21_IF_RK1
2625 : use pm_kind, only: RKC => RK1
2626 : #include "pm_quadPack@routines.inc.F90"
2627 : end procedure
2628 : #endif
2629 :
2630 : #undef RK_ENABLED
2631 :
2632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2633 :
2634 : #undef IF_ENABLED
2635 :
2636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2639 :
2640 : #define II_ENABLED 1
2641 :
2642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2643 :
2644 : #define RK_ENABLED 1
2645 :
2646 : #if RK5_ENABLED
2647 : module procedure QAGD_GK21_II_RK5
2648 : use pm_kind, only: RKC => RK5
2649 : #include "pm_quadPack@routines.inc.F90"
2650 : end procedure
2651 : #endif
2652 :
2653 : #if RK4_ENABLED
2654 8 : module procedure QAGD_GK21_II_RK4
2655 : use pm_kind, only: RKC => RK4
2656 : #include "pm_quadPack@routines.inc.F90"
2657 : end procedure
2658 : #endif
2659 :
2660 : #if RK3_ENABLED
2661 0 : module procedure QAGD_GK21_II_RK3
2662 : use pm_kind, only: RKC => RK3
2663 : #include "pm_quadPack@routines.inc.F90"
2664 : end procedure
2665 : #endif
2666 :
2667 : #if RK2_ENABLED
2668 0 : module procedure QAGD_GK21_II_RK2
2669 : use pm_kind, only: RKC => RK2
2670 : #include "pm_quadPack@routines.inc.F90"
2671 : end procedure
2672 : #endif
2673 :
2674 : #if RK1_ENABLED
2675 0 : module procedure QAGD_GK21_II_RK1
2676 : use pm_kind, only: RKC => RK1
2677 : #include "pm_quadPack@routines.inc.F90"
2678 : end procedure
2679 : #endif
2680 :
2681 : #undef RK_ENABLED
2682 :
2683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2684 :
2685 : #undef II_ENABLED
2686 :
2687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2690 :
2691 : #undef GK21_ENABLED
2692 :
2693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2696 :
2697 : #define GK31_ENABLED 1
2698 :
2699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2702 :
2703 : #define FF_ENABLED 1
2704 :
2705 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2706 :
2707 : #define RK_ENABLED 1
2708 :
2709 : #if RK5_ENABLED
2710 : module procedure QAGD_GK31_FF_RK5
2711 : use pm_kind, only: RKC => RK5
2712 : #include "pm_quadPack@routines.inc.F90"
2713 : end procedure
2714 : #endif
2715 :
2716 : #if RK4_ENABLED
2717 23 : module procedure QAGD_GK31_FF_RK4
2718 : use pm_kind, only: RKC => RK4
2719 : #include "pm_quadPack@routines.inc.F90"
2720 : end procedure
2721 : #endif
2722 :
2723 : #if RK3_ENABLED
2724 0 : module procedure QAGD_GK31_FF_RK3
2725 : use pm_kind, only: RKC => RK3
2726 : #include "pm_quadPack@routines.inc.F90"
2727 : end procedure
2728 : #endif
2729 :
2730 : #if RK2_ENABLED
2731 0 : module procedure QAGD_GK31_FF_RK2
2732 : use pm_kind, only: RKC => RK2
2733 : #include "pm_quadPack@routines.inc.F90"
2734 : end procedure
2735 : #endif
2736 :
2737 : #if RK1_ENABLED
2738 0 : module procedure QAGD_GK31_FF_RK1
2739 : use pm_kind, only: RKC => RK1
2740 : #include "pm_quadPack@routines.inc.F90"
2741 : end procedure
2742 : #endif
2743 :
2744 : #undef RK_ENABLED
2745 :
2746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2747 :
2748 : #undef FF_ENABLED
2749 :
2750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2753 :
2754 : #define FI_ENABLED 1
2755 :
2756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2757 :
2758 : #define RK_ENABLED 1
2759 :
2760 : #if RK5_ENABLED
2761 : module procedure QAGD_GK31_FI_RK5
2762 : use pm_kind, only: RKC => RK5
2763 : #include "pm_quadPack@routines.inc.F90"
2764 : end procedure
2765 : #endif
2766 :
2767 : #if RK4_ENABLED
2768 4 : module procedure QAGD_GK31_FI_RK4
2769 : use pm_kind, only: RKC => RK4
2770 : #include "pm_quadPack@routines.inc.F90"
2771 : end procedure
2772 : #endif
2773 :
2774 : #if RK3_ENABLED
2775 0 : module procedure QAGD_GK31_FI_RK3
2776 : use pm_kind, only: RKC => RK3
2777 : #include "pm_quadPack@routines.inc.F90"
2778 : end procedure
2779 : #endif
2780 :
2781 : #if RK2_ENABLED
2782 0 : module procedure QAGD_GK31_FI_RK2
2783 : use pm_kind, only: RKC => RK2
2784 : #include "pm_quadPack@routines.inc.F90"
2785 : end procedure
2786 : #endif
2787 :
2788 : #if RK1_ENABLED
2789 0 : module procedure QAGD_GK31_FI_RK1
2790 : use pm_kind, only: RKC => RK1
2791 : #include "pm_quadPack@routines.inc.F90"
2792 : end procedure
2793 : #endif
2794 :
2795 : #undef RK_ENABLED
2796 :
2797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2798 :
2799 : #undef FI_ENABLED
2800 :
2801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2804 :
2805 : #define IF_ENABLED 1
2806 :
2807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2808 :
2809 : #define RK_ENABLED 1
2810 :
2811 : #if RK5_ENABLED
2812 : module procedure QAGD_GK31_IF_RK5
2813 : use pm_kind, only: RKC => RK5
2814 : #include "pm_quadPack@routines.inc.F90"
2815 : end procedure
2816 : #endif
2817 :
2818 : #if RK4_ENABLED
2819 3 : module procedure QAGD_GK31_IF_RK4
2820 : use pm_kind, only: RKC => RK4
2821 : #include "pm_quadPack@routines.inc.F90"
2822 : end procedure
2823 : #endif
2824 :
2825 : #if RK3_ENABLED
2826 0 : module procedure QAGD_GK31_IF_RK3
2827 : use pm_kind, only: RKC => RK3
2828 : #include "pm_quadPack@routines.inc.F90"
2829 : end procedure
2830 : #endif
2831 :
2832 : #if RK2_ENABLED
2833 0 : module procedure QAGD_GK31_IF_RK2
2834 : use pm_kind, only: RKC => RK2
2835 : #include "pm_quadPack@routines.inc.F90"
2836 : end procedure
2837 : #endif
2838 :
2839 : #if RK1_ENABLED
2840 0 : module procedure QAGD_GK31_IF_RK1
2841 : use pm_kind, only: RKC => RK1
2842 : #include "pm_quadPack@routines.inc.F90"
2843 : end procedure
2844 : #endif
2845 :
2846 : #undef RK_ENABLED
2847 :
2848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2849 :
2850 : #undef IF_ENABLED
2851 :
2852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2855 :
2856 : #define II_ENABLED 1
2857 :
2858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2859 :
2860 : #define RK_ENABLED 1
2861 :
2862 : #if RK5_ENABLED
2863 : module procedure QAGD_GK31_II_RK5
2864 : use pm_kind, only: RKC => RK5
2865 : #include "pm_quadPack@routines.inc.F90"
2866 : end procedure
2867 : #endif
2868 :
2869 : #if RK4_ENABLED
2870 3 : module procedure QAGD_GK31_II_RK4
2871 : use pm_kind, only: RKC => RK4
2872 : #include "pm_quadPack@routines.inc.F90"
2873 : end procedure
2874 : #endif
2875 :
2876 : #if RK3_ENABLED
2877 0 : module procedure QAGD_GK31_II_RK3
2878 : use pm_kind, only: RKC => RK3
2879 : #include "pm_quadPack@routines.inc.F90"
2880 : end procedure
2881 : #endif
2882 :
2883 : #if RK2_ENABLED
2884 0 : module procedure QAGD_GK31_II_RK2
2885 : use pm_kind, only: RKC => RK2
2886 : #include "pm_quadPack@routines.inc.F90"
2887 : end procedure
2888 : #endif
2889 :
2890 : #if RK1_ENABLED
2891 0 : module procedure QAGD_GK31_II_RK1
2892 : use pm_kind, only: RKC => RK1
2893 : #include "pm_quadPack@routines.inc.F90"
2894 : end procedure
2895 : #endif
2896 :
2897 : #undef RK_ENABLED
2898 :
2899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2900 :
2901 : #undef II_ENABLED
2902 :
2903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2906 :
2907 : #undef GK31_ENABLED
2908 :
2909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2912 :
2913 : #define GK41_ENABLED 1
2914 :
2915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2918 :
2919 : #define FF_ENABLED 1
2920 :
2921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2922 :
2923 : #define RK_ENABLED 1
2924 :
2925 : #if RK5_ENABLED
2926 : module procedure QAGD_GK41_FF_RK5
2927 : use pm_kind, only: RKC => RK5
2928 : #include "pm_quadPack@routines.inc.F90"
2929 : end procedure
2930 : #endif
2931 :
2932 : #if RK4_ENABLED
2933 23 : module procedure QAGD_GK41_FF_RK4
2934 : use pm_kind, only: RKC => RK4
2935 : #include "pm_quadPack@routines.inc.F90"
2936 : end procedure
2937 : #endif
2938 :
2939 : #if RK3_ENABLED
2940 0 : module procedure QAGD_GK41_FF_RK3
2941 : use pm_kind, only: RKC => RK3
2942 : #include "pm_quadPack@routines.inc.F90"
2943 : end procedure
2944 : #endif
2945 :
2946 : #if RK2_ENABLED
2947 0 : module procedure QAGD_GK41_FF_RK2
2948 : use pm_kind, only: RKC => RK2
2949 : #include "pm_quadPack@routines.inc.F90"
2950 : end procedure
2951 : #endif
2952 :
2953 : #if RK1_ENABLED
2954 0 : module procedure QAGD_GK41_FF_RK1
2955 : use pm_kind, only: RKC => RK1
2956 : #include "pm_quadPack@routines.inc.F90"
2957 : end procedure
2958 : #endif
2959 :
2960 : #undef RK_ENABLED
2961 :
2962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2963 :
2964 : #undef FF_ENABLED
2965 :
2966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2969 :
2970 : #define FI_ENABLED 1
2971 :
2972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2973 :
2974 : #define RK_ENABLED 1
2975 :
2976 : #if RK5_ENABLED
2977 : module procedure QAGD_GK41_FI_RK5
2978 : use pm_kind, only: RKC => RK5
2979 : #include "pm_quadPack@routines.inc.F90"
2980 : end procedure
2981 : #endif
2982 :
2983 : #if RK4_ENABLED
2984 4 : module procedure QAGD_GK41_FI_RK4
2985 : use pm_kind, only: RKC => RK4
2986 : #include "pm_quadPack@routines.inc.F90"
2987 : end procedure
2988 : #endif
2989 :
2990 : #if RK3_ENABLED
2991 0 : module procedure QAGD_GK41_FI_RK3
2992 : use pm_kind, only: RKC => RK3
2993 : #include "pm_quadPack@routines.inc.F90"
2994 : end procedure
2995 : #endif
2996 :
2997 : #if RK2_ENABLED
2998 0 : module procedure QAGD_GK41_FI_RK2
2999 : use pm_kind, only: RKC => RK2
3000 : #include "pm_quadPack@routines.inc.F90"
3001 : end procedure
3002 : #endif
3003 :
3004 : #if RK1_ENABLED
3005 0 : module procedure QAGD_GK41_FI_RK1
3006 : use pm_kind, only: RKC => RK1
3007 : #include "pm_quadPack@routines.inc.F90"
3008 : end procedure
3009 : #endif
3010 :
3011 : #undef RK_ENABLED
3012 :
3013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3014 :
3015 : #undef FI_ENABLED
3016 :
3017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3020 :
3021 : #define IF_ENABLED 1
3022 :
3023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3024 :
3025 : #define RK_ENABLED 1
3026 :
3027 : #if RK5_ENABLED
3028 : module procedure QAGD_GK41_IF_RK5
3029 : use pm_kind, only: RKC => RK5
3030 : #include "pm_quadPack@routines.inc.F90"
3031 : end procedure
3032 : #endif
3033 :
3034 : #if RK4_ENABLED
3035 3 : module procedure QAGD_GK41_IF_RK4
3036 : use pm_kind, only: RKC => RK4
3037 : #include "pm_quadPack@routines.inc.F90"
3038 : end procedure
3039 : #endif
3040 :
3041 : #if RK3_ENABLED
3042 0 : module procedure QAGD_GK41_IF_RK3
3043 : use pm_kind, only: RKC => RK3
3044 : #include "pm_quadPack@routines.inc.F90"
3045 : end procedure
3046 : #endif
3047 :
3048 : #if RK2_ENABLED
3049 0 : module procedure QAGD_GK41_IF_RK2
3050 : use pm_kind, only: RKC => RK2
3051 : #include "pm_quadPack@routines.inc.F90"
3052 : end procedure
3053 : #endif
3054 :
3055 : #if RK1_ENABLED
3056 0 : module procedure QAGD_GK41_IF_RK1
3057 : use pm_kind, only: RKC => RK1
3058 : #include "pm_quadPack@routines.inc.F90"
3059 : end procedure
3060 : #endif
3061 :
3062 : #undef RK_ENABLED
3063 :
3064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3065 :
3066 : #undef IF_ENABLED
3067 :
3068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071 :
3072 : #define II_ENABLED 1
3073 :
3074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3075 :
3076 : #define RK_ENABLED 1
3077 :
3078 : #if RK5_ENABLED
3079 : module procedure QAGD_GK41_II_RK5
3080 : use pm_kind, only: RKC => RK5
3081 : #include "pm_quadPack@routines.inc.F90"
3082 : end procedure
3083 : #endif
3084 :
3085 : #if RK4_ENABLED
3086 3 : module procedure QAGD_GK41_II_RK4
3087 : use pm_kind, only: RKC => RK4
3088 : #include "pm_quadPack@routines.inc.F90"
3089 : end procedure
3090 : #endif
3091 :
3092 : #if RK3_ENABLED
3093 0 : module procedure QAGD_GK41_II_RK3
3094 : use pm_kind, only: RKC => RK3
3095 : #include "pm_quadPack@routines.inc.F90"
3096 : end procedure
3097 : #endif
3098 :
3099 : #if RK2_ENABLED
3100 0 : module procedure QAGD_GK41_II_RK2
3101 : use pm_kind, only: RKC => RK2
3102 : #include "pm_quadPack@routines.inc.F90"
3103 : end procedure
3104 : #endif
3105 :
3106 : #if RK1_ENABLED
3107 0 : module procedure QAGD_GK41_II_RK1
3108 : use pm_kind, only: RKC => RK1
3109 : #include "pm_quadPack@routines.inc.F90"
3110 : end procedure
3111 : #endif
3112 :
3113 : #undef RK_ENABLED
3114 :
3115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3116 :
3117 : #undef II_ENABLED
3118 :
3119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3122 :
3123 : #undef GK41_ENABLED
3124 :
3125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3128 :
3129 : #define GK51_ENABLED 1
3130 :
3131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3134 :
3135 : #define FF_ENABLED 1
3136 :
3137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3138 :
3139 : #define RK_ENABLED 1
3140 :
3141 : #if RK5_ENABLED
3142 : module procedure QAGD_GK51_FF_RK5
3143 : use pm_kind, only: RKC => RK5
3144 : #include "pm_quadPack@routines.inc.F90"
3145 : end procedure
3146 : #endif
3147 :
3148 : #if RK4_ENABLED
3149 23 : module procedure QAGD_GK51_FF_RK4
3150 : use pm_kind, only: RKC => RK4
3151 : #include "pm_quadPack@routines.inc.F90"
3152 : end procedure
3153 : #endif
3154 :
3155 : #if RK3_ENABLED
3156 0 : module procedure QAGD_GK51_FF_RK3
3157 : use pm_kind, only: RKC => RK3
3158 : #include "pm_quadPack@routines.inc.F90"
3159 : end procedure
3160 : #endif
3161 :
3162 : #if RK2_ENABLED
3163 0 : module procedure QAGD_GK51_FF_RK2
3164 : use pm_kind, only: RKC => RK2
3165 : #include "pm_quadPack@routines.inc.F90"
3166 : end procedure
3167 : #endif
3168 :
3169 : #if RK1_ENABLED
3170 0 : module procedure QAGD_GK51_FF_RK1
3171 : use pm_kind, only: RKC => RK1
3172 : #include "pm_quadPack@routines.inc.F90"
3173 : end procedure
3174 : #endif
3175 :
3176 : #undef RK_ENABLED
3177 :
3178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3179 :
3180 : #undef FF_ENABLED
3181 :
3182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3185 :
3186 : #define FI_ENABLED 1
3187 :
3188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3189 :
3190 : #define RK_ENABLED 1
3191 :
3192 : #if RK5_ENABLED
3193 : module procedure QAGD_GK51_FI_RK5
3194 : use pm_kind, only: RKC => RK5
3195 : #include "pm_quadPack@routines.inc.F90"
3196 : end procedure
3197 : #endif
3198 :
3199 : #if RK4_ENABLED
3200 4 : module procedure QAGD_GK51_FI_RK4
3201 : use pm_kind, only: RKC => RK4
3202 : #include "pm_quadPack@routines.inc.F90"
3203 : end procedure
3204 : #endif
3205 :
3206 : #if RK3_ENABLED
3207 0 : module procedure QAGD_GK51_FI_RK3
3208 : use pm_kind, only: RKC => RK3
3209 : #include "pm_quadPack@routines.inc.F90"
3210 : end procedure
3211 : #endif
3212 :
3213 : #if RK2_ENABLED
3214 0 : module procedure QAGD_GK51_FI_RK2
3215 : use pm_kind, only: RKC => RK2
3216 : #include "pm_quadPack@routines.inc.F90"
3217 : end procedure
3218 : #endif
3219 :
3220 : #if RK1_ENABLED
3221 0 : module procedure QAGD_GK51_FI_RK1
3222 : use pm_kind, only: RKC => RK1
3223 : #include "pm_quadPack@routines.inc.F90"
3224 : end procedure
3225 : #endif
3226 :
3227 : #undef RK_ENABLED
3228 :
3229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3230 :
3231 : #undef FI_ENABLED
3232 :
3233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3236 :
3237 : #define IF_ENABLED 1
3238 :
3239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3240 :
3241 : #define RK_ENABLED 1
3242 :
3243 : #if RK5_ENABLED
3244 : module procedure QAGD_GK51_IF_RK5
3245 : use pm_kind, only: RKC => RK5
3246 : #include "pm_quadPack@routines.inc.F90"
3247 : end procedure
3248 : #endif
3249 :
3250 : #if RK4_ENABLED
3251 3 : module procedure QAGD_GK51_IF_RK4
3252 : use pm_kind, only: RKC => RK4
3253 : #include "pm_quadPack@routines.inc.F90"
3254 : end procedure
3255 : #endif
3256 :
3257 : #if RK3_ENABLED
3258 0 : module procedure QAGD_GK51_IF_RK3
3259 : use pm_kind, only: RKC => RK3
3260 : #include "pm_quadPack@routines.inc.F90"
3261 : end procedure
3262 : #endif
3263 :
3264 : #if RK2_ENABLED
3265 0 : module procedure QAGD_GK51_IF_RK2
3266 : use pm_kind, only: RKC => RK2
3267 : #include "pm_quadPack@routines.inc.F90"
3268 : end procedure
3269 : #endif
3270 :
3271 : #if RK1_ENABLED
3272 0 : module procedure QAGD_GK51_IF_RK1
3273 : use pm_kind, only: RKC => RK1
3274 : #include "pm_quadPack@routines.inc.F90"
3275 : end procedure
3276 : #endif
3277 :
3278 : #undef RK_ENABLED
3279 :
3280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3281 :
3282 : #undef IF_ENABLED
3283 :
3284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3287 :
3288 : #define II_ENABLED 1
3289 :
3290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3291 :
3292 : #define RK_ENABLED 1
3293 :
3294 : #if RK5_ENABLED
3295 : module procedure QAGD_GK51_II_RK5
3296 : use pm_kind, only: RKC => RK5
3297 : #include "pm_quadPack@routines.inc.F90"
3298 : end procedure
3299 : #endif
3300 :
3301 : #if RK4_ENABLED
3302 3 : module procedure QAGD_GK51_II_RK4
3303 : use pm_kind, only: RKC => RK4
3304 : #include "pm_quadPack@routines.inc.F90"
3305 : end procedure
3306 : #endif
3307 :
3308 : #if RK3_ENABLED
3309 0 : module procedure QAGD_GK51_II_RK3
3310 : use pm_kind, only: RKC => RK3
3311 : #include "pm_quadPack@routines.inc.F90"
3312 : end procedure
3313 : #endif
3314 :
3315 : #if RK2_ENABLED
3316 0 : module procedure QAGD_GK51_II_RK2
3317 : use pm_kind, only: RKC => RK2
3318 : #include "pm_quadPack@routines.inc.F90"
3319 : end procedure
3320 : #endif
3321 :
3322 : #if RK1_ENABLED
3323 0 : module procedure QAGD_GK51_II_RK1
3324 : use pm_kind, only: RKC => RK1
3325 : #include "pm_quadPack@routines.inc.F90"
3326 : end procedure
3327 : #endif
3328 :
3329 : #undef RK_ENABLED
3330 :
3331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3332 :
3333 : #undef II_ENABLED
3334 :
3335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3338 :
3339 : #undef GK51_ENABLED
3340 :
3341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3344 :
3345 : #define GK61_ENABLED 1
3346 :
3347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3350 :
3351 : #define FF_ENABLED 1
3352 :
3353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3354 :
3355 : #define RK_ENABLED 1
3356 :
3357 : #if RK5_ENABLED
3358 : module procedure QAGD_GK61_FF_RK5
3359 : use pm_kind, only: RKC => RK5
3360 : #include "pm_quadPack@routines.inc.F90"
3361 : end procedure
3362 : #endif
3363 :
3364 : #if RK4_ENABLED
3365 23 : module procedure QAGD_GK61_FF_RK4
3366 : use pm_kind, only: RKC => RK4
3367 : #include "pm_quadPack@routines.inc.F90"
3368 : end procedure
3369 : #endif
3370 :
3371 : #if RK3_ENABLED
3372 0 : module procedure QAGD_GK61_FF_RK3
3373 : use pm_kind, only: RKC => RK3
3374 : #include "pm_quadPack@routines.inc.F90"
3375 : end procedure
3376 : #endif
3377 :
3378 : #if RK2_ENABLED
3379 0 : module procedure QAGD_GK61_FF_RK2
3380 : use pm_kind, only: RKC => RK2
3381 : #include "pm_quadPack@routines.inc.F90"
3382 : end procedure
3383 : #endif
3384 :
3385 : #if RK1_ENABLED
3386 0 : module procedure QAGD_GK61_FF_RK1
3387 : use pm_kind, only: RKC => RK1
3388 : #include "pm_quadPack@routines.inc.F90"
3389 : end procedure
3390 : #endif
3391 :
3392 : #undef RK_ENABLED
3393 :
3394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3395 :
3396 : #undef FF_ENABLED
3397 :
3398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3401 :
3402 : #define FI_ENABLED 1
3403 :
3404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3405 :
3406 : #define RK_ENABLED 1
3407 :
3408 : #if RK5_ENABLED
3409 : module procedure QAGD_GK61_FI_RK5
3410 : use pm_kind, only: RKC => RK5
3411 : #include "pm_quadPack@routines.inc.F90"
3412 : end procedure
3413 : #endif
3414 :
3415 : #if RK4_ENABLED
3416 4 : module procedure QAGD_GK61_FI_RK4
3417 : use pm_kind, only: RKC => RK4
3418 : #include "pm_quadPack@routines.inc.F90"
3419 : end procedure
3420 : #endif
3421 :
3422 : #if RK3_ENABLED
3423 0 : module procedure QAGD_GK61_FI_RK3
3424 : use pm_kind, only: RKC => RK3
3425 : #include "pm_quadPack@routines.inc.F90"
3426 : end procedure
3427 : #endif
3428 :
3429 : #if RK2_ENABLED
3430 0 : module procedure QAGD_GK61_FI_RK2
3431 : use pm_kind, only: RKC => RK2
3432 : #include "pm_quadPack@routines.inc.F90"
3433 : end procedure
3434 : #endif
3435 :
3436 : #if RK1_ENABLED
3437 0 : module procedure QAGD_GK61_FI_RK1
3438 : use pm_kind, only: RKC => RK1
3439 : #include "pm_quadPack@routines.inc.F90"
3440 : end procedure
3441 : #endif
3442 :
3443 : #undef RK_ENABLED
3444 :
3445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3446 :
3447 : #undef FI_ENABLED
3448 :
3449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3452 :
3453 : #define IF_ENABLED 1
3454 :
3455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3456 :
3457 : #define RK_ENABLED 1
3458 :
3459 : #if RK5_ENABLED
3460 : module procedure QAGD_GK61_IF_RK5
3461 : use pm_kind, only: RKC => RK5
3462 : #include "pm_quadPack@routines.inc.F90"
3463 : end procedure
3464 : #endif
3465 :
3466 : #if RK4_ENABLED
3467 3 : module procedure QAGD_GK61_IF_RK4
3468 : use pm_kind, only: RKC => RK4
3469 : #include "pm_quadPack@routines.inc.F90"
3470 : end procedure
3471 : #endif
3472 :
3473 : #if RK3_ENABLED
3474 0 : module procedure QAGD_GK61_IF_RK3
3475 : use pm_kind, only: RKC => RK3
3476 : #include "pm_quadPack@routines.inc.F90"
3477 : end procedure
3478 : #endif
3479 :
3480 : #if RK2_ENABLED
3481 0 : module procedure QAGD_GK61_IF_RK2
3482 : use pm_kind, only: RKC => RK2
3483 : #include "pm_quadPack@routines.inc.F90"
3484 : end procedure
3485 : #endif
3486 :
3487 : #if RK1_ENABLED
3488 0 : module procedure QAGD_GK61_IF_RK1
3489 : use pm_kind, only: RKC => RK1
3490 : #include "pm_quadPack@routines.inc.F90"
3491 : end procedure
3492 : #endif
3493 :
3494 : #undef RK_ENABLED
3495 :
3496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3497 :
3498 : #undef IF_ENABLED
3499 :
3500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3503 :
3504 : #define II_ENABLED 1
3505 :
3506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3507 :
3508 : #define RK_ENABLED 1
3509 :
3510 : #if RK5_ENABLED
3511 : module procedure QAGD_GK61_II_RK5
3512 : use pm_kind, only: RKC => RK5
3513 : #include "pm_quadPack@routines.inc.F90"
3514 : end procedure
3515 : #endif
3516 :
3517 : #if RK4_ENABLED
3518 3 : module procedure QAGD_GK61_II_RK4
3519 : use pm_kind, only: RKC => RK4
3520 : #include "pm_quadPack@routines.inc.F90"
3521 : end procedure
3522 : #endif
3523 :
3524 : #if RK3_ENABLED
3525 0 : module procedure QAGD_GK61_II_RK3
3526 : use pm_kind, only: RKC => RK3
3527 : #include "pm_quadPack@routines.inc.F90"
3528 : end procedure
3529 : #endif
3530 :
3531 : #if RK2_ENABLED
3532 0 : module procedure QAGD_GK61_II_RK2
3533 : use pm_kind, only: RKC => RK2
3534 : #include "pm_quadPack@routines.inc.F90"
3535 : end procedure
3536 : #endif
3537 :
3538 : #if RK1_ENABLED
3539 0 : module procedure QAGD_GK61_II_RK1
3540 : use pm_kind, only: RKC => RK1
3541 : #include "pm_quadPack@routines.inc.F90"
3542 : end procedure
3543 : #endif
3544 :
3545 : #undef RK_ENABLED
3546 :
3547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3548 :
3549 : #undef II_ENABLED
3550 :
3551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3554 :
3555 : #undef GK61_ENABLED
3556 :
3557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3560 :
3561 : #define GKXX_ENABLED 1
3562 :
3563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3566 :
3567 : #define FF_ENABLED 1
3568 :
3569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3570 :
3571 : #define RK_ENABLED 1
3572 :
3573 : #if RK5_ENABLED
3574 : module procedure QAGD_GKXX_FF_RK5
3575 : use pm_kind, only: RKC => RK5
3576 : #include "pm_quadPack@routines.inc.F90"
3577 : end procedure
3578 : #endif
3579 :
3580 : #if RK4_ENABLED
3581 21 : module procedure QAGD_GKXX_FF_RK4
3582 : use pm_kind, only: RKC => RK4
3583 : #include "pm_quadPack@routines.inc.F90"
3584 : end procedure
3585 : #endif
3586 :
3587 : #if RK3_ENABLED
3588 0 : module procedure QAGD_GKXX_FF_RK3
3589 : use pm_kind, only: RKC => RK3
3590 : #include "pm_quadPack@routines.inc.F90"
3591 : end procedure
3592 : #endif
3593 :
3594 : #if RK2_ENABLED
3595 0 : module procedure QAGD_GKXX_FF_RK2
3596 : use pm_kind, only: RKC => RK2
3597 : #include "pm_quadPack@routines.inc.F90"
3598 : end procedure
3599 : #endif
3600 :
3601 : #if RK1_ENABLED
3602 0 : module procedure QAGD_GKXX_FF_RK1
3603 : use pm_kind, only: RKC => RK1
3604 : #include "pm_quadPack@routines.inc.F90"
3605 : end procedure
3606 : #endif
3607 :
3608 : #undef RK_ENABLED
3609 :
3610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3611 :
3612 : #undef FF_ENABLED
3613 :
3614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3617 :
3618 : #define FI_ENABLED 1
3619 :
3620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3621 :
3622 : #define RK_ENABLED 1
3623 :
3624 : #if RK5_ENABLED
3625 : module procedure QAGD_GKXX_FI_RK5
3626 : use pm_kind, only: RKC => RK5
3627 : #include "pm_quadPack@routines.inc.F90"
3628 : end procedure
3629 : #endif
3630 :
3631 : #if RK4_ENABLED
3632 4 : module procedure QAGD_GKXX_FI_RK4
3633 : use pm_kind, only: RKC => RK4
3634 : #include "pm_quadPack@routines.inc.F90"
3635 : end procedure
3636 : #endif
3637 :
3638 : #if RK3_ENABLED
3639 0 : module procedure QAGD_GKXX_FI_RK3
3640 : use pm_kind, only: RKC => RK3
3641 : #include "pm_quadPack@routines.inc.F90"
3642 : end procedure
3643 : #endif
3644 :
3645 : #if RK2_ENABLED
3646 0 : module procedure QAGD_GKXX_FI_RK2
3647 : use pm_kind, only: RKC => RK2
3648 : #include "pm_quadPack@routines.inc.F90"
3649 : end procedure
3650 : #endif
3651 :
3652 : #if RK1_ENABLED
3653 0 : module procedure QAGD_GKXX_FI_RK1
3654 : use pm_kind, only: RKC => RK1
3655 : #include "pm_quadPack@routines.inc.F90"
3656 : end procedure
3657 : #endif
3658 :
3659 : #undef RK_ENABLED
3660 :
3661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3662 :
3663 : #undef FI_ENABLED
3664 :
3665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3668 :
3669 : #define IF_ENABLED 1
3670 :
3671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3672 :
3673 : #define RK_ENABLED 1
3674 :
3675 : #if RK5_ENABLED
3676 : module procedure QAGD_GKXX_IF_RK5
3677 : use pm_kind, only: RKC => RK5
3678 : #include "pm_quadPack@routines.inc.F90"
3679 : end procedure
3680 : #endif
3681 :
3682 : #if RK4_ENABLED
3683 3 : module procedure QAGD_GKXX_IF_RK4
3684 : use pm_kind, only: RKC => RK4
3685 : #include "pm_quadPack@routines.inc.F90"
3686 : end procedure
3687 : #endif
3688 :
3689 : #if RK3_ENABLED
3690 0 : module procedure QAGD_GKXX_IF_RK3
3691 : use pm_kind, only: RKC => RK3
3692 : #include "pm_quadPack@routines.inc.F90"
3693 : end procedure
3694 : #endif
3695 :
3696 : #if RK2_ENABLED
3697 0 : module procedure QAGD_GKXX_IF_RK2
3698 : use pm_kind, only: RKC => RK2
3699 : #include "pm_quadPack@routines.inc.F90"
3700 : end procedure
3701 : #endif
3702 :
3703 : #if RK1_ENABLED
3704 0 : module procedure QAGD_GKXX_IF_RK1
3705 : use pm_kind, only: RKC => RK1
3706 : #include "pm_quadPack@routines.inc.F90"
3707 : end procedure
3708 : #endif
3709 :
3710 : #undef RK_ENABLED
3711 :
3712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3713 :
3714 : #undef IF_ENABLED
3715 :
3716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3719 :
3720 : #define II_ENABLED 1
3721 :
3722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3723 :
3724 : #define RK_ENABLED 1
3725 :
3726 : #if RK5_ENABLED
3727 : module procedure QAGD_GKXX_II_RK5
3728 : use pm_kind, only: RKC => RK5
3729 : #include "pm_quadPack@routines.inc.F90"
3730 : end procedure
3731 : #endif
3732 :
3733 : #if RK4_ENABLED
3734 3 : module procedure QAGD_GKXX_II_RK4
3735 : use pm_kind, only: RKC => RK4
3736 : #include "pm_quadPack@routines.inc.F90"
3737 : end procedure
3738 : #endif
3739 :
3740 : #if RK3_ENABLED
3741 0 : module procedure QAGD_GKXX_II_RK3
3742 : use pm_kind, only: RKC => RK3
3743 : #include "pm_quadPack@routines.inc.F90"
3744 : end procedure
3745 : #endif
3746 :
3747 : #if RK2_ENABLED
3748 0 : module procedure QAGD_GKXX_II_RK2
3749 : use pm_kind, only: RKC => RK2
3750 : #include "pm_quadPack@routines.inc.F90"
3751 : end procedure
3752 : #endif
3753 :
3754 : #if RK1_ENABLED
3755 0 : module procedure QAGD_GKXX_II_RK1
3756 : use pm_kind, only: RKC => RK1
3757 : #include "pm_quadPack@routines.inc.F90"
3758 : end procedure
3759 : #endif
3760 :
3761 : #undef RK_ENABLED
3762 :
3763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3764 :
3765 : #undef II_ENABLED
3766 :
3767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770 :
3771 : #undef GKXX_ENABLED
3772 :
3773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3776 :
3777 : #undef QAGD_ENABLED
3778 :
3779 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3782 :
3783 : #undef getQuadErr_ENABLED
3784 :
3785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3786 :
3787 : #define getQuadErr_ENABLED 1
3788 :
3789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3792 :
3793 : #define QAGS_ENABLED 1
3794 :
3795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3798 :
3799 : #define GK15_ENABLED 1
3800 :
3801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3804 :
3805 : #define FF_ENABLED 1
3806 :
3807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3808 :
3809 : #define RK_ENABLED 1
3810 :
3811 : #if RK5_ENABLED
3812 : module procedure QAGS_GK15_FF_RK5
3813 : use pm_kind, only: RKC => RK5
3814 : #include "pm_quadPack@routines.inc.F90"
3815 : end procedure
3816 : #endif
3817 :
3818 : #if RK4_ENABLED
3819 21 : module procedure QAGS_GK15_FF_RK4
3820 : use pm_kind, only: RKC => RK4
3821 : #include "pm_quadPack@routines.inc.F90"
3822 : end procedure
3823 : #endif
3824 :
3825 : #if RK3_ENABLED
3826 0 : module procedure QAGS_GK15_FF_RK3
3827 : use pm_kind, only: RKC => RK3
3828 : #include "pm_quadPack@routines.inc.F90"
3829 : end procedure
3830 : #endif
3831 :
3832 : #if RK2_ENABLED
3833 0 : module procedure QAGS_GK15_FF_RK2
3834 : use pm_kind, only: RKC => RK2
3835 : #include "pm_quadPack@routines.inc.F90"
3836 : end procedure
3837 : #endif
3838 :
3839 : #if RK1_ENABLED
3840 0 : module procedure QAGS_GK15_FF_RK1
3841 : use pm_kind, only: RKC => RK1
3842 : #include "pm_quadPack@routines.inc.F90"
3843 : end procedure
3844 : #endif
3845 :
3846 : #undef RK_ENABLED
3847 :
3848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3849 :
3850 : #undef FF_ENABLED
3851 :
3852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3855 :
3856 : #define FI_ENABLED 1
3857 :
3858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3859 :
3860 : #define RK_ENABLED 1
3861 :
3862 : #if RK5_ENABLED
3863 : module procedure QAGS_GK15_FI_RK5
3864 : use pm_kind, only: RKC => RK5
3865 : #include "pm_quadPack@routines.inc.F90"
3866 : end procedure
3867 : #endif
3868 :
3869 : #if RK4_ENABLED
3870 4 : module procedure QAGS_GK15_FI_RK4
3871 : use pm_kind, only: RKC => RK4
3872 : #include "pm_quadPack@routines.inc.F90"
3873 : end procedure
3874 : #endif
3875 :
3876 : #if RK3_ENABLED
3877 0 : module procedure QAGS_GK15_FI_RK3
3878 : use pm_kind, only: RKC => RK3
3879 : #include "pm_quadPack@routines.inc.F90"
3880 : end procedure
3881 : #endif
3882 :
3883 : #if RK2_ENABLED
3884 0 : module procedure QAGS_GK15_FI_RK2
3885 : use pm_kind, only: RKC => RK2
3886 : #include "pm_quadPack@routines.inc.F90"
3887 : end procedure
3888 : #endif
3889 :
3890 : #if RK1_ENABLED
3891 0 : module procedure QAGS_GK15_FI_RK1
3892 : use pm_kind, only: RKC => RK1
3893 : #include "pm_quadPack@routines.inc.F90"
3894 : end procedure
3895 : #endif
3896 :
3897 : #undef RK_ENABLED
3898 :
3899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3900 :
3901 : #undef FI_ENABLED
3902 :
3903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3906 :
3907 : #define IF_ENABLED 1
3908 :
3909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3910 :
3911 : #define RK_ENABLED 1
3912 :
3913 : #if RK5_ENABLED
3914 : module procedure QAGS_GK15_IF_RK5
3915 : use pm_kind, only: RKC => RK5
3916 : #include "pm_quadPack@routines.inc.F90"
3917 : end procedure
3918 : #endif
3919 :
3920 : #if RK4_ENABLED
3921 3 : module procedure QAGS_GK15_IF_RK4
3922 : use pm_kind, only: RKC => RK4
3923 : #include "pm_quadPack@routines.inc.F90"
3924 : end procedure
3925 : #endif
3926 :
3927 : #if RK3_ENABLED
3928 0 : module procedure QAGS_GK15_IF_RK3
3929 : use pm_kind, only: RKC => RK3
3930 : #include "pm_quadPack@routines.inc.F90"
3931 : end procedure
3932 : #endif
3933 :
3934 : #if RK2_ENABLED
3935 0 : module procedure QAGS_GK15_IF_RK2
3936 : use pm_kind, only: RKC => RK2
3937 : #include "pm_quadPack@routines.inc.F90"
3938 : end procedure
3939 : #endif
3940 :
3941 : #if RK1_ENABLED
3942 0 : module procedure QAGS_GK15_IF_RK1
3943 : use pm_kind, only: RKC => RK1
3944 : #include "pm_quadPack@routines.inc.F90"
3945 : end procedure
3946 : #endif
3947 :
3948 : #undef RK_ENABLED
3949 :
3950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3951 :
3952 : #undef IF_ENABLED
3953 :
3954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3957 :
3958 : #define II_ENABLED 1
3959 :
3960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3961 :
3962 : #define RK_ENABLED 1
3963 :
3964 : #if RK5_ENABLED
3965 : module procedure QAGS_GK15_II_RK5
3966 : use pm_kind, only: RKC => RK5
3967 : #include "pm_quadPack@routines.inc.F90"
3968 : end procedure
3969 : #endif
3970 :
3971 : #if RK4_ENABLED
3972 3 : module procedure QAGS_GK15_II_RK4
3973 : use pm_kind, only: RKC => RK4
3974 : #include "pm_quadPack@routines.inc.F90"
3975 : end procedure
3976 : #endif
3977 :
3978 : #if RK3_ENABLED
3979 0 : module procedure QAGS_GK15_II_RK3
3980 : use pm_kind, only: RKC => RK3
3981 : #include "pm_quadPack@routines.inc.F90"
3982 : end procedure
3983 : #endif
3984 :
3985 : #if RK2_ENABLED
3986 0 : module procedure QAGS_GK15_II_RK2
3987 : use pm_kind, only: RKC => RK2
3988 : #include "pm_quadPack@routines.inc.F90"
3989 : end procedure
3990 : #endif
3991 :
3992 : #if RK1_ENABLED
3993 0 : module procedure QAGS_GK15_II_RK1
3994 : use pm_kind, only: RKC => RK1
3995 : #include "pm_quadPack@routines.inc.F90"
3996 : end procedure
3997 : #endif
3998 :
3999 : #undef RK_ENABLED
4000 :
4001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4002 :
4003 : #undef II_ENABLED
4004 :
4005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4008 :
4009 : #undef GK15_ENABLED
4010 :
4011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4014 :
4015 : #define GK21_ENABLED 1
4016 :
4017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4020 :
4021 : #define FF_ENABLED 1
4022 :
4023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4024 :
4025 : #define RK_ENABLED 1
4026 :
4027 : #if RK5_ENABLED
4028 : module procedure QAGS_GK21_FF_RK5
4029 : use pm_kind, only: RKC => RK5
4030 : #include "pm_quadPack@routines.inc.F90"
4031 : end procedure
4032 : #endif
4033 :
4034 : #if RK4_ENABLED
4035 3214 : module procedure QAGS_GK21_FF_RK4
4036 : use pm_kind, only: RKC => RK4
4037 : #include "pm_quadPack@routines.inc.F90"
4038 : end procedure
4039 : #endif
4040 :
4041 : #if RK3_ENABLED
4042 0 : module procedure QAGS_GK21_FF_RK3
4043 : use pm_kind, only: RKC => RK3
4044 : #include "pm_quadPack@routines.inc.F90"
4045 : end procedure
4046 : #endif
4047 :
4048 : #if RK2_ENABLED
4049 2298 : module procedure QAGS_GK21_FF_RK2
4050 : use pm_kind, only: RKC => RK2
4051 : #include "pm_quadPack@routines.inc.F90"
4052 : end procedure
4053 : #endif
4054 :
4055 : #if RK1_ENABLED
4056 1508 : module procedure QAGS_GK21_FF_RK1
4057 : use pm_kind, only: RKC => RK1
4058 : #include "pm_quadPack@routines.inc.F90"
4059 : end procedure
4060 : #endif
4061 :
4062 : #undef RK_ENABLED
4063 :
4064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4065 :
4066 : #undef FF_ENABLED
4067 :
4068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4071 :
4072 : #define FI_ENABLED 1
4073 :
4074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4075 :
4076 : #define RK_ENABLED 1
4077 :
4078 : #if RK5_ENABLED
4079 : module procedure QAGS_GK21_FI_RK5
4080 : use pm_kind, only: RKC => RK5
4081 : #include "pm_quadPack@routines.inc.F90"
4082 : end procedure
4083 : #endif
4084 :
4085 : #if RK4_ENABLED
4086 9 : module procedure QAGS_GK21_FI_RK4
4087 : use pm_kind, only: RKC => RK4
4088 : #include "pm_quadPack@routines.inc.F90"
4089 : end procedure
4090 : #endif
4091 :
4092 : #if RK3_ENABLED
4093 0 : module procedure QAGS_GK21_FI_RK3
4094 : use pm_kind, only: RKC => RK3
4095 : #include "pm_quadPack@routines.inc.F90"
4096 : end procedure
4097 : #endif
4098 :
4099 : #if RK2_ENABLED
4100 0 : module procedure QAGS_GK21_FI_RK2
4101 : use pm_kind, only: RKC => RK2
4102 : #include "pm_quadPack@routines.inc.F90"
4103 : end procedure
4104 : #endif
4105 :
4106 : #if RK1_ENABLED
4107 1508 : module procedure QAGS_GK21_FI_RK1
4108 : use pm_kind, only: RKC => RK1
4109 : #include "pm_quadPack@routines.inc.F90"
4110 : end procedure
4111 : #endif
4112 :
4113 : #undef RK_ENABLED
4114 :
4115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4116 :
4117 : #undef FI_ENABLED
4118 :
4119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4122 :
4123 : #define IF_ENABLED 1
4124 :
4125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4126 :
4127 : #define RK_ENABLED 1
4128 :
4129 : #if RK5_ENABLED
4130 : module procedure QAGS_GK21_IF_RK5
4131 : use pm_kind, only: RKC => RK5
4132 : #include "pm_quadPack@routines.inc.F90"
4133 : end procedure
4134 : #endif
4135 :
4136 : #if RK4_ENABLED
4137 6 : module procedure QAGS_GK21_IF_RK4
4138 : use pm_kind, only: RKC => RK4
4139 : #include "pm_quadPack@routines.inc.F90"
4140 : end procedure
4141 : #endif
4142 :
4143 : #if RK3_ENABLED
4144 0 : module procedure QAGS_GK21_IF_RK3
4145 : use pm_kind, only: RKC => RK3
4146 : #include "pm_quadPack@routines.inc.F90"
4147 : end procedure
4148 : #endif
4149 :
4150 : #if RK2_ENABLED
4151 0 : module procedure QAGS_GK21_IF_RK2
4152 : use pm_kind, only: RKC => RK2
4153 : #include "pm_quadPack@routines.inc.F90"
4154 : end procedure
4155 : #endif
4156 :
4157 : #if RK1_ENABLED
4158 0 : module procedure QAGS_GK21_IF_RK1
4159 : use pm_kind, only: RKC => RK1
4160 : #include "pm_quadPack@routines.inc.F90"
4161 : end procedure
4162 : #endif
4163 :
4164 : #undef RK_ENABLED
4165 :
4166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4167 :
4168 : #undef IF_ENABLED
4169 :
4170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4173 :
4174 : #define II_ENABLED 1
4175 :
4176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4177 :
4178 : #define RK_ENABLED 1
4179 :
4180 : #if RK5_ENABLED
4181 : module procedure QAGS_GK21_II_RK5
4182 : use pm_kind, only: RKC => RK5
4183 : #include "pm_quadPack@routines.inc.F90"
4184 : end procedure
4185 : #endif
4186 :
4187 : #if RK4_ENABLED
4188 8 : module procedure QAGS_GK21_II_RK4
4189 : use pm_kind, only: RKC => RK4
4190 : #include "pm_quadPack@routines.inc.F90"
4191 : end procedure
4192 : #endif
4193 :
4194 : #if RK3_ENABLED
4195 0 : module procedure QAGS_GK21_II_RK3
4196 : use pm_kind, only: RKC => RK3
4197 : #include "pm_quadPack@routines.inc.F90"
4198 : end procedure
4199 : #endif
4200 :
4201 : #if RK2_ENABLED
4202 0 : module procedure QAGS_GK21_II_RK2
4203 : use pm_kind, only: RKC => RK2
4204 : #include "pm_quadPack@routines.inc.F90"
4205 : end procedure
4206 : #endif
4207 :
4208 : #if RK1_ENABLED
4209 0 : module procedure QAGS_GK21_II_RK1
4210 : use pm_kind, only: RKC => RK1
4211 : #include "pm_quadPack@routines.inc.F90"
4212 : end procedure
4213 : #endif
4214 :
4215 : #undef RK_ENABLED
4216 :
4217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4218 :
4219 : #undef II_ENABLED
4220 :
4221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4224 :
4225 : #undef GK21_ENABLED
4226 :
4227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4230 :
4231 : #define GK31_ENABLED 1
4232 :
4233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4236 :
4237 : #define FF_ENABLED 1
4238 :
4239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4240 :
4241 : #define RK_ENABLED 1
4242 :
4243 : #if RK5_ENABLED
4244 : module procedure QAGS_GK31_FF_RK5
4245 : use pm_kind, only: RKC => RK5
4246 : #include "pm_quadPack@routines.inc.F90"
4247 : end procedure
4248 : #endif
4249 :
4250 : #if RK4_ENABLED
4251 161 : module procedure QAGS_GK31_FF_RK4
4252 : use pm_kind, only: RKC => RK4
4253 : #include "pm_quadPack@routines.inc.F90"
4254 : end procedure
4255 : #endif
4256 :
4257 : #if RK3_ENABLED
4258 137 : module procedure QAGS_GK31_FF_RK3
4259 : use pm_kind, only: RKC => RK3
4260 : #include "pm_quadPack@routines.inc.F90"
4261 : end procedure
4262 : #endif
4263 :
4264 : #if RK2_ENABLED
4265 152 : module procedure QAGS_GK31_FF_RK2
4266 : use pm_kind, only: RKC => RK2
4267 : #include "pm_quadPack@routines.inc.F90"
4268 : end procedure
4269 : #endif
4270 :
4271 : #if RK1_ENABLED
4272 128 : module procedure QAGS_GK31_FF_RK1
4273 : use pm_kind, only: RKC => RK1
4274 : #include "pm_quadPack@routines.inc.F90"
4275 : end procedure
4276 : #endif
4277 :
4278 : #undef RK_ENABLED
4279 :
4280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4281 :
4282 : #undef FF_ENABLED
4283 :
4284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4287 :
4288 : #define FI_ENABLED 1
4289 :
4290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4291 :
4292 : #define RK_ENABLED 1
4293 :
4294 : #if RK5_ENABLED
4295 : module procedure QAGS_GK31_FI_RK5
4296 : use pm_kind, only: RKC => RK5
4297 : #include "pm_quadPack@routines.inc.F90"
4298 : end procedure
4299 : #endif
4300 :
4301 : #if RK4_ENABLED
4302 4 : module procedure QAGS_GK31_FI_RK4
4303 : use pm_kind, only: RKC => RK4
4304 : #include "pm_quadPack@routines.inc.F90"
4305 : end procedure
4306 : #endif
4307 :
4308 : #if RK3_ENABLED
4309 0 : module procedure QAGS_GK31_FI_RK3
4310 : use pm_kind, only: RKC => RK3
4311 : #include "pm_quadPack@routines.inc.F90"
4312 : end procedure
4313 : #endif
4314 :
4315 : #if RK2_ENABLED
4316 0 : module procedure QAGS_GK31_FI_RK2
4317 : use pm_kind, only: RKC => RK2
4318 : #include "pm_quadPack@routines.inc.F90"
4319 : end procedure
4320 : #endif
4321 :
4322 : #if RK1_ENABLED
4323 0 : module procedure QAGS_GK31_FI_RK1
4324 : use pm_kind, only: RKC => RK1
4325 : #include "pm_quadPack@routines.inc.F90"
4326 : end procedure
4327 : #endif
4328 :
4329 : #undef RK_ENABLED
4330 :
4331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4332 :
4333 : #undef FI_ENABLED
4334 :
4335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4338 :
4339 : #define IF_ENABLED 1
4340 :
4341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4342 :
4343 : #define RK_ENABLED 1
4344 :
4345 : #if RK5_ENABLED
4346 : module procedure QAGS_GK31_IF_RK5
4347 : use pm_kind, only: RKC => RK5
4348 : #include "pm_quadPack@routines.inc.F90"
4349 : end procedure
4350 : #endif
4351 :
4352 : #if RK4_ENABLED
4353 3 : module procedure QAGS_GK31_IF_RK4
4354 : use pm_kind, only: RKC => RK4
4355 : #include "pm_quadPack@routines.inc.F90"
4356 : end procedure
4357 : #endif
4358 :
4359 : #if RK3_ENABLED
4360 0 : module procedure QAGS_GK31_IF_RK3
4361 : use pm_kind, only: RKC => RK3
4362 : #include "pm_quadPack@routines.inc.F90"
4363 : end procedure
4364 : #endif
4365 :
4366 : #if RK2_ENABLED
4367 0 : module procedure QAGS_GK31_IF_RK2
4368 : use pm_kind, only: RKC => RK2
4369 : #include "pm_quadPack@routines.inc.F90"
4370 : end procedure
4371 : #endif
4372 :
4373 : #if RK1_ENABLED
4374 0 : module procedure QAGS_GK31_IF_RK1
4375 : use pm_kind, only: RKC => RK1
4376 : #include "pm_quadPack@routines.inc.F90"
4377 : end procedure
4378 : #endif
4379 :
4380 : #undef RK_ENABLED
4381 :
4382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4383 :
4384 : #undef IF_ENABLED
4385 :
4386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4389 :
4390 : #define II_ENABLED 1
4391 :
4392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4393 :
4394 : #define RK_ENABLED 1
4395 :
4396 : #if RK5_ENABLED
4397 : module procedure QAGS_GK31_II_RK5
4398 : use pm_kind, only: RKC => RK5
4399 : #include "pm_quadPack@routines.inc.F90"
4400 : end procedure
4401 : #endif
4402 :
4403 : #if RK4_ENABLED
4404 3 : module procedure QAGS_GK31_II_RK4
4405 : use pm_kind, only: RKC => RK4
4406 : #include "pm_quadPack@routines.inc.F90"
4407 : end procedure
4408 : #endif
4409 :
4410 : #if RK3_ENABLED
4411 0 : module procedure QAGS_GK31_II_RK3
4412 : use pm_kind, only: RKC => RK3
4413 : #include "pm_quadPack@routines.inc.F90"
4414 : end procedure
4415 : #endif
4416 :
4417 : #if RK2_ENABLED
4418 0 : module procedure QAGS_GK31_II_RK2
4419 : use pm_kind, only: RKC => RK2
4420 : #include "pm_quadPack@routines.inc.F90"
4421 : end procedure
4422 : #endif
4423 :
4424 : #if RK1_ENABLED
4425 0 : module procedure QAGS_GK31_II_RK1
4426 : use pm_kind, only: RKC => RK1
4427 : #include "pm_quadPack@routines.inc.F90"
4428 : end procedure
4429 : #endif
4430 :
4431 : #undef RK_ENABLED
4432 :
4433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4434 :
4435 : #undef II_ENABLED
4436 :
4437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4440 :
4441 : #undef GK31_ENABLED
4442 :
4443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4446 :
4447 : #define GK41_ENABLED 1
4448 :
4449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4452 :
4453 : #define FF_ENABLED 1
4454 :
4455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4456 :
4457 : #define RK_ENABLED 1
4458 :
4459 : #if RK5_ENABLED
4460 : module procedure QAGS_GK41_FF_RK5
4461 : use pm_kind, only: RKC => RK5
4462 : #include "pm_quadPack@routines.inc.F90"
4463 : end procedure
4464 : #endif
4465 :
4466 : #if RK4_ENABLED
4467 21 : module procedure QAGS_GK41_FF_RK4
4468 : use pm_kind, only: RKC => RK4
4469 : #include "pm_quadPack@routines.inc.F90"
4470 : end procedure
4471 : #endif
4472 :
4473 : #if RK3_ENABLED
4474 0 : module procedure QAGS_GK41_FF_RK3
4475 : use pm_kind, only: RKC => RK3
4476 : #include "pm_quadPack@routines.inc.F90"
4477 : end procedure
4478 : #endif
4479 :
4480 : #if RK2_ENABLED
4481 0 : module procedure QAGS_GK41_FF_RK2
4482 : use pm_kind, only: RKC => RK2
4483 : #include "pm_quadPack@routines.inc.F90"
4484 : end procedure
4485 : #endif
4486 :
4487 : #if RK1_ENABLED
4488 0 : module procedure QAGS_GK41_FF_RK1
4489 : use pm_kind, only: RKC => RK1
4490 : #include "pm_quadPack@routines.inc.F90"
4491 : end procedure
4492 : #endif
4493 :
4494 : #undef RK_ENABLED
4495 :
4496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4497 :
4498 : #undef FF_ENABLED
4499 :
4500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4503 :
4504 : #define FI_ENABLED 1
4505 :
4506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4507 :
4508 : #define RK_ENABLED 1
4509 :
4510 : #if RK5_ENABLED
4511 : module procedure QAGS_GK41_FI_RK5
4512 : use pm_kind, only: RKC => RK5
4513 : #include "pm_quadPack@routines.inc.F90"
4514 : end procedure
4515 : #endif
4516 :
4517 : #if RK4_ENABLED
4518 4 : module procedure QAGS_GK41_FI_RK4
4519 : use pm_kind, only: RKC => RK4
4520 : #include "pm_quadPack@routines.inc.F90"
4521 : end procedure
4522 : #endif
4523 :
4524 : #if RK3_ENABLED
4525 0 : module procedure QAGS_GK41_FI_RK3
4526 : use pm_kind, only: RKC => RK3
4527 : #include "pm_quadPack@routines.inc.F90"
4528 : end procedure
4529 : #endif
4530 :
4531 : #if RK2_ENABLED
4532 0 : module procedure QAGS_GK41_FI_RK2
4533 : use pm_kind, only: RKC => RK2
4534 : #include "pm_quadPack@routines.inc.F90"
4535 : end procedure
4536 : #endif
4537 :
4538 : #if RK1_ENABLED
4539 0 : module procedure QAGS_GK41_FI_RK1
4540 : use pm_kind, only: RKC => RK1
4541 : #include "pm_quadPack@routines.inc.F90"
4542 : end procedure
4543 : #endif
4544 :
4545 : #undef RK_ENABLED
4546 :
4547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4548 :
4549 : #undef FI_ENABLED
4550 :
4551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4554 :
4555 : #define IF_ENABLED 1
4556 :
4557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4558 :
4559 : #define RK_ENABLED 1
4560 :
4561 : #if RK5_ENABLED
4562 : module procedure QAGS_GK41_IF_RK5
4563 : use pm_kind, only: RKC => RK5
4564 : #include "pm_quadPack@routines.inc.F90"
4565 : end procedure
4566 : #endif
4567 :
4568 : #if RK4_ENABLED
4569 3 : module procedure QAGS_GK41_IF_RK4
4570 : use pm_kind, only: RKC => RK4
4571 : #include "pm_quadPack@routines.inc.F90"
4572 : end procedure
4573 : #endif
4574 :
4575 : #if RK3_ENABLED
4576 0 : module procedure QAGS_GK41_IF_RK3
4577 : use pm_kind, only: RKC => RK3
4578 : #include "pm_quadPack@routines.inc.F90"
4579 : end procedure
4580 : #endif
4581 :
4582 : #if RK2_ENABLED
4583 0 : module procedure QAGS_GK41_IF_RK2
4584 : use pm_kind, only: RKC => RK2
4585 : #include "pm_quadPack@routines.inc.F90"
4586 : end procedure
4587 : #endif
4588 :
4589 : #if RK1_ENABLED
4590 0 : module procedure QAGS_GK41_IF_RK1
4591 : use pm_kind, only: RKC => RK1
4592 : #include "pm_quadPack@routines.inc.F90"
4593 : end procedure
4594 : #endif
4595 :
4596 : #undef RK_ENABLED
4597 :
4598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4599 :
4600 : #undef IF_ENABLED
4601 :
4602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4605 :
4606 : #define II_ENABLED 1
4607 :
4608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4609 :
4610 : #define RK_ENABLED 1
4611 :
4612 : #if RK5_ENABLED
4613 : module procedure QAGS_GK41_II_RK5
4614 : use pm_kind, only: RKC => RK5
4615 : #include "pm_quadPack@routines.inc.F90"
4616 : end procedure
4617 : #endif
4618 :
4619 : #if RK4_ENABLED
4620 3 : module procedure QAGS_GK41_II_RK4
4621 : use pm_kind, only: RKC => RK4
4622 : #include "pm_quadPack@routines.inc.F90"
4623 : end procedure
4624 : #endif
4625 :
4626 : #if RK3_ENABLED
4627 0 : module procedure QAGS_GK41_II_RK3
4628 : use pm_kind, only: RKC => RK3
4629 : #include "pm_quadPack@routines.inc.F90"
4630 : end procedure
4631 : #endif
4632 :
4633 : #if RK2_ENABLED
4634 0 : module procedure QAGS_GK41_II_RK2
4635 : use pm_kind, only: RKC => RK2
4636 : #include "pm_quadPack@routines.inc.F90"
4637 : end procedure
4638 : #endif
4639 :
4640 : #if RK1_ENABLED
4641 0 : module procedure QAGS_GK41_II_RK1
4642 : use pm_kind, only: RKC => RK1
4643 : #include "pm_quadPack@routines.inc.F90"
4644 : end procedure
4645 : #endif
4646 :
4647 : #undef RK_ENABLED
4648 :
4649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4650 :
4651 : #undef II_ENABLED
4652 :
4653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4656 :
4657 : #undef GK41_ENABLED
4658 :
4659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4662 :
4663 : #define GK51_ENABLED 1
4664 :
4665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4668 :
4669 : #define FF_ENABLED 1
4670 :
4671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4672 :
4673 : #define RK_ENABLED 1
4674 :
4675 : #if RK5_ENABLED
4676 : module procedure QAGS_GK51_FF_RK5
4677 : use pm_kind, only: RKC => RK5
4678 : #include "pm_quadPack@routines.inc.F90"
4679 : end procedure
4680 : #endif
4681 :
4682 : #if RK4_ENABLED
4683 21 : module procedure QAGS_GK51_FF_RK4
4684 : use pm_kind, only: RKC => RK4
4685 : #include "pm_quadPack@routines.inc.F90"
4686 : end procedure
4687 : #endif
4688 :
4689 : #if RK3_ENABLED
4690 0 : module procedure QAGS_GK51_FF_RK3
4691 : use pm_kind, only: RKC => RK3
4692 : #include "pm_quadPack@routines.inc.F90"
4693 : end procedure
4694 : #endif
4695 :
4696 : #if RK2_ENABLED
4697 0 : module procedure QAGS_GK51_FF_RK2
4698 : use pm_kind, only: RKC => RK2
4699 : #include "pm_quadPack@routines.inc.F90"
4700 : end procedure
4701 : #endif
4702 :
4703 : #if RK1_ENABLED
4704 0 : module procedure QAGS_GK51_FF_RK1
4705 : use pm_kind, only: RKC => RK1
4706 : #include "pm_quadPack@routines.inc.F90"
4707 : end procedure
4708 : #endif
4709 :
4710 : #undef RK_ENABLED
4711 :
4712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4713 :
4714 : #undef FF_ENABLED
4715 :
4716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4719 :
4720 : #define FI_ENABLED 1
4721 :
4722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4723 :
4724 : #define RK_ENABLED 1
4725 :
4726 : #if RK5_ENABLED
4727 : module procedure QAGS_GK51_FI_RK5
4728 : use pm_kind, only: RKC => RK5
4729 : #include "pm_quadPack@routines.inc.F90"
4730 : end procedure
4731 : #endif
4732 :
4733 : #if RK4_ENABLED
4734 4 : module procedure QAGS_GK51_FI_RK4
4735 : use pm_kind, only: RKC => RK4
4736 : #include "pm_quadPack@routines.inc.F90"
4737 : end procedure
4738 : #endif
4739 :
4740 : #if RK3_ENABLED
4741 0 : module procedure QAGS_GK51_FI_RK3
4742 : use pm_kind, only: RKC => RK3
4743 : #include "pm_quadPack@routines.inc.F90"
4744 : end procedure
4745 : #endif
4746 :
4747 : #if RK2_ENABLED
4748 0 : module procedure QAGS_GK51_FI_RK2
4749 : use pm_kind, only: RKC => RK2
4750 : #include "pm_quadPack@routines.inc.F90"
4751 : end procedure
4752 : #endif
4753 :
4754 : #if RK1_ENABLED
4755 0 : module procedure QAGS_GK51_FI_RK1
4756 : use pm_kind, only: RKC => RK1
4757 : #include "pm_quadPack@routines.inc.F90"
4758 : end procedure
4759 : #endif
4760 :
4761 : #undef RK_ENABLED
4762 :
4763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4764 :
4765 : #undef FI_ENABLED
4766 :
4767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4770 :
4771 : #define IF_ENABLED 1
4772 :
4773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4774 :
4775 : #define RK_ENABLED 1
4776 :
4777 : #if RK5_ENABLED
4778 : module procedure QAGS_GK51_IF_RK5
4779 : use pm_kind, only: RKC => RK5
4780 : #include "pm_quadPack@routines.inc.F90"
4781 : end procedure
4782 : #endif
4783 :
4784 : #if RK4_ENABLED
4785 3 : module procedure QAGS_GK51_IF_RK4
4786 : use pm_kind, only: RKC => RK4
4787 : #include "pm_quadPack@routines.inc.F90"
4788 : end procedure
4789 : #endif
4790 :
4791 : #if RK3_ENABLED
4792 0 : module procedure QAGS_GK51_IF_RK3
4793 : use pm_kind, only: RKC => RK3
4794 : #include "pm_quadPack@routines.inc.F90"
4795 : end procedure
4796 : #endif
4797 :
4798 : #if RK2_ENABLED
4799 0 : module procedure QAGS_GK51_IF_RK2
4800 : use pm_kind, only: RKC => RK2
4801 : #include "pm_quadPack@routines.inc.F90"
4802 : end procedure
4803 : #endif
4804 :
4805 : #if RK1_ENABLED
4806 0 : module procedure QAGS_GK51_IF_RK1
4807 : use pm_kind, only: RKC => RK1
4808 : #include "pm_quadPack@routines.inc.F90"
4809 : end procedure
4810 : #endif
4811 :
4812 : #undef RK_ENABLED
4813 :
4814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4815 :
4816 : #undef IF_ENABLED
4817 :
4818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4821 :
4822 : #define II_ENABLED 1
4823 :
4824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4825 :
4826 : #define RK_ENABLED 1
4827 :
4828 : #if RK5_ENABLED
4829 : module procedure QAGS_GK51_II_RK5
4830 : use pm_kind, only: RKC => RK5
4831 : #include "pm_quadPack@routines.inc.F90"
4832 : end procedure
4833 : #endif
4834 :
4835 : #if RK4_ENABLED
4836 3 : module procedure QAGS_GK51_II_RK4
4837 : use pm_kind, only: RKC => RK4
4838 : #include "pm_quadPack@routines.inc.F90"
4839 : end procedure
4840 : #endif
4841 :
4842 : #if RK3_ENABLED
4843 0 : module procedure QAGS_GK51_II_RK3
4844 : use pm_kind, only: RKC => RK3
4845 : #include "pm_quadPack@routines.inc.F90"
4846 : end procedure
4847 : #endif
4848 :
4849 : #if RK2_ENABLED
4850 0 : module procedure QAGS_GK51_II_RK2
4851 : use pm_kind, only: RKC => RK2
4852 : #include "pm_quadPack@routines.inc.F90"
4853 : end procedure
4854 : #endif
4855 :
4856 : #if RK1_ENABLED
4857 0 : module procedure QAGS_GK51_II_RK1
4858 : use pm_kind, only: RKC => RK1
4859 : #include "pm_quadPack@routines.inc.F90"
4860 : end procedure
4861 : #endif
4862 :
4863 : #undef RK_ENABLED
4864 :
4865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4866 :
4867 : #undef II_ENABLED
4868 :
4869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4872 :
4873 : #undef GK51_ENABLED
4874 :
4875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4878 :
4879 : #define GK61_ENABLED 1
4880 :
4881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4884 :
4885 : #define FF_ENABLED 1
4886 :
4887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4888 :
4889 : #define RK_ENABLED 1
4890 :
4891 : #if RK5_ENABLED
4892 : module procedure QAGS_GK61_FF_RK5
4893 : use pm_kind, only: RKC => RK5
4894 : #include "pm_quadPack@routines.inc.F90"
4895 : end procedure
4896 : #endif
4897 :
4898 : #if RK4_ENABLED
4899 21 : module procedure QAGS_GK61_FF_RK4
4900 : use pm_kind, only: RKC => RK4
4901 : #include "pm_quadPack@routines.inc.F90"
4902 : end procedure
4903 : #endif
4904 :
4905 : #if RK3_ENABLED
4906 0 : module procedure QAGS_GK61_FF_RK3
4907 : use pm_kind, only: RKC => RK3
4908 : #include "pm_quadPack@routines.inc.F90"
4909 : end procedure
4910 : #endif
4911 :
4912 : #if RK2_ENABLED
4913 0 : module procedure QAGS_GK61_FF_RK2
4914 : use pm_kind, only: RKC => RK2
4915 : #include "pm_quadPack@routines.inc.F90"
4916 : end procedure
4917 : #endif
4918 :
4919 : #if RK1_ENABLED
4920 0 : module procedure QAGS_GK61_FF_RK1
4921 : use pm_kind, only: RKC => RK1
4922 : #include "pm_quadPack@routines.inc.F90"
4923 : end procedure
4924 : #endif
4925 :
4926 : #undef RK_ENABLED
4927 :
4928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4929 :
4930 : #undef FF_ENABLED
4931 :
4932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4935 :
4936 : #define FI_ENABLED 1
4937 :
4938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4939 :
4940 : #define RK_ENABLED 1
4941 :
4942 : #if RK5_ENABLED
4943 : module procedure QAGS_GK61_FI_RK5
4944 : use pm_kind, only: RKC => RK5
4945 : #include "pm_quadPack@routines.inc.F90"
4946 : end procedure
4947 : #endif
4948 :
4949 : #if RK4_ENABLED
4950 4 : module procedure QAGS_GK61_FI_RK4
4951 : use pm_kind, only: RKC => RK4
4952 : #include "pm_quadPack@routines.inc.F90"
4953 : end procedure
4954 : #endif
4955 :
4956 : #if RK3_ENABLED
4957 0 : module procedure QAGS_GK61_FI_RK3
4958 : use pm_kind, only: RKC => RK3
4959 : #include "pm_quadPack@routines.inc.F90"
4960 : end procedure
4961 : #endif
4962 :
4963 : #if RK2_ENABLED
4964 0 : module procedure QAGS_GK61_FI_RK2
4965 : use pm_kind, only: RKC => RK2
4966 : #include "pm_quadPack@routines.inc.F90"
4967 : end procedure
4968 : #endif
4969 :
4970 : #if RK1_ENABLED
4971 0 : module procedure QAGS_GK61_FI_RK1
4972 : use pm_kind, only: RKC => RK1
4973 : #include "pm_quadPack@routines.inc.F90"
4974 : end procedure
4975 : #endif
4976 :
4977 : #undef RK_ENABLED
4978 :
4979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4980 :
4981 : #undef FI_ENABLED
4982 :
4983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4986 :
4987 : #define IF_ENABLED 1
4988 :
4989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4990 :
4991 : #define RK_ENABLED 1
4992 :
4993 : #if RK5_ENABLED
4994 : module procedure QAGS_GK61_IF_RK5
4995 : use pm_kind, only: RKC => RK5
4996 : #include "pm_quadPack@routines.inc.F90"
4997 : end procedure
4998 : #endif
4999 :
5000 : #if RK4_ENABLED
5001 3 : module procedure QAGS_GK61_IF_RK4
5002 : use pm_kind, only: RKC => RK4
5003 : #include "pm_quadPack@routines.inc.F90"
5004 : end procedure
5005 : #endif
5006 :
5007 : #if RK3_ENABLED
5008 0 : module procedure QAGS_GK61_IF_RK3
5009 : use pm_kind, only: RKC => RK3
5010 : #include "pm_quadPack@routines.inc.F90"
5011 : end procedure
5012 : #endif
5013 :
5014 : #if RK2_ENABLED
5015 0 : module procedure QAGS_GK61_IF_RK2
5016 : use pm_kind, only: RKC => RK2
5017 : #include "pm_quadPack@routines.inc.F90"
5018 : end procedure
5019 : #endif
5020 :
5021 : #if RK1_ENABLED
5022 0 : module procedure QAGS_GK61_IF_RK1
5023 : use pm_kind, only: RKC => RK1
5024 : #include "pm_quadPack@routines.inc.F90"
5025 : end procedure
5026 : #endif
5027 :
5028 : #undef RK_ENABLED
5029 :
5030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5031 :
5032 : #undef IF_ENABLED
5033 :
5034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5037 :
5038 : #define II_ENABLED 1
5039 :
5040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5041 :
5042 : #define RK_ENABLED 1
5043 :
5044 : #if RK5_ENABLED
5045 : module procedure QAGS_GK61_II_RK5
5046 : use pm_kind, only: RKC => RK5
5047 : #include "pm_quadPack@routines.inc.F90"
5048 : end procedure
5049 : #endif
5050 :
5051 : #if RK4_ENABLED
5052 3 : module procedure QAGS_GK61_II_RK4
5053 : use pm_kind, only: RKC => RK4
5054 : #include "pm_quadPack@routines.inc.F90"
5055 : end procedure
5056 : #endif
5057 :
5058 : #if RK3_ENABLED
5059 0 : module procedure QAGS_GK61_II_RK3
5060 : use pm_kind, only: RKC => RK3
5061 : #include "pm_quadPack@routines.inc.F90"
5062 : end procedure
5063 : #endif
5064 :
5065 : #if RK2_ENABLED
5066 0 : module procedure QAGS_GK61_II_RK2
5067 : use pm_kind, only: RKC => RK2
5068 : #include "pm_quadPack@routines.inc.F90"
5069 : end procedure
5070 : #endif
5071 :
5072 : #if RK1_ENABLED
5073 0 : module procedure QAGS_GK61_II_RK1
5074 : use pm_kind, only: RKC => RK1
5075 : #include "pm_quadPack@routines.inc.F90"
5076 : end procedure
5077 : #endif
5078 :
5079 : #undef RK_ENABLED
5080 :
5081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5082 :
5083 : #undef II_ENABLED
5084 :
5085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5088 :
5089 : #undef GK61_ENABLED
5090 :
5091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5094 :
5095 : #define GKXX_ENABLED 1
5096 :
5097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5100 :
5101 : #define FF_ENABLED 1
5102 :
5103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5104 :
5105 : #define RK_ENABLED 1
5106 :
5107 : #if RK5_ENABLED
5108 : module procedure QAGS_GKXX_FF_RK5
5109 : use pm_kind, only: RKC => RK5
5110 : #include "pm_quadPack@routines.inc.F90"
5111 : end procedure
5112 : #endif
5113 :
5114 : #if RK4_ENABLED
5115 21 : module procedure QAGS_GKXX_FF_RK4
5116 : use pm_kind, only: RKC => RK4
5117 : #include "pm_quadPack@routines.inc.F90"
5118 : end procedure
5119 : #endif
5120 :
5121 : #if RK3_ENABLED
5122 0 : module procedure QAGS_GKXX_FF_RK3
5123 : use pm_kind, only: RKC => RK3
5124 : #include "pm_quadPack@routines.inc.F90"
5125 : end procedure
5126 : #endif
5127 :
5128 : #if RK2_ENABLED
5129 0 : module procedure QAGS_GKXX_FF_RK2
5130 : use pm_kind, only: RKC => RK2
5131 : #include "pm_quadPack@routines.inc.F90"
5132 : end procedure
5133 : #endif
5134 :
5135 : #if RK1_ENABLED
5136 0 : module procedure QAGS_GKXX_FF_RK1
5137 : use pm_kind, only: RKC => RK1
5138 : #include "pm_quadPack@routines.inc.F90"
5139 : end procedure
5140 : #endif
5141 :
5142 : #undef RK_ENABLED
5143 :
5144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5145 :
5146 : #undef FF_ENABLED
5147 :
5148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5151 :
5152 : #define FI_ENABLED 1
5153 :
5154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5155 :
5156 : #define RK_ENABLED 1
5157 :
5158 : #if RK5_ENABLED
5159 : module procedure QAGS_GKXX_FI_RK5
5160 : use pm_kind, only: RKC => RK5
5161 : #include "pm_quadPack@routines.inc.F90"
5162 : end procedure
5163 : #endif
5164 :
5165 : #if RK4_ENABLED
5166 4 : module procedure QAGS_GKXX_FI_RK4
5167 : use pm_kind, only: RKC => RK4
5168 : #include "pm_quadPack@routines.inc.F90"
5169 : end procedure
5170 : #endif
5171 :
5172 : #if RK3_ENABLED
5173 0 : module procedure QAGS_GKXX_FI_RK3
5174 : use pm_kind, only: RKC => RK3
5175 : #include "pm_quadPack@routines.inc.F90"
5176 : end procedure
5177 : #endif
5178 :
5179 : #if RK2_ENABLED
5180 0 : module procedure QAGS_GKXX_FI_RK2
5181 : use pm_kind, only: RKC => RK2
5182 : #include "pm_quadPack@routines.inc.F90"
5183 : end procedure
5184 : #endif
5185 :
5186 : #if RK1_ENABLED
5187 0 : module procedure QAGS_GKXX_FI_RK1
5188 : use pm_kind, only: RKC => RK1
5189 : #include "pm_quadPack@routines.inc.F90"
5190 : end procedure
5191 : #endif
5192 :
5193 : #undef RK_ENABLED
5194 :
5195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5196 :
5197 : #undef FI_ENABLED
5198 :
5199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5202 :
5203 : #define IF_ENABLED 1
5204 :
5205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5206 :
5207 : #define RK_ENABLED 1
5208 :
5209 : #if RK5_ENABLED
5210 : module procedure QAGS_GKXX_IF_RK5
5211 : use pm_kind, only: RKC => RK5
5212 : #include "pm_quadPack@routines.inc.F90"
5213 : end procedure
5214 : #endif
5215 :
5216 : #if RK4_ENABLED
5217 3 : module procedure QAGS_GKXX_IF_RK4
5218 : use pm_kind, only: RKC => RK4
5219 : #include "pm_quadPack@routines.inc.F90"
5220 : end procedure
5221 : #endif
5222 :
5223 : #if RK3_ENABLED
5224 0 : module procedure QAGS_GKXX_IF_RK3
5225 : use pm_kind, only: RKC => RK3
5226 : #include "pm_quadPack@routines.inc.F90"
5227 : end procedure
5228 : #endif
5229 :
5230 : #if RK2_ENABLED
5231 0 : module procedure QAGS_GKXX_IF_RK2
5232 : use pm_kind, only: RKC => RK2
5233 : #include "pm_quadPack@routines.inc.F90"
5234 : end procedure
5235 : #endif
5236 :
5237 : #if RK1_ENABLED
5238 0 : module procedure QAGS_GKXX_IF_RK1
5239 : use pm_kind, only: RKC => RK1
5240 : #include "pm_quadPack@routines.inc.F90"
5241 : end procedure
5242 : #endif
5243 :
5244 : #undef RK_ENABLED
5245 :
5246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5247 :
5248 : #undef IF_ENABLED
5249 :
5250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5253 :
5254 : #define II_ENABLED 1
5255 :
5256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5257 :
5258 : #define RK_ENABLED 1
5259 :
5260 : #if RK5_ENABLED
5261 : module procedure QAGS_GKXX_II_RK5
5262 : use pm_kind, only: RKC => RK5
5263 : #include "pm_quadPack@routines.inc.F90"
5264 : end procedure
5265 : #endif
5266 :
5267 : #if RK4_ENABLED
5268 3 : module procedure QAGS_GKXX_II_RK4
5269 : use pm_kind, only: RKC => RK4
5270 : #include "pm_quadPack@routines.inc.F90"
5271 : end procedure
5272 : #endif
5273 :
5274 : #if RK3_ENABLED
5275 0 : module procedure QAGS_GKXX_II_RK3
5276 : use pm_kind, only: RKC => RK3
5277 : #include "pm_quadPack@routines.inc.F90"
5278 : end procedure
5279 : #endif
5280 :
5281 : #if RK2_ENABLED
5282 0 : module procedure QAGS_GKXX_II_RK2
5283 : use pm_kind, only: RKC => RK2
5284 : #include "pm_quadPack@routines.inc.F90"
5285 : end procedure
5286 : #endif
5287 :
5288 : #if RK1_ENABLED
5289 0 : module procedure QAGS_GKXX_II_RK1
5290 : use pm_kind, only: RKC => RK1
5291 : #include "pm_quadPack@routines.inc.F90"
5292 : end procedure
5293 : #endif
5294 :
5295 : #undef RK_ENABLED
5296 :
5297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5298 :
5299 : #undef II_ENABLED
5300 :
5301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5304 :
5305 : #undef GKXX_ENABLED
5306 :
5307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5310 :
5311 : #undef QAGS_ENABLED
5312 :
5313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5316 :
5317 : #undef getQuadErr_ENABLED
5318 :
5319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5320 :
5321 : #define getQuadErr_ENABLED 1
5322 :
5323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5326 :
5327 : #define QAGP_ENABLED 1
5328 :
5329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5332 :
5333 : #define GK15_ENABLED 1
5334 :
5335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5338 :
5339 : #define FF_ENABLED 1
5340 :
5341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5342 :
5343 : #define RK_ENABLED 1
5344 :
5345 : #if RK5_ENABLED
5346 : module procedure QAGP_GK15_FF_RK5
5347 : use pm_kind, only: RKC => RK5
5348 : #include "pm_quadPack@routines.inc.F90"
5349 : end procedure
5350 : #endif
5351 :
5352 : #if RK4_ENABLED
5353 6 : module procedure QAGP_GK15_FF_RK4
5354 : use pm_kind, only: RKC => RK4
5355 : #include "pm_quadPack@routines.inc.F90"
5356 : end procedure
5357 : #endif
5358 :
5359 : #if RK3_ENABLED
5360 0 : module procedure QAGP_GK15_FF_RK3
5361 : use pm_kind, only: RKC => RK3
5362 : #include "pm_quadPack@routines.inc.F90"
5363 : end procedure
5364 : #endif
5365 :
5366 : #if RK2_ENABLED
5367 0 : module procedure QAGP_GK15_FF_RK2
5368 : use pm_kind, only: RKC => RK2
5369 : #include "pm_quadPack@routines.inc.F90"
5370 : end procedure
5371 : #endif
5372 :
5373 : #if RK1_ENABLED
5374 0 : module procedure QAGP_GK15_FF_RK1
5375 : use pm_kind, only: RKC => RK1
5376 : #include "pm_quadPack@routines.inc.F90"
5377 : end procedure
5378 : #endif
5379 :
5380 : #undef RK_ENABLED
5381 :
5382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5383 :
5384 : #undef FF_ENABLED
5385 :
5386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5389 :
5390 : #define FI_ENABLED 1
5391 :
5392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5393 :
5394 : #define RK_ENABLED 1
5395 :
5396 : #if RK5_ENABLED
5397 : module procedure QAGP_GK15_FI_RK5
5398 : use pm_kind, only: RKC => RK5
5399 : #include "pm_quadPack@routines.inc.F90"
5400 : end procedure
5401 : #endif
5402 :
5403 : #if RK4_ENABLED
5404 1 : module procedure QAGP_GK15_FI_RK4
5405 : use pm_kind, only: RKC => RK4
5406 : #include "pm_quadPack@routines.inc.F90"
5407 : end procedure
5408 : #endif
5409 :
5410 : #if RK3_ENABLED
5411 0 : module procedure QAGP_GK15_FI_RK3
5412 : use pm_kind, only: RKC => RK3
5413 : #include "pm_quadPack@routines.inc.F90"
5414 : end procedure
5415 : #endif
5416 :
5417 : #if RK2_ENABLED
5418 0 : module procedure QAGP_GK15_FI_RK2
5419 : use pm_kind, only: RKC => RK2
5420 : #include "pm_quadPack@routines.inc.F90"
5421 : end procedure
5422 : #endif
5423 :
5424 : #if RK1_ENABLED
5425 0 : module procedure QAGP_GK15_FI_RK1
5426 : use pm_kind, only: RKC => RK1
5427 : #include "pm_quadPack@routines.inc.F90"
5428 : end procedure
5429 : #endif
5430 :
5431 : #undef RK_ENABLED
5432 :
5433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5434 :
5435 : #undef FI_ENABLED
5436 :
5437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5440 :
5441 : #define IF_ENABLED 1
5442 :
5443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5444 :
5445 : #define RK_ENABLED 1
5446 :
5447 : #if RK5_ENABLED
5448 : module procedure QAGP_GK15_IF_RK5
5449 : use pm_kind, only: RKC => RK5
5450 : #include "pm_quadPack@routines.inc.F90"
5451 : end procedure
5452 : #endif
5453 :
5454 : #if RK4_ENABLED
5455 1 : module procedure QAGP_GK15_IF_RK4
5456 : use pm_kind, only: RKC => RK4
5457 : #include "pm_quadPack@routines.inc.F90"
5458 : end procedure
5459 : #endif
5460 :
5461 : #if RK3_ENABLED
5462 0 : module procedure QAGP_GK15_IF_RK3
5463 : use pm_kind, only: RKC => RK3
5464 : #include "pm_quadPack@routines.inc.F90"
5465 : end procedure
5466 : #endif
5467 :
5468 : #if RK2_ENABLED
5469 0 : module procedure QAGP_GK15_IF_RK2
5470 : use pm_kind, only: RKC => RK2
5471 : #include "pm_quadPack@routines.inc.F90"
5472 : end procedure
5473 : #endif
5474 :
5475 : #if RK1_ENABLED
5476 0 : module procedure QAGP_GK15_IF_RK1
5477 : use pm_kind, only: RKC => RK1
5478 : #include "pm_quadPack@routines.inc.F90"
5479 : end procedure
5480 : #endif
5481 :
5482 : #undef RK_ENABLED
5483 :
5484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5485 :
5486 : #undef IF_ENABLED
5487 :
5488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5491 :
5492 : #define II_ENABLED 1
5493 :
5494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5495 :
5496 : #define RK_ENABLED 1
5497 :
5498 : #if RK5_ENABLED
5499 : module procedure QAGP_GK15_II_RK5
5500 : use pm_kind, only: RKC => RK5
5501 : #include "pm_quadPack@routines.inc.F90"
5502 : end procedure
5503 : #endif
5504 :
5505 : #if RK4_ENABLED
5506 2 : module procedure QAGP_GK15_II_RK4
5507 : use pm_kind, only: RKC => RK4
5508 : #include "pm_quadPack@routines.inc.F90"
5509 : end procedure
5510 : #endif
5511 :
5512 : #if RK3_ENABLED
5513 0 : module procedure QAGP_GK15_II_RK3
5514 : use pm_kind, only: RKC => RK3
5515 : #include "pm_quadPack@routines.inc.F90"
5516 : end procedure
5517 : #endif
5518 :
5519 : #if RK2_ENABLED
5520 0 : module procedure QAGP_GK15_II_RK2
5521 : use pm_kind, only: RKC => RK2
5522 : #include "pm_quadPack@routines.inc.F90"
5523 : end procedure
5524 : #endif
5525 :
5526 : #if RK1_ENABLED
5527 0 : module procedure QAGP_GK15_II_RK1
5528 : use pm_kind, only: RKC => RK1
5529 : #include "pm_quadPack@routines.inc.F90"
5530 : end procedure
5531 : #endif
5532 :
5533 : #undef RK_ENABLED
5534 :
5535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5536 :
5537 : #undef II_ENABLED
5538 :
5539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5542 :
5543 : #undef GK15_ENABLED
5544 :
5545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5548 :
5549 : #define GK21_ENABLED 1
5550 :
5551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5554 :
5555 : #define FF_ENABLED 1
5556 :
5557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5558 :
5559 : #define RK_ENABLED 1
5560 :
5561 : #if RK5_ENABLED
5562 : module procedure QAGP_GK21_FF_RK5
5563 : use pm_kind, only: RKC => RK5
5564 : #include "pm_quadPack@routines.inc.F90"
5565 : end procedure
5566 : #endif
5567 :
5568 : #if RK4_ENABLED
5569 12 : module procedure QAGP_GK21_FF_RK4
5570 : use pm_kind, only: RKC => RK4
5571 : #include "pm_quadPack@routines.inc.F90"
5572 : end procedure
5573 : #endif
5574 :
5575 : #if RK3_ENABLED
5576 0 : module procedure QAGP_GK21_FF_RK3
5577 : use pm_kind, only: RKC => RK3
5578 : #include "pm_quadPack@routines.inc.F90"
5579 : end procedure
5580 : #endif
5581 :
5582 : #if RK2_ENABLED
5583 0 : module procedure QAGP_GK21_FF_RK2
5584 : use pm_kind, only: RKC => RK2
5585 : #include "pm_quadPack@routines.inc.F90"
5586 : end procedure
5587 : #endif
5588 :
5589 : #if RK1_ENABLED
5590 0 : module procedure QAGP_GK21_FF_RK1
5591 : use pm_kind, only: RKC => RK1
5592 : #include "pm_quadPack@routines.inc.F90"
5593 : end procedure
5594 : #endif
5595 :
5596 : #undef RK_ENABLED
5597 :
5598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5599 :
5600 : #undef FF_ENABLED
5601 :
5602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5605 :
5606 : #define FI_ENABLED 1
5607 :
5608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5609 :
5610 : #define RK_ENABLED 1
5611 :
5612 : #if RK5_ENABLED
5613 : module procedure QAGP_GK21_FI_RK5
5614 : use pm_kind, only: RKC => RK5
5615 : #include "pm_quadPack@routines.inc.F90"
5616 : end procedure
5617 : #endif
5618 :
5619 : #if RK4_ENABLED
5620 2 : module procedure QAGP_GK21_FI_RK4
5621 : use pm_kind, only: RKC => RK4
5622 : #include "pm_quadPack@routines.inc.F90"
5623 : end procedure
5624 : #endif
5625 :
5626 : #if RK3_ENABLED
5627 0 : module procedure QAGP_GK21_FI_RK3
5628 : use pm_kind, only: RKC => RK3
5629 : #include "pm_quadPack@routines.inc.F90"
5630 : end procedure
5631 : #endif
5632 :
5633 : #if RK2_ENABLED
5634 0 : module procedure QAGP_GK21_FI_RK2
5635 : use pm_kind, only: RKC => RK2
5636 : #include "pm_quadPack@routines.inc.F90"
5637 : end procedure
5638 : #endif
5639 :
5640 : #if RK1_ENABLED
5641 0 : module procedure QAGP_GK21_FI_RK1
5642 : use pm_kind, only: RKC => RK1
5643 : #include "pm_quadPack@routines.inc.F90"
5644 : end procedure
5645 : #endif
5646 :
5647 : #undef RK_ENABLED
5648 :
5649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5650 :
5651 : #undef FI_ENABLED
5652 :
5653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5656 :
5657 : #define IF_ENABLED 1
5658 :
5659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5660 :
5661 : #define RK_ENABLED 1
5662 :
5663 : #if RK5_ENABLED
5664 : module procedure QAGP_GK21_IF_RK5
5665 : use pm_kind, only: RKC => RK5
5666 : #include "pm_quadPack@routines.inc.F90"
5667 : end procedure
5668 : #endif
5669 :
5670 : #if RK4_ENABLED
5671 2 : module procedure QAGP_GK21_IF_RK4
5672 : use pm_kind, only: RKC => RK4
5673 : #include "pm_quadPack@routines.inc.F90"
5674 : end procedure
5675 : #endif
5676 :
5677 : #if RK3_ENABLED
5678 0 : module procedure QAGP_GK21_IF_RK3
5679 : use pm_kind, only: RKC => RK3
5680 : #include "pm_quadPack@routines.inc.F90"
5681 : end procedure
5682 : #endif
5683 :
5684 : #if RK2_ENABLED
5685 0 : module procedure QAGP_GK21_IF_RK2
5686 : use pm_kind, only: RKC => RK2
5687 : #include "pm_quadPack@routines.inc.F90"
5688 : end procedure
5689 : #endif
5690 :
5691 : #if RK1_ENABLED
5692 0 : module procedure QAGP_GK21_IF_RK1
5693 : use pm_kind, only: RKC => RK1
5694 : #include "pm_quadPack@routines.inc.F90"
5695 : end procedure
5696 : #endif
5697 :
5698 : #undef RK_ENABLED
5699 :
5700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5701 :
5702 : #undef IF_ENABLED
5703 :
5704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5705 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5706 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5707 :
5708 : #define II_ENABLED 1
5709 :
5710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5711 :
5712 : #define RK_ENABLED 1
5713 :
5714 : #if RK5_ENABLED
5715 : module procedure QAGP_GK21_II_RK5
5716 : use pm_kind, only: RKC => RK5
5717 : #include "pm_quadPack@routines.inc.F90"
5718 : end procedure
5719 : #endif
5720 :
5721 : #if RK4_ENABLED
5722 4 : module procedure QAGP_GK21_II_RK4
5723 : use pm_kind, only: RKC => RK4
5724 : #include "pm_quadPack@routines.inc.F90"
5725 : end procedure
5726 : #endif
5727 :
5728 : #if RK3_ENABLED
5729 0 : module procedure QAGP_GK21_II_RK3
5730 : use pm_kind, only: RKC => RK3
5731 : #include "pm_quadPack@routines.inc.F90"
5732 : end procedure
5733 : #endif
5734 :
5735 : #if RK2_ENABLED
5736 0 : module procedure QAGP_GK21_II_RK2
5737 : use pm_kind, only: RKC => RK2
5738 : #include "pm_quadPack@routines.inc.F90"
5739 : end procedure
5740 : #endif
5741 :
5742 : #if RK1_ENABLED
5743 0 : module procedure QAGP_GK21_II_RK1
5744 : use pm_kind, only: RKC => RK1
5745 : #include "pm_quadPack@routines.inc.F90"
5746 : end procedure
5747 : #endif
5748 :
5749 : #undef RK_ENABLED
5750 :
5751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5752 :
5753 : #undef II_ENABLED
5754 :
5755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5757 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5758 :
5759 : #undef GK21_ENABLED
5760 :
5761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5764 :
5765 : #define GK31_ENABLED 1
5766 :
5767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5770 :
5771 : #define FF_ENABLED 1
5772 :
5773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5774 :
5775 : #define RK_ENABLED 1
5776 :
5777 : #if RK5_ENABLED
5778 : module procedure QAGP_GK31_FF_RK5
5779 : use pm_kind, only: RKC => RK5
5780 : #include "pm_quadPack@routines.inc.F90"
5781 : end procedure
5782 : #endif
5783 :
5784 : #if RK4_ENABLED
5785 6 : module procedure QAGP_GK31_FF_RK4
5786 : use pm_kind, only: RKC => RK4
5787 : #include "pm_quadPack@routines.inc.F90"
5788 : end procedure
5789 : #endif
5790 :
5791 : #if RK3_ENABLED
5792 0 : module procedure QAGP_GK31_FF_RK3
5793 : use pm_kind, only: RKC => RK3
5794 : #include "pm_quadPack@routines.inc.F90"
5795 : end procedure
5796 : #endif
5797 :
5798 : #if RK2_ENABLED
5799 0 : module procedure QAGP_GK31_FF_RK2
5800 : use pm_kind, only: RKC => RK2
5801 : #include "pm_quadPack@routines.inc.F90"
5802 : end procedure
5803 : #endif
5804 :
5805 : #if RK1_ENABLED
5806 0 : module procedure QAGP_GK31_FF_RK1
5807 : use pm_kind, only: RKC => RK1
5808 : #include "pm_quadPack@routines.inc.F90"
5809 : end procedure
5810 : #endif
5811 :
5812 : #undef RK_ENABLED
5813 :
5814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5815 :
5816 : #undef FF_ENABLED
5817 :
5818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5821 :
5822 : #define FI_ENABLED 1
5823 :
5824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5825 :
5826 : #define RK_ENABLED 1
5827 :
5828 : #if RK5_ENABLED
5829 : module procedure QAGP_GK31_FI_RK5
5830 : use pm_kind, only: RKC => RK5
5831 : #include "pm_quadPack@routines.inc.F90"
5832 : end procedure
5833 : #endif
5834 :
5835 : #if RK4_ENABLED
5836 1 : module procedure QAGP_GK31_FI_RK4
5837 : use pm_kind, only: RKC => RK4
5838 : #include "pm_quadPack@routines.inc.F90"
5839 : end procedure
5840 : #endif
5841 :
5842 : #if RK3_ENABLED
5843 0 : module procedure QAGP_GK31_FI_RK3
5844 : use pm_kind, only: RKC => RK3
5845 : #include "pm_quadPack@routines.inc.F90"
5846 : end procedure
5847 : #endif
5848 :
5849 : #if RK2_ENABLED
5850 0 : module procedure QAGP_GK31_FI_RK2
5851 : use pm_kind, only: RKC => RK2
5852 : #include "pm_quadPack@routines.inc.F90"
5853 : end procedure
5854 : #endif
5855 :
5856 : #if RK1_ENABLED
5857 0 : module procedure QAGP_GK31_FI_RK1
5858 : use pm_kind, only: RKC => RK1
5859 : #include "pm_quadPack@routines.inc.F90"
5860 : end procedure
5861 : #endif
5862 :
5863 : #undef RK_ENABLED
5864 :
5865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5866 :
5867 : #undef FI_ENABLED
5868 :
5869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5872 :
5873 : #define IF_ENABLED 1
5874 :
5875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5876 :
5877 : #define RK_ENABLED 1
5878 :
5879 : #if RK5_ENABLED
5880 : module procedure QAGP_GK31_IF_RK5
5881 : use pm_kind, only: RKC => RK5
5882 : #include "pm_quadPack@routines.inc.F90"
5883 : end procedure
5884 : #endif
5885 :
5886 : #if RK4_ENABLED
5887 1 : module procedure QAGP_GK31_IF_RK4
5888 : use pm_kind, only: RKC => RK4
5889 : #include "pm_quadPack@routines.inc.F90"
5890 : end procedure
5891 : #endif
5892 :
5893 : #if RK3_ENABLED
5894 0 : module procedure QAGP_GK31_IF_RK3
5895 : use pm_kind, only: RKC => RK3
5896 : #include "pm_quadPack@routines.inc.F90"
5897 : end procedure
5898 : #endif
5899 :
5900 : #if RK2_ENABLED
5901 0 : module procedure QAGP_GK31_IF_RK2
5902 : use pm_kind, only: RKC => RK2
5903 : #include "pm_quadPack@routines.inc.F90"
5904 : end procedure
5905 : #endif
5906 :
5907 : #if RK1_ENABLED
5908 0 : module procedure QAGP_GK31_IF_RK1
5909 : use pm_kind, only: RKC => RK1
5910 : #include "pm_quadPack@routines.inc.F90"
5911 : end procedure
5912 : #endif
5913 :
5914 : #undef RK_ENABLED
5915 :
5916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5917 :
5918 : #undef IF_ENABLED
5919 :
5920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5923 :
5924 : #define II_ENABLED 1
5925 :
5926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5927 :
5928 : #define RK_ENABLED 1
5929 :
5930 : #if RK5_ENABLED
5931 : module procedure QAGP_GK31_II_RK5
5932 : use pm_kind, only: RKC => RK5
5933 : #include "pm_quadPack@routines.inc.F90"
5934 : end procedure
5935 : #endif
5936 :
5937 : #if RK4_ENABLED
5938 2 : module procedure QAGP_GK31_II_RK4
5939 : use pm_kind, only: RKC => RK4
5940 : #include "pm_quadPack@routines.inc.F90"
5941 : end procedure
5942 : #endif
5943 :
5944 : #if RK3_ENABLED
5945 0 : module procedure QAGP_GK31_II_RK3
5946 : use pm_kind, only: RKC => RK3
5947 : #include "pm_quadPack@routines.inc.F90"
5948 : end procedure
5949 : #endif
5950 :
5951 : #if RK2_ENABLED
5952 0 : module procedure QAGP_GK31_II_RK2
5953 : use pm_kind, only: RKC => RK2
5954 : #include "pm_quadPack@routines.inc.F90"
5955 : end procedure
5956 : #endif
5957 :
5958 : #if RK1_ENABLED
5959 0 : module procedure QAGP_GK31_II_RK1
5960 : use pm_kind, only: RKC => RK1
5961 : #include "pm_quadPack@routines.inc.F90"
5962 : end procedure
5963 : #endif
5964 :
5965 : #undef RK_ENABLED
5966 :
5967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5968 :
5969 : #undef II_ENABLED
5970 :
5971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5973 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5974 :
5975 : #undef GK31_ENABLED
5976 :
5977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5980 :
5981 : #define GK41_ENABLED 1
5982 :
5983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5986 :
5987 : #define FF_ENABLED 1
5988 :
5989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5990 :
5991 : #define RK_ENABLED 1
5992 :
5993 : #if RK5_ENABLED
5994 : module procedure QAGP_GK41_FF_RK5
5995 : use pm_kind, only: RKC => RK5
5996 : #include "pm_quadPack@routines.inc.F90"
5997 : end procedure
5998 : #endif
5999 :
6000 : #if RK4_ENABLED
6001 6 : module procedure QAGP_GK41_FF_RK4
6002 : use pm_kind, only: RKC => RK4
6003 : #include "pm_quadPack@routines.inc.F90"
6004 : end procedure
6005 : #endif
6006 :
6007 : #if RK3_ENABLED
6008 0 : module procedure QAGP_GK41_FF_RK3
6009 : use pm_kind, only: RKC => RK3
6010 : #include "pm_quadPack@routines.inc.F90"
6011 : end procedure
6012 : #endif
6013 :
6014 : #if RK2_ENABLED
6015 0 : module procedure QAGP_GK41_FF_RK2
6016 : use pm_kind, only: RKC => RK2
6017 : #include "pm_quadPack@routines.inc.F90"
6018 : end procedure
6019 : #endif
6020 :
6021 : #if RK1_ENABLED
6022 0 : module procedure QAGP_GK41_FF_RK1
6023 : use pm_kind, only: RKC => RK1
6024 : #include "pm_quadPack@routines.inc.F90"
6025 : end procedure
6026 : #endif
6027 :
6028 : #undef RK_ENABLED
6029 :
6030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6031 :
6032 : #undef FF_ENABLED
6033 :
6034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6037 :
6038 : #define FI_ENABLED 1
6039 :
6040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6041 :
6042 : #define RK_ENABLED 1
6043 :
6044 : #if RK5_ENABLED
6045 : module procedure QAGP_GK41_FI_RK5
6046 : use pm_kind, only: RKC => RK5
6047 : #include "pm_quadPack@routines.inc.F90"
6048 : end procedure
6049 : #endif
6050 :
6051 : #if RK4_ENABLED
6052 1 : module procedure QAGP_GK41_FI_RK4
6053 : use pm_kind, only: RKC => RK4
6054 : #include "pm_quadPack@routines.inc.F90"
6055 : end procedure
6056 : #endif
6057 :
6058 : #if RK3_ENABLED
6059 0 : module procedure QAGP_GK41_FI_RK3
6060 : use pm_kind, only: RKC => RK3
6061 : #include "pm_quadPack@routines.inc.F90"
6062 : end procedure
6063 : #endif
6064 :
6065 : #if RK2_ENABLED
6066 0 : module procedure QAGP_GK41_FI_RK2
6067 : use pm_kind, only: RKC => RK2
6068 : #include "pm_quadPack@routines.inc.F90"
6069 : end procedure
6070 : #endif
6071 :
6072 : #if RK1_ENABLED
6073 0 : module procedure QAGP_GK41_FI_RK1
6074 : use pm_kind, only: RKC => RK1
6075 : #include "pm_quadPack@routines.inc.F90"
6076 : end procedure
6077 : #endif
6078 :
6079 : #undef RK_ENABLED
6080 :
6081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6082 :
6083 : #undef FI_ENABLED
6084 :
6085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6088 :
6089 : #define IF_ENABLED 1
6090 :
6091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6092 :
6093 : #define RK_ENABLED 1
6094 :
6095 : #if RK5_ENABLED
6096 : module procedure QAGP_GK41_IF_RK5
6097 : use pm_kind, only: RKC => RK5
6098 : #include "pm_quadPack@routines.inc.F90"
6099 : end procedure
6100 : #endif
6101 :
6102 : #if RK4_ENABLED
6103 1 : module procedure QAGP_GK41_IF_RK4
6104 : use pm_kind, only: RKC => RK4
6105 : #include "pm_quadPack@routines.inc.F90"
6106 : end procedure
6107 : #endif
6108 :
6109 : #if RK3_ENABLED
6110 0 : module procedure QAGP_GK41_IF_RK3
6111 : use pm_kind, only: RKC => RK3
6112 : #include "pm_quadPack@routines.inc.F90"
6113 : end procedure
6114 : #endif
6115 :
6116 : #if RK2_ENABLED
6117 0 : module procedure QAGP_GK41_IF_RK2
6118 : use pm_kind, only: RKC => RK2
6119 : #include "pm_quadPack@routines.inc.F90"
6120 : end procedure
6121 : #endif
6122 :
6123 : #if RK1_ENABLED
6124 0 : module procedure QAGP_GK41_IF_RK1
6125 : use pm_kind, only: RKC => RK1
6126 : #include "pm_quadPack@routines.inc.F90"
6127 : end procedure
6128 : #endif
6129 :
6130 : #undef RK_ENABLED
6131 :
6132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6133 :
6134 : #undef IF_ENABLED
6135 :
6136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6139 :
6140 : #define II_ENABLED 1
6141 :
6142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6143 :
6144 : #define RK_ENABLED 1
6145 :
6146 : #if RK5_ENABLED
6147 : module procedure QAGP_GK41_II_RK5
6148 : use pm_kind, only: RKC => RK5
6149 : #include "pm_quadPack@routines.inc.F90"
6150 : end procedure
6151 : #endif
6152 :
6153 : #if RK4_ENABLED
6154 2 : module procedure QAGP_GK41_II_RK4
6155 : use pm_kind, only: RKC => RK4
6156 : #include "pm_quadPack@routines.inc.F90"
6157 : end procedure
6158 : #endif
6159 :
6160 : #if RK3_ENABLED
6161 0 : module procedure QAGP_GK41_II_RK3
6162 : use pm_kind, only: RKC => RK3
6163 : #include "pm_quadPack@routines.inc.F90"
6164 : end procedure
6165 : #endif
6166 :
6167 : #if RK2_ENABLED
6168 0 : module procedure QAGP_GK41_II_RK2
6169 : use pm_kind, only: RKC => RK2
6170 : #include "pm_quadPack@routines.inc.F90"
6171 : end procedure
6172 : #endif
6173 :
6174 : #if RK1_ENABLED
6175 0 : module procedure QAGP_GK41_II_RK1
6176 : use pm_kind, only: RKC => RK1
6177 : #include "pm_quadPack@routines.inc.F90"
6178 : end procedure
6179 : #endif
6180 :
6181 : #undef RK_ENABLED
6182 :
6183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6184 :
6185 : #undef II_ENABLED
6186 :
6187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6190 :
6191 : #undef GK41_ENABLED
6192 :
6193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6196 :
6197 : #define GK51_ENABLED 1
6198 :
6199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6202 :
6203 : #define FF_ENABLED 1
6204 :
6205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6206 :
6207 : #define RK_ENABLED 1
6208 :
6209 : #if RK5_ENABLED
6210 : module procedure QAGP_GK51_FF_RK5
6211 : use pm_kind, only: RKC => RK5
6212 : #include "pm_quadPack@routines.inc.F90"
6213 : end procedure
6214 : #endif
6215 :
6216 : #if RK4_ENABLED
6217 6 : module procedure QAGP_GK51_FF_RK4
6218 : use pm_kind, only: RKC => RK4
6219 : #include "pm_quadPack@routines.inc.F90"
6220 : end procedure
6221 : #endif
6222 :
6223 : #if RK3_ENABLED
6224 0 : module procedure QAGP_GK51_FF_RK3
6225 : use pm_kind, only: RKC => RK3
6226 : #include "pm_quadPack@routines.inc.F90"
6227 : end procedure
6228 : #endif
6229 :
6230 : #if RK2_ENABLED
6231 0 : module procedure QAGP_GK51_FF_RK2
6232 : use pm_kind, only: RKC => RK2
6233 : #include "pm_quadPack@routines.inc.F90"
6234 : end procedure
6235 : #endif
6236 :
6237 : #if RK1_ENABLED
6238 0 : module procedure QAGP_GK51_FF_RK1
6239 : use pm_kind, only: RKC => RK1
6240 : #include "pm_quadPack@routines.inc.F90"
6241 : end procedure
6242 : #endif
6243 :
6244 : #undef RK_ENABLED
6245 :
6246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6247 :
6248 : #undef FF_ENABLED
6249 :
6250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6253 :
6254 : #define FI_ENABLED 1
6255 :
6256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6257 :
6258 : #define RK_ENABLED 1
6259 :
6260 : #if RK5_ENABLED
6261 : module procedure QAGP_GK51_FI_RK5
6262 : use pm_kind, only: RKC => RK5
6263 : #include "pm_quadPack@routines.inc.F90"
6264 : end procedure
6265 : #endif
6266 :
6267 : #if RK4_ENABLED
6268 1 : module procedure QAGP_GK51_FI_RK4
6269 : use pm_kind, only: RKC => RK4
6270 : #include "pm_quadPack@routines.inc.F90"
6271 : end procedure
6272 : #endif
6273 :
6274 : #if RK3_ENABLED
6275 0 : module procedure QAGP_GK51_FI_RK3
6276 : use pm_kind, only: RKC => RK3
6277 : #include "pm_quadPack@routines.inc.F90"
6278 : end procedure
6279 : #endif
6280 :
6281 : #if RK2_ENABLED
6282 0 : module procedure QAGP_GK51_FI_RK2
6283 : use pm_kind, only: RKC => RK2
6284 : #include "pm_quadPack@routines.inc.F90"
6285 : end procedure
6286 : #endif
6287 :
6288 : #if RK1_ENABLED
6289 0 : module procedure QAGP_GK51_FI_RK1
6290 : use pm_kind, only: RKC => RK1
6291 : #include "pm_quadPack@routines.inc.F90"
6292 : end procedure
6293 : #endif
6294 :
6295 : #undef RK_ENABLED
6296 :
6297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6298 :
6299 : #undef FI_ENABLED
6300 :
6301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6304 :
6305 : #define IF_ENABLED 1
6306 :
6307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6308 :
6309 : #define RK_ENABLED 1
6310 :
6311 : #if RK5_ENABLED
6312 : module procedure QAGP_GK51_IF_RK5
6313 : use pm_kind, only: RKC => RK5
6314 : #include "pm_quadPack@routines.inc.F90"
6315 : end procedure
6316 : #endif
6317 :
6318 : #if RK4_ENABLED
6319 1 : module procedure QAGP_GK51_IF_RK4
6320 : use pm_kind, only: RKC => RK4
6321 : #include "pm_quadPack@routines.inc.F90"
6322 : end procedure
6323 : #endif
6324 :
6325 : #if RK3_ENABLED
6326 0 : module procedure QAGP_GK51_IF_RK3
6327 : use pm_kind, only: RKC => RK3
6328 : #include "pm_quadPack@routines.inc.F90"
6329 : end procedure
6330 : #endif
6331 :
6332 : #if RK2_ENABLED
6333 0 : module procedure QAGP_GK51_IF_RK2
6334 : use pm_kind, only: RKC => RK2
6335 : #include "pm_quadPack@routines.inc.F90"
6336 : end procedure
6337 : #endif
6338 :
6339 : #if RK1_ENABLED
6340 0 : module procedure QAGP_GK51_IF_RK1
6341 : use pm_kind, only: RKC => RK1
6342 : #include "pm_quadPack@routines.inc.F90"
6343 : end procedure
6344 : #endif
6345 :
6346 : #undef RK_ENABLED
6347 :
6348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6349 :
6350 : #undef IF_ENABLED
6351 :
6352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6355 :
6356 : #define II_ENABLED 1
6357 :
6358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6359 :
6360 : #define RK_ENABLED 1
6361 :
6362 : #if RK5_ENABLED
6363 : module procedure QAGP_GK51_II_RK5
6364 : use pm_kind, only: RKC => RK5
6365 : #include "pm_quadPack@routines.inc.F90"
6366 : end procedure
6367 : #endif
6368 :
6369 : #if RK4_ENABLED
6370 2 : module procedure QAGP_GK51_II_RK4
6371 : use pm_kind, only: RKC => RK4
6372 : #include "pm_quadPack@routines.inc.F90"
6373 : end procedure
6374 : #endif
6375 :
6376 : #if RK3_ENABLED
6377 0 : module procedure QAGP_GK51_II_RK3
6378 : use pm_kind, only: RKC => RK3
6379 : #include "pm_quadPack@routines.inc.F90"
6380 : end procedure
6381 : #endif
6382 :
6383 : #if RK2_ENABLED
6384 0 : module procedure QAGP_GK51_II_RK2
6385 : use pm_kind, only: RKC => RK2
6386 : #include "pm_quadPack@routines.inc.F90"
6387 : end procedure
6388 : #endif
6389 :
6390 : #if RK1_ENABLED
6391 0 : module procedure QAGP_GK51_II_RK1
6392 : use pm_kind, only: RKC => RK1
6393 : #include "pm_quadPack@routines.inc.F90"
6394 : end procedure
6395 : #endif
6396 :
6397 : #undef RK_ENABLED
6398 :
6399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6400 :
6401 : #undef II_ENABLED
6402 :
6403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6406 :
6407 : #undef GK51_ENABLED
6408 :
6409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6412 :
6413 : #define GK61_ENABLED 1
6414 :
6415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6418 :
6419 : #define FF_ENABLED 1
6420 :
6421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6422 :
6423 : #define RK_ENABLED 1
6424 :
6425 : #if RK5_ENABLED
6426 : module procedure QAGP_GK61_FF_RK5
6427 : use pm_kind, only: RKC => RK5
6428 : #include "pm_quadPack@routines.inc.F90"
6429 : end procedure
6430 : #endif
6431 :
6432 : #if RK4_ENABLED
6433 6 : module procedure QAGP_GK61_FF_RK4
6434 : use pm_kind, only: RKC => RK4
6435 : #include "pm_quadPack@routines.inc.F90"
6436 : end procedure
6437 : #endif
6438 :
6439 : #if RK3_ENABLED
6440 0 : module procedure QAGP_GK61_FF_RK3
6441 : use pm_kind, only: RKC => RK3
6442 : #include "pm_quadPack@routines.inc.F90"
6443 : end procedure
6444 : #endif
6445 :
6446 : #if RK2_ENABLED
6447 0 : module procedure QAGP_GK61_FF_RK2
6448 : use pm_kind, only: RKC => RK2
6449 : #include "pm_quadPack@routines.inc.F90"
6450 : end procedure
6451 : #endif
6452 :
6453 : #if RK1_ENABLED
6454 0 : module procedure QAGP_GK61_FF_RK1
6455 : use pm_kind, only: RKC => RK1
6456 : #include "pm_quadPack@routines.inc.F90"
6457 : end procedure
6458 : #endif
6459 :
6460 : #undef RK_ENABLED
6461 :
6462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6463 :
6464 : #undef FF_ENABLED
6465 :
6466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6469 :
6470 : #define FI_ENABLED 1
6471 :
6472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6473 :
6474 : #define RK_ENABLED 1
6475 :
6476 : #if RK5_ENABLED
6477 : module procedure QAGP_GK61_FI_RK5
6478 : use pm_kind, only: RKC => RK5
6479 : #include "pm_quadPack@routines.inc.F90"
6480 : end procedure
6481 : #endif
6482 :
6483 : #if RK4_ENABLED
6484 1 : module procedure QAGP_GK61_FI_RK4
6485 : use pm_kind, only: RKC => RK4
6486 : #include "pm_quadPack@routines.inc.F90"
6487 : end procedure
6488 : #endif
6489 :
6490 : #if RK3_ENABLED
6491 0 : module procedure QAGP_GK61_FI_RK3
6492 : use pm_kind, only: RKC => RK3
6493 : #include "pm_quadPack@routines.inc.F90"
6494 : end procedure
6495 : #endif
6496 :
6497 : #if RK2_ENABLED
6498 0 : module procedure QAGP_GK61_FI_RK2
6499 : use pm_kind, only: RKC => RK2
6500 : #include "pm_quadPack@routines.inc.F90"
6501 : end procedure
6502 : #endif
6503 :
6504 : #if RK1_ENABLED
6505 0 : module procedure QAGP_GK61_FI_RK1
6506 : use pm_kind, only: RKC => RK1
6507 : #include "pm_quadPack@routines.inc.F90"
6508 : end procedure
6509 : #endif
6510 :
6511 : #undef RK_ENABLED
6512 :
6513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6514 :
6515 : #undef FI_ENABLED
6516 :
6517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6520 :
6521 : #define IF_ENABLED 1
6522 :
6523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6524 :
6525 : #define RK_ENABLED 1
6526 :
6527 : #if RK5_ENABLED
6528 : module procedure QAGP_GK61_IF_RK5
6529 : use pm_kind, only: RKC => RK5
6530 : #include "pm_quadPack@routines.inc.F90"
6531 : end procedure
6532 : #endif
6533 :
6534 : #if RK4_ENABLED
6535 1 : module procedure QAGP_GK61_IF_RK4
6536 : use pm_kind, only: RKC => RK4
6537 : #include "pm_quadPack@routines.inc.F90"
6538 : end procedure
6539 : #endif
6540 :
6541 : #if RK3_ENABLED
6542 0 : module procedure QAGP_GK61_IF_RK3
6543 : use pm_kind, only: RKC => RK3
6544 : #include "pm_quadPack@routines.inc.F90"
6545 : end procedure
6546 : #endif
6547 :
6548 : #if RK2_ENABLED
6549 0 : module procedure QAGP_GK61_IF_RK2
6550 : use pm_kind, only: RKC => RK2
6551 : #include "pm_quadPack@routines.inc.F90"
6552 : end procedure
6553 : #endif
6554 :
6555 : #if RK1_ENABLED
6556 0 : module procedure QAGP_GK61_IF_RK1
6557 : use pm_kind, only: RKC => RK1
6558 : #include "pm_quadPack@routines.inc.F90"
6559 : end procedure
6560 : #endif
6561 :
6562 : #undef RK_ENABLED
6563 :
6564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6565 :
6566 : #undef IF_ENABLED
6567 :
6568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6571 :
6572 : #define II_ENABLED 1
6573 :
6574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6575 :
6576 : #define RK_ENABLED 1
6577 :
6578 : #if RK5_ENABLED
6579 : module procedure QAGP_GK61_II_RK5
6580 : use pm_kind, only: RKC => RK5
6581 : #include "pm_quadPack@routines.inc.F90"
6582 : end procedure
6583 : #endif
6584 :
6585 : #if RK4_ENABLED
6586 2 : module procedure QAGP_GK61_II_RK4
6587 : use pm_kind, only: RKC => RK4
6588 : #include "pm_quadPack@routines.inc.F90"
6589 : end procedure
6590 : #endif
6591 :
6592 : #if RK3_ENABLED
6593 0 : module procedure QAGP_GK61_II_RK3
6594 : use pm_kind, only: RKC => RK3
6595 : #include "pm_quadPack@routines.inc.F90"
6596 : end procedure
6597 : #endif
6598 :
6599 : #if RK2_ENABLED
6600 0 : module procedure QAGP_GK61_II_RK2
6601 : use pm_kind, only: RKC => RK2
6602 : #include "pm_quadPack@routines.inc.F90"
6603 : end procedure
6604 : #endif
6605 :
6606 : #if RK1_ENABLED
6607 0 : module procedure QAGP_GK61_II_RK1
6608 : use pm_kind, only: RKC => RK1
6609 : #include "pm_quadPack@routines.inc.F90"
6610 : end procedure
6611 : #endif
6612 :
6613 : #undef RK_ENABLED
6614 :
6615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6616 :
6617 : #undef II_ENABLED
6618 :
6619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6622 :
6623 : #undef GK61_ENABLED
6624 :
6625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6628 :
6629 : #define GKXX_ENABLED 1
6630 :
6631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6634 :
6635 : #define FF_ENABLED 1
6636 :
6637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6638 :
6639 : #define RK_ENABLED 1
6640 :
6641 : #if RK5_ENABLED
6642 : module procedure QAGP_GKXX_FF_RK5
6643 : use pm_kind, only: RKC => RK5
6644 : #include "pm_quadPack@routines.inc.F90"
6645 : end procedure
6646 : #endif
6647 :
6648 : #if RK4_ENABLED
6649 6 : module procedure QAGP_GKXX_FF_RK4
6650 : use pm_kind, only: RKC => RK4
6651 : #include "pm_quadPack@routines.inc.F90"
6652 : end procedure
6653 : #endif
6654 :
6655 : #if RK3_ENABLED
6656 0 : module procedure QAGP_GKXX_FF_RK3
6657 : use pm_kind, only: RKC => RK3
6658 : #include "pm_quadPack@routines.inc.F90"
6659 : end procedure
6660 : #endif
6661 :
6662 : #if RK2_ENABLED
6663 0 : module procedure QAGP_GKXX_FF_RK2
6664 : use pm_kind, only: RKC => RK2
6665 : #include "pm_quadPack@routines.inc.F90"
6666 : end procedure
6667 : #endif
6668 :
6669 : #if RK1_ENABLED
6670 0 : module procedure QAGP_GKXX_FF_RK1
6671 : use pm_kind, only: RKC => RK1
6672 : #include "pm_quadPack@routines.inc.F90"
6673 : end procedure
6674 : #endif
6675 :
6676 : #undef RK_ENABLED
6677 :
6678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6679 :
6680 : #undef FF_ENABLED
6681 :
6682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6685 :
6686 : #define FI_ENABLED 1
6687 :
6688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6689 :
6690 : #define RK_ENABLED 1
6691 :
6692 : #if RK5_ENABLED
6693 : module procedure QAGP_GKXX_FI_RK5
6694 : use pm_kind, only: RKC => RK5
6695 : #include "pm_quadPack@routines.inc.F90"
6696 : end procedure
6697 : #endif
6698 :
6699 : #if RK4_ENABLED
6700 1 : module procedure QAGP_GKXX_FI_RK4
6701 : use pm_kind, only: RKC => RK4
6702 : #include "pm_quadPack@routines.inc.F90"
6703 : end procedure
6704 : #endif
6705 :
6706 : #if RK3_ENABLED
6707 0 : module procedure QAGP_GKXX_FI_RK3
6708 : use pm_kind, only: RKC => RK3
6709 : #include "pm_quadPack@routines.inc.F90"
6710 : end procedure
6711 : #endif
6712 :
6713 : #if RK2_ENABLED
6714 0 : module procedure QAGP_GKXX_FI_RK2
6715 : use pm_kind, only: RKC => RK2
6716 : #include "pm_quadPack@routines.inc.F90"
6717 : end procedure
6718 : #endif
6719 :
6720 : #if RK1_ENABLED
6721 0 : module procedure QAGP_GKXX_FI_RK1
6722 : use pm_kind, only: RKC => RK1
6723 : #include "pm_quadPack@routines.inc.F90"
6724 : end procedure
6725 : #endif
6726 :
6727 : #undef RK_ENABLED
6728 :
6729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6730 :
6731 : #undef FI_ENABLED
6732 :
6733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6736 :
6737 : #define IF_ENABLED 1
6738 :
6739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6740 :
6741 : #define RK_ENABLED 1
6742 :
6743 : #if RK5_ENABLED
6744 : module procedure QAGP_GKXX_IF_RK5
6745 : use pm_kind, only: RKC => RK5
6746 : #include "pm_quadPack@routines.inc.F90"
6747 : end procedure
6748 : #endif
6749 :
6750 : #if RK4_ENABLED
6751 1 : module procedure QAGP_GKXX_IF_RK4
6752 : use pm_kind, only: RKC => RK4
6753 : #include "pm_quadPack@routines.inc.F90"
6754 : end procedure
6755 : #endif
6756 :
6757 : #if RK3_ENABLED
6758 0 : module procedure QAGP_GKXX_IF_RK3
6759 : use pm_kind, only: RKC => RK3
6760 : #include "pm_quadPack@routines.inc.F90"
6761 : end procedure
6762 : #endif
6763 :
6764 : #if RK2_ENABLED
6765 0 : module procedure QAGP_GKXX_IF_RK2
6766 : use pm_kind, only: RKC => RK2
6767 : #include "pm_quadPack@routines.inc.F90"
6768 : end procedure
6769 : #endif
6770 :
6771 : #if RK1_ENABLED
6772 0 : module procedure QAGP_GKXX_IF_RK1
6773 : use pm_kind, only: RKC => RK1
6774 : #include "pm_quadPack@routines.inc.F90"
6775 : end procedure
6776 : #endif
6777 :
6778 : #undef RK_ENABLED
6779 :
6780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6781 :
6782 : #undef IF_ENABLED
6783 :
6784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6787 :
6788 : #define II_ENABLED 1
6789 :
6790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6791 :
6792 : #define RK_ENABLED 1
6793 :
6794 : #if RK5_ENABLED
6795 : module procedure QAGP_GKXX_II_RK5
6796 : use pm_kind, only: RKC => RK5
6797 : #include "pm_quadPack@routines.inc.F90"
6798 : end procedure
6799 : #endif
6800 :
6801 : #if RK4_ENABLED
6802 2 : module procedure QAGP_GKXX_II_RK4
6803 : use pm_kind, only: RKC => RK4
6804 : #include "pm_quadPack@routines.inc.F90"
6805 : end procedure
6806 : #endif
6807 :
6808 : #if RK3_ENABLED
6809 0 : module procedure QAGP_GKXX_II_RK3
6810 : use pm_kind, only: RKC => RK3
6811 : #include "pm_quadPack@routines.inc.F90"
6812 : end procedure
6813 : #endif
6814 :
6815 : #if RK2_ENABLED
6816 0 : module procedure QAGP_GKXX_II_RK2
6817 : use pm_kind, only: RKC => RK2
6818 : #include "pm_quadPack@routines.inc.F90"
6819 : end procedure
6820 : #endif
6821 :
6822 : #if RK1_ENABLED
6823 0 : module procedure QAGP_GKXX_II_RK1
6824 : use pm_kind, only: RKC => RK1
6825 : #include "pm_quadPack@routines.inc.F90"
6826 : end procedure
6827 : #endif
6828 :
6829 : #undef RK_ENABLED
6830 :
6831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6832 :
6833 : #undef II_ENABLED
6834 :
6835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6836 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6838 :
6839 : #undef GKXX_ENABLED
6840 :
6841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6844 :
6845 : #undef QAGP_ENABLED
6846 :
6847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6850 :
6851 : #undef getQuadErr_ENABLED
6852 :
6853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6854 :
6855 : #define getQuadErr_ENABLED 1
6856 :
6857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6860 :
6861 : #define QAWC_ENABLED 1
6862 :
6863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6866 :
6867 : #define GK15_ENABLED 1
6868 :
6869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6872 :
6873 : #define FF_ENABLED 1
6874 :
6875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6876 :
6877 : #define RK_ENABLED 1
6878 :
6879 : #if RK5_ENABLED
6880 : module procedure QAWC_GK15_FF_RK5
6881 : use pm_kind, only: RKC => RK5
6882 : #include "pm_quadPack@routines.inc.F90"
6883 : end procedure
6884 : #endif
6885 :
6886 : #if RK4_ENABLED
6887 4 : module procedure QAWC_GK15_FF_RK4
6888 : use pm_kind, only: RKC => RK4
6889 : #include "pm_quadPack@routines.inc.F90"
6890 : end procedure
6891 : #endif
6892 :
6893 : #if RK3_ENABLED
6894 0 : module procedure QAWC_GK15_FF_RK3
6895 : use pm_kind, only: RKC => RK3
6896 : #include "pm_quadPack@routines.inc.F90"
6897 : end procedure
6898 : #endif
6899 :
6900 : #if RK2_ENABLED
6901 0 : module procedure QAWC_GK15_FF_RK2
6902 : use pm_kind, only: RKC => RK2
6903 : #include "pm_quadPack@routines.inc.F90"
6904 : end procedure
6905 : #endif
6906 :
6907 : #if RK1_ENABLED
6908 0 : module procedure QAWC_GK15_FF_RK1
6909 : use pm_kind, only: RKC => RK1
6910 : #include "pm_quadPack@routines.inc.F90"
6911 : end procedure
6912 : #endif
6913 :
6914 : #undef RK_ENABLED
6915 :
6916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6917 :
6918 : #undef FF_ENABLED
6919 :
6920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6923 :
6924 : #define FI_ENABLED 1
6925 :
6926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6927 :
6928 : #define RK_ENABLED 1
6929 :
6930 : #if RK5_ENABLED
6931 : module procedure QAWC_GK15_FI_RK5
6932 : use pm_kind, only: RKC => RK5
6933 : #include "pm_quadPack@routines.inc.F90"
6934 : end procedure
6935 : #endif
6936 :
6937 : #if RK4_ENABLED
6938 0 : module procedure QAWC_GK15_FI_RK4
6939 : use pm_kind, only: RKC => RK4
6940 : #include "pm_quadPack@routines.inc.F90"
6941 : end procedure
6942 : #endif
6943 :
6944 : #if RK3_ENABLED
6945 0 : module procedure QAWC_GK15_FI_RK3
6946 : use pm_kind, only: RKC => RK3
6947 : #include "pm_quadPack@routines.inc.F90"
6948 : end procedure
6949 : #endif
6950 :
6951 : #if RK2_ENABLED
6952 0 : module procedure QAWC_GK15_FI_RK2
6953 : use pm_kind, only: RKC => RK2
6954 : #include "pm_quadPack@routines.inc.F90"
6955 : end procedure
6956 : #endif
6957 :
6958 : #if RK1_ENABLED
6959 0 : module procedure QAWC_GK15_FI_RK1
6960 : use pm_kind, only: RKC => RK1
6961 : #include "pm_quadPack@routines.inc.F90"
6962 : end procedure
6963 : #endif
6964 :
6965 : #undef RK_ENABLED
6966 :
6967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6968 :
6969 : #undef FI_ENABLED
6970 :
6971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6973 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6974 :
6975 : #define IF_ENABLED 1
6976 :
6977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6978 :
6979 : #define RK_ENABLED 1
6980 :
6981 : #if RK5_ENABLED
6982 : module procedure QAWC_GK15_IF_RK5
6983 : use pm_kind, only: RKC => RK5
6984 : #include "pm_quadPack@routines.inc.F90"
6985 : end procedure
6986 : #endif
6987 :
6988 : #if RK4_ENABLED
6989 0 : module procedure QAWC_GK15_IF_RK4
6990 : use pm_kind, only: RKC => RK4
6991 : #include "pm_quadPack@routines.inc.F90"
6992 : end procedure
6993 : #endif
6994 :
6995 : #if RK3_ENABLED
6996 0 : module procedure QAWC_GK15_IF_RK3
6997 : use pm_kind, only: RKC => RK3
6998 : #include "pm_quadPack@routines.inc.F90"
6999 : end procedure
7000 : #endif
7001 :
7002 : #if RK2_ENABLED
7003 0 : module procedure QAWC_GK15_IF_RK2
7004 : use pm_kind, only: RKC => RK2
7005 : #include "pm_quadPack@routines.inc.F90"
7006 : end procedure
7007 : #endif
7008 :
7009 : #if RK1_ENABLED
7010 0 : module procedure QAWC_GK15_IF_RK1
7011 : use pm_kind, only: RKC => RK1
7012 : #include "pm_quadPack@routines.inc.F90"
7013 : end procedure
7014 : #endif
7015 :
7016 : #undef RK_ENABLED
7017 :
7018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7019 :
7020 : #undef IF_ENABLED
7021 :
7022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7025 :
7026 : #define II_ENABLED 1
7027 :
7028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7029 :
7030 : #define RK_ENABLED 1
7031 :
7032 : #if RK5_ENABLED
7033 : module procedure QAWC_GK15_II_RK5
7034 : use pm_kind, only: RKC => RK5
7035 : #include "pm_quadPack@routines.inc.F90"
7036 : end procedure
7037 : #endif
7038 :
7039 : #if RK4_ENABLED
7040 0 : module procedure QAWC_GK15_II_RK4
7041 : use pm_kind, only: RKC => RK4
7042 : #include "pm_quadPack@routines.inc.F90"
7043 : end procedure
7044 : #endif
7045 :
7046 : #if RK3_ENABLED
7047 0 : module procedure QAWC_GK15_II_RK3
7048 : use pm_kind, only: RKC => RK3
7049 : #include "pm_quadPack@routines.inc.F90"
7050 : end procedure
7051 : #endif
7052 :
7053 : #if RK2_ENABLED
7054 0 : module procedure QAWC_GK15_II_RK2
7055 : use pm_kind, only: RKC => RK2
7056 : #include "pm_quadPack@routines.inc.F90"
7057 : end procedure
7058 : #endif
7059 :
7060 : #if RK1_ENABLED
7061 0 : module procedure QAWC_GK15_II_RK1
7062 : use pm_kind, only: RKC => RK1
7063 : #include "pm_quadPack@routines.inc.F90"
7064 : end procedure
7065 : #endif
7066 :
7067 : #undef RK_ENABLED
7068 :
7069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7070 :
7071 : #undef II_ENABLED
7072 :
7073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7076 :
7077 : #undef GK15_ENABLED
7078 :
7079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7082 :
7083 : #define GK21_ENABLED 1
7084 :
7085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7088 :
7089 : #define FF_ENABLED 1
7090 :
7091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7092 :
7093 : #define RK_ENABLED 1
7094 :
7095 : #if RK5_ENABLED
7096 : module procedure QAWC_GK21_FF_RK5
7097 : use pm_kind, only: RKC => RK5
7098 : #include "pm_quadPack@routines.inc.F90"
7099 : end procedure
7100 : #endif
7101 :
7102 : #if RK4_ENABLED
7103 8 : module procedure QAWC_GK21_FF_RK4
7104 : use pm_kind, only: RKC => RK4
7105 : #include "pm_quadPack@routines.inc.F90"
7106 : end procedure
7107 : #endif
7108 :
7109 : #if RK3_ENABLED
7110 0 : module procedure QAWC_GK21_FF_RK3
7111 : use pm_kind, only: RKC => RK3
7112 : #include "pm_quadPack@routines.inc.F90"
7113 : end procedure
7114 : #endif
7115 :
7116 : #if RK2_ENABLED
7117 0 : module procedure QAWC_GK21_FF_RK2
7118 : use pm_kind, only: RKC => RK2
7119 : #include "pm_quadPack@routines.inc.F90"
7120 : end procedure
7121 : #endif
7122 :
7123 : #if RK1_ENABLED
7124 0 : module procedure QAWC_GK21_FF_RK1
7125 : use pm_kind, only: RKC => RK1
7126 : #include "pm_quadPack@routines.inc.F90"
7127 : end procedure
7128 : #endif
7129 :
7130 : #undef RK_ENABLED
7131 :
7132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7133 :
7134 : #undef FF_ENABLED
7135 :
7136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7139 :
7140 : #define FI_ENABLED 1
7141 :
7142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7143 :
7144 : #define RK_ENABLED 1
7145 :
7146 : #if RK5_ENABLED
7147 : module procedure QAWC_GK21_FI_RK5
7148 : use pm_kind, only: RKC => RK5
7149 : #include "pm_quadPack@routines.inc.F90"
7150 : end procedure
7151 : #endif
7152 :
7153 : #if RK4_ENABLED
7154 0 : module procedure QAWC_GK21_FI_RK4
7155 : use pm_kind, only: RKC => RK4
7156 : #include "pm_quadPack@routines.inc.F90"
7157 : end procedure
7158 : #endif
7159 :
7160 : #if RK3_ENABLED
7161 0 : module procedure QAWC_GK21_FI_RK3
7162 : use pm_kind, only: RKC => RK3
7163 : #include "pm_quadPack@routines.inc.F90"
7164 : end procedure
7165 : #endif
7166 :
7167 : #if RK2_ENABLED
7168 0 : module procedure QAWC_GK21_FI_RK2
7169 : use pm_kind, only: RKC => RK2
7170 : #include "pm_quadPack@routines.inc.F90"
7171 : end procedure
7172 : #endif
7173 :
7174 : #if RK1_ENABLED
7175 0 : module procedure QAWC_GK21_FI_RK1
7176 : use pm_kind, only: RKC => RK1
7177 : #include "pm_quadPack@routines.inc.F90"
7178 : end procedure
7179 : #endif
7180 :
7181 : #undef RK_ENABLED
7182 :
7183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7184 :
7185 : #undef FI_ENABLED
7186 :
7187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7190 :
7191 : #define IF_ENABLED 1
7192 :
7193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7194 :
7195 : #define RK_ENABLED 1
7196 :
7197 : #if RK5_ENABLED
7198 : module procedure QAWC_GK21_IF_RK5
7199 : use pm_kind, only: RKC => RK5
7200 : #include "pm_quadPack@routines.inc.F90"
7201 : end procedure
7202 : #endif
7203 :
7204 : #if RK4_ENABLED
7205 0 : module procedure QAWC_GK21_IF_RK4
7206 : use pm_kind, only: RKC => RK4
7207 : #include "pm_quadPack@routines.inc.F90"
7208 : end procedure
7209 : #endif
7210 :
7211 : #if RK3_ENABLED
7212 0 : module procedure QAWC_GK21_IF_RK3
7213 : use pm_kind, only: RKC => RK3
7214 : #include "pm_quadPack@routines.inc.F90"
7215 : end procedure
7216 : #endif
7217 :
7218 : #if RK2_ENABLED
7219 0 : module procedure QAWC_GK21_IF_RK2
7220 : use pm_kind, only: RKC => RK2
7221 : #include "pm_quadPack@routines.inc.F90"
7222 : end procedure
7223 : #endif
7224 :
7225 : #if RK1_ENABLED
7226 0 : module procedure QAWC_GK21_IF_RK1
7227 : use pm_kind, only: RKC => RK1
7228 : #include "pm_quadPack@routines.inc.F90"
7229 : end procedure
7230 : #endif
7231 :
7232 : #undef RK_ENABLED
7233 :
7234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7235 :
7236 : #undef IF_ENABLED
7237 :
7238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7241 :
7242 : #define II_ENABLED 1
7243 :
7244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7245 :
7246 : #define RK_ENABLED 1
7247 :
7248 : #if RK5_ENABLED
7249 : module procedure QAWC_GK21_II_RK5
7250 : use pm_kind, only: RKC => RK5
7251 : #include "pm_quadPack@routines.inc.F90"
7252 : end procedure
7253 : #endif
7254 :
7255 : #if RK4_ENABLED
7256 0 : module procedure QAWC_GK21_II_RK4
7257 : use pm_kind, only: RKC => RK4
7258 : #include "pm_quadPack@routines.inc.F90"
7259 : end procedure
7260 : #endif
7261 :
7262 : #if RK3_ENABLED
7263 0 : module procedure QAWC_GK21_II_RK3
7264 : use pm_kind, only: RKC => RK3
7265 : #include "pm_quadPack@routines.inc.F90"
7266 : end procedure
7267 : #endif
7268 :
7269 : #if RK2_ENABLED
7270 0 : module procedure QAWC_GK21_II_RK2
7271 : use pm_kind, only: RKC => RK2
7272 : #include "pm_quadPack@routines.inc.F90"
7273 : end procedure
7274 : #endif
7275 :
7276 : #if RK1_ENABLED
7277 0 : module procedure QAWC_GK21_II_RK1
7278 : use pm_kind, only: RKC => RK1
7279 : #include "pm_quadPack@routines.inc.F90"
7280 : end procedure
7281 : #endif
7282 :
7283 : #undef RK_ENABLED
7284 :
7285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7286 :
7287 : #undef II_ENABLED
7288 :
7289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7292 :
7293 : #undef GK21_ENABLED
7294 :
7295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7298 :
7299 : #define GK31_ENABLED 1
7300 :
7301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7304 :
7305 : #define FF_ENABLED 1
7306 :
7307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7308 :
7309 : #define RK_ENABLED 1
7310 :
7311 : #if RK5_ENABLED
7312 : module procedure QAWC_GK31_FF_RK5
7313 : use pm_kind, only: RKC => RK5
7314 : #include "pm_quadPack@routines.inc.F90"
7315 : end procedure
7316 : #endif
7317 :
7318 : #if RK4_ENABLED
7319 4 : module procedure QAWC_GK31_FF_RK4
7320 : use pm_kind, only: RKC => RK4
7321 : #include "pm_quadPack@routines.inc.F90"
7322 : end procedure
7323 : #endif
7324 :
7325 : #if RK3_ENABLED
7326 0 : module procedure QAWC_GK31_FF_RK3
7327 : use pm_kind, only: RKC => RK3
7328 : #include "pm_quadPack@routines.inc.F90"
7329 : end procedure
7330 : #endif
7331 :
7332 : #if RK2_ENABLED
7333 0 : module procedure QAWC_GK31_FF_RK2
7334 : use pm_kind, only: RKC => RK2
7335 : #include "pm_quadPack@routines.inc.F90"
7336 : end procedure
7337 : #endif
7338 :
7339 : #if RK1_ENABLED
7340 0 : module procedure QAWC_GK31_FF_RK1
7341 : use pm_kind, only: RKC => RK1
7342 : #include "pm_quadPack@routines.inc.F90"
7343 : end procedure
7344 : #endif
7345 :
7346 : #undef RK_ENABLED
7347 :
7348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7349 :
7350 : #undef FF_ENABLED
7351 :
7352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7355 :
7356 : #define FI_ENABLED 1
7357 :
7358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7359 :
7360 : #define RK_ENABLED 1
7361 :
7362 : #if RK5_ENABLED
7363 : module procedure QAWC_GK31_FI_RK5
7364 : use pm_kind, only: RKC => RK5
7365 : #include "pm_quadPack@routines.inc.F90"
7366 : end procedure
7367 : #endif
7368 :
7369 : #if RK4_ENABLED
7370 0 : module procedure QAWC_GK31_FI_RK4
7371 : use pm_kind, only: RKC => RK4
7372 : #include "pm_quadPack@routines.inc.F90"
7373 : end procedure
7374 : #endif
7375 :
7376 : #if RK3_ENABLED
7377 0 : module procedure QAWC_GK31_FI_RK3
7378 : use pm_kind, only: RKC => RK3
7379 : #include "pm_quadPack@routines.inc.F90"
7380 : end procedure
7381 : #endif
7382 :
7383 : #if RK2_ENABLED
7384 0 : module procedure QAWC_GK31_FI_RK2
7385 : use pm_kind, only: RKC => RK2
7386 : #include "pm_quadPack@routines.inc.F90"
7387 : end procedure
7388 : #endif
7389 :
7390 : #if RK1_ENABLED
7391 0 : module procedure QAWC_GK31_FI_RK1
7392 : use pm_kind, only: RKC => RK1
7393 : #include "pm_quadPack@routines.inc.F90"
7394 : end procedure
7395 : #endif
7396 :
7397 : #undef RK_ENABLED
7398 :
7399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7400 :
7401 : #undef FI_ENABLED
7402 :
7403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7406 :
7407 : #define IF_ENABLED 1
7408 :
7409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7410 :
7411 : #define RK_ENABLED 1
7412 :
7413 : #if RK5_ENABLED
7414 : module procedure QAWC_GK31_IF_RK5
7415 : use pm_kind, only: RKC => RK5
7416 : #include "pm_quadPack@routines.inc.F90"
7417 : end procedure
7418 : #endif
7419 :
7420 : #if RK4_ENABLED
7421 0 : module procedure QAWC_GK31_IF_RK4
7422 : use pm_kind, only: RKC => RK4
7423 : #include "pm_quadPack@routines.inc.F90"
7424 : end procedure
7425 : #endif
7426 :
7427 : #if RK3_ENABLED
7428 0 : module procedure QAWC_GK31_IF_RK3
7429 : use pm_kind, only: RKC => RK3
7430 : #include "pm_quadPack@routines.inc.F90"
7431 : end procedure
7432 : #endif
7433 :
7434 : #if RK2_ENABLED
7435 0 : module procedure QAWC_GK31_IF_RK2
7436 : use pm_kind, only: RKC => RK2
7437 : #include "pm_quadPack@routines.inc.F90"
7438 : end procedure
7439 : #endif
7440 :
7441 : #if RK1_ENABLED
7442 0 : module procedure QAWC_GK31_IF_RK1
7443 : use pm_kind, only: RKC => RK1
7444 : #include "pm_quadPack@routines.inc.F90"
7445 : end procedure
7446 : #endif
7447 :
7448 : #undef RK_ENABLED
7449 :
7450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7451 :
7452 : #undef IF_ENABLED
7453 :
7454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7457 :
7458 : #define II_ENABLED 1
7459 :
7460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7461 :
7462 : #define RK_ENABLED 1
7463 :
7464 : #if RK5_ENABLED
7465 : module procedure QAWC_GK31_II_RK5
7466 : use pm_kind, only: RKC => RK5
7467 : #include "pm_quadPack@routines.inc.F90"
7468 : end procedure
7469 : #endif
7470 :
7471 : #if RK4_ENABLED
7472 0 : module procedure QAWC_GK31_II_RK4
7473 : use pm_kind, only: RKC => RK4
7474 : #include "pm_quadPack@routines.inc.F90"
7475 : end procedure
7476 : #endif
7477 :
7478 : #if RK3_ENABLED
7479 0 : module procedure QAWC_GK31_II_RK3
7480 : use pm_kind, only: RKC => RK3
7481 : #include "pm_quadPack@routines.inc.F90"
7482 : end procedure
7483 : #endif
7484 :
7485 : #if RK2_ENABLED
7486 0 : module procedure QAWC_GK31_II_RK2
7487 : use pm_kind, only: RKC => RK2
7488 : #include "pm_quadPack@routines.inc.F90"
7489 : end procedure
7490 : #endif
7491 :
7492 : #if RK1_ENABLED
7493 0 : module procedure QAWC_GK31_II_RK1
7494 : use pm_kind, only: RKC => RK1
7495 : #include "pm_quadPack@routines.inc.F90"
7496 : end procedure
7497 : #endif
7498 :
7499 : #undef RK_ENABLED
7500 :
7501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7502 :
7503 : #undef II_ENABLED
7504 :
7505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7508 :
7509 : #undef GK31_ENABLED
7510 :
7511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7514 :
7515 : #define GK41_ENABLED 1
7516 :
7517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7520 :
7521 : #define FF_ENABLED 1
7522 :
7523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7524 :
7525 : #define RK_ENABLED 1
7526 :
7527 : #if RK5_ENABLED
7528 : module procedure QAWC_GK41_FF_RK5
7529 : use pm_kind, only: RKC => RK5
7530 : #include "pm_quadPack@routines.inc.F90"
7531 : end procedure
7532 : #endif
7533 :
7534 : #if RK4_ENABLED
7535 4 : module procedure QAWC_GK41_FF_RK4
7536 : use pm_kind, only: RKC => RK4
7537 : #include "pm_quadPack@routines.inc.F90"
7538 : end procedure
7539 : #endif
7540 :
7541 : #if RK3_ENABLED
7542 0 : module procedure QAWC_GK41_FF_RK3
7543 : use pm_kind, only: RKC => RK3
7544 : #include "pm_quadPack@routines.inc.F90"
7545 : end procedure
7546 : #endif
7547 :
7548 : #if RK2_ENABLED
7549 0 : module procedure QAWC_GK41_FF_RK2
7550 : use pm_kind, only: RKC => RK2
7551 : #include "pm_quadPack@routines.inc.F90"
7552 : end procedure
7553 : #endif
7554 :
7555 : #if RK1_ENABLED
7556 0 : module procedure QAWC_GK41_FF_RK1
7557 : use pm_kind, only: RKC => RK1
7558 : #include "pm_quadPack@routines.inc.F90"
7559 : end procedure
7560 : #endif
7561 :
7562 : #undef RK_ENABLED
7563 :
7564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7565 :
7566 : #undef FF_ENABLED
7567 :
7568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7571 :
7572 : #define FI_ENABLED 1
7573 :
7574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7575 :
7576 : #define RK_ENABLED 1
7577 :
7578 : #if RK5_ENABLED
7579 : module procedure QAWC_GK41_FI_RK5
7580 : use pm_kind, only: RKC => RK5
7581 : #include "pm_quadPack@routines.inc.F90"
7582 : end procedure
7583 : #endif
7584 :
7585 : #if RK4_ENABLED
7586 0 : module procedure QAWC_GK41_FI_RK4
7587 : use pm_kind, only: RKC => RK4
7588 : #include "pm_quadPack@routines.inc.F90"
7589 : end procedure
7590 : #endif
7591 :
7592 : #if RK3_ENABLED
7593 0 : module procedure QAWC_GK41_FI_RK3
7594 : use pm_kind, only: RKC => RK3
7595 : #include "pm_quadPack@routines.inc.F90"
7596 : end procedure
7597 : #endif
7598 :
7599 : #if RK2_ENABLED
7600 0 : module procedure QAWC_GK41_FI_RK2
7601 : use pm_kind, only: RKC => RK2
7602 : #include "pm_quadPack@routines.inc.F90"
7603 : end procedure
7604 : #endif
7605 :
7606 : #if RK1_ENABLED
7607 0 : module procedure QAWC_GK41_FI_RK1
7608 : use pm_kind, only: RKC => RK1
7609 : #include "pm_quadPack@routines.inc.F90"
7610 : end procedure
7611 : #endif
7612 :
7613 : #undef RK_ENABLED
7614 :
7615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7616 :
7617 : #undef FI_ENABLED
7618 :
7619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7622 :
7623 : #define IF_ENABLED 1
7624 :
7625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7626 :
7627 : #define RK_ENABLED 1
7628 :
7629 : #if RK5_ENABLED
7630 : module procedure QAWC_GK41_IF_RK5
7631 : use pm_kind, only: RKC => RK5
7632 : #include "pm_quadPack@routines.inc.F90"
7633 : end procedure
7634 : #endif
7635 :
7636 : #if RK4_ENABLED
7637 0 : module procedure QAWC_GK41_IF_RK4
7638 : use pm_kind, only: RKC => RK4
7639 : #include "pm_quadPack@routines.inc.F90"
7640 : end procedure
7641 : #endif
7642 :
7643 : #if RK3_ENABLED
7644 0 : module procedure QAWC_GK41_IF_RK3
7645 : use pm_kind, only: RKC => RK3
7646 : #include "pm_quadPack@routines.inc.F90"
7647 : end procedure
7648 : #endif
7649 :
7650 : #if RK2_ENABLED
7651 0 : module procedure QAWC_GK41_IF_RK2
7652 : use pm_kind, only: RKC => RK2
7653 : #include "pm_quadPack@routines.inc.F90"
7654 : end procedure
7655 : #endif
7656 :
7657 : #if RK1_ENABLED
7658 0 : module procedure QAWC_GK41_IF_RK1
7659 : use pm_kind, only: RKC => RK1
7660 : #include "pm_quadPack@routines.inc.F90"
7661 : end procedure
7662 : #endif
7663 :
7664 : #undef RK_ENABLED
7665 :
7666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7667 :
7668 : #undef IF_ENABLED
7669 :
7670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7673 :
7674 : #define II_ENABLED 1
7675 :
7676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7677 :
7678 : #define RK_ENABLED 1
7679 :
7680 : #if RK5_ENABLED
7681 : module procedure QAWC_GK41_II_RK5
7682 : use pm_kind, only: RKC => RK5
7683 : #include "pm_quadPack@routines.inc.F90"
7684 : end procedure
7685 : #endif
7686 :
7687 : #if RK4_ENABLED
7688 0 : module procedure QAWC_GK41_II_RK4
7689 : use pm_kind, only: RKC => RK4
7690 : #include "pm_quadPack@routines.inc.F90"
7691 : end procedure
7692 : #endif
7693 :
7694 : #if RK3_ENABLED
7695 0 : module procedure QAWC_GK41_II_RK3
7696 : use pm_kind, only: RKC => RK3
7697 : #include "pm_quadPack@routines.inc.F90"
7698 : end procedure
7699 : #endif
7700 :
7701 : #if RK2_ENABLED
7702 0 : module procedure QAWC_GK41_II_RK2
7703 : use pm_kind, only: RKC => RK2
7704 : #include "pm_quadPack@routines.inc.F90"
7705 : end procedure
7706 : #endif
7707 :
7708 : #if RK1_ENABLED
7709 0 : module procedure QAWC_GK41_II_RK1
7710 : use pm_kind, only: RKC => RK1
7711 : #include "pm_quadPack@routines.inc.F90"
7712 : end procedure
7713 : #endif
7714 :
7715 : #undef RK_ENABLED
7716 :
7717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7718 :
7719 : #undef II_ENABLED
7720 :
7721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7724 :
7725 : #undef GK41_ENABLED
7726 :
7727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7730 :
7731 : #define GK51_ENABLED 1
7732 :
7733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7736 :
7737 : #define FF_ENABLED 1
7738 :
7739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7740 :
7741 : #define RK_ENABLED 1
7742 :
7743 : #if RK5_ENABLED
7744 : module procedure QAWC_GK51_FF_RK5
7745 : use pm_kind, only: RKC => RK5
7746 : #include "pm_quadPack@routines.inc.F90"
7747 : end procedure
7748 : #endif
7749 :
7750 : #if RK4_ENABLED
7751 4 : module procedure QAWC_GK51_FF_RK4
7752 : use pm_kind, only: RKC => RK4
7753 : #include "pm_quadPack@routines.inc.F90"
7754 : end procedure
7755 : #endif
7756 :
7757 : #if RK3_ENABLED
7758 0 : module procedure QAWC_GK51_FF_RK3
7759 : use pm_kind, only: RKC => RK3
7760 : #include "pm_quadPack@routines.inc.F90"
7761 : end procedure
7762 : #endif
7763 :
7764 : #if RK2_ENABLED
7765 0 : module procedure QAWC_GK51_FF_RK2
7766 : use pm_kind, only: RKC => RK2
7767 : #include "pm_quadPack@routines.inc.F90"
7768 : end procedure
7769 : #endif
7770 :
7771 : #if RK1_ENABLED
7772 0 : module procedure QAWC_GK51_FF_RK1
7773 : use pm_kind, only: RKC => RK1
7774 : #include "pm_quadPack@routines.inc.F90"
7775 : end procedure
7776 : #endif
7777 :
7778 : #undef RK_ENABLED
7779 :
7780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7781 :
7782 : #undef FF_ENABLED
7783 :
7784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7787 :
7788 : #define FI_ENABLED 1
7789 :
7790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7791 :
7792 : #define RK_ENABLED 1
7793 :
7794 : #if RK5_ENABLED
7795 : module procedure QAWC_GK51_FI_RK5
7796 : use pm_kind, only: RKC => RK5
7797 : #include "pm_quadPack@routines.inc.F90"
7798 : end procedure
7799 : #endif
7800 :
7801 : #if RK4_ENABLED
7802 0 : module procedure QAWC_GK51_FI_RK4
7803 : use pm_kind, only: RKC => RK4
7804 : #include "pm_quadPack@routines.inc.F90"
7805 : end procedure
7806 : #endif
7807 :
7808 : #if RK3_ENABLED
7809 0 : module procedure QAWC_GK51_FI_RK3
7810 : use pm_kind, only: RKC => RK3
7811 : #include "pm_quadPack@routines.inc.F90"
7812 : end procedure
7813 : #endif
7814 :
7815 : #if RK2_ENABLED
7816 0 : module procedure QAWC_GK51_FI_RK2
7817 : use pm_kind, only: RKC => RK2
7818 : #include "pm_quadPack@routines.inc.F90"
7819 : end procedure
7820 : #endif
7821 :
7822 : #if RK1_ENABLED
7823 0 : module procedure QAWC_GK51_FI_RK1
7824 : use pm_kind, only: RKC => RK1
7825 : #include "pm_quadPack@routines.inc.F90"
7826 : end procedure
7827 : #endif
7828 :
7829 : #undef RK_ENABLED
7830 :
7831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7832 :
7833 : #undef FI_ENABLED
7834 :
7835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7836 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7838 :
7839 : #define IF_ENABLED 1
7840 :
7841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7842 :
7843 : #define RK_ENABLED 1
7844 :
7845 : #if RK5_ENABLED
7846 : module procedure QAWC_GK51_IF_RK5
7847 : use pm_kind, only: RKC => RK5
7848 : #include "pm_quadPack@routines.inc.F90"
7849 : end procedure
7850 : #endif
7851 :
7852 : #if RK4_ENABLED
7853 0 : module procedure QAWC_GK51_IF_RK4
7854 : use pm_kind, only: RKC => RK4
7855 : #include "pm_quadPack@routines.inc.F90"
7856 : end procedure
7857 : #endif
7858 :
7859 : #if RK3_ENABLED
7860 0 : module procedure QAWC_GK51_IF_RK3
7861 : use pm_kind, only: RKC => RK3
7862 : #include "pm_quadPack@routines.inc.F90"
7863 : end procedure
7864 : #endif
7865 :
7866 : #if RK2_ENABLED
7867 0 : module procedure QAWC_GK51_IF_RK2
7868 : use pm_kind, only: RKC => RK2
7869 : #include "pm_quadPack@routines.inc.F90"
7870 : end procedure
7871 : #endif
7872 :
7873 : #if RK1_ENABLED
7874 0 : module procedure QAWC_GK51_IF_RK1
7875 : use pm_kind, only: RKC => RK1
7876 : #include "pm_quadPack@routines.inc.F90"
7877 : end procedure
7878 : #endif
7879 :
7880 : #undef RK_ENABLED
7881 :
7882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7883 :
7884 : #undef IF_ENABLED
7885 :
7886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7889 :
7890 : #define II_ENABLED 1
7891 :
7892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7893 :
7894 : #define RK_ENABLED 1
7895 :
7896 : #if RK5_ENABLED
7897 : module procedure QAWC_GK51_II_RK5
7898 : use pm_kind, only: RKC => RK5
7899 : #include "pm_quadPack@routines.inc.F90"
7900 : end procedure
7901 : #endif
7902 :
7903 : #if RK4_ENABLED
7904 0 : module procedure QAWC_GK51_II_RK4
7905 : use pm_kind, only: RKC => RK4
7906 : #include "pm_quadPack@routines.inc.F90"
7907 : end procedure
7908 : #endif
7909 :
7910 : #if RK3_ENABLED
7911 0 : module procedure QAWC_GK51_II_RK3
7912 : use pm_kind, only: RKC => RK3
7913 : #include "pm_quadPack@routines.inc.F90"
7914 : end procedure
7915 : #endif
7916 :
7917 : #if RK2_ENABLED
7918 0 : module procedure QAWC_GK51_II_RK2
7919 : use pm_kind, only: RKC => RK2
7920 : #include "pm_quadPack@routines.inc.F90"
7921 : end procedure
7922 : #endif
7923 :
7924 : #if RK1_ENABLED
7925 0 : module procedure QAWC_GK51_II_RK1
7926 : use pm_kind, only: RKC => RK1
7927 : #include "pm_quadPack@routines.inc.F90"
7928 : end procedure
7929 : #endif
7930 :
7931 : #undef RK_ENABLED
7932 :
7933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7934 :
7935 : #undef II_ENABLED
7936 :
7937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7940 :
7941 : #undef GK51_ENABLED
7942 :
7943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7946 :
7947 : #define GK61_ENABLED 1
7948 :
7949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7952 :
7953 : #define FF_ENABLED 1
7954 :
7955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7956 :
7957 : #define RK_ENABLED 1
7958 :
7959 : #if RK5_ENABLED
7960 : module procedure QAWC_GK61_FF_RK5
7961 : use pm_kind, only: RKC => RK5
7962 : #include "pm_quadPack@routines.inc.F90"
7963 : end procedure
7964 : #endif
7965 :
7966 : #if RK4_ENABLED
7967 4 : module procedure QAWC_GK61_FF_RK4
7968 : use pm_kind, only: RKC => RK4
7969 : #include "pm_quadPack@routines.inc.F90"
7970 : end procedure
7971 : #endif
7972 :
7973 : #if RK3_ENABLED
7974 0 : module procedure QAWC_GK61_FF_RK3
7975 : use pm_kind, only: RKC => RK3
7976 : #include "pm_quadPack@routines.inc.F90"
7977 : end procedure
7978 : #endif
7979 :
7980 : #if RK2_ENABLED
7981 0 : module procedure QAWC_GK61_FF_RK2
7982 : use pm_kind, only: RKC => RK2
7983 : #include "pm_quadPack@routines.inc.F90"
7984 : end procedure
7985 : #endif
7986 :
7987 : #if RK1_ENABLED
7988 0 : module procedure QAWC_GK61_FF_RK1
7989 : use pm_kind, only: RKC => RK1
7990 : #include "pm_quadPack@routines.inc.F90"
7991 : end procedure
7992 : #endif
7993 :
7994 : #undef RK_ENABLED
7995 :
7996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7997 :
7998 : #undef FF_ENABLED
7999 :
8000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8003 :
8004 : #define FI_ENABLED 1
8005 :
8006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8007 :
8008 : #define RK_ENABLED 1
8009 :
8010 : #if RK5_ENABLED
8011 : module procedure QAWC_GK61_FI_RK5
8012 : use pm_kind, only: RKC => RK5
8013 : #include "pm_quadPack@routines.inc.F90"
8014 : end procedure
8015 : #endif
8016 :
8017 : #if RK4_ENABLED
8018 0 : module procedure QAWC_GK61_FI_RK4
8019 : use pm_kind, only: RKC => RK4
8020 : #include "pm_quadPack@routines.inc.F90"
8021 : end procedure
8022 : #endif
8023 :
8024 : #if RK3_ENABLED
8025 0 : module procedure QAWC_GK61_FI_RK3
8026 : use pm_kind, only: RKC => RK3
8027 : #include "pm_quadPack@routines.inc.F90"
8028 : end procedure
8029 : #endif
8030 :
8031 : #if RK2_ENABLED
8032 0 : module procedure QAWC_GK61_FI_RK2
8033 : use pm_kind, only: RKC => RK2
8034 : #include "pm_quadPack@routines.inc.F90"
8035 : end procedure
8036 : #endif
8037 :
8038 : #if RK1_ENABLED
8039 0 : module procedure QAWC_GK61_FI_RK1
8040 : use pm_kind, only: RKC => RK1
8041 : #include "pm_quadPack@routines.inc.F90"
8042 : end procedure
8043 : #endif
8044 :
8045 : #undef RK_ENABLED
8046 :
8047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8048 :
8049 : #undef FI_ENABLED
8050 :
8051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8054 :
8055 : #define IF_ENABLED 1
8056 :
8057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8058 :
8059 : #define RK_ENABLED 1
8060 :
8061 : #if RK5_ENABLED
8062 : module procedure QAWC_GK61_IF_RK5
8063 : use pm_kind, only: RKC => RK5
8064 : #include "pm_quadPack@routines.inc.F90"
8065 : end procedure
8066 : #endif
8067 :
8068 : #if RK4_ENABLED
8069 0 : module procedure QAWC_GK61_IF_RK4
8070 : use pm_kind, only: RKC => RK4
8071 : #include "pm_quadPack@routines.inc.F90"
8072 : end procedure
8073 : #endif
8074 :
8075 : #if RK3_ENABLED
8076 0 : module procedure QAWC_GK61_IF_RK3
8077 : use pm_kind, only: RKC => RK3
8078 : #include "pm_quadPack@routines.inc.F90"
8079 : end procedure
8080 : #endif
8081 :
8082 : #if RK2_ENABLED
8083 0 : module procedure QAWC_GK61_IF_RK2
8084 : use pm_kind, only: RKC => RK2
8085 : #include "pm_quadPack@routines.inc.F90"
8086 : end procedure
8087 : #endif
8088 :
8089 : #if RK1_ENABLED
8090 0 : module procedure QAWC_GK61_IF_RK1
8091 : use pm_kind, only: RKC => RK1
8092 : #include "pm_quadPack@routines.inc.F90"
8093 : end procedure
8094 : #endif
8095 :
8096 : #undef RK_ENABLED
8097 :
8098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8099 :
8100 : #undef IF_ENABLED
8101 :
8102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8105 :
8106 : #define II_ENABLED 1
8107 :
8108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8109 :
8110 : #define RK_ENABLED 1
8111 :
8112 : #if RK5_ENABLED
8113 : module procedure QAWC_GK61_II_RK5
8114 : use pm_kind, only: RKC => RK5
8115 : #include "pm_quadPack@routines.inc.F90"
8116 : end procedure
8117 : #endif
8118 :
8119 : #if RK4_ENABLED
8120 0 : module procedure QAWC_GK61_II_RK4
8121 : use pm_kind, only: RKC => RK4
8122 : #include "pm_quadPack@routines.inc.F90"
8123 : end procedure
8124 : #endif
8125 :
8126 : #if RK3_ENABLED
8127 0 : module procedure QAWC_GK61_II_RK3
8128 : use pm_kind, only: RKC => RK3
8129 : #include "pm_quadPack@routines.inc.F90"
8130 : end procedure
8131 : #endif
8132 :
8133 : #if RK2_ENABLED
8134 0 : module procedure QAWC_GK61_II_RK2
8135 : use pm_kind, only: RKC => RK2
8136 : #include "pm_quadPack@routines.inc.F90"
8137 : end procedure
8138 : #endif
8139 :
8140 : #if RK1_ENABLED
8141 0 : module procedure QAWC_GK61_II_RK1
8142 : use pm_kind, only: RKC => RK1
8143 : #include "pm_quadPack@routines.inc.F90"
8144 : end procedure
8145 : #endif
8146 :
8147 : #undef RK_ENABLED
8148 :
8149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8150 :
8151 : #undef II_ENABLED
8152 :
8153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8156 :
8157 : #undef GK61_ENABLED
8158 :
8159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8162 :
8163 : #define GKXX_ENABLED 1
8164 :
8165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8168 :
8169 : #define FF_ENABLED 1
8170 :
8171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8172 :
8173 : #define RK_ENABLED 1
8174 :
8175 : #if RK5_ENABLED
8176 : module procedure QAWC_GKXX_FF_RK5
8177 : use pm_kind, only: RKC => RK5
8178 : #include "pm_quadPack@routines.inc.F90"
8179 : end procedure
8180 : #endif
8181 :
8182 : #if RK4_ENABLED
8183 4 : module procedure QAWC_GKXX_FF_RK4
8184 : use pm_kind, only: RKC => RK4
8185 : #include "pm_quadPack@routines.inc.F90"
8186 : end procedure
8187 : #endif
8188 :
8189 : #if RK3_ENABLED
8190 0 : module procedure QAWC_GKXX_FF_RK3
8191 : use pm_kind, only: RKC => RK3
8192 : #include "pm_quadPack@routines.inc.F90"
8193 : end procedure
8194 : #endif
8195 :
8196 : #if RK2_ENABLED
8197 0 : module procedure QAWC_GKXX_FF_RK2
8198 : use pm_kind, only: RKC => RK2
8199 : #include "pm_quadPack@routines.inc.F90"
8200 : end procedure
8201 : #endif
8202 :
8203 : #if RK1_ENABLED
8204 0 : module procedure QAWC_GKXX_FF_RK1
8205 : use pm_kind, only: RKC => RK1
8206 : #include "pm_quadPack@routines.inc.F90"
8207 : end procedure
8208 : #endif
8209 :
8210 : #undef RK_ENABLED
8211 :
8212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8213 :
8214 : #undef FF_ENABLED
8215 :
8216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8219 :
8220 : #define FI_ENABLED 1
8221 :
8222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8223 :
8224 : #define RK_ENABLED 1
8225 :
8226 : #if RK5_ENABLED
8227 : module procedure QAWC_GKXX_FI_RK5
8228 : use pm_kind, only: RKC => RK5
8229 : #include "pm_quadPack@routines.inc.F90"
8230 : end procedure
8231 : #endif
8232 :
8233 : #if RK4_ENABLED
8234 0 : module procedure QAWC_GKXX_FI_RK4
8235 : use pm_kind, only: RKC => RK4
8236 : #include "pm_quadPack@routines.inc.F90"
8237 : end procedure
8238 : #endif
8239 :
8240 : #if RK3_ENABLED
8241 0 : module procedure QAWC_GKXX_FI_RK3
8242 : use pm_kind, only: RKC => RK3
8243 : #include "pm_quadPack@routines.inc.F90"
8244 : end procedure
8245 : #endif
8246 :
8247 : #if RK2_ENABLED
8248 0 : module procedure QAWC_GKXX_FI_RK2
8249 : use pm_kind, only: RKC => RK2
8250 : #include "pm_quadPack@routines.inc.F90"
8251 : end procedure
8252 : #endif
8253 :
8254 : #if RK1_ENABLED
8255 0 : module procedure QAWC_GKXX_FI_RK1
8256 : use pm_kind, only: RKC => RK1
8257 : #include "pm_quadPack@routines.inc.F90"
8258 : end procedure
8259 : #endif
8260 :
8261 : #undef RK_ENABLED
8262 :
8263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8264 :
8265 : #undef FI_ENABLED
8266 :
8267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8270 :
8271 : #define IF_ENABLED 1
8272 :
8273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8274 :
8275 : #define RK_ENABLED 1
8276 :
8277 : #if RK5_ENABLED
8278 : module procedure QAWC_GKXX_IF_RK5
8279 : use pm_kind, only: RKC => RK5
8280 : #include "pm_quadPack@routines.inc.F90"
8281 : end procedure
8282 : #endif
8283 :
8284 : #if RK4_ENABLED
8285 0 : module procedure QAWC_GKXX_IF_RK4
8286 : use pm_kind, only: RKC => RK4
8287 : #include "pm_quadPack@routines.inc.F90"
8288 : end procedure
8289 : #endif
8290 :
8291 : #if RK3_ENABLED
8292 0 : module procedure QAWC_GKXX_IF_RK3
8293 : use pm_kind, only: RKC => RK3
8294 : #include "pm_quadPack@routines.inc.F90"
8295 : end procedure
8296 : #endif
8297 :
8298 : #if RK2_ENABLED
8299 0 : module procedure QAWC_GKXX_IF_RK2
8300 : use pm_kind, only: RKC => RK2
8301 : #include "pm_quadPack@routines.inc.F90"
8302 : end procedure
8303 : #endif
8304 :
8305 : #if RK1_ENABLED
8306 0 : module procedure QAWC_GKXX_IF_RK1
8307 : use pm_kind, only: RKC => RK1
8308 : #include "pm_quadPack@routines.inc.F90"
8309 : end procedure
8310 : #endif
8311 :
8312 : #undef RK_ENABLED
8313 :
8314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8315 :
8316 : #undef IF_ENABLED
8317 :
8318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8321 :
8322 : #define II_ENABLED 1
8323 :
8324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8325 :
8326 : #define RK_ENABLED 1
8327 :
8328 : #if RK5_ENABLED
8329 : module procedure QAWC_GKXX_II_RK5
8330 : use pm_kind, only: RKC => RK5
8331 : #include "pm_quadPack@routines.inc.F90"
8332 : end procedure
8333 : #endif
8334 :
8335 : #if RK4_ENABLED
8336 0 : module procedure QAWC_GKXX_II_RK4
8337 : use pm_kind, only: RKC => RK4
8338 : #include "pm_quadPack@routines.inc.F90"
8339 : end procedure
8340 : #endif
8341 :
8342 : #if RK3_ENABLED
8343 0 : module procedure QAWC_GKXX_II_RK3
8344 : use pm_kind, only: RKC => RK3
8345 : #include "pm_quadPack@routines.inc.F90"
8346 : end procedure
8347 : #endif
8348 :
8349 : #if RK2_ENABLED
8350 0 : module procedure QAWC_GKXX_II_RK2
8351 : use pm_kind, only: RKC => RK2
8352 : #include "pm_quadPack@routines.inc.F90"
8353 : end procedure
8354 : #endif
8355 :
8356 : #if RK1_ENABLED
8357 0 : module procedure QAWC_GKXX_II_RK1
8358 : use pm_kind, only: RKC => RK1
8359 : #include "pm_quadPack@routines.inc.F90"
8360 : end procedure
8361 : #endif
8362 :
8363 : #undef RK_ENABLED
8364 :
8365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8366 :
8367 : #undef II_ENABLED
8368 :
8369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8372 :
8373 : #undef GKXX_ENABLED
8374 :
8375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8378 :
8379 : #undef QAWC_ENABLED
8380 :
8381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8384 :
8385 : #undef getQuadErr_ENABLED
8386 :
8387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8388 :
8389 : end submodule routines
|
