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_matrixChol](@ref pm_matrixChol).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_matrixChol) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 : use pm_matrixCopy, only: setMatCopy
39 : use pm_matrixInit, only: setMatInit
40 : use pm_matrixMulAdd, only: setMatMulAdd
41 : use pm_matrixSubset, only: uppDia, lowDia
42 : use pm_matrixClass, only: upperDiag, lowerDiag
43 : use pm_matrixTrans, only: transSymm, transHerm, transUnit
44 : use pm_matrixUpdate, only: setMatUpdate, hermitian, trans
45 : use pm_matrixMulTri, only: setMatMulTri
46 :
47 : implicit none
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : contains
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define setChoLow_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 :
59 : #define RK_ENABLED 1
60 :
61 : #if RK5_ENABLED
62 : module procedure setChoLow_RK5
63 : use pm_kind, only: TKC => RK5
64 : #include "pm_matrixChol@routines.inc.F90"
65 : end procedure
66 : #endif
67 :
68 : #if RK4_ENABLED
69 201 : module procedure setChoLow_RK4
70 : use pm_kind, only: TKC => RK4
71 : #include "pm_matrixChol@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if RK3_ENABLED
76 200 : module procedure setChoLow_RK3
77 : use pm_kind, only: TKC => RK3
78 : #include "pm_matrixChol@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #if RK2_ENABLED
83 201 : module procedure setChoLow_RK2
84 : use pm_kind, only: TKC => RK2
85 : #include "pm_matrixChol@routines.inc.F90"
86 : end procedure
87 : #endif
88 :
89 : #if RK1_ENABLED
90 201 : module procedure setChoLow_RK1
91 : use pm_kind, only: TKC => RK1
92 : #include "pm_matrixChol@routines.inc.F90"
93 : end procedure
94 : #endif
95 :
96 : #undef RK_ENABLED
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 :
100 : #undef setChoLow_ENABLED
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define getMatChol_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #define UXD_ENABLED 1
111 :
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 :
114 : #define CK_ENABLED 1
115 :
116 : #if CK5_ENABLED
117 : module procedure getMatChol_UXD_CK5
118 : use pm_kind, only: TKC => CK5
119 : #include "pm_matrixChol@routines.inc.F90"
120 : end procedure
121 : #endif
122 :
123 : #if CK4_ENABLED
124 300 : module procedure getMatChol_UXD_CK4
125 : use pm_kind, only: TKC => CK4
126 : #include "pm_matrixChol@routines.inc.F90"
127 300 : end procedure
128 : #endif
129 :
130 : #if CK3_ENABLED
131 300 : module procedure getMatChol_UXD_CK3
132 : use pm_kind, only: TKC => CK3
133 : #include "pm_matrixChol@routines.inc.F90"
134 300 : end procedure
135 : #endif
136 :
137 : #if CK2_ENABLED
138 300 : module procedure getMatChol_UXD_CK2
139 : use pm_kind, only: TKC => CK2
140 : #define DISPATCH_ENABLED 1
141 : #include "pm_matrixChol@routines.inc.F90"
142 : #undef DISPATCH_ENABLED
143 300 : end procedure
144 : #endif
145 :
146 : #if CK1_ENABLED
147 334 : module procedure getMatChol_UXD_CK1
148 : use pm_kind, only: TKC => CK1
149 : #define DISPATCH_ENABLED 1
150 : #include "pm_matrixChol@routines.inc.F90"
151 : #undef DISPATCH_ENABLED
152 334 : end procedure
153 : #endif
154 :
155 : #undef CK_ENABLED
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #define RK_ENABLED 1
160 :
161 : #if RK5_ENABLED
162 : module procedure getMatChol_UXD_RK5
163 : use pm_kind, only: TKC => RK5
164 : #include "pm_matrixChol@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if RK4_ENABLED
169 300 : module procedure getMatChol_UXD_RK4
170 : use pm_kind, only: TKC => RK4
171 : #include "pm_matrixChol@routines.inc.F90"
172 300 : end procedure
173 : #endif
174 :
175 : #if RK3_ENABLED
176 300 : module procedure getMatChol_UXD_RK3
177 : use pm_kind, only: TKC => RK3
178 : #include "pm_matrixChol@routines.inc.F90"
179 300 : end procedure
180 : #endif
181 :
182 : #if RK2_ENABLED
183 300 : module procedure getMatChol_UXD_RK2
184 : use pm_kind, only: TKC => RK2
185 : #define DISPATCH_ENABLED 1
186 : #include "pm_matrixChol@routines.inc.F90"
187 : #undef DISPATCH_ENABLED
188 300 : end procedure
189 : #endif
190 :
191 : #if RK1_ENABLED
192 444 : module procedure getMatChol_UXD_RK1
193 : use pm_kind, only: TKC => RK1
194 : #define DISPATCH_ENABLED 1
195 : #include "pm_matrixChol@routines.inc.F90"
196 : #undef DISPATCH_ENABLED
197 444 : end procedure
198 : #endif
199 :
200 : #undef RK_ENABLED
201 :
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #undef UXD_ENABLED
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 :
210 : #define XLD_ENABLED 1
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #define CK_ENABLED 1
215 :
216 : #if CK5_ENABLED
217 : module procedure getMatChol_XLD_CK5
218 : use pm_kind, only: TKC => CK5
219 : #include "pm_matrixChol@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if CK4_ENABLED
224 300 : module procedure getMatChol_XLD_CK4
225 : use pm_kind, only: TKC => CK4
226 : #include "pm_matrixChol@routines.inc.F90"
227 300 : end procedure
228 : #endif
229 :
230 : #if CK3_ENABLED
231 300 : module procedure getMatChol_XLD_CK3
232 : use pm_kind, only: TKC => CK3
233 : #include "pm_matrixChol@routines.inc.F90"
234 300 : end procedure
235 : #endif
236 :
237 : #if CK2_ENABLED
238 300 : module procedure getMatChol_XLD_CK2
239 : use pm_kind, only: TKC => CK2
240 : #define DISPATCH_ENABLED 1
241 : #include "pm_matrixChol@routines.inc.F90"
242 : #undef DISPATCH_ENABLED
243 300 : end procedure
244 : #endif
245 :
246 : #if CK1_ENABLED
247 320 : module procedure getMatChol_XLD_CK1
248 : use pm_kind, only: TKC => CK1
249 : #define DISPATCH_ENABLED 1
250 : #include "pm_matrixChol@routines.inc.F90"
251 : #undef DISPATCH_ENABLED
252 320 : end procedure
253 : #endif
254 :
255 : #undef CK_ENABLED
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define RK_ENABLED 1
260 :
261 : #if RK5_ENABLED
262 : module procedure getMatChol_XLD_RK5
263 : use pm_kind, only: TKC => RK5
264 : #include "pm_matrixChol@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #if RK4_ENABLED
269 300 : module procedure getMatChol_XLD_RK4
270 : use pm_kind, only: TKC => RK4
271 : #include "pm_matrixChol@routines.inc.F90"
272 300 : end procedure
273 : #endif
274 :
275 : #if RK3_ENABLED
276 300 : module procedure getMatChol_XLD_RK3
277 : use pm_kind, only: TKC => RK3
278 : #include "pm_matrixChol@routines.inc.F90"
279 300 : end procedure
280 : #endif
281 :
282 : #if RK2_ENABLED
283 304 : module procedure getMatChol_XLD_RK2
284 : use pm_kind, only: TKC => RK2
285 : #define DISPATCH_ENABLED 1
286 : #include "pm_matrixChol@routines.inc.F90"
287 : #undef DISPATCH_ENABLED
288 304 : end procedure
289 : #endif
290 :
291 : #if RK1_ENABLED
292 439 : module procedure getMatChol_XLD_RK1
293 : use pm_kind, only: TKC => RK1
294 : #define DISPATCH_ENABLED 1
295 : #include "pm_matrixChol@routines.inc.F90"
296 : #undef DISPATCH_ENABLED
297 439 : end procedure
298 : #endif
299 :
300 : #undef RK_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : #undef XLD_ENABLED
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #undef getMatChol_ENABLED
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #define setMatChol_ENABLED 1
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #define IMP_ENABLED 1
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #define ONO_ENABLED 1
327 :
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #define AXX_ENABLED 1
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #define UXD_ENABLED 1
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 :
342 : #define CK_ENABLED 1
343 :
344 : #if CK5_ENABLED
345 : module procedure setMC_IMP_AXX_UXD_ONO_CK5
346 : use pm_kind, only: TKC => CK5
347 : #include "pm_matrixChol@routines.inc.F90"
348 : end procedure
349 : #endif
350 :
351 : #if CK4_ENABLED
352 100 : module procedure setMC_IMP_AXX_UXD_ONO_CK4
353 : use pm_kind, only: TKC => CK4
354 : #include "pm_matrixChol@routines.inc.F90"
355 100 : end procedure
356 : #endif
357 :
358 : #if CK3_ENABLED
359 100 : module procedure setMC_IMP_AXX_UXD_ONO_CK3
360 : use pm_kind, only: TKC => CK3
361 : #include "pm_matrixChol@routines.inc.F90"
362 100 : end procedure
363 : #endif
364 :
365 : #if CK2_ENABLED
366 100 : module procedure setMC_IMP_AXX_UXD_ONO_CK2
367 : use pm_kind, only: TKC => CK2
368 : #define DISPATCH_ENABLED 1
369 : #include "pm_matrixChol@routines.inc.F90"
370 : #undef DISPATCH_ENABLED
371 100 : end procedure
372 : #endif
373 :
374 : #if CK1_ENABLED
375 100 : module procedure setMC_IMP_AXX_UXD_ONO_CK1
376 : use pm_kind, only: TKC => CK1
377 : #define DISPATCH_ENABLED 1
378 : #include "pm_matrixChol@routines.inc.F90"
379 : #undef DISPATCH_ENABLED
380 100 : end procedure
381 : #endif
382 :
383 : #undef CK_ENABLED
384 :
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : #define RK_ENABLED 1
388 :
389 : #if RK5_ENABLED
390 : module procedure setMC_IMP_AXX_UXD_ONO_RK5
391 : use pm_kind, only: TKC => RK5
392 : #include "pm_matrixChol@routines.inc.F90"
393 : end procedure
394 : #endif
395 :
396 : #if RK4_ENABLED
397 100 : module procedure setMC_IMP_AXX_UXD_ONO_RK4
398 : use pm_kind, only: TKC => RK4
399 : #include "pm_matrixChol@routines.inc.F90"
400 100 : end procedure
401 : #endif
402 :
403 : #if RK3_ENABLED
404 100 : module procedure setMC_IMP_AXX_UXD_ONO_RK3
405 : use pm_kind, only: TKC => RK3
406 : #include "pm_matrixChol@routines.inc.F90"
407 100 : end procedure
408 : #endif
409 :
410 : #if RK2_ENABLED
411 100 : module procedure setMC_IMP_AXX_UXD_ONO_RK2
412 : use pm_kind, only: TKC => RK2
413 : #define DISPATCH_ENABLED 1
414 : #include "pm_matrixChol@routines.inc.F90"
415 : #undef DISPATCH_ENABLED
416 100 : end procedure
417 : #endif
418 :
419 : #if RK1_ENABLED
420 100 : module procedure setMC_IMP_AXX_UXD_ONO_RK1
421 : use pm_kind, only: TKC => RK1
422 : #define DISPATCH_ENABLED 1
423 : #include "pm_matrixChol@routines.inc.F90"
424 : #undef DISPATCH_ENABLED
425 100 : end procedure
426 : #endif
427 :
428 : #undef RK_ENABLED
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #undef UXD_ENABLED
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #define XLD_ENABLED 1
439 :
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 :
442 : #define CK_ENABLED 1
443 :
444 : #if CK5_ENABLED
445 : module procedure setMC_IMP_AXX_XLD_ONO_CK5
446 : use pm_kind, only: TKC => CK5
447 : #include "pm_matrixChol@routines.inc.F90"
448 : end procedure
449 : #endif
450 :
451 : #if CK4_ENABLED
452 100 : module procedure setMC_IMP_AXX_XLD_ONO_CK4
453 : use pm_kind, only: TKC => CK4
454 : #include "pm_matrixChol@routines.inc.F90"
455 100 : end procedure
456 : #endif
457 :
458 : #if CK3_ENABLED
459 100 : module procedure setMC_IMP_AXX_XLD_ONO_CK3
460 : use pm_kind, only: TKC => CK3
461 : #include "pm_matrixChol@routines.inc.F90"
462 100 : end procedure
463 : #endif
464 :
465 : #if CK2_ENABLED
466 100 : module procedure setMC_IMP_AXX_XLD_ONO_CK2
467 : use pm_kind, only: TKC => CK2
468 : #define DISPATCH_ENABLED 1
469 : #include "pm_matrixChol@routines.inc.F90"
470 : #undef DISPATCH_ENABLED
471 100 : end procedure
472 : #endif
473 :
474 : #if CK1_ENABLED
475 100 : module procedure setMC_IMP_AXX_XLD_ONO_CK1
476 : use pm_kind, only: TKC => CK1
477 : #define DISPATCH_ENABLED 1
478 : #include "pm_matrixChol@routines.inc.F90"
479 : #undef DISPATCH_ENABLED
480 100 : end procedure
481 : #endif
482 :
483 : #undef CK_ENABLED
484 :
485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 :
487 : #define RK_ENABLED 1
488 :
489 : #if RK5_ENABLED
490 : module procedure setMC_IMP_AXX_XLD_ONO_RK5
491 : use pm_kind, only: TKC => RK5
492 : #include "pm_matrixChol@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #if RK4_ENABLED
497 100 : module procedure setMC_IMP_AXX_XLD_ONO_RK4
498 : use pm_kind, only: TKC => RK4
499 : #include "pm_matrixChol@routines.inc.F90"
500 100 : end procedure
501 : #endif
502 :
503 : #if RK3_ENABLED
504 100 : module procedure setMC_IMP_AXX_XLD_ONO_RK3
505 : use pm_kind, only: TKC => RK3
506 : #include "pm_matrixChol@routines.inc.F90"
507 100 : end procedure
508 : #endif
509 :
510 : #if RK2_ENABLED
511 100 : module procedure setMC_IMP_AXX_XLD_ONO_RK2
512 : use pm_kind, only: TKC => RK2
513 : #define DISPATCH_ENABLED 1
514 : #include "pm_matrixChol@routines.inc.F90"
515 : #undef DISPATCH_ENABLED
516 100 : end procedure
517 : #endif
518 :
519 : #if RK1_ENABLED
520 100 : module procedure setMC_IMP_AXX_XLD_ONO_RK1
521 : use pm_kind, only: TKC => RK1
522 : #define DISPATCH_ENABLED 1
523 : #include "pm_matrixChol@routines.inc.F90"
524 : #undef DISPATCH_ENABLED
525 100 : end procedure
526 : #endif
527 :
528 : #undef RK_ENABLED
529 :
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #undef XLD_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 :
538 : #undef AXX_ENABLED
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #define ABI_ENABLED 1
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 :
550 : #define UXD_ENABLED 1
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 :
554 : #define CK_ENABLED 1
555 :
556 : #if CK5_ENABLED
557 : module procedure setMC_IMP_ABI_UXD_ONO_CK5
558 : use pm_kind, only: TKC => CK5
559 : #include "pm_matrixChol@routines.inc.F90"
560 : end procedure
561 : #endif
562 :
563 : #if CK4_ENABLED
564 500 : module procedure setMC_IMP_ABI_UXD_ONO_CK4
565 : use pm_kind, only: TKC => CK4
566 : #include "pm_matrixChol@routines.inc.F90"
567 : end procedure
568 : #endif
569 :
570 : #if CK3_ENABLED
571 500 : module procedure setMC_IMP_ABI_UXD_ONO_CK3
572 : use pm_kind, only: TKC => CK3
573 : #include "pm_matrixChol@routines.inc.F90"
574 : end procedure
575 : #endif
576 :
577 : #if CK2_ENABLED
578 500 : module procedure setMC_IMP_ABI_UXD_ONO_CK2
579 : use pm_kind, only: TKC => CK2
580 : #define DISPATCH_ENABLED 1
581 : #include "pm_matrixChol@routines.inc.F90"
582 : #undef DISPATCH_ENABLED
583 : end procedure
584 : #endif
585 :
586 : #if CK1_ENABLED
587 500 : module procedure setMC_IMP_ABI_UXD_ONO_CK1
588 : use pm_kind, only: TKC => CK1
589 : #define DISPATCH_ENABLED 1
590 : #include "pm_matrixChol@routines.inc.F90"
591 : #undef DISPATCH_ENABLED
592 : end procedure
593 : #endif
594 :
595 : #undef CK_ENABLED
596 :
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #define RK_ENABLED 1
600 :
601 : #if RK5_ENABLED
602 : module procedure setMC_IMP_ABI_UXD_ONO_RK5
603 : use pm_kind, only: TKC => RK5
604 : #include "pm_matrixChol@routines.inc.F90"
605 : end procedure
606 : #endif
607 :
608 : #if RK4_ENABLED
609 500 : module procedure setMC_IMP_ABI_UXD_ONO_RK4
610 : use pm_kind, only: TKC => RK4
611 : #include "pm_matrixChol@routines.inc.F90"
612 : end procedure
613 : #endif
614 :
615 : #if RK3_ENABLED
616 500 : module procedure setMC_IMP_ABI_UXD_ONO_RK3
617 : use pm_kind, only: TKC => RK3
618 : #include "pm_matrixChol@routines.inc.F90"
619 : end procedure
620 : #endif
621 :
622 : #if RK2_ENABLED
623 500 : module procedure setMC_IMP_ABI_UXD_ONO_RK2
624 : use pm_kind, only: TKC => RK2
625 : #define DISPATCH_ENABLED 1
626 : #include "pm_matrixChol@routines.inc.F90"
627 : #undef DISPATCH_ENABLED
628 : end procedure
629 : #endif
630 :
631 : #if RK1_ENABLED
632 500 : module procedure setMC_IMP_ABI_UXD_ONO_RK1
633 : use pm_kind, only: TKC => RK1
634 : #define DISPATCH_ENABLED 1
635 : #include "pm_matrixChol@routines.inc.F90"
636 : #undef DISPATCH_ENABLED
637 : end procedure
638 : #endif
639 :
640 : #undef RK_ENABLED
641 :
642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
643 :
644 : #undef UXD_ENABLED
645 :
646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : #define XLD_ENABLED 1
651 :
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 :
654 : #define CK_ENABLED 1
655 :
656 : #if CK5_ENABLED
657 : module procedure setMC_IMP_ABI_XLD_ONO_CK5
658 : use pm_kind, only: TKC => CK5
659 : #include "pm_matrixChol@routines.inc.F90"
660 : end procedure
661 : #endif
662 :
663 : #if CK4_ENABLED
664 500 : module procedure setMC_IMP_ABI_XLD_ONO_CK4
665 : use pm_kind, only: TKC => CK4
666 : #include "pm_matrixChol@routines.inc.F90"
667 : end procedure
668 : #endif
669 :
670 : #if CK3_ENABLED
671 500 : module procedure setMC_IMP_ABI_XLD_ONO_CK3
672 : use pm_kind, only: TKC => CK3
673 : #include "pm_matrixChol@routines.inc.F90"
674 : end procedure
675 : #endif
676 :
677 : #if CK2_ENABLED
678 500 : module procedure setMC_IMP_ABI_XLD_ONO_CK2
679 : use pm_kind, only: TKC => CK2
680 : #define DISPATCH_ENABLED 1
681 : #include "pm_matrixChol@routines.inc.F90"
682 : #undef DISPATCH_ENABLED
683 : end procedure
684 : #endif
685 :
686 : #if CK1_ENABLED
687 500 : module procedure setMC_IMP_ABI_XLD_ONO_CK1
688 : use pm_kind, only: TKC => CK1
689 : #define DISPATCH_ENABLED 1
690 : #include "pm_matrixChol@routines.inc.F90"
691 : #undef DISPATCH_ENABLED
692 : end procedure
693 : #endif
694 :
695 : #undef CK_ENABLED
696 :
697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
698 :
699 : #define RK_ENABLED 1
700 :
701 : #if RK5_ENABLED
702 : module procedure setMC_IMP_ABI_XLD_ONO_RK5
703 : use pm_kind, only: TKC => RK5
704 : #include "pm_matrixChol@routines.inc.F90"
705 : end procedure
706 : #endif
707 :
708 : #if RK4_ENABLED
709 500 : module procedure setMC_IMP_ABI_XLD_ONO_RK4
710 : use pm_kind, only: TKC => RK4
711 : #include "pm_matrixChol@routines.inc.F90"
712 : end procedure
713 : #endif
714 :
715 : #if RK3_ENABLED
716 500 : module procedure setMC_IMP_ABI_XLD_ONO_RK3
717 : use pm_kind, only: TKC => RK3
718 : #include "pm_matrixChol@routines.inc.F90"
719 : end procedure
720 : #endif
721 :
722 : #if RK2_ENABLED
723 500 : module procedure setMC_IMP_ABI_XLD_ONO_RK2
724 : use pm_kind, only: TKC => RK2
725 : #define DISPATCH_ENABLED 1
726 : #include "pm_matrixChol@routines.inc.F90"
727 : #undef DISPATCH_ENABLED
728 : end procedure
729 : #endif
730 :
731 : #if RK1_ENABLED
732 500 : module procedure setMC_IMP_ABI_XLD_ONO_RK1
733 : use pm_kind, only: TKC => RK1
734 : #define DISPATCH_ENABLED 1
735 : #include "pm_matrixChol@routines.inc.F90"
736 : #undef DISPATCH_ENABLED
737 : end procedure
738 : #endif
739 :
740 : #undef RK_ENABLED
741 :
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 :
744 : #undef XLD_ENABLED
745 :
746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : #undef ABI_ENABLED
751 :
752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 :
756 : #define ABR_ENABLED 1
757 :
758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 :
762 : #define UXD_ENABLED 1
763 :
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 :
766 : #define CK_ENABLED 1
767 :
768 : #if CK5_ENABLED
769 : module procedure setMC_IMP_ABR_UXD_ONO_CK5
770 : use pm_kind, only: TKC => CK5
771 : #include "pm_matrixChol@routines.inc.F90"
772 : end procedure
773 : #endif
774 :
775 : #if CK4_ENABLED
776 200 : module procedure setMC_IMP_ABR_UXD_ONO_CK4
777 : use pm_kind, only: TKC => CK4
778 : #include "pm_matrixChol@routines.inc.F90"
779 : end procedure
780 : #endif
781 :
782 : #if CK3_ENABLED
783 200 : module procedure setMC_IMP_ABR_UXD_ONO_CK3
784 : use pm_kind, only: TKC => CK3
785 : #include "pm_matrixChol@routines.inc.F90"
786 : end procedure
787 : #endif
788 :
789 : #if CK2_ENABLED
790 200 : module procedure setMC_IMP_ABR_UXD_ONO_CK2
791 : use pm_kind, only: TKC => CK2
792 : #define DISPATCH_ENABLED 1
793 : #include "pm_matrixChol@routines.inc.F90"
794 : #undef DISPATCH_ENABLED
795 : end procedure
796 : #endif
797 :
798 : #if CK1_ENABLED
799 200 : module procedure setMC_IMP_ABR_UXD_ONO_CK1
800 : use pm_kind, only: TKC => CK1
801 : #define DISPATCH_ENABLED 1
802 : #include "pm_matrixChol@routines.inc.F90"
803 : #undef DISPATCH_ENABLED
804 : end procedure
805 : #endif
806 :
807 : #undef CK_ENABLED
808 :
809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
810 :
811 : #define RK_ENABLED 1
812 :
813 : #if RK5_ENABLED
814 : module procedure setMC_IMP_ABR_UXD_ONO_RK5
815 : use pm_kind, only: TKC => RK5
816 : #include "pm_matrixChol@routines.inc.F90"
817 : end procedure
818 : #endif
819 :
820 : #if RK4_ENABLED
821 200 : module procedure setMC_IMP_ABR_UXD_ONO_RK4
822 : use pm_kind, only: TKC => RK4
823 : #include "pm_matrixChol@routines.inc.F90"
824 : end procedure
825 : #endif
826 :
827 : #if RK3_ENABLED
828 200 : module procedure setMC_IMP_ABR_UXD_ONO_RK3
829 : use pm_kind, only: TKC => RK3
830 : #include "pm_matrixChol@routines.inc.F90"
831 : end procedure
832 : #endif
833 :
834 : #if RK2_ENABLED
835 200 : module procedure setMC_IMP_ABR_UXD_ONO_RK2
836 : use pm_kind, only: TKC => RK2
837 : #define DISPATCH_ENABLED 1
838 : #include "pm_matrixChol@routines.inc.F90"
839 : #undef DISPATCH_ENABLED
840 : end procedure
841 : #endif
842 :
843 : #if RK1_ENABLED
844 200 : module procedure setMC_IMP_ABR_UXD_ONO_RK1
845 : use pm_kind, only: TKC => RK1
846 : #define DISPATCH_ENABLED 1
847 : #include "pm_matrixChol@routines.inc.F90"
848 : #undef DISPATCH_ENABLED
849 : end procedure
850 : #endif
851 :
852 : #undef RK_ENABLED
853 :
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 :
856 : #undef UXD_ENABLED
857 :
858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861 :
862 : #define XLD_ENABLED 1
863 :
864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865 :
866 : #define CK_ENABLED 1
867 :
868 : #if CK5_ENABLED
869 : module procedure setMC_IMP_ABR_XLD_ONO_CK5
870 : use pm_kind, only: TKC => CK5
871 : #include "pm_matrixChol@routines.inc.F90"
872 : end procedure
873 : #endif
874 :
875 : #if CK4_ENABLED
876 200 : module procedure setMC_IMP_ABR_XLD_ONO_CK4
877 : use pm_kind, only: TKC => CK4
878 : #include "pm_matrixChol@routines.inc.F90"
879 : end procedure
880 : #endif
881 :
882 : #if CK3_ENABLED
883 200 : module procedure setMC_IMP_ABR_XLD_ONO_CK3
884 : use pm_kind, only: TKC => CK3
885 : #include "pm_matrixChol@routines.inc.F90"
886 : end procedure
887 : #endif
888 :
889 : #if CK2_ENABLED
890 200 : module procedure setMC_IMP_ABR_XLD_ONO_CK2
891 : use pm_kind, only: TKC => CK2
892 : #define DISPATCH_ENABLED 1
893 : #include "pm_matrixChol@routines.inc.F90"
894 : #undef DISPATCH_ENABLED
895 : end procedure
896 : #endif
897 :
898 : #if CK1_ENABLED
899 200 : module procedure setMC_IMP_ABR_XLD_ONO_CK1
900 : use pm_kind, only: TKC => CK1
901 : #define DISPATCH_ENABLED 1
902 : #include "pm_matrixChol@routines.inc.F90"
903 : #undef DISPATCH_ENABLED
904 : end procedure
905 : #endif
906 :
907 : #undef CK_ENABLED
908 :
909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
910 :
911 : #define RK_ENABLED 1
912 :
913 : #if RK5_ENABLED
914 : module procedure setMC_IMP_ABR_XLD_ONO_RK5
915 : use pm_kind, only: TKC => RK5
916 : #include "pm_matrixChol@routines.inc.F90"
917 : end procedure
918 : #endif
919 :
920 : #if RK4_ENABLED
921 200 : module procedure setMC_IMP_ABR_XLD_ONO_RK4
922 : use pm_kind, only: TKC => RK4
923 : #include "pm_matrixChol@routines.inc.F90"
924 : end procedure
925 : #endif
926 :
927 : #if RK3_ENABLED
928 200 : module procedure setMC_IMP_ABR_XLD_ONO_RK3
929 : use pm_kind, only: TKC => RK3
930 : #include "pm_matrixChol@routines.inc.F90"
931 : end procedure
932 : #endif
933 :
934 : #if RK2_ENABLED
935 200 : module procedure setMC_IMP_ABR_XLD_ONO_RK2
936 : use pm_kind, only: TKC => RK2
937 : #define DISPATCH_ENABLED 1
938 : #include "pm_matrixChol@routines.inc.F90"
939 : #undef DISPATCH_ENABLED
940 : end procedure
941 : #endif
942 :
943 : #if RK1_ENABLED
944 200 : module procedure setMC_IMP_ABR_XLD_ONO_RK1
945 : use pm_kind, only: TKC => RK1
946 : #define DISPATCH_ENABLED 1
947 : #include "pm_matrixChol@routines.inc.F90"
948 : #undef DISPATCH_ENABLED
949 : end procedure
950 : #endif
951 :
952 : #undef RK_ENABLED
953 :
954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 :
956 : #undef XLD_ENABLED
957 :
958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
961 :
962 : #undef ABR_ENABLED
963 :
964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967 :
968 : #undef ONO_ENABLED
969 :
970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #undef IMP_ENABLED
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
979 :
980 : #undef setMatChol_ENABLED
981 :
982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
983 :
984 : #define setMatChol_ENABLED 1
985 :
986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989 :
990 : #define IMP_ENABLED 1
991 :
992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 :
996 : #define ANI_ENABLED 1
997 :
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 :
1002 : #define ONO_ENABLED 1
1003 :
1004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #define UXD_ENABLED 1
1009 :
1010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011 :
1012 : #define CK_ENABLED 1
1013 :
1014 : #if CK5_ENABLED
1015 : module procedure setMC_IMP_ANI_UXD_ONO_CK5
1016 : use pm_kind, only: TKC => CK5
1017 : #include "pm_matrixChol@routines.inc.F90"
1018 : end procedure
1019 : #endif
1020 :
1021 : #if CK4_ENABLED
1022 700 : module procedure setMC_IMP_ANI_UXD_ONO_CK4
1023 : use pm_kind, only: TKC => CK4
1024 : #include "pm_matrixChol@routines.inc.F90"
1025 : end procedure
1026 : #endif
1027 :
1028 : #if CK3_ENABLED
1029 700 : module procedure setMC_IMP_ANI_UXD_ONO_CK3
1030 : use pm_kind, only: TKC => CK3
1031 : #include "pm_matrixChol@routines.inc.F90"
1032 : end procedure
1033 : #endif
1034 :
1035 : #if CK2_ENABLED
1036 715 : module procedure setMC_IMP_ANI_UXD_ONO_CK2
1037 : use pm_kind, only: TKC => CK2
1038 : #define DISPATCH_ENABLED 1
1039 : #include "pm_matrixChol@routines.inc.F90"
1040 : #undef DISPATCH_ENABLED
1041 : end procedure
1042 : #endif
1043 :
1044 : #if CK1_ENABLED
1045 768 : module procedure setMC_IMP_ANI_UXD_ONO_CK1
1046 : use pm_kind, only: TKC => CK1
1047 : #define DISPATCH_ENABLED 1
1048 : #include "pm_matrixChol@routines.inc.F90"
1049 : #undef DISPATCH_ENABLED
1050 : end procedure
1051 : #endif
1052 :
1053 : #undef CK_ENABLED
1054 :
1055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 :
1057 : #define RK_ENABLED 1
1058 :
1059 : #if RK5_ENABLED
1060 : module procedure setMC_IMP_ANI_UXD_ONO_RK5
1061 : use pm_kind, only: TKC => RK5
1062 : #include "pm_matrixChol@routines.inc.F90"
1063 : end procedure
1064 : #endif
1065 :
1066 : #if RK4_ENABLED
1067 700 : module procedure setMC_IMP_ANI_UXD_ONO_RK4
1068 : use pm_kind, only: TKC => RK4
1069 : #include "pm_matrixChol@routines.inc.F90"
1070 : end procedure
1071 : #endif
1072 :
1073 : #if RK3_ENABLED
1074 700 : module procedure setMC_IMP_ANI_UXD_ONO_RK3
1075 : use pm_kind, only: TKC => RK3
1076 : #include "pm_matrixChol@routines.inc.F90"
1077 : end procedure
1078 : #endif
1079 :
1080 : #if RK2_ENABLED
1081 1234784 : module procedure setMC_IMP_ANI_UXD_ONO_RK2
1082 : use pm_kind, only: TKC => RK2
1083 : #define DISPATCH_ENABLED 1
1084 : #include "pm_matrixChol@routines.inc.F90"
1085 : #undef DISPATCH_ENABLED
1086 : end procedure
1087 : #endif
1088 :
1089 : #if RK1_ENABLED
1090 933 : module procedure setMC_IMP_ANI_UXD_ONO_RK1
1091 : use pm_kind, only: TKC => RK1
1092 : #define DISPATCH_ENABLED 1
1093 : #include "pm_matrixChol@routines.inc.F90"
1094 : #undef DISPATCH_ENABLED
1095 : end procedure
1096 : #endif
1097 :
1098 : #undef RK_ENABLED
1099 :
1100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1101 :
1102 : #undef UXD_ENABLED
1103 :
1104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1107 :
1108 : #define XLD_ENABLED 1
1109 :
1110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1111 :
1112 : #define CK_ENABLED 1
1113 :
1114 : #if CK5_ENABLED
1115 : module procedure setMC_IMP_ANI_XLD_ONO_CK5
1116 : use pm_kind, only: TKC => CK5
1117 : #include "pm_matrixChol@routines.inc.F90"
1118 : end procedure
1119 : #endif
1120 :
1121 : #if CK4_ENABLED
1122 700 : module procedure setMC_IMP_ANI_XLD_ONO_CK4
1123 : use pm_kind, only: TKC => CK4
1124 : #include "pm_matrixChol@routines.inc.F90"
1125 : end procedure
1126 : #endif
1127 :
1128 : #if CK3_ENABLED
1129 700 : module procedure setMC_IMP_ANI_XLD_ONO_CK3
1130 : use pm_kind, only: TKC => CK3
1131 : #include "pm_matrixChol@routines.inc.F90"
1132 : end procedure
1133 : #endif
1134 :
1135 : #if CK2_ENABLED
1136 700 : module procedure setMC_IMP_ANI_XLD_ONO_CK2
1137 : use pm_kind, only: TKC => CK2
1138 : #define DISPATCH_ENABLED 1
1139 : #include "pm_matrixChol@routines.inc.F90"
1140 : #undef DISPATCH_ENABLED
1141 : end procedure
1142 : #endif
1143 :
1144 : #if CK1_ENABLED
1145 723 : module procedure setMC_IMP_ANI_XLD_ONO_CK1
1146 : use pm_kind, only: TKC => CK1
1147 : #define DISPATCH_ENABLED 1
1148 : #include "pm_matrixChol@routines.inc.F90"
1149 : #undef DISPATCH_ENABLED
1150 : end procedure
1151 : #endif
1152 :
1153 : #undef CK_ENABLED
1154 :
1155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1156 :
1157 : #define RK_ENABLED 1
1158 :
1159 : #if RK5_ENABLED
1160 : module procedure setMC_IMP_ANI_XLD_ONO_RK5
1161 : use pm_kind, only: TKC => RK5
1162 : #include "pm_matrixChol@routines.inc.F90"
1163 : end procedure
1164 : #endif
1165 :
1166 : #if RK4_ENABLED
1167 700 : module procedure setMC_IMP_ANI_XLD_ONO_RK4
1168 : use pm_kind, only: TKC => RK4
1169 : #include "pm_matrixChol@routines.inc.F90"
1170 : end procedure
1171 : #endif
1172 :
1173 : #if RK3_ENABLED
1174 700 : module procedure setMC_IMP_ANI_XLD_ONO_RK3
1175 : use pm_kind, only: TKC => RK3
1176 : #include "pm_matrixChol@routines.inc.F90"
1177 : end procedure
1178 : #endif
1179 :
1180 : #if RK2_ENABLED
1181 704 : module procedure setMC_IMP_ANI_XLD_ONO_RK2
1182 : use pm_kind, only: TKC => RK2
1183 : #define DISPATCH_ENABLED 1
1184 : #include "pm_matrixChol@routines.inc.F90"
1185 : #undef DISPATCH_ENABLED
1186 : end procedure
1187 : #endif
1188 :
1189 : #if RK1_ENABLED
1190 841 : module procedure setMC_IMP_ANI_XLD_ONO_RK1
1191 : use pm_kind, only: TKC => RK1
1192 : #define DISPATCH_ENABLED 1
1193 : #include "pm_matrixChol@routines.inc.F90"
1194 : #undef DISPATCH_ENABLED
1195 : end procedure
1196 : #endif
1197 :
1198 : #undef RK_ENABLED
1199 :
1200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1201 :
1202 : #undef XLD_ENABLED
1203 :
1204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1207 :
1208 : #undef ONO_ENABLED
1209 :
1210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 :
1214 : #define OTH_ENABLED 1
1215 :
1216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 :
1220 : #define UXD_ENABLED 1
1221 :
1222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1223 :
1224 : #define CK_ENABLED 1
1225 :
1226 : #if CK5_ENABLED
1227 : module procedure setMC_IMP_ANI_UXD_OTH_CK5
1228 : use pm_kind, only: TKC => CK5
1229 : #include "pm_matrixChol@routines.inc.F90"
1230 : end procedure
1231 : #endif
1232 :
1233 : #if CK4_ENABLED
1234 500 : module procedure setMC_IMP_ANI_UXD_OTH_CK4
1235 : use pm_kind, only: TKC => CK4
1236 : #include "pm_matrixChol@routines.inc.F90"
1237 : end procedure
1238 : #endif
1239 :
1240 : #if CK3_ENABLED
1241 500 : module procedure setMC_IMP_ANI_UXD_OTH_CK3
1242 : use pm_kind, only: TKC => CK3
1243 : #include "pm_matrixChol@routines.inc.F90"
1244 : end procedure
1245 : #endif
1246 :
1247 : #if CK2_ENABLED
1248 500 : module procedure setMC_IMP_ANI_UXD_OTH_CK2
1249 : use pm_kind, only: TKC => CK2
1250 : #define DISPATCH_ENABLED 1
1251 : #include "pm_matrixChol@routines.inc.F90"
1252 : #undef DISPATCH_ENABLED
1253 : end procedure
1254 : #endif
1255 :
1256 : #if CK1_ENABLED
1257 502 : module procedure setMC_IMP_ANI_UXD_OTH_CK1
1258 : use pm_kind, only: TKC => CK1
1259 : #define DISPATCH_ENABLED 1
1260 : #include "pm_matrixChol@routines.inc.F90"
1261 : #undef DISPATCH_ENABLED
1262 : end procedure
1263 : #endif
1264 :
1265 : #undef CK_ENABLED
1266 :
1267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1268 :
1269 : #define RK_ENABLED 1
1270 :
1271 : #if RK5_ENABLED
1272 : module procedure setMC_IMP_ANI_UXD_OTH_RK5
1273 : use pm_kind, only: TKC => RK5
1274 : #include "pm_matrixChol@routines.inc.F90"
1275 : end procedure
1276 : #endif
1277 :
1278 : #if RK4_ENABLED
1279 700 : module procedure setMC_IMP_ANI_UXD_OTH_RK4
1280 : use pm_kind, only: TKC => RK4
1281 : #include "pm_matrixChol@routines.inc.F90"
1282 : end procedure
1283 : #endif
1284 :
1285 : #if RK3_ENABLED
1286 700 : module procedure setMC_IMP_ANI_UXD_OTH_RK3
1287 : use pm_kind, only: TKC => RK3
1288 : #include "pm_matrixChol@routines.inc.F90"
1289 : end procedure
1290 : #endif
1291 :
1292 : #if RK2_ENABLED
1293 700 : module procedure setMC_IMP_ANI_UXD_OTH_RK2
1294 : use pm_kind, only: TKC => RK2
1295 : #define DISPATCH_ENABLED 1
1296 : #include "pm_matrixChol@routines.inc.F90"
1297 : #undef DISPATCH_ENABLED
1298 : end procedure
1299 : #endif
1300 :
1301 : #if RK1_ENABLED
1302 701 : module procedure setMC_IMP_ANI_UXD_OTH_RK1
1303 : use pm_kind, only: TKC => RK1
1304 : #define DISPATCH_ENABLED 1
1305 : #include "pm_matrixChol@routines.inc.F90"
1306 : #undef DISPATCH_ENABLED
1307 : end procedure
1308 : #endif
1309 :
1310 : #undef RK_ENABLED
1311 :
1312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1313 :
1314 : #undef UXD_ENABLED
1315 :
1316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319 :
1320 : #define XLD_ENABLED 1
1321 :
1322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323 :
1324 : #define CK_ENABLED 1
1325 :
1326 : #if CK5_ENABLED
1327 : module procedure setMC_IMP_ANI_XLD_OTH_CK5
1328 : use pm_kind, only: TKC => CK5
1329 : #include "pm_matrixChol@routines.inc.F90"
1330 : end procedure
1331 : #endif
1332 :
1333 : #if CK4_ENABLED
1334 500 : module procedure setMC_IMP_ANI_XLD_OTH_CK4
1335 : use pm_kind, only: TKC => CK4
1336 : #include "pm_matrixChol@routines.inc.F90"
1337 : end procedure
1338 : #endif
1339 :
1340 : #if CK3_ENABLED
1341 500 : module procedure setMC_IMP_ANI_XLD_OTH_CK3
1342 : use pm_kind, only: TKC => CK3
1343 : #include "pm_matrixChol@routines.inc.F90"
1344 : end procedure
1345 : #endif
1346 :
1347 : #if CK2_ENABLED
1348 500 : module procedure setMC_IMP_ANI_XLD_OTH_CK2
1349 : use pm_kind, only: TKC => CK2
1350 : #define DISPATCH_ENABLED 1
1351 : #include "pm_matrixChol@routines.inc.F90"
1352 : #undef DISPATCH_ENABLED
1353 : end procedure
1354 : #endif
1355 :
1356 : #if CK1_ENABLED
1357 503 : module procedure setMC_IMP_ANI_XLD_OTH_CK1
1358 : use pm_kind, only: TKC => CK1
1359 : #define DISPATCH_ENABLED 1
1360 : #include "pm_matrixChol@routines.inc.F90"
1361 : #undef DISPATCH_ENABLED
1362 : end procedure
1363 : #endif
1364 :
1365 : #undef CK_ENABLED
1366 :
1367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1368 :
1369 : #define RK_ENABLED 1
1370 :
1371 : #if RK5_ENABLED
1372 : module procedure setMC_IMP_ANI_XLD_OTH_RK5
1373 : use pm_kind, only: TKC => RK5
1374 : #include "pm_matrixChol@routines.inc.F90"
1375 : end procedure
1376 : #endif
1377 :
1378 : #if RK4_ENABLED
1379 500 : module procedure setMC_IMP_ANI_XLD_OTH_RK4
1380 : use pm_kind, only: TKC => RK4
1381 : #include "pm_matrixChol@routines.inc.F90"
1382 : end procedure
1383 : #endif
1384 :
1385 : #if RK3_ENABLED
1386 500 : module procedure setMC_IMP_ANI_XLD_OTH_RK3
1387 : use pm_kind, only: TKC => RK3
1388 : #include "pm_matrixChol@routines.inc.F90"
1389 : end procedure
1390 : #endif
1391 :
1392 : #if RK2_ENABLED
1393 100829 : module procedure setMC_IMP_ANI_XLD_OTH_RK2
1394 : use pm_kind, only: TKC => RK2
1395 : #define DISPATCH_ENABLED 1
1396 : #include "pm_matrixChol@routines.inc.F90"
1397 : #undef DISPATCH_ENABLED
1398 : end procedure
1399 : #endif
1400 :
1401 : #if RK1_ENABLED
1402 1898 : module procedure setMC_IMP_ANI_XLD_OTH_RK1
1403 : use pm_kind, only: TKC => RK1
1404 : #define DISPATCH_ENABLED 1
1405 : #include "pm_matrixChol@routines.inc.F90"
1406 : #undef DISPATCH_ENABLED
1407 : end procedure
1408 : #endif
1409 :
1410 : #undef RK_ENABLED
1411 :
1412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1413 :
1414 : #undef XLD_ENABLED
1415 :
1416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1419 :
1420 : #undef OTH_ENABLED
1421 :
1422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1425 :
1426 : #undef ANI_ENABLED
1427 :
1428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431 :
1432 : #undef IMP_ENABLED
1433 :
1434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1437 :
1438 : #undef setMatChol_ENABLED
1439 :
1440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1441 :
1442 : #define setMatChol_ENABLED 1
1443 :
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 :
1448 : #define EXP_ENABLED 1
1449 :
1450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1453 :
1454 : #define ONO_ENABLED 1
1455 :
1456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1459 :
1460 : #define AXX_ENABLED 1
1461 :
1462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1465 :
1466 : #define UXD_ENABLED 1
1467 :
1468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1469 :
1470 : #define CK_ENABLED 1
1471 :
1472 : #if CK5_ENABLED
1473 : module procedure setMC_EXP_AXX_UXD_ONO_CK5
1474 : use pm_kind, only: TKC => CK5
1475 : #include "pm_matrixChol@routines.inc.F90"
1476 : end procedure
1477 : #endif
1478 :
1479 : #if CK4_ENABLED
1480 0 : module procedure setMC_EXP_AXX_UXD_ONO_CK4
1481 : use pm_kind, only: TKC => CK4
1482 : #include "pm_matrixChol@routines.inc.F90"
1483 0 : end procedure
1484 : #endif
1485 :
1486 : #if CK3_ENABLED
1487 0 : module procedure setMC_EXP_AXX_UXD_ONO_CK3
1488 : use pm_kind, only: TKC => CK3
1489 : #include "pm_matrixChol@routines.inc.F90"
1490 0 : end procedure
1491 : #endif
1492 :
1493 : #if CK2_ENABLED
1494 0 : module procedure setMC_EXP_AXX_UXD_ONO_CK2
1495 : use pm_kind, only: TKC => CK2
1496 : #define DISPATCH_ENABLED 1
1497 : #include "pm_matrixChol@routines.inc.F90"
1498 : #undef DISPATCH_ENABLED
1499 0 : end procedure
1500 : #endif
1501 :
1502 : #if CK1_ENABLED
1503 0 : module procedure setMC_EXP_AXX_UXD_ONO_CK1
1504 : use pm_kind, only: TKC => CK1
1505 : #define DISPATCH_ENABLED 1
1506 : #include "pm_matrixChol@routines.inc.F90"
1507 : #undef DISPATCH_ENABLED
1508 0 : end procedure
1509 : #endif
1510 :
1511 : #undef CK_ENABLED
1512 :
1513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1514 :
1515 : #define RK_ENABLED 1
1516 :
1517 : #if RK5_ENABLED
1518 : module procedure setMC_EXP_AXX_UXD_ONO_RK5
1519 : use pm_kind, only: TKC => RK5
1520 : #include "pm_matrixChol@routines.inc.F90"
1521 : end procedure
1522 : #endif
1523 :
1524 : #if RK4_ENABLED
1525 0 : module procedure setMC_EXP_AXX_UXD_ONO_RK4
1526 : use pm_kind, only: TKC => RK4
1527 : #include "pm_matrixChol@routines.inc.F90"
1528 0 : end procedure
1529 : #endif
1530 :
1531 : #if RK3_ENABLED
1532 0 : module procedure setMC_EXP_AXX_UXD_ONO_RK3
1533 : use pm_kind, only: TKC => RK3
1534 : #include "pm_matrixChol@routines.inc.F90"
1535 0 : end procedure
1536 : #endif
1537 :
1538 : #if RK2_ENABLED
1539 0 : module procedure setMC_EXP_AXX_UXD_ONO_RK2
1540 : use pm_kind, only: TKC => RK2
1541 : #define DISPATCH_ENABLED 1
1542 : #include "pm_matrixChol@routines.inc.F90"
1543 : #undef DISPATCH_ENABLED
1544 0 : end procedure
1545 : #endif
1546 :
1547 : #if RK1_ENABLED
1548 0 : module procedure setMC_EXP_AXX_UXD_ONO_RK1
1549 : use pm_kind, only: TKC => RK1
1550 : #define DISPATCH_ENABLED 1
1551 : #include "pm_matrixChol@routines.inc.F90"
1552 : #undef DISPATCH_ENABLED
1553 0 : end procedure
1554 : #endif
1555 :
1556 : #undef RK_ENABLED
1557 :
1558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1559 :
1560 : #undef UXD_ENABLED
1561 :
1562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565 :
1566 : #define XLD_ENABLED 1
1567 :
1568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1569 :
1570 : #define CK_ENABLED 1
1571 :
1572 : #if CK5_ENABLED
1573 : module procedure setMC_EXP_AXX_XLD_ONO_CK5
1574 : use pm_kind, only: TKC => CK5
1575 : #include "pm_matrixChol@routines.inc.F90"
1576 : end procedure
1577 : #endif
1578 :
1579 : #if CK4_ENABLED
1580 0 : module procedure setMC_EXP_AXX_XLD_ONO_CK4
1581 : use pm_kind, only: TKC => CK4
1582 : #include "pm_matrixChol@routines.inc.F90"
1583 0 : end procedure
1584 : #endif
1585 :
1586 : #if CK3_ENABLED
1587 0 : module procedure setMC_EXP_AXX_XLD_ONO_CK3
1588 : use pm_kind, only: TKC => CK3
1589 : #include "pm_matrixChol@routines.inc.F90"
1590 0 : end procedure
1591 : #endif
1592 :
1593 : #if CK2_ENABLED
1594 0 : module procedure setMC_EXP_AXX_XLD_ONO_CK2
1595 : use pm_kind, only: TKC => CK2
1596 : #define DISPATCH_ENABLED 1
1597 : #include "pm_matrixChol@routines.inc.F90"
1598 : #undef DISPATCH_ENABLED
1599 0 : end procedure
1600 : #endif
1601 :
1602 : #if CK1_ENABLED
1603 0 : module procedure setMC_EXP_AXX_XLD_ONO_CK1
1604 : use pm_kind, only: TKC => CK1
1605 : #define DISPATCH_ENABLED 1
1606 : #include "pm_matrixChol@routines.inc.F90"
1607 : #undef DISPATCH_ENABLED
1608 0 : end procedure
1609 : #endif
1610 :
1611 : #undef CK_ENABLED
1612 :
1613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1614 :
1615 : #define RK_ENABLED 1
1616 :
1617 : #if RK5_ENABLED
1618 : module procedure setMC_EXP_AXX_XLD_ONO_RK5
1619 : use pm_kind, only: TKC => RK5
1620 : #include "pm_matrixChol@routines.inc.F90"
1621 : end procedure
1622 : #endif
1623 :
1624 : #if RK4_ENABLED
1625 0 : module procedure setMC_EXP_AXX_XLD_ONO_RK4
1626 : use pm_kind, only: TKC => RK4
1627 : #include "pm_matrixChol@routines.inc.F90"
1628 0 : end procedure
1629 : #endif
1630 :
1631 : #if RK3_ENABLED
1632 0 : module procedure setMC_EXP_AXX_XLD_ONO_RK3
1633 : use pm_kind, only: TKC => RK3
1634 : #include "pm_matrixChol@routines.inc.F90"
1635 0 : end procedure
1636 : #endif
1637 :
1638 : #if RK2_ENABLED
1639 0 : module procedure setMC_EXP_AXX_XLD_ONO_RK2
1640 : use pm_kind, only: TKC => RK2
1641 : #define DISPATCH_ENABLED 1
1642 : #include "pm_matrixChol@routines.inc.F90"
1643 : #undef DISPATCH_ENABLED
1644 0 : end procedure
1645 : #endif
1646 :
1647 : #if RK1_ENABLED
1648 0 : module procedure setMC_EXP_AXX_XLD_ONO_RK1
1649 : use pm_kind, only: TKC => RK1
1650 : #define DISPATCH_ENABLED 1
1651 : #include "pm_matrixChol@routines.inc.F90"
1652 : #undef DISPATCH_ENABLED
1653 0 : end procedure
1654 : #endif
1655 :
1656 : #undef RK_ENABLED
1657 :
1658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659 :
1660 : #undef XLD_ENABLED
1661 :
1662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665 :
1666 : #undef AXX_ENABLED
1667 :
1668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671 :
1672 : #define ABI_ENABLED 1
1673 :
1674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677 :
1678 : #define UXD_ENABLED 1
1679 :
1680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1681 :
1682 : #define CK_ENABLED 1
1683 :
1684 : #if CK5_ENABLED
1685 : module procedure setMC_EXP_ABI_UXD_ONO_CK5
1686 : use pm_kind, only: TKC => CK5
1687 : #include "pm_matrixChol@routines.inc.F90"
1688 : end procedure
1689 : #endif
1690 :
1691 : #if CK4_ENABLED
1692 0 : module procedure setMC_EXP_ABI_UXD_ONO_CK4
1693 : use pm_kind, only: TKC => CK4
1694 : #include "pm_matrixChol@routines.inc.F90"
1695 : end procedure
1696 : #endif
1697 :
1698 : #if CK3_ENABLED
1699 0 : module procedure setMC_EXP_ABI_UXD_ONO_CK3
1700 : use pm_kind, only: TKC => CK3
1701 : #include "pm_matrixChol@routines.inc.F90"
1702 : end procedure
1703 : #endif
1704 :
1705 : #if CK2_ENABLED
1706 0 : module procedure setMC_EXP_ABI_UXD_ONO_CK2
1707 : use pm_kind, only: TKC => CK2
1708 : #define DISPATCH_ENABLED 1
1709 : #include "pm_matrixChol@routines.inc.F90"
1710 : #undef DISPATCH_ENABLED
1711 : end procedure
1712 : #endif
1713 :
1714 : #if CK1_ENABLED
1715 1 : module procedure setMC_EXP_ABI_UXD_ONO_CK1
1716 : use pm_kind, only: TKC => CK1
1717 : #define DISPATCH_ENABLED 1
1718 : #include "pm_matrixChol@routines.inc.F90"
1719 : #undef DISPATCH_ENABLED
1720 : end procedure
1721 : #endif
1722 :
1723 : #undef CK_ENABLED
1724 :
1725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1726 :
1727 : #define RK_ENABLED 1
1728 :
1729 : #if RK5_ENABLED
1730 : module procedure setMC_EXP_ABI_UXD_ONO_RK5
1731 : use pm_kind, only: TKC => RK5
1732 : #include "pm_matrixChol@routines.inc.F90"
1733 : end procedure
1734 : #endif
1735 :
1736 : #if RK4_ENABLED
1737 0 : module procedure setMC_EXP_ABI_UXD_ONO_RK4
1738 : use pm_kind, only: TKC => RK4
1739 : #include "pm_matrixChol@routines.inc.F90"
1740 : end procedure
1741 : #endif
1742 :
1743 : #if RK3_ENABLED
1744 0 : module procedure setMC_EXP_ABI_UXD_ONO_RK3
1745 : use pm_kind, only: TKC => RK3
1746 : #include "pm_matrixChol@routines.inc.F90"
1747 : end procedure
1748 : #endif
1749 :
1750 : #if RK2_ENABLED
1751 0 : module procedure setMC_EXP_ABI_UXD_ONO_RK2
1752 : use pm_kind, only: TKC => RK2
1753 : #define DISPATCH_ENABLED 1
1754 : #include "pm_matrixChol@routines.inc.F90"
1755 : #undef DISPATCH_ENABLED
1756 : end procedure
1757 : #endif
1758 :
1759 : #if RK1_ENABLED
1760 1 : module procedure setMC_EXP_ABI_UXD_ONO_RK1
1761 : use pm_kind, only: TKC => RK1
1762 : #define DISPATCH_ENABLED 1
1763 : #include "pm_matrixChol@routines.inc.F90"
1764 : #undef DISPATCH_ENABLED
1765 : end procedure
1766 : #endif
1767 :
1768 : #undef RK_ENABLED
1769 :
1770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1771 :
1772 : #undef UXD_ENABLED
1773 :
1774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1777 :
1778 : #define XLD_ENABLED 1
1779 :
1780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1781 :
1782 : #define CK_ENABLED 1
1783 :
1784 : #if CK5_ENABLED
1785 : module procedure setMC_EXP_ABI_XLD_ONO_CK5
1786 : use pm_kind, only: TKC => CK5
1787 : #include "pm_matrixChol@routines.inc.F90"
1788 : end procedure
1789 : #endif
1790 :
1791 : #if CK4_ENABLED
1792 0 : module procedure setMC_EXP_ABI_XLD_ONO_CK4
1793 : use pm_kind, only: TKC => CK4
1794 : #include "pm_matrixChol@routines.inc.F90"
1795 : end procedure
1796 : #endif
1797 :
1798 : #if CK3_ENABLED
1799 0 : module procedure setMC_EXP_ABI_XLD_ONO_CK3
1800 : use pm_kind, only: TKC => CK3
1801 : #include "pm_matrixChol@routines.inc.F90"
1802 : end procedure
1803 : #endif
1804 :
1805 : #if CK2_ENABLED
1806 0 : module procedure setMC_EXP_ABI_XLD_ONO_CK2
1807 : use pm_kind, only: TKC => CK2
1808 : #define DISPATCH_ENABLED 1
1809 : #include "pm_matrixChol@routines.inc.F90"
1810 : #undef DISPATCH_ENABLED
1811 : end procedure
1812 : #endif
1813 :
1814 : #if CK1_ENABLED
1815 2 : module procedure setMC_EXP_ABI_XLD_ONO_CK1
1816 : use pm_kind, only: TKC => CK1
1817 : #define DISPATCH_ENABLED 1
1818 : #include "pm_matrixChol@routines.inc.F90"
1819 : #undef DISPATCH_ENABLED
1820 : end procedure
1821 : #endif
1822 :
1823 : #undef CK_ENABLED
1824 :
1825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1826 :
1827 : #define RK_ENABLED 1
1828 :
1829 : #if RK5_ENABLED
1830 : module procedure setMC_EXP_ABI_XLD_ONO_RK5
1831 : use pm_kind, only: TKC => RK5
1832 : #include "pm_matrixChol@routines.inc.F90"
1833 : end procedure
1834 : #endif
1835 :
1836 : #if RK4_ENABLED
1837 0 : module procedure setMC_EXP_ABI_XLD_ONO_RK4
1838 : use pm_kind, only: TKC => RK4
1839 : #include "pm_matrixChol@routines.inc.F90"
1840 : end procedure
1841 : #endif
1842 :
1843 : #if RK3_ENABLED
1844 0 : module procedure setMC_EXP_ABI_XLD_ONO_RK3
1845 : use pm_kind, only: TKC => RK3
1846 : #include "pm_matrixChol@routines.inc.F90"
1847 : end procedure
1848 : #endif
1849 :
1850 : #if RK2_ENABLED
1851 0 : module procedure setMC_EXP_ABI_XLD_ONO_RK2
1852 : use pm_kind, only: TKC => RK2
1853 : #define DISPATCH_ENABLED 1
1854 : #include "pm_matrixChol@routines.inc.F90"
1855 : #undef DISPATCH_ENABLED
1856 : end procedure
1857 : #endif
1858 :
1859 : #if RK1_ENABLED
1860 1 : module procedure setMC_EXP_ABI_XLD_ONO_RK1
1861 : use pm_kind, only: TKC => RK1
1862 : #define DISPATCH_ENABLED 1
1863 : #include "pm_matrixChol@routines.inc.F90"
1864 : #undef DISPATCH_ENABLED
1865 : end procedure
1866 : #endif
1867 :
1868 : #undef RK_ENABLED
1869 :
1870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1871 :
1872 : #undef XLD_ENABLED
1873 :
1874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1877 :
1878 : #undef ABI_ENABLED
1879 :
1880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1883 :
1884 : #define ABR_ENABLED 1
1885 :
1886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1889 :
1890 : #define UXD_ENABLED 1
1891 :
1892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1893 :
1894 : #define CK_ENABLED 1
1895 :
1896 : #if CK5_ENABLED
1897 : module procedure setMC_EXP_ABR_UXD_ONO_CK5
1898 : use pm_kind, only: TKC => CK5
1899 : #include "pm_matrixChol@routines.inc.F90"
1900 : end procedure
1901 : #endif
1902 :
1903 : #if CK4_ENABLED
1904 3471 : module procedure setMC_EXP_ABR_UXD_ONO_CK4
1905 : use pm_kind, only: TKC => CK4
1906 : #include "pm_matrixChol@routines.inc.F90"
1907 : end procedure
1908 : #endif
1909 :
1910 : #if CK3_ENABLED
1911 3703 : module procedure setMC_EXP_ABR_UXD_ONO_CK3
1912 : use pm_kind, only: TKC => CK3
1913 : #include "pm_matrixChol@routines.inc.F90"
1914 : end procedure
1915 : #endif
1916 :
1917 : #if CK2_ENABLED
1918 3891 : module procedure setMC_EXP_ABR_UXD_ONO_CK2
1919 : use pm_kind, only: TKC => CK2
1920 : #define DISPATCH_ENABLED 1
1921 : #include "pm_matrixChol@routines.inc.F90"
1922 : #undef DISPATCH_ENABLED
1923 : end procedure
1924 : #endif
1925 :
1926 : #if CK1_ENABLED
1927 3732 : module procedure setMC_EXP_ABR_UXD_ONO_CK1
1928 : use pm_kind, only: TKC => CK1
1929 : #define DISPATCH_ENABLED 1
1930 : #include "pm_matrixChol@routines.inc.F90"
1931 : #undef DISPATCH_ENABLED
1932 : end procedure
1933 : #endif
1934 :
1935 : #undef CK_ENABLED
1936 :
1937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938 :
1939 : #define RK_ENABLED 1
1940 :
1941 : #if RK5_ENABLED
1942 : module procedure setMC_EXP_ABR_UXD_ONO_RK5
1943 : use pm_kind, only: TKC => RK5
1944 : #include "pm_matrixChol@routines.inc.F90"
1945 : end procedure
1946 : #endif
1947 :
1948 : #if RK4_ENABLED
1949 3727 : module procedure setMC_EXP_ABR_UXD_ONO_RK4
1950 : use pm_kind, only: TKC => RK4
1951 : #include "pm_matrixChol@routines.inc.F90"
1952 : end procedure
1953 : #endif
1954 :
1955 : #if RK3_ENABLED
1956 3776 : module procedure setMC_EXP_ABR_UXD_ONO_RK3
1957 : use pm_kind, only: TKC => RK3
1958 : #include "pm_matrixChol@routines.inc.F90"
1959 : end procedure
1960 : #endif
1961 :
1962 : #if RK2_ENABLED
1963 4053 : module procedure setMC_EXP_ABR_UXD_ONO_RK2
1964 : use pm_kind, only: TKC => RK2
1965 : #define DISPATCH_ENABLED 1
1966 : #include "pm_matrixChol@routines.inc.F90"
1967 : #undef DISPATCH_ENABLED
1968 : end procedure
1969 : #endif
1970 :
1971 : #if RK1_ENABLED
1972 4099 : module procedure setMC_EXP_ABR_UXD_ONO_RK1
1973 : use pm_kind, only: TKC => RK1
1974 : #define DISPATCH_ENABLED 1
1975 : #include "pm_matrixChol@routines.inc.F90"
1976 : #undef DISPATCH_ENABLED
1977 : end procedure
1978 : #endif
1979 :
1980 : #undef RK_ENABLED
1981 :
1982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1983 :
1984 : #undef UXD_ENABLED
1985 :
1986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1989 :
1990 : #define XLD_ENABLED 1
1991 :
1992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1993 :
1994 : #define CK_ENABLED 1
1995 :
1996 : #if CK5_ENABLED
1997 : module procedure setMC_EXP_ABR_XLD_ONO_CK5
1998 : use pm_kind, only: TKC => CK5
1999 : #include "pm_matrixChol@routines.inc.F90"
2000 : end procedure
2001 : #endif
2002 :
2003 : #if CK4_ENABLED
2004 3471 : module procedure setMC_EXP_ABR_XLD_ONO_CK4
2005 : use pm_kind, only: TKC => CK4
2006 : #include "pm_matrixChol@routines.inc.F90"
2007 : end procedure
2008 : #endif
2009 :
2010 : #if CK3_ENABLED
2011 3703 : module procedure setMC_EXP_ABR_XLD_ONO_CK3
2012 : use pm_kind, only: TKC => CK3
2013 : #include "pm_matrixChol@routines.inc.F90"
2014 : end procedure
2015 : #endif
2016 :
2017 : #if CK2_ENABLED
2018 3891 : module procedure setMC_EXP_ABR_XLD_ONO_CK2
2019 : use pm_kind, only: TKC => CK2
2020 : #define DISPATCH_ENABLED 1
2021 : #include "pm_matrixChol@routines.inc.F90"
2022 : #undef DISPATCH_ENABLED
2023 : end procedure
2024 : #endif
2025 :
2026 : #if CK1_ENABLED
2027 3733 : module procedure setMC_EXP_ABR_XLD_ONO_CK1
2028 : use pm_kind, only: TKC => CK1
2029 : #define DISPATCH_ENABLED 1
2030 : #include "pm_matrixChol@routines.inc.F90"
2031 : #undef DISPATCH_ENABLED
2032 : end procedure
2033 : #endif
2034 :
2035 : #undef CK_ENABLED
2036 :
2037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2038 :
2039 : #define RK_ENABLED 1
2040 :
2041 : #if RK5_ENABLED
2042 : module procedure setMC_EXP_ABR_XLD_ONO_RK5
2043 : use pm_kind, only: TKC => RK5
2044 : #include "pm_matrixChol@routines.inc.F90"
2045 : end procedure
2046 : #endif
2047 :
2048 : #if RK4_ENABLED
2049 3727 : module procedure setMC_EXP_ABR_XLD_ONO_RK4
2050 : use pm_kind, only: TKC => RK4
2051 : #include "pm_matrixChol@routines.inc.F90"
2052 : end procedure
2053 : #endif
2054 :
2055 : #if RK3_ENABLED
2056 3776 : module procedure setMC_EXP_ABR_XLD_ONO_RK3
2057 : use pm_kind, only: TKC => RK3
2058 : #include "pm_matrixChol@routines.inc.F90"
2059 : end procedure
2060 : #endif
2061 :
2062 : #if RK2_ENABLED
2063 4053 : module procedure setMC_EXP_ABR_XLD_ONO_RK2
2064 : use pm_kind, only: TKC => RK2
2065 : #define DISPATCH_ENABLED 1
2066 : #include "pm_matrixChol@routines.inc.F90"
2067 : #undef DISPATCH_ENABLED
2068 : end procedure
2069 : #endif
2070 :
2071 : #if RK1_ENABLED
2072 4099 : module procedure setMC_EXP_ABR_XLD_ONO_RK1
2073 : use pm_kind, only: TKC => RK1
2074 : #define DISPATCH_ENABLED 1
2075 : #include "pm_matrixChol@routines.inc.F90"
2076 : #undef DISPATCH_ENABLED
2077 : end procedure
2078 : #endif
2079 :
2080 : #undef RK_ENABLED
2081 :
2082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2083 :
2084 : #undef XLD_ENABLED
2085 :
2086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2089 :
2090 : #undef ABR_ENABLED
2091 :
2092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2095 :
2096 : #undef ONO_ENABLED
2097 :
2098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101 :
2102 : #undef EXP_ENABLED
2103 :
2104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2107 :
2108 : #undef setMatChol_ENABLED
2109 :
2110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2111 :
2112 : #define setMatChol_ENABLED 1
2113 :
2114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2117 :
2118 : #define EXP_ENABLED 1
2119 :
2120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2123 :
2124 : #define ANI_ENABLED 1
2125 :
2126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2129 :
2130 : #define ONO_ENABLED 1
2131 :
2132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2135 :
2136 : #define UXD_ENABLED 1
2137 :
2138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2139 :
2140 : #define CK_ENABLED 1
2141 :
2142 : #if CK5_ENABLED
2143 : module procedure setMC_EXP_ANI_UXD_ONO_CK5
2144 : use pm_kind, only: TKC => CK5
2145 : #include "pm_matrixChol@routines.inc.F90"
2146 : end procedure
2147 : #endif
2148 :
2149 : #if CK4_ENABLED
2150 0 : module procedure setMC_EXP_ANI_UXD_ONO_CK4
2151 : use pm_kind, only: TKC => CK4
2152 : #include "pm_matrixChol@routines.inc.F90"
2153 : end procedure
2154 : #endif
2155 :
2156 : #if CK3_ENABLED
2157 0 : module procedure setMC_EXP_ANI_UXD_ONO_CK3
2158 : use pm_kind, only: TKC => CK3
2159 : #include "pm_matrixChol@routines.inc.F90"
2160 : end procedure
2161 : #endif
2162 :
2163 : #if CK2_ENABLED
2164 0 : module procedure setMC_EXP_ANI_UXD_ONO_CK2
2165 : use pm_kind, only: TKC => CK2
2166 : #define DISPATCH_ENABLED 1
2167 : #include "pm_matrixChol@routines.inc.F90"
2168 : #undef DISPATCH_ENABLED
2169 : end procedure
2170 : #endif
2171 :
2172 : #if CK1_ENABLED
2173 0 : module procedure setMC_EXP_ANI_UXD_ONO_CK1
2174 : use pm_kind, only: TKC => CK1
2175 : #define DISPATCH_ENABLED 1
2176 : #include "pm_matrixChol@routines.inc.F90"
2177 : #undef DISPATCH_ENABLED
2178 : end procedure
2179 : #endif
2180 :
2181 : #undef CK_ENABLED
2182 :
2183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2184 :
2185 : #define RK_ENABLED 1
2186 :
2187 : #if RK5_ENABLED
2188 : module procedure setMC_EXP_ANI_UXD_ONO_RK5
2189 : use pm_kind, only: TKC => RK5
2190 : #include "pm_matrixChol@routines.inc.F90"
2191 : end procedure
2192 : #endif
2193 :
2194 : #if RK4_ENABLED
2195 0 : module procedure setMC_EXP_ANI_UXD_ONO_RK4
2196 : use pm_kind, only: TKC => RK4
2197 : #include "pm_matrixChol@routines.inc.F90"
2198 : end procedure
2199 : #endif
2200 :
2201 : #if RK3_ENABLED
2202 0 : module procedure setMC_EXP_ANI_UXD_ONO_RK3
2203 : use pm_kind, only: TKC => RK3
2204 : #include "pm_matrixChol@routines.inc.F90"
2205 : end procedure
2206 : #endif
2207 :
2208 : #if RK2_ENABLED
2209 0 : module procedure setMC_EXP_ANI_UXD_ONO_RK2
2210 : use pm_kind, only: TKC => RK2
2211 : #define DISPATCH_ENABLED 1
2212 : #include "pm_matrixChol@routines.inc.F90"
2213 : #undef DISPATCH_ENABLED
2214 : end procedure
2215 : #endif
2216 :
2217 : #if RK1_ENABLED
2218 41 : module procedure setMC_EXP_ANI_UXD_ONO_RK1
2219 : use pm_kind, only: TKC => RK1
2220 : #define DISPATCH_ENABLED 1
2221 : #include "pm_matrixChol@routines.inc.F90"
2222 : #undef DISPATCH_ENABLED
2223 : end procedure
2224 : #endif
2225 :
2226 : #undef RK_ENABLED
2227 :
2228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2229 :
2230 : #undef UXD_ENABLED
2231 :
2232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2235 :
2236 : #define XLD_ENABLED 1
2237 :
2238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2239 :
2240 : #define CK_ENABLED 1
2241 :
2242 : #if CK5_ENABLED
2243 : module procedure setMC_EXP_ANI_XLD_ONO_CK5
2244 : use pm_kind, only: TKC => CK5
2245 : #include "pm_matrixChol@routines.inc.F90"
2246 : end procedure
2247 : #endif
2248 :
2249 : #if CK4_ENABLED
2250 0 : module procedure setMC_EXP_ANI_XLD_ONO_CK4
2251 : use pm_kind, only: TKC => CK4
2252 : #include "pm_matrixChol@routines.inc.F90"
2253 : end procedure
2254 : #endif
2255 :
2256 : #if CK3_ENABLED
2257 0 : module procedure setMC_EXP_ANI_XLD_ONO_CK3
2258 : use pm_kind, only: TKC => CK3
2259 : #include "pm_matrixChol@routines.inc.F90"
2260 : end procedure
2261 : #endif
2262 :
2263 : #if CK2_ENABLED
2264 0 : module procedure setMC_EXP_ANI_XLD_ONO_CK2
2265 : use pm_kind, only: TKC => CK2
2266 : #define DISPATCH_ENABLED 1
2267 : #include "pm_matrixChol@routines.inc.F90"
2268 : #undef DISPATCH_ENABLED
2269 : end procedure
2270 : #endif
2271 :
2272 : #if CK1_ENABLED
2273 0 : module procedure setMC_EXP_ANI_XLD_ONO_CK1
2274 : use pm_kind, only: TKC => CK1
2275 : #define DISPATCH_ENABLED 1
2276 : #include "pm_matrixChol@routines.inc.F90"
2277 : #undef DISPATCH_ENABLED
2278 : end procedure
2279 : #endif
2280 :
2281 : #undef CK_ENABLED
2282 :
2283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2284 :
2285 : #define RK_ENABLED 1
2286 :
2287 : #if RK5_ENABLED
2288 : module procedure setMC_EXP_ANI_XLD_ONO_RK5
2289 : use pm_kind, only: TKC => RK5
2290 : #include "pm_matrixChol@routines.inc.F90"
2291 : end procedure
2292 : #endif
2293 :
2294 : #if RK4_ENABLED
2295 0 : module procedure setMC_EXP_ANI_XLD_ONO_RK4
2296 : use pm_kind, only: TKC => RK4
2297 : #include "pm_matrixChol@routines.inc.F90"
2298 : end procedure
2299 : #endif
2300 :
2301 : #if RK3_ENABLED
2302 0 : module procedure setMC_EXP_ANI_XLD_ONO_RK3
2303 : use pm_kind, only: TKC => RK3
2304 : #include "pm_matrixChol@routines.inc.F90"
2305 : end procedure
2306 : #endif
2307 :
2308 : #if RK2_ENABLED
2309 0 : module procedure setMC_EXP_ANI_XLD_ONO_RK2
2310 : use pm_kind, only: TKC => RK2
2311 : #define DISPATCH_ENABLED 1
2312 : #include "pm_matrixChol@routines.inc.F90"
2313 : #undef DISPATCH_ENABLED
2314 : end procedure
2315 : #endif
2316 :
2317 : #if RK1_ENABLED
2318 0 : module procedure setMC_EXP_ANI_XLD_ONO_RK1
2319 : use pm_kind, only: TKC => RK1
2320 : #define DISPATCH_ENABLED 1
2321 : #include "pm_matrixChol@routines.inc.F90"
2322 : #undef DISPATCH_ENABLED
2323 : end procedure
2324 : #endif
2325 :
2326 : #undef RK_ENABLED
2327 :
2328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2329 :
2330 : #undef XLD_ENABLED
2331 :
2332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2335 :
2336 : #undef ONO_ENABLED
2337 :
2338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2341 :
2342 : #define OTH_ENABLED 1
2343 :
2344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347 :
2348 : #define UXD_ENABLED 1
2349 :
2350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2351 :
2352 : #define CK_ENABLED 1
2353 :
2354 : #if CK5_ENABLED
2355 : module procedure setMC_EXP_ANI_UXD_OTH_CK5
2356 : use pm_kind, only: TKC => CK5
2357 : #include "pm_matrixChol@routines.inc.F90"
2358 : end procedure
2359 : #endif
2360 :
2361 : #if CK4_ENABLED
2362 0 : module procedure setMC_EXP_ANI_UXD_OTH_CK4
2363 : use pm_kind, only: TKC => CK4
2364 : #include "pm_matrixChol@routines.inc.F90"
2365 : end procedure
2366 : #endif
2367 :
2368 : #if CK3_ENABLED
2369 0 : module procedure setMC_EXP_ANI_UXD_OTH_CK3
2370 : use pm_kind, only: TKC => CK3
2371 : #include "pm_matrixChol@routines.inc.F90"
2372 : end procedure
2373 : #endif
2374 :
2375 : #if CK2_ENABLED
2376 0 : module procedure setMC_EXP_ANI_UXD_OTH_CK2
2377 : use pm_kind, only: TKC => CK2
2378 : #define DISPATCH_ENABLED 1
2379 : #include "pm_matrixChol@routines.inc.F90"
2380 : #undef DISPATCH_ENABLED
2381 : end procedure
2382 : #endif
2383 :
2384 : #if CK1_ENABLED
2385 0 : module procedure setMC_EXP_ANI_UXD_OTH_CK1
2386 : use pm_kind, only: TKC => CK1
2387 : #define DISPATCH_ENABLED 1
2388 : #include "pm_matrixChol@routines.inc.F90"
2389 : #undef DISPATCH_ENABLED
2390 : end procedure
2391 : #endif
2392 :
2393 : #undef CK_ENABLED
2394 :
2395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2396 :
2397 : #define RK_ENABLED 1
2398 :
2399 : #if RK5_ENABLED
2400 : module procedure setMC_EXP_ANI_UXD_OTH_RK5
2401 : use pm_kind, only: TKC => RK5
2402 : #include "pm_matrixChol@routines.inc.F90"
2403 : end procedure
2404 : #endif
2405 :
2406 : #if RK4_ENABLED
2407 0 : module procedure setMC_EXP_ANI_UXD_OTH_RK4
2408 : use pm_kind, only: TKC => RK4
2409 : #include "pm_matrixChol@routines.inc.F90"
2410 : end procedure
2411 : #endif
2412 :
2413 : #if RK3_ENABLED
2414 0 : module procedure setMC_EXP_ANI_UXD_OTH_RK3
2415 : use pm_kind, only: TKC => RK3
2416 : #include "pm_matrixChol@routines.inc.F90"
2417 : end procedure
2418 : #endif
2419 :
2420 : #if RK2_ENABLED
2421 0 : module procedure setMC_EXP_ANI_UXD_OTH_RK2
2422 : use pm_kind, only: TKC => RK2
2423 : #define DISPATCH_ENABLED 1
2424 : #include "pm_matrixChol@routines.inc.F90"
2425 : #undef DISPATCH_ENABLED
2426 : end procedure
2427 : #endif
2428 :
2429 : #if RK1_ENABLED
2430 0 : module procedure setMC_EXP_ANI_UXD_OTH_RK1
2431 : use pm_kind, only: TKC => RK1
2432 : #define DISPATCH_ENABLED 1
2433 : #include "pm_matrixChol@routines.inc.F90"
2434 : #undef DISPATCH_ENABLED
2435 : end procedure
2436 : #endif
2437 :
2438 : #undef RK_ENABLED
2439 :
2440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2441 :
2442 : #undef UXD_ENABLED
2443 :
2444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2447 :
2448 : #define XLD_ENABLED 1
2449 :
2450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2451 :
2452 : #define CK_ENABLED 1
2453 :
2454 : #if CK5_ENABLED
2455 : module procedure setMC_EXP_ANI_XLD_OTH_CK5
2456 : use pm_kind, only: TKC => CK5
2457 : #include "pm_matrixChol@routines.inc.F90"
2458 : end procedure
2459 : #endif
2460 :
2461 : #if CK4_ENABLED
2462 0 : module procedure setMC_EXP_ANI_XLD_OTH_CK4
2463 : use pm_kind, only: TKC => CK4
2464 : #include "pm_matrixChol@routines.inc.F90"
2465 : end procedure
2466 : #endif
2467 :
2468 : #if CK3_ENABLED
2469 0 : module procedure setMC_EXP_ANI_XLD_OTH_CK3
2470 : use pm_kind, only: TKC => CK3
2471 : #include "pm_matrixChol@routines.inc.F90"
2472 : end procedure
2473 : #endif
2474 :
2475 : #if CK2_ENABLED
2476 0 : module procedure setMC_EXP_ANI_XLD_OTH_CK2
2477 : use pm_kind, only: TKC => CK2
2478 : #define DISPATCH_ENABLED 1
2479 : #include "pm_matrixChol@routines.inc.F90"
2480 : #undef DISPATCH_ENABLED
2481 : end procedure
2482 : #endif
2483 :
2484 : #if CK1_ENABLED
2485 0 : module procedure setMC_EXP_ANI_XLD_OTH_CK1
2486 : use pm_kind, only: TKC => CK1
2487 : #define DISPATCH_ENABLED 1
2488 : #include "pm_matrixChol@routines.inc.F90"
2489 : #undef DISPATCH_ENABLED
2490 : end procedure
2491 : #endif
2492 :
2493 : #undef CK_ENABLED
2494 :
2495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2496 :
2497 : #define RK_ENABLED 1
2498 :
2499 : #if RK5_ENABLED
2500 : module procedure setMC_EXP_ANI_XLD_OTH_RK5
2501 : use pm_kind, only: TKC => RK5
2502 : #include "pm_matrixChol@routines.inc.F90"
2503 : end procedure
2504 : #endif
2505 :
2506 : #if RK4_ENABLED
2507 0 : module procedure setMC_EXP_ANI_XLD_OTH_RK4
2508 : use pm_kind, only: TKC => RK4
2509 : #include "pm_matrixChol@routines.inc.F90"
2510 : end procedure
2511 : #endif
2512 :
2513 : #if RK3_ENABLED
2514 0 : module procedure setMC_EXP_ANI_XLD_OTH_RK3
2515 : use pm_kind, only: TKC => RK3
2516 : #include "pm_matrixChol@routines.inc.F90"
2517 : end procedure
2518 : #endif
2519 :
2520 : #if RK2_ENABLED
2521 0 : module procedure setMC_EXP_ANI_XLD_OTH_RK2
2522 : use pm_kind, only: TKC => RK2
2523 : #define DISPATCH_ENABLED 1
2524 : #include "pm_matrixChol@routines.inc.F90"
2525 : #undef DISPATCH_ENABLED
2526 : end procedure
2527 : #endif
2528 :
2529 : #if RK1_ENABLED
2530 0 : module procedure setMC_EXP_ANI_XLD_OTH_RK1
2531 : use pm_kind, only: TKC => RK1
2532 : #define DISPATCH_ENABLED 1
2533 : #include "pm_matrixChol@routines.inc.F90"
2534 : #undef DISPATCH_ENABLED
2535 : end procedure
2536 : #endif
2537 :
2538 : #undef RK_ENABLED
2539 :
2540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2541 :
2542 : #undef XLD_ENABLED
2543 :
2544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2547 :
2548 : #undef OTH_ENABLED
2549 :
2550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2553 :
2554 : #undef ANI_ENABLED
2555 :
2556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2559 :
2560 : #undef EXP_ENABLED
2561 :
2562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2565 :
2566 : #undef setMatChol_ENABLED
2567 :
2568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2569 :
2570 : end submodule routines
|
