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_matrixTrans](@ref pm_matrixTrans).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_matrixTrans) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_matrixLUP, only: setMatLUP
40 : !use pm_matrixInit, only: setMatInit
41 : use pm_matrixCopy, only: setMatCopy, rdpack
42 : use pm_matrixCopy, only: getMatCopy, lfpack, dia
43 : implicit none
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : contains
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define setMatTrans_ENABLED 1
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define Fix_ENABLED 1
58 :
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #define Symm_ENABLED 1
64 :
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 :
69 : #define Old_ENABLED 1
70 :
71 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 :
73 : #define SK_ENABLED 1
74 :
75 : #if SK5_ENABLED
76 : module procedure setMatTransSymmOldFix_SK5
77 : #include "pm_matrixTrans@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK4_ENABLED
82 : module procedure setMatTransSymmOldFix_SK4
83 : #include "pm_matrixTrans@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if SK3_ENABLED
88 : module procedure setMatTransSymmOldFix_SK3
89 : #include "pm_matrixTrans@routines.inc.F90"
90 : end procedure
91 : #endif
92 :
93 : #if SK2_ENABLED
94 : module procedure setMatTransSymmOldFix_SK2
95 : #include "pm_matrixTrans@routines.inc.F90"
96 : end procedure
97 : #endif
98 :
99 : #if SK1_ENABLED
100 1 : module procedure setMatTransSymmOldFix_SK1
101 : #include "pm_matrixTrans@routines.inc.F90"
102 1 : end procedure
103 : #endif
104 :
105 : #undef SK_ENABLED
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define IK_ENABLED 1
110 :
111 : #if IK5_ENABLED
112 0 : module procedure setMatTransSymmOldFix_IK5
113 : #include "pm_matrixTrans@routines.inc.F90"
114 0 : end procedure
115 : #endif
116 :
117 : #if IK4_ENABLED
118 0 : module procedure setMatTransSymmOldFix_IK4
119 : #include "pm_matrixTrans@routines.inc.F90"
120 0 : end procedure
121 : #endif
122 :
123 : #if IK3_ENABLED
124 0 : module procedure setMatTransSymmOldFix_IK3
125 : #include "pm_matrixTrans@routines.inc.F90"
126 0 : end procedure
127 : #endif
128 :
129 : #if IK2_ENABLED
130 0 : module procedure setMatTransSymmOldFix_IK2
131 : #include "pm_matrixTrans@routines.inc.F90"
132 0 : end procedure
133 : #endif
134 :
135 : #if IK1_ENABLED
136 0 : module procedure setMatTransSymmOldFix_IK1
137 : #include "pm_matrixTrans@routines.inc.F90"
138 0 : end procedure
139 : #endif
140 :
141 : #undef IK_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #define LK_ENABLED 1
146 :
147 : #if LK5_ENABLED
148 0 : module procedure setMatTransSymmOldFix_LK5
149 : use pm_logicalCompare, only: operator(<)
150 : #include "pm_matrixTrans@routines.inc.F90"
151 0 : end procedure
152 : #endif
153 :
154 : #if LK4_ENABLED
155 0 : module procedure setMatTransSymmOldFix_LK4
156 : use pm_logicalCompare, only: operator(<)
157 : #include "pm_matrixTrans@routines.inc.F90"
158 0 : end procedure
159 : #endif
160 :
161 : #if LK3_ENABLED
162 0 : module procedure setMatTransSymmOldFix_LK3
163 : use pm_logicalCompare, only: operator(<)
164 : #include "pm_matrixTrans@routines.inc.F90"
165 0 : end procedure
166 : #endif
167 :
168 : #if LK2_ENABLED
169 0 : module procedure setMatTransSymmOldFix_LK2
170 : use pm_logicalCompare, only: operator(<)
171 : #include "pm_matrixTrans@routines.inc.F90"
172 0 : end procedure
173 : #endif
174 :
175 : #if LK1_ENABLED
176 0 : module procedure setMatTransSymmOldFix_LK1
177 : use pm_logicalCompare, only: operator(<)
178 : #include "pm_matrixTrans@routines.inc.F90"
179 0 : end procedure
180 : #endif
181 :
182 : #undef LK_ENABLED
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #define CK_ENABLED 1
187 :
188 : #if CK5_ENABLED
189 : module procedure setMatTransSymmOldFix_CK5
190 : use pm_complexCompareLex, only: operator(<)
191 : #include "pm_matrixTrans@routines.inc.F90"
192 : end procedure
193 : #endif
194 :
195 : #if CK4_ENABLED
196 0 : module procedure setMatTransSymmOldFix_CK4
197 : use pm_complexCompareLex, only: operator(<)
198 : #include "pm_matrixTrans@routines.inc.F90"
199 0 : end procedure
200 : #endif
201 :
202 : #if CK3_ENABLED
203 0 : module procedure setMatTransSymmOldFix_CK3
204 : use pm_complexCompareLex, only: operator(<)
205 : #include "pm_matrixTrans@routines.inc.F90"
206 0 : end procedure
207 : #endif
208 :
209 : #if CK2_ENABLED
210 0 : module procedure setMatTransSymmOldFix_CK2
211 : use pm_complexCompareLex, only: operator(<)
212 : #include "pm_matrixTrans@routines.inc.F90"
213 0 : end procedure
214 : #endif
215 :
216 : #if CK1_ENABLED
217 0 : module procedure setMatTransSymmOldFix_CK1
218 : use pm_complexCompareLex, only: operator(<)
219 : #include "pm_matrixTrans@routines.inc.F90"
220 0 : end procedure
221 : #endif
222 :
223 : #undef CK_ENABLED
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #define RK_ENABLED 1
228 :
229 : #if RK5_ENABLED
230 : module procedure setMatTransSymmOldFix_RK5
231 : #include "pm_matrixTrans@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if RK4_ENABLED
236 0 : module procedure setMatTransSymmOldFix_RK4
237 : #include "pm_matrixTrans@routines.inc.F90"
238 0 : end procedure
239 : #endif
240 :
241 : #if RK3_ENABLED
242 0 : module procedure setMatTransSymmOldFix_RK3
243 : #include "pm_matrixTrans@routines.inc.F90"
244 0 : end procedure
245 : #endif
246 :
247 : #if RK2_ENABLED
248 0 : module procedure setMatTransSymmOldFix_RK2
249 : #include "pm_matrixTrans@routines.inc.F90"
250 0 : end procedure
251 : #endif
252 :
253 : #if RK1_ENABLED
254 0 : module procedure setMatTransSymmOldFix_RK1
255 : #include "pm_matrixTrans@routines.inc.F90"
256 0 : end procedure
257 : #endif
258 :
259 : #undef RK_ENABLED
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 :
263 : #undef Old_ENABLED
264 :
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 :
269 : #define New_ENABLED 1
270 :
271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
272 :
273 : #define SK_ENABLED 1
274 :
275 : #if SK5_ENABLED
276 : module procedure setMatTransSymmNewFix_SK5
277 : #include "pm_matrixTrans@routines.inc.F90"
278 : end procedure
279 : #endif
280 :
281 : #if SK4_ENABLED
282 : module procedure setMatTransSymmNewFix_SK4
283 : #include "pm_matrixTrans@routines.inc.F90"
284 : end procedure
285 : #endif
286 :
287 : #if SK3_ENABLED
288 : module procedure setMatTransSymmNewFix_SK3
289 : #include "pm_matrixTrans@routines.inc.F90"
290 : end procedure
291 : #endif
292 :
293 : #if SK2_ENABLED
294 : module procedure setMatTransSymmNewFix_SK2
295 : #include "pm_matrixTrans@routines.inc.F90"
296 : end procedure
297 : #endif
298 :
299 : #if SK1_ENABLED
300 1 : module procedure setMatTransSymmNewFix_SK1
301 : #include "pm_matrixTrans@routines.inc.F90"
302 1 : end procedure
303 : #endif
304 :
305 : #undef SK_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #define IK_ENABLED 1
310 :
311 : #if IK5_ENABLED
312 0 : module procedure setMatTransSymmNewFix_IK5
313 : #include "pm_matrixTrans@routines.inc.F90"
314 0 : end procedure
315 : #endif
316 :
317 : #if IK4_ENABLED
318 0 : module procedure setMatTransSymmNewFix_IK4
319 : #include "pm_matrixTrans@routines.inc.F90"
320 0 : end procedure
321 : #endif
322 :
323 : #if IK3_ENABLED
324 0 : module procedure setMatTransSymmNewFix_IK3
325 : #include "pm_matrixTrans@routines.inc.F90"
326 0 : end procedure
327 : #endif
328 :
329 : #if IK2_ENABLED
330 0 : module procedure setMatTransSymmNewFix_IK2
331 : #include "pm_matrixTrans@routines.inc.F90"
332 0 : end procedure
333 : #endif
334 :
335 : #if IK1_ENABLED
336 0 : module procedure setMatTransSymmNewFix_IK1
337 : #include "pm_matrixTrans@routines.inc.F90"
338 0 : end procedure
339 : #endif
340 :
341 : #undef IK_ENABLED
342 :
343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 :
345 : #define LK_ENABLED 1
346 :
347 : #if LK5_ENABLED
348 0 : module procedure setMatTransSymmNewFix_LK5
349 : use pm_logicalCompare, only: operator(<)
350 : #include "pm_matrixTrans@routines.inc.F90"
351 0 : end procedure
352 : #endif
353 :
354 : #if LK4_ENABLED
355 0 : module procedure setMatTransSymmNewFix_LK4
356 : use pm_logicalCompare, only: operator(<)
357 : #include "pm_matrixTrans@routines.inc.F90"
358 0 : end procedure
359 : #endif
360 :
361 : #if LK3_ENABLED
362 0 : module procedure setMatTransSymmNewFix_LK3
363 : use pm_logicalCompare, only: operator(<)
364 : #include "pm_matrixTrans@routines.inc.F90"
365 0 : end procedure
366 : #endif
367 :
368 : #if LK2_ENABLED
369 0 : module procedure setMatTransSymmNewFix_LK2
370 : use pm_logicalCompare, only: operator(<)
371 : #include "pm_matrixTrans@routines.inc.F90"
372 0 : end procedure
373 : #endif
374 :
375 : #if LK1_ENABLED
376 0 : module procedure setMatTransSymmNewFix_LK1
377 : use pm_logicalCompare, only: operator(<)
378 : #include "pm_matrixTrans@routines.inc.F90"
379 0 : end procedure
380 : #endif
381 :
382 : #undef LK_ENABLED
383 :
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 :
386 : #define CK_ENABLED 1
387 :
388 : #if CK5_ENABLED
389 : module procedure setMatTransSymmNewFix_CK5
390 : use pm_complexCompareLex, only: operator(<)
391 : #include "pm_matrixTrans@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #if CK4_ENABLED
396 0 : module procedure setMatTransSymmNewFix_CK4
397 : use pm_complexCompareLex, only: operator(<)
398 : #include "pm_matrixTrans@routines.inc.F90"
399 0 : end procedure
400 : #endif
401 :
402 : #if CK3_ENABLED
403 0 : module procedure setMatTransSymmNewFix_CK3
404 : use pm_complexCompareLex, only: operator(<)
405 : #include "pm_matrixTrans@routines.inc.F90"
406 0 : end procedure
407 : #endif
408 :
409 : #if CK2_ENABLED
410 0 : module procedure setMatTransSymmNewFix_CK2
411 : use pm_complexCompareLex, only: operator(<)
412 : #include "pm_matrixTrans@routines.inc.F90"
413 0 : end procedure
414 : #endif
415 :
416 : #if CK1_ENABLED
417 0 : module procedure setMatTransSymmNewFix_CK1
418 : use pm_complexCompareLex, only: operator(<)
419 : #include "pm_matrixTrans@routines.inc.F90"
420 0 : end procedure
421 : #endif
422 :
423 : #undef CK_ENABLED
424 :
425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
426 :
427 : #define RK_ENABLED 1
428 :
429 : #if RK5_ENABLED
430 : module procedure setMatTransSymmNewFix_RK5
431 : #include "pm_matrixTrans@routines.inc.F90"
432 : end procedure
433 : #endif
434 :
435 : #if RK4_ENABLED
436 0 : module procedure setMatTransSymmNewFix_RK4
437 : #include "pm_matrixTrans@routines.inc.F90"
438 0 : end procedure
439 : #endif
440 :
441 : #if RK3_ENABLED
442 0 : module procedure setMatTransSymmNewFix_RK3
443 : #include "pm_matrixTrans@routines.inc.F90"
444 0 : end procedure
445 : #endif
446 :
447 : #if RK2_ENABLED
448 0 : module procedure setMatTransSymmNewFix_RK2
449 : #include "pm_matrixTrans@routines.inc.F90"
450 0 : end procedure
451 : #endif
452 :
453 : #if RK1_ENABLED
454 0 : module procedure setMatTransSymmNewFix_RK1
455 : #include "pm_matrixTrans@routines.inc.F90"
456 0 : end procedure
457 : #endif
458 :
459 : #undef RK_ENABLED
460 :
461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462 :
463 : #undef New_ENABLED
464 :
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468 :
469 : #undef Symm_ENABLED
470 :
471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 :
475 : #define Herm_ENABLED 1
476 :
477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 :
481 : #define Old_ENABLED 1
482 :
483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484 :
485 : #define CK_ENABLED 1
486 :
487 : #if CK5_ENABLED
488 : module procedure setMatTransHermOldFix_CK5
489 : use pm_complexCompareLex, only: operator(<)
490 : #include "pm_matrixTrans@routines.inc.F90"
491 : end procedure
492 : #endif
493 :
494 : #if CK4_ENABLED
495 0 : module procedure setMatTransHermOldFix_CK4
496 : use pm_complexCompareLex, only: operator(<)
497 : #include "pm_matrixTrans@routines.inc.F90"
498 0 : end procedure
499 : #endif
500 :
501 : #if CK3_ENABLED
502 0 : module procedure setMatTransHermOldFix_CK3
503 : use pm_complexCompareLex, only: operator(<)
504 : #include "pm_matrixTrans@routines.inc.F90"
505 0 : end procedure
506 : #endif
507 :
508 : #if CK2_ENABLED
509 0 : module procedure setMatTransHermOldFix_CK2
510 : use pm_complexCompareLex, only: operator(<)
511 : #include "pm_matrixTrans@routines.inc.F90"
512 0 : end procedure
513 : #endif
514 :
515 : #if CK1_ENABLED
516 0 : module procedure setMatTransHermOldFix_CK1
517 : use pm_complexCompareLex, only: operator(<)
518 : #include "pm_matrixTrans@routines.inc.F90"
519 0 : end procedure
520 : #endif
521 :
522 : #undef CK_ENABLED
523 :
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 :
526 : #undef Old_ENABLED
527 :
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #define New_ENABLED 1
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #define CK_ENABLED 1
537 :
538 : #if CK5_ENABLED
539 : module procedure setMatTransHermNewFix_CK5
540 : use pm_complexCompareLex, only: operator(<)
541 : #include "pm_matrixTrans@routines.inc.F90"
542 : end procedure
543 : #endif
544 :
545 : #if CK4_ENABLED
546 0 : module procedure setMatTransHermNewFix_CK4
547 : use pm_complexCompareLex, only: operator(<)
548 : #include "pm_matrixTrans@routines.inc.F90"
549 0 : end procedure
550 : #endif
551 :
552 : #if CK3_ENABLED
553 0 : module procedure setMatTransHermNewFix_CK3
554 : use pm_complexCompareLex, only: operator(<)
555 : #include "pm_matrixTrans@routines.inc.F90"
556 0 : end procedure
557 : #endif
558 :
559 : #if CK2_ENABLED
560 0 : module procedure setMatTransHermNewFix_CK2
561 : use pm_complexCompareLex, only: operator(<)
562 : #include "pm_matrixTrans@routines.inc.F90"
563 0 : end procedure
564 : #endif
565 :
566 : #if CK1_ENABLED
567 0 : module procedure setMatTransHermNewFix_CK1
568 : use pm_complexCompareLex, only: operator(<)
569 : #include "pm_matrixTrans@routines.inc.F90"
570 0 : end procedure
571 : #endif
572 :
573 : #undef CK_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 :
577 : #undef New_ENABLED
578 :
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582 :
583 : #undef Herm_ENABLED
584 :
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 :
589 : #undef Fix_ENABLED
590 :
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
594 :
595 : #define Arb_ENABLED 1
596 :
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
600 :
601 : #define Symm_ENABLED 1
602 :
603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 :
607 : #define Old_ENABLED 1
608 :
609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
610 :
611 : #define SK_ENABLED 1
612 :
613 : #if SK5_ENABLED
614 : module procedure setMatTransSymmOldArb_SK5
615 : #include "pm_matrixTrans@routines.inc.F90"
616 : end procedure
617 : #endif
618 :
619 : #if SK4_ENABLED
620 : module procedure setMatTransSymmOldArb_SK4
621 : #include "pm_matrixTrans@routines.inc.F90"
622 : end procedure
623 : #endif
624 :
625 : #if SK3_ENABLED
626 : module procedure setMatTransSymmOldArb_SK3
627 : #include "pm_matrixTrans@routines.inc.F90"
628 : end procedure
629 : #endif
630 :
631 : #if SK2_ENABLED
632 : module procedure setMatTransSymmOldArb_SK2
633 : #include "pm_matrixTrans@routines.inc.F90"
634 : end procedure
635 : #endif
636 :
637 : #if SK1_ENABLED
638 0 : module procedure setMatTransSymmOldArb_SK1
639 : #include "pm_matrixTrans@routines.inc.F90"
640 0 : end procedure
641 : #endif
642 :
643 : #undef SK_ENABLED
644 :
645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
646 :
647 : #define IK_ENABLED 1
648 :
649 : #if IK5_ENABLED
650 0 : module procedure setMatTransSymmOldArb_IK5
651 : #include "pm_matrixTrans@routines.inc.F90"
652 0 : end procedure
653 : #endif
654 :
655 : #if IK4_ENABLED
656 0 : module procedure setMatTransSymmOldArb_IK4
657 : #include "pm_matrixTrans@routines.inc.F90"
658 0 : end procedure
659 : #endif
660 :
661 : #if IK3_ENABLED
662 0 : module procedure setMatTransSymmOldArb_IK3
663 : #include "pm_matrixTrans@routines.inc.F90"
664 0 : end procedure
665 : #endif
666 :
667 : #if IK2_ENABLED
668 0 : module procedure setMatTransSymmOldArb_IK2
669 : #include "pm_matrixTrans@routines.inc.F90"
670 0 : end procedure
671 : #endif
672 :
673 : #if IK1_ENABLED
674 0 : module procedure setMatTransSymmOldArb_IK1
675 : #include "pm_matrixTrans@routines.inc.F90"
676 0 : end procedure
677 : #endif
678 :
679 : #undef IK_ENABLED
680 :
681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682 :
683 : #define LK_ENABLED 1
684 :
685 : #if LK5_ENABLED
686 0 : module procedure setMatTransSymmOldArb_LK5
687 : use pm_logicalCompare, only: operator(<)
688 : #include "pm_matrixTrans@routines.inc.F90"
689 0 : end procedure
690 : #endif
691 :
692 : #if LK4_ENABLED
693 0 : module procedure setMatTransSymmOldArb_LK4
694 : use pm_logicalCompare, only: operator(<)
695 : #include "pm_matrixTrans@routines.inc.F90"
696 0 : end procedure
697 : #endif
698 :
699 : #if LK3_ENABLED
700 0 : module procedure setMatTransSymmOldArb_LK3
701 : use pm_logicalCompare, only: operator(<)
702 : #include "pm_matrixTrans@routines.inc.F90"
703 0 : end procedure
704 : #endif
705 :
706 : #if LK2_ENABLED
707 0 : module procedure setMatTransSymmOldArb_LK2
708 : use pm_logicalCompare, only: operator(<)
709 : #include "pm_matrixTrans@routines.inc.F90"
710 0 : end procedure
711 : #endif
712 :
713 : #if LK1_ENABLED
714 0 : module procedure setMatTransSymmOldArb_LK1
715 : use pm_logicalCompare, only: operator(<)
716 : #include "pm_matrixTrans@routines.inc.F90"
717 0 : end procedure
718 : #endif
719 :
720 : #undef LK_ENABLED
721 :
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 :
724 : #define CK_ENABLED 1
725 :
726 : #if CK5_ENABLED
727 : module procedure setMatTransSymmOldArb_CK5
728 : use pm_complexCompareLex, only: operator(<)
729 : #include "pm_matrixTrans@routines.inc.F90"
730 : end procedure
731 : #endif
732 :
733 : #if CK4_ENABLED
734 0 : module procedure setMatTransSymmOldArb_CK4
735 : use pm_complexCompareLex, only: operator(<)
736 : #include "pm_matrixTrans@routines.inc.F90"
737 0 : end procedure
738 : #endif
739 :
740 : #if CK3_ENABLED
741 0 : module procedure setMatTransSymmOldArb_CK3
742 : use pm_complexCompareLex, only: operator(<)
743 : #include "pm_matrixTrans@routines.inc.F90"
744 0 : end procedure
745 : #endif
746 :
747 : #if CK2_ENABLED
748 0 : module procedure setMatTransSymmOldArb_CK2
749 : use pm_complexCompareLex, only: operator(<)
750 : #include "pm_matrixTrans@routines.inc.F90"
751 0 : end procedure
752 : #endif
753 :
754 : #if CK1_ENABLED
755 0 : module procedure setMatTransSymmOldArb_CK1
756 : use pm_complexCompareLex, only: operator(<)
757 : #include "pm_matrixTrans@routines.inc.F90"
758 0 : end procedure
759 : #endif
760 :
761 : #undef CK_ENABLED
762 :
763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
764 :
765 : #define RK_ENABLED 1
766 :
767 : #if RK5_ENABLED
768 : module procedure setMatTransSymmOldArb_RK5
769 : #include "pm_matrixTrans@routines.inc.F90"
770 : end procedure
771 : #endif
772 :
773 : #if RK4_ENABLED
774 0 : module procedure setMatTransSymmOldArb_RK4
775 : #include "pm_matrixTrans@routines.inc.F90"
776 0 : end procedure
777 : #endif
778 :
779 : #if RK3_ENABLED
780 0 : module procedure setMatTransSymmOldArb_RK3
781 : #include "pm_matrixTrans@routines.inc.F90"
782 0 : end procedure
783 : #endif
784 :
785 : #if RK2_ENABLED
786 0 : module procedure setMatTransSymmOldArb_RK2
787 : #include "pm_matrixTrans@routines.inc.F90"
788 0 : end procedure
789 : #endif
790 :
791 : #if RK1_ENABLED
792 0 : module procedure setMatTransSymmOldArb_RK1
793 : #include "pm_matrixTrans@routines.inc.F90"
794 0 : end procedure
795 : #endif
796 :
797 : #undef RK_ENABLED
798 :
799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800 :
801 : #undef Old_ENABLED
802 :
803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
806 :
807 : #define New_ENABLED 1
808 :
809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
810 :
811 : #define SK_ENABLED 1
812 :
813 : #if SK5_ENABLED
814 : module procedure setMatTransSymmNewArb_SK5
815 : #include "pm_matrixTrans@routines.inc.F90"
816 : end procedure
817 : #endif
818 :
819 : #if SK4_ENABLED
820 : module procedure setMatTransSymmNewArb_SK4
821 : #include "pm_matrixTrans@routines.inc.F90"
822 : end procedure
823 : #endif
824 :
825 : #if SK3_ENABLED
826 : module procedure setMatTransSymmNewArb_SK3
827 : #include "pm_matrixTrans@routines.inc.F90"
828 : end procedure
829 : #endif
830 :
831 : #if SK2_ENABLED
832 : module procedure setMatTransSymmNewArb_SK2
833 : #include "pm_matrixTrans@routines.inc.F90"
834 : end procedure
835 : #endif
836 :
837 : #if SK1_ENABLED
838 0 : module procedure setMatTransSymmNewArb_SK1
839 : #include "pm_matrixTrans@routines.inc.F90"
840 0 : end procedure
841 : #endif
842 :
843 : #undef SK_ENABLED
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 :
847 : #define IK_ENABLED 1
848 :
849 : #if IK5_ENABLED
850 0 : module procedure setMatTransSymmNewArb_IK5
851 : #include "pm_matrixTrans@routines.inc.F90"
852 0 : end procedure
853 : #endif
854 :
855 : #if IK4_ENABLED
856 0 : module procedure setMatTransSymmNewArb_IK4
857 : #include "pm_matrixTrans@routines.inc.F90"
858 0 : end procedure
859 : #endif
860 :
861 : #if IK3_ENABLED
862 0 : module procedure setMatTransSymmNewArb_IK3
863 : #include "pm_matrixTrans@routines.inc.F90"
864 0 : end procedure
865 : #endif
866 :
867 : #if IK2_ENABLED
868 0 : module procedure setMatTransSymmNewArb_IK2
869 : #include "pm_matrixTrans@routines.inc.F90"
870 0 : end procedure
871 : #endif
872 :
873 : #if IK1_ENABLED
874 0 : module procedure setMatTransSymmNewArb_IK1
875 : #include "pm_matrixTrans@routines.inc.F90"
876 0 : end procedure
877 : #endif
878 :
879 : #undef IK_ENABLED
880 :
881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
882 :
883 : #define LK_ENABLED 1
884 :
885 : #if LK5_ENABLED
886 0 : module procedure setMatTransSymmNewArb_LK5
887 : use pm_logicalCompare, only: operator(<)
888 : #include "pm_matrixTrans@routines.inc.F90"
889 0 : end procedure
890 : #endif
891 :
892 : #if LK4_ENABLED
893 0 : module procedure setMatTransSymmNewArb_LK4
894 : use pm_logicalCompare, only: operator(<)
895 : #include "pm_matrixTrans@routines.inc.F90"
896 0 : end procedure
897 : #endif
898 :
899 : #if LK3_ENABLED
900 0 : module procedure setMatTransSymmNewArb_LK3
901 : use pm_logicalCompare, only: operator(<)
902 : #include "pm_matrixTrans@routines.inc.F90"
903 0 : end procedure
904 : #endif
905 :
906 : #if LK2_ENABLED
907 0 : module procedure setMatTransSymmNewArb_LK2
908 : use pm_logicalCompare, only: operator(<)
909 : #include "pm_matrixTrans@routines.inc.F90"
910 0 : end procedure
911 : #endif
912 :
913 : #if LK1_ENABLED
914 0 : module procedure setMatTransSymmNewArb_LK1
915 : use pm_logicalCompare, only: operator(<)
916 : #include "pm_matrixTrans@routines.inc.F90"
917 0 : end procedure
918 : #endif
919 :
920 : #undef LK_ENABLED
921 :
922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
923 :
924 : #define CK_ENABLED 1
925 :
926 : #if CK5_ENABLED
927 : module procedure setMatTransSymmNewArb_CK5
928 : use pm_complexCompareLex, only: operator(<)
929 : #include "pm_matrixTrans@routines.inc.F90"
930 : end procedure
931 : #endif
932 :
933 : #if CK4_ENABLED
934 0 : module procedure setMatTransSymmNewArb_CK4
935 : use pm_complexCompareLex, only: operator(<)
936 : #include "pm_matrixTrans@routines.inc.F90"
937 0 : end procedure
938 : #endif
939 :
940 : #if CK3_ENABLED
941 0 : module procedure setMatTransSymmNewArb_CK3
942 : use pm_complexCompareLex, only: operator(<)
943 : #include "pm_matrixTrans@routines.inc.F90"
944 0 : end procedure
945 : #endif
946 :
947 : #if CK2_ENABLED
948 0 : module procedure setMatTransSymmNewArb_CK2
949 : use pm_complexCompareLex, only: operator(<)
950 : #include "pm_matrixTrans@routines.inc.F90"
951 0 : end procedure
952 : #endif
953 :
954 : #if CK1_ENABLED
955 0 : module procedure setMatTransSymmNewArb_CK1
956 : use pm_complexCompareLex, only: operator(<)
957 : #include "pm_matrixTrans@routines.inc.F90"
958 0 : end procedure
959 : #endif
960 :
961 : #undef CK_ENABLED
962 :
963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
964 :
965 : #define RK_ENABLED 1
966 :
967 : #if RK5_ENABLED
968 : module procedure setMatTransSymmNewArb_RK5
969 : #include "pm_matrixTrans@routines.inc.F90"
970 : end procedure
971 : #endif
972 :
973 : #if RK4_ENABLED
974 0 : module procedure setMatTransSymmNewArb_RK4
975 : #include "pm_matrixTrans@routines.inc.F90"
976 0 : end procedure
977 : #endif
978 :
979 : #if RK3_ENABLED
980 0 : module procedure setMatTransSymmNewArb_RK3
981 : #include "pm_matrixTrans@routines.inc.F90"
982 0 : end procedure
983 : #endif
984 :
985 : #if RK2_ENABLED
986 0 : module procedure setMatTransSymmNewArb_RK2
987 : #include "pm_matrixTrans@routines.inc.F90"
988 0 : end procedure
989 : #endif
990 :
991 : #if RK1_ENABLED
992 0 : module procedure setMatTransSymmNewArb_RK1
993 : #include "pm_matrixTrans@routines.inc.F90"
994 0 : end procedure
995 : #endif
996 :
997 : #undef RK_ENABLED
998 :
999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 :
1001 : #undef New_ENABLED
1002 :
1003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1006 :
1007 : #undef Symm_ENABLED
1008 :
1009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1012 :
1013 : #define Herm_ENABLED 1
1014 :
1015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018 :
1019 : #define Old_ENABLED 1
1020 :
1021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1022 :
1023 : #define CK_ENABLED 1
1024 :
1025 : #if CK5_ENABLED
1026 : module procedure setMatTransHermOldArb_CK5
1027 : use pm_complexCompareLex, only: operator(<)
1028 : #include "pm_matrixTrans@routines.inc.F90"
1029 : end procedure
1030 : #endif
1031 :
1032 : #if CK4_ENABLED
1033 0 : module procedure setMatTransHermOldArb_CK4
1034 : use pm_complexCompareLex, only: operator(<)
1035 : #include "pm_matrixTrans@routines.inc.F90"
1036 0 : end procedure
1037 : #endif
1038 :
1039 : #if CK3_ENABLED
1040 0 : module procedure setMatTransHermOldArb_CK3
1041 : use pm_complexCompareLex, only: operator(<)
1042 : #include "pm_matrixTrans@routines.inc.F90"
1043 0 : end procedure
1044 : #endif
1045 :
1046 : #if CK2_ENABLED
1047 0 : module procedure setMatTransHermOldArb_CK2
1048 : use pm_complexCompareLex, only: operator(<)
1049 : #include "pm_matrixTrans@routines.inc.F90"
1050 0 : end procedure
1051 : #endif
1052 :
1053 : #if CK1_ENABLED
1054 0 : module procedure setMatTransHermOldArb_CK1
1055 : use pm_complexCompareLex, only: operator(<)
1056 : #include "pm_matrixTrans@routines.inc.F90"
1057 0 : end procedure
1058 : #endif
1059 :
1060 : #undef CK_ENABLED
1061 :
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 :
1064 : #undef Old_ENABLED
1065 :
1066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 :
1070 : #define New_ENABLED 1
1071 :
1072 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1073 :
1074 : #define CK_ENABLED 1
1075 :
1076 : #if CK5_ENABLED
1077 : module procedure setMatTransHermNewArb_CK5
1078 : use pm_complexCompareLex, only: operator(<)
1079 : #include "pm_matrixTrans@routines.inc.F90"
1080 : end procedure
1081 : #endif
1082 :
1083 : #if CK4_ENABLED
1084 0 : module procedure setMatTransHermNewArb_CK4
1085 : use pm_complexCompareLex, only: operator(<)
1086 : #include "pm_matrixTrans@routines.inc.F90"
1087 0 : end procedure
1088 : #endif
1089 :
1090 : #if CK3_ENABLED
1091 0 : module procedure setMatTransHermNewArb_CK3
1092 : use pm_complexCompareLex, only: operator(<)
1093 : #include "pm_matrixTrans@routines.inc.F90"
1094 0 : end procedure
1095 : #endif
1096 :
1097 : #if CK2_ENABLED
1098 0 : module procedure setMatTransHermNewArb_CK2
1099 : use pm_complexCompareLex, only: operator(<)
1100 : #include "pm_matrixTrans@routines.inc.F90"
1101 0 : end procedure
1102 : #endif
1103 :
1104 : #if CK1_ENABLED
1105 0 : module procedure setMatTransHermNewArb_CK1
1106 : use pm_complexCompareLex, only: operator(<)
1107 : #include "pm_matrixTrans@routines.inc.F90"
1108 0 : end procedure
1109 : #endif
1110 :
1111 : #undef CK_ENABLED
1112 :
1113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114 :
1115 : #undef New_ENABLED
1116 :
1117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120 :
1121 : #undef Herm_ENABLED
1122 :
1123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1126 :
1127 : #undef Arb_ENABLED
1128 :
1129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 :
1133 : #undef setMatTrans_ENABLED
1134 :
1135 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1136 :
1137 : #undef CHECK_ASSERTION
1138 :
1139 : end submodule routines
|
