ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_matrixMulTri.F90
Go to the documentation of this file.
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
100
101!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102
104
105 use pm_kind, only: SK, IK, LK
115 use pm_array, only: nothing, nothing_type
116
117 implicit none
118
119 character(*, SK), parameter :: MODULE_NAME = "@pm_matrixMulTri"
120
121!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122
390
391 ! BLAS LEVEL 2 - `STRMV`, `DTRMV`, `CTRMV`, and `ZTRMV`
392
393 interface setMatMulTri
394
395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398
399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402
403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406
407 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408
409#if CK5_ENABLED
410 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
412 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK5
413#endif
414 use pm_kind, only: CKG => CK5
415 complex(CKG) , intent(in) , contiguous :: matA(:,:)
416 complex(CKG) , intent(inout) , contiguous :: matB(:)
417 type(lowerDiag_type) , intent(in) :: classA
418 type(nothing_type) , intent(in) :: operationA
419 end subroutine
420#endif
421
422#if CK4_ENABLED
423 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
425 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK4
426#endif
427 use pm_kind, only: CKG => CK4
428 complex(CKG) , intent(in) , contiguous :: matA(:,:)
429 complex(CKG) , intent(inout) , contiguous :: matB(:)
430 type(lowerDiag_type) , intent(in) :: classA
431 type(nothing_type) , intent(in) :: operationA
432 end subroutine
433#endif
434
435#if CK3_ENABLED
436 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK3
439#endif
440 use pm_kind, only: CKG => CK3
441 complex(CKG) , intent(in) , contiguous :: matA(:,:)
442 complex(CKG) , intent(inout) , contiguous :: matB(:)
443 type(lowerDiag_type) , intent(in) :: classA
444 type(nothing_type) , intent(in) :: operationA
445 end subroutine
446#endif
447
448#if CK2_ENABLED
449 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
451 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK2
452#endif
453 use pm_kind, only: CKG => CK2
454 complex(CKG) , intent(in) , contiguous :: matA(:,:)
455 complex(CKG) , intent(inout) , contiguous :: matB(:)
456 type(lowerDiag_type) , intent(in) :: classA
457 type(nothing_type) , intent(in) :: operationA
458 end subroutine
459#endif
460
461#if CK1_ENABLED
462 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_CK1
465#endif
466 use pm_kind, only: CKG => CK1
467 complex(CKG) , intent(in) , contiguous :: matA(:,:)
468 complex(CKG) , intent(inout) , contiguous :: matB(:)
469 type(lowerDiag_type) , intent(in) :: classA
470 type(nothing_type) , intent(in) :: operationA
471 end subroutine
472#endif
473
474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475
476#if RK5_ENABLED
477 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
479 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK5
480#endif
481 use pm_kind, only: RKG => RK5
482 real(RKG) , intent(in) , contiguous :: matA(:,:)
483 real(RKG) , intent(inout) , contiguous :: matB(:)
484 type(lowerDiag_type) , intent(in) :: classA
485 type(nothing_type) , intent(in) :: operationA
486 end subroutine
487#endif
488
489#if RK4_ENABLED
490 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
492 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK4
493#endif
494 use pm_kind, only: RKG => RK4
495 real(RKG) , intent(in) , contiguous :: matA(:,:)
496 real(RKG) , intent(inout) , contiguous :: matB(:)
497 type(lowerDiag_type) , intent(in) :: classA
498 type(nothing_type) , intent(in) :: operationA
499 end subroutine
500#endif
501
502#if RK3_ENABLED
503 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
505 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK3
506#endif
507 use pm_kind, only: RKG => RK3
508 real(RKG) , intent(in) , contiguous :: matA(:,:)
509 real(RKG) , intent(inout) , contiguous :: matB(:)
510 type(lowerDiag_type) , intent(in) :: classA
511 type(nothing_type) , intent(in) :: operationA
512 end subroutine
513#endif
514
515#if RK2_ENABLED
516 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK2
519#endif
520 use pm_kind, only: RKG => RK2
521 real(RKG) , intent(in) , contiguous :: matA(:,:)
522 real(RKG) , intent(inout) , contiguous :: matB(:)
523 type(lowerDiag_type) , intent(in) :: classA
524 type(nothing_type) , intent(in) :: operationA
525 end subroutine
526#endif
527
528#if RK1_ENABLED
529 PURE module subroutine trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
531 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_ONOA_CGMB_ONOB_RK1
532#endif
533 use pm_kind, only: RKG => RK1
534 real(RKG) , intent(in) , contiguous :: matA(:,:)
535 real(RKG) , intent(inout) , contiguous :: matB(:)
536 type(lowerDiag_type) , intent(in) :: classA
537 type(nothing_type) , intent(in) :: operationA
538 end subroutine
539#endif
540
541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546
547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548
549#if CK5_ENABLED
550 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
552 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK5
553#endif
554 use pm_kind, only: CKG => CK5
555 complex(CKG) , intent(in) , contiguous :: matA(:,:)
556 complex(CKG) , intent(inout) , contiguous :: matB(:)
557 type(lowerDiag_type) , intent(in) :: classA
558 type(transSymm_type) , intent(in) :: operationA
559 end subroutine
560#endif
561
562#if CK4_ENABLED
563 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK4
566#endif
567 use pm_kind, only: CKG => CK4
568 complex(CKG) , intent(in) , contiguous :: matA(:,:)
569 complex(CKG) , intent(inout) , contiguous :: matB(:)
570 type(lowerDiag_type) , intent(in) :: classA
571 type(transSymm_type) , intent(in) :: operationA
572 end subroutine
573#endif
574
575#if CK3_ENABLED
576 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
578 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK3
579#endif
580 use pm_kind, only: CKG => CK3
581 complex(CKG) , intent(in) , contiguous :: matA(:,:)
582 complex(CKG) , intent(inout) , contiguous :: matB(:)
583 type(lowerDiag_type) , intent(in) :: classA
584 type(transSymm_type) , intent(in) :: operationA
585 end subroutine
586#endif
587
588#if CK2_ENABLED
589 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
591 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK2
592#endif
593 use pm_kind, only: CKG => CK2
594 complex(CKG) , intent(in) , contiguous :: matA(:,:)
595 complex(CKG) , intent(inout) , contiguous :: matB(:)
596 type(lowerDiag_type) , intent(in) :: classA
597 type(transSymm_type) , intent(in) :: operationA
598 end subroutine
599#endif
600
601#if CK1_ENABLED
602 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
604 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_CK1
605#endif
606 use pm_kind, only: CKG => CK1
607 complex(CKG) , intent(in) , contiguous :: matA(:,:)
608 complex(CKG) , intent(inout) , contiguous :: matB(:)
609 type(lowerDiag_type) , intent(in) :: classA
610 type(transSymm_type) , intent(in) :: operationA
611 end subroutine
612#endif
613
614 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
615
616#if RK5_ENABLED
617 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK5
620#endif
621 use pm_kind, only: RKG => RK5
622 real(RKG) , intent(in) , contiguous :: matA(:,:)
623 real(RKG) , intent(inout) , contiguous :: matB(:)
624 type(lowerDiag_type) , intent(in) :: classA
625 type(transSymm_type) , intent(in) :: operationA
626 end subroutine
627#endif
628
629#if RK4_ENABLED
630 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
632 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK4
633#endif
634 use pm_kind, only: RKG => RK4
635 real(RKG) , intent(in) , contiguous :: matA(:,:)
636 real(RKG) , intent(inout) , contiguous :: matB(:)
637 type(lowerDiag_type) , intent(in) :: classA
638 type(transSymm_type) , intent(in) :: operationA
639 end subroutine
640#endif
641
642#if RK3_ENABLED
643 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
645 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK3
646#endif
647 use pm_kind, only: RKG => RK3
648 real(RKG) , intent(in) , contiguous :: matA(:,:)
649 real(RKG) , intent(inout) , contiguous :: matB(:)
650 type(lowerDiag_type) , intent(in) :: classA
651 type(transSymm_type) , intent(in) :: operationA
652 end subroutine
653#endif
654
655#if RK2_ENABLED
656 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
658 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK2
659#endif
660 use pm_kind, only: RKG => RK2
661 real(RKG) , intent(in) , contiguous :: matA(:,:)
662 real(RKG) , intent(inout) , contiguous :: matB(:)
663 type(lowerDiag_type) , intent(in) :: classA
664 type(transSymm_type) , intent(in) :: operationA
665 end subroutine
666#endif
667
668#if RK1_ENABLED
669 PURE module subroutine trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTSA_CGMB_ONOB_RK1
672#endif
673 use pm_kind, only: RKG => RK1
674 real(RKG) , intent(in) , contiguous :: matA(:,:)
675 real(RKG) , intent(inout) , contiguous :: matB(:)
676 type(lowerDiag_type) , intent(in) :: classA
677 type(transSymm_type) , intent(in) :: operationA
678 end subroutine
679#endif
680
681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682
683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
684 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686
687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
688
689#if CK5_ENABLED
690 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
692 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK5
693#endif
694 use pm_kind, only: CKG => CK5
695 complex(CKG) , intent(in) , contiguous :: matA(:,:)
696 complex(CKG) , intent(inout) , contiguous :: matB(:)
697 type(lowerDiag_type) , intent(in) :: classA
698 type(transHerm_type) , intent(in) :: operationA
699 end subroutine
700#endif
701
702#if CK4_ENABLED
703 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK4
706#endif
707 use pm_kind, only: CKG => CK4
708 complex(CKG) , intent(in) , contiguous :: matA(:,:)
709 complex(CKG) , intent(inout) , contiguous :: matB(:)
710 type(lowerDiag_type) , intent(in) :: classA
711 type(transHerm_type) , intent(in) :: operationA
712 end subroutine
713#endif
714
715#if CK3_ENABLED
716 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
718 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK3
719#endif
720 use pm_kind, only: CKG => CK3
721 complex(CKG) , intent(in) , contiguous :: matA(:,:)
722 complex(CKG) , intent(inout) , contiguous :: matB(:)
723 type(lowerDiag_type) , intent(in) :: classA
724 type(transHerm_type) , intent(in) :: operationA
725 end subroutine
726#endif
727
728#if CK2_ENABLED
729 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK2
732#endif
733 use pm_kind, only: CKG => CK2
734 complex(CKG) , intent(in) , contiguous :: matA(:,:)
735 complex(CKG) , intent(inout) , contiguous :: matB(:)
736 type(lowerDiag_type) , intent(in) :: classA
737 type(transHerm_type) , intent(in) :: operationA
738 end subroutine
739#endif
740
741#if CK1_ENABLED
742 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
744 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_CK1
745#endif
746 use pm_kind, only: CKG => CK1
747 complex(CKG) , intent(in) , contiguous :: matA(:,:)
748 complex(CKG) , intent(inout) , contiguous :: matB(:)
749 type(lowerDiag_type) , intent(in) :: classA
750 type(transHerm_type) , intent(in) :: operationA
751 end subroutine
752#endif
753
754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755
756#if RK5_ENABLED
757 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
759 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK5
760#endif
761 use pm_kind, only: RKG => RK5
762 real(RKG) , intent(in) , contiguous :: matA(:,:)
763 real(RKG) , intent(inout) , contiguous :: matB(:)
764 type(lowerDiag_type) , intent(in) :: classA
765 type(transHerm_type) , intent(in) :: operationA
766 end subroutine
767#endif
768
769#if RK4_ENABLED
770 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
772 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK4
773#endif
774 use pm_kind, only: RKG => RK4
775 real(RKG) , intent(in) , contiguous :: matA(:,:)
776 real(RKG) , intent(inout) , contiguous :: matB(:)
777 type(lowerDiag_type) , intent(in) :: classA
778 type(transHerm_type) , intent(in) :: operationA
779 end subroutine
780#endif
781
782#if RK3_ENABLED
783 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK3
786#endif
787 use pm_kind, only: RKG => RK3
788 real(RKG) , intent(in) , contiguous :: matA(:,:)
789 real(RKG) , intent(inout) , contiguous :: matB(:)
790 type(lowerDiag_type) , intent(in) :: classA
791 type(transHerm_type) , intent(in) :: operationA
792 end subroutine
793#endif
794
795#if RK2_ENABLED
796 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK2
799#endif
800 use pm_kind, only: RKG => RK2
801 real(RKG) , intent(in) , contiguous :: matA(:,:)
802 real(RKG) , intent(inout) , contiguous :: matB(:)
803 type(lowerDiag_type) , intent(in) :: classA
804 type(transHerm_type) , intent(in) :: operationA
805 end subroutine
806#endif
807
808#if RK1_ENABLED
809 PURE module subroutine trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLDA_OTHA_CGMB_ONOB_RK1
812#endif
813 use pm_kind, only: RKG => RK1
814 real(RKG) , intent(in) , contiguous :: matA(:,:)
815 real(RKG) , intent(inout) , contiguous :: matB(:)
816 type(lowerDiag_type) , intent(in) :: classA
817 type(transHerm_type) , intent(in) :: operationA
818 end subroutine
819#endif
820
821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822
823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826
827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830
831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
832
833#if CK5_ENABLED
834 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
836 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK5
837#endif
838 use pm_kind, only: CKG => CK5
839 complex(CKG) , intent(in) , contiguous :: matA(:,:)
840 complex(CKG) , intent(inout) , contiguous :: matB(:)
841 type(upperDiag_type) , intent(in) :: classA
842 type(nothing_type) , intent(in) :: operationA
843 end subroutine
844#endif
845
846#if CK4_ENABLED
847 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
849 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK4
850#endif
851 use pm_kind, only: CKG => CK4
852 complex(CKG) , intent(in) , contiguous :: matA(:,:)
853 complex(CKG) , intent(inout) , contiguous :: matB(:)
854 type(upperDiag_type) , intent(in) :: classA
855 type(nothing_type) , intent(in) :: operationA
856 end subroutine
857#endif
858
859#if CK3_ENABLED
860 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
862 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK3
863#endif
864 use pm_kind, only: CKG => CK3
865 complex(CKG) , intent(in) , contiguous :: matA(:,:)
866 complex(CKG) , intent(inout) , contiguous :: matB(:)
867 type(upperDiag_type) , intent(in) :: classA
868 type(nothing_type) , intent(in) :: operationA
869 end subroutine
870#endif
871
872#if CK2_ENABLED
873 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK2
876#endif
877 use pm_kind, only: CKG => CK2
878 complex(CKG) , intent(in) , contiguous :: matA(:,:)
879 complex(CKG) , intent(inout) , contiguous :: matB(:)
880 type(upperDiag_type) , intent(in) :: classA
881 type(nothing_type) , intent(in) :: operationA
882 end subroutine
883#endif
884
885#if CK1_ENABLED
886 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_CK1
889#endif
890 use pm_kind, only: CKG => CK1
891 complex(CKG) , intent(in) , contiguous :: matA(:,:)
892 complex(CKG) , intent(inout) , contiguous :: matB(:)
893 type(upperDiag_type) , intent(in) :: classA
894 type(nothing_type) , intent(in) :: operationA
895 end subroutine
896#endif
897
898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899
900#if RK5_ENABLED
901 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK5
904#endif
905 use pm_kind, only: RKG => RK5
906 real(RKG) , intent(in) , contiguous :: matA(:,:)
907 real(RKG) , intent(inout) , contiguous :: matB(:)
908 type(upperDiag_type) , intent(in) :: classA
909 type(nothing_type) , intent(in) :: operationA
910 end subroutine
911#endif
912
913#if RK4_ENABLED
914 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK4
917#endif
918 use pm_kind, only: RKG => RK4
919 real(RKG) , intent(in) , contiguous :: matA(:,:)
920 real(RKG) , intent(inout) , contiguous :: matB(:)
921 type(upperDiag_type) , intent(in) :: classA
922 type(nothing_type) , intent(in) :: operationA
923 end subroutine
924#endif
925
926#if RK3_ENABLED
927 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
929 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK3
930#endif
931 use pm_kind, only: RKG => RK3
932 real(RKG) , intent(in) , contiguous :: matA(:,:)
933 real(RKG) , intent(inout) , contiguous :: matB(:)
934 type(upperDiag_type) , intent(in) :: classA
935 type(nothing_type) , intent(in) :: operationA
936 end subroutine
937#endif
938
939#if RK2_ENABLED
940 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK2
943#endif
944 use pm_kind, only: RKG => RK2
945 real(RKG) , intent(in) , contiguous :: matA(:,:)
946 real(RKG) , intent(inout) , contiguous :: matB(:)
947 type(upperDiag_type) , intent(in) :: classA
948 type(nothing_type) , intent(in) :: operationA
949 end subroutine
950#endif
951
952#if RK1_ENABLED
953 PURE module subroutine trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_ONOA_CGMB_ONOB_RK1
956#endif
957 use pm_kind, only: RKG => RK1
958 real(RKG) , intent(in) , contiguous :: matA(:,:)
959 real(RKG) , intent(inout) , contiguous :: matB(:)
960 type(upperDiag_type) , intent(in) :: classA
961 type(nothing_type) , intent(in) :: operationA
962 end subroutine
963#endif
964
965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
966
967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
970
971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972
973#if CK5_ENABLED
974 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK5
977#endif
978 use pm_kind, only: CKG => CK5
979 complex(CKG) , intent(in) , contiguous :: matA(:,:)
980 complex(CKG) , intent(inout) , contiguous :: matB(:)
981 type(upperDiag_type) , intent(in) :: classA
982 type(transSymm_type) , intent(in) :: operationA
983 end subroutine
984#endif
985
986#if CK4_ENABLED
987 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK4
990#endif
991 use pm_kind, only: CKG => CK4
992 complex(CKG) , intent(in) , contiguous :: matA(:,:)
993 complex(CKG) , intent(inout) , contiguous :: matB(:)
994 type(upperDiag_type) , intent(in) :: classA
995 type(transSymm_type) , intent(in) :: operationA
996 end subroutine
997#endif
998
999#if CK3_ENABLED
1000 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK3
1003#endif
1004 use pm_kind, only: CKG => CK3
1005 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1006 complex(CKG) , intent(inout) , contiguous :: matB(:)
1007 type(upperDiag_type) , intent(in) :: classA
1008 type(transSymm_type) , intent(in) :: operationA
1009 end subroutine
1010#endif
1011
1012#if CK2_ENABLED
1013 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK2
1016#endif
1017 use pm_kind, only: CKG => CK2
1018 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1019 complex(CKG) , intent(inout) , contiguous :: matB(:)
1020 type(upperDiag_type) , intent(in) :: classA
1021 type(transSymm_type) , intent(in) :: operationA
1022 end subroutine
1023#endif
1024
1025#if CK1_ENABLED
1026 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_CK1
1029#endif
1030 use pm_kind, only: CKG => CK1
1031 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1032 complex(CKG) , intent(inout) , contiguous :: matB(:)
1033 type(upperDiag_type) , intent(in) :: classA
1034 type(transSymm_type) , intent(in) :: operationA
1035 end subroutine
1036#endif
1037
1038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1039
1040#if RK5_ENABLED
1041 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK5
1044#endif
1045 use pm_kind, only: RKG => RK5
1046 real(RKG) , intent(in) , contiguous :: matA(:,:)
1047 real(RKG) , intent(inout) , contiguous :: matB(:)
1048 type(upperDiag_type) , intent(in) :: classA
1049 type(transSymm_type) , intent(in) :: operationA
1050 end subroutine
1051#endif
1052
1053#if RK4_ENABLED
1054 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1056 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK4
1057#endif
1058 use pm_kind, only: RKG => RK4
1059 real(RKG) , intent(in) , contiguous :: matA(:,:)
1060 real(RKG) , intent(inout) , contiguous :: matB(:)
1061 type(upperDiag_type) , intent(in) :: classA
1062 type(transSymm_type) , intent(in) :: operationA
1063 end subroutine
1064#endif
1065
1066#if RK3_ENABLED
1067 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1069 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK3
1070#endif
1071 use pm_kind, only: RKG => RK3
1072 real(RKG) , intent(in) , contiguous :: matA(:,:)
1073 real(RKG) , intent(inout) , contiguous :: matB(:)
1074 type(upperDiag_type) , intent(in) :: classA
1075 type(transSymm_type) , intent(in) :: operationA
1076 end subroutine
1077#endif
1078
1079#if RK2_ENABLED
1080 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK2
1083#endif
1084 use pm_kind, only: RKG => RK2
1085 real(RKG) , intent(in) , contiguous :: matA(:,:)
1086 real(RKG) , intent(inout) , contiguous :: matB(:)
1087 type(upperDiag_type) , intent(in) :: classA
1088 type(transSymm_type) , intent(in) :: operationA
1089 end subroutine
1090#endif
1091
1092#if RK1_ENABLED
1093 PURE module subroutine trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTSA_CGMB_ONOB_RK1
1096#endif
1097 use pm_kind, only: RKG => RK1
1098 real(RKG) , intent(in) , contiguous :: matA(:,:)
1099 real(RKG) , intent(inout) , contiguous :: matB(:)
1100 type(upperDiag_type) , intent(in) :: classA
1101 type(transSymm_type) , intent(in) :: operationA
1102 end subroutine
1103#endif
1104
1105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106
1107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110
1111 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112
1113#if CK5_ENABLED
1114 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK5
1117#endif
1118 use pm_kind, only: CKG => CK5
1119 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1120 complex(CKG) , intent(inout) , contiguous :: matB(:)
1121 type(upperDiag_type) , intent(in) :: classA
1122 type(transHerm_type) , intent(in) :: operationA
1123 end subroutine
1124#endif
1125
1126#if CK4_ENABLED
1127 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1129 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK4
1130#endif
1131 use pm_kind, only: CKG => CK4
1132 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1133 complex(CKG) , intent(inout) , contiguous :: matB(:)
1134 type(upperDiag_type) , intent(in) :: classA
1135 type(transHerm_type) , intent(in) :: operationA
1136 end subroutine
1137#endif
1138
1139#if CK3_ENABLED
1140 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK3
1143#endif
1144 use pm_kind, only: CKG => CK3
1145 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1146 complex(CKG) , intent(inout) , contiguous :: matB(:)
1147 type(upperDiag_type) , intent(in) :: classA
1148 type(transHerm_type) , intent(in) :: operationA
1149 end subroutine
1150#endif
1151
1152#if CK2_ENABLED
1153 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1155 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK2
1156#endif
1157 use pm_kind, only: CKG => CK2
1158 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1159 complex(CKG) , intent(inout) , contiguous :: matB(:)
1160 type(upperDiag_type) , intent(in) :: classA
1161 type(transHerm_type) , intent(in) :: operationA
1162 end subroutine
1163#endif
1164
1165#if CK1_ENABLED
1166 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_CK1
1169#endif
1170 use pm_kind, only: CKG => CK1
1171 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1172 complex(CKG) , intent(inout) , contiguous :: matB(:)
1173 type(upperDiag_type) , intent(in) :: classA
1174 type(transHerm_type) , intent(in) :: operationA
1175 end subroutine
1176#endif
1177
1178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179
1180#if RK5_ENABLED
1181 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK5
1184#endif
1185 use pm_kind, only: RKG => RK5
1186 real(RKG) , intent(in) , contiguous :: matA(:,:)
1187 real(RKG) , intent(inout) , contiguous :: matB(:)
1188 type(upperDiag_type) , intent(in) :: classA
1189 type(transHerm_type) , intent(in) :: operationA
1190 end subroutine
1191#endif
1192
1193#if RK4_ENABLED
1194 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1196 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK4
1197#endif
1198 use pm_kind, only: RKG => RK4
1199 real(RKG) , intent(in) , contiguous :: matA(:,:)
1200 real(RKG) , intent(inout) , contiguous :: matB(:)
1201 type(upperDiag_type) , intent(in) :: classA
1202 type(transHerm_type) , intent(in) :: operationA
1203 end subroutine
1204#endif
1205
1206#if RK3_ENABLED
1207 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK3
1210#endif
1211 use pm_kind, only: RKG => RK3
1212 real(RKG) , intent(in) , contiguous :: matA(:,:)
1213 real(RKG) , intent(inout) , contiguous :: matB(:)
1214 type(upperDiag_type) , intent(in) :: classA
1215 type(transHerm_type) , intent(in) :: operationA
1216 end subroutine
1217#endif
1218
1219#if RK2_ENABLED
1220 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK2
1223#endif
1224 use pm_kind, only: RKG => RK2
1225 real(RKG) , intent(in) , contiguous :: matA(:,:)
1226 real(RKG) , intent(inout) , contiguous :: matB(:)
1227 type(upperDiag_type) , intent(in) :: classA
1228 type(transHerm_type) , intent(in) :: operationA
1229 end subroutine
1230#endif
1231
1232#if RK1_ENABLED
1233 PURE module subroutine trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1235 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUDA_OTHA_CGMB_ONOB_RK1
1236#endif
1237 use pm_kind, only: RKG => RK1
1238 real(RKG) , intent(in) , contiguous :: matA(:,:)
1239 real(RKG) , intent(inout) , contiguous :: matB(:)
1240 type(upperDiag_type) , intent(in) :: classA
1241 type(transHerm_type) , intent(in) :: operationA
1242 end subroutine
1243#endif
1244
1245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246
1247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1250
1251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1254
1255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1256
1257#if CK5_ENABLED
1258 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK5
1261#endif
1262 use pm_kind, only: CKG => CK5
1263 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1264 complex(CKG) , intent(inout) , contiguous :: matB(:)
1265 type(lowerUnit_type) , intent(in) :: classA
1266 type(nothing_type) , intent(in) :: operationA
1267 end subroutine
1268#endif
1269
1270#if CK4_ENABLED
1271 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK4
1274#endif
1275 use pm_kind, only: CKG => CK4
1276 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1277 complex(CKG) , intent(inout) , contiguous :: matB(:)
1278 type(lowerUnit_type) , intent(in) :: classA
1279 type(nothing_type) , intent(in) :: operationA
1280 end subroutine
1281#endif
1282
1283#if CK3_ENABLED
1284 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK3
1287#endif
1288 use pm_kind, only: CKG => CK3
1289 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1290 complex(CKG) , intent(inout) , contiguous :: matB(:)
1291 type(lowerUnit_type) , intent(in) :: classA
1292 type(nothing_type) , intent(in) :: operationA
1293 end subroutine
1294#endif
1295
1296#if CK2_ENABLED
1297 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK2
1300#endif
1301 use pm_kind, only: CKG => CK2
1302 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1303 complex(CKG) , intent(inout) , contiguous :: matB(:)
1304 type(lowerUnit_type) , intent(in) :: classA
1305 type(nothing_type) , intent(in) :: operationA
1306 end subroutine
1307#endif
1308
1309#if CK1_ENABLED
1310 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_CK1
1313#endif
1314 use pm_kind, only: CKG => CK1
1315 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1316 complex(CKG) , intent(inout) , contiguous :: matB(:)
1317 type(lowerUnit_type) , intent(in) :: classA
1318 type(nothing_type) , intent(in) :: operationA
1319 end subroutine
1320#endif
1321
1322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323
1324#if RK5_ENABLED
1325 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1327 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK5
1328#endif
1329 use pm_kind, only: RKG => RK5
1330 real(RKG) , intent(in) , contiguous :: matA(:,:)
1331 real(RKG) , intent(inout) , contiguous :: matB(:)
1332 type(lowerUnit_type) , intent(in) :: classA
1333 type(nothing_type) , intent(in) :: operationA
1334 end subroutine
1335#endif
1336
1337#if RK4_ENABLED
1338 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK4
1341#endif
1342 use pm_kind, only: RKG => RK4
1343 real(RKG) , intent(in) , contiguous :: matA(:,:)
1344 real(RKG) , intent(inout) , contiguous :: matB(:)
1345 type(lowerUnit_type) , intent(in) :: classA
1346 type(nothing_type) , intent(in) :: operationA
1347 end subroutine
1348#endif
1349
1350#if RK3_ENABLED
1351 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1353 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK3
1354#endif
1355 use pm_kind, only: RKG => RK3
1356 real(RKG) , intent(in) , contiguous :: matA(:,:)
1357 real(RKG) , intent(inout) , contiguous :: matB(:)
1358 type(lowerUnit_type) , intent(in) :: classA
1359 type(nothing_type) , intent(in) :: operationA
1360 end subroutine
1361#endif
1362
1363#if RK2_ENABLED
1364 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK2
1367#endif
1368 use pm_kind, only: RKG => RK2
1369 real(RKG) , intent(in) , contiguous :: matA(:,:)
1370 real(RKG) , intent(inout) , contiguous :: matB(:)
1371 type(lowerUnit_type) , intent(in) :: classA
1372 type(nothing_type) , intent(in) :: operationA
1373 end subroutine
1374#endif
1375
1376#if RK1_ENABLED
1377 PURE module subroutine trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_ONOA_CGMB_ONOB_RK1
1380#endif
1381 use pm_kind, only: RKG => RK1
1382 real(RKG) , intent(in) , contiguous :: matA(:,:)
1383 real(RKG) , intent(inout) , contiguous :: matB(:)
1384 type(lowerUnit_type) , intent(in) :: classA
1385 type(nothing_type) , intent(in) :: operationA
1386 end subroutine
1387#endif
1388
1389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390
1391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394
1395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396
1397#if CK5_ENABLED
1398 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1400 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK5
1401#endif
1402 use pm_kind, only: CKG => CK5
1403 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1404 complex(CKG) , intent(inout) , contiguous :: matB(:)
1405 type(lowerUnit_type) , intent(in) :: classA
1406 type(transSymm_type) , intent(in) :: operationA
1407 end subroutine
1408#endif
1409
1410#if CK4_ENABLED
1411 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1413 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK4
1414#endif
1415 use pm_kind, only: CKG => CK4
1416 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1417 complex(CKG) , intent(inout) , contiguous :: matB(:)
1418 type(lowerUnit_type) , intent(in) :: classA
1419 type(transSymm_type) , intent(in) :: operationA
1420 end subroutine
1421#endif
1422
1423#if CK3_ENABLED
1424 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1426 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK3
1427#endif
1428 use pm_kind, only: CKG => CK3
1429 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1430 complex(CKG) , intent(inout) , contiguous :: matB(:)
1431 type(lowerUnit_type) , intent(in) :: classA
1432 type(transSymm_type) , intent(in) :: operationA
1433 end subroutine
1434#endif
1435
1436#if CK2_ENABLED
1437 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1439 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK2
1440#endif
1441 use pm_kind, only: CKG => CK2
1442 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1443 complex(CKG) , intent(inout) , contiguous :: matB(:)
1444 type(lowerUnit_type) , intent(in) :: classA
1445 type(transSymm_type) , intent(in) :: operationA
1446 end subroutine
1447#endif
1448
1449#if CK1_ENABLED
1450 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1452 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_CK1
1453#endif
1454 use pm_kind, only: CKG => CK1
1455 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1456 complex(CKG) , intent(inout) , contiguous :: matB(:)
1457 type(lowerUnit_type) , intent(in) :: classA
1458 type(transSymm_type) , intent(in) :: operationA
1459 end subroutine
1460#endif
1461
1462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1463
1464#if RK5_ENABLED
1465 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK5
1468#endif
1469 use pm_kind, only: RKG => RK5
1470 real(RKG) , intent(in) , contiguous :: matA(:,:)
1471 real(RKG) , intent(inout) , contiguous :: matB(:)
1472 type(lowerUnit_type) , intent(in) :: classA
1473 type(transSymm_type) , intent(in) :: operationA
1474 end subroutine
1475#endif
1476
1477#if RK4_ENABLED
1478 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK4
1481#endif
1482 use pm_kind, only: RKG => RK4
1483 real(RKG) , intent(in) , contiguous :: matA(:,:)
1484 real(RKG) , intent(inout) , contiguous :: matB(:)
1485 type(lowerUnit_type) , intent(in) :: classA
1486 type(transSymm_type) , intent(in) :: operationA
1487 end subroutine
1488#endif
1489
1490#if RK3_ENABLED
1491 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1493 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK3
1494#endif
1495 use pm_kind, only: RKG => RK3
1496 real(RKG) , intent(in) , contiguous :: matA(:,:)
1497 real(RKG) , intent(inout) , contiguous :: matB(:)
1498 type(lowerUnit_type) , intent(in) :: classA
1499 type(transSymm_type) , intent(in) :: operationA
1500 end subroutine
1501#endif
1502
1503#if RK2_ENABLED
1504 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1506 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK2
1507#endif
1508 use pm_kind, only: RKG => RK2
1509 real(RKG) , intent(in) , contiguous :: matA(:,:)
1510 real(RKG) , intent(inout) , contiguous :: matB(:)
1511 type(lowerUnit_type) , intent(in) :: classA
1512 type(transSymm_type) , intent(in) :: operationA
1513 end subroutine
1514#endif
1515
1516#if RK1_ENABLED
1517 PURE module subroutine trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTSA_CGMB_ONOB_RK1
1520#endif
1521 use pm_kind, only: RKG => RK1
1522 real(RKG) , intent(in) , contiguous :: matA(:,:)
1523 real(RKG) , intent(inout) , contiguous :: matB(:)
1524 type(lowerUnit_type) , intent(in) :: classA
1525 type(transSymm_type) , intent(in) :: operationA
1526 end subroutine
1527#endif
1528
1529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1530
1531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1532 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1534
1535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536
1537#if CK5_ENABLED
1538 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1540 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK5
1541#endif
1542 use pm_kind, only: CKG => CK5
1543 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1544 complex(CKG) , intent(inout) , contiguous :: matB(:)
1545 type(lowerUnit_type) , intent(in) :: classA
1546 type(transHerm_type) , intent(in) :: operationA
1547 end subroutine
1548#endif
1549
1550#if CK4_ENABLED
1551 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1553 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK4
1554#endif
1555 use pm_kind, only: CKG => CK4
1556 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1557 complex(CKG) , intent(inout) , contiguous :: matB(:)
1558 type(lowerUnit_type) , intent(in) :: classA
1559 type(transHerm_type) , intent(in) :: operationA
1560 end subroutine
1561#endif
1562
1563#if CK3_ENABLED
1564 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK3
1567#endif
1568 use pm_kind, only: CKG => CK3
1569 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1570 complex(CKG) , intent(inout) , contiguous :: matB(:)
1571 type(lowerUnit_type) , intent(in) :: classA
1572 type(transHerm_type) , intent(in) :: operationA
1573 end subroutine
1574#endif
1575
1576#if CK2_ENABLED
1577 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1579 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK2
1580#endif
1581 use pm_kind, only: CKG => CK2
1582 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1583 complex(CKG) , intent(inout) , contiguous :: matB(:)
1584 type(lowerUnit_type) , intent(in) :: classA
1585 type(transHerm_type) , intent(in) :: operationA
1586 end subroutine
1587#endif
1588
1589#if CK1_ENABLED
1590 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1592 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_CK1
1593#endif
1594 use pm_kind, only: CKG => CK1
1595 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1596 complex(CKG) , intent(inout) , contiguous :: matB(:)
1597 type(lowerUnit_type) , intent(in) :: classA
1598 type(transHerm_type) , intent(in) :: operationA
1599 end subroutine
1600#endif
1601
1602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1603
1604#if RK5_ENABLED
1605 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1607 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK5
1608#endif
1609 use pm_kind, only: RKG => RK5
1610 real(RKG) , intent(in) , contiguous :: matA(:,:)
1611 real(RKG) , intent(inout) , contiguous :: matB(:)
1612 type(lowerUnit_type) , intent(in) :: classA
1613 type(transHerm_type) , intent(in) :: operationA
1614 end subroutine
1615#endif
1616
1617#if RK4_ENABLED
1618 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK4
1621#endif
1622 use pm_kind, only: RKG => RK4
1623 real(RKG) , intent(in) , contiguous :: matA(:,:)
1624 real(RKG) , intent(inout) , contiguous :: matB(:)
1625 type(lowerUnit_type) , intent(in) :: classA
1626 type(transHerm_type) , intent(in) :: operationA
1627 end subroutine
1628#endif
1629
1630#if RK3_ENABLED
1631 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK3
1634#endif
1635 use pm_kind, only: RKG => RK3
1636 real(RKG) , intent(in) , contiguous :: matA(:,:)
1637 real(RKG) , intent(inout) , contiguous :: matB(:)
1638 type(lowerUnit_type) , intent(in) :: classA
1639 type(transHerm_type) , intent(in) :: operationA
1640 end subroutine
1641#endif
1642
1643#if RK2_ENABLED
1644 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1646 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK2
1647#endif
1648 use pm_kind, only: RKG => RK2
1649 real(RKG) , intent(in) , contiguous :: matA(:,:)
1650 real(RKG) , intent(inout) , contiguous :: matB(:)
1651 type(lowerUnit_type) , intent(in) :: classA
1652 type(transHerm_type) , intent(in) :: operationA
1653 end subroutine
1654#endif
1655
1656#if RK1_ENABLED
1657 PURE module subroutine trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CLUA_OTHA_CGMB_ONOB_RK1
1660#endif
1661 use pm_kind, only: RKG => RK1
1662 real(RKG) , intent(in) , contiguous :: matA(:,:)
1663 real(RKG) , intent(inout) , contiguous :: matB(:)
1664 type(lowerUnit_type) , intent(in) :: classA
1665 type(transHerm_type) , intent(in) :: operationA
1666 end subroutine
1667#endif
1668
1669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670
1671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674
1675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1678
1679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1680
1681#if CK5_ENABLED
1682 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1684 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK5
1685#endif
1686 use pm_kind, only: CKG => CK5
1687 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1688 complex(CKG) , intent(inout) , contiguous :: matB(:)
1689 type(upperUnit_type) , intent(in) :: classA
1690 type(nothing_type) , intent(in) :: operationA
1691 end subroutine
1692#endif
1693
1694#if CK4_ENABLED
1695 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK4
1698#endif
1699 use pm_kind, only: CKG => CK4
1700 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1701 complex(CKG) , intent(inout) , contiguous :: matB(:)
1702 type(upperUnit_type) , intent(in) :: classA
1703 type(nothing_type) , intent(in) :: operationA
1704 end subroutine
1705#endif
1706
1707#if CK3_ENABLED
1708 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK3
1711#endif
1712 use pm_kind, only: CKG => CK3
1713 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1714 complex(CKG) , intent(inout) , contiguous :: matB(:)
1715 type(upperUnit_type) , intent(in) :: classA
1716 type(nothing_type) , intent(in) :: operationA
1717 end subroutine
1718#endif
1719
1720#if CK2_ENABLED
1721 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK2
1724#endif
1725 use pm_kind, only: CKG => CK2
1726 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1727 complex(CKG) , intent(inout) , contiguous :: matB(:)
1728 type(upperUnit_type) , intent(in) :: classA
1729 type(nothing_type) , intent(in) :: operationA
1730 end subroutine
1731#endif
1732
1733#if CK1_ENABLED
1734 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_CK1
1737#endif
1738 use pm_kind, only: CKG => CK1
1739 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1740 complex(CKG) , intent(inout) , contiguous :: matB(:)
1741 type(upperUnit_type) , intent(in) :: classA
1742 type(nothing_type) , intent(in) :: operationA
1743 end subroutine
1744#endif
1745
1746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1747
1748#if RK5_ENABLED
1749 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1751 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK5
1752#endif
1753 use pm_kind, only: RKG => RK5
1754 real(RKG) , intent(in) , contiguous :: matA(:,:)
1755 real(RKG) , intent(inout) , contiguous :: matB(:)
1756 type(upperUnit_type) , intent(in) :: classA
1757 type(nothing_type) , intent(in) :: operationA
1758 end subroutine
1759#endif
1760
1761#if RK4_ENABLED
1762 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1764 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK4
1765#endif
1766 use pm_kind, only: RKG => RK4
1767 real(RKG) , intent(in) , contiguous :: matA(:,:)
1768 real(RKG) , intent(inout) , contiguous :: matB(:)
1769 type(upperUnit_type) , intent(in) :: classA
1770 type(nothing_type) , intent(in) :: operationA
1771 end subroutine
1772#endif
1773
1774#if RK3_ENABLED
1775 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK3
1778#endif
1779 use pm_kind, only: RKG => RK3
1780 real(RKG) , intent(in) , contiguous :: matA(:,:)
1781 real(RKG) , intent(inout) , contiguous :: matB(:)
1782 type(upperUnit_type) , intent(in) :: classA
1783 type(nothing_type) , intent(in) :: operationA
1784 end subroutine
1785#endif
1786
1787#if RK2_ENABLED
1788 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK2
1791#endif
1792 use pm_kind, only: RKG => RK2
1793 real(RKG) , intent(in) , contiguous :: matA(:,:)
1794 real(RKG) , intent(inout) , contiguous :: matB(:)
1795 type(upperUnit_type) , intent(in) :: classA
1796 type(nothing_type) , intent(in) :: operationA
1797 end subroutine
1798#endif
1799
1800#if RK1_ENABLED
1801 PURE module subroutine trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_ONOA_CGMB_ONOB_RK1
1804#endif
1805 use pm_kind, only: RKG => RK1
1806 real(RKG) , intent(in) , contiguous :: matA(:,:)
1807 real(RKG) , intent(inout) , contiguous :: matB(:)
1808 type(upperUnit_type) , intent(in) :: classA
1809 type(nothing_type) , intent(in) :: operationA
1810 end subroutine
1811#endif
1812
1813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814
1815 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1816 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1817 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818
1819 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1820
1821#if CK5_ENABLED
1822 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1824 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK5
1825#endif
1826 use pm_kind, only: CKG => CK5
1827 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1828 complex(CKG) , intent(inout) , contiguous :: matB(:)
1829 type(upperUnit_type) , intent(in) :: classA
1830 type(transSymm_type) , intent(in) :: operationA
1831 end subroutine
1832#endif
1833
1834#if CK4_ENABLED
1835 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1837 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK4
1838#endif
1839 use pm_kind, only: CKG => CK4
1840 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1841 complex(CKG) , intent(inout) , contiguous :: matB(:)
1842 type(upperUnit_type) , intent(in) :: classA
1843 type(transSymm_type) , intent(in) :: operationA
1844 end subroutine
1845#endif
1846
1847#if CK3_ENABLED
1848 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1850 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK3
1851#endif
1852 use pm_kind, only: CKG => CK3
1853 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1854 complex(CKG) , intent(inout) , contiguous :: matB(:)
1855 type(upperUnit_type) , intent(in) :: classA
1856 type(transSymm_type) , intent(in) :: operationA
1857 end subroutine
1858#endif
1859
1860#if CK2_ENABLED
1861 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
1862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1863 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK2
1864#endif
1865 use pm_kind, only: CKG => CK2
1866 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1867 complex(CKG) , intent(inout) , contiguous :: matB(:)
1868 type(upperUnit_type) , intent(in) :: classA
1869 type(transSymm_type) , intent(in) :: operationA
1870 end subroutine
1871#endif
1872
1873#if CK1_ENABLED
1874 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_CK1
1877#endif
1878 use pm_kind, only: CKG => CK1
1879 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1880 complex(CKG) , intent(inout) , contiguous :: matB(:)
1881 type(upperUnit_type) , intent(in) :: classA
1882 type(transSymm_type) , intent(in) :: operationA
1883 end subroutine
1884#endif
1885
1886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1887
1888#if RK5_ENABLED
1889 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
1890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1891 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK5
1892#endif
1893 use pm_kind, only: RKG => RK5
1894 real(RKG) , intent(in) , contiguous :: matA(:,:)
1895 real(RKG) , intent(inout) , contiguous :: matB(:)
1896 type(upperUnit_type) , intent(in) :: classA
1897 type(transSymm_type) , intent(in) :: operationA
1898 end subroutine
1899#endif
1900
1901#if RK4_ENABLED
1902 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK4
1905#endif
1906 use pm_kind, only: RKG => RK4
1907 real(RKG) , intent(in) , contiguous :: matA(:,:)
1908 real(RKG) , intent(inout) , contiguous :: matB(:)
1909 type(upperUnit_type) , intent(in) :: classA
1910 type(transSymm_type) , intent(in) :: operationA
1911 end subroutine
1912#endif
1913
1914#if RK3_ENABLED
1915 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
1916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1917 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK3
1918#endif
1919 use pm_kind, only: RKG => RK3
1920 real(RKG) , intent(in) , contiguous :: matA(:,:)
1921 real(RKG) , intent(inout) , contiguous :: matB(:)
1922 type(upperUnit_type) , intent(in) :: classA
1923 type(transSymm_type) , intent(in) :: operationA
1924 end subroutine
1925#endif
1926
1927#if RK2_ENABLED
1928 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
1929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1930 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK2
1931#endif
1932 use pm_kind, only: RKG => RK2
1933 real(RKG) , intent(in) , contiguous :: matA(:,:)
1934 real(RKG) , intent(inout) , contiguous :: matB(:)
1935 type(upperUnit_type) , intent(in) :: classA
1936 type(transSymm_type) , intent(in) :: operationA
1937 end subroutine
1938#endif
1939
1940#if RK1_ENABLED
1941 PURE module subroutine trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
1942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1943 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTSA_CGMB_ONOB_RK1
1944#endif
1945 use pm_kind, only: RKG => RK1
1946 real(RKG) , intent(in) , contiguous :: matA(:,:)
1947 real(RKG) , intent(inout) , contiguous :: matB(:)
1948 type(upperUnit_type) , intent(in) :: classA
1949 type(transSymm_type) , intent(in) :: operationA
1950 end subroutine
1951#endif
1952
1953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1954
1955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1957 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1958
1959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1960
1961#if CK5_ENABLED
1962 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
1963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1964 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK5
1965#endif
1966 use pm_kind, only: CKG => CK5
1967 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1968 complex(CKG) , intent(inout) , contiguous :: matB(:)
1969 type(upperUnit_type) , intent(in) :: classA
1970 type(transHerm_type) , intent(in) :: operationA
1971 end subroutine
1972#endif
1973
1974#if CK4_ENABLED
1975 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK4
1978#endif
1979 use pm_kind, only: CKG => CK4
1980 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1981 complex(CKG) , intent(inout) , contiguous :: matB(:)
1982 type(upperUnit_type) , intent(in) :: classA
1983 type(transHerm_type) , intent(in) :: operationA
1984 end subroutine
1985#endif
1986
1987#if CK3_ENABLED
1988 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
1989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1990 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK3
1991#endif
1992 use pm_kind, only: CKG => CK3
1993 complex(CKG) , intent(in) , contiguous :: matA(:,:)
1994 complex(CKG) , intent(inout) , contiguous :: matB(:)
1995 type(upperUnit_type) , intent(in) :: classA
1996 type(transHerm_type) , intent(in) :: operationA
1997 end subroutine
1998#endif
1999
2000#if CK2_ENABLED
2001 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
2002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2003 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK2
2004#endif
2005 use pm_kind, only: CKG => CK2
2006 complex(CKG) , intent(in) , contiguous :: matA(:,:)
2007 complex(CKG) , intent(inout) , contiguous :: matB(:)
2008 type(upperUnit_type) , intent(in) :: classA
2009 type(transHerm_type) , intent(in) :: operationA
2010 end subroutine
2011#endif
2012
2013#if CK1_ENABLED
2014 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_CK1
2017#endif
2018 use pm_kind, only: CKG => CK1
2019 complex(CKG) , intent(in) , contiguous :: matA(:,:)
2020 complex(CKG) , intent(inout) , contiguous :: matB(:)
2021 type(upperUnit_type) , intent(in) :: classA
2022 type(transHerm_type) , intent(in) :: operationA
2023 end subroutine
2024#endif
2025
2026 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2027
2028#if RK5_ENABLED
2029 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
2030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2031 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK5
2032#endif
2033 use pm_kind, only: RKG => RK5
2034 real(RKG) , intent(in) , contiguous :: matA(:,:)
2035 real(RKG) , intent(inout) , contiguous :: matB(:)
2036 type(upperUnit_type) , intent(in) :: classA
2037 type(transHerm_type) , intent(in) :: operationA
2038 end subroutine
2039#endif
2040
2041#if RK4_ENABLED
2042 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK4
2045#endif
2046 use pm_kind, only: RKG => RK4
2047 real(RKG) , intent(in) , contiguous :: matA(:,:)
2048 real(RKG) , intent(inout) , contiguous :: matB(:)
2049 type(upperUnit_type) , intent(in) :: classA
2050 type(transHerm_type) , intent(in) :: operationA
2051 end subroutine
2052#endif
2053
2054#if RK3_ENABLED
2055 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
2056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2057 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK3
2058#endif
2059 use pm_kind, only: RKG => RK3
2060 real(RKG) , intent(in) , contiguous :: matA(:,:)
2061 real(RKG) , intent(inout) , contiguous :: matB(:)
2062 type(upperUnit_type) , intent(in) :: classA
2063 type(transHerm_type) , intent(in) :: operationA
2064 end subroutine
2065#endif
2066
2067#if RK2_ENABLED
2068 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
2069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2070 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK2
2071#endif
2072 use pm_kind, only: RKG => RK2
2073 real(RKG) , intent(in) , contiguous :: matA(:,:)
2074 real(RKG) , intent(inout) , contiguous :: matB(:)
2075 type(upperUnit_type) , intent(in) :: classA
2076 type(transHerm_type) , intent(in) :: operationA
2077 end subroutine
2078#endif
2079
2080#if RK1_ENABLED
2081 PURE module subroutine trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_ASS_CUUA_OTHA_CGMB_ONOB_RK1
2084#endif
2085 use pm_kind, only: RKG => RK1
2086 real(RKG) , intent(in) , contiguous :: matA(:,:)
2087 real(RKG) , intent(inout) , contiguous :: matB(:)
2088 type(upperUnit_type) , intent(in) :: classA
2089 type(transHerm_type) , intent(in) :: operationA
2090 end subroutine
2091#endif
2092
2093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094
2095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2098
2099 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2102
2103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2104 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2106
2107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2108
2109#if CK5_ENABLED
2110 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2112 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK5
2113#endif
2114 use pm_kind, only: CKG => CK5
2115 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2116 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2117 complex(CKG) , intent(inout) , contiguous :: matB(:)
2118 type(lowerDiag_type) , intent(in) :: classA
2119 type(nothing_type) , intent(in) :: operationA
2120 end subroutine
2121#endif
2122
2123#if CK4_ENABLED
2124 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2126 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK4
2127#endif
2128 use pm_kind, only: CKG => CK4
2129 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2130 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2131 complex(CKG) , intent(inout) , contiguous :: matB(:)
2132 type(lowerDiag_type) , intent(in) :: classA
2133 type(nothing_type) , intent(in) :: operationA
2134 end subroutine
2135#endif
2136
2137#if CK3_ENABLED
2138 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2140 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK3
2141#endif
2142 use pm_kind, only: CKG => CK3
2143 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2144 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2145 complex(CKG) , intent(inout) , contiguous :: matB(:)
2146 type(lowerDiag_type) , intent(in) :: classA
2147 type(nothing_type) , intent(in) :: operationA
2148 end subroutine
2149#endif
2150
2151#if CK2_ENABLED
2152 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2154 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK2
2155#endif
2156 use pm_kind, only: CKG => CK2
2157 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2158 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2159 complex(CKG) , intent(inout) , contiguous :: matB(:)
2160 type(lowerDiag_type) , intent(in) :: classA
2161 type(nothing_type) , intent(in) :: operationA
2162 end subroutine
2163#endif
2164
2165#if CK1_ENABLED
2166 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2168 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_CK1
2169#endif
2170 use pm_kind, only: CKG => CK1
2171 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2172 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2173 complex(CKG) , intent(inout) , contiguous :: matB(:)
2174 type(lowerDiag_type) , intent(in) :: classA
2175 type(nothing_type) , intent(in) :: operationA
2176 end subroutine
2177#endif
2178
2179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2180
2181#if RK5_ENABLED
2182 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2184 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK5
2185#endif
2186 use pm_kind, only: RKG => RK5
2187 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2188 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2189 real(RKG) , intent(inout) , contiguous :: matB(:)
2190 type(lowerDiag_type) , intent(in) :: classA
2191 type(nothing_type) , intent(in) :: operationA
2192 end subroutine
2193#endif
2194
2195#if RK4_ENABLED
2196 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2198 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK4
2199#endif
2200 use pm_kind, only: RKG => RK4
2201 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2202 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2203 real(RKG) , intent(inout) , contiguous :: matB(:)
2204 type(lowerDiag_type) , intent(in) :: classA
2205 type(nothing_type) , intent(in) :: operationA
2206 end subroutine
2207#endif
2208
2209#if RK3_ENABLED
2210 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK3
2213#endif
2214 use pm_kind, only: RKG => RK3
2215 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2216 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2217 real(RKG) , intent(inout) , contiguous :: matB(:)
2218 type(lowerDiag_type) , intent(in) :: classA
2219 type(nothing_type) , intent(in) :: operationA
2220 end subroutine
2221#endif
2222
2223#if RK2_ENABLED
2224 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2226 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK2
2227#endif
2228 use pm_kind, only: RKG => RK2
2229 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2230 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2231 real(RKG) , intent(inout) , contiguous :: matB(:)
2232 type(lowerDiag_type) , intent(in) :: classA
2233 type(nothing_type) , intent(in) :: operationA
2234 end subroutine
2235#endif
2236
2237#if RK1_ENABLED
2238 PURE module subroutine trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2240 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_ONOA_CGMB_ONOB_RK1
2241#endif
2242 use pm_kind, only: RKG => RK1
2243 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2244 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2245 real(RKG) , intent(inout) , contiguous :: matB(:)
2246 type(lowerDiag_type) , intent(in) :: classA
2247 type(nothing_type) , intent(in) :: operationA
2248 end subroutine
2249#endif
2250
2251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252
2253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2256
2257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258
2259#if CK5_ENABLED
2260 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2262 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK5
2263#endif
2264 use pm_kind, only: CKG => CK5
2265 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2266 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2267 complex(CKG) , intent(inout) , contiguous :: matB(:)
2268 type(lowerDiag_type) , intent(in) :: classA
2269 type(transSymm_type) , intent(in) :: operationA
2270 end subroutine
2271#endif
2272
2273#if CK4_ENABLED
2274 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2276 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK4
2277#endif
2278 use pm_kind, only: CKG => CK4
2279 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2280 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2281 complex(CKG) , intent(inout) , contiguous :: matB(:)
2282 type(lowerDiag_type) , intent(in) :: classA
2283 type(transSymm_type) , intent(in) :: operationA
2284 end subroutine
2285#endif
2286
2287#if CK3_ENABLED
2288 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2290 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK3
2291#endif
2292 use pm_kind, only: CKG => CK3
2293 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2294 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2295 complex(CKG) , intent(inout) , contiguous :: matB(:)
2296 type(lowerDiag_type) , intent(in) :: classA
2297 type(transSymm_type) , intent(in) :: operationA
2298 end subroutine
2299#endif
2300
2301#if CK2_ENABLED
2302 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK2
2305#endif
2306 use pm_kind, only: CKG => CK2
2307 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2308 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2309 complex(CKG) , intent(inout) , contiguous :: matB(:)
2310 type(lowerDiag_type) , intent(in) :: classA
2311 type(transSymm_type) , intent(in) :: operationA
2312 end subroutine
2313#endif
2314
2315#if CK1_ENABLED
2316 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2318 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_CK1
2319#endif
2320 use pm_kind, only: CKG => CK1
2321 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2322 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2323 complex(CKG) , intent(inout) , contiguous :: matB(:)
2324 type(lowerDiag_type) , intent(in) :: classA
2325 type(transSymm_type) , intent(in) :: operationA
2326 end subroutine
2327#endif
2328
2329 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2330
2331#if RK5_ENABLED
2332 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK5
2335#endif
2336 use pm_kind, only: RKG => RK5
2337 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2338 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2339 real(RKG) , intent(inout) , contiguous :: matB(:)
2340 type(lowerDiag_type) , intent(in) :: classA
2341 type(transSymm_type) , intent(in) :: operationA
2342 end subroutine
2343#endif
2344
2345#if RK4_ENABLED
2346 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2348 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK4
2349#endif
2350 use pm_kind, only: RKG => RK4
2351 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2352 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2353 real(RKG) , intent(inout) , contiguous :: matB(:)
2354 type(lowerDiag_type) , intent(in) :: classA
2355 type(transSymm_type) , intent(in) :: operationA
2356 end subroutine
2357#endif
2358
2359#if RK3_ENABLED
2360 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2362 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK3
2363#endif
2364 use pm_kind, only: RKG => RK3
2365 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2366 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2367 real(RKG) , intent(inout) , contiguous :: matB(:)
2368 type(lowerDiag_type) , intent(in) :: classA
2369 type(transSymm_type) , intent(in) :: operationA
2370 end subroutine
2371#endif
2372
2373#if RK2_ENABLED
2374 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK2
2377#endif
2378 use pm_kind, only: RKG => RK2
2379 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2380 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2381 real(RKG) , intent(inout) , contiguous :: matB(:)
2382 type(lowerDiag_type) , intent(in) :: classA
2383 type(transSymm_type) , intent(in) :: operationA
2384 end subroutine
2385#endif
2386
2387#if RK1_ENABLED
2388 PURE module subroutine trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTSA_CGMB_ONOB_RK1
2391#endif
2392 use pm_kind, only: RKG => RK1
2393 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2394 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2395 real(RKG) , intent(inout) , contiguous :: matB(:)
2396 type(lowerDiag_type) , intent(in) :: classA
2397 type(transSymm_type) , intent(in) :: operationA
2398 end subroutine
2399#endif
2400
2401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2402
2403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2404 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2406
2407 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2408
2409#if CK5_ENABLED
2410 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2412 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK5
2413#endif
2414 use pm_kind, only: CKG => CK5
2415 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2416 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2417 complex(CKG) , intent(inout) , contiguous :: matB(:)
2418 type(lowerDiag_type) , intent(in) :: classA
2419 type(transHerm_type) , intent(in) :: operationA
2420 end subroutine
2421#endif
2422
2423#if CK4_ENABLED
2424 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK4
2427#endif
2428 use pm_kind, only: CKG => CK4
2429 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2430 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2431 complex(CKG) , intent(inout) , contiguous :: matB(:)
2432 type(lowerDiag_type) , intent(in) :: classA
2433 type(transHerm_type) , intent(in) :: operationA
2434 end subroutine
2435#endif
2436
2437#if CK3_ENABLED
2438 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2440 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK3
2441#endif
2442 use pm_kind, only: CKG => CK3
2443 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2444 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2445 complex(CKG) , intent(inout) , contiguous :: matB(:)
2446 type(lowerDiag_type) , intent(in) :: classA
2447 type(transHerm_type) , intent(in) :: operationA
2448 end subroutine
2449#endif
2450
2451#if CK2_ENABLED
2452 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2454 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK2
2455#endif
2456 use pm_kind, only: CKG => CK2
2457 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2458 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2459 complex(CKG) , intent(inout) , contiguous :: matB(:)
2460 type(lowerDiag_type) , intent(in) :: classA
2461 type(transHerm_type) , intent(in) :: operationA
2462 end subroutine
2463#endif
2464
2465#if CK1_ENABLED
2466 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2468 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_CK1
2469#endif
2470 use pm_kind, only: CKG => CK1
2471 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2472 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2473 complex(CKG) , intent(inout) , contiguous :: matB(:)
2474 type(lowerDiag_type) , intent(in) :: classA
2475 type(transHerm_type) , intent(in) :: operationA
2476 end subroutine
2477#endif
2478
2479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2480
2481#if RK5_ENABLED
2482 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2484 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK5
2485#endif
2486 use pm_kind, only: RKG => RK5
2487 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2488 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2489 real(RKG) , intent(inout) , contiguous :: matB(:)
2490 type(lowerDiag_type) , intent(in) :: classA
2491 type(transHerm_type) , intent(in) :: operationA
2492 end subroutine
2493#endif
2494
2495#if RK4_ENABLED
2496 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2498 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK4
2499#endif
2500 use pm_kind, only: RKG => RK4
2501 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2502 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2503 real(RKG) , intent(inout) , contiguous :: matB(:)
2504 type(lowerDiag_type) , intent(in) :: classA
2505 type(transHerm_type) , intent(in) :: operationA
2506 end subroutine
2507#endif
2508
2509#if RK3_ENABLED
2510 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK3
2513#endif
2514 use pm_kind, only: RKG => RK3
2515 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2516 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2517 real(RKG) , intent(inout) , contiguous :: matB(:)
2518 type(lowerDiag_type) , intent(in) :: classA
2519 type(transHerm_type) , intent(in) :: operationA
2520 end subroutine
2521#endif
2522
2523#if RK2_ENABLED
2524 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2526 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK2
2527#endif
2528 use pm_kind, only: RKG => RK2
2529 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2530 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2531 real(RKG) , intent(inout) , contiguous :: matB(:)
2532 type(lowerDiag_type) , intent(in) :: classA
2533 type(transHerm_type) , intent(in) :: operationA
2534 end subroutine
2535#endif
2536
2537#if RK1_ENABLED
2538 PURE module subroutine trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLDA_OTHA_CGMB_ONOB_RK1
2541#endif
2542 use pm_kind, only: RKG => RK1
2543 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2544 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2545 real(RKG) , intent(inout) , contiguous :: matB(:)
2546 type(lowerDiag_type) , intent(in) :: classA
2547 type(transHerm_type) , intent(in) :: operationA
2548 end subroutine
2549#endif
2550
2551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2552
2553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2556
2557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2560
2561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2562
2563#if CK5_ENABLED
2564 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2566 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK5
2567#endif
2568 use pm_kind, only: CKG => CK5
2569 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2570 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2571 complex(CKG) , intent(inout) , contiguous :: matB(:)
2572 type(upperDiag_type) , intent(in) :: classA
2573 type(nothing_type) , intent(in) :: operationA
2574 end subroutine
2575#endif
2576
2577#if CK4_ENABLED
2578 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2580 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK4
2581#endif
2582 use pm_kind, only: CKG => CK4
2583 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2584 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2585 complex(CKG) , intent(inout) , contiguous :: matB(:)
2586 type(upperDiag_type) , intent(in) :: classA
2587 type(nothing_type) , intent(in) :: operationA
2588 end subroutine
2589#endif
2590
2591#if CK3_ENABLED
2592 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2594 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK3
2595#endif
2596 use pm_kind, only: CKG => CK3
2597 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2598 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2599 complex(CKG) , intent(inout) , contiguous :: matB(:)
2600 type(upperDiag_type) , intent(in) :: classA
2601 type(nothing_type) , intent(in) :: operationA
2602 end subroutine
2603#endif
2604
2605#if CK2_ENABLED
2606 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2608 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK2
2609#endif
2610 use pm_kind, only: CKG => CK2
2611 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2612 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2613 complex(CKG) , intent(inout) , contiguous :: matB(:)
2614 type(upperDiag_type) , intent(in) :: classA
2615 type(nothing_type) , intent(in) :: operationA
2616 end subroutine
2617#endif
2618
2619#if CK1_ENABLED
2620 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2622 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_CK1
2623#endif
2624 use pm_kind, only: CKG => CK1
2625 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2626 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2627 complex(CKG) , intent(inout) , contiguous :: matB(:)
2628 type(upperDiag_type) , intent(in) :: classA
2629 type(nothing_type) , intent(in) :: operationA
2630 end subroutine
2631#endif
2632
2633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2634
2635#if RK5_ENABLED
2636 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2638 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK5
2639#endif
2640 use pm_kind, only: RKG => RK5
2641 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2642 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2643 real(RKG) , intent(inout) , contiguous :: matB(:)
2644 type(upperDiag_type) , intent(in) :: classA
2645 type(nothing_type) , intent(in) :: operationA
2646 end subroutine
2647#endif
2648
2649#if RK4_ENABLED
2650 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2652 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK4
2653#endif
2654 use pm_kind, only: RKG => RK4
2655 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2656 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2657 real(RKG) , intent(inout) , contiguous :: matB(:)
2658 type(upperDiag_type) , intent(in) :: classA
2659 type(nothing_type) , intent(in) :: operationA
2660 end subroutine
2661#endif
2662
2663#if RK3_ENABLED
2664 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2666 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK3
2667#endif
2668 use pm_kind, only: RKG => RK3
2669 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2670 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2671 real(RKG) , intent(inout) , contiguous :: matB(:)
2672 type(upperDiag_type) , intent(in) :: classA
2673 type(nothing_type) , intent(in) :: operationA
2674 end subroutine
2675#endif
2676
2677#if RK2_ENABLED
2678 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2680 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK2
2681#endif
2682 use pm_kind, only: RKG => RK2
2683 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2684 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2685 real(RKG) , intent(inout) , contiguous :: matB(:)
2686 type(upperDiag_type) , intent(in) :: classA
2687 type(nothing_type) , intent(in) :: operationA
2688 end subroutine
2689#endif
2690
2691#if RK1_ENABLED
2692 PURE module subroutine trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2694 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_ONOA_CGMB_ONOB_RK1
2695#endif
2696 use pm_kind, only: RKG => RK1
2697 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2698 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2699 real(RKG) , intent(inout) , contiguous :: matB(:)
2700 type(upperDiag_type) , intent(in) :: classA
2701 type(nothing_type) , intent(in) :: operationA
2702 end subroutine
2703#endif
2704
2705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2706
2707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2710
2711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2712
2713#if CK5_ENABLED
2714 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2716 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK5
2717#endif
2718 use pm_kind, only: CKG => CK5
2719 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2720 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2721 complex(CKG) , intent(inout) , contiguous :: matB(:)
2722 type(upperDiag_type) , intent(in) :: classA
2723 type(transSymm_type) , intent(in) :: operationA
2724 end subroutine
2725#endif
2726
2727#if CK4_ENABLED
2728 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2730 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK4
2731#endif
2732 use pm_kind, only: CKG => CK4
2733 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2734 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2735 complex(CKG) , intent(inout) , contiguous :: matB(:)
2736 type(upperDiag_type) , intent(in) :: classA
2737 type(transSymm_type) , intent(in) :: operationA
2738 end subroutine
2739#endif
2740
2741#if CK3_ENABLED
2742 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2744 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK3
2745#endif
2746 use pm_kind, only: CKG => CK3
2747 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2748 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2749 complex(CKG) , intent(inout) , contiguous :: matB(:)
2750 type(upperDiag_type) , intent(in) :: classA
2751 type(transSymm_type) , intent(in) :: operationA
2752 end subroutine
2753#endif
2754
2755#if CK2_ENABLED
2756 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2758 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK2
2759#endif
2760 use pm_kind, only: CKG => CK2
2761 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2762 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2763 complex(CKG) , intent(inout) , contiguous :: matB(:)
2764 type(upperDiag_type) , intent(in) :: classA
2765 type(transSymm_type) , intent(in) :: operationA
2766 end subroutine
2767#endif
2768
2769#if CK1_ENABLED
2770 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2772 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_CK1
2773#endif
2774 use pm_kind, only: CKG => CK1
2775 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2776 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2777 complex(CKG) , intent(inout) , contiguous :: matB(:)
2778 type(upperDiag_type) , intent(in) :: classA
2779 type(transSymm_type) , intent(in) :: operationA
2780 end subroutine
2781#endif
2782
2783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2784
2785#if RK5_ENABLED
2786 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2788 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK5
2789#endif
2790 use pm_kind, only: RKG => RK5
2791 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2792 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2793 real(RKG) , intent(inout) , contiguous :: matB(:)
2794 type(upperDiag_type) , intent(in) :: classA
2795 type(transSymm_type) , intent(in) :: operationA
2796 end subroutine
2797#endif
2798
2799#if RK4_ENABLED
2800 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2802 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK4
2803#endif
2804 use pm_kind, only: RKG => RK4
2805 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2806 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2807 real(RKG) , intent(inout) , contiguous :: matB(:)
2808 type(upperDiag_type) , intent(in) :: classA
2809 type(transSymm_type) , intent(in) :: operationA
2810 end subroutine
2811#endif
2812
2813#if RK3_ENABLED
2814 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2816 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK3
2817#endif
2818 use pm_kind, only: RKG => RK3
2819 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2820 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2821 real(RKG) , intent(inout) , contiguous :: matB(:)
2822 type(upperDiag_type) , intent(in) :: classA
2823 type(transSymm_type) , intent(in) :: operationA
2824 end subroutine
2825#endif
2826
2827#if RK2_ENABLED
2828 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2830 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK2
2831#endif
2832 use pm_kind, only: RKG => RK2
2833 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2834 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2835 real(RKG) , intent(inout) , contiguous :: matB(:)
2836 type(upperDiag_type) , intent(in) :: classA
2837 type(transSymm_type) , intent(in) :: operationA
2838 end subroutine
2839#endif
2840
2841#if RK1_ENABLED
2842 PURE module subroutine trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTSA_CGMB_ONOB_RK1
2845#endif
2846 use pm_kind, only: RKG => RK1
2847 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2848 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2849 real(RKG) , intent(inout) , contiguous :: matB(:)
2850 type(upperDiag_type) , intent(in) :: classA
2851 type(transSymm_type) , intent(in) :: operationA
2852 end subroutine
2853#endif
2854
2855 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2856
2857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2860
2861 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2862
2863#if CK5_ENABLED
2864 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2866 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK5
2867#endif
2868 use pm_kind, only: CKG => CK5
2869 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2870 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2871 complex(CKG) , intent(inout) , contiguous :: matB(:)
2872 type(upperDiag_type) , intent(in) :: classA
2873 type(transHerm_type) , intent(in) :: operationA
2874 end subroutine
2875#endif
2876
2877#if CK4_ENABLED
2878 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2880 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK4
2881#endif
2882 use pm_kind, only: CKG => CK4
2883 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2884 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2885 complex(CKG) , intent(inout) , contiguous :: matB(:)
2886 type(upperDiag_type) , intent(in) :: classA
2887 type(transHerm_type) , intent(in) :: operationA
2888 end subroutine
2889#endif
2890
2891#if CK3_ENABLED
2892 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2894 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK3
2895#endif
2896 use pm_kind, only: CKG => CK3
2897 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2898 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2899 complex(CKG) , intent(inout) , contiguous :: matB(:)
2900 type(upperDiag_type) , intent(in) :: classA
2901 type(transHerm_type) , intent(in) :: operationA
2902 end subroutine
2903#endif
2904
2905#if CK2_ENABLED
2906 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2908 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK2
2909#endif
2910 use pm_kind, only: CKG => CK2
2911 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2912 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2913 complex(CKG) , intent(inout) , contiguous :: matB(:)
2914 type(upperDiag_type) , intent(in) :: classA
2915 type(transHerm_type) , intent(in) :: operationA
2916 end subroutine
2917#endif
2918
2919#if CK1_ENABLED
2920 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2922 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_CK1
2923#endif
2924 use pm_kind, only: CKG => CK1
2925 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2926 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2927 complex(CKG) , intent(inout) , contiguous :: matB(:)
2928 type(upperDiag_type) , intent(in) :: classA
2929 type(transHerm_type) , intent(in) :: operationA
2930 end subroutine
2931#endif
2932
2933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2934
2935#if RK5_ENABLED
2936 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2938 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK5
2939#endif
2940 use pm_kind, only: RKG => RK5
2941 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2942 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2943 real(RKG) , intent(inout) , contiguous :: matB(:)
2944 type(upperDiag_type) , intent(in) :: classA
2945 type(transHerm_type) , intent(in) :: operationA
2946 end subroutine
2947#endif
2948
2949#if RK4_ENABLED
2950 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2952 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK4
2953#endif
2954 use pm_kind, only: RKG => RK4
2955 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2956 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2957 real(RKG) , intent(inout) , contiguous :: matB(:)
2958 type(upperDiag_type) , intent(in) :: classA
2959 type(transHerm_type) , intent(in) :: operationA
2960 end subroutine
2961#endif
2962
2963#if RK3_ENABLED
2964 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK3
2967#endif
2968 use pm_kind, only: RKG => RK3
2969 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2970 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2971 real(RKG) , intent(inout) , contiguous :: matB(:)
2972 type(upperDiag_type) , intent(in) :: classA
2973 type(transHerm_type) , intent(in) :: operationA
2974 end subroutine
2975#endif
2976
2977#if RK2_ENABLED
2978 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2980 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK2
2981#endif
2982 use pm_kind, only: RKG => RK2
2983 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2984 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2985 real(RKG) , intent(inout) , contiguous :: matB(:)
2986 type(upperDiag_type) , intent(in) :: classA
2987 type(transHerm_type) , intent(in) :: operationA
2988 end subroutine
2989#endif
2990
2991#if RK1_ENABLED
2992 PURE module subroutine trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
2993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2994 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUDA_OTHA_CGMB_ONOB_RK1
2995#endif
2996 use pm_kind, only: RKG => RK1
2997 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
2998 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
2999 real(RKG) , intent(inout) , contiguous :: matB(:)
3000 type(upperDiag_type) , intent(in) :: classA
3001 type(transHerm_type) , intent(in) :: operationA
3002 end subroutine
3003#endif
3004
3005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3006
3007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3010
3011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3014
3015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3016
3017#if CK5_ENABLED
3018 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3020 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK5
3021#endif
3022 use pm_kind, only: CKG => CK5
3023 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3024 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3025 complex(CKG) , intent(inout) , contiguous :: matB(:)
3026 type(lowerUnit_type) , intent(in) :: classA
3027 type(nothing_type) , intent(in) :: operationA
3028 end subroutine
3029#endif
3030
3031#if CK4_ENABLED
3032 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3034 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK4
3035#endif
3036 use pm_kind, only: CKG => CK4
3037 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3038 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3039 complex(CKG) , intent(inout) , contiguous :: matB(:)
3040 type(lowerUnit_type) , intent(in) :: classA
3041 type(nothing_type) , intent(in) :: operationA
3042 end subroutine
3043#endif
3044
3045#if CK3_ENABLED
3046 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3048 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK3
3049#endif
3050 use pm_kind, only: CKG => CK3
3051 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3052 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3053 complex(CKG) , intent(inout) , contiguous :: matB(:)
3054 type(lowerUnit_type) , intent(in) :: classA
3055 type(nothing_type) , intent(in) :: operationA
3056 end subroutine
3057#endif
3058
3059#if CK2_ENABLED
3060 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3062 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK2
3063#endif
3064 use pm_kind, only: CKG => CK2
3065 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3066 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3067 complex(CKG) , intent(inout) , contiguous :: matB(:)
3068 type(lowerUnit_type) , intent(in) :: classA
3069 type(nothing_type) , intent(in) :: operationA
3070 end subroutine
3071#endif
3072
3073#if CK1_ENABLED
3074 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3076 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_CK1
3077#endif
3078 use pm_kind, only: CKG => CK1
3079 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3080 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3081 complex(CKG) , intent(inout) , contiguous :: matB(:)
3082 type(lowerUnit_type) , intent(in) :: classA
3083 type(nothing_type) , intent(in) :: operationA
3084 end subroutine
3085#endif
3086
3087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3088
3089#if RK5_ENABLED
3090 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3092 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK5
3093#endif
3094 use pm_kind, only: RKG => RK5
3095 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3096 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3097 real(RKG) , intent(inout) , contiguous :: matB(:)
3098 type(lowerUnit_type) , intent(in) :: classA
3099 type(nothing_type) , intent(in) :: operationA
3100 end subroutine
3101#endif
3102
3103#if RK4_ENABLED
3104 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3106 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK4
3107#endif
3108 use pm_kind, only: RKG => RK4
3109 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3110 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3111 real(RKG) , intent(inout) , contiguous :: matB(:)
3112 type(lowerUnit_type) , intent(in) :: classA
3113 type(nothing_type) , intent(in) :: operationA
3114 end subroutine
3115#endif
3116
3117#if RK3_ENABLED
3118 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK3
3121#endif
3122 use pm_kind, only: RKG => RK3
3123 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3124 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3125 real(RKG) , intent(inout) , contiguous :: matB(:)
3126 type(lowerUnit_type) , intent(in) :: classA
3127 type(nothing_type) , intent(in) :: operationA
3128 end subroutine
3129#endif
3130
3131#if RK2_ENABLED
3132 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3134 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK2
3135#endif
3136 use pm_kind, only: RKG => RK2
3137 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3138 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3139 real(RKG) , intent(inout) , contiguous :: matB(:)
3140 type(lowerUnit_type) , intent(in) :: classA
3141 type(nothing_type) , intent(in) :: operationA
3142 end subroutine
3143#endif
3144
3145#if RK1_ENABLED
3146 PURE module subroutine trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3148 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_ONOA_CGMB_ONOB_RK1
3149#endif
3150 use pm_kind, only: RKG => RK1
3151 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3152 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3153 real(RKG) , intent(inout) , contiguous :: matB(:)
3154 type(lowerUnit_type) , intent(in) :: classA
3155 type(nothing_type) , intent(in) :: operationA
3156 end subroutine
3157#endif
3158
3159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3160
3161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3164
3165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3166
3167#if CK5_ENABLED
3168 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3170 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK5
3171#endif
3172 use pm_kind, only: CKG => CK5
3173 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3174 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3175 complex(CKG) , intent(inout) , contiguous :: matB(:)
3176 type(lowerUnit_type) , intent(in) :: classA
3177 type(transSymm_type) , intent(in) :: operationA
3178 end subroutine
3179#endif
3180
3181#if CK4_ENABLED
3182 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3184 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK4
3185#endif
3186 use pm_kind, only: CKG => CK4
3187 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3188 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3189 complex(CKG) , intent(inout) , contiguous :: matB(:)
3190 type(lowerUnit_type) , intent(in) :: classA
3191 type(transSymm_type) , intent(in) :: operationA
3192 end subroutine
3193#endif
3194
3195#if CK3_ENABLED
3196 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3198 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK3
3199#endif
3200 use pm_kind, only: CKG => CK3
3201 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3202 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3203 complex(CKG) , intent(inout) , contiguous :: matB(:)
3204 type(lowerUnit_type) , intent(in) :: classA
3205 type(transSymm_type) , intent(in) :: operationA
3206 end subroutine
3207#endif
3208
3209#if CK2_ENABLED
3210 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3212 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK2
3213#endif
3214 use pm_kind, only: CKG => CK2
3215 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3216 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3217 complex(CKG) , intent(inout) , contiguous :: matB(:)
3218 type(lowerUnit_type) , intent(in) :: classA
3219 type(transSymm_type) , intent(in) :: operationA
3220 end subroutine
3221#endif
3222
3223#if CK1_ENABLED
3224 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3226 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_CK1
3227#endif
3228 use pm_kind, only: CKG => CK1
3229 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3230 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3231 complex(CKG) , intent(inout) , contiguous :: matB(:)
3232 type(lowerUnit_type) , intent(in) :: classA
3233 type(transSymm_type) , intent(in) :: operationA
3234 end subroutine
3235#endif
3236
3237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3238
3239#if RK5_ENABLED
3240 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK5
3243#endif
3244 use pm_kind, only: RKG => RK5
3245 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3246 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3247 real(RKG) , intent(inout) , contiguous :: matB(:)
3248 type(lowerUnit_type) , intent(in) :: classA
3249 type(transSymm_type) , intent(in) :: operationA
3250 end subroutine
3251#endif
3252
3253#if RK4_ENABLED
3254 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3256 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK4
3257#endif
3258 use pm_kind, only: RKG => RK4
3259 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3260 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3261 real(RKG) , intent(inout) , contiguous :: matB(:)
3262 type(lowerUnit_type) , intent(in) :: classA
3263 type(transSymm_type) , intent(in) :: operationA
3264 end subroutine
3265#endif
3266
3267#if RK3_ENABLED
3268 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3270 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK3
3271#endif
3272 use pm_kind, only: RKG => RK3
3273 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3274 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3275 real(RKG) , intent(inout) , contiguous :: matB(:)
3276 type(lowerUnit_type) , intent(in) :: classA
3277 type(transSymm_type) , intent(in) :: operationA
3278 end subroutine
3279#endif
3280
3281#if RK2_ENABLED
3282 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3284 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK2
3285#endif
3286 use pm_kind, only: RKG => RK2
3287 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3288 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3289 real(RKG) , intent(inout) , contiguous :: matB(:)
3290 type(lowerUnit_type) , intent(in) :: classA
3291 type(transSymm_type) , intent(in) :: operationA
3292 end subroutine
3293#endif
3294
3295#if RK1_ENABLED
3296 PURE module subroutine trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3298 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTSA_CGMB_ONOB_RK1
3299#endif
3300 use pm_kind, only: RKG => RK1
3301 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3302 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3303 real(RKG) , intent(inout) , contiguous :: matB(:)
3304 type(lowerUnit_type) , intent(in) :: classA
3305 type(transSymm_type) , intent(in) :: operationA
3306 end subroutine
3307#endif
3308
3309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3310
3311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3312 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3314
3315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3316
3317#if CK5_ENABLED
3318 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3320 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK5
3321#endif
3322 use pm_kind, only: CKG => CK5
3323 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3324 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3325 complex(CKG) , intent(inout) , contiguous :: matB(:)
3326 type(lowerUnit_type) , intent(in) :: classA
3327 type(transHerm_type) , intent(in) :: operationA
3328 end subroutine
3329#endif
3330
3331#if CK4_ENABLED
3332 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK4
3335#endif
3336 use pm_kind, only: CKG => CK4
3337 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3338 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3339 complex(CKG) , intent(inout) , contiguous :: matB(:)
3340 type(lowerUnit_type) , intent(in) :: classA
3341 type(transHerm_type) , intent(in) :: operationA
3342 end subroutine
3343#endif
3344
3345#if CK3_ENABLED
3346 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3348 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK3
3349#endif
3350 use pm_kind, only: CKG => CK3
3351 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3352 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3353 complex(CKG) , intent(inout) , contiguous :: matB(:)
3354 type(lowerUnit_type) , intent(in) :: classA
3355 type(transHerm_type) , intent(in) :: operationA
3356 end subroutine
3357#endif
3358
3359#if CK2_ENABLED
3360 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3362 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK2
3363#endif
3364 use pm_kind, only: CKG => CK2
3365 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3366 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3367 complex(CKG) , intent(inout) , contiguous :: matB(:)
3368 type(lowerUnit_type) , intent(in) :: classA
3369 type(transHerm_type) , intent(in) :: operationA
3370 end subroutine
3371#endif
3372
3373#if CK1_ENABLED
3374 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3376 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_CK1
3377#endif
3378 use pm_kind, only: CKG => CK1
3379 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3380 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3381 complex(CKG) , intent(inout) , contiguous :: matB(:)
3382 type(lowerUnit_type) , intent(in) :: classA
3383 type(transHerm_type) , intent(in) :: operationA
3384 end subroutine
3385#endif
3386
3387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3388
3389#if RK5_ENABLED
3390 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3392 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK5
3393#endif
3394 use pm_kind, only: RKG => RK5
3395 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3396 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3397 real(RKG) , intent(inout) , contiguous :: matB(:)
3398 type(lowerUnit_type) , intent(in) :: classA
3399 type(transHerm_type) , intent(in) :: operationA
3400 end subroutine
3401#endif
3402
3403#if RK4_ENABLED
3404 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK4
3407#endif
3408 use pm_kind, only: RKG => RK4
3409 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3410 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3411 real(RKG) , intent(inout) , contiguous :: matB(:)
3412 type(lowerUnit_type) , intent(in) :: classA
3413 type(transHerm_type) , intent(in) :: operationA
3414 end subroutine
3415#endif
3416
3417#if RK3_ENABLED
3418 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3420 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK3
3421#endif
3422 use pm_kind, only: RKG => RK3
3423 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3424 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3425 real(RKG) , intent(inout) , contiguous :: matB(:)
3426 type(lowerUnit_type) , intent(in) :: classA
3427 type(transHerm_type) , intent(in) :: operationA
3428 end subroutine
3429#endif
3430
3431#if RK2_ENABLED
3432 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3434 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK2
3435#endif
3436 use pm_kind, only: RKG => RK2
3437 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3438 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3439 real(RKG) , intent(inout) , contiguous :: matB(:)
3440 type(lowerUnit_type) , intent(in) :: classA
3441 type(transHerm_type) , intent(in) :: operationA
3442 end subroutine
3443#endif
3444
3445#if RK1_ENABLED
3446 PURE module subroutine trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3448 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CLUA_OTHA_CGMB_ONOB_RK1
3449#endif
3450 use pm_kind, only: RKG => RK1
3451 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3452 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3453 real(RKG) , intent(inout) , contiguous :: matB(:)
3454 type(lowerUnit_type) , intent(in) :: classA
3455 type(transHerm_type) , intent(in) :: operationA
3456 end subroutine
3457#endif
3458
3459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3460
3461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3464
3465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3468
3469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3470
3471#if CK5_ENABLED
3472 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3474 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK5
3475#endif
3476 use pm_kind, only: CKG => CK5
3477 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3478 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3479 complex(CKG) , intent(inout) , contiguous :: matB(:)
3480 type(upperUnit_type) , intent(in) :: classA
3481 type(nothing_type) , intent(in) :: operationA
3482 end subroutine
3483#endif
3484
3485#if CK4_ENABLED
3486 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK4
3489#endif
3490 use pm_kind, only: CKG => CK4
3491 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3492 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3493 complex(CKG) , intent(inout) , contiguous :: matB(:)
3494 type(upperUnit_type) , intent(in) :: classA
3495 type(nothing_type) , intent(in) :: operationA
3496 end subroutine
3497#endif
3498
3499#if CK3_ENABLED
3500 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3502 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK3
3503#endif
3504 use pm_kind, only: CKG => CK3
3505 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3506 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3507 complex(CKG) , intent(inout) , contiguous :: matB(:)
3508 type(upperUnit_type) , intent(in) :: classA
3509 type(nothing_type) , intent(in) :: operationA
3510 end subroutine
3511#endif
3512
3513#if CK2_ENABLED
3514 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3516 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK2
3517#endif
3518 use pm_kind, only: CKG => CK2
3519 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3520 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3521 complex(CKG) , intent(inout) , contiguous :: matB(:)
3522 type(upperUnit_type) , intent(in) :: classA
3523 type(nothing_type) , intent(in) :: operationA
3524 end subroutine
3525#endif
3526
3527#if CK1_ENABLED
3528 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3530 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_CK1
3531#endif
3532 use pm_kind, only: CKG => CK1
3533 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3534 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3535 complex(CKG) , intent(inout) , contiguous :: matB(:)
3536 type(upperUnit_type) , intent(in) :: classA
3537 type(nothing_type) , intent(in) :: operationA
3538 end subroutine
3539#endif
3540
3541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3542
3543#if RK5_ENABLED
3544 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3546 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK5
3547#endif
3548 use pm_kind, only: RKG => RK5
3549 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3550 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3551 real(RKG) , intent(inout) , contiguous :: matB(:)
3552 type(upperUnit_type) , intent(in) :: classA
3553 type(nothing_type) , intent(in) :: operationA
3554 end subroutine
3555#endif
3556
3557#if RK4_ENABLED
3558 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3560 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK4
3561#endif
3562 use pm_kind, only: RKG => RK4
3563 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3564 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3565 real(RKG) , intent(inout) , contiguous :: matB(:)
3566 type(upperUnit_type) , intent(in) :: classA
3567 type(nothing_type) , intent(in) :: operationA
3568 end subroutine
3569#endif
3570
3571#if RK3_ENABLED
3572 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3574 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK3
3575#endif
3576 use pm_kind, only: RKG => RK3
3577 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3578 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3579 real(RKG) , intent(inout) , contiguous :: matB(:)
3580 type(upperUnit_type) , intent(in) :: classA
3581 type(nothing_type) , intent(in) :: operationA
3582 end subroutine
3583#endif
3584
3585#if RK2_ENABLED
3586 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK2
3589#endif
3590 use pm_kind, only: RKG => RK2
3591 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3592 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3593 real(RKG) , intent(inout) , contiguous :: matB(:)
3594 type(upperUnit_type) , intent(in) :: classA
3595 type(nothing_type) , intent(in) :: operationA
3596 end subroutine
3597#endif
3598
3599#if RK1_ENABLED
3600 PURE module subroutine trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3602 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_ONOA_CGMB_ONOB_RK1
3603#endif
3604 use pm_kind, only: RKG => RK1
3605 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3606 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3607 real(RKG) , intent(inout) , contiguous :: matB(:)
3608 type(upperUnit_type) , intent(in) :: classA
3609 type(nothing_type) , intent(in) :: operationA
3610 end subroutine
3611#endif
3612
3613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3614
3615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3616 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3618
3619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3620
3621#if CK5_ENABLED
3622 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3624 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK5
3625#endif
3626 use pm_kind, only: CKG => CK5
3627 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3628 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3629 complex(CKG) , intent(inout) , contiguous :: matB(:)
3630 type(upperUnit_type) , intent(in) :: classA
3631 type(transSymm_type) , intent(in) :: operationA
3632 end subroutine
3633#endif
3634
3635#if CK4_ENABLED
3636 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3638 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK4
3639#endif
3640 use pm_kind, only: CKG => CK4
3641 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3642 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3643 complex(CKG) , intent(inout) , contiguous :: matB(:)
3644 type(upperUnit_type) , intent(in) :: classA
3645 type(transSymm_type) , intent(in) :: operationA
3646 end subroutine
3647#endif
3648
3649#if CK3_ENABLED
3650 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3652 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK3
3653#endif
3654 use pm_kind, only: CKG => CK3
3655 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3656 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3657 complex(CKG) , intent(inout) , contiguous :: matB(:)
3658 type(upperUnit_type) , intent(in) :: classA
3659 type(transSymm_type) , intent(in) :: operationA
3660 end subroutine
3661#endif
3662
3663#if CK2_ENABLED
3664 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3666 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK2
3667#endif
3668 use pm_kind, only: CKG => CK2
3669 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3670 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3671 complex(CKG) , intent(inout) , contiguous :: matB(:)
3672 type(upperUnit_type) , intent(in) :: classA
3673 type(transSymm_type) , intent(in) :: operationA
3674 end subroutine
3675#endif
3676
3677#if CK1_ENABLED
3678 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_CK1
3681#endif
3682 use pm_kind, only: CKG => CK1
3683 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3684 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3685 complex(CKG) , intent(inout) , contiguous :: matB(:)
3686 type(upperUnit_type) , intent(in) :: classA
3687 type(transSymm_type) , intent(in) :: operationA
3688 end subroutine
3689#endif
3690
3691 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3692
3693#if RK5_ENABLED
3694 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3696 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK5
3697#endif
3698 use pm_kind, only: RKG => RK5
3699 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3700 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3701 real(RKG) , intent(inout) , contiguous :: matB(:)
3702 type(upperUnit_type) , intent(in) :: classA
3703 type(transSymm_type) , intent(in) :: operationA
3704 end subroutine
3705#endif
3706
3707#if RK4_ENABLED
3708 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3710 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK4
3711#endif
3712 use pm_kind, only: RKG => RK4
3713 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3714 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3715 real(RKG) , intent(inout) , contiguous :: matB(:)
3716 type(upperUnit_type) , intent(in) :: classA
3717 type(transSymm_type) , intent(in) :: operationA
3718 end subroutine
3719#endif
3720
3721#if RK3_ENABLED
3722 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3724 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK3
3725#endif
3726 use pm_kind, only: RKG => RK3
3727 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3728 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3729 real(RKG) , intent(inout) , contiguous :: matB(:)
3730 type(upperUnit_type) , intent(in) :: classA
3731 type(transSymm_type) , intent(in) :: operationA
3732 end subroutine
3733#endif
3734
3735#if RK2_ENABLED
3736 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3738 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK2
3739#endif
3740 use pm_kind, only: RKG => RK2
3741 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3742 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3743 real(RKG) , intent(inout) , contiguous :: matB(:)
3744 type(upperUnit_type) , intent(in) :: classA
3745 type(transSymm_type) , intent(in) :: operationA
3746 end subroutine
3747#endif
3748
3749#if RK1_ENABLED
3750 PURE module subroutine trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTSA_CGMB_ONOB_RK1
3753#endif
3754 use pm_kind, only: RKG => RK1
3755 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3756 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3757 real(RKG) , intent(inout) , contiguous :: matB(:)
3758 type(upperUnit_type) , intent(in) :: classA
3759 type(transSymm_type) , intent(in) :: operationA
3760 end subroutine
3761#endif
3762
3763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3764
3765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3768
3769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770
3771#if CK5_ENABLED
3772 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3774 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK5
3775#endif
3776 use pm_kind, only: CKG => CK5
3777 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3778 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3779 complex(CKG) , intent(inout) , contiguous :: matB(:)
3780 type(upperUnit_type) , intent(in) :: classA
3781 type(transHerm_type) , intent(in) :: operationA
3782 end subroutine
3783#endif
3784
3785#if CK4_ENABLED
3786 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3788 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK4
3789#endif
3790 use pm_kind, only: CKG => CK4
3791 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3792 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3793 complex(CKG) , intent(inout) , contiguous :: matB(:)
3794 type(upperUnit_type) , intent(in) :: classA
3795 type(transHerm_type) , intent(in) :: operationA
3796 end subroutine
3797#endif
3798
3799#if CK3_ENABLED
3800 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3802 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK3
3803#endif
3804 use pm_kind, only: CKG => CK3
3805 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3806 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3807 complex(CKG) , intent(inout) , contiguous :: matB(:)
3808 type(upperUnit_type) , intent(in) :: classA
3809 type(transHerm_type) , intent(in) :: operationA
3810 end subroutine
3811#endif
3812
3813#if CK2_ENABLED
3814 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3816 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK2
3817#endif
3818 use pm_kind, only: CKG => CK2
3819 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3820 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3821 complex(CKG) , intent(inout) , contiguous :: matB(:)
3822 type(upperUnit_type) , intent(in) :: classA
3823 type(transHerm_type) , intent(in) :: operationA
3824 end subroutine
3825#endif
3826
3827#if CK1_ENABLED
3828 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3830 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_CK1
3831#endif
3832 use pm_kind, only: CKG => CK1
3833 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3834 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3835 complex(CKG) , intent(inout) , contiguous :: matB(:)
3836 type(upperUnit_type) , intent(in) :: classA
3837 type(transHerm_type) , intent(in) :: operationA
3838 end subroutine
3839#endif
3840
3841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3842
3843#if RK5_ENABLED
3844 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3846 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK5
3847#endif
3848 use pm_kind, only: RKG => RK5
3849 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3850 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3851 real(RKG) , intent(inout) , contiguous :: matB(:)
3852 type(upperUnit_type) , intent(in) :: classA
3853 type(transHerm_type) , intent(in) :: operationA
3854 end subroutine
3855#endif
3856
3857#if RK4_ENABLED
3858 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3860 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK4
3861#endif
3862 use pm_kind, only: RKG => RK4
3863 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3864 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3865 real(RKG) , intent(inout) , contiguous :: matB(:)
3866 type(upperUnit_type) , intent(in) :: classA
3867 type(transHerm_type) , intent(in) :: operationA
3868 end subroutine
3869#endif
3870
3871#if RK3_ENABLED
3872 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3874 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK3
3875#endif
3876 use pm_kind, only: RKG => RK3
3877 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3878 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3879 real(RKG) , intent(inout) , contiguous :: matB(:)
3880 type(upperUnit_type) , intent(in) :: classA
3881 type(transHerm_type) , intent(in) :: operationA
3882 end subroutine
3883#endif
3884
3885#if RK2_ENABLED
3886 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3888 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK2
3889#endif
3890 use pm_kind, only: RKG => RK2
3891 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3892 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3893 real(RKG) , intent(inout) , contiguous :: matB(:)
3894 type(upperUnit_type) , intent(in) :: classA
3895 type(transHerm_type) , intent(in) :: operationA
3896 end subroutine
3897#endif
3898
3899#if RK1_ENABLED
3900 PURE module subroutine trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
3901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3902 !DEC$ ATTRIBUTES DLLEXPORT :: trmv_EXP_CUUA_OTHA_CGMB_ONOB_RK1
3903#endif
3904 use pm_kind, only: RKG => RK1
3905 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
3906 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
3907 real(RKG) , intent(inout) , contiguous :: matB(:)
3908 type(upperUnit_type) , intent(in) :: classA
3909 type(transHerm_type) , intent(in) :: operationA
3910 end subroutine
3911#endif
3912
3913 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3914
3915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3917 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3918
3919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3922
3923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3924 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3925 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3926
3927 end interface
3928
3929 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3932
3933 ! BLAS LEVEL 2 - `STRSV`, `DTRSV`, `CTRSV`, and `ZTRSV`
3934
3935 interface setMatMulTri
3936
3937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3940
3941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3944
3945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3946 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3947 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3948
3949 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3950
3951#if CK5_ENABLED
3952 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
3953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3954 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_CK5
3955#endif
3956 use pm_kind, only: CKG => CK5
3957 complex(CKG) , intent(in) , contiguous :: matA(:,:)
3958 complex(CKG) , intent(inout) , contiguous :: matB(:)
3959 type(lowerDiag_type) , intent(in) :: classA
3960 type(inversion_type) , intent(in) :: operationA
3961 end subroutine
3962#endif
3963
3964#if CK4_ENABLED
3965 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
3966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3967 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_CK4
3968#endif
3969 use pm_kind, only: CKG => CK4
3970 complex(CKG) , intent(in) , contiguous :: matA(:,:)
3971 complex(CKG) , intent(inout) , contiguous :: matB(:)
3972 type(lowerDiag_type) , intent(in) :: classA
3973 type(inversion_type) , intent(in) :: operationA
3974 end subroutine
3975#endif
3976
3977#if CK3_ENABLED
3978 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
3979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3980 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_CK3
3981#endif
3982 use pm_kind, only: CKG => CK3
3983 complex(CKG) , intent(in) , contiguous :: matA(:,:)
3984 complex(CKG) , intent(inout) , contiguous :: matB(:)
3985 type(lowerDiag_type) , intent(in) :: classA
3986 type(inversion_type) , intent(in) :: operationA
3987 end subroutine
3988#endif
3989
3990#if CK2_ENABLED
3991 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
3992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3993 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_CK2
3994#endif
3995 use pm_kind, only: CKG => CK2
3996 complex(CKG) , intent(in) , contiguous :: matA(:,:)
3997 complex(CKG) , intent(inout) , contiguous :: matB(:)
3998 type(lowerDiag_type) , intent(in) :: classA
3999 type(inversion_type) , intent(in) :: operationA
4000 end subroutine
4001#endif
4002
4003#if CK1_ENABLED
4004 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_CK1
4007#endif
4008 use pm_kind, only: CKG => CK1
4009 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4010 complex(CKG) , intent(inout) , contiguous :: matB(:)
4011 type(lowerDiag_type) , intent(in) :: classA
4012 type(inversion_type) , intent(in) :: operationA
4013 end subroutine
4014#endif
4015
4016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4017
4018#if RK5_ENABLED
4019 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4021 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_RK5
4022#endif
4023 use pm_kind, only: RKG => RK5
4024 real(RKG) , intent(in) , contiguous :: matA(:,:)
4025 real(RKG) , intent(inout) , contiguous :: matB(:)
4026 type(lowerDiag_type) , intent(in) :: classA
4027 type(inversion_type) , intent(in) :: operationA
4028 end subroutine
4029#endif
4030
4031#if RK4_ENABLED
4032 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4034 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_RK4
4035#endif
4036 use pm_kind, only: RKG => RK4
4037 real(RKG) , intent(in) , contiguous :: matA(:,:)
4038 real(RKG) , intent(inout) , contiguous :: matB(:)
4039 type(lowerDiag_type) , intent(in) :: classA
4040 type(inversion_type) , intent(in) :: operationA
4041 end subroutine
4042#endif
4043
4044#if RK3_ENABLED
4045 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4047 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_RK3
4048#endif
4049 use pm_kind, only: RKG => RK3
4050 real(RKG) , intent(in) , contiguous :: matA(:,:)
4051 real(RKG) , intent(inout) , contiguous :: matB(:)
4052 type(lowerDiag_type) , intent(in) :: classA
4053 type(inversion_type) , intent(in) :: operationA
4054 end subroutine
4055#endif
4056
4057#if RK2_ENABLED
4058 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4060 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_RK2
4061#endif
4062 use pm_kind, only: RKG => RK2
4063 real(RKG) , intent(in) , contiguous :: matA(:,:)
4064 real(RKG) , intent(inout) , contiguous :: matB(:)
4065 type(lowerDiag_type) , intent(in) :: classA
4066 type(inversion_type) , intent(in) :: operationA
4067 end subroutine
4068#endif
4069
4070#if RK1_ENABLED
4071 PURE module subroutine trsv_ASS_CLDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4073 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_INVA_CGMB_ONOB_RK1
4074#endif
4075 use pm_kind, only: RKG => RK1
4076 real(RKG) , intent(in) , contiguous :: matA(:,:)
4077 real(RKG) , intent(inout) , contiguous :: matB(:)
4078 type(lowerDiag_type) , intent(in) :: classA
4079 type(inversion_type) , intent(in) :: operationA
4080 end subroutine
4081#endif
4082
4083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4084
4085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4088
4089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4090
4091#if CK5_ENABLED
4092 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4094 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK5
4095#endif
4096 use pm_kind, only: CKG => CK5
4097 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4098 complex(CKG) , intent(inout) , contiguous :: matB(:)
4099 type(lowerDiag_type) , intent(in) :: classA
4100 type(transOrth_type) , intent(in) :: operationA
4101 end subroutine
4102#endif
4103
4104#if CK4_ENABLED
4105 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4107 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK4
4108#endif
4109 use pm_kind, only: CKG => CK4
4110 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4111 complex(CKG) , intent(inout) , contiguous :: matB(:)
4112 type(lowerDiag_type) , intent(in) :: classA
4113 type(transOrth_type) , intent(in) :: operationA
4114 end subroutine
4115#endif
4116
4117#if CK3_ENABLED
4118 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4120 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK3
4121#endif
4122 use pm_kind, only: CKG => CK3
4123 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4124 complex(CKG) , intent(inout) , contiguous :: matB(:)
4125 type(lowerDiag_type) , intent(in) :: classA
4126 type(transOrth_type) , intent(in) :: operationA
4127 end subroutine
4128#endif
4129
4130#if CK2_ENABLED
4131 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4133 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK2
4134#endif
4135 use pm_kind, only: CKG => CK2
4136 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4137 complex(CKG) , intent(inout) , contiguous :: matB(:)
4138 type(lowerDiag_type) , intent(in) :: classA
4139 type(transOrth_type) , intent(in) :: operationA
4140 end subroutine
4141#endif
4142
4143#if CK1_ENABLED
4144 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4146 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_CK1
4147#endif
4148 use pm_kind, only: CKG => CK1
4149 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4150 complex(CKG) , intent(inout) , contiguous :: matB(:)
4151 type(lowerDiag_type) , intent(in) :: classA
4152 type(transOrth_type) , intent(in) :: operationA
4153 end subroutine
4154#endif
4155
4156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4157
4158#if RK5_ENABLED
4159 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4161 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK5
4162#endif
4163 use pm_kind, only: RKG => RK5
4164 real(RKG) , intent(in) , contiguous :: matA(:,:)
4165 real(RKG) , intent(inout) , contiguous :: matB(:)
4166 type(lowerDiag_type) , intent(in) :: classA
4167 type(transOrth_type) , intent(in) :: operationA
4168 end subroutine
4169#endif
4170
4171#if RK4_ENABLED
4172 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4174 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK4
4175#endif
4176 use pm_kind, only: RKG => RK4
4177 real(RKG) , intent(in) , contiguous :: matA(:,:)
4178 real(RKG) , intent(inout) , contiguous :: matB(:)
4179 type(lowerDiag_type) , intent(in) :: classA
4180 type(transOrth_type) , intent(in) :: operationA
4181 end subroutine
4182#endif
4183
4184#if RK3_ENABLED
4185 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4187 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK3
4188#endif
4189 use pm_kind, only: RKG => RK3
4190 real(RKG) , intent(in) , contiguous :: matA(:,:)
4191 real(RKG) , intent(inout) , contiguous :: matB(:)
4192 type(lowerDiag_type) , intent(in) :: classA
4193 type(transOrth_type) , intent(in) :: operationA
4194 end subroutine
4195#endif
4196
4197#if RK2_ENABLED
4198 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK2
4201#endif
4202 use pm_kind, only: RKG => RK2
4203 real(RKG) , intent(in) , contiguous :: matA(:,:)
4204 real(RKG) , intent(inout) , contiguous :: matB(:)
4205 type(lowerDiag_type) , intent(in) :: classA
4206 type(transOrth_type) , intent(in) :: operationA
4207 end subroutine
4208#endif
4209
4210#if RK1_ENABLED
4211 PURE module subroutine trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4213 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTOA_CGMB_ONOB_RK1
4214#endif
4215 use pm_kind, only: RKG => RK1
4216 real(RKG) , intent(in) , contiguous :: matA(:,:)
4217 real(RKG) , intent(inout) , contiguous :: matB(:)
4218 type(lowerDiag_type) , intent(in) :: classA
4219 type(transOrth_type) , intent(in) :: operationA
4220 end subroutine
4221#endif
4222
4223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4224
4225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4228
4229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4230
4231#if CK5_ENABLED
4232 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4234 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK5
4235#endif
4236 use pm_kind, only: CKG => CK5
4237 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4238 complex(CKG) , intent(inout) , contiguous :: matB(:)
4239 type(lowerDiag_type) , intent(in) :: classA
4240 type(transUnit_type) , intent(in) :: operationA
4241 end subroutine
4242#endif
4243
4244#if CK4_ENABLED
4245 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4247 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK4
4248#endif
4249 use pm_kind, only: CKG => CK4
4250 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4251 complex(CKG) , intent(inout) , contiguous :: matB(:)
4252 type(lowerDiag_type) , intent(in) :: classA
4253 type(transUnit_type) , intent(in) :: operationA
4254 end subroutine
4255#endif
4256
4257#if CK3_ENABLED
4258 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4260 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK3
4261#endif
4262 use pm_kind, only: CKG => CK3
4263 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4264 complex(CKG) , intent(inout) , contiguous :: matB(:)
4265 type(lowerDiag_type) , intent(in) :: classA
4266 type(transUnit_type) , intent(in) :: operationA
4267 end subroutine
4268#endif
4269
4270#if CK2_ENABLED
4271 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4273 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK2
4274#endif
4275 use pm_kind, only: CKG => CK2
4276 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4277 complex(CKG) , intent(inout) , contiguous :: matB(:)
4278 type(lowerDiag_type) , intent(in) :: classA
4279 type(transUnit_type) , intent(in) :: operationA
4280 end subroutine
4281#endif
4282
4283#if CK1_ENABLED
4284 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4286 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_CK1
4287#endif
4288 use pm_kind, only: CKG => CK1
4289 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4290 complex(CKG) , intent(inout) , contiguous :: matB(:)
4291 type(lowerDiag_type) , intent(in) :: classA
4292 type(transUnit_type) , intent(in) :: operationA
4293 end subroutine
4294#endif
4295
4296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4297
4298#if RK5_ENABLED
4299 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4301 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK5
4302#endif
4303 use pm_kind, only: RKG => RK5
4304 real(RKG) , intent(in) , contiguous :: matA(:,:)
4305 real(RKG) , intent(inout) , contiguous :: matB(:)
4306 type(lowerDiag_type) , intent(in) :: classA
4307 type(transUnit_type) , intent(in) :: operationA
4308 end subroutine
4309#endif
4310
4311#if RK4_ENABLED
4312 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4314 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK4
4315#endif
4316 use pm_kind, only: RKG => RK4
4317 real(RKG) , intent(in) , contiguous :: matA(:,:)
4318 real(RKG) , intent(inout) , contiguous :: matB(:)
4319 type(lowerDiag_type) , intent(in) :: classA
4320 type(transUnit_type) , intent(in) :: operationA
4321 end subroutine
4322#endif
4323
4324#if RK3_ENABLED
4325 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4327 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK3
4328#endif
4329 use pm_kind, only: RKG => RK3
4330 real(RKG) , intent(in) , contiguous :: matA(:,:)
4331 real(RKG) , intent(inout) , contiguous :: matB(:)
4332 type(lowerDiag_type) , intent(in) :: classA
4333 type(transUnit_type) , intent(in) :: operationA
4334 end subroutine
4335#endif
4336
4337#if RK2_ENABLED
4338 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4340 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK2
4341#endif
4342 use pm_kind, only: RKG => RK2
4343 real(RKG) , intent(in) , contiguous :: matA(:,:)
4344 real(RKG) , intent(inout) , contiguous :: matB(:)
4345 type(lowerDiag_type) , intent(in) :: classA
4346 type(transUnit_type) , intent(in) :: operationA
4347 end subroutine
4348#endif
4349
4350#if RK1_ENABLED
4351 PURE module subroutine trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4353 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLDA_OTUA_CGMB_ONOB_RK1
4354#endif
4355 use pm_kind, only: RKG => RK1
4356 real(RKG) , intent(in) , contiguous :: matA(:,:)
4357 real(RKG) , intent(inout) , contiguous :: matB(:)
4358 type(lowerDiag_type) , intent(in) :: classA
4359 type(transUnit_type) , intent(in) :: operationA
4360 end subroutine
4361#endif
4362
4363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4364
4365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4368
4369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4372
4373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4374
4375#if CK5_ENABLED
4376 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4378 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_CK5
4379#endif
4380 use pm_kind, only: CKG => CK5
4381 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4382 complex(CKG) , intent(inout) , contiguous :: matB(:)
4383 type(upperDiag_type) , intent(in) :: classA
4384 type(inversion_type) , intent(in) :: operationA
4385 end subroutine
4386#endif
4387
4388#if CK4_ENABLED
4389 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4391 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_CK4
4392#endif
4393 use pm_kind, only: CKG => CK4
4394 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4395 complex(CKG) , intent(inout) , contiguous :: matB(:)
4396 type(upperDiag_type) , intent(in) :: classA
4397 type(inversion_type) , intent(in) :: operationA
4398 end subroutine
4399#endif
4400
4401#if CK3_ENABLED
4402 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4404 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_CK3
4405#endif
4406 use pm_kind, only: CKG => CK3
4407 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4408 complex(CKG) , intent(inout) , contiguous :: matB(:)
4409 type(upperDiag_type) , intent(in) :: classA
4410 type(inversion_type) , intent(in) :: operationA
4411 end subroutine
4412#endif
4413
4414#if CK2_ENABLED
4415 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4417 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_CK2
4418#endif
4419 use pm_kind, only: CKG => CK2
4420 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4421 complex(CKG) , intent(inout) , contiguous :: matB(:)
4422 type(upperDiag_type) , intent(in) :: classA
4423 type(inversion_type) , intent(in) :: operationA
4424 end subroutine
4425#endif
4426
4427#if CK1_ENABLED
4428 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4430 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_CK1
4431#endif
4432 use pm_kind, only: CKG => CK1
4433 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4434 complex(CKG) , intent(inout) , contiguous :: matB(:)
4435 type(upperDiag_type) , intent(in) :: classA
4436 type(inversion_type) , intent(in) :: operationA
4437 end subroutine
4438#endif
4439
4440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4441
4442#if RK5_ENABLED
4443 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4445 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_RK5
4446#endif
4447 use pm_kind, only: RKG => RK5
4448 real(RKG) , intent(in) , contiguous :: matA(:,:)
4449 real(RKG) , intent(inout) , contiguous :: matB(:)
4450 type(upperDiag_type) , intent(in) :: classA
4451 type(inversion_type) , intent(in) :: operationA
4452 end subroutine
4453#endif
4454
4455#if RK4_ENABLED
4456 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4458 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_RK4
4459#endif
4460 use pm_kind, only: RKG => RK4
4461 real(RKG) , intent(in) , contiguous :: matA(:,:)
4462 real(RKG) , intent(inout) , contiguous :: matB(:)
4463 type(upperDiag_type) , intent(in) :: classA
4464 type(inversion_type) , intent(in) :: operationA
4465 end subroutine
4466#endif
4467
4468#if RK3_ENABLED
4469 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4471 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_RK3
4472#endif
4473 use pm_kind, only: RKG => RK3
4474 real(RKG) , intent(in) , contiguous :: matA(:,:)
4475 real(RKG) , intent(inout) , contiguous :: matB(:)
4476 type(upperDiag_type) , intent(in) :: classA
4477 type(inversion_type) , intent(in) :: operationA
4478 end subroutine
4479#endif
4480
4481#if RK2_ENABLED
4482 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4484 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_RK2
4485#endif
4486 use pm_kind, only: RKG => RK2
4487 real(RKG) , intent(in) , contiguous :: matA(:,:)
4488 real(RKG) , intent(inout) , contiguous :: matB(:)
4489 type(upperDiag_type) , intent(in) :: classA
4490 type(inversion_type) , intent(in) :: operationA
4491 end subroutine
4492#endif
4493
4494#if RK1_ENABLED
4495 PURE module subroutine trsv_ASS_CUDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4497 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_INVA_CGMB_ONOB_RK1
4498#endif
4499 use pm_kind, only: RKG => RK1
4500 real(RKG) , intent(in) , contiguous :: matA(:,:)
4501 real(RKG) , intent(inout) , contiguous :: matB(:)
4502 type(upperDiag_type) , intent(in) :: classA
4503 type(inversion_type) , intent(in) :: operationA
4504 end subroutine
4505#endif
4506
4507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4508
4509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4511 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4512
4513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4514
4515#if CK5_ENABLED
4516 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4518 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK5
4519#endif
4520 use pm_kind, only: CKG => CK5
4521 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4522 complex(CKG) , intent(inout) , contiguous :: matB(:)
4523 type(upperDiag_type) , intent(in) :: classA
4524 type(transOrth_type) , intent(in) :: operationA
4525 end subroutine
4526#endif
4527
4528#if CK4_ENABLED
4529 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4531 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK4
4532#endif
4533 use pm_kind, only: CKG => CK4
4534 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4535 complex(CKG) , intent(inout) , contiguous :: matB(:)
4536 type(upperDiag_type) , intent(in) :: classA
4537 type(transOrth_type) , intent(in) :: operationA
4538 end subroutine
4539#endif
4540
4541#if CK3_ENABLED
4542 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4544 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK3
4545#endif
4546 use pm_kind, only: CKG => CK3
4547 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4548 complex(CKG) , intent(inout) , contiguous :: matB(:)
4549 type(upperDiag_type) , intent(in) :: classA
4550 type(transOrth_type) , intent(in) :: operationA
4551 end subroutine
4552#endif
4553
4554#if CK2_ENABLED
4555 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4557 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK2
4558#endif
4559 use pm_kind, only: CKG => CK2
4560 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4561 complex(CKG) , intent(inout) , contiguous :: matB(:)
4562 type(upperDiag_type) , intent(in) :: classA
4563 type(transOrth_type) , intent(in) :: operationA
4564 end subroutine
4565#endif
4566
4567#if CK1_ENABLED
4568 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4570 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_CK1
4571#endif
4572 use pm_kind, only: CKG => CK1
4573 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4574 complex(CKG) , intent(inout) , contiguous :: matB(:)
4575 type(upperDiag_type) , intent(in) :: classA
4576 type(transOrth_type) , intent(in) :: operationA
4577 end subroutine
4578#endif
4579
4580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4581
4582#if RK5_ENABLED
4583 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4585 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK5
4586#endif
4587 use pm_kind, only: RKG => RK5
4588 real(RKG) , intent(in) , contiguous :: matA(:,:)
4589 real(RKG) , intent(inout) , contiguous :: matB(:)
4590 type(upperDiag_type) , intent(in) :: classA
4591 type(transOrth_type) , intent(in) :: operationA
4592 end subroutine
4593#endif
4594
4595#if RK4_ENABLED
4596 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4598 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK4
4599#endif
4600 use pm_kind, only: RKG => RK4
4601 real(RKG) , intent(in) , contiguous :: matA(:,:)
4602 real(RKG) , intent(inout) , contiguous :: matB(:)
4603 type(upperDiag_type) , intent(in) :: classA
4604 type(transOrth_type) , intent(in) :: operationA
4605 end subroutine
4606#endif
4607
4608#if RK3_ENABLED
4609 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4611 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK3
4612#endif
4613 use pm_kind, only: RKG => RK3
4614 real(RKG) , intent(in) , contiguous :: matA(:,:)
4615 real(RKG) , intent(inout) , contiguous :: matB(:)
4616 type(upperDiag_type) , intent(in) :: classA
4617 type(transOrth_type) , intent(in) :: operationA
4618 end subroutine
4619#endif
4620
4621#if RK2_ENABLED
4622 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4624 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK2
4625#endif
4626 use pm_kind, only: RKG => RK2
4627 real(RKG) , intent(in) , contiguous :: matA(:,:)
4628 real(RKG) , intent(inout) , contiguous :: matB(:)
4629 type(upperDiag_type) , intent(in) :: classA
4630 type(transOrth_type) , intent(in) :: operationA
4631 end subroutine
4632#endif
4633
4634#if RK1_ENABLED
4635 PURE module subroutine trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4637 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTOA_CGMB_ONOB_RK1
4638#endif
4639 use pm_kind, only: RKG => RK1
4640 real(RKG) , intent(in) , contiguous :: matA(:,:)
4641 real(RKG) , intent(inout) , contiguous :: matB(:)
4642 type(upperDiag_type) , intent(in) :: classA
4643 type(transOrth_type) , intent(in) :: operationA
4644 end subroutine
4645#endif
4646
4647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4648
4649 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4650 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4652
4653 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4654
4655#if CK5_ENABLED
4656 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4658 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK5
4659#endif
4660 use pm_kind, only: CKG => CK5
4661 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4662 complex(CKG) , intent(inout) , contiguous :: matB(:)
4663 type(upperDiag_type) , intent(in) :: classA
4664 type(transUnit_type) , intent(in) :: operationA
4665 end subroutine
4666#endif
4667
4668#if CK4_ENABLED
4669 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4671 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK4
4672#endif
4673 use pm_kind, only: CKG => CK4
4674 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4675 complex(CKG) , intent(inout) , contiguous :: matB(:)
4676 type(upperDiag_type) , intent(in) :: classA
4677 type(transUnit_type) , intent(in) :: operationA
4678 end subroutine
4679#endif
4680
4681#if CK3_ENABLED
4682 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4684 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK3
4685#endif
4686 use pm_kind, only: CKG => CK3
4687 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4688 complex(CKG) , intent(inout) , contiguous :: matB(:)
4689 type(upperDiag_type) , intent(in) :: classA
4690 type(transUnit_type) , intent(in) :: operationA
4691 end subroutine
4692#endif
4693
4694#if CK2_ENABLED
4695 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4697 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK2
4698#endif
4699 use pm_kind, only: CKG => CK2
4700 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4701 complex(CKG) , intent(inout) , contiguous :: matB(:)
4702 type(upperDiag_type) , intent(in) :: classA
4703 type(transUnit_type) , intent(in) :: operationA
4704 end subroutine
4705#endif
4706
4707#if CK1_ENABLED
4708 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4710 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_CK1
4711#endif
4712 use pm_kind, only: CKG => CK1
4713 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4714 complex(CKG) , intent(inout) , contiguous :: matB(:)
4715 type(upperDiag_type) , intent(in) :: classA
4716 type(transUnit_type) , intent(in) :: operationA
4717 end subroutine
4718#endif
4719
4720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4721
4722#if RK5_ENABLED
4723 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4725 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK5
4726#endif
4727 use pm_kind, only: RKG => RK5
4728 real(RKG) , intent(in) , contiguous :: matA(:,:)
4729 real(RKG) , intent(inout) , contiguous :: matB(:)
4730 type(upperDiag_type) , intent(in) :: classA
4731 type(transUnit_type) , intent(in) :: operationA
4732 end subroutine
4733#endif
4734
4735#if RK4_ENABLED
4736 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4738 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK4
4739#endif
4740 use pm_kind, only: RKG => RK4
4741 real(RKG) , intent(in) , contiguous :: matA(:,:)
4742 real(RKG) , intent(inout) , contiguous :: matB(:)
4743 type(upperDiag_type) , intent(in) :: classA
4744 type(transUnit_type) , intent(in) :: operationA
4745 end subroutine
4746#endif
4747
4748#if RK3_ENABLED
4749 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4751 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK3
4752#endif
4753 use pm_kind, only: RKG => RK3
4754 real(RKG) , intent(in) , contiguous :: matA(:,:)
4755 real(RKG) , intent(inout) , contiguous :: matB(:)
4756 type(upperDiag_type) , intent(in) :: classA
4757 type(transUnit_type) , intent(in) :: operationA
4758 end subroutine
4759#endif
4760
4761#if RK2_ENABLED
4762 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4764 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK2
4765#endif
4766 use pm_kind, only: RKG => RK2
4767 real(RKG) , intent(in) , contiguous :: matA(:,:)
4768 real(RKG) , intent(inout) , contiguous :: matB(:)
4769 type(upperDiag_type) , intent(in) :: classA
4770 type(transUnit_type) , intent(in) :: operationA
4771 end subroutine
4772#endif
4773
4774#if RK1_ENABLED
4775 PURE module subroutine trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUDA_OTUA_CGMB_ONOB_RK1
4778#endif
4779 use pm_kind, only: RKG => RK1
4780 real(RKG) , intent(in) , contiguous :: matA(:,:)
4781 real(RKG) , intent(inout) , contiguous :: matB(:)
4782 type(upperDiag_type) , intent(in) :: classA
4783 type(transUnit_type) , intent(in) :: operationA
4784 end subroutine
4785#endif
4786
4787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4788
4789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4792
4793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4796
4797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4798
4799#if CK5_ENABLED
4800 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4802 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_CK5
4803#endif
4804 use pm_kind, only: CKG => CK5
4805 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4806 complex(CKG) , intent(inout) , contiguous :: matB(:)
4807 type(lowerUnit_type) , intent(in) :: classA
4808 type(inversion_type) , intent(in) :: operationA
4809 end subroutine
4810#endif
4811
4812#if CK4_ENABLED
4813 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4815 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_CK4
4816#endif
4817 use pm_kind, only: CKG => CK4
4818 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4819 complex(CKG) , intent(inout) , contiguous :: matB(:)
4820 type(lowerUnit_type) , intent(in) :: classA
4821 type(inversion_type) , intent(in) :: operationA
4822 end subroutine
4823#endif
4824
4825#if CK3_ENABLED
4826 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4828 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_CK3
4829#endif
4830 use pm_kind, only: CKG => CK3
4831 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4832 complex(CKG) , intent(inout) , contiguous :: matB(:)
4833 type(lowerUnit_type) , intent(in) :: classA
4834 type(inversion_type) , intent(in) :: operationA
4835 end subroutine
4836#endif
4837
4838#if CK2_ENABLED
4839 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4841 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_CK2
4842#endif
4843 use pm_kind, only: CKG => CK2
4844 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4845 complex(CKG) , intent(inout) , contiguous :: matB(:)
4846 type(lowerUnit_type) , intent(in) :: classA
4847 type(inversion_type) , intent(in) :: operationA
4848 end subroutine
4849#endif
4850
4851#if CK1_ENABLED
4852 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4854 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_CK1
4855#endif
4856 use pm_kind, only: CKG => CK1
4857 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4858 complex(CKG) , intent(inout) , contiguous :: matB(:)
4859 type(lowerUnit_type) , intent(in) :: classA
4860 type(inversion_type) , intent(in) :: operationA
4861 end subroutine
4862#endif
4863
4864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4865
4866#if RK5_ENABLED
4867 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
4868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4869 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_RK5
4870#endif
4871 use pm_kind, only: RKG => RK5
4872 real(RKG) , intent(in) , contiguous :: matA(:,:)
4873 real(RKG) , intent(inout) , contiguous :: matB(:)
4874 type(lowerUnit_type) , intent(in) :: classA
4875 type(inversion_type) , intent(in) :: operationA
4876 end subroutine
4877#endif
4878
4879#if RK4_ENABLED
4880 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
4881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4882 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_RK4
4883#endif
4884 use pm_kind, only: RKG => RK4
4885 real(RKG) , intent(in) , contiguous :: matA(:,:)
4886 real(RKG) , intent(inout) , contiguous :: matB(:)
4887 type(lowerUnit_type) , intent(in) :: classA
4888 type(inversion_type) , intent(in) :: operationA
4889 end subroutine
4890#endif
4891
4892#if RK3_ENABLED
4893 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
4894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4895 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_RK3
4896#endif
4897 use pm_kind, only: RKG => RK3
4898 real(RKG) , intent(in) , contiguous :: matA(:,:)
4899 real(RKG) , intent(inout) , contiguous :: matB(:)
4900 type(lowerUnit_type) , intent(in) :: classA
4901 type(inversion_type) , intent(in) :: operationA
4902 end subroutine
4903#endif
4904
4905#if RK2_ENABLED
4906 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
4907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4908 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_RK2
4909#endif
4910 use pm_kind, only: RKG => RK2
4911 real(RKG) , intent(in) , contiguous :: matA(:,:)
4912 real(RKG) , intent(inout) , contiguous :: matB(:)
4913 type(lowerUnit_type) , intent(in) :: classA
4914 type(inversion_type) , intent(in) :: operationA
4915 end subroutine
4916#endif
4917
4918#if RK1_ENABLED
4919 PURE module subroutine trsv_ASS_CLUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
4920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4921 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_INVA_CGMB_ONOB_RK1
4922#endif
4923 use pm_kind, only: RKG => RK1
4924 real(RKG) , intent(in) , contiguous :: matA(:,:)
4925 real(RKG) , intent(inout) , contiguous :: matB(:)
4926 type(lowerUnit_type) , intent(in) :: classA
4927 type(inversion_type) , intent(in) :: operationA
4928 end subroutine
4929#endif
4930
4931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4932
4933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4936
4937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4938
4939#if CK5_ENABLED
4940 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
4941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4942 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK5
4943#endif
4944 use pm_kind, only: CKG => CK5
4945 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4946 complex(CKG) , intent(inout) , contiguous :: matB(:)
4947 type(lowerUnit_type) , intent(in) :: classA
4948 type(transOrth_type) , intent(in) :: operationA
4949 end subroutine
4950#endif
4951
4952#if CK4_ENABLED
4953 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
4954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4955 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK4
4956#endif
4957 use pm_kind, only: CKG => CK4
4958 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4959 complex(CKG) , intent(inout) , contiguous :: matB(:)
4960 type(lowerUnit_type) , intent(in) :: classA
4961 type(transOrth_type) , intent(in) :: operationA
4962 end subroutine
4963#endif
4964
4965#if CK3_ENABLED
4966 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
4967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4968 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK3
4969#endif
4970 use pm_kind, only: CKG => CK3
4971 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4972 complex(CKG) , intent(inout) , contiguous :: matB(:)
4973 type(lowerUnit_type) , intent(in) :: classA
4974 type(transOrth_type) , intent(in) :: operationA
4975 end subroutine
4976#endif
4977
4978#if CK2_ENABLED
4979 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
4980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4981 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK2
4982#endif
4983 use pm_kind, only: CKG => CK2
4984 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4985 complex(CKG) , intent(inout) , contiguous :: matB(:)
4986 type(lowerUnit_type) , intent(in) :: classA
4987 type(transOrth_type) , intent(in) :: operationA
4988 end subroutine
4989#endif
4990
4991#if CK1_ENABLED
4992 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
4993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4994 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_CK1
4995#endif
4996 use pm_kind, only: CKG => CK1
4997 complex(CKG) , intent(in) , contiguous :: matA(:,:)
4998 complex(CKG) , intent(inout) , contiguous :: matB(:)
4999 type(lowerUnit_type) , intent(in) :: classA
5000 type(transOrth_type) , intent(in) :: operationA
5001 end subroutine
5002#endif
5003
5004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5005
5006#if RK5_ENABLED
5007 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
5008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5009 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK5
5010#endif
5011 use pm_kind, only: RKG => RK5
5012 real(RKG) , intent(in) , contiguous :: matA(:,:)
5013 real(RKG) , intent(inout) , contiguous :: matB(:)
5014 type(lowerUnit_type) , intent(in) :: classA
5015 type(transOrth_type) , intent(in) :: operationA
5016 end subroutine
5017#endif
5018
5019#if RK4_ENABLED
5020 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
5021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5022 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK4
5023#endif
5024 use pm_kind, only: RKG => RK4
5025 real(RKG) , intent(in) , contiguous :: matA(:,:)
5026 real(RKG) , intent(inout) , contiguous :: matB(:)
5027 type(lowerUnit_type) , intent(in) :: classA
5028 type(transOrth_type) , intent(in) :: operationA
5029 end subroutine
5030#endif
5031
5032#if RK3_ENABLED
5033 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
5034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5035 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK3
5036#endif
5037 use pm_kind, only: RKG => RK3
5038 real(RKG) , intent(in) , contiguous :: matA(:,:)
5039 real(RKG) , intent(inout) , contiguous :: matB(:)
5040 type(lowerUnit_type) , intent(in) :: classA
5041 type(transOrth_type) , intent(in) :: operationA
5042 end subroutine
5043#endif
5044
5045#if RK2_ENABLED
5046 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
5047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5048 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK2
5049#endif
5050 use pm_kind, only: RKG => RK2
5051 real(RKG) , intent(in) , contiguous :: matA(:,:)
5052 real(RKG) , intent(inout) , contiguous :: matB(:)
5053 type(lowerUnit_type) , intent(in) :: classA
5054 type(transOrth_type) , intent(in) :: operationA
5055 end subroutine
5056#endif
5057
5058#if RK1_ENABLED
5059 PURE module subroutine trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
5060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5061 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTOA_CGMB_ONOB_RK1
5062#endif
5063 use pm_kind, only: RKG => RK1
5064 real(RKG) , intent(in) , contiguous :: matA(:,:)
5065 real(RKG) , intent(inout) , contiguous :: matB(:)
5066 type(lowerUnit_type) , intent(in) :: classA
5067 type(transOrth_type) , intent(in) :: operationA
5068 end subroutine
5069#endif
5070
5071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5072
5073 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5076
5077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5078
5079#if CK5_ENABLED
5080 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
5081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5082 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK5
5083#endif
5084 use pm_kind, only: CKG => CK5
5085 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5086 complex(CKG) , intent(inout) , contiguous :: matB(:)
5087 type(lowerUnit_type) , intent(in) :: classA
5088 type(transUnit_type) , intent(in) :: operationA
5089 end subroutine
5090#endif
5091
5092#if CK4_ENABLED
5093 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
5094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5095 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK4
5096#endif
5097 use pm_kind, only: CKG => CK4
5098 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5099 complex(CKG) , intent(inout) , contiguous :: matB(:)
5100 type(lowerUnit_type) , intent(in) :: classA
5101 type(transUnit_type) , intent(in) :: operationA
5102 end subroutine
5103#endif
5104
5105#if CK3_ENABLED
5106 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
5107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5108 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK3
5109#endif
5110 use pm_kind, only: CKG => CK3
5111 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5112 complex(CKG) , intent(inout) , contiguous :: matB(:)
5113 type(lowerUnit_type) , intent(in) :: classA
5114 type(transUnit_type) , intent(in) :: operationA
5115 end subroutine
5116#endif
5117
5118#if CK2_ENABLED
5119 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
5120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5121 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK2
5122#endif
5123 use pm_kind, only: CKG => CK2
5124 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5125 complex(CKG) , intent(inout) , contiguous :: matB(:)
5126 type(lowerUnit_type) , intent(in) :: classA
5127 type(transUnit_type) , intent(in) :: operationA
5128 end subroutine
5129#endif
5130
5131#if CK1_ENABLED
5132 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
5133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5134 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_CK1
5135#endif
5136 use pm_kind, only: CKG => CK1
5137 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5138 complex(CKG) , intent(inout) , contiguous :: matB(:)
5139 type(lowerUnit_type) , intent(in) :: classA
5140 type(transUnit_type) , intent(in) :: operationA
5141 end subroutine
5142#endif
5143
5144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5145
5146#if RK5_ENABLED
5147 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
5148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5149 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK5
5150#endif
5151 use pm_kind, only: RKG => RK5
5152 real(RKG) , intent(in) , contiguous :: matA(:,:)
5153 real(RKG) , intent(inout) , contiguous :: matB(:)
5154 type(lowerUnit_type) , intent(in) :: classA
5155 type(transUnit_type) , intent(in) :: operationA
5156 end subroutine
5157#endif
5158
5159#if RK4_ENABLED
5160 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
5161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5162 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK4
5163#endif
5164 use pm_kind, only: RKG => RK4
5165 real(RKG) , intent(in) , contiguous :: matA(:,:)
5166 real(RKG) , intent(inout) , contiguous :: matB(:)
5167 type(lowerUnit_type) , intent(in) :: classA
5168 type(transUnit_type) , intent(in) :: operationA
5169 end subroutine
5170#endif
5171
5172#if RK3_ENABLED
5173 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
5174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5175 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK3
5176#endif
5177 use pm_kind, only: RKG => RK3
5178 real(RKG) , intent(in) , contiguous :: matA(:,:)
5179 real(RKG) , intent(inout) , contiguous :: matB(:)
5180 type(lowerUnit_type) , intent(in) :: classA
5181 type(transUnit_type) , intent(in) :: operationA
5182 end subroutine
5183#endif
5184
5185#if RK2_ENABLED
5186 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
5187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5188 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK2
5189#endif
5190 use pm_kind, only: RKG => RK2
5191 real(RKG) , intent(in) , contiguous :: matA(:,:)
5192 real(RKG) , intent(inout) , contiguous :: matB(:)
5193 type(lowerUnit_type) , intent(in) :: classA
5194 type(transUnit_type) , intent(in) :: operationA
5195 end subroutine
5196#endif
5197
5198#if RK1_ENABLED
5199 PURE module subroutine trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
5200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5201 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CLUA_OTUA_CGMB_ONOB_RK1
5202#endif
5203 use pm_kind, only: RKG => RK1
5204 real(RKG) , intent(in) , contiguous :: matA(:,:)
5205 real(RKG) , intent(inout) , contiguous :: matB(:)
5206 type(lowerUnit_type) , intent(in) :: classA
5207 type(transUnit_type) , intent(in) :: operationA
5208 end subroutine
5209#endif
5210
5211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5212
5213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5216
5217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5220
5221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5222
5223#if CK5_ENABLED
5224 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
5225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5226 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_CK5
5227#endif
5228 use pm_kind, only: CKG => CK5
5229 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5230 complex(CKG) , intent(inout) , contiguous :: matB(:)
5231 type(upperUnit_type) , intent(in) :: classA
5232 type(inversion_type) , intent(in) :: operationA
5233 end subroutine
5234#endif
5235
5236#if CK4_ENABLED
5237 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
5238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5239 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_CK4
5240#endif
5241 use pm_kind, only: CKG => CK4
5242 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5243 complex(CKG) , intent(inout) , contiguous :: matB(:)
5244 type(upperUnit_type) , intent(in) :: classA
5245 type(inversion_type) , intent(in) :: operationA
5246 end subroutine
5247#endif
5248
5249#if CK3_ENABLED
5250 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
5251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5252 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_CK3
5253#endif
5254 use pm_kind, only: CKG => CK3
5255 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5256 complex(CKG) , intent(inout) , contiguous :: matB(:)
5257 type(upperUnit_type) , intent(in) :: classA
5258 type(inversion_type) , intent(in) :: operationA
5259 end subroutine
5260#endif
5261
5262#if CK2_ENABLED
5263 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
5264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5265 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_CK2
5266#endif
5267 use pm_kind, only: CKG => CK2
5268 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5269 complex(CKG) , intent(inout) , contiguous :: matB(:)
5270 type(upperUnit_type) , intent(in) :: classA
5271 type(inversion_type) , intent(in) :: operationA
5272 end subroutine
5273#endif
5274
5275#if CK1_ENABLED
5276 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
5277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5278 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_CK1
5279#endif
5280 use pm_kind, only: CKG => CK1
5281 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5282 complex(CKG) , intent(inout) , contiguous :: matB(:)
5283 type(upperUnit_type) , intent(in) :: classA
5284 type(inversion_type) , intent(in) :: operationA
5285 end subroutine
5286#endif
5287
5288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5289
5290#if RK5_ENABLED
5291 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
5292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5293 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_RK5
5294#endif
5295 use pm_kind, only: RKG => RK5
5296 real(RKG) , intent(in) , contiguous :: matA(:,:)
5297 real(RKG) , intent(inout) , contiguous :: matB(:)
5298 type(upperUnit_type) , intent(in) :: classA
5299 type(inversion_type) , intent(in) :: operationA
5300 end subroutine
5301#endif
5302
5303#if RK4_ENABLED
5304 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
5305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5306 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_RK4
5307#endif
5308 use pm_kind, only: RKG => RK4
5309 real(RKG) , intent(in) , contiguous :: matA(:,:)
5310 real(RKG) , intent(inout) , contiguous :: matB(:)
5311 type(upperUnit_type) , intent(in) :: classA
5312 type(inversion_type) , intent(in) :: operationA
5313 end subroutine
5314#endif
5315
5316#if RK3_ENABLED
5317 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
5318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5319 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_RK3
5320#endif
5321 use pm_kind, only: RKG => RK3
5322 real(RKG) , intent(in) , contiguous :: matA(:,:)
5323 real(RKG) , intent(inout) , contiguous :: matB(:)
5324 type(upperUnit_type) , intent(in) :: classA
5325 type(inversion_type) , intent(in) :: operationA
5326 end subroutine
5327#endif
5328
5329#if RK2_ENABLED
5330 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
5331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5332 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_RK2
5333#endif
5334 use pm_kind, only: RKG => RK2
5335 real(RKG) , intent(in) , contiguous :: matA(:,:)
5336 real(RKG) , intent(inout) , contiguous :: matB(:)
5337 type(upperUnit_type) , intent(in) :: classA
5338 type(inversion_type) , intent(in) :: operationA
5339 end subroutine
5340#endif
5341
5342#if RK1_ENABLED
5343 PURE module subroutine trsv_ASS_CUUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
5344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5345 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_INVA_CGMB_ONOB_RK1
5346#endif
5347 use pm_kind, only: RKG => RK1
5348 real(RKG) , intent(in) , contiguous :: matA(:,:)
5349 real(RKG) , intent(inout) , contiguous :: matB(:)
5350 type(upperUnit_type) , intent(in) :: classA
5351 type(inversion_type) , intent(in) :: operationA
5352 end subroutine
5353#endif
5354
5355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5356
5357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5360
5361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5362
5363#if CK5_ENABLED
5364 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
5365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5366 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK5
5367#endif
5368 use pm_kind, only: CKG => CK5
5369 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5370 complex(CKG) , intent(inout) , contiguous :: matB(:)
5371 type(upperUnit_type) , intent(in) :: classA
5372 type(transOrth_type) , intent(in) :: operationA
5373 end subroutine
5374#endif
5375
5376#if CK4_ENABLED
5377 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
5378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5379 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK4
5380#endif
5381 use pm_kind, only: CKG => CK4
5382 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5383 complex(CKG) , intent(inout) , contiguous :: matB(:)
5384 type(upperUnit_type) , intent(in) :: classA
5385 type(transOrth_type) , intent(in) :: operationA
5386 end subroutine
5387#endif
5388
5389#if CK3_ENABLED
5390 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
5391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5392 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK3
5393#endif
5394 use pm_kind, only: CKG => CK3
5395 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5396 complex(CKG) , intent(inout) , contiguous :: matB(:)
5397 type(upperUnit_type) , intent(in) :: classA
5398 type(transOrth_type) , intent(in) :: operationA
5399 end subroutine
5400#endif
5401
5402#if CK2_ENABLED
5403 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
5404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5405 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK2
5406#endif
5407 use pm_kind, only: CKG => CK2
5408 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5409 complex(CKG) , intent(inout) , contiguous :: matB(:)
5410 type(upperUnit_type) , intent(in) :: classA
5411 type(transOrth_type) , intent(in) :: operationA
5412 end subroutine
5413#endif
5414
5415#if CK1_ENABLED
5416 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
5417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5418 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_CK1
5419#endif
5420 use pm_kind, only: CKG => CK1
5421 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5422 complex(CKG) , intent(inout) , contiguous :: matB(:)
5423 type(upperUnit_type) , intent(in) :: classA
5424 type(transOrth_type) , intent(in) :: operationA
5425 end subroutine
5426#endif
5427
5428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5429
5430#if RK5_ENABLED
5431 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
5432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5433 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK5
5434#endif
5435 use pm_kind, only: RKG => RK5
5436 real(RKG) , intent(in) , contiguous :: matA(:,:)
5437 real(RKG) , intent(inout) , contiguous :: matB(:)
5438 type(upperUnit_type) , intent(in) :: classA
5439 type(transOrth_type) , intent(in) :: operationA
5440 end subroutine
5441#endif
5442
5443#if RK4_ENABLED
5444 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
5445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5446 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK4
5447#endif
5448 use pm_kind, only: RKG => RK4
5449 real(RKG) , intent(in) , contiguous :: matA(:,:)
5450 real(RKG) , intent(inout) , contiguous :: matB(:)
5451 type(upperUnit_type) , intent(in) :: classA
5452 type(transOrth_type) , intent(in) :: operationA
5453 end subroutine
5454#endif
5455
5456#if RK3_ENABLED
5457 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
5458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5459 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK3
5460#endif
5461 use pm_kind, only: RKG => RK3
5462 real(RKG) , intent(in) , contiguous :: matA(:,:)
5463 real(RKG) , intent(inout) , contiguous :: matB(:)
5464 type(upperUnit_type) , intent(in) :: classA
5465 type(transOrth_type) , intent(in) :: operationA
5466 end subroutine
5467#endif
5468
5469#if RK2_ENABLED
5470 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
5471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5472 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK2
5473#endif
5474 use pm_kind, only: RKG => RK2
5475 real(RKG) , intent(in) , contiguous :: matA(:,:)
5476 real(RKG) , intent(inout) , contiguous :: matB(:)
5477 type(upperUnit_type) , intent(in) :: classA
5478 type(transOrth_type) , intent(in) :: operationA
5479 end subroutine
5480#endif
5481
5482#if RK1_ENABLED
5483 PURE module subroutine trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
5484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5485 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTOA_CGMB_ONOB_RK1
5486#endif
5487 use pm_kind, only: RKG => RK1
5488 real(RKG) , intent(in) , contiguous :: matA(:,:)
5489 real(RKG) , intent(inout) , contiguous :: matB(:)
5490 type(upperUnit_type) , intent(in) :: classA
5491 type(transOrth_type) , intent(in) :: operationA
5492 end subroutine
5493#endif
5494
5495 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5496
5497 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5498 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5500
5501 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5502
5503#if CK5_ENABLED
5504 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB)
5505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5506 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK5
5507#endif
5508 use pm_kind, only: CKG => CK5
5509 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5510 complex(CKG) , intent(inout) , contiguous :: matB(:)
5511 type(upperUnit_type) , intent(in) :: classA
5512 type(transUnit_type) , intent(in) :: operationA
5513 end subroutine
5514#endif
5515
5516#if CK4_ENABLED
5517 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK4
5520#endif
5521 use pm_kind, only: CKG => CK4
5522 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5523 complex(CKG) , intent(inout) , contiguous :: matB(:)
5524 type(upperUnit_type) , intent(in) :: classA
5525 type(transUnit_type) , intent(in) :: operationA
5526 end subroutine
5527#endif
5528
5529#if CK3_ENABLED
5530 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB)
5531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5532 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK3
5533#endif
5534 use pm_kind, only: CKG => CK3
5535 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5536 complex(CKG) , intent(inout) , contiguous :: matB(:)
5537 type(upperUnit_type) , intent(in) :: classA
5538 type(transUnit_type) , intent(in) :: operationA
5539 end subroutine
5540#endif
5541
5542#if CK2_ENABLED
5543 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB)
5544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5545 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK2
5546#endif
5547 use pm_kind, only: CKG => CK2
5548 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5549 complex(CKG) , intent(inout) , contiguous :: matB(:)
5550 type(upperUnit_type) , intent(in) :: classA
5551 type(transUnit_type) , intent(in) :: operationA
5552 end subroutine
5553#endif
5554
5555#if CK1_ENABLED
5556 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB)
5557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5558 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_CK1
5559#endif
5560 use pm_kind, only: CKG => CK1
5561 complex(CKG) , intent(in) , contiguous :: matA(:,:)
5562 complex(CKG) , intent(inout) , contiguous :: matB(:)
5563 type(upperUnit_type) , intent(in) :: classA
5564 type(transUnit_type) , intent(in) :: operationA
5565 end subroutine
5566#endif
5567
5568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5569
5570#if RK5_ENABLED
5571 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB)
5572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5573 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK5
5574#endif
5575 use pm_kind, only: RKG => RK5
5576 real(RKG) , intent(in) , contiguous :: matA(:,:)
5577 real(RKG) , intent(inout) , contiguous :: matB(:)
5578 type(upperUnit_type) , intent(in) :: classA
5579 type(transUnit_type) , intent(in) :: operationA
5580 end subroutine
5581#endif
5582
5583#if RK4_ENABLED
5584 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB)
5585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5586 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK4
5587#endif
5588 use pm_kind, only: RKG => RK4
5589 real(RKG) , intent(in) , contiguous :: matA(:,:)
5590 real(RKG) , intent(inout) , contiguous :: matB(:)
5591 type(upperUnit_type) , intent(in) :: classA
5592 type(transUnit_type) , intent(in) :: operationA
5593 end subroutine
5594#endif
5595
5596#if RK3_ENABLED
5597 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK3
5600#endif
5601 use pm_kind, only: RKG => RK3
5602 real(RKG) , intent(in) , contiguous :: matA(:,:)
5603 real(RKG) , intent(inout) , contiguous :: matB(:)
5604 type(upperUnit_type) , intent(in) :: classA
5605 type(transUnit_type) , intent(in) :: operationA
5606 end subroutine
5607#endif
5608
5609#if RK2_ENABLED
5610 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB)
5611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5612 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK2
5613#endif
5614 use pm_kind, only: RKG => RK2
5615 real(RKG) , intent(in) , contiguous :: matA(:,:)
5616 real(RKG) , intent(inout) , contiguous :: matB(:)
5617 type(upperUnit_type) , intent(in) :: classA
5618 type(transUnit_type) , intent(in) :: operationA
5619 end subroutine
5620#endif
5621
5622#if RK1_ENABLED
5623 PURE module subroutine trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB)
5624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5625 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_ASS_CUUA_OTUA_CGMB_ONOB_RK1
5626#endif
5627 use pm_kind, only: RKG => RK1
5628 real(RKG) , intent(in) , contiguous :: matA(:,:)
5629 real(RKG) , intent(inout) , contiguous :: matB(:)
5630 type(upperUnit_type) , intent(in) :: classA
5631 type(transUnit_type) , intent(in) :: operationA
5632 end subroutine
5633#endif
5634
5635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5636
5637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5640
5641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5644
5645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5648
5649 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5650
5651#if CK5_ENABLED
5652 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5654 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_CK5
5655#endif
5656 use pm_kind, only: CKG => CK5
5657 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5658 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5659 complex(CKG) , intent(inout) , contiguous :: matB(:)
5660 type(lowerDiag_type) , intent(in) :: classA
5661 type(inversion_type) , intent(in) :: operationA
5662 end subroutine
5663#endif
5664
5665#if CK4_ENABLED
5666 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5668 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_CK4
5669#endif
5670 use pm_kind, only: CKG => CK4
5671 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5672 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5673 complex(CKG) , intent(inout) , contiguous :: matB(:)
5674 type(lowerDiag_type) , intent(in) :: classA
5675 type(inversion_type) , intent(in) :: operationA
5676 end subroutine
5677#endif
5678
5679#if CK3_ENABLED
5680 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5682 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_CK3
5683#endif
5684 use pm_kind, only: CKG => CK3
5685 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5686 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5687 complex(CKG) , intent(inout) , contiguous :: matB(:)
5688 type(lowerDiag_type) , intent(in) :: classA
5689 type(inversion_type) , intent(in) :: operationA
5690 end subroutine
5691#endif
5692
5693#if CK2_ENABLED
5694 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5696 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_CK2
5697#endif
5698 use pm_kind, only: CKG => CK2
5699 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5700 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5701 complex(CKG) , intent(inout) , contiguous :: matB(:)
5702 type(lowerDiag_type) , intent(in) :: classA
5703 type(inversion_type) , intent(in) :: operationA
5704 end subroutine
5705#endif
5706
5707#if CK1_ENABLED
5708 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5710 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_CK1
5711#endif
5712 use pm_kind, only: CKG => CK1
5713 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5714 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5715 complex(CKG) , intent(inout) , contiguous :: matB(:)
5716 type(lowerDiag_type) , intent(in) :: classA
5717 type(inversion_type) , intent(in) :: operationA
5718 end subroutine
5719#endif
5720
5721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5722
5723#if RK5_ENABLED
5724 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5726 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_RK5
5727#endif
5728 use pm_kind, only: RKG => RK5
5729 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5730 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5731 real(RKG) , intent(inout) , contiguous :: matB(:)
5732 type(lowerDiag_type) , intent(in) :: classA
5733 type(inversion_type) , intent(in) :: operationA
5734 end subroutine
5735#endif
5736
5737#if RK4_ENABLED
5738 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5740 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_RK4
5741#endif
5742 use pm_kind, only: RKG => RK4
5743 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5744 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5745 real(RKG) , intent(inout) , contiguous :: matB(:)
5746 type(lowerDiag_type) , intent(in) :: classA
5747 type(inversion_type) , intent(in) :: operationA
5748 end subroutine
5749#endif
5750
5751#if RK3_ENABLED
5752 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5754 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_RK3
5755#endif
5756 use pm_kind, only: RKG => RK3
5757 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5758 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5759 real(RKG) , intent(inout) , contiguous :: matB(:)
5760 type(lowerDiag_type) , intent(in) :: classA
5761 type(inversion_type) , intent(in) :: operationA
5762 end subroutine
5763#endif
5764
5765#if RK2_ENABLED
5766 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5768 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_RK2
5769#endif
5770 use pm_kind, only: RKG => RK2
5771 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5772 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5773 real(RKG) , intent(inout) , contiguous :: matB(:)
5774 type(lowerDiag_type) , intent(in) :: classA
5775 type(inversion_type) , intent(in) :: operationA
5776 end subroutine
5777#endif
5778
5779#if RK1_ENABLED
5780 PURE module subroutine trsv_EXP_CLDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5782 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_INVA_CGMB_ONOB_RK1
5783#endif
5784 use pm_kind, only: RKG => RK1
5785 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5786 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5787 real(RKG) , intent(inout) , contiguous :: matB(:)
5788 type(lowerDiag_type) , intent(in) :: classA
5789 type(inversion_type) , intent(in) :: operationA
5790 end subroutine
5791#endif
5792
5793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5794
5795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5798
5799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5800
5801#if CK5_ENABLED
5802 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5804 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK5
5805#endif
5806 use pm_kind, only: CKG => CK5
5807 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5808 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5809 complex(CKG) , intent(inout) , contiguous :: matB(:)
5810 type(lowerDiag_type) , intent(in) :: classA
5811 type(transOrth_type) , intent(in) :: operationA
5812 end subroutine
5813#endif
5814
5815#if CK4_ENABLED
5816 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5818 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK4
5819#endif
5820 use pm_kind, only: CKG => CK4
5821 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5822 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5823 complex(CKG) , intent(inout) , contiguous :: matB(:)
5824 type(lowerDiag_type) , intent(in) :: classA
5825 type(transOrth_type) , intent(in) :: operationA
5826 end subroutine
5827#endif
5828
5829#if CK3_ENABLED
5830 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5832 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK3
5833#endif
5834 use pm_kind, only: CKG => CK3
5835 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5836 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5837 complex(CKG) , intent(inout) , contiguous :: matB(:)
5838 type(lowerDiag_type) , intent(in) :: classA
5839 type(transOrth_type) , intent(in) :: operationA
5840 end subroutine
5841#endif
5842
5843#if CK2_ENABLED
5844 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5846 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK2
5847#endif
5848 use pm_kind, only: CKG => CK2
5849 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5850 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5851 complex(CKG) , intent(inout) , contiguous :: matB(:)
5852 type(lowerDiag_type) , intent(in) :: classA
5853 type(transOrth_type) , intent(in) :: operationA
5854 end subroutine
5855#endif
5856
5857#if CK1_ENABLED
5858 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5860 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_CK1
5861#endif
5862 use pm_kind, only: CKG => CK1
5863 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5864 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5865 complex(CKG) , intent(inout) , contiguous :: matB(:)
5866 type(lowerDiag_type) , intent(in) :: classA
5867 type(transOrth_type) , intent(in) :: operationA
5868 end subroutine
5869#endif
5870
5871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5872
5873#if RK5_ENABLED
5874 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5876 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK5
5877#endif
5878 use pm_kind, only: RKG => RK5
5879 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5880 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5881 real(RKG) , intent(inout) , contiguous :: matB(:)
5882 type(lowerDiag_type) , intent(in) :: classA
5883 type(transOrth_type) , intent(in) :: operationA
5884 end subroutine
5885#endif
5886
5887#if RK4_ENABLED
5888 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5890 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK4
5891#endif
5892 use pm_kind, only: RKG => RK4
5893 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5894 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5895 real(RKG) , intent(inout) , contiguous :: matB(:)
5896 type(lowerDiag_type) , intent(in) :: classA
5897 type(transOrth_type) , intent(in) :: operationA
5898 end subroutine
5899#endif
5900
5901#if RK3_ENABLED
5902 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK3
5905#endif
5906 use pm_kind, only: RKG => RK3
5907 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5908 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5909 real(RKG) , intent(inout) , contiguous :: matB(:)
5910 type(lowerDiag_type) , intent(in) :: classA
5911 type(transOrth_type) , intent(in) :: operationA
5912 end subroutine
5913#endif
5914
5915#if RK2_ENABLED
5916 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5918 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK2
5919#endif
5920 use pm_kind, only: RKG => RK2
5921 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5922 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5923 real(RKG) , intent(inout) , contiguous :: matB(:)
5924 type(lowerDiag_type) , intent(in) :: classA
5925 type(transOrth_type) , intent(in) :: operationA
5926 end subroutine
5927#endif
5928
5929#if RK1_ENABLED
5930 PURE module subroutine trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5932 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTOA_CGMB_ONOB_RK1
5933#endif
5934 use pm_kind, only: RKG => RK1
5935 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5936 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5937 real(RKG) , intent(inout) , contiguous :: matB(:)
5938 type(lowerDiag_type) , intent(in) :: classA
5939 type(transOrth_type) , intent(in) :: operationA
5940 end subroutine
5941#endif
5942
5943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5944
5945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5946 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5947 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5948
5949 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5950
5951#if CK5_ENABLED
5952 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5954 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK5
5955#endif
5956 use pm_kind, only: CKG => CK5
5957 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5958 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5959 complex(CKG) , intent(inout) , contiguous :: matB(:)
5960 type(lowerDiag_type) , intent(in) :: classA
5961 type(transUnit_type) , intent(in) :: operationA
5962 end subroutine
5963#endif
5964
5965#if CK4_ENABLED
5966 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5968 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK4
5969#endif
5970 use pm_kind, only: CKG => CK4
5971 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5972 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5973 complex(CKG) , intent(inout) , contiguous :: matB(:)
5974 type(lowerDiag_type) , intent(in) :: classA
5975 type(transUnit_type) , intent(in) :: operationA
5976 end subroutine
5977#endif
5978
5979#if CK3_ENABLED
5980 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5982 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK3
5983#endif
5984 use pm_kind, only: CKG => CK3
5985 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
5986 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
5987 complex(CKG) , intent(inout) , contiguous :: matB(:)
5988 type(lowerDiag_type) , intent(in) :: classA
5989 type(transUnit_type) , intent(in) :: operationA
5990 end subroutine
5991#endif
5992
5993#if CK2_ENABLED
5994 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
5995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5996 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK2
5997#endif
5998 use pm_kind, only: CKG => CK2
5999 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6000 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6001 complex(CKG) , intent(inout) , contiguous :: matB(:)
6002 type(lowerDiag_type) , intent(in) :: classA
6003 type(transUnit_type) , intent(in) :: operationA
6004 end subroutine
6005#endif
6006
6007#if CK1_ENABLED
6008 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6010 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_CK1
6011#endif
6012 use pm_kind, only: CKG => CK1
6013 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6014 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6015 complex(CKG) , intent(inout) , contiguous :: matB(:)
6016 type(lowerDiag_type) , intent(in) :: classA
6017 type(transUnit_type) , intent(in) :: operationA
6018 end subroutine
6019#endif
6020
6021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6022
6023#if RK5_ENABLED
6024 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6026 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK5
6027#endif
6028 use pm_kind, only: RKG => RK5
6029 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6030 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6031 real(RKG) , intent(inout) , contiguous :: matB(:)
6032 type(lowerDiag_type) , intent(in) :: classA
6033 type(transUnit_type) , intent(in) :: operationA
6034 end subroutine
6035#endif
6036
6037#if RK4_ENABLED
6038 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6040 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK4
6041#endif
6042 use pm_kind, only: RKG => RK4
6043 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6044 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6045 real(RKG) , intent(inout) , contiguous :: matB(:)
6046 type(lowerDiag_type) , intent(in) :: classA
6047 type(transUnit_type) , intent(in) :: operationA
6048 end subroutine
6049#endif
6050
6051#if RK3_ENABLED
6052 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6054 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK3
6055#endif
6056 use pm_kind, only: RKG => RK3
6057 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6058 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6059 real(RKG) , intent(inout) , contiguous :: matB(:)
6060 type(lowerDiag_type) , intent(in) :: classA
6061 type(transUnit_type) , intent(in) :: operationA
6062 end subroutine
6063#endif
6064
6065#if RK2_ENABLED
6066 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6068 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK2
6069#endif
6070 use pm_kind, only: RKG => RK2
6071 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6072 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6073 real(RKG) , intent(inout) , contiguous :: matB(:)
6074 type(lowerDiag_type) , intent(in) :: classA
6075 type(transUnit_type) , intent(in) :: operationA
6076 end subroutine
6077#endif
6078
6079#if RK1_ENABLED
6080 PURE module subroutine trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6082 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLDA_OTUA_CGMB_ONOB_RK1
6083#endif
6084 use pm_kind, only: RKG => RK1
6085 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6086 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6087 real(RKG) , intent(inout) , contiguous :: matB(:)
6088 type(lowerDiag_type) , intent(in) :: classA
6089 type(transUnit_type) , intent(in) :: operationA
6090 end subroutine
6091#endif
6092
6093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6094
6095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6098
6099 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6102
6103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6104
6105#if CK5_ENABLED
6106 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6108 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_CK5
6109#endif
6110 use pm_kind, only: CKG => CK5
6111 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6112 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6113 complex(CKG) , intent(inout) , contiguous :: matB(:)
6114 type(upperDiag_type) , intent(in) :: classA
6115 type(inversion_type) , intent(in) :: operationA
6116 end subroutine
6117#endif
6118
6119#if CK4_ENABLED
6120 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6122 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_CK4
6123#endif
6124 use pm_kind, only: CKG => CK4
6125 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6126 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6127 complex(CKG) , intent(inout) , contiguous :: matB(:)
6128 type(upperDiag_type) , intent(in) :: classA
6129 type(inversion_type) , intent(in) :: operationA
6130 end subroutine
6131#endif
6132
6133#if CK3_ENABLED
6134 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6136 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_CK3
6137#endif
6138 use pm_kind, only: CKG => CK3
6139 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6140 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6141 complex(CKG) , intent(inout) , contiguous :: matB(:)
6142 type(upperDiag_type) , intent(in) :: classA
6143 type(inversion_type) , intent(in) :: operationA
6144 end subroutine
6145#endif
6146
6147#if CK2_ENABLED
6148 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6150 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_CK2
6151#endif
6152 use pm_kind, only: CKG => CK2
6153 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6154 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6155 complex(CKG) , intent(inout) , contiguous :: matB(:)
6156 type(upperDiag_type) , intent(in) :: classA
6157 type(inversion_type) , intent(in) :: operationA
6158 end subroutine
6159#endif
6160
6161#if CK1_ENABLED
6162 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6164 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_CK1
6165#endif
6166 use pm_kind, only: CKG => CK1
6167 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6168 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6169 complex(CKG) , intent(inout) , contiguous :: matB(:)
6170 type(upperDiag_type) , intent(in) :: classA
6171 type(inversion_type) , intent(in) :: operationA
6172 end subroutine
6173#endif
6174
6175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6176
6177#if RK5_ENABLED
6178 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6180 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_RK5
6181#endif
6182 use pm_kind, only: RKG => RK5
6183 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6184 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6185 real(RKG) , intent(inout) , contiguous :: matB(:)
6186 type(upperDiag_type) , intent(in) :: classA
6187 type(inversion_type) , intent(in) :: operationA
6188 end subroutine
6189#endif
6190
6191#if RK4_ENABLED
6192 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6194 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_RK4
6195#endif
6196 use pm_kind, only: RKG => RK4
6197 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6198 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6199 real(RKG) , intent(inout) , contiguous :: matB(:)
6200 type(upperDiag_type) , intent(in) :: classA
6201 type(inversion_type) , intent(in) :: operationA
6202 end subroutine
6203#endif
6204
6205#if RK3_ENABLED
6206 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6208 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_RK3
6209#endif
6210 use pm_kind, only: RKG => RK3
6211 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6212 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6213 real(RKG) , intent(inout) , contiguous :: matB(:)
6214 type(upperDiag_type) , intent(in) :: classA
6215 type(inversion_type) , intent(in) :: operationA
6216 end subroutine
6217#endif
6218
6219#if RK2_ENABLED
6220 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6222 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_RK2
6223#endif
6224 use pm_kind, only: RKG => RK2
6225 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6226 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6227 real(RKG) , intent(inout) , contiguous :: matB(:)
6228 type(upperDiag_type) , intent(in) :: classA
6229 type(inversion_type) , intent(in) :: operationA
6230 end subroutine
6231#endif
6232
6233#if RK1_ENABLED
6234 PURE module subroutine trsv_EXP_CUDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6236 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_INVA_CGMB_ONOB_RK1
6237#endif
6238 use pm_kind, only: RKG => RK1
6239 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6240 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6241 real(RKG) , intent(inout) , contiguous :: matB(:)
6242 type(upperDiag_type) , intent(in) :: classA
6243 type(inversion_type) , intent(in) :: operationA
6244 end subroutine
6245#endif
6246
6247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6248
6249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6252
6253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6254
6255#if CK5_ENABLED
6256 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6258 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK5
6259#endif
6260 use pm_kind, only: CKG => CK5
6261 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6262 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6263 complex(CKG) , intent(inout) , contiguous :: matB(:)
6264 type(upperDiag_type) , intent(in) :: classA
6265 type(transOrth_type) , intent(in) :: operationA
6266 end subroutine
6267#endif
6268
6269#if CK4_ENABLED
6270 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK4
6273#endif
6274 use pm_kind, only: CKG => CK4
6275 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6276 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6277 complex(CKG) , intent(inout) , contiguous :: matB(:)
6278 type(upperDiag_type) , intent(in) :: classA
6279 type(transOrth_type) , intent(in) :: operationA
6280 end subroutine
6281#endif
6282
6283#if CK3_ENABLED
6284 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6286 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK3
6287#endif
6288 use pm_kind, only: CKG => CK3
6289 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6290 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6291 complex(CKG) , intent(inout) , contiguous :: matB(:)
6292 type(upperDiag_type) , intent(in) :: classA
6293 type(transOrth_type) , intent(in) :: operationA
6294 end subroutine
6295#endif
6296
6297#if CK2_ENABLED
6298 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6300 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK2
6301#endif
6302 use pm_kind, only: CKG => CK2
6303 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6304 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6305 complex(CKG) , intent(inout) , contiguous :: matB(:)
6306 type(upperDiag_type) , intent(in) :: classA
6307 type(transOrth_type) , intent(in) :: operationA
6308 end subroutine
6309#endif
6310
6311#if CK1_ENABLED
6312 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6314 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_CK1
6315#endif
6316 use pm_kind, only: CKG => CK1
6317 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6318 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6319 complex(CKG) , intent(inout) , contiguous :: matB(:)
6320 type(upperDiag_type) , intent(in) :: classA
6321 type(transOrth_type) , intent(in) :: operationA
6322 end subroutine
6323#endif
6324
6325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6326
6327#if RK5_ENABLED
6328 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6330 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK5
6331#endif
6332 use pm_kind, only: RKG => RK5
6333 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6334 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6335 real(RKG) , intent(inout) , contiguous :: matB(:)
6336 type(upperDiag_type) , intent(in) :: classA
6337 type(transOrth_type) , intent(in) :: operationA
6338 end subroutine
6339#endif
6340
6341#if RK4_ENABLED
6342 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6344 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK4
6345#endif
6346 use pm_kind, only: RKG => RK4
6347 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6348 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6349 real(RKG) , intent(inout) , contiguous :: matB(:)
6350 type(upperDiag_type) , intent(in) :: classA
6351 type(transOrth_type) , intent(in) :: operationA
6352 end subroutine
6353#endif
6354
6355#if RK3_ENABLED
6356 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6358 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK3
6359#endif
6360 use pm_kind, only: RKG => RK3
6361 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6362 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6363 real(RKG) , intent(inout) , contiguous :: matB(:)
6364 type(upperDiag_type) , intent(in) :: classA
6365 type(transOrth_type) , intent(in) :: operationA
6366 end subroutine
6367#endif
6368
6369#if RK2_ENABLED
6370 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6372 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK2
6373#endif
6374 use pm_kind, only: RKG => RK2
6375 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6376 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6377 real(RKG) , intent(inout) , contiguous :: matB(:)
6378 type(upperDiag_type) , intent(in) :: classA
6379 type(transOrth_type) , intent(in) :: operationA
6380 end subroutine
6381#endif
6382
6383#if RK1_ENABLED
6384 PURE module subroutine trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6386 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTOA_CGMB_ONOB_RK1
6387#endif
6388 use pm_kind, only: RKG => RK1
6389 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6390 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6391 real(RKG) , intent(inout) , contiguous :: matB(:)
6392 type(upperDiag_type) , intent(in) :: classA
6393 type(transOrth_type) , intent(in) :: operationA
6394 end subroutine
6395#endif
6396
6397 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6398
6399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6402
6403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6404
6405#if CK5_ENABLED
6406 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6408 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK5
6409#endif
6410 use pm_kind, only: CKG => CK5
6411 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6412 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6413 complex(CKG) , intent(inout) , contiguous :: matB(:)
6414 type(upperDiag_type) , intent(in) :: classA
6415 type(transUnit_type) , intent(in) :: operationA
6416 end subroutine
6417#endif
6418
6419#if CK4_ENABLED
6420 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6422 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK4
6423#endif
6424 use pm_kind, only: CKG => CK4
6425 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6426 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6427 complex(CKG) , intent(inout) , contiguous :: matB(:)
6428 type(upperDiag_type) , intent(in) :: classA
6429 type(transUnit_type) , intent(in) :: operationA
6430 end subroutine
6431#endif
6432
6433#if CK3_ENABLED
6434 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6436 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK3
6437#endif
6438 use pm_kind, only: CKG => CK3
6439 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6440 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6441 complex(CKG) , intent(inout) , contiguous :: matB(:)
6442 type(upperDiag_type) , intent(in) :: classA
6443 type(transUnit_type) , intent(in) :: operationA
6444 end subroutine
6445#endif
6446
6447#if CK2_ENABLED
6448 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6450 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK2
6451#endif
6452 use pm_kind, only: CKG => CK2
6453 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6454 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6455 complex(CKG) , intent(inout) , contiguous :: matB(:)
6456 type(upperDiag_type) , intent(in) :: classA
6457 type(transUnit_type) , intent(in) :: operationA
6458 end subroutine
6459#endif
6460
6461#if CK1_ENABLED
6462 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6464 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_CK1
6465#endif
6466 use pm_kind, only: CKG => CK1
6467 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6468 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6469 complex(CKG) , intent(inout) , contiguous :: matB(:)
6470 type(upperDiag_type) , intent(in) :: classA
6471 type(transUnit_type) , intent(in) :: operationA
6472 end subroutine
6473#endif
6474
6475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6476
6477#if RK5_ENABLED
6478 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6480 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK5
6481#endif
6482 use pm_kind, only: RKG => RK5
6483 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6484 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6485 real(RKG) , intent(inout) , contiguous :: matB(:)
6486 type(upperDiag_type) , intent(in) :: classA
6487 type(transUnit_type) , intent(in) :: operationA
6488 end subroutine
6489#endif
6490
6491#if RK4_ENABLED
6492 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6494 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK4
6495#endif
6496 use pm_kind, only: RKG => RK4
6497 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6498 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6499 real(RKG) , intent(inout) , contiguous :: matB(:)
6500 type(upperDiag_type) , intent(in) :: classA
6501 type(transUnit_type) , intent(in) :: operationA
6502 end subroutine
6503#endif
6504
6505#if RK3_ENABLED
6506 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6508 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK3
6509#endif
6510 use pm_kind, only: RKG => RK3
6511 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6512 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6513 real(RKG) , intent(inout) , contiguous :: matB(:)
6514 type(upperDiag_type) , intent(in) :: classA
6515 type(transUnit_type) , intent(in) :: operationA
6516 end subroutine
6517#endif
6518
6519#if RK2_ENABLED
6520 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6522 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK2
6523#endif
6524 use pm_kind, only: RKG => RK2
6525 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6526 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6527 real(RKG) , intent(inout) , contiguous :: matB(:)
6528 type(upperDiag_type) , intent(in) :: classA
6529 type(transUnit_type) , intent(in) :: operationA
6530 end subroutine
6531#endif
6532
6533#if RK1_ENABLED
6534 PURE module subroutine trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUDA_OTUA_CGMB_ONOB_RK1
6537#endif
6538 use pm_kind, only: RKG => RK1
6539 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6540 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6541 real(RKG) , intent(inout) , contiguous :: matB(:)
6542 type(upperDiag_type) , intent(in) :: classA
6543 type(transUnit_type) , intent(in) :: operationA
6544 end subroutine
6545#endif
6546
6547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6548
6549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6552
6553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6556
6557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6558
6559#if CK5_ENABLED
6560 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6562 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_CK5
6563#endif
6564 use pm_kind, only: CKG => CK5
6565 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6566 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6567 complex(CKG) , intent(inout) , contiguous :: matB(:)
6568 type(lowerUnit_type) , intent(in) :: classA
6569 type(inversion_type) , intent(in) :: operationA
6570 end subroutine
6571#endif
6572
6573#if CK4_ENABLED
6574 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6576 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_CK4
6577#endif
6578 use pm_kind, only: CKG => CK4
6579 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6580 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6581 complex(CKG) , intent(inout) , contiguous :: matB(:)
6582 type(lowerUnit_type) , intent(in) :: classA
6583 type(inversion_type) , intent(in) :: operationA
6584 end subroutine
6585#endif
6586
6587#if CK3_ENABLED
6588 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6590 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_CK3
6591#endif
6592 use pm_kind, only: CKG => CK3
6593 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6594 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6595 complex(CKG) , intent(inout) , contiguous :: matB(:)
6596 type(lowerUnit_type) , intent(in) :: classA
6597 type(inversion_type) , intent(in) :: operationA
6598 end subroutine
6599#endif
6600
6601#if CK2_ENABLED
6602 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6604 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_CK2
6605#endif
6606 use pm_kind, only: CKG => CK2
6607 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6608 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6609 complex(CKG) , intent(inout) , contiguous :: matB(:)
6610 type(lowerUnit_type) , intent(in) :: classA
6611 type(inversion_type) , intent(in) :: operationA
6612 end subroutine
6613#endif
6614
6615#if CK1_ENABLED
6616 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6618 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_CK1
6619#endif
6620 use pm_kind, only: CKG => CK1
6621 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6622 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6623 complex(CKG) , intent(inout) , contiguous :: matB(:)
6624 type(lowerUnit_type) , intent(in) :: classA
6625 type(inversion_type) , intent(in) :: operationA
6626 end subroutine
6627#endif
6628
6629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6630
6631#if RK5_ENABLED
6632 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6634 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_RK5
6635#endif
6636 use pm_kind, only: RKG => RK5
6637 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6638 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6639 real(RKG) , intent(inout) , contiguous :: matB(:)
6640 type(lowerUnit_type) , intent(in) :: classA
6641 type(inversion_type) , intent(in) :: operationA
6642 end subroutine
6643#endif
6644
6645#if RK4_ENABLED
6646 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6648 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_RK4
6649#endif
6650 use pm_kind, only: RKG => RK4
6651 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6652 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6653 real(RKG) , intent(inout) , contiguous :: matB(:)
6654 type(lowerUnit_type) , intent(in) :: classA
6655 type(inversion_type) , intent(in) :: operationA
6656 end subroutine
6657#endif
6658
6659#if RK3_ENABLED
6660 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6662 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_RK3
6663#endif
6664 use pm_kind, only: RKG => RK3
6665 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6666 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6667 real(RKG) , intent(inout) , contiguous :: matB(:)
6668 type(lowerUnit_type) , intent(in) :: classA
6669 type(inversion_type) , intent(in) :: operationA
6670 end subroutine
6671#endif
6672
6673#if RK2_ENABLED
6674 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6676 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_RK2
6677#endif
6678 use pm_kind, only: RKG => RK2
6679 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6680 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6681 real(RKG) , intent(inout) , contiguous :: matB(:)
6682 type(lowerUnit_type) , intent(in) :: classA
6683 type(inversion_type) , intent(in) :: operationA
6684 end subroutine
6685#endif
6686
6687#if RK1_ENABLED
6688 PURE module subroutine trsv_EXP_CLUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6690 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_INVA_CGMB_ONOB_RK1
6691#endif
6692 use pm_kind, only: RKG => RK1
6693 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6694 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6695 real(RKG) , intent(inout) , contiguous :: matB(:)
6696 type(lowerUnit_type) , intent(in) :: classA
6697 type(inversion_type) , intent(in) :: operationA
6698 end subroutine
6699#endif
6700
6701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6702
6703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6706
6707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6708
6709#if CK5_ENABLED
6710 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6712 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK5
6713#endif
6714 use pm_kind, only: CKG => CK5
6715 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6716 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6717 complex(CKG) , intent(inout) , contiguous :: matB(:)
6718 type(lowerUnit_type) , intent(in) :: classA
6719 type(transOrth_type) , intent(in) :: operationA
6720 end subroutine
6721#endif
6722
6723#if CK4_ENABLED
6724 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6726 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK4
6727#endif
6728 use pm_kind, only: CKG => CK4
6729 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6730 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6731 complex(CKG) , intent(inout) , contiguous :: matB(:)
6732 type(lowerUnit_type) , intent(in) :: classA
6733 type(transOrth_type) , intent(in) :: operationA
6734 end subroutine
6735#endif
6736
6737#if CK3_ENABLED
6738 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6740 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK3
6741#endif
6742 use pm_kind, only: CKG => CK3
6743 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6744 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6745 complex(CKG) , intent(inout) , contiguous :: matB(:)
6746 type(lowerUnit_type) , intent(in) :: classA
6747 type(transOrth_type) , intent(in) :: operationA
6748 end subroutine
6749#endif
6750
6751#if CK2_ENABLED
6752 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6754 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK2
6755#endif
6756 use pm_kind, only: CKG => CK2
6757 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6758 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6759 complex(CKG) , intent(inout) , contiguous :: matB(:)
6760 type(lowerUnit_type) , intent(in) :: classA
6761 type(transOrth_type) , intent(in) :: operationA
6762 end subroutine
6763#endif
6764
6765#if CK1_ENABLED
6766 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6768 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_CK1
6769#endif
6770 use pm_kind, only: CKG => CK1
6771 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6772 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6773 complex(CKG) , intent(inout) , contiguous :: matB(:)
6774 type(lowerUnit_type) , intent(in) :: classA
6775 type(transOrth_type) , intent(in) :: operationA
6776 end subroutine
6777#endif
6778
6779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6780
6781#if RK5_ENABLED
6782 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6784 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK5
6785#endif
6786 use pm_kind, only: RKG => RK5
6787 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6788 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6789 real(RKG) , intent(inout) , contiguous :: matB(:)
6790 type(lowerUnit_type) , intent(in) :: classA
6791 type(transOrth_type) , intent(in) :: operationA
6792 end subroutine
6793#endif
6794
6795#if RK4_ENABLED
6796 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6798 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK4
6799#endif
6800 use pm_kind, only: RKG => RK4
6801 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6802 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6803 real(RKG) , intent(inout) , contiguous :: matB(:)
6804 type(lowerUnit_type) , intent(in) :: classA
6805 type(transOrth_type) , intent(in) :: operationA
6806 end subroutine
6807#endif
6808
6809#if RK3_ENABLED
6810 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6812 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK3
6813#endif
6814 use pm_kind, only: RKG => RK3
6815 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6816 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6817 real(RKG) , intent(inout) , contiguous :: matB(:)
6818 type(lowerUnit_type) , intent(in) :: classA
6819 type(transOrth_type) , intent(in) :: operationA
6820 end subroutine
6821#endif
6822
6823#if RK2_ENABLED
6824 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6826 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK2
6827#endif
6828 use pm_kind, only: RKG => RK2
6829 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6830 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6831 real(RKG) , intent(inout) , contiguous :: matB(:)
6832 type(lowerUnit_type) , intent(in) :: classA
6833 type(transOrth_type) , intent(in) :: operationA
6834 end subroutine
6835#endif
6836
6837#if RK1_ENABLED
6838 PURE module subroutine trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6840 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTOA_CGMB_ONOB_RK1
6841#endif
6842 use pm_kind, only: RKG => RK1
6843 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6844 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6845 real(RKG) , intent(inout) , contiguous :: matB(:)
6846 type(lowerUnit_type) , intent(in) :: classA
6847 type(transOrth_type) , intent(in) :: operationA
6848 end subroutine
6849#endif
6850
6851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6852
6853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6855 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6856
6857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6858
6859#if CK5_ENABLED
6860 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6862 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK5
6863#endif
6864 use pm_kind, only: CKG => CK5
6865 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6866 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6867 complex(CKG) , intent(inout) , contiguous :: matB(:)
6868 type(lowerUnit_type) , intent(in) :: classA
6869 type(transUnit_type) , intent(in) :: operationA
6870 end subroutine
6871#endif
6872
6873#if CK4_ENABLED
6874 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6876 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK4
6877#endif
6878 use pm_kind, only: CKG => CK4
6879 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6880 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6881 complex(CKG) , intent(inout) , contiguous :: matB(:)
6882 type(lowerUnit_type) , intent(in) :: classA
6883 type(transUnit_type) , intent(in) :: operationA
6884 end subroutine
6885#endif
6886
6887#if CK3_ENABLED
6888 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6890 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK3
6891#endif
6892 use pm_kind, only: CKG => CK3
6893 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6894 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6895 complex(CKG) , intent(inout) , contiguous :: matB(:)
6896 type(lowerUnit_type) , intent(in) :: classA
6897 type(transUnit_type) , intent(in) :: operationA
6898 end subroutine
6899#endif
6900
6901#if CK2_ENABLED
6902 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6904 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK2
6905#endif
6906 use pm_kind, only: CKG => CK2
6907 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6908 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6909 complex(CKG) , intent(inout) , contiguous :: matB(:)
6910 type(lowerUnit_type) , intent(in) :: classA
6911 type(transUnit_type) , intent(in) :: operationA
6912 end subroutine
6913#endif
6914
6915#if CK1_ENABLED
6916 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6918 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_CK1
6919#endif
6920 use pm_kind, only: CKG => CK1
6921 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6922 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6923 complex(CKG) , intent(inout) , contiguous :: matB(:)
6924 type(lowerUnit_type) , intent(in) :: classA
6925 type(transUnit_type) , intent(in) :: operationA
6926 end subroutine
6927#endif
6928
6929 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6930
6931#if RK5_ENABLED
6932 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6934 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK5
6935#endif
6936 use pm_kind, only: RKG => RK5
6937 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6938 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6939 real(RKG) , intent(inout) , contiguous :: matB(:)
6940 type(lowerUnit_type) , intent(in) :: classA
6941 type(transUnit_type) , intent(in) :: operationA
6942 end subroutine
6943#endif
6944
6945#if RK4_ENABLED
6946 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6948 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK4
6949#endif
6950 use pm_kind, only: RKG => RK4
6951 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6952 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6953 real(RKG) , intent(inout) , contiguous :: matB(:)
6954 type(lowerUnit_type) , intent(in) :: classA
6955 type(transUnit_type) , intent(in) :: operationA
6956 end subroutine
6957#endif
6958
6959#if RK3_ENABLED
6960 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6962 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK3
6963#endif
6964 use pm_kind, only: RKG => RK3
6965 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6966 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6967 real(RKG) , intent(inout) , contiguous :: matB(:)
6968 type(lowerUnit_type) , intent(in) :: classA
6969 type(transUnit_type) , intent(in) :: operationA
6970 end subroutine
6971#endif
6972
6973#if RK2_ENABLED
6974 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6976 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK2
6977#endif
6978 use pm_kind, only: RKG => RK2
6979 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6980 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6981 real(RKG) , intent(inout) , contiguous :: matB(:)
6982 type(lowerUnit_type) , intent(in) :: classA
6983 type(transUnit_type) , intent(in) :: operationA
6984 end subroutine
6985#endif
6986
6987#if RK1_ENABLED
6988 PURE module subroutine trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
6989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6990 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CLUA_OTUA_CGMB_ONOB_RK1
6991#endif
6992 use pm_kind, only: RKG => RK1
6993 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
6994 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
6995 real(RKG) , intent(inout) , contiguous :: matB(:)
6996 type(lowerUnit_type) , intent(in) :: classA
6997 type(transUnit_type) , intent(in) :: operationA
6998 end subroutine
6999#endif
7000
7001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7002
7003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7006
7007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7010
7011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7012
7013#if CK5_ENABLED
7014 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7016 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_CK5
7017#endif
7018 use pm_kind, only: CKG => CK5
7019 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7020 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7021 complex(CKG) , intent(inout) , contiguous :: matB(:)
7022 type(upperUnit_type) , intent(in) :: classA
7023 type(inversion_type) , intent(in) :: operationA
7024 end subroutine
7025#endif
7026
7027#if CK4_ENABLED
7028 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7030 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_CK4
7031#endif
7032 use pm_kind, only: CKG => CK4
7033 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7034 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7035 complex(CKG) , intent(inout) , contiguous :: matB(:)
7036 type(upperUnit_type) , intent(in) :: classA
7037 type(inversion_type) , intent(in) :: operationA
7038 end subroutine
7039#endif
7040
7041#if CK3_ENABLED
7042 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7044 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_CK3
7045#endif
7046 use pm_kind, only: CKG => CK3
7047 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7048 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7049 complex(CKG) , intent(inout) , contiguous :: matB(:)
7050 type(upperUnit_type) , intent(in) :: classA
7051 type(inversion_type) , intent(in) :: operationA
7052 end subroutine
7053#endif
7054
7055#if CK2_ENABLED
7056 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7058 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_CK2
7059#endif
7060 use pm_kind, only: CKG => CK2
7061 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7062 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7063 complex(CKG) , intent(inout) , contiguous :: matB(:)
7064 type(upperUnit_type) , intent(in) :: classA
7065 type(inversion_type) , intent(in) :: operationA
7066 end subroutine
7067#endif
7068
7069#if CK1_ENABLED
7070 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7072 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_CK1
7073#endif
7074 use pm_kind, only: CKG => CK1
7075 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7076 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7077 complex(CKG) , intent(inout) , contiguous :: matB(:)
7078 type(upperUnit_type) , intent(in) :: classA
7079 type(inversion_type) , intent(in) :: operationA
7080 end subroutine
7081#endif
7082
7083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7084
7085#if RK5_ENABLED
7086 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7088 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_RK5
7089#endif
7090 use pm_kind, only: RKG => RK5
7091 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7092 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7093 real(RKG) , intent(inout) , contiguous :: matB(:)
7094 type(upperUnit_type) , intent(in) :: classA
7095 type(inversion_type) , intent(in) :: operationA
7096 end subroutine
7097#endif
7098
7099#if RK4_ENABLED
7100 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7102 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_RK4
7103#endif
7104 use pm_kind, only: RKG => RK4
7105 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7106 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7107 real(RKG) , intent(inout) , contiguous :: matB(:)
7108 type(upperUnit_type) , intent(in) :: classA
7109 type(inversion_type) , intent(in) :: operationA
7110 end subroutine
7111#endif
7112
7113#if RK3_ENABLED
7114 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7116 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_RK3
7117#endif
7118 use pm_kind, only: RKG => RK3
7119 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7120 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7121 real(RKG) , intent(inout) , contiguous :: matB(:)
7122 type(upperUnit_type) , intent(in) :: classA
7123 type(inversion_type) , intent(in) :: operationA
7124 end subroutine
7125#endif
7126
7127#if RK2_ENABLED
7128 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7130 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_RK2
7131#endif
7132 use pm_kind, only: RKG => RK2
7133 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7134 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7135 real(RKG) , intent(inout) , contiguous :: matB(:)
7136 type(upperUnit_type) , intent(in) :: classA
7137 type(inversion_type) , intent(in) :: operationA
7138 end subroutine
7139#endif
7140
7141#if RK1_ENABLED
7142 PURE module subroutine trsv_EXP_CUUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_INVA_CGMB_ONOB_RK1
7145#endif
7146 use pm_kind, only: RKG => RK1
7147 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7148 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7149 real(RKG) , intent(inout) , contiguous :: matB(:)
7150 type(upperUnit_type) , intent(in) :: classA
7151 type(inversion_type) , intent(in) :: operationA
7152 end subroutine
7153#endif
7154
7155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7156
7157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7160
7161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7162
7163#if CK5_ENABLED
7164 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7166 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK5
7167#endif
7168 use pm_kind, only: CKG => CK5
7169 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7170 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7171 complex(CKG) , intent(inout) , contiguous :: matB(:)
7172 type(upperUnit_type) , intent(in) :: classA
7173 type(transOrth_type) , intent(in) :: operationA
7174 end subroutine
7175#endif
7176
7177#if CK4_ENABLED
7178 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7180 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK4
7181#endif
7182 use pm_kind, only: CKG => CK4
7183 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7184 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7185 complex(CKG) , intent(inout) , contiguous :: matB(:)
7186 type(upperUnit_type) , intent(in) :: classA
7187 type(transOrth_type) , intent(in) :: operationA
7188 end subroutine
7189#endif
7190
7191#if CK3_ENABLED
7192 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7194 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK3
7195#endif
7196 use pm_kind, only: CKG => CK3
7197 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7198 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7199 complex(CKG) , intent(inout) , contiguous :: matB(:)
7200 type(upperUnit_type) , intent(in) :: classA
7201 type(transOrth_type) , intent(in) :: operationA
7202 end subroutine
7203#endif
7204
7205#if CK2_ENABLED
7206 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7208 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK2
7209#endif
7210 use pm_kind, only: CKG => CK2
7211 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7212 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7213 complex(CKG) , intent(inout) , contiguous :: matB(:)
7214 type(upperUnit_type) , intent(in) :: classA
7215 type(transOrth_type) , intent(in) :: operationA
7216 end subroutine
7217#endif
7218
7219#if CK1_ENABLED
7220 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7222 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_CK1
7223#endif
7224 use pm_kind, only: CKG => CK1
7225 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7226 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7227 complex(CKG) , intent(inout) , contiguous :: matB(:)
7228 type(upperUnit_type) , intent(in) :: classA
7229 type(transOrth_type) , intent(in) :: operationA
7230 end subroutine
7231#endif
7232
7233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7234
7235#if RK5_ENABLED
7236 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7238 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK5
7239#endif
7240 use pm_kind, only: RKG => RK5
7241 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7242 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7243 real(RKG) , intent(inout) , contiguous :: matB(:)
7244 type(upperUnit_type) , intent(in) :: classA
7245 type(transOrth_type) , intent(in) :: operationA
7246 end subroutine
7247#endif
7248
7249#if RK4_ENABLED
7250 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7252 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK4
7253#endif
7254 use pm_kind, only: RKG => RK4
7255 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7256 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7257 real(RKG) , intent(inout) , contiguous :: matB(:)
7258 type(upperUnit_type) , intent(in) :: classA
7259 type(transOrth_type) , intent(in) :: operationA
7260 end subroutine
7261#endif
7262
7263#if RK3_ENABLED
7264 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7266 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK3
7267#endif
7268 use pm_kind, only: RKG => RK3
7269 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7270 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7271 real(RKG) , intent(inout) , contiguous :: matB(:)
7272 type(upperUnit_type) , intent(in) :: classA
7273 type(transOrth_type) , intent(in) :: operationA
7274 end subroutine
7275#endif
7276
7277#if RK2_ENABLED
7278 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7280 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK2
7281#endif
7282 use pm_kind, only: RKG => RK2
7283 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7284 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7285 real(RKG) , intent(inout) , contiguous :: matB(:)
7286 type(upperUnit_type) , intent(in) :: classA
7287 type(transOrth_type) , intent(in) :: operationA
7288 end subroutine
7289#endif
7290
7291#if RK1_ENABLED
7292 PURE module subroutine trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7294 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTOA_CGMB_ONOB_RK1
7295#endif
7296 use pm_kind, only: RKG => RK1
7297 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7298 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7299 real(RKG) , intent(inout) , contiguous :: matB(:)
7300 type(upperUnit_type) , intent(in) :: classA
7301 type(transOrth_type) , intent(in) :: operationA
7302 end subroutine
7303#endif
7304
7305 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7306
7307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7310
7311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7312
7313#if CK5_ENABLED
7314 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7316 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK5
7317#endif
7318 use pm_kind, only: CKG => CK5
7319 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7320 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7321 complex(CKG) , intent(inout) , contiguous :: matB(:)
7322 type(upperUnit_type) , intent(in) :: classA
7323 type(transUnit_type) , intent(in) :: operationA
7324 end subroutine
7325#endif
7326
7327#if CK4_ENABLED
7328 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7330 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK4
7331#endif
7332 use pm_kind, only: CKG => CK4
7333 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7334 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7335 complex(CKG) , intent(inout) , contiguous :: matB(:)
7336 type(upperUnit_type) , intent(in) :: classA
7337 type(transUnit_type) , intent(in) :: operationA
7338 end subroutine
7339#endif
7340
7341#if CK3_ENABLED
7342 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7344 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK3
7345#endif
7346 use pm_kind, only: CKG => CK3
7347 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7348 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7349 complex(CKG) , intent(inout) , contiguous :: matB(:)
7350 type(upperUnit_type) , intent(in) :: classA
7351 type(transUnit_type) , intent(in) :: operationA
7352 end subroutine
7353#endif
7354
7355#if CK2_ENABLED
7356 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7358 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK2
7359#endif
7360 use pm_kind, only: CKG => CK2
7361 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7362 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7363 complex(CKG) , intent(inout) , contiguous :: matB(:)
7364 type(upperUnit_type) , intent(in) :: classA
7365 type(transUnit_type) , intent(in) :: operationA
7366 end subroutine
7367#endif
7368
7369#if CK1_ENABLED
7370 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7372 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_CK1
7373#endif
7374 use pm_kind, only: CKG => CK1
7375 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7376 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7377 complex(CKG) , intent(inout) , contiguous :: matB(:)
7378 type(upperUnit_type) , intent(in) :: classA
7379 type(transUnit_type) , intent(in) :: operationA
7380 end subroutine
7381#endif
7382
7383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7384
7385#if RK5_ENABLED
7386 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7388 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK5
7389#endif
7390 use pm_kind, only: RKG => RK5
7391 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7392 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7393 real(RKG) , intent(inout) , contiguous :: matB(:)
7394 type(upperUnit_type) , intent(in) :: classA
7395 type(transUnit_type) , intent(in) :: operationA
7396 end subroutine
7397#endif
7398
7399#if RK4_ENABLED
7400 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7402 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK4
7403#endif
7404 use pm_kind, only: RKG => RK4
7405 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7406 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7407 real(RKG) , intent(inout) , contiguous :: matB(:)
7408 type(upperUnit_type) , intent(in) :: classA
7409 type(transUnit_type) , intent(in) :: operationA
7410 end subroutine
7411#endif
7412
7413#if RK3_ENABLED
7414 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7416 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK3
7417#endif
7418 use pm_kind, only: RKG => RK3
7419 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7420 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7421 real(RKG) , intent(inout) , contiguous :: matB(:)
7422 type(upperUnit_type) , intent(in) :: classA
7423 type(transUnit_type) , intent(in) :: operationA
7424 end subroutine
7425#endif
7426
7427#if RK2_ENABLED
7428 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7430 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK2
7431#endif
7432 use pm_kind, only: RKG => RK2
7433 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7434 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7435 real(RKG) , intent(inout) , contiguous :: matB(:)
7436 type(upperUnit_type) , intent(in) :: classA
7437 type(transUnit_type) , intent(in) :: operationA
7438 end subroutine
7439#endif
7440
7441#if RK1_ENABLED
7442 PURE module subroutine trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, nrow, roffA, coffA, incB)
7443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7444 !DEC$ ATTRIBUTES DLLEXPORT :: trsv_EXP_CUUA_OTUA_CGMB_ONOB_RK1
7445#endif
7446 use pm_kind, only: RKG => RK1
7447 integer(IK) , intent(in) :: nrow, roffA, coffA, incB
7448 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
7449 real(RKG) , intent(inout) , contiguous :: matB(:)
7450 type(upperUnit_type) , intent(in) :: classA
7451 type(transUnit_type) , intent(in) :: operationA
7452 end subroutine
7453#endif
7454
7455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7456
7457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7460
7461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7464
7465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7468
7469 end interface
7470
7471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7474
7475 ! BLAS LEVEL 3 - `STRMM`, `DTRMM`, `CTRMM`, and `ZTRMM`
7476
7477 interface setMatMulTri
7478
7479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7482
7483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7486
7487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7490
7491 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7492
7493#if CK5_ENABLED
7494 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
7495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7496 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK5
7497#endif
7498 use pm_kind, only: CKG => CK5
7499 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7500 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7501 complex(CKG) , intent(in) , optional :: alpha
7502 type(lowerDiag_type) , intent(in) :: classA
7503 type(nothing_type) , intent(in) :: operationA
7504 end subroutine
7505#endif
7506
7507#if CK4_ENABLED
7508 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
7509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7510 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK4
7511#endif
7512 use pm_kind, only: CKG => CK4
7513 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7514 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7515 complex(CKG) , intent(in) , optional :: alpha
7516 type(lowerDiag_type) , intent(in) :: classA
7517 type(nothing_type) , intent(in) :: operationA
7518 end subroutine
7519#endif
7520
7521#if CK3_ENABLED
7522 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
7523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7524 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK3
7525#endif
7526 use pm_kind, only: CKG => CK3
7527 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7528 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7529 complex(CKG) , intent(in) , optional :: alpha
7530 type(lowerDiag_type) , intent(in) :: classA
7531 type(nothing_type) , intent(in) :: operationA
7532 end subroutine
7533#endif
7534
7535#if CK2_ENABLED
7536 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
7537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7538 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK2
7539#endif
7540 use pm_kind, only: CKG => CK2
7541 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7542 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7543 complex(CKG) , intent(in) , optional :: alpha
7544 type(lowerDiag_type) , intent(in) :: classA
7545 type(nothing_type) , intent(in) :: operationA
7546 end subroutine
7547#endif
7548
7549#if CK1_ENABLED
7550 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
7551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7552 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_CK1
7553#endif
7554 use pm_kind, only: CKG => CK1
7555 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7556 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7557 complex(CKG) , intent(in) , optional :: alpha
7558 type(lowerDiag_type) , intent(in) :: classA
7559 type(nothing_type) , intent(in) :: operationA
7560 end subroutine
7561#endif
7562
7563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7564
7565#if RK5_ENABLED
7566 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
7567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7568 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK5
7569#endif
7570 use pm_kind, only: RKG => RK5
7571 real(RKG) , intent(in) , contiguous :: matA(:,:)
7572 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7573 real(RKG) , intent(in) , optional :: alpha
7574 type(lowerDiag_type) , intent(in) :: classA
7575 type(nothing_type) , intent(in) :: operationA
7576 end subroutine
7577#endif
7578
7579#if RK4_ENABLED
7580 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
7581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7582 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK4
7583#endif
7584 use pm_kind, only: RKG => RK4
7585 real(RKG) , intent(in) , contiguous :: matA(:,:)
7586 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7587 real(RKG) , intent(in) , optional :: alpha
7588 type(lowerDiag_type) , intent(in) :: classA
7589 type(nothing_type) , intent(in) :: operationA
7590 end subroutine
7591#endif
7592
7593#if RK3_ENABLED
7594 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
7595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7596 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK3
7597#endif
7598 use pm_kind, only: RKG => RK3
7599 real(RKG) , intent(in) , contiguous :: matA(:,:)
7600 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7601 real(RKG) , intent(in) , optional :: alpha
7602 type(lowerDiag_type) , intent(in) :: classA
7603 type(nothing_type) , intent(in) :: operationA
7604 end subroutine
7605#endif
7606
7607#if RK2_ENABLED
7608 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
7609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7610 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK2
7611#endif
7612 use pm_kind, only: RKG => RK2
7613 real(RKG) , intent(in) , contiguous :: matA(:,:)
7614 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7615 real(RKG) , intent(in) , optional :: alpha
7616 type(lowerDiag_type) , intent(in) :: classA
7617 type(nothing_type) , intent(in) :: operationA
7618 end subroutine
7619#endif
7620
7621#if RK1_ENABLED
7622 PURE module subroutine trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
7623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7624 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_ONOA_CGMB_ONOB_RK1
7625#endif
7626 use pm_kind, only: RKG => RK1
7627 real(RKG) , intent(in) , contiguous :: matA(:,:)
7628 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7629 real(RKG) , intent(in) , optional :: alpha
7630 type(lowerDiag_type) , intent(in) :: classA
7631 type(nothing_type) , intent(in) :: operationA
7632 end subroutine
7633#endif
7634
7635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7636
7637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7640
7641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7642
7643#if CK5_ENABLED
7644 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
7645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7646 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK5
7647#endif
7648 use pm_kind, only: CKG => CK5
7649 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7650 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7651 complex(CKG) , intent(in) , optional :: alpha
7652 type(lowerDiag_type) , intent(in) :: classA
7653 type(transSymm_type) , intent(in) :: operationA
7654 end subroutine
7655#endif
7656
7657#if CK4_ENABLED
7658 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
7659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7660 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK4
7661#endif
7662 use pm_kind, only: CKG => CK4
7663 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7664 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7665 complex(CKG) , intent(in) , optional :: alpha
7666 type(lowerDiag_type) , intent(in) :: classA
7667 type(transSymm_type) , intent(in) :: operationA
7668 end subroutine
7669#endif
7670
7671#if CK3_ENABLED
7672 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
7673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7674 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK3
7675#endif
7676 use pm_kind, only: CKG => CK3
7677 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7678 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7679 complex(CKG) , intent(in) , optional :: alpha
7680 type(lowerDiag_type) , intent(in) :: classA
7681 type(transSymm_type) , intent(in) :: operationA
7682 end subroutine
7683#endif
7684
7685#if CK2_ENABLED
7686 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
7687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7688 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK2
7689#endif
7690 use pm_kind, only: CKG => CK2
7691 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7692 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7693 complex(CKG) , intent(in) , optional :: alpha
7694 type(lowerDiag_type) , intent(in) :: classA
7695 type(transSymm_type) , intent(in) :: operationA
7696 end subroutine
7697#endif
7698
7699#if CK1_ENABLED
7700 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
7701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7702 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_CK1
7703#endif
7704 use pm_kind, only: CKG => CK1
7705 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7706 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7707 complex(CKG) , intent(in) , optional :: alpha
7708 type(lowerDiag_type) , intent(in) :: classA
7709 type(transSymm_type) , intent(in) :: operationA
7710 end subroutine
7711#endif
7712
7713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7714
7715#if RK5_ENABLED
7716 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
7717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7718 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK5
7719#endif
7720 use pm_kind, only: RKG => RK5
7721 real(RKG) , intent(in) , contiguous :: matA(:,:)
7722 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7723 real(RKG) , intent(in) , optional :: alpha
7724 type(lowerDiag_type) , intent(in) :: classA
7725 type(transSymm_type) , intent(in) :: operationA
7726 end subroutine
7727#endif
7728
7729#if RK4_ENABLED
7730 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
7731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7732 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK4
7733#endif
7734 use pm_kind, only: RKG => RK4
7735 real(RKG) , intent(in) , contiguous :: matA(:,:)
7736 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7737 real(RKG) , intent(in) , optional :: alpha
7738 type(lowerDiag_type) , intent(in) :: classA
7739 type(transSymm_type) , intent(in) :: operationA
7740 end subroutine
7741#endif
7742
7743#if RK3_ENABLED
7744 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
7745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7746 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK3
7747#endif
7748 use pm_kind, only: RKG => RK3
7749 real(RKG) , intent(in) , contiguous :: matA(:,:)
7750 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7751 real(RKG) , intent(in) , optional :: alpha
7752 type(lowerDiag_type) , intent(in) :: classA
7753 type(transSymm_type) , intent(in) :: operationA
7754 end subroutine
7755#endif
7756
7757#if RK2_ENABLED
7758 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
7759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7760 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK2
7761#endif
7762 use pm_kind, only: RKG => RK2
7763 real(RKG) , intent(in) , contiguous :: matA(:,:)
7764 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7765 real(RKG) , intent(in) , optional :: alpha
7766 type(lowerDiag_type) , intent(in) :: classA
7767 type(transSymm_type) , intent(in) :: operationA
7768 end subroutine
7769#endif
7770
7771#if RK1_ENABLED
7772 PURE module subroutine trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
7773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7774 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTSA_CGMB_ONOB_RK1
7775#endif
7776 use pm_kind, only: RKG => RK1
7777 real(RKG) , intent(in) , contiguous :: matA(:,:)
7778 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7779 real(RKG) , intent(in) , optional :: alpha
7780 type(lowerDiag_type) , intent(in) :: classA
7781 type(transSymm_type) , intent(in) :: operationA
7782 end subroutine
7783#endif
7784
7785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7786
7787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7788 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7790
7791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7792
7793#if CK5_ENABLED
7794 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
7795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7796 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK5
7797#endif
7798 use pm_kind, only: CKG => CK5
7799 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7800 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7801 complex(CKG) , intent(in) , optional :: alpha
7802 type(lowerDiag_type) , intent(in) :: classA
7803 type(transHerm_type) , intent(in) :: operationA
7804 end subroutine
7805#endif
7806
7807#if CK4_ENABLED
7808 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
7809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7810 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK4
7811#endif
7812 use pm_kind, only: CKG => CK4
7813 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7814 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7815 complex(CKG) , intent(in) , optional :: alpha
7816 type(lowerDiag_type) , intent(in) :: classA
7817 type(transHerm_type) , intent(in) :: operationA
7818 end subroutine
7819#endif
7820
7821#if CK3_ENABLED
7822 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
7823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7824 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK3
7825#endif
7826 use pm_kind, only: CKG => CK3
7827 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7828 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7829 complex(CKG) , intent(in) , optional :: alpha
7830 type(lowerDiag_type) , intent(in) :: classA
7831 type(transHerm_type) , intent(in) :: operationA
7832 end subroutine
7833#endif
7834
7835#if CK2_ENABLED
7836 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
7837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7838 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK2
7839#endif
7840 use pm_kind, only: CKG => CK2
7841 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7842 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7843 complex(CKG) , intent(in) , optional :: alpha
7844 type(lowerDiag_type) , intent(in) :: classA
7845 type(transHerm_type) , intent(in) :: operationA
7846 end subroutine
7847#endif
7848
7849#if CK1_ENABLED
7850 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
7851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7852 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_CK1
7853#endif
7854 use pm_kind, only: CKG => CK1
7855 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7856 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7857 complex(CKG) , intent(in) , optional :: alpha
7858 type(lowerDiag_type) , intent(in) :: classA
7859 type(transHerm_type) , intent(in) :: operationA
7860 end subroutine
7861#endif
7862
7863 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7864
7865#if RK5_ENABLED
7866 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
7867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7868 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK5
7869#endif
7870 use pm_kind, only: RKG => RK5
7871 real(RKG) , intent(in) , contiguous :: matA(:,:)
7872 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7873 real(RKG) , intent(in) , optional :: alpha
7874 type(lowerDiag_type) , intent(in) :: classA
7875 type(transHerm_type) , intent(in) :: operationA
7876 end subroutine
7877#endif
7878
7879#if RK4_ENABLED
7880 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
7881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7882 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK4
7883#endif
7884 use pm_kind, only: RKG => RK4
7885 real(RKG) , intent(in) , contiguous :: matA(:,:)
7886 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7887 real(RKG) , intent(in) , optional :: alpha
7888 type(lowerDiag_type) , intent(in) :: classA
7889 type(transHerm_type) , intent(in) :: operationA
7890 end subroutine
7891#endif
7892
7893#if RK3_ENABLED
7894 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
7895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7896 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK3
7897#endif
7898 use pm_kind, only: RKG => RK3
7899 real(RKG) , intent(in) , contiguous :: matA(:,:)
7900 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7901 real(RKG) , intent(in) , optional :: alpha
7902 type(lowerDiag_type) , intent(in) :: classA
7903 type(transHerm_type) , intent(in) :: operationA
7904 end subroutine
7905#endif
7906
7907#if RK2_ENABLED
7908 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
7909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7910 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK2
7911#endif
7912 use pm_kind, only: RKG => RK2
7913 real(RKG) , intent(in) , contiguous :: matA(:,:)
7914 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7915 real(RKG) , intent(in) , optional :: alpha
7916 type(lowerDiag_type) , intent(in) :: classA
7917 type(transHerm_type) , intent(in) :: operationA
7918 end subroutine
7919#endif
7920
7921#if RK1_ENABLED
7922 PURE module subroutine trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
7923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7924 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLDA_OTHA_CGMB_ONOB_RK1
7925#endif
7926 use pm_kind, only: RKG => RK1
7927 real(RKG) , intent(in) , contiguous :: matA(:,:)
7928 real(RKG) , intent(inout) , contiguous :: matB(:,:)
7929 real(RKG) , intent(in) , optional :: alpha
7930 type(lowerDiag_type) , intent(in) :: classA
7931 type(transHerm_type) , intent(in) :: operationA
7932 end subroutine
7933#endif
7934
7935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7936
7937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7940
7941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7944
7945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7946
7947#if CK5_ENABLED
7948 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
7949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7950 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK5
7951#endif
7952 use pm_kind, only: CKG => CK5
7953 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7954 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7955 complex(CKG) , intent(in) , optional :: alpha
7956 type(upperDiag_type) , intent(in) :: classA
7957 type(nothing_type) , intent(in) :: operationA
7958 end subroutine
7959#endif
7960
7961#if CK4_ENABLED
7962 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
7963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7964 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK4
7965#endif
7966 use pm_kind, only: CKG => CK4
7967 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7968 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7969 complex(CKG) , intent(in) , optional :: alpha
7970 type(upperDiag_type) , intent(in) :: classA
7971 type(nothing_type) , intent(in) :: operationA
7972 end subroutine
7973#endif
7974
7975#if CK3_ENABLED
7976 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
7977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7978 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK3
7979#endif
7980 use pm_kind, only: CKG => CK3
7981 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7982 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7983 complex(CKG) , intent(in) , optional :: alpha
7984 type(upperDiag_type) , intent(in) :: classA
7985 type(nothing_type) , intent(in) :: operationA
7986 end subroutine
7987#endif
7988
7989#if CK2_ENABLED
7990 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
7991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7992 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK2
7993#endif
7994 use pm_kind, only: CKG => CK2
7995 complex(CKG) , intent(in) , contiguous :: matA(:,:)
7996 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
7997 complex(CKG) , intent(in) , optional :: alpha
7998 type(upperDiag_type) , intent(in) :: classA
7999 type(nothing_type) , intent(in) :: operationA
8000 end subroutine
8001#endif
8002
8003#if CK1_ENABLED
8004 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8006 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_CK1
8007#endif
8008 use pm_kind, only: CKG => CK1
8009 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8010 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8011 complex(CKG) , intent(in) , optional :: alpha
8012 type(upperDiag_type) , intent(in) :: classA
8013 type(nothing_type) , intent(in) :: operationA
8014 end subroutine
8015#endif
8016
8017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8018
8019#if RK5_ENABLED
8020 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8022 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK5
8023#endif
8024 use pm_kind, only: RKG => RK5
8025 real(RKG) , intent(in) , contiguous :: matA(:,:)
8026 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8027 real(RKG) , intent(in) , optional :: alpha
8028 type(upperDiag_type) , intent(in) :: classA
8029 type(nothing_type) , intent(in) :: operationA
8030 end subroutine
8031#endif
8032
8033#if RK4_ENABLED
8034 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8036 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK4
8037#endif
8038 use pm_kind, only: RKG => RK4
8039 real(RKG) , intent(in) , contiguous :: matA(:,:)
8040 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8041 real(RKG) , intent(in) , optional :: alpha
8042 type(upperDiag_type) , intent(in) :: classA
8043 type(nothing_type) , intent(in) :: operationA
8044 end subroutine
8045#endif
8046
8047#if RK3_ENABLED
8048 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8050 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK3
8051#endif
8052 use pm_kind, only: RKG => RK3
8053 real(RKG) , intent(in) , contiguous :: matA(:,:)
8054 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8055 real(RKG) , intent(in) , optional :: alpha
8056 type(upperDiag_type) , intent(in) :: classA
8057 type(nothing_type) , intent(in) :: operationA
8058 end subroutine
8059#endif
8060
8061#if RK2_ENABLED
8062 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8064 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK2
8065#endif
8066 use pm_kind, only: RKG => RK2
8067 real(RKG) , intent(in) , contiguous :: matA(:,:)
8068 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8069 real(RKG) , intent(in) , optional :: alpha
8070 type(upperDiag_type) , intent(in) :: classA
8071 type(nothing_type) , intent(in) :: operationA
8072 end subroutine
8073#endif
8074
8075#if RK1_ENABLED
8076 PURE module subroutine trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8078 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_ONOA_CGMB_ONOB_RK1
8079#endif
8080 use pm_kind, only: RKG => RK1
8081 real(RKG) , intent(in) , contiguous :: matA(:,:)
8082 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8083 real(RKG) , intent(in) , optional :: alpha
8084 type(upperDiag_type) , intent(in) :: classA
8085 type(nothing_type) , intent(in) :: operationA
8086 end subroutine
8087#endif
8088
8089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8090
8091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8092 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8094
8095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8096
8097#if CK5_ENABLED
8098 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8100 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK5
8101#endif
8102 use pm_kind, only: CKG => CK5
8103 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8104 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8105 complex(CKG) , intent(in) , optional :: alpha
8106 type(upperDiag_type) , intent(in) :: classA
8107 type(transSymm_type) , intent(in) :: operationA
8108 end subroutine
8109#endif
8110
8111#if CK4_ENABLED
8112 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8114 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK4
8115#endif
8116 use pm_kind, only: CKG => CK4
8117 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8118 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8119 complex(CKG) , intent(in) , optional :: alpha
8120 type(upperDiag_type) , intent(in) :: classA
8121 type(transSymm_type) , intent(in) :: operationA
8122 end subroutine
8123#endif
8124
8125#if CK3_ENABLED
8126 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8128 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK3
8129#endif
8130 use pm_kind, only: CKG => CK3
8131 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8132 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8133 complex(CKG) , intent(in) , optional :: alpha
8134 type(upperDiag_type) , intent(in) :: classA
8135 type(transSymm_type) , intent(in) :: operationA
8136 end subroutine
8137#endif
8138
8139#if CK2_ENABLED
8140 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK2
8143#endif
8144 use pm_kind, only: CKG => CK2
8145 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8146 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8147 complex(CKG) , intent(in) , optional :: alpha
8148 type(upperDiag_type) , intent(in) :: classA
8149 type(transSymm_type) , intent(in) :: operationA
8150 end subroutine
8151#endif
8152
8153#if CK1_ENABLED
8154 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8156 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_CK1
8157#endif
8158 use pm_kind, only: CKG => CK1
8159 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8160 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8161 complex(CKG) , intent(in) , optional :: alpha
8162 type(upperDiag_type) , intent(in) :: classA
8163 type(transSymm_type) , intent(in) :: operationA
8164 end subroutine
8165#endif
8166
8167 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8168
8169#if RK5_ENABLED
8170 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8172 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK5
8173#endif
8174 use pm_kind, only: RKG => RK5
8175 real(RKG) , intent(in) , contiguous :: matA(:,:)
8176 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8177 real(RKG) , intent(in) , optional :: alpha
8178 type(upperDiag_type) , intent(in) :: classA
8179 type(transSymm_type) , intent(in) :: operationA
8180 end subroutine
8181#endif
8182
8183#if RK4_ENABLED
8184 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8186 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK4
8187#endif
8188 use pm_kind, only: RKG => RK4
8189 real(RKG) , intent(in) , contiguous :: matA(:,:)
8190 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8191 real(RKG) , intent(in) , optional :: alpha
8192 type(upperDiag_type) , intent(in) :: classA
8193 type(transSymm_type) , intent(in) :: operationA
8194 end subroutine
8195#endif
8196
8197#if RK3_ENABLED
8198 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8200 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK3
8201#endif
8202 use pm_kind, only: RKG => RK3
8203 real(RKG) , intent(in) , contiguous :: matA(:,:)
8204 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8205 real(RKG) , intent(in) , optional :: alpha
8206 type(upperDiag_type) , intent(in) :: classA
8207 type(transSymm_type) , intent(in) :: operationA
8208 end subroutine
8209#endif
8210
8211#if RK2_ENABLED
8212 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8214 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK2
8215#endif
8216 use pm_kind, only: RKG => RK2
8217 real(RKG) , intent(in) , contiguous :: matA(:,:)
8218 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8219 real(RKG) , intent(in) , optional :: alpha
8220 type(upperDiag_type) , intent(in) :: classA
8221 type(transSymm_type) , intent(in) :: operationA
8222 end subroutine
8223#endif
8224
8225#if RK1_ENABLED
8226 PURE module subroutine trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8228 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTSA_CGMB_ONOB_RK1
8229#endif
8230 use pm_kind, only: RKG => RK1
8231 real(RKG) , intent(in) , contiguous :: matA(:,:)
8232 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8233 real(RKG) , intent(in) , optional :: alpha
8234 type(upperDiag_type) , intent(in) :: classA
8235 type(transSymm_type) , intent(in) :: operationA
8236 end subroutine
8237#endif
8238
8239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8240
8241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8244
8245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8246
8247#if CK5_ENABLED
8248 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8250 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK5
8251#endif
8252 use pm_kind, only: CKG => CK5
8253 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8254 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8255 complex(CKG) , intent(in) , optional :: alpha
8256 type(upperDiag_type) , intent(in) :: classA
8257 type(transHerm_type) , intent(in) :: operationA
8258 end subroutine
8259#endif
8260
8261#if CK4_ENABLED
8262 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8264 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK4
8265#endif
8266 use pm_kind, only: CKG => CK4
8267 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8268 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8269 complex(CKG) , intent(in) , optional :: alpha
8270 type(upperDiag_type) , intent(in) :: classA
8271 type(transHerm_type) , intent(in) :: operationA
8272 end subroutine
8273#endif
8274
8275#if CK3_ENABLED
8276 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8278 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK3
8279#endif
8280 use pm_kind, only: CKG => CK3
8281 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8282 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8283 complex(CKG) , intent(in) , optional :: alpha
8284 type(upperDiag_type) , intent(in) :: classA
8285 type(transHerm_type) , intent(in) :: operationA
8286 end subroutine
8287#endif
8288
8289#if CK2_ENABLED
8290 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8292 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK2
8293#endif
8294 use pm_kind, only: CKG => CK2
8295 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8296 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8297 complex(CKG) , intent(in) , optional :: alpha
8298 type(upperDiag_type) , intent(in) :: classA
8299 type(transHerm_type) , intent(in) :: operationA
8300 end subroutine
8301#endif
8302
8303#if CK1_ENABLED
8304 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8306 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_CK1
8307#endif
8308 use pm_kind, only: CKG => CK1
8309 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8310 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8311 complex(CKG) , intent(in) , optional :: alpha
8312 type(upperDiag_type) , intent(in) :: classA
8313 type(transHerm_type) , intent(in) :: operationA
8314 end subroutine
8315#endif
8316
8317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8318
8319#if RK5_ENABLED
8320 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8322 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK5
8323#endif
8324 use pm_kind, only: RKG => RK5
8325 real(RKG) , intent(in) , contiguous :: matA(:,:)
8326 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8327 real(RKG) , intent(in) , optional :: alpha
8328 type(upperDiag_type) , intent(in) :: classA
8329 type(transHerm_type) , intent(in) :: operationA
8330 end subroutine
8331#endif
8332
8333#if RK4_ENABLED
8334 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8336 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK4
8337#endif
8338 use pm_kind, only: RKG => RK4
8339 real(RKG) , intent(in) , contiguous :: matA(:,:)
8340 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8341 real(RKG) , intent(in) , optional :: alpha
8342 type(upperDiag_type) , intent(in) :: classA
8343 type(transHerm_type) , intent(in) :: operationA
8344 end subroutine
8345#endif
8346
8347#if RK3_ENABLED
8348 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8350 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK3
8351#endif
8352 use pm_kind, only: RKG => RK3
8353 real(RKG) , intent(in) , contiguous :: matA(:,:)
8354 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8355 real(RKG) , intent(in) , optional :: alpha
8356 type(upperDiag_type) , intent(in) :: classA
8357 type(transHerm_type) , intent(in) :: operationA
8358 end subroutine
8359#endif
8360
8361#if RK2_ENABLED
8362 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8364 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK2
8365#endif
8366 use pm_kind, only: RKG => RK2
8367 real(RKG) , intent(in) , contiguous :: matA(:,:)
8368 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8369 real(RKG) , intent(in) , optional :: alpha
8370 type(upperDiag_type) , intent(in) :: classA
8371 type(transHerm_type) , intent(in) :: operationA
8372 end subroutine
8373#endif
8374
8375#if RK1_ENABLED
8376 PURE module subroutine trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8378 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUDA_OTHA_CGMB_ONOB_RK1
8379#endif
8380 use pm_kind, only: RKG => RK1
8381 real(RKG) , intent(in) , contiguous :: matA(:,:)
8382 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8383 real(RKG) , intent(in) , optional :: alpha
8384 type(upperDiag_type) , intent(in) :: classA
8385 type(transHerm_type) , intent(in) :: operationA
8386 end subroutine
8387#endif
8388
8389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8390
8391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8394
8395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8396 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8397 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8398
8399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8400
8401#if CK5_ENABLED
8402 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8404 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK5
8405#endif
8406 use pm_kind, only: CKG => CK5
8407 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8408 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8409 complex(CKG) , intent(in) , optional :: alpha
8410 type(lowerUnit_type) , intent(in) :: classA
8411 type(nothing_type) , intent(in) :: operationA
8412 end subroutine
8413#endif
8414
8415#if CK4_ENABLED
8416 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8418 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK4
8419#endif
8420 use pm_kind, only: CKG => CK4
8421 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8422 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8423 complex(CKG) , intent(in) , optional :: alpha
8424 type(lowerUnit_type) , intent(in) :: classA
8425 type(nothing_type) , intent(in) :: operationA
8426 end subroutine
8427#endif
8428
8429#if CK3_ENABLED
8430 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8432 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK3
8433#endif
8434 use pm_kind, only: CKG => CK3
8435 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8436 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8437 complex(CKG) , intent(in) , optional :: alpha
8438 type(lowerUnit_type) , intent(in) :: classA
8439 type(nothing_type) , intent(in) :: operationA
8440 end subroutine
8441#endif
8442
8443#if CK2_ENABLED
8444 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8446 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK2
8447#endif
8448 use pm_kind, only: CKG => CK2
8449 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8450 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8451 complex(CKG) , intent(in) , optional :: alpha
8452 type(lowerUnit_type) , intent(in) :: classA
8453 type(nothing_type) , intent(in) :: operationA
8454 end subroutine
8455#endif
8456
8457#if CK1_ENABLED
8458 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8460 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_CK1
8461#endif
8462 use pm_kind, only: CKG => CK1
8463 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8464 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8465 complex(CKG) , intent(in) , optional :: alpha
8466 type(lowerUnit_type) , intent(in) :: classA
8467 type(nothing_type) , intent(in) :: operationA
8468 end subroutine
8469#endif
8470
8471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8472
8473#if RK5_ENABLED
8474 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8476 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK5
8477#endif
8478 use pm_kind, only: RKG => RK5
8479 real(RKG) , intent(in) , contiguous :: matA(:,:)
8480 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8481 real(RKG) , intent(in) , optional :: alpha
8482 type(lowerUnit_type) , intent(in) :: classA
8483 type(nothing_type) , intent(in) :: operationA
8484 end subroutine
8485#endif
8486
8487#if RK4_ENABLED
8488 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8490 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK4
8491#endif
8492 use pm_kind, only: RKG => RK4
8493 real(RKG) , intent(in) , contiguous :: matA(:,:)
8494 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8495 real(RKG) , intent(in) , optional :: alpha
8496 type(lowerUnit_type) , intent(in) :: classA
8497 type(nothing_type) , intent(in) :: operationA
8498 end subroutine
8499#endif
8500
8501#if RK3_ENABLED
8502 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8504 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK3
8505#endif
8506 use pm_kind, only: RKG => RK3
8507 real(RKG) , intent(in) , contiguous :: matA(:,:)
8508 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8509 real(RKG) , intent(in) , optional :: alpha
8510 type(lowerUnit_type) , intent(in) :: classA
8511 type(nothing_type) , intent(in) :: operationA
8512 end subroutine
8513#endif
8514
8515#if RK2_ENABLED
8516 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8518 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK2
8519#endif
8520 use pm_kind, only: RKG => RK2
8521 real(RKG) , intent(in) , contiguous :: matA(:,:)
8522 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8523 real(RKG) , intent(in) , optional :: alpha
8524 type(lowerUnit_type) , intent(in) :: classA
8525 type(nothing_type) , intent(in) :: operationA
8526 end subroutine
8527#endif
8528
8529#if RK1_ENABLED
8530 PURE module subroutine trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8532 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_ONOA_CGMB_ONOB_RK1
8533#endif
8534 use pm_kind, only: RKG => RK1
8535 real(RKG) , intent(in) , contiguous :: matA(:,:)
8536 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8537 real(RKG) , intent(in) , optional :: alpha
8538 type(lowerUnit_type) , intent(in) :: classA
8539 type(nothing_type) , intent(in) :: operationA
8540 end subroutine
8541#endif
8542
8543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8544
8545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8548
8549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8550
8551#if CK5_ENABLED
8552 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8554 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK5
8555#endif
8556 use pm_kind, only: CKG => CK5
8557 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8558 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8559 complex(CKG) , intent(in) , optional :: alpha
8560 type(lowerUnit_type) , intent(in) :: classA
8561 type(transSymm_type) , intent(in) :: operationA
8562 end subroutine
8563#endif
8564
8565#if CK4_ENABLED
8566 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8568 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK4
8569#endif
8570 use pm_kind, only: CKG => CK4
8571 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8572 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8573 complex(CKG) , intent(in) , optional :: alpha
8574 type(lowerUnit_type) , intent(in) :: classA
8575 type(transSymm_type) , intent(in) :: operationA
8576 end subroutine
8577#endif
8578
8579#if CK3_ENABLED
8580 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8582 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK3
8583#endif
8584 use pm_kind, only: CKG => CK3
8585 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8586 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8587 complex(CKG) , intent(in) , optional :: alpha
8588 type(lowerUnit_type) , intent(in) :: classA
8589 type(transSymm_type) , intent(in) :: operationA
8590 end subroutine
8591#endif
8592
8593#if CK2_ENABLED
8594 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8596 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK2
8597#endif
8598 use pm_kind, only: CKG => CK2
8599 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8600 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8601 complex(CKG) , intent(in) , optional :: alpha
8602 type(lowerUnit_type) , intent(in) :: classA
8603 type(transSymm_type) , intent(in) :: operationA
8604 end subroutine
8605#endif
8606
8607#if CK1_ENABLED
8608 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8610 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_CK1
8611#endif
8612 use pm_kind, only: CKG => CK1
8613 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8614 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8615 complex(CKG) , intent(in) , optional :: alpha
8616 type(lowerUnit_type) , intent(in) :: classA
8617 type(transSymm_type) , intent(in) :: operationA
8618 end subroutine
8619#endif
8620
8621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8622
8623#if RK5_ENABLED
8624 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8626 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK5
8627#endif
8628 use pm_kind, only: RKG => RK5
8629 real(RKG) , intent(in) , contiguous :: matA(:,:)
8630 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8631 real(RKG) , intent(in) , optional :: alpha
8632 type(lowerUnit_type) , intent(in) :: classA
8633 type(transSymm_type) , intent(in) :: operationA
8634 end subroutine
8635#endif
8636
8637#if RK4_ENABLED
8638 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8640 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK4
8641#endif
8642 use pm_kind, only: RKG => RK4
8643 real(RKG) , intent(in) , contiguous :: matA(:,:)
8644 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8645 real(RKG) , intent(in) , optional :: alpha
8646 type(lowerUnit_type) , intent(in) :: classA
8647 type(transSymm_type) , intent(in) :: operationA
8648 end subroutine
8649#endif
8650
8651#if RK3_ENABLED
8652 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK3
8655#endif
8656 use pm_kind, only: RKG => RK3
8657 real(RKG) , intent(in) , contiguous :: matA(:,:)
8658 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8659 real(RKG) , intent(in) , optional :: alpha
8660 type(lowerUnit_type) , intent(in) :: classA
8661 type(transSymm_type) , intent(in) :: operationA
8662 end subroutine
8663#endif
8664
8665#if RK2_ENABLED
8666 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8668 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK2
8669#endif
8670 use pm_kind, only: RKG => RK2
8671 real(RKG) , intent(in) , contiguous :: matA(:,:)
8672 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8673 real(RKG) , intent(in) , optional :: alpha
8674 type(lowerUnit_type) , intent(in) :: classA
8675 type(transSymm_type) , intent(in) :: operationA
8676 end subroutine
8677#endif
8678
8679#if RK1_ENABLED
8680 PURE module subroutine trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8682 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTSA_CGMB_ONOB_RK1
8683#endif
8684 use pm_kind, only: RKG => RK1
8685 real(RKG) , intent(in) , contiguous :: matA(:,:)
8686 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8687 real(RKG) , intent(in) , optional :: alpha
8688 type(lowerUnit_type) , intent(in) :: classA
8689 type(transSymm_type) , intent(in) :: operationA
8690 end subroutine
8691#endif
8692
8693 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8694
8695 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8696 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8698
8699 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8700
8701#if CK5_ENABLED
8702 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8704 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK5
8705#endif
8706 use pm_kind, only: CKG => CK5
8707 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8708 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8709 complex(CKG) , intent(in) , optional :: alpha
8710 type(lowerUnit_type) , intent(in) :: classA
8711 type(transHerm_type) , intent(in) :: operationA
8712 end subroutine
8713#endif
8714
8715#if CK4_ENABLED
8716 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8718 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK4
8719#endif
8720 use pm_kind, only: CKG => CK4
8721 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8722 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8723 complex(CKG) , intent(in) , optional :: alpha
8724 type(lowerUnit_type) , intent(in) :: classA
8725 type(transHerm_type) , intent(in) :: operationA
8726 end subroutine
8727#endif
8728
8729#if CK3_ENABLED
8730 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8732 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK3
8733#endif
8734 use pm_kind, only: CKG => CK3
8735 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8736 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8737 complex(CKG) , intent(in) , optional :: alpha
8738 type(lowerUnit_type) , intent(in) :: classA
8739 type(transHerm_type) , intent(in) :: operationA
8740 end subroutine
8741#endif
8742
8743#if CK2_ENABLED
8744 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK2
8747#endif
8748 use pm_kind, only: CKG => CK2
8749 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8750 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8751 complex(CKG) , intent(in) , optional :: alpha
8752 type(lowerUnit_type) , intent(in) :: classA
8753 type(transHerm_type) , intent(in) :: operationA
8754 end subroutine
8755#endif
8756
8757#if CK1_ENABLED
8758 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8760 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_CK1
8761#endif
8762 use pm_kind, only: CKG => CK1
8763 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8764 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8765 complex(CKG) , intent(in) , optional :: alpha
8766 type(lowerUnit_type) , intent(in) :: classA
8767 type(transHerm_type) , intent(in) :: operationA
8768 end subroutine
8769#endif
8770
8771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8772
8773#if RK5_ENABLED
8774 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8776 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK5
8777#endif
8778 use pm_kind, only: RKG => RK5
8779 real(RKG) , intent(in) , contiguous :: matA(:,:)
8780 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8781 real(RKG) , intent(in) , optional :: alpha
8782 type(lowerUnit_type) , intent(in) :: classA
8783 type(transHerm_type) , intent(in) :: operationA
8784 end subroutine
8785#endif
8786
8787#if RK4_ENABLED
8788 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK4
8791#endif
8792 use pm_kind, only: RKG => RK4
8793 real(RKG) , intent(in) , contiguous :: matA(:,:)
8794 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8795 real(RKG) , intent(in) , optional :: alpha
8796 type(lowerUnit_type) , intent(in) :: classA
8797 type(transHerm_type) , intent(in) :: operationA
8798 end subroutine
8799#endif
8800
8801#if RK3_ENABLED
8802 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8804 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK3
8805#endif
8806 use pm_kind, only: RKG => RK3
8807 real(RKG) , intent(in) , contiguous :: matA(:,:)
8808 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8809 real(RKG) , intent(in) , optional :: alpha
8810 type(lowerUnit_type) , intent(in) :: classA
8811 type(transHerm_type) , intent(in) :: operationA
8812 end subroutine
8813#endif
8814
8815#if RK2_ENABLED
8816 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8818 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK2
8819#endif
8820 use pm_kind, only: RKG => RK2
8821 real(RKG) , intent(in) , contiguous :: matA(:,:)
8822 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8823 real(RKG) , intent(in) , optional :: alpha
8824 type(lowerUnit_type) , intent(in) :: classA
8825 type(transHerm_type) , intent(in) :: operationA
8826 end subroutine
8827#endif
8828
8829#if RK1_ENABLED
8830 PURE module subroutine trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8832 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CLUA_OTHA_CGMB_ONOB_RK1
8833#endif
8834 use pm_kind, only: RKG => RK1
8835 real(RKG) , intent(in) , contiguous :: matA(:,:)
8836 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8837 real(RKG) , intent(in) , optional :: alpha
8838 type(lowerUnit_type) , intent(in) :: classA
8839 type(transHerm_type) , intent(in) :: operationA
8840 end subroutine
8841#endif
8842
8843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8844
8845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8848
8849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8850 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8852
8853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8854
8855#if CK5_ENABLED
8856 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK5
8859#endif
8860 use pm_kind, only: CKG => CK5
8861 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8862 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8863 complex(CKG) , intent(in) , optional :: alpha
8864 type(upperUnit_type) , intent(in) :: classA
8865 type(nothing_type) , intent(in) :: operationA
8866 end subroutine
8867#endif
8868
8869#if CK4_ENABLED
8870 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
8871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8872 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK4
8873#endif
8874 use pm_kind, only: CKG => CK4
8875 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8876 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8877 complex(CKG) , intent(in) , optional :: alpha
8878 type(upperUnit_type) , intent(in) :: classA
8879 type(nothing_type) , intent(in) :: operationA
8880 end subroutine
8881#endif
8882
8883#if CK3_ENABLED
8884 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
8885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8886 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK3
8887#endif
8888 use pm_kind, only: CKG => CK3
8889 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8890 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8891 complex(CKG) , intent(in) , optional :: alpha
8892 type(upperUnit_type) , intent(in) :: classA
8893 type(nothing_type) , intent(in) :: operationA
8894 end subroutine
8895#endif
8896
8897#if CK2_ENABLED
8898 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
8899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8900 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK2
8901#endif
8902 use pm_kind, only: CKG => CK2
8903 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8904 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8905 complex(CKG) , intent(in) , optional :: alpha
8906 type(upperUnit_type) , intent(in) :: classA
8907 type(nothing_type) , intent(in) :: operationA
8908 end subroutine
8909#endif
8910
8911#if CK1_ENABLED
8912 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
8913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8914 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_CK1
8915#endif
8916 use pm_kind, only: CKG => CK1
8917 complex(CKG) , intent(in) , contiguous :: matA(:,:)
8918 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
8919 complex(CKG) , intent(in) , optional :: alpha
8920 type(upperUnit_type) , intent(in) :: classA
8921 type(nothing_type) , intent(in) :: operationA
8922 end subroutine
8923#endif
8924
8925 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8926
8927#if RK5_ENABLED
8928 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
8929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8930 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK5
8931#endif
8932 use pm_kind, only: RKG => RK5
8933 real(RKG) , intent(in) , contiguous :: matA(:,:)
8934 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8935 real(RKG) , intent(in) , optional :: alpha
8936 type(upperUnit_type) , intent(in) :: classA
8937 type(nothing_type) , intent(in) :: operationA
8938 end subroutine
8939#endif
8940
8941#if RK4_ENABLED
8942 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
8943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8944 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK4
8945#endif
8946 use pm_kind, only: RKG => RK4
8947 real(RKG) , intent(in) , contiguous :: matA(:,:)
8948 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8949 real(RKG) , intent(in) , optional :: alpha
8950 type(upperUnit_type) , intent(in) :: classA
8951 type(nothing_type) , intent(in) :: operationA
8952 end subroutine
8953#endif
8954
8955#if RK3_ENABLED
8956 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
8957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8958 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK3
8959#endif
8960 use pm_kind, only: RKG => RK3
8961 real(RKG) , intent(in) , contiguous :: matA(:,:)
8962 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8963 real(RKG) , intent(in) , optional :: alpha
8964 type(upperUnit_type) , intent(in) :: classA
8965 type(nothing_type) , intent(in) :: operationA
8966 end subroutine
8967#endif
8968
8969#if RK2_ENABLED
8970 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
8971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8972 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK2
8973#endif
8974 use pm_kind, only: RKG => RK2
8975 real(RKG) , intent(in) , contiguous :: matA(:,:)
8976 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8977 real(RKG) , intent(in) , optional :: alpha
8978 type(upperUnit_type) , intent(in) :: classA
8979 type(nothing_type) , intent(in) :: operationA
8980 end subroutine
8981#endif
8982
8983#if RK1_ENABLED
8984 PURE module subroutine trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
8985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8986 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_ONOA_CGMB_ONOB_RK1
8987#endif
8988 use pm_kind, only: RKG => RK1
8989 real(RKG) , intent(in) , contiguous :: matA(:,:)
8990 real(RKG) , intent(inout) , contiguous :: matB(:,:)
8991 real(RKG) , intent(in) , optional :: alpha
8992 type(upperUnit_type) , intent(in) :: classA
8993 type(nothing_type) , intent(in) :: operationA
8994 end subroutine
8995#endif
8996
8997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8998
8999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9002
9003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9004
9005#if CK5_ENABLED
9006 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
9007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9008 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK5
9009#endif
9010 use pm_kind, only: CKG => CK5
9011 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9012 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9013 complex(CKG) , intent(in) , optional :: alpha
9014 type(upperUnit_type) , intent(in) :: classA
9015 type(transSymm_type) , intent(in) :: operationA
9016 end subroutine
9017#endif
9018
9019#if CK4_ENABLED
9020 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK4
9023#endif
9024 use pm_kind, only: CKG => CK4
9025 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9026 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9027 complex(CKG) , intent(in) , optional :: alpha
9028 type(upperUnit_type) , intent(in) :: classA
9029 type(transSymm_type) , intent(in) :: operationA
9030 end subroutine
9031#endif
9032
9033#if CK3_ENABLED
9034 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
9035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9036 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK3
9037#endif
9038 use pm_kind, only: CKG => CK3
9039 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9040 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9041 complex(CKG) , intent(in) , optional :: alpha
9042 type(upperUnit_type) , intent(in) :: classA
9043 type(transSymm_type) , intent(in) :: operationA
9044 end subroutine
9045#endif
9046
9047#if CK2_ENABLED
9048 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
9049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9050 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK2
9051#endif
9052 use pm_kind, only: CKG => CK2
9053 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9054 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9055 complex(CKG) , intent(in) , optional :: alpha
9056 type(upperUnit_type) , intent(in) :: classA
9057 type(transSymm_type) , intent(in) :: operationA
9058 end subroutine
9059#endif
9060
9061#if CK1_ENABLED
9062 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
9063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9064 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_CK1
9065#endif
9066 use pm_kind, only: CKG => CK1
9067 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9068 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9069 complex(CKG) , intent(in) , optional :: alpha
9070 type(upperUnit_type) , intent(in) :: classA
9071 type(transSymm_type) , intent(in) :: operationA
9072 end subroutine
9073#endif
9074
9075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9076
9077#if RK5_ENABLED
9078 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
9079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9080 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK5
9081#endif
9082 use pm_kind, only: RKG => RK5
9083 real(RKG) , intent(in) , contiguous :: matA(:,:)
9084 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9085 real(RKG) , intent(in) , optional :: alpha
9086 type(upperUnit_type) , intent(in) :: classA
9087 type(transSymm_type) , intent(in) :: operationA
9088 end subroutine
9089#endif
9090
9091#if RK4_ENABLED
9092 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
9093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9094 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK4
9095#endif
9096 use pm_kind, only: RKG => RK4
9097 real(RKG) , intent(in) , contiguous :: matA(:,:)
9098 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9099 real(RKG) , intent(in) , optional :: alpha
9100 type(upperUnit_type) , intent(in) :: classA
9101 type(transSymm_type) , intent(in) :: operationA
9102 end subroutine
9103#endif
9104
9105#if RK3_ENABLED
9106 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
9107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9108 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK3
9109#endif
9110 use pm_kind, only: RKG => RK3
9111 real(RKG) , intent(in) , contiguous :: matA(:,:)
9112 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9113 real(RKG) , intent(in) , optional :: alpha
9114 type(upperUnit_type) , intent(in) :: classA
9115 type(transSymm_type) , intent(in) :: operationA
9116 end subroutine
9117#endif
9118
9119#if RK2_ENABLED
9120 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
9121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9122 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK2
9123#endif
9124 use pm_kind, only: RKG => RK2
9125 real(RKG) , intent(in) , contiguous :: matA(:,:)
9126 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9127 real(RKG) , intent(in) , optional :: alpha
9128 type(upperUnit_type) , intent(in) :: classA
9129 type(transSymm_type) , intent(in) :: operationA
9130 end subroutine
9131#endif
9132
9133#if RK1_ENABLED
9134 PURE module subroutine trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
9135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9136 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTSA_CGMB_ONOB_RK1
9137#endif
9138 use pm_kind, only: RKG => RK1
9139 real(RKG) , intent(in) , contiguous :: matA(:,:)
9140 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9141 real(RKG) , intent(in) , optional :: alpha
9142 type(upperUnit_type) , intent(in) :: classA
9143 type(transSymm_type) , intent(in) :: operationA
9144 end subroutine
9145#endif
9146
9147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9148
9149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9152
9153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9154
9155#if CK5_ENABLED
9156 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
9157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9158 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK5
9159#endif
9160 use pm_kind, only: CKG => CK5
9161 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9162 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9163 complex(CKG) , intent(in) , optional :: alpha
9164 type(upperUnit_type) , intent(in) :: classA
9165 type(transHerm_type) , intent(in) :: operationA
9166 end subroutine
9167#endif
9168
9169#if CK4_ENABLED
9170 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
9171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9172 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK4
9173#endif
9174 use pm_kind, only: CKG => CK4
9175 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9176 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9177 complex(CKG) , intent(in) , optional :: alpha
9178 type(upperUnit_type) , intent(in) :: classA
9179 type(transHerm_type) , intent(in) :: operationA
9180 end subroutine
9181#endif
9182
9183#if CK3_ENABLED
9184 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
9185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9186 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK3
9187#endif
9188 use pm_kind, only: CKG => CK3
9189 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9190 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9191 complex(CKG) , intent(in) , optional :: alpha
9192 type(upperUnit_type) , intent(in) :: classA
9193 type(transHerm_type) , intent(in) :: operationA
9194 end subroutine
9195#endif
9196
9197#if CK2_ENABLED
9198 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
9199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9200 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK2
9201#endif
9202 use pm_kind, only: CKG => CK2
9203 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9204 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9205 complex(CKG) , intent(in) , optional :: alpha
9206 type(upperUnit_type) , intent(in) :: classA
9207 type(transHerm_type) , intent(in) :: operationA
9208 end subroutine
9209#endif
9210
9211#if CK1_ENABLED
9212 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
9213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9214 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_CK1
9215#endif
9216 use pm_kind, only: CKG => CK1
9217 complex(CKG) , intent(in) , contiguous :: matA(:,:)
9218 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
9219 complex(CKG) , intent(in) , optional :: alpha
9220 type(upperUnit_type) , intent(in) :: classA
9221 type(transHerm_type) , intent(in) :: operationA
9222 end subroutine
9223#endif
9224
9225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9226
9227#if RK5_ENABLED
9228 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
9229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9230 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK5
9231#endif
9232 use pm_kind, only: RKG => RK5
9233 real(RKG) , intent(in) , contiguous :: matA(:,:)
9234 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9235 real(RKG) , intent(in) , optional :: alpha
9236 type(upperUnit_type) , intent(in) :: classA
9237 type(transHerm_type) , intent(in) :: operationA
9238 end subroutine
9239#endif
9240
9241#if RK4_ENABLED
9242 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
9243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9244 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK4
9245#endif
9246 use pm_kind, only: RKG => RK4
9247 real(RKG) , intent(in) , contiguous :: matA(:,:)
9248 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9249 real(RKG) , intent(in) , optional :: alpha
9250 type(upperUnit_type) , intent(in) :: classA
9251 type(transHerm_type) , intent(in) :: operationA
9252 end subroutine
9253#endif
9254
9255#if RK3_ENABLED
9256 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
9257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9258 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK3
9259#endif
9260 use pm_kind, only: RKG => RK3
9261 real(RKG) , intent(in) , contiguous :: matA(:,:)
9262 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9263 real(RKG) , intent(in) , optional :: alpha
9264 type(upperUnit_type) , intent(in) :: classA
9265 type(transHerm_type) , intent(in) :: operationA
9266 end subroutine
9267#endif
9268
9269#if RK2_ENABLED
9270 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
9271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9272 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK2
9273#endif
9274 use pm_kind, only: RKG => RK2
9275 real(RKG) , intent(in) , contiguous :: matA(:,:)
9276 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9277 real(RKG) , intent(in) , optional :: alpha
9278 type(upperUnit_type) , intent(in) :: classA
9279 type(transHerm_type) , intent(in) :: operationA
9280 end subroutine
9281#endif
9282
9283#if RK1_ENABLED
9284 PURE module subroutine trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
9285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9286 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CUUA_OTHA_CGMB_ONOB_RK1
9287#endif
9288 use pm_kind, only: RKG => RK1
9289 real(RKG) , intent(in) , contiguous :: matA(:,:)
9290 real(RKG) , intent(inout) , contiguous :: matB(:,:)
9291 real(RKG) , intent(in) , optional :: alpha
9292 type(upperUnit_type) , intent(in) :: classA
9293 type(transHerm_type) , intent(in) :: operationA
9294 end subroutine
9295#endif
9296
9297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9298
9299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9302
9303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9305 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9306
9307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9310
9311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9312
9313#if CK5_ENABLED
9314 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK5(matA, matB, classB, operationB, alpha)
9315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9316 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK5
9317#endif
9318 use pm_kind, only: CKG => CK5
9319 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9320 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9321 complex(CKG) , intent(in) , optional :: alpha
9322 type(lowerDiag_type) , intent(in) :: classB
9323 type(nothing_type) , intent(in) :: operationB
9324 end subroutine
9325#endif
9326
9327#if CK4_ENABLED
9328 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK4(matA, matB, classB, operationB, alpha)
9329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9330 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK4
9331#endif
9332 use pm_kind, only: CKG => CK4
9333 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9334 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9335 complex(CKG) , intent(in) , optional :: alpha
9336 type(lowerDiag_type) , intent(in) :: classB
9337 type(nothing_type) , intent(in) :: operationB
9338 end subroutine
9339#endif
9340
9341#if CK3_ENABLED
9342 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK3(matA, matB, classB, operationB, alpha)
9343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9344 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK3
9345#endif
9346 use pm_kind, only: CKG => CK3
9347 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9348 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9349 complex(CKG) , intent(in) , optional :: alpha
9350 type(lowerDiag_type) , intent(in) :: classB
9351 type(nothing_type) , intent(in) :: operationB
9352 end subroutine
9353#endif
9354
9355#if CK2_ENABLED
9356 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK2(matA, matB, classB, operationB, alpha)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK2
9359#endif
9360 use pm_kind, only: CKG => CK2
9361 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9362 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9363 complex(CKG) , intent(in) , optional :: alpha
9364 type(lowerDiag_type) , intent(in) :: classB
9365 type(nothing_type) , intent(in) :: operationB
9366 end subroutine
9367#endif
9368
9369#if CK1_ENABLED
9370 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK1(matA, matB, classB, operationB, alpha)
9371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9372 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_CK1
9373#endif
9374 use pm_kind, only: CKG => CK1
9375 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9376 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9377 complex(CKG) , intent(in) , optional :: alpha
9378 type(lowerDiag_type) , intent(in) :: classB
9379 type(nothing_type) , intent(in) :: operationB
9380 end subroutine
9381#endif
9382
9383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9384
9385#if RK5_ENABLED
9386 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK5(matA, matB, classB, operationB, alpha)
9387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9388 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK5
9389#endif
9390 use pm_kind, only: RKG => RK5
9391 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9392 real(RKG) , intent(in) , contiguous :: matB(:,:)
9393 real(RKG) , intent(in) , optional :: alpha
9394 type(lowerDiag_type) , intent(in) :: classB
9395 type(nothing_type) , intent(in) :: operationB
9396 end subroutine
9397#endif
9398
9399#if RK4_ENABLED
9400 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK4(matA, matB, classB, operationB, alpha)
9401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9402 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK4
9403#endif
9404 use pm_kind, only: RKG => RK4
9405 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9406 real(RKG) , intent(in) , contiguous :: matB(:,:)
9407 real(RKG) , intent(in) , optional :: alpha
9408 type(lowerDiag_type) , intent(in) :: classB
9409 type(nothing_type) , intent(in) :: operationB
9410 end subroutine
9411#endif
9412
9413#if RK3_ENABLED
9414 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK3(matA, matB, classB, operationB, alpha)
9415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9416 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK3
9417#endif
9418 use pm_kind, only: RKG => RK3
9419 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9420 real(RKG) , intent(in) , contiguous :: matB(:,:)
9421 real(RKG) , intent(in) , optional :: alpha
9422 type(lowerDiag_type) , intent(in) :: classB
9423 type(nothing_type) , intent(in) :: operationB
9424 end subroutine
9425#endif
9426
9427#if RK2_ENABLED
9428 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK2(matA, matB, classB, operationB, alpha)
9429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9430 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK2
9431#endif
9432 use pm_kind, only: RKG => RK2
9433 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9434 real(RKG) , intent(in) , contiguous :: matB(:,:)
9435 real(RKG) , intent(in) , optional :: alpha
9436 type(lowerDiag_type) , intent(in) :: classB
9437 type(nothing_type) , intent(in) :: operationB
9438 end subroutine
9439#endif
9440
9441#if RK1_ENABLED
9442 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK1(matA, matB, classB, operationB, alpha)
9443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9444 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_ONOB_RK1
9445#endif
9446 use pm_kind, only: RKG => RK1
9447 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9448 real(RKG) , intent(in) , contiguous :: matB(:,:)
9449 real(RKG) , intent(in) , optional :: alpha
9450 type(lowerDiag_type) , intent(in) :: classB
9451 type(nothing_type) , intent(in) :: operationB
9452 end subroutine
9453#endif
9454
9455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9456
9457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9460
9461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9462
9463#if CK5_ENABLED
9464 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK5(matA, matB, classB, operationB, alpha)
9465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9466 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK5
9467#endif
9468 use pm_kind, only: CKG => CK5
9469 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9470 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9471 complex(CKG) , intent(in) , optional :: alpha
9472 type(lowerDiag_type) , intent(in) :: classB
9473 type(transSymm_type) , intent(in) :: operationB
9474 end subroutine
9475#endif
9476
9477#if CK4_ENABLED
9478 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK4(matA, matB, classB, operationB, alpha)
9479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9480 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK4
9481#endif
9482 use pm_kind, only: CKG => CK4
9483 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9484 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9485 complex(CKG) , intent(in) , optional :: alpha
9486 type(lowerDiag_type) , intent(in) :: classB
9487 type(transSymm_type) , intent(in) :: operationB
9488 end subroutine
9489#endif
9490
9491#if CK3_ENABLED
9492 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK3(matA, matB, classB, operationB, alpha)
9493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9494 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK3
9495#endif
9496 use pm_kind, only: CKG => CK3
9497 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9498 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9499 complex(CKG) , intent(in) , optional :: alpha
9500 type(lowerDiag_type) , intent(in) :: classB
9501 type(transSymm_type) , intent(in) :: operationB
9502 end subroutine
9503#endif
9504
9505#if CK2_ENABLED
9506 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK2(matA, matB, classB, operationB, alpha)
9507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9508 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK2
9509#endif
9510 use pm_kind, only: CKG => CK2
9511 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9512 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9513 complex(CKG) , intent(in) , optional :: alpha
9514 type(lowerDiag_type) , intent(in) :: classB
9515 type(transSymm_type) , intent(in) :: operationB
9516 end subroutine
9517#endif
9518
9519#if CK1_ENABLED
9520 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK1(matA, matB, classB, operationB, alpha)
9521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9522 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_CK1
9523#endif
9524 use pm_kind, only: CKG => CK1
9525 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9526 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9527 complex(CKG) , intent(in) , optional :: alpha
9528 type(lowerDiag_type) , intent(in) :: classB
9529 type(transSymm_type) , intent(in) :: operationB
9530 end subroutine
9531#endif
9532
9533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9534
9535#if RK5_ENABLED
9536 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK5(matA, matB, classB, operationB, alpha)
9537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9538 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK5
9539#endif
9540 use pm_kind, only: RKG => RK5
9541 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9542 real(RKG) , intent(in) , contiguous :: matB(:,:)
9543 real(RKG) , intent(in) , optional :: alpha
9544 type(lowerDiag_type) , intent(in) :: classB
9545 type(transSymm_type) , intent(in) :: operationB
9546 end subroutine
9547#endif
9548
9549#if RK4_ENABLED
9550 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK4(matA, matB, classB, operationB, alpha)
9551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9552 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK4
9553#endif
9554 use pm_kind, only: RKG => RK4
9555 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9556 real(RKG) , intent(in) , contiguous :: matB(:,:)
9557 real(RKG) , intent(in) , optional :: alpha
9558 type(lowerDiag_type) , intent(in) :: classB
9559 type(transSymm_type) , intent(in) :: operationB
9560 end subroutine
9561#endif
9562
9563#if RK3_ENABLED
9564 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK3(matA, matB, classB, operationB, alpha)
9565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9566 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK3
9567#endif
9568 use pm_kind, only: RKG => RK3
9569 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9570 real(RKG) , intent(in) , contiguous :: matB(:,:)
9571 real(RKG) , intent(in) , optional :: alpha
9572 type(lowerDiag_type) , intent(in) :: classB
9573 type(transSymm_type) , intent(in) :: operationB
9574 end subroutine
9575#endif
9576
9577#if RK2_ENABLED
9578 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK2(matA, matB, classB, operationB, alpha)
9579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9580 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK2
9581#endif
9582 use pm_kind, only: RKG => RK2
9583 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9584 real(RKG) , intent(in) , contiguous :: matB(:,:)
9585 real(RKG) , intent(in) , optional :: alpha
9586 type(lowerDiag_type) , intent(in) :: classB
9587 type(transSymm_type) , intent(in) :: operationB
9588 end subroutine
9589#endif
9590
9591#if RK1_ENABLED
9592 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK1(matA, matB, classB, operationB, alpha)
9593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9594 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTSB_RK1
9595#endif
9596 use pm_kind, only: RKG => RK1
9597 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9598 real(RKG) , intent(in) , contiguous :: matB(:,:)
9599 real(RKG) , intent(in) , optional :: alpha
9600 type(lowerDiag_type) , intent(in) :: classB
9601 type(transSymm_type) , intent(in) :: operationB
9602 end subroutine
9603#endif
9604
9605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9606
9607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9610
9611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9612
9613#if CK5_ENABLED
9614 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK5(matA, matB, classB, operationB, alpha)
9615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9616 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK5
9617#endif
9618 use pm_kind, only: CKG => CK5
9619 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9620 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9621 complex(CKG) , intent(in) , optional :: alpha
9622 type(lowerDiag_type) , intent(in) :: classB
9623 type(transHerm_type) , intent(in) :: operationB
9624 end subroutine
9625#endif
9626
9627#if CK4_ENABLED
9628 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK4(matA, matB, classB, operationB, alpha)
9629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9630 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK4
9631#endif
9632 use pm_kind, only: CKG => CK4
9633 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9634 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9635 complex(CKG) , intent(in) , optional :: alpha
9636 type(lowerDiag_type) , intent(in) :: classB
9637 type(transHerm_type) , intent(in) :: operationB
9638 end subroutine
9639#endif
9640
9641#if CK3_ENABLED
9642 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK3(matA, matB, classB, operationB, alpha)
9643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9644 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK3
9645#endif
9646 use pm_kind, only: CKG => CK3
9647 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9648 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9649 complex(CKG) , intent(in) , optional :: alpha
9650 type(lowerDiag_type) , intent(in) :: classB
9651 type(transHerm_type) , intent(in) :: operationB
9652 end subroutine
9653#endif
9654
9655#if CK2_ENABLED
9656 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK2(matA, matB, classB, operationB, alpha)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK2
9659#endif
9660 use pm_kind, only: CKG => CK2
9661 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9662 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9663 complex(CKG) , intent(in) , optional :: alpha
9664 type(lowerDiag_type) , intent(in) :: classB
9665 type(transHerm_type) , intent(in) :: operationB
9666 end subroutine
9667#endif
9668
9669#if CK1_ENABLED
9670 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK1(matA, matB, classB, operationB, alpha)
9671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9672 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_CK1
9673#endif
9674 use pm_kind, only: CKG => CK1
9675 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9676 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9677 complex(CKG) , intent(in) , optional :: alpha
9678 type(lowerDiag_type) , intent(in) :: classB
9679 type(transHerm_type) , intent(in) :: operationB
9680 end subroutine
9681#endif
9682
9683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9684
9685#if RK5_ENABLED
9686 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK5(matA, matB, classB, operationB, alpha)
9687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9688 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK5
9689#endif
9690 use pm_kind, only: RKG => RK5
9691 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9692 real(RKG) , intent(in) , contiguous :: matB(:,:)
9693 real(RKG) , intent(in) , optional :: alpha
9694 type(lowerDiag_type) , intent(in) :: classB
9695 type(transHerm_type) , intent(in) :: operationB
9696 end subroutine
9697#endif
9698
9699#if RK4_ENABLED
9700 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK4(matA, matB, classB, operationB, alpha)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK4
9703#endif
9704 use pm_kind, only: RKG => RK4
9705 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9706 real(RKG) , intent(in) , contiguous :: matB(:,:)
9707 real(RKG) , intent(in) , optional :: alpha
9708 type(lowerDiag_type) , intent(in) :: classB
9709 type(transHerm_type) , intent(in) :: operationB
9710 end subroutine
9711#endif
9712
9713#if RK3_ENABLED
9714 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK3(matA, matB, classB, operationB, alpha)
9715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9716 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK3
9717#endif
9718 use pm_kind, only: RKG => RK3
9719 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9720 real(RKG) , intent(in) , contiguous :: matB(:,:)
9721 real(RKG) , intent(in) , optional :: alpha
9722 type(lowerDiag_type) , intent(in) :: classB
9723 type(transHerm_type) , intent(in) :: operationB
9724 end subroutine
9725#endif
9726
9727#if RK2_ENABLED
9728 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK2(matA, matB, classB, operationB, alpha)
9729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9730 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK2
9731#endif
9732 use pm_kind, only: RKG => RK2
9733 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9734 real(RKG) , intent(in) , contiguous :: matB(:,:)
9735 real(RKG) , intent(in) , optional :: alpha
9736 type(lowerDiag_type) , intent(in) :: classB
9737 type(transHerm_type) , intent(in) :: operationB
9738 end subroutine
9739#endif
9740
9741#if RK1_ENABLED
9742 PURE module subroutine trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK1(matA, matB, classB, operationB, alpha)
9743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9744 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLDB_OTHB_RK1
9745#endif
9746 use pm_kind, only: RKG => RK1
9747 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9748 real(RKG) , intent(in) , contiguous :: matB(:,:)
9749 real(RKG) , intent(in) , optional :: alpha
9750 type(lowerDiag_type) , intent(in) :: classB
9751 type(transHerm_type) , intent(in) :: operationB
9752 end subroutine
9753#endif
9754
9755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9756
9757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9758 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9760
9761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9764
9765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9766
9767#if CK5_ENABLED
9768 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK5(matA, matB, classB, operationB, alpha)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK5
9771#endif
9772 use pm_kind, only: CKG => CK5
9773 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9774 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9775 complex(CKG) , intent(in) , optional :: alpha
9776 type(upperDiag_type) , intent(in) :: classB
9777 type(nothing_type) , intent(in) :: operationB
9778 end subroutine
9779#endif
9780
9781#if CK4_ENABLED
9782 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK4(matA, matB, classB, operationB, alpha)
9783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9784 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK4
9785#endif
9786 use pm_kind, only: CKG => CK4
9787 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9788 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9789 complex(CKG) , intent(in) , optional :: alpha
9790 type(upperDiag_type) , intent(in) :: classB
9791 type(nothing_type) , intent(in) :: operationB
9792 end subroutine
9793#endif
9794
9795#if CK3_ENABLED
9796 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK3(matA, matB, classB, operationB, alpha)
9797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9798 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK3
9799#endif
9800 use pm_kind, only: CKG => CK3
9801 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9802 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9803 complex(CKG) , intent(in) , optional :: alpha
9804 type(upperDiag_type) , intent(in) :: classB
9805 type(nothing_type) , intent(in) :: operationB
9806 end subroutine
9807#endif
9808
9809#if CK2_ENABLED
9810 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK2(matA, matB, classB, operationB, alpha)
9811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9812 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK2
9813#endif
9814 use pm_kind, only: CKG => CK2
9815 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9816 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9817 complex(CKG) , intent(in) , optional :: alpha
9818 type(upperDiag_type) , intent(in) :: classB
9819 type(nothing_type) , intent(in) :: operationB
9820 end subroutine
9821#endif
9822
9823#if CK1_ENABLED
9824 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK1(matA, matB, classB, operationB, alpha)
9825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9826 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_CK1
9827#endif
9828 use pm_kind, only: CKG => CK1
9829 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9830 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9831 complex(CKG) , intent(in) , optional :: alpha
9832 type(upperDiag_type) , intent(in) :: classB
9833 type(nothing_type) , intent(in) :: operationB
9834 end subroutine
9835#endif
9836
9837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9838
9839#if RK5_ENABLED
9840 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK5(matA, matB, classB, operationB, alpha)
9841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9842 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK5
9843#endif
9844 use pm_kind, only: RKG => RK5
9845 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9846 real(RKG) , intent(in) , contiguous :: matB(:,:)
9847 real(RKG) , intent(in) , optional :: alpha
9848 type(upperDiag_type) , intent(in) :: classB
9849 type(nothing_type) , intent(in) :: operationB
9850 end subroutine
9851#endif
9852
9853#if RK4_ENABLED
9854 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK4(matA, matB, classB, operationB, alpha)
9855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9856 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK4
9857#endif
9858 use pm_kind, only: RKG => RK4
9859 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9860 real(RKG) , intent(in) , contiguous :: matB(:,:)
9861 real(RKG) , intent(in) , optional :: alpha
9862 type(upperDiag_type) , intent(in) :: classB
9863 type(nothing_type) , intent(in) :: operationB
9864 end subroutine
9865#endif
9866
9867#if RK3_ENABLED
9868 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK3(matA, matB, classB, operationB, alpha)
9869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9870 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK3
9871#endif
9872 use pm_kind, only: RKG => RK3
9873 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9874 real(RKG) , intent(in) , contiguous :: matB(:,:)
9875 real(RKG) , intent(in) , optional :: alpha
9876 type(upperDiag_type) , intent(in) :: classB
9877 type(nothing_type) , intent(in) :: operationB
9878 end subroutine
9879#endif
9880
9881#if RK2_ENABLED
9882 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK2(matA, matB, classB, operationB, alpha)
9883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9884 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK2
9885#endif
9886 use pm_kind, only: RKG => RK2
9887 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9888 real(RKG) , intent(in) , contiguous :: matB(:,:)
9889 real(RKG) , intent(in) , optional :: alpha
9890 type(upperDiag_type) , intent(in) :: classB
9891 type(nothing_type) , intent(in) :: operationB
9892 end subroutine
9893#endif
9894
9895#if RK1_ENABLED
9896 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK1(matA, matB, classB, operationB, alpha)
9897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9898 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_ONOB_RK1
9899#endif
9900 use pm_kind, only: RKG => RK1
9901 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9902 real(RKG) , intent(in) , contiguous :: matB(:,:)
9903 real(RKG) , intent(in) , optional :: alpha
9904 type(upperDiag_type) , intent(in) :: classB
9905 type(nothing_type) , intent(in) :: operationB
9906 end subroutine
9907#endif
9908
9909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9910
9911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9913 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9914
9915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9916
9917#if CK5_ENABLED
9918 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK5(matA, matB, classB, operationB, alpha)
9919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9920 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK5
9921#endif
9922 use pm_kind, only: CKG => CK5
9923 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9924 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9925 complex(CKG) , intent(in) , optional :: alpha
9926 type(upperDiag_type) , intent(in) :: classB
9927 type(transSymm_type) , intent(in) :: operationB
9928 end subroutine
9929#endif
9930
9931#if CK4_ENABLED
9932 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK4(matA, matB, classB, operationB, alpha)
9933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9934 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK4
9935#endif
9936 use pm_kind, only: CKG => CK4
9937 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9938 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9939 complex(CKG) , intent(in) , optional :: alpha
9940 type(upperDiag_type) , intent(in) :: classB
9941 type(transSymm_type) , intent(in) :: operationB
9942 end subroutine
9943#endif
9944
9945#if CK3_ENABLED
9946 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK3(matA, matB, classB, operationB, alpha)
9947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9948 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK3
9949#endif
9950 use pm_kind, only: CKG => CK3
9951 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9952 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9953 complex(CKG) , intent(in) , optional :: alpha
9954 type(upperDiag_type) , intent(in) :: classB
9955 type(transSymm_type) , intent(in) :: operationB
9956 end subroutine
9957#endif
9958
9959#if CK2_ENABLED
9960 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK2(matA, matB, classB, operationB, alpha)
9961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9962 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK2
9963#endif
9964 use pm_kind, only: CKG => CK2
9965 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9966 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9967 complex(CKG) , intent(in) , optional :: alpha
9968 type(upperDiag_type) , intent(in) :: classB
9969 type(transSymm_type) , intent(in) :: operationB
9970 end subroutine
9971#endif
9972
9973#if CK1_ENABLED
9974 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK1(matA, matB, classB, operationB, alpha)
9975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9976 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_CK1
9977#endif
9978 use pm_kind, only: CKG => CK1
9979 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
9980 complex(CKG) , intent(in) , contiguous :: matB(:,:)
9981 complex(CKG) , intent(in) , optional :: alpha
9982 type(upperDiag_type) , intent(in) :: classB
9983 type(transSymm_type) , intent(in) :: operationB
9984 end subroutine
9985#endif
9986
9987 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9988
9989#if RK5_ENABLED
9990 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK5(matA, matB, classB, operationB, alpha)
9991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9992 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK5
9993#endif
9994 use pm_kind, only: RKG => RK5
9995 real(RKG) , intent(inout) , contiguous :: matA(:,:)
9996 real(RKG) , intent(in) , contiguous :: matB(:,:)
9997 real(RKG) , intent(in) , optional :: alpha
9998 type(upperDiag_type) , intent(in) :: classB
9999 type(transSymm_type) , intent(in) :: operationB
10000 end subroutine
10001#endif
10002
10003#if RK4_ENABLED
10004 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK4(matA, matB, classB, operationB, alpha)
10005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10006 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK4
10007#endif
10008 use pm_kind, only: RKG => RK4
10009 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10010 real(RKG) , intent(in) , contiguous :: matB(:,:)
10011 real(RKG) , intent(in) , optional :: alpha
10012 type(upperDiag_type) , intent(in) :: classB
10013 type(transSymm_type) , intent(in) :: operationB
10014 end subroutine
10015#endif
10016
10017#if RK3_ENABLED
10018 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK3(matA, matB, classB, operationB, alpha)
10019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10020 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK3
10021#endif
10022 use pm_kind, only: RKG => RK3
10023 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10024 real(RKG) , intent(in) , contiguous :: matB(:,:)
10025 real(RKG) , intent(in) , optional :: alpha
10026 type(upperDiag_type) , intent(in) :: classB
10027 type(transSymm_type) , intent(in) :: operationB
10028 end subroutine
10029#endif
10030
10031#if RK2_ENABLED
10032 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK2(matA, matB, classB, operationB, alpha)
10033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10034 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK2
10035#endif
10036 use pm_kind, only: RKG => RK2
10037 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10038 real(RKG) , intent(in) , contiguous :: matB(:,:)
10039 real(RKG) , intent(in) , optional :: alpha
10040 type(upperDiag_type) , intent(in) :: classB
10041 type(transSymm_type) , intent(in) :: operationB
10042 end subroutine
10043#endif
10044
10045#if RK1_ENABLED
10046 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK1(matA, matB, classB, operationB, alpha)
10047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10048 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTSB_RK1
10049#endif
10050 use pm_kind, only: RKG => RK1
10051 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10052 real(RKG) , intent(in) , contiguous :: matB(:,:)
10053 real(RKG) , intent(in) , optional :: alpha
10054 type(upperDiag_type) , intent(in) :: classB
10055 type(transSymm_type) , intent(in) :: operationB
10056 end subroutine
10057#endif
10058
10059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10060
10061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10064
10065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10066
10067#if CK5_ENABLED
10068 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK5(matA, matB, classB, operationB, alpha)
10069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10070 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK5
10071#endif
10072 use pm_kind, only: CKG => CK5
10073 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10074 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10075 complex(CKG) , intent(in) , optional :: alpha
10076 type(upperDiag_type) , intent(in) :: classB
10077 type(transHerm_type) , intent(in) :: operationB
10078 end subroutine
10079#endif
10080
10081#if CK4_ENABLED
10082 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK4(matA, matB, classB, operationB, alpha)
10083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10084 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK4
10085#endif
10086 use pm_kind, only: CKG => CK4
10087 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10088 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10089 complex(CKG) , intent(in) , optional :: alpha
10090 type(upperDiag_type) , intent(in) :: classB
10091 type(transHerm_type) , intent(in) :: operationB
10092 end subroutine
10093#endif
10094
10095#if CK3_ENABLED
10096 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK3(matA, matB, classB, operationB, alpha)
10097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10098 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK3
10099#endif
10100 use pm_kind, only: CKG => CK3
10101 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10102 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10103 complex(CKG) , intent(in) , optional :: alpha
10104 type(upperDiag_type) , intent(in) :: classB
10105 type(transHerm_type) , intent(in) :: operationB
10106 end subroutine
10107#endif
10108
10109#if CK2_ENABLED
10110 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK2(matA, matB, classB, operationB, alpha)
10111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10112 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK2
10113#endif
10114 use pm_kind, only: CKG => CK2
10115 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10116 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10117 complex(CKG) , intent(in) , optional :: alpha
10118 type(upperDiag_type) , intent(in) :: classB
10119 type(transHerm_type) , intent(in) :: operationB
10120 end subroutine
10121#endif
10122
10123#if CK1_ENABLED
10124 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK1(matA, matB, classB, operationB, alpha)
10125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10126 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_CK1
10127#endif
10128 use pm_kind, only: CKG => CK1
10129 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10130 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10131 complex(CKG) , intent(in) , optional :: alpha
10132 type(upperDiag_type) , intent(in) :: classB
10133 type(transHerm_type) , intent(in) :: operationB
10134 end subroutine
10135#endif
10136
10137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10138
10139#if RK5_ENABLED
10140 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK5(matA, matB, classB, operationB, alpha)
10141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10142 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK5
10143#endif
10144 use pm_kind, only: RKG => RK5
10145 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10146 real(RKG) , intent(in) , contiguous :: matB(:,:)
10147 real(RKG) , intent(in) , optional :: alpha
10148 type(upperDiag_type) , intent(in) :: classB
10149 type(transHerm_type) , intent(in) :: operationB
10150 end subroutine
10151#endif
10152
10153#if RK4_ENABLED
10154 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK4(matA, matB, classB, operationB, alpha)
10155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10156 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK4
10157#endif
10158 use pm_kind, only: RKG => RK4
10159 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10160 real(RKG) , intent(in) , contiguous :: matB(:,:)
10161 real(RKG) , intent(in) , optional :: alpha
10162 type(upperDiag_type) , intent(in) :: classB
10163 type(transHerm_type) , intent(in) :: operationB
10164 end subroutine
10165#endif
10166
10167#if RK3_ENABLED
10168 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK3(matA, matB, classB, operationB, alpha)
10169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10170 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK3
10171#endif
10172 use pm_kind, only: RKG => RK3
10173 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10174 real(RKG) , intent(in) , contiguous :: matB(:,:)
10175 real(RKG) , intent(in) , optional :: alpha
10176 type(upperDiag_type) , intent(in) :: classB
10177 type(transHerm_type) , intent(in) :: operationB
10178 end subroutine
10179#endif
10180
10181#if RK2_ENABLED
10182 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK2(matA, matB, classB, operationB, alpha)
10183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10184 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK2
10185#endif
10186 use pm_kind, only: RKG => RK2
10187 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10188 real(RKG) , intent(in) , contiguous :: matB(:,:)
10189 real(RKG) , intent(in) , optional :: alpha
10190 type(upperDiag_type) , intent(in) :: classB
10191 type(transHerm_type) , intent(in) :: operationB
10192 end subroutine
10193#endif
10194
10195#if RK1_ENABLED
10196 PURE module subroutine trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK1(matA, matB, classB, operationB, alpha)
10197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10198 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUDB_OTHB_RK1
10199#endif
10200 use pm_kind, only: RKG => RK1
10201 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10202 real(RKG) , intent(in) , contiguous :: matB(:,:)
10203 real(RKG) , intent(in) , optional :: alpha
10204 type(upperDiag_type) , intent(in) :: classB
10205 type(transHerm_type) , intent(in) :: operationB
10206 end subroutine
10207#endif
10208
10209 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10210
10211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10214
10215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10218
10219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10220
10221#if CK5_ENABLED
10222 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK5(matA, matB, classB, operationB, alpha)
10223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10224 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK5
10225#endif
10226 use pm_kind, only: CKG => CK5
10227 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10228 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10229 complex(CKG) , intent(in) , optional :: alpha
10230 type(lowerUnit_type) , intent(in) :: classB
10231 type(nothing_type) , intent(in) :: operationB
10232 end subroutine
10233#endif
10234
10235#if CK4_ENABLED
10236 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK4(matA, matB, classB, operationB, alpha)
10237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10238 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK4
10239#endif
10240 use pm_kind, only: CKG => CK4
10241 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10242 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10243 complex(CKG) , intent(in) , optional :: alpha
10244 type(lowerUnit_type) , intent(in) :: classB
10245 type(nothing_type) , intent(in) :: operationB
10246 end subroutine
10247#endif
10248
10249#if CK3_ENABLED
10250 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK3(matA, matB, classB, operationB, alpha)
10251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10252 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK3
10253#endif
10254 use pm_kind, only: CKG => CK3
10255 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10256 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10257 complex(CKG) , intent(in) , optional :: alpha
10258 type(lowerUnit_type) , intent(in) :: classB
10259 type(nothing_type) , intent(in) :: operationB
10260 end subroutine
10261#endif
10262
10263#if CK2_ENABLED
10264 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK2(matA, matB, classB, operationB, alpha)
10265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10266 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK2
10267#endif
10268 use pm_kind, only: CKG => CK2
10269 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10270 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10271 complex(CKG) , intent(in) , optional :: alpha
10272 type(lowerUnit_type) , intent(in) :: classB
10273 type(nothing_type) , intent(in) :: operationB
10274 end subroutine
10275#endif
10276
10277#if CK1_ENABLED
10278 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK1(matA, matB, classB, operationB, alpha)
10279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10280 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_CK1
10281#endif
10282 use pm_kind, only: CKG => CK1
10283 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10284 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10285 complex(CKG) , intent(in) , optional :: alpha
10286 type(lowerUnit_type) , intent(in) :: classB
10287 type(nothing_type) , intent(in) :: operationB
10288 end subroutine
10289#endif
10290
10291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10292
10293#if RK5_ENABLED
10294 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK5(matA, matB, classB, operationB, alpha)
10295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10296 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK5
10297#endif
10298 use pm_kind, only: RKG => RK5
10299 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10300 real(RKG) , intent(in) , contiguous :: matB(:,:)
10301 real(RKG) , intent(in) , optional :: alpha
10302 type(lowerUnit_type) , intent(in) :: classB
10303 type(nothing_type) , intent(in) :: operationB
10304 end subroutine
10305#endif
10306
10307#if RK4_ENABLED
10308 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK4(matA, matB, classB, operationB, alpha)
10309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10310 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK4
10311#endif
10312 use pm_kind, only: RKG => RK4
10313 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10314 real(RKG) , intent(in) , contiguous :: matB(:,:)
10315 real(RKG) , intent(in) , optional :: alpha
10316 type(lowerUnit_type) , intent(in) :: classB
10317 type(nothing_type) , intent(in) :: operationB
10318 end subroutine
10319#endif
10320
10321#if RK3_ENABLED
10322 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK3(matA, matB, classB, operationB, alpha)
10323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10324 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK3
10325#endif
10326 use pm_kind, only: RKG => RK3
10327 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10328 real(RKG) , intent(in) , contiguous :: matB(:,:)
10329 real(RKG) , intent(in) , optional :: alpha
10330 type(lowerUnit_type) , intent(in) :: classB
10331 type(nothing_type) , intent(in) :: operationB
10332 end subroutine
10333#endif
10334
10335#if RK2_ENABLED
10336 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK2(matA, matB, classB, operationB, alpha)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK2
10339#endif
10340 use pm_kind, only: RKG => RK2
10341 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10342 real(RKG) , intent(in) , contiguous :: matB(:,:)
10343 real(RKG) , intent(in) , optional :: alpha
10344 type(lowerUnit_type) , intent(in) :: classB
10345 type(nothing_type) , intent(in) :: operationB
10346 end subroutine
10347#endif
10348
10349#if RK1_ENABLED
10350 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK1(matA, matB, classB, operationB, alpha)
10351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10352 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_ONOB_RK1
10353#endif
10354 use pm_kind, only: RKG => RK1
10355 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10356 real(RKG) , intent(in) , contiguous :: matB(:,:)
10357 real(RKG) , intent(in) , optional :: alpha
10358 type(lowerUnit_type) , intent(in) :: classB
10359 type(nothing_type) , intent(in) :: operationB
10360 end subroutine
10361#endif
10362
10363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10364
10365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10368
10369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10370
10371#if CK5_ENABLED
10372 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK5(matA, matB, classB, operationB, alpha)
10373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10374 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK5
10375#endif
10376 use pm_kind, only: CKG => CK5
10377 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10378 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10379 complex(CKG) , intent(in) , optional :: alpha
10380 type(lowerUnit_type) , intent(in) :: classB
10381 type(transSymm_type) , intent(in) :: operationB
10382 end subroutine
10383#endif
10384
10385#if CK4_ENABLED
10386 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK4(matA, matB, classB, operationB, alpha)
10387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10388 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK4
10389#endif
10390 use pm_kind, only: CKG => CK4
10391 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10392 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10393 complex(CKG) , intent(in) , optional :: alpha
10394 type(lowerUnit_type) , intent(in) :: classB
10395 type(transSymm_type) , intent(in) :: operationB
10396 end subroutine
10397#endif
10398
10399#if CK3_ENABLED
10400 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK3(matA, matB, classB, operationB, alpha)
10401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10402 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK3
10403#endif
10404 use pm_kind, only: CKG => CK3
10405 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10406 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10407 complex(CKG) , intent(in) , optional :: alpha
10408 type(lowerUnit_type) , intent(in) :: classB
10409 type(transSymm_type) , intent(in) :: operationB
10410 end subroutine
10411#endif
10412
10413#if CK2_ENABLED
10414 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK2(matA, matB, classB, operationB, alpha)
10415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10416 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK2
10417#endif
10418 use pm_kind, only: CKG => CK2
10419 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10420 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10421 complex(CKG) , intent(in) , optional :: alpha
10422 type(lowerUnit_type) , intent(in) :: classB
10423 type(transSymm_type) , intent(in) :: operationB
10424 end subroutine
10425#endif
10426
10427#if CK1_ENABLED
10428 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK1(matA, matB, classB, operationB, alpha)
10429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10430 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_CK1
10431#endif
10432 use pm_kind, only: CKG => CK1
10433 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10434 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10435 complex(CKG) , intent(in) , optional :: alpha
10436 type(lowerUnit_type) , intent(in) :: classB
10437 type(transSymm_type) , intent(in) :: operationB
10438 end subroutine
10439#endif
10440
10441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10442
10443#if RK5_ENABLED
10444 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK5(matA, matB, classB, operationB, alpha)
10445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10446 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK5
10447#endif
10448 use pm_kind, only: RKG => RK5
10449 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10450 real(RKG) , intent(in) , contiguous :: matB(:,:)
10451 real(RKG) , intent(in) , optional :: alpha
10452 type(lowerUnit_type) , intent(in) :: classB
10453 type(transSymm_type) , intent(in) :: operationB
10454 end subroutine
10455#endif
10456
10457#if RK4_ENABLED
10458 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK4(matA, matB, classB, operationB, alpha)
10459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10460 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK4
10461#endif
10462 use pm_kind, only: RKG => RK4
10463 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10464 real(RKG) , intent(in) , contiguous :: matB(:,:)
10465 real(RKG) , intent(in) , optional :: alpha
10466 type(lowerUnit_type) , intent(in) :: classB
10467 type(transSymm_type) , intent(in) :: operationB
10468 end subroutine
10469#endif
10470
10471#if RK3_ENABLED
10472 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK3(matA, matB, classB, operationB, alpha)
10473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10474 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK3
10475#endif
10476 use pm_kind, only: RKG => RK3
10477 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10478 real(RKG) , intent(in) , contiguous :: matB(:,:)
10479 real(RKG) , intent(in) , optional :: alpha
10480 type(lowerUnit_type) , intent(in) :: classB
10481 type(transSymm_type) , intent(in) :: operationB
10482 end subroutine
10483#endif
10484
10485#if RK2_ENABLED
10486 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK2(matA, matB, classB, operationB, alpha)
10487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10488 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK2
10489#endif
10490 use pm_kind, only: RKG => RK2
10491 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10492 real(RKG) , intent(in) , contiguous :: matB(:,:)
10493 real(RKG) , intent(in) , optional :: alpha
10494 type(lowerUnit_type) , intent(in) :: classB
10495 type(transSymm_type) , intent(in) :: operationB
10496 end subroutine
10497#endif
10498
10499#if RK1_ENABLED
10500 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK1(matA, matB, classB, operationB, alpha)
10501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10502 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTSB_RK1
10503#endif
10504 use pm_kind, only: RKG => RK1
10505 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10506 real(RKG) , intent(in) , contiguous :: matB(:,:)
10507 real(RKG) , intent(in) , optional :: alpha
10508 type(lowerUnit_type) , intent(in) :: classB
10509 type(transSymm_type) , intent(in) :: operationB
10510 end subroutine
10511#endif
10512
10513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10514
10515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10518
10519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10520
10521#if CK5_ENABLED
10522 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK5(matA, matB, classB, operationB, alpha)
10523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10524 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK5
10525#endif
10526 use pm_kind, only: CKG => CK5
10527 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10528 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10529 complex(CKG) , intent(in) , optional :: alpha
10530 type(lowerUnit_type) , intent(in) :: classB
10531 type(transHerm_type) , intent(in) :: operationB
10532 end subroutine
10533#endif
10534
10535#if CK4_ENABLED
10536 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK4(matA, matB, classB, operationB, alpha)
10537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10538 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK4
10539#endif
10540 use pm_kind, only: CKG => CK4
10541 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10542 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10543 complex(CKG) , intent(in) , optional :: alpha
10544 type(lowerUnit_type) , intent(in) :: classB
10545 type(transHerm_type) , intent(in) :: operationB
10546 end subroutine
10547#endif
10548
10549#if CK3_ENABLED
10550 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK3(matA, matB, classB, operationB, alpha)
10551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10552 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK3
10553#endif
10554 use pm_kind, only: CKG => CK3
10555 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10556 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10557 complex(CKG) , intent(in) , optional :: alpha
10558 type(lowerUnit_type) , intent(in) :: classB
10559 type(transHerm_type) , intent(in) :: operationB
10560 end subroutine
10561#endif
10562
10563#if CK2_ENABLED
10564 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK2(matA, matB, classB, operationB, alpha)
10565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10566 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK2
10567#endif
10568 use pm_kind, only: CKG => CK2
10569 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10570 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10571 complex(CKG) , intent(in) , optional :: alpha
10572 type(lowerUnit_type) , intent(in) :: classB
10573 type(transHerm_type) , intent(in) :: operationB
10574 end subroutine
10575#endif
10576
10577#if CK1_ENABLED
10578 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK1(matA, matB, classB, operationB, alpha)
10579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10580 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_CK1
10581#endif
10582 use pm_kind, only: CKG => CK1
10583 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10584 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10585 complex(CKG) , intent(in) , optional :: alpha
10586 type(lowerUnit_type) , intent(in) :: classB
10587 type(transHerm_type) , intent(in) :: operationB
10588 end subroutine
10589#endif
10590
10591 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10592
10593#if RK5_ENABLED
10594 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK5(matA, matB, classB, operationB, alpha)
10595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10596 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK5
10597#endif
10598 use pm_kind, only: RKG => RK5
10599 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10600 real(RKG) , intent(in) , contiguous :: matB(:,:)
10601 real(RKG) , intent(in) , optional :: alpha
10602 type(lowerUnit_type) , intent(in) :: classB
10603 type(transHerm_type) , intent(in) :: operationB
10604 end subroutine
10605#endif
10606
10607#if RK4_ENABLED
10608 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK4(matA, matB, classB, operationB, alpha)
10609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10610 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK4
10611#endif
10612 use pm_kind, only: RKG => RK4
10613 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10614 real(RKG) , intent(in) , contiguous :: matB(:,:)
10615 real(RKG) , intent(in) , optional :: alpha
10616 type(lowerUnit_type) , intent(in) :: classB
10617 type(transHerm_type) , intent(in) :: operationB
10618 end subroutine
10619#endif
10620
10621#if RK3_ENABLED
10622 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK3(matA, matB, classB, operationB, alpha)
10623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10624 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK3
10625#endif
10626 use pm_kind, only: RKG => RK3
10627 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10628 real(RKG) , intent(in) , contiguous :: matB(:,:)
10629 real(RKG) , intent(in) , optional :: alpha
10630 type(lowerUnit_type) , intent(in) :: classB
10631 type(transHerm_type) , intent(in) :: operationB
10632 end subroutine
10633#endif
10634
10635#if RK2_ENABLED
10636 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK2(matA, matB, classB, operationB, alpha)
10637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10638 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK2
10639#endif
10640 use pm_kind, only: RKG => RK2
10641 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10642 real(RKG) , intent(in) , contiguous :: matB(:,:)
10643 real(RKG) , intent(in) , optional :: alpha
10644 type(lowerUnit_type) , intent(in) :: classB
10645 type(transHerm_type) , intent(in) :: operationB
10646 end subroutine
10647#endif
10648
10649#if RK1_ENABLED
10650 PURE module subroutine trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK1(matA, matB, classB, operationB, alpha)
10651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10652 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CLUB_OTHB_RK1
10653#endif
10654 use pm_kind, only: RKG => RK1
10655 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10656 real(RKG) , intent(in) , contiguous :: matB(:,:)
10657 real(RKG) , intent(in) , optional :: alpha
10658 type(lowerUnit_type) , intent(in) :: classB
10659 type(transHerm_type) , intent(in) :: operationB
10660 end subroutine
10661#endif
10662
10663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10664
10665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10668
10669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10672
10673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10674
10675#if CK5_ENABLED
10676 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK5(matA, matB, classB, operationB, alpha)
10677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10678 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK5
10679#endif
10680 use pm_kind, only: CKG => CK5
10681 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10682 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10683 complex(CKG) , intent(in) , optional :: alpha
10684 type(upperUnit_type) , intent(in) :: classB
10685 type(nothing_type) , intent(in) :: operationB
10686 end subroutine
10687#endif
10688
10689#if CK4_ENABLED
10690 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK4(matA, matB, classB, operationB, alpha)
10691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10692 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK4
10693#endif
10694 use pm_kind, only: CKG => CK4
10695 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10696 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10697 complex(CKG) , intent(in) , optional :: alpha
10698 type(upperUnit_type) , intent(in) :: classB
10699 type(nothing_type) , intent(in) :: operationB
10700 end subroutine
10701#endif
10702
10703#if CK3_ENABLED
10704 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK3(matA, matB, classB, operationB, alpha)
10705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10706 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK3
10707#endif
10708 use pm_kind, only: CKG => CK3
10709 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10710 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10711 complex(CKG) , intent(in) , optional :: alpha
10712 type(upperUnit_type) , intent(in) :: classB
10713 type(nothing_type) , intent(in) :: operationB
10714 end subroutine
10715#endif
10716
10717#if CK2_ENABLED
10718 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK2(matA, matB, classB, operationB, alpha)
10719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10720 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK2
10721#endif
10722 use pm_kind, only: CKG => CK2
10723 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10724 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10725 complex(CKG) , intent(in) , optional :: alpha
10726 type(upperUnit_type) , intent(in) :: classB
10727 type(nothing_type) , intent(in) :: operationB
10728 end subroutine
10729#endif
10730
10731#if CK1_ENABLED
10732 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK1(matA, matB, classB, operationB, alpha)
10733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10734 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_CK1
10735#endif
10736 use pm_kind, only: CKG => CK1
10737 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10738 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10739 complex(CKG) , intent(in) , optional :: alpha
10740 type(upperUnit_type) , intent(in) :: classB
10741 type(nothing_type) , intent(in) :: operationB
10742 end subroutine
10743#endif
10744
10745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10746
10747#if RK5_ENABLED
10748 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK5(matA, matB, classB, operationB, alpha)
10749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10750 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK5
10751#endif
10752 use pm_kind, only: RKG => RK5
10753 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10754 real(RKG) , intent(in) , contiguous :: matB(:,:)
10755 real(RKG) , intent(in) , optional :: alpha
10756 type(upperUnit_type) , intent(in) :: classB
10757 type(nothing_type) , intent(in) :: operationB
10758 end subroutine
10759#endif
10760
10761#if RK4_ENABLED
10762 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK4(matA, matB, classB, operationB, alpha)
10763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10764 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK4
10765#endif
10766 use pm_kind, only: RKG => RK4
10767 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10768 real(RKG) , intent(in) , contiguous :: matB(:,:)
10769 real(RKG) , intent(in) , optional :: alpha
10770 type(upperUnit_type) , intent(in) :: classB
10771 type(nothing_type) , intent(in) :: operationB
10772 end subroutine
10773#endif
10774
10775#if RK3_ENABLED
10776 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK3(matA, matB, classB, operationB, alpha)
10777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10778 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK3
10779#endif
10780 use pm_kind, only: RKG => RK3
10781 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10782 real(RKG) , intent(in) , contiguous :: matB(:,:)
10783 real(RKG) , intent(in) , optional :: alpha
10784 type(upperUnit_type) , intent(in) :: classB
10785 type(nothing_type) , intent(in) :: operationB
10786 end subroutine
10787#endif
10788
10789#if RK2_ENABLED
10790 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK2(matA, matB, classB, operationB, alpha)
10791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10792 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK2
10793#endif
10794 use pm_kind, only: RKG => RK2
10795 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10796 real(RKG) , intent(in) , contiguous :: matB(:,:)
10797 real(RKG) , intent(in) , optional :: alpha
10798 type(upperUnit_type) , intent(in) :: classB
10799 type(nothing_type) , intent(in) :: operationB
10800 end subroutine
10801#endif
10802
10803#if RK1_ENABLED
10804 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK1(matA, matB, classB, operationB, alpha)
10805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10806 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_ONOB_RK1
10807#endif
10808 use pm_kind, only: RKG => RK1
10809 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10810 real(RKG) , intent(in) , contiguous :: matB(:,:)
10811 real(RKG) , intent(in) , optional :: alpha
10812 type(upperUnit_type) , intent(in) :: classB
10813 type(nothing_type) , intent(in) :: operationB
10814 end subroutine
10815#endif
10816
10817 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10818
10819 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10822
10823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10824
10825#if CK5_ENABLED
10826 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK5(matA, matB, classB, operationB, alpha)
10827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10828 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK5
10829#endif
10830 use pm_kind, only: CKG => CK5
10831 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10832 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10833 complex(CKG) , intent(in) , optional :: alpha
10834 type(upperUnit_type) , intent(in) :: classB
10835 type(transSymm_type) , intent(in) :: operationB
10836 end subroutine
10837#endif
10838
10839#if CK4_ENABLED
10840 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK4(matA, matB, classB, operationB, alpha)
10841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10842 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK4
10843#endif
10844 use pm_kind, only: CKG => CK4
10845 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10846 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10847 complex(CKG) , intent(in) , optional :: alpha
10848 type(upperUnit_type) , intent(in) :: classB
10849 type(transSymm_type) , intent(in) :: operationB
10850 end subroutine
10851#endif
10852
10853#if CK3_ENABLED
10854 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK3(matA, matB, classB, operationB, alpha)
10855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10856 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK3
10857#endif
10858 use pm_kind, only: CKG => CK3
10859 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10860 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10861 complex(CKG) , intent(in) , optional :: alpha
10862 type(upperUnit_type) , intent(in) :: classB
10863 type(transSymm_type) , intent(in) :: operationB
10864 end subroutine
10865#endif
10866
10867#if CK2_ENABLED
10868 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK2(matA, matB, classB, operationB, alpha)
10869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10870 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK2
10871#endif
10872 use pm_kind, only: CKG => CK2
10873 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10874 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10875 complex(CKG) , intent(in) , optional :: alpha
10876 type(upperUnit_type) , intent(in) :: classB
10877 type(transSymm_type) , intent(in) :: operationB
10878 end subroutine
10879#endif
10880
10881#if CK1_ENABLED
10882 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK1(matA, matB, classB, operationB, alpha)
10883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10884 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_CK1
10885#endif
10886 use pm_kind, only: CKG => CK1
10887 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10888 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10889 complex(CKG) , intent(in) , optional :: alpha
10890 type(upperUnit_type) , intent(in) :: classB
10891 type(transSymm_type) , intent(in) :: operationB
10892 end subroutine
10893#endif
10894
10895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10896
10897#if RK5_ENABLED
10898 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK5(matA, matB, classB, operationB, alpha)
10899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10900 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK5
10901#endif
10902 use pm_kind, only: RKG => RK5
10903 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10904 real(RKG) , intent(in) , contiguous :: matB(:,:)
10905 real(RKG) , intent(in) , optional :: alpha
10906 type(upperUnit_type) , intent(in) :: classB
10907 type(transSymm_type) , intent(in) :: operationB
10908 end subroutine
10909#endif
10910
10911#if RK4_ENABLED
10912 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK4(matA, matB, classB, operationB, alpha)
10913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10914 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK4
10915#endif
10916 use pm_kind, only: RKG => RK4
10917 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10918 real(RKG) , intent(in) , contiguous :: matB(:,:)
10919 real(RKG) , intent(in) , optional :: alpha
10920 type(upperUnit_type) , intent(in) :: classB
10921 type(transSymm_type) , intent(in) :: operationB
10922 end subroutine
10923#endif
10924
10925#if RK3_ENABLED
10926 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK3(matA, matB, classB, operationB, alpha)
10927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10928 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK3
10929#endif
10930 use pm_kind, only: RKG => RK3
10931 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10932 real(RKG) , intent(in) , contiguous :: matB(:,:)
10933 real(RKG) , intent(in) , optional :: alpha
10934 type(upperUnit_type) , intent(in) :: classB
10935 type(transSymm_type) , intent(in) :: operationB
10936 end subroutine
10937#endif
10938
10939#if RK2_ENABLED
10940 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK2(matA, matB, classB, operationB, alpha)
10941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10942 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK2
10943#endif
10944 use pm_kind, only: RKG => RK2
10945 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10946 real(RKG) , intent(in) , contiguous :: matB(:,:)
10947 real(RKG) , intent(in) , optional :: alpha
10948 type(upperUnit_type) , intent(in) :: classB
10949 type(transSymm_type) , intent(in) :: operationB
10950 end subroutine
10951#endif
10952
10953#if RK1_ENABLED
10954 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK1(matA, matB, classB, operationB, alpha)
10955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10956 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTSB_RK1
10957#endif
10958 use pm_kind, only: RKG => RK1
10959 real(RKG) , intent(inout) , contiguous :: matA(:,:)
10960 real(RKG) , intent(in) , contiguous :: matB(:,:)
10961 real(RKG) , intent(in) , optional :: alpha
10962 type(upperUnit_type) , intent(in) :: classB
10963 type(transSymm_type) , intent(in) :: operationB
10964 end subroutine
10965#endif
10966
10967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10968
10969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10972
10973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10974
10975#if CK5_ENABLED
10976 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK5(matA, matB, classB, operationB, alpha)
10977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10978 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK5
10979#endif
10980 use pm_kind, only: CKG => CK5
10981 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10982 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10983 complex(CKG) , intent(in) , optional :: alpha
10984 type(upperUnit_type) , intent(in) :: classB
10985 type(transHerm_type) , intent(in) :: operationB
10986 end subroutine
10987#endif
10988
10989#if CK4_ENABLED
10990 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK4(matA, matB, classB, operationB, alpha)
10991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10992 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK4
10993#endif
10994 use pm_kind, only: CKG => CK4
10995 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
10996 complex(CKG) , intent(in) , contiguous :: matB(:,:)
10997 complex(CKG) , intent(in) , optional :: alpha
10998 type(upperUnit_type) , intent(in) :: classB
10999 type(transHerm_type) , intent(in) :: operationB
11000 end subroutine
11001#endif
11002
11003#if CK3_ENABLED
11004 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK3(matA, matB, classB, operationB, alpha)
11005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11006 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK3
11007#endif
11008 use pm_kind, only: CKG => CK3
11009 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
11010 complex(CKG) , intent(in) , contiguous :: matB(:,:)
11011 complex(CKG) , intent(in) , optional :: alpha
11012 type(upperUnit_type) , intent(in) :: classB
11013 type(transHerm_type) , intent(in) :: operationB
11014 end subroutine
11015#endif
11016
11017#if CK2_ENABLED
11018 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK2(matA, matB, classB, operationB, alpha)
11019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11020 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK2
11021#endif
11022 use pm_kind, only: CKG => CK2
11023 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
11024 complex(CKG) , intent(in) , contiguous :: matB(:,:)
11025 complex(CKG) , intent(in) , optional :: alpha
11026 type(upperUnit_type) , intent(in) :: classB
11027 type(transHerm_type) , intent(in) :: operationB
11028 end subroutine
11029#endif
11030
11031#if CK1_ENABLED
11032 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK1(matA, matB, classB, operationB, alpha)
11033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11034 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_CK1
11035#endif
11036 use pm_kind, only: CKG => CK1
11037 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
11038 complex(CKG) , intent(in) , contiguous :: matB(:,:)
11039 complex(CKG) , intent(in) , optional :: alpha
11040 type(upperUnit_type) , intent(in) :: classB
11041 type(transHerm_type) , intent(in) :: operationB
11042 end subroutine
11043#endif
11044
11045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11046
11047#if RK5_ENABLED
11048 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK5(matA, matB, classB, operationB, alpha)
11049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11050 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK5
11051#endif
11052 use pm_kind, only: RKG => RK5
11053 real(RKG) , intent(inout) , contiguous :: matA(:,:)
11054 real(RKG) , intent(in) , contiguous :: matB(:,:)
11055 real(RKG) , intent(in) , optional :: alpha
11056 type(upperUnit_type) , intent(in) :: classB
11057 type(transHerm_type) , intent(in) :: operationB
11058 end subroutine
11059#endif
11060
11061#if RK4_ENABLED
11062 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK4(matA, matB, classB, operationB, alpha)
11063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11064 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK4
11065#endif
11066 use pm_kind, only: RKG => RK4
11067 real(RKG) , intent(inout) , contiguous :: matA(:,:)
11068 real(RKG) , intent(in) , contiguous :: matB(:,:)
11069 real(RKG) , intent(in) , optional :: alpha
11070 type(upperUnit_type) , intent(in) :: classB
11071 type(transHerm_type) , intent(in) :: operationB
11072 end subroutine
11073#endif
11074
11075#if RK3_ENABLED
11076 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK3(matA, matB, classB, operationB, alpha)
11077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11078 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK3
11079#endif
11080 use pm_kind, only: RKG => RK3
11081 real(RKG) , intent(inout) , contiguous :: matA(:,:)
11082 real(RKG) , intent(in) , contiguous :: matB(:,:)
11083 real(RKG) , intent(in) , optional :: alpha
11084 type(upperUnit_type) , intent(in) :: classB
11085 type(transHerm_type) , intent(in) :: operationB
11086 end subroutine
11087#endif
11088
11089#if RK2_ENABLED
11090 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK2(matA, matB, classB, operationB, alpha)
11091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11092 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK2
11093#endif
11094 use pm_kind, only: RKG => RK2
11095 real(RKG) , intent(inout) , contiguous :: matA(:,:)
11096 real(RKG) , intent(in) , contiguous :: matB(:,:)
11097 real(RKG) , intent(in) , optional :: alpha
11098 type(upperUnit_type) , intent(in) :: classB
11099 type(transHerm_type) , intent(in) :: operationB
11100 end subroutine
11101#endif
11102
11103#if RK1_ENABLED
11104 PURE module subroutine trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK1(matA, matB, classB, operationB, alpha)
11105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11106 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_ASS_CGMA_ONOA_CUUB_OTHB_RK1
11107#endif
11108 use pm_kind, only: RKG => RK1
11109 real(RKG) , intent(inout) , contiguous :: matA(:,:)
11110 real(RKG) , intent(in) , contiguous :: matB(:,:)
11111 real(RKG) , intent(in) , optional :: alpha
11112 type(upperUnit_type) , intent(in) :: classB
11113 type(transHerm_type) , intent(in) :: operationB
11114 end subroutine
11115#endif
11116
11117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11118
11119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11122
11123 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11126
11127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11130
11131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11132
11133#if CK5_ENABLED
11134 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11136 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK5
11137#endif
11138 use pm_kind, only: CKG => CK5
11139 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11140 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11141 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11142 complex(CKG) , intent(in) :: alpha
11143 type(lowerDiag_type) , intent(in) :: classA
11144 type(nothing_type) , intent(in) :: operationA
11145 end subroutine
11146#endif
11147
11148#if CK4_ENABLED
11149 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11151 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK4
11152#endif
11153 use pm_kind, only: CKG => CK4
11154 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11155 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11156 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11157 complex(CKG) , intent(in) :: alpha
11158 type(lowerDiag_type) , intent(in) :: classA
11159 type(nothing_type) , intent(in) :: operationA
11160 end subroutine
11161#endif
11162
11163#if CK3_ENABLED
11164 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11166 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK3
11167#endif
11168 use pm_kind, only: CKG => CK3
11169 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11170 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11171 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11172 complex(CKG) , intent(in) :: alpha
11173 type(lowerDiag_type) , intent(in) :: classA
11174 type(nothing_type) , intent(in) :: operationA
11175 end subroutine
11176#endif
11177
11178#if CK2_ENABLED
11179 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11181 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK2
11182#endif
11183 use pm_kind, only: CKG => CK2
11184 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11185 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11186 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11187 complex(CKG) , intent(in) :: alpha
11188 type(lowerDiag_type) , intent(in) :: classA
11189 type(nothing_type) , intent(in) :: operationA
11190 end subroutine
11191#endif
11192
11193#if CK1_ENABLED
11194 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11196 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_CK1
11197#endif
11198 use pm_kind, only: CKG => CK1
11199 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11200 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11201 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11202 complex(CKG) , intent(in) :: alpha
11203 type(lowerDiag_type) , intent(in) :: classA
11204 type(nothing_type) , intent(in) :: operationA
11205 end subroutine
11206#endif
11207
11208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11209
11210#if RK5_ENABLED
11211 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11213 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK5
11214#endif
11215 use pm_kind, only: RKG => RK5
11216 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11217 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11218 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11219 real(RKG) , intent(in) :: alpha
11220 type(lowerDiag_type) , intent(in) :: classA
11221 type(nothing_type) , intent(in) :: operationA
11222 end subroutine
11223#endif
11224
11225#if RK4_ENABLED
11226 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11228 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK4
11229#endif
11230 use pm_kind, only: RKG => RK4
11231 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11232 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11233 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11234 real(RKG) , intent(in) :: alpha
11235 type(lowerDiag_type) , intent(in) :: classA
11236 type(nothing_type) , intent(in) :: operationA
11237 end subroutine
11238#endif
11239
11240#if RK3_ENABLED
11241 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11243 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK3
11244#endif
11245 use pm_kind, only: RKG => RK3
11246 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11247 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11248 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11249 real(RKG) , intent(in) :: alpha
11250 type(lowerDiag_type) , intent(in) :: classA
11251 type(nothing_type) , intent(in) :: operationA
11252 end subroutine
11253#endif
11254
11255#if RK2_ENABLED
11256 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11258 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK2
11259#endif
11260 use pm_kind, only: RKG => RK2
11261 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11262 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11263 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11264 real(RKG) , intent(in) :: alpha
11265 type(lowerDiag_type) , intent(in) :: classA
11266 type(nothing_type) , intent(in) :: operationA
11267 end subroutine
11268#endif
11269
11270#if RK1_ENABLED
11271 PURE module subroutine trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11273 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_ONOA_CGMB_ONOB_RK1
11274#endif
11275 use pm_kind, only: RKG => RK1
11276 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11277 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11278 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11279 real(RKG) , intent(in) :: alpha
11280 type(lowerDiag_type) , intent(in) :: classA
11281 type(nothing_type) , intent(in) :: operationA
11282 end subroutine
11283#endif
11284
11285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11286
11287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11290
11291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11292
11293#if CK5_ENABLED
11294 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11296 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK5
11297#endif
11298 use pm_kind, only: CKG => CK5
11299 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11300 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11301 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11302 complex(CKG) , intent(in) :: alpha
11303 type(lowerDiag_type) , intent(in) :: classA
11304 type(transSymm_type) , intent(in) :: operationA
11305 end subroutine
11306#endif
11307
11308#if CK4_ENABLED
11309 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11311 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK4
11312#endif
11313 use pm_kind, only: CKG => CK4
11314 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11315 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11316 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11317 complex(CKG) , intent(in) :: alpha
11318 type(lowerDiag_type) , intent(in) :: classA
11319 type(transSymm_type) , intent(in) :: operationA
11320 end subroutine
11321#endif
11322
11323#if CK3_ENABLED
11324 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11326 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK3
11327#endif
11328 use pm_kind, only: CKG => CK3
11329 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11330 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11331 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11332 complex(CKG) , intent(in) :: alpha
11333 type(lowerDiag_type) , intent(in) :: classA
11334 type(transSymm_type) , intent(in) :: operationA
11335 end subroutine
11336#endif
11337
11338#if CK2_ENABLED
11339 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11341 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK2
11342#endif
11343 use pm_kind, only: CKG => CK2
11344 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11345 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11346 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11347 complex(CKG) , intent(in) :: alpha
11348 type(lowerDiag_type) , intent(in) :: classA
11349 type(transSymm_type) , intent(in) :: operationA
11350 end subroutine
11351#endif
11352
11353#if CK1_ENABLED
11354 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11356 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_CK1
11357#endif
11358 use pm_kind, only: CKG => CK1
11359 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11360 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11361 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11362 complex(CKG) , intent(in) :: alpha
11363 type(lowerDiag_type) , intent(in) :: classA
11364 type(transSymm_type) , intent(in) :: operationA
11365 end subroutine
11366#endif
11367
11368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11369
11370#if RK5_ENABLED
11371 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11373 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK5
11374#endif
11375 use pm_kind, only: RKG => RK5
11376 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11377 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11378 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11379 real(RKG) , intent(in) :: alpha
11380 type(lowerDiag_type) , intent(in) :: classA
11381 type(transSymm_type) , intent(in) :: operationA
11382 end subroutine
11383#endif
11384
11385#if RK4_ENABLED
11386 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11388 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK4
11389#endif
11390 use pm_kind, only: RKG => RK4
11391 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11392 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11393 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11394 real(RKG) , intent(in) :: alpha
11395 type(lowerDiag_type) , intent(in) :: classA
11396 type(transSymm_type) , intent(in) :: operationA
11397 end subroutine
11398#endif
11399
11400#if RK3_ENABLED
11401 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11403 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK3
11404#endif
11405 use pm_kind, only: RKG => RK3
11406 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11407 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11408 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11409 real(RKG) , intent(in) :: alpha
11410 type(lowerDiag_type) , intent(in) :: classA
11411 type(transSymm_type) , intent(in) :: operationA
11412 end subroutine
11413#endif
11414
11415#if RK2_ENABLED
11416 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11418 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK2
11419#endif
11420 use pm_kind, only: RKG => RK2
11421 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11422 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11423 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11424 real(RKG) , intent(in) :: alpha
11425 type(lowerDiag_type) , intent(in) :: classA
11426 type(transSymm_type) , intent(in) :: operationA
11427 end subroutine
11428#endif
11429
11430#if RK1_ENABLED
11431 PURE module subroutine trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11433 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTSA_CGMB_ONOB_RK1
11434#endif
11435 use pm_kind, only: RKG => RK1
11436 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11437 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11438 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11439 real(RKG) , intent(in) :: alpha
11440 type(lowerDiag_type) , intent(in) :: classA
11441 type(transSymm_type) , intent(in) :: operationA
11442 end subroutine
11443#endif
11444
11445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11446
11447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11449 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11450
11451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11452
11453#if CK5_ENABLED
11454 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11456 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK5
11457#endif
11458 use pm_kind, only: CKG => CK5
11459 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11460 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11461 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11462 complex(CKG) , intent(in) :: alpha
11463 type(lowerDiag_type) , intent(in) :: classA
11464 type(transHerm_type) , intent(in) :: operationA
11465 end subroutine
11466#endif
11467
11468#if CK4_ENABLED
11469 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11471 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK4
11472#endif
11473 use pm_kind, only: CKG => CK4
11474 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11475 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11476 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11477 complex(CKG) , intent(in) :: alpha
11478 type(lowerDiag_type) , intent(in) :: classA
11479 type(transHerm_type) , intent(in) :: operationA
11480 end subroutine
11481#endif
11482
11483#if CK3_ENABLED
11484 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11486 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK3
11487#endif
11488 use pm_kind, only: CKG => CK3
11489 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11490 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11491 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11492 complex(CKG) , intent(in) :: alpha
11493 type(lowerDiag_type) , intent(in) :: classA
11494 type(transHerm_type) , intent(in) :: operationA
11495 end subroutine
11496#endif
11497
11498#if CK2_ENABLED
11499 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11501 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK2
11502#endif
11503 use pm_kind, only: CKG => CK2
11504 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11505 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11506 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11507 complex(CKG) , intent(in) :: alpha
11508 type(lowerDiag_type) , intent(in) :: classA
11509 type(transHerm_type) , intent(in) :: operationA
11510 end subroutine
11511#endif
11512
11513#if CK1_ENABLED
11514 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11516 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_CK1
11517#endif
11518 use pm_kind, only: CKG => CK1
11519 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11520 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11521 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11522 complex(CKG) , intent(in) :: alpha
11523 type(lowerDiag_type) , intent(in) :: classA
11524 type(transHerm_type) , intent(in) :: operationA
11525 end subroutine
11526#endif
11527
11528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11529
11530#if RK5_ENABLED
11531 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11533 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK5
11534#endif
11535 use pm_kind, only: RKG => RK5
11536 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11537 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11538 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11539 real(RKG) , intent(in) :: alpha
11540 type(lowerDiag_type) , intent(in) :: classA
11541 type(transHerm_type) , intent(in) :: operationA
11542 end subroutine
11543#endif
11544
11545#if RK4_ENABLED
11546 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11548 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK4
11549#endif
11550 use pm_kind, only: RKG => RK4
11551 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11552 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11553 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11554 real(RKG) , intent(in) :: alpha
11555 type(lowerDiag_type) , intent(in) :: classA
11556 type(transHerm_type) , intent(in) :: operationA
11557 end subroutine
11558#endif
11559
11560#if RK3_ENABLED
11561 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11563 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK3
11564#endif
11565 use pm_kind, only: RKG => RK3
11566 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11567 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11568 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11569 real(RKG) , intent(in) :: alpha
11570 type(lowerDiag_type) , intent(in) :: classA
11571 type(transHerm_type) , intent(in) :: operationA
11572 end subroutine
11573#endif
11574
11575#if RK2_ENABLED
11576 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11578 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK2
11579#endif
11580 use pm_kind, only: RKG => RK2
11581 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11582 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11583 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11584 real(RKG) , intent(in) :: alpha
11585 type(lowerDiag_type) , intent(in) :: classA
11586 type(transHerm_type) , intent(in) :: operationA
11587 end subroutine
11588#endif
11589
11590#if RK1_ENABLED
11591 PURE module subroutine trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11593 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLDA_OTHA_CGMB_ONOB_RK1
11594#endif
11595 use pm_kind, only: RKG => RK1
11596 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11597 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11598 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11599 real(RKG) , intent(in) :: alpha
11600 type(lowerDiag_type) , intent(in) :: classA
11601 type(transHerm_type) , intent(in) :: operationA
11602 end subroutine
11603#endif
11604
11605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11606
11607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11608 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11610
11611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11614
11615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11616
11617#if CK5_ENABLED
11618 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11620 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK5
11621#endif
11622 use pm_kind, only: CKG => CK5
11623 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11624 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11625 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11626 complex(CKG) , intent(in) :: alpha
11627 type(upperDiag_type) , intent(in) :: classA
11628 type(nothing_type) , intent(in) :: operationA
11629 end subroutine
11630#endif
11631
11632#if CK4_ENABLED
11633 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11635 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK4
11636#endif
11637 use pm_kind, only: CKG => CK4
11638 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11639 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11640 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11641 complex(CKG) , intent(in) :: alpha
11642 type(upperDiag_type) , intent(in) :: classA
11643 type(nothing_type) , intent(in) :: operationA
11644 end subroutine
11645#endif
11646
11647#if CK3_ENABLED
11648 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11650 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK3
11651#endif
11652 use pm_kind, only: CKG => CK3
11653 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11654 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11655 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11656 complex(CKG) , intent(in) :: alpha
11657 type(upperDiag_type) , intent(in) :: classA
11658 type(nothing_type) , intent(in) :: operationA
11659 end subroutine
11660#endif
11661
11662#if CK2_ENABLED
11663 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11665 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK2
11666#endif
11667 use pm_kind, only: CKG => CK2
11668 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11669 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11670 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11671 complex(CKG) , intent(in) :: alpha
11672 type(upperDiag_type) , intent(in) :: classA
11673 type(nothing_type) , intent(in) :: operationA
11674 end subroutine
11675#endif
11676
11677#if CK1_ENABLED
11678 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11680 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_CK1
11681#endif
11682 use pm_kind, only: CKG => CK1
11683 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11684 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11685 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11686 complex(CKG) , intent(in) :: alpha
11687 type(upperDiag_type) , intent(in) :: classA
11688 type(nothing_type) , intent(in) :: operationA
11689 end subroutine
11690#endif
11691
11692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11693
11694#if RK5_ENABLED
11695 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11697 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK5
11698#endif
11699 use pm_kind, only: RKG => RK5
11700 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11701 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11702 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11703 real(RKG) , intent(in) :: alpha
11704 type(upperDiag_type) , intent(in) :: classA
11705 type(nothing_type) , intent(in) :: operationA
11706 end subroutine
11707#endif
11708
11709#if RK4_ENABLED
11710 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11712 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK4
11713#endif
11714 use pm_kind, only: RKG => RK4
11715 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11716 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11717 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11718 real(RKG) , intent(in) :: alpha
11719 type(upperDiag_type) , intent(in) :: classA
11720 type(nothing_type) , intent(in) :: operationA
11721 end subroutine
11722#endif
11723
11724#if RK3_ENABLED
11725 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11727 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK3
11728#endif
11729 use pm_kind, only: RKG => RK3
11730 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11731 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11732 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11733 real(RKG) , intent(in) :: alpha
11734 type(upperDiag_type) , intent(in) :: classA
11735 type(nothing_type) , intent(in) :: operationA
11736 end subroutine
11737#endif
11738
11739#if RK2_ENABLED
11740 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11742 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK2
11743#endif
11744 use pm_kind, only: RKG => RK2
11745 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11746 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11747 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11748 real(RKG) , intent(in) :: alpha
11749 type(upperDiag_type) , intent(in) :: classA
11750 type(nothing_type) , intent(in) :: operationA
11751 end subroutine
11752#endif
11753
11754#if RK1_ENABLED
11755 PURE module subroutine trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11757 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_ONOA_CGMB_ONOB_RK1
11758#endif
11759 use pm_kind, only: RKG => RK1
11760 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11761 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11762 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11763 real(RKG) , intent(in) :: alpha
11764 type(upperDiag_type) , intent(in) :: classA
11765 type(nothing_type) , intent(in) :: operationA
11766 end subroutine
11767#endif
11768
11769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11770
11771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11774
11775 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11776
11777#if CK5_ENABLED
11778 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11780 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK5
11781#endif
11782 use pm_kind, only: CKG => CK5
11783 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11784 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11785 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11786 complex(CKG) , intent(in) :: alpha
11787 type(upperDiag_type) , intent(in) :: classA
11788 type(transSymm_type) , intent(in) :: operationA
11789 end subroutine
11790#endif
11791
11792#if CK4_ENABLED
11793 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11795 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK4
11796#endif
11797 use pm_kind, only: CKG => CK4
11798 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11799 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11800 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11801 complex(CKG) , intent(in) :: alpha
11802 type(upperDiag_type) , intent(in) :: classA
11803 type(transSymm_type) , intent(in) :: operationA
11804 end subroutine
11805#endif
11806
11807#if CK3_ENABLED
11808 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11810 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK3
11811#endif
11812 use pm_kind, only: CKG => CK3
11813 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11814 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11815 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11816 complex(CKG) , intent(in) :: alpha
11817 type(upperDiag_type) , intent(in) :: classA
11818 type(transSymm_type) , intent(in) :: operationA
11819 end subroutine
11820#endif
11821
11822#if CK2_ENABLED
11823 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11825 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK2
11826#endif
11827 use pm_kind, only: CKG => CK2
11828 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11829 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11830 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11831 complex(CKG) , intent(in) :: alpha
11832 type(upperDiag_type) , intent(in) :: classA
11833 type(transSymm_type) , intent(in) :: operationA
11834 end subroutine
11835#endif
11836
11837#if CK1_ENABLED
11838 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11840 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_CK1
11841#endif
11842 use pm_kind, only: CKG => CK1
11843 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11844 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11845 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11846 complex(CKG) , intent(in) :: alpha
11847 type(upperDiag_type) , intent(in) :: classA
11848 type(transSymm_type) , intent(in) :: operationA
11849 end subroutine
11850#endif
11851
11852 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11853
11854#if RK5_ENABLED
11855 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11857 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK5
11858#endif
11859 use pm_kind, only: RKG => RK5
11860 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11861 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11862 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11863 real(RKG) , intent(in) :: alpha
11864 type(upperDiag_type) , intent(in) :: classA
11865 type(transSymm_type) , intent(in) :: operationA
11866 end subroutine
11867#endif
11868
11869#if RK4_ENABLED
11870 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11872 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK4
11873#endif
11874 use pm_kind, only: RKG => RK4
11875 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11876 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11877 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11878 real(RKG) , intent(in) :: alpha
11879 type(upperDiag_type) , intent(in) :: classA
11880 type(transSymm_type) , intent(in) :: operationA
11881 end subroutine
11882#endif
11883
11884#if RK3_ENABLED
11885 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11887 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK3
11888#endif
11889 use pm_kind, only: RKG => RK3
11890 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11891 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11892 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11893 real(RKG) , intent(in) :: alpha
11894 type(upperDiag_type) , intent(in) :: classA
11895 type(transSymm_type) , intent(in) :: operationA
11896 end subroutine
11897#endif
11898
11899#if RK2_ENABLED
11900 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11902 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK2
11903#endif
11904 use pm_kind, only: RKG => RK2
11905 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11906 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11907 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11908 real(RKG) , intent(in) :: alpha
11909 type(upperDiag_type) , intent(in) :: classA
11910 type(transSymm_type) , intent(in) :: operationA
11911 end subroutine
11912#endif
11913
11914#if RK1_ENABLED
11915 PURE module subroutine trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11917 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTSA_CGMB_ONOB_RK1
11918#endif
11919 use pm_kind, only: RKG => RK1
11920 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11921 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11922 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11923 real(RKG) , intent(in) :: alpha
11924 type(upperDiag_type) , intent(in) :: classA
11925 type(transSymm_type) , intent(in) :: operationA
11926 end subroutine
11927#endif
11928
11929 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11930
11931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11932 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11934
11935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11936
11937#if CK5_ENABLED
11938 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK5
11941#endif
11942 use pm_kind, only: CKG => CK5
11943 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11944 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11945 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11946 complex(CKG) , intent(in) :: alpha
11947 type(upperDiag_type) , intent(in) :: classA
11948 type(transHerm_type) , intent(in) :: operationA
11949 end subroutine
11950#endif
11951
11952#if CK4_ENABLED
11953 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11955 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK4
11956#endif
11957 use pm_kind, only: CKG => CK4
11958 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11959 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11960 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11961 complex(CKG) , intent(in) :: alpha
11962 type(upperDiag_type) , intent(in) :: classA
11963 type(transHerm_type) , intent(in) :: operationA
11964 end subroutine
11965#endif
11966
11967#if CK3_ENABLED
11968 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11970 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK3
11971#endif
11972 use pm_kind, only: CKG => CK3
11973 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11974 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11975 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11976 complex(CKG) , intent(in) :: alpha
11977 type(upperDiag_type) , intent(in) :: classA
11978 type(transHerm_type) , intent(in) :: operationA
11979 end subroutine
11980#endif
11981
11982#if CK2_ENABLED
11983 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11985 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK2
11986#endif
11987 use pm_kind, only: CKG => CK2
11988 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
11989 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
11990 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
11991 complex(CKG) , intent(in) :: alpha
11992 type(upperDiag_type) , intent(in) :: classA
11993 type(transHerm_type) , intent(in) :: operationA
11994 end subroutine
11995#endif
11996
11997#if CK1_ENABLED
11998 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
11999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12000 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_CK1
12001#endif
12002 use pm_kind, only: CKG => CK1
12003 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12004 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12005 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12006 complex(CKG) , intent(in) :: alpha
12007 type(upperDiag_type) , intent(in) :: classA
12008 type(transHerm_type) , intent(in) :: operationA
12009 end subroutine
12010#endif
12011
12012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12013
12014#if RK5_ENABLED
12015 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12017 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK5
12018#endif
12019 use pm_kind, only: RKG => RK5
12020 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12021 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12022 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12023 real(RKG) , intent(in) :: alpha
12024 type(upperDiag_type) , intent(in) :: classA
12025 type(transHerm_type) , intent(in) :: operationA
12026 end subroutine
12027#endif
12028
12029#if RK4_ENABLED
12030 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12032 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK4
12033#endif
12034 use pm_kind, only: RKG => RK4
12035 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12036 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12037 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12038 real(RKG) , intent(in) :: alpha
12039 type(upperDiag_type) , intent(in) :: classA
12040 type(transHerm_type) , intent(in) :: operationA
12041 end subroutine
12042#endif
12043
12044#if RK3_ENABLED
12045 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12047 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK3
12048#endif
12049 use pm_kind, only: RKG => RK3
12050 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12051 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12052 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12053 real(RKG) , intent(in) :: alpha
12054 type(upperDiag_type) , intent(in) :: classA
12055 type(transHerm_type) , intent(in) :: operationA
12056 end subroutine
12057#endif
12058
12059#if RK2_ENABLED
12060 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12062 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK2
12063#endif
12064 use pm_kind, only: RKG => RK2
12065 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12066 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12067 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12068 real(RKG) , intent(in) :: alpha
12069 type(upperDiag_type) , intent(in) :: classA
12070 type(transHerm_type) , intent(in) :: operationA
12071 end subroutine
12072#endif
12073
12074#if RK1_ENABLED
12075 PURE module subroutine trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12077 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUDA_OTHA_CGMB_ONOB_RK1
12078#endif
12079 use pm_kind, only: RKG => RK1
12080 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12081 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12082 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12083 real(RKG) , intent(in) :: alpha
12084 type(upperDiag_type) , intent(in) :: classA
12085 type(transHerm_type) , intent(in) :: operationA
12086 end subroutine
12087#endif
12088
12089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12090
12091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12092 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12094
12095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12098
12099 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12100
12101#if CK5_ENABLED
12102 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12104 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK5
12105#endif
12106 use pm_kind, only: CKG => CK5
12107 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12108 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12109 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12110 complex(CKG) , intent(in) :: alpha
12111 type(lowerUnit_type) , intent(in) :: classA
12112 type(nothing_type) , intent(in) :: operationA
12113 end subroutine
12114#endif
12115
12116#if CK4_ENABLED
12117 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12119 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK4
12120#endif
12121 use pm_kind, only: CKG => CK4
12122 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12123 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12124 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12125 complex(CKG) , intent(in) :: alpha
12126 type(lowerUnit_type) , intent(in) :: classA
12127 type(nothing_type) , intent(in) :: operationA
12128 end subroutine
12129#endif
12130
12131#if CK3_ENABLED
12132 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12134 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK3
12135#endif
12136 use pm_kind, only: CKG => CK3
12137 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12138 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12139 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12140 complex(CKG) , intent(in) :: alpha
12141 type(lowerUnit_type) , intent(in) :: classA
12142 type(nothing_type) , intent(in) :: operationA
12143 end subroutine
12144#endif
12145
12146#if CK2_ENABLED
12147 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12149 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK2
12150#endif
12151 use pm_kind, only: CKG => CK2
12152 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12153 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12154 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12155 complex(CKG) , intent(in) :: alpha
12156 type(lowerUnit_type) , intent(in) :: classA
12157 type(nothing_type) , intent(in) :: operationA
12158 end subroutine
12159#endif
12160
12161#if CK1_ENABLED
12162 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_CK1
12165#endif
12166 use pm_kind, only: CKG => CK1
12167 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12168 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12169 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12170 complex(CKG) , intent(in) :: alpha
12171 type(lowerUnit_type) , intent(in) :: classA
12172 type(nothing_type) , intent(in) :: operationA
12173 end subroutine
12174#endif
12175
12176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12177
12178#if RK5_ENABLED
12179 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12181 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK5
12182#endif
12183 use pm_kind, only: RKG => RK5
12184 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12185 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12186 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12187 real(RKG) , intent(in) :: alpha
12188 type(lowerUnit_type) , intent(in) :: classA
12189 type(nothing_type) , intent(in) :: operationA
12190 end subroutine
12191#endif
12192
12193#if RK4_ENABLED
12194 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12196 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK4
12197#endif
12198 use pm_kind, only: RKG => RK4
12199 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12200 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12201 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12202 real(RKG) , intent(in) :: alpha
12203 type(lowerUnit_type) , intent(in) :: classA
12204 type(nothing_type) , intent(in) :: operationA
12205 end subroutine
12206#endif
12207
12208#if RK3_ENABLED
12209 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12211 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK3
12212#endif
12213 use pm_kind, only: RKG => RK3
12214 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12215 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12216 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12217 real(RKG) , intent(in) :: alpha
12218 type(lowerUnit_type) , intent(in) :: classA
12219 type(nothing_type) , intent(in) :: operationA
12220 end subroutine
12221#endif
12222
12223#if RK2_ENABLED
12224 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12226 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK2
12227#endif
12228 use pm_kind, only: RKG => RK2
12229 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12230 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12231 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12232 real(RKG) , intent(in) :: alpha
12233 type(lowerUnit_type) , intent(in) :: classA
12234 type(nothing_type) , intent(in) :: operationA
12235 end subroutine
12236#endif
12237
12238#if RK1_ENABLED
12239 PURE module subroutine trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12241 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_ONOA_CGMB_ONOB_RK1
12242#endif
12243 use pm_kind, only: RKG => RK1
12244 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12245 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12246 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12247 real(RKG) , intent(in) :: alpha
12248 type(lowerUnit_type) , intent(in) :: classA
12249 type(nothing_type) , intent(in) :: operationA
12250 end subroutine
12251#endif
12252
12253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12254
12255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12258
12259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12260
12261#if CK5_ENABLED
12262 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12264 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK5
12265#endif
12266 use pm_kind, only: CKG => CK5
12267 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12268 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12269 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12270 complex(CKG) , intent(in) :: alpha
12271 type(lowerUnit_type) , intent(in) :: classA
12272 type(transSymm_type) , intent(in) :: operationA
12273 end subroutine
12274#endif
12275
12276#if CK4_ENABLED
12277 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12279 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK4
12280#endif
12281 use pm_kind, only: CKG => CK4
12282 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12283 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12284 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12285 complex(CKG) , intent(in) :: alpha
12286 type(lowerUnit_type) , intent(in) :: classA
12287 type(transSymm_type) , intent(in) :: operationA
12288 end subroutine
12289#endif
12290
12291#if CK3_ENABLED
12292 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12294 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK3
12295#endif
12296 use pm_kind, only: CKG => CK3
12297 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12298 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12299 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12300 complex(CKG) , intent(in) :: alpha
12301 type(lowerUnit_type) , intent(in) :: classA
12302 type(transSymm_type) , intent(in) :: operationA
12303 end subroutine
12304#endif
12305
12306#if CK2_ENABLED
12307 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12309 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK2
12310#endif
12311 use pm_kind, only: CKG => CK2
12312 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12313 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12314 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12315 complex(CKG) , intent(in) :: alpha
12316 type(lowerUnit_type) , intent(in) :: classA
12317 type(transSymm_type) , intent(in) :: operationA
12318 end subroutine
12319#endif
12320
12321#if CK1_ENABLED
12322 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12324 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_CK1
12325#endif
12326 use pm_kind, only: CKG => CK1
12327 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12328 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12329 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12330 complex(CKG) , intent(in) :: alpha
12331 type(lowerUnit_type) , intent(in) :: classA
12332 type(transSymm_type) , intent(in) :: operationA
12333 end subroutine
12334#endif
12335
12336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12337
12338#if RK5_ENABLED
12339 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12341 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK5
12342#endif
12343 use pm_kind, only: RKG => RK5
12344 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12345 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12346 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12347 real(RKG) , intent(in) :: alpha
12348 type(lowerUnit_type) , intent(in) :: classA
12349 type(transSymm_type) , intent(in) :: operationA
12350 end subroutine
12351#endif
12352
12353#if RK4_ENABLED
12354 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12356 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK4
12357#endif
12358 use pm_kind, only: RKG => RK4
12359 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12360 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12361 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12362 real(RKG) , intent(in) :: alpha
12363 type(lowerUnit_type) , intent(in) :: classA
12364 type(transSymm_type) , intent(in) :: operationA
12365 end subroutine
12366#endif
12367
12368#if RK3_ENABLED
12369 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12371 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK3
12372#endif
12373 use pm_kind, only: RKG => RK3
12374 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12375 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12376 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12377 real(RKG) , intent(in) :: alpha
12378 type(lowerUnit_type) , intent(in) :: classA
12379 type(transSymm_type) , intent(in) :: operationA
12380 end subroutine
12381#endif
12382
12383#if RK2_ENABLED
12384 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12386 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK2
12387#endif
12388 use pm_kind, only: RKG => RK2
12389 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12390 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12391 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12392 real(RKG) , intent(in) :: alpha
12393 type(lowerUnit_type) , intent(in) :: classA
12394 type(transSymm_type) , intent(in) :: operationA
12395 end subroutine
12396#endif
12397
12398#if RK1_ENABLED
12399 PURE module subroutine trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12401 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTSA_CGMB_ONOB_RK1
12402#endif
12403 use pm_kind, only: RKG => RK1
12404 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12405 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12406 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12407 real(RKG) , intent(in) :: alpha
12408 type(lowerUnit_type) , intent(in) :: classA
12409 type(transSymm_type) , intent(in) :: operationA
12410 end subroutine
12411#endif
12412
12413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12414
12415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12418
12419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12420
12421#if CK5_ENABLED
12422 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12424 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK5
12425#endif
12426 use pm_kind, only: CKG => CK5
12427 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12428 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12429 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12430 complex(CKG) , intent(in) :: alpha
12431 type(lowerUnit_type) , intent(in) :: classA
12432 type(transHerm_type) , intent(in) :: operationA
12433 end subroutine
12434#endif
12435
12436#if CK4_ENABLED
12437 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12439 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK4
12440#endif
12441 use pm_kind, only: CKG => CK4
12442 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12443 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12444 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12445 complex(CKG) , intent(in) :: alpha
12446 type(lowerUnit_type) , intent(in) :: classA
12447 type(transHerm_type) , intent(in) :: operationA
12448 end subroutine
12449#endif
12450
12451#if CK3_ENABLED
12452 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12454 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK3
12455#endif
12456 use pm_kind, only: CKG => CK3
12457 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12458 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12459 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12460 complex(CKG) , intent(in) :: alpha
12461 type(lowerUnit_type) , intent(in) :: classA
12462 type(transHerm_type) , intent(in) :: operationA
12463 end subroutine
12464#endif
12465
12466#if CK2_ENABLED
12467 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12469 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK2
12470#endif
12471 use pm_kind, only: CKG => CK2
12472 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12473 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12474 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12475 complex(CKG) , intent(in) :: alpha
12476 type(lowerUnit_type) , intent(in) :: classA
12477 type(transHerm_type) , intent(in) :: operationA
12478 end subroutine
12479#endif
12480
12481#if CK1_ENABLED
12482 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12484 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_CK1
12485#endif
12486 use pm_kind, only: CKG => CK1
12487 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12488 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12489 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12490 complex(CKG) , intent(in) :: alpha
12491 type(lowerUnit_type) , intent(in) :: classA
12492 type(transHerm_type) , intent(in) :: operationA
12493 end subroutine
12494#endif
12495
12496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12497
12498#if RK5_ENABLED
12499 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12501 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK5
12502#endif
12503 use pm_kind, only: RKG => RK5
12504 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12505 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12506 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12507 real(RKG) , intent(in) :: alpha
12508 type(lowerUnit_type) , intent(in) :: classA
12509 type(transHerm_type) , intent(in) :: operationA
12510 end subroutine
12511#endif
12512
12513#if RK4_ENABLED
12514 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12516 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK4
12517#endif
12518 use pm_kind, only: RKG => RK4
12519 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12520 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12521 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12522 real(RKG) , intent(in) :: alpha
12523 type(lowerUnit_type) , intent(in) :: classA
12524 type(transHerm_type) , intent(in) :: operationA
12525 end subroutine
12526#endif
12527
12528#if RK3_ENABLED
12529 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12531 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK3
12532#endif
12533 use pm_kind, only: RKG => RK3
12534 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12535 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12536 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12537 real(RKG) , intent(in) :: alpha
12538 type(lowerUnit_type) , intent(in) :: classA
12539 type(transHerm_type) , intent(in) :: operationA
12540 end subroutine
12541#endif
12542
12543#if RK2_ENABLED
12544 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12546 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK2
12547#endif
12548 use pm_kind, only: RKG => RK2
12549 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12550 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12551 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12552 real(RKG) , intent(in) :: alpha
12553 type(lowerUnit_type) , intent(in) :: classA
12554 type(transHerm_type) , intent(in) :: operationA
12555 end subroutine
12556#endif
12557
12558#if RK1_ENABLED
12559 PURE module subroutine trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12561 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CLUA_OTHA_CGMB_ONOB_RK1
12562#endif
12563 use pm_kind, only: RKG => RK1
12564 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12565 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12566 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12567 real(RKG) , intent(in) :: alpha
12568 type(lowerUnit_type) , intent(in) :: classA
12569 type(transHerm_type) , intent(in) :: operationA
12570 end subroutine
12571#endif
12572
12573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12574
12575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12578
12579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12582
12583 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12584
12585#if CK5_ENABLED
12586 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12588 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK5
12589#endif
12590 use pm_kind, only: CKG => CK5
12591 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12592 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12593 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12594 complex(CKG) , intent(in) :: alpha
12595 type(upperUnit_type) , intent(in) :: classA
12596 type(nothing_type) , intent(in) :: operationA
12597 end subroutine
12598#endif
12599
12600#if CK4_ENABLED
12601 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12603 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK4
12604#endif
12605 use pm_kind, only: CKG => CK4
12606 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12607 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12608 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12609 complex(CKG) , intent(in) :: alpha
12610 type(upperUnit_type) , intent(in) :: classA
12611 type(nothing_type) , intent(in) :: operationA
12612 end subroutine
12613#endif
12614
12615#if CK3_ENABLED
12616 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12618 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK3
12619#endif
12620 use pm_kind, only: CKG => CK3
12621 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12622 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12623 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12624 complex(CKG) , intent(in) :: alpha
12625 type(upperUnit_type) , intent(in) :: classA
12626 type(nothing_type) , intent(in) :: operationA
12627 end subroutine
12628#endif
12629
12630#if CK2_ENABLED
12631 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12633 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK2
12634#endif
12635 use pm_kind, only: CKG => CK2
12636 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12637 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12638 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12639 complex(CKG) , intent(in) :: alpha
12640 type(upperUnit_type) , intent(in) :: classA
12641 type(nothing_type) , intent(in) :: operationA
12642 end subroutine
12643#endif
12644
12645#if CK1_ENABLED
12646 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12648 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_CK1
12649#endif
12650 use pm_kind, only: CKG => CK1
12651 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12652 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12653 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12654 complex(CKG) , intent(in) :: alpha
12655 type(upperUnit_type) , intent(in) :: classA
12656 type(nothing_type) , intent(in) :: operationA
12657 end subroutine
12658#endif
12659
12660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12661
12662#if RK5_ENABLED
12663 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12665 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK5
12666#endif
12667 use pm_kind, only: RKG => RK5
12668 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12669 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12670 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12671 real(RKG) , intent(in) :: alpha
12672 type(upperUnit_type) , intent(in) :: classA
12673 type(nothing_type) , intent(in) :: operationA
12674 end subroutine
12675#endif
12676
12677#if RK4_ENABLED
12678 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12680 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK4
12681#endif
12682 use pm_kind, only: RKG => RK4
12683 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12684 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12685 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12686 real(RKG) , intent(in) :: alpha
12687 type(upperUnit_type) , intent(in) :: classA
12688 type(nothing_type) , intent(in) :: operationA
12689 end subroutine
12690#endif
12691
12692#if RK3_ENABLED
12693 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12695 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK3
12696#endif
12697 use pm_kind, only: RKG => RK3
12698 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12699 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12700 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12701 real(RKG) , intent(in) :: alpha
12702 type(upperUnit_type) , intent(in) :: classA
12703 type(nothing_type) , intent(in) :: operationA
12704 end subroutine
12705#endif
12706
12707#if RK2_ENABLED
12708 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12710 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK2
12711#endif
12712 use pm_kind, only: RKG => RK2
12713 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12714 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12715 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12716 real(RKG) , intent(in) :: alpha
12717 type(upperUnit_type) , intent(in) :: classA
12718 type(nothing_type) , intent(in) :: operationA
12719 end subroutine
12720#endif
12721
12722#if RK1_ENABLED
12723 PURE module subroutine trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12725 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_ONOA_CGMB_ONOB_RK1
12726#endif
12727 use pm_kind, only: RKG => RK1
12728 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12729 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12730 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12731 real(RKG) , intent(in) :: alpha
12732 type(upperUnit_type) , intent(in) :: classA
12733 type(nothing_type) , intent(in) :: operationA
12734 end subroutine
12735#endif
12736
12737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12738
12739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12742
12743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12744
12745#if CK5_ENABLED
12746 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12748 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK5
12749#endif
12750 use pm_kind, only: CKG => CK5
12751 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12752 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12753 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12754 complex(CKG) , intent(in) :: alpha
12755 type(upperUnit_type) , intent(in) :: classA
12756 type(transSymm_type) , intent(in) :: operationA
12757 end subroutine
12758#endif
12759
12760#if CK4_ENABLED
12761 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12763 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK4
12764#endif
12765 use pm_kind, only: CKG => CK4
12766 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12767 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12768 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12769 complex(CKG) , intent(in) :: alpha
12770 type(upperUnit_type) , intent(in) :: classA
12771 type(transSymm_type) , intent(in) :: operationA
12772 end subroutine
12773#endif
12774
12775#if CK3_ENABLED
12776 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12778 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK3
12779#endif
12780 use pm_kind, only: CKG => CK3
12781 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12782 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12783 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12784 complex(CKG) , intent(in) :: alpha
12785 type(upperUnit_type) , intent(in) :: classA
12786 type(transSymm_type) , intent(in) :: operationA
12787 end subroutine
12788#endif
12789
12790#if CK2_ENABLED
12791 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12793 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK2
12794#endif
12795 use pm_kind, only: CKG => CK2
12796 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12797 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12798 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12799 complex(CKG) , intent(in) :: alpha
12800 type(upperUnit_type) , intent(in) :: classA
12801 type(transSymm_type) , intent(in) :: operationA
12802 end subroutine
12803#endif
12804
12805#if CK1_ENABLED
12806 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12808 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_CK1
12809#endif
12810 use pm_kind, only: CKG => CK1
12811 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12812 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12813 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12814 complex(CKG) , intent(in) :: alpha
12815 type(upperUnit_type) , intent(in) :: classA
12816 type(transSymm_type) , intent(in) :: operationA
12817 end subroutine
12818#endif
12819
12820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12821
12822#if RK5_ENABLED
12823 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12825 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK5
12826#endif
12827 use pm_kind, only: RKG => RK5
12828 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12829 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12830 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12831 real(RKG) , intent(in) :: alpha
12832 type(upperUnit_type) , intent(in) :: classA
12833 type(transSymm_type) , intent(in) :: operationA
12834 end subroutine
12835#endif
12836
12837#if RK4_ENABLED
12838 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12840 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK4
12841#endif
12842 use pm_kind, only: RKG => RK4
12843 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12844 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12845 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12846 real(RKG) , intent(in) :: alpha
12847 type(upperUnit_type) , intent(in) :: classA
12848 type(transSymm_type) , intent(in) :: operationA
12849 end subroutine
12850#endif
12851
12852#if RK3_ENABLED
12853 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12855 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK3
12856#endif
12857 use pm_kind, only: RKG => RK3
12858 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12859 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12860 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12861 real(RKG) , intent(in) :: alpha
12862 type(upperUnit_type) , intent(in) :: classA
12863 type(transSymm_type) , intent(in) :: operationA
12864 end subroutine
12865#endif
12866
12867#if RK2_ENABLED
12868 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12870 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK2
12871#endif
12872 use pm_kind, only: RKG => RK2
12873 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12874 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12875 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12876 real(RKG) , intent(in) :: alpha
12877 type(upperUnit_type) , intent(in) :: classA
12878 type(transSymm_type) , intent(in) :: operationA
12879 end subroutine
12880#endif
12881
12882#if RK1_ENABLED
12883 PURE module subroutine trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12885 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTSA_CGMB_ONOB_RK1
12886#endif
12887 use pm_kind, only: RKG => RK1
12888 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12889 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12890 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12891 real(RKG) , intent(in) :: alpha
12892 type(upperUnit_type) , intent(in) :: classA
12893 type(transSymm_type) , intent(in) :: operationA
12894 end subroutine
12895#endif
12896
12897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12898
12899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12902
12903 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12904
12905#if CK5_ENABLED
12906 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12908 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK5
12909#endif
12910 use pm_kind, only: CKG => CK5
12911 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12912 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12913 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12914 complex(CKG) , intent(in) :: alpha
12915 type(upperUnit_type) , intent(in) :: classA
12916 type(transHerm_type) , intent(in) :: operationA
12917 end subroutine
12918#endif
12919
12920#if CK4_ENABLED
12921 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12923 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK4
12924#endif
12925 use pm_kind, only: CKG => CK4
12926 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12927 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12928 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12929 complex(CKG) , intent(in) :: alpha
12930 type(upperUnit_type) , intent(in) :: classA
12931 type(transHerm_type) , intent(in) :: operationA
12932 end subroutine
12933#endif
12934
12935#if CK3_ENABLED
12936 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12938 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK3
12939#endif
12940 use pm_kind, only: CKG => CK3
12941 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12942 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12943 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12944 complex(CKG) , intent(in) :: alpha
12945 type(upperUnit_type) , intent(in) :: classA
12946 type(transHerm_type) , intent(in) :: operationA
12947 end subroutine
12948#endif
12949
12950#if CK2_ENABLED
12951 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12953 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK2
12954#endif
12955 use pm_kind, only: CKG => CK2
12956 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12957 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12958 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12959 complex(CKG) , intent(in) :: alpha
12960 type(upperUnit_type) , intent(in) :: classA
12961 type(transHerm_type) , intent(in) :: operationA
12962 end subroutine
12963#endif
12964
12965#if CK1_ENABLED
12966 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12968 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_CK1
12969#endif
12970 use pm_kind, only: CKG => CK1
12971 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12972 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12973 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12974 complex(CKG) , intent(in) :: alpha
12975 type(upperUnit_type) , intent(in) :: classA
12976 type(transHerm_type) , intent(in) :: operationA
12977 end subroutine
12978#endif
12979
12980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12981
12982#if RK5_ENABLED
12983 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12985 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK5
12986#endif
12987 use pm_kind, only: RKG => RK5
12988 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
12989 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
12990 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
12991 real(RKG) , intent(in) :: alpha
12992 type(upperUnit_type) , intent(in) :: classA
12993 type(transHerm_type) , intent(in) :: operationA
12994 end subroutine
12995#endif
12996
12997#if RK4_ENABLED
12998 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
12999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13000 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK4
13001#endif
13002 use pm_kind, only: RKG => RK4
13003 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13004 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13005 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13006 real(RKG) , intent(in) :: alpha
13007 type(upperUnit_type) , intent(in) :: classA
13008 type(transHerm_type) , intent(in) :: operationA
13009 end subroutine
13010#endif
13011
13012#if RK3_ENABLED
13013 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13015 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK3
13016#endif
13017 use pm_kind, only: RKG => RK3
13018 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13019 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13020 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13021 real(RKG) , intent(in) :: alpha
13022 type(upperUnit_type) , intent(in) :: classA
13023 type(transHerm_type) , intent(in) :: operationA
13024 end subroutine
13025#endif
13026
13027#if RK2_ENABLED
13028 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13030 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK2
13031#endif
13032 use pm_kind, only: RKG => RK2
13033 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13034 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13035 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13036 real(RKG) , intent(in) :: alpha
13037 type(upperUnit_type) , intent(in) :: classA
13038 type(transHerm_type) , intent(in) :: operationA
13039 end subroutine
13040#endif
13041
13042#if RK1_ENABLED
13043 PURE module subroutine trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13045 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CUUA_OTHA_CGMB_ONOB_RK1
13046#endif
13047 use pm_kind, only: RKG => RK1
13048 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13049 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13050 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13051 real(RKG) , intent(in) :: alpha
13052 type(upperUnit_type) , intent(in) :: classA
13053 type(transHerm_type) , intent(in) :: operationA
13054 end subroutine
13055#endif
13056
13057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13058
13059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13062
13063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13066
13067 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13068 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13069 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13070
13071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13072
13073#if CK5_ENABLED
13074 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK5
13077#endif
13078 use pm_kind, only: CKG => CK5
13079 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13080 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13081 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13082 complex(CKG) , intent(in) :: alpha
13083 type(lowerDiag_type) , intent(in) :: classB
13084 type(nothing_type) , intent(in) :: operationB
13085 end subroutine
13086#endif
13087
13088#if CK4_ENABLED
13089 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13091 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK4
13092#endif
13093 use pm_kind, only: CKG => CK4
13094 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13095 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13096 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13097 complex(CKG) , intent(in) :: alpha
13098 type(lowerDiag_type) , intent(in) :: classB
13099 type(nothing_type) , intent(in) :: operationB
13100 end subroutine
13101#endif
13102
13103#if CK3_ENABLED
13104 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13106 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK3
13107#endif
13108 use pm_kind, only: CKG => CK3
13109 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13110 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13111 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13112 complex(CKG) , intent(in) :: alpha
13113 type(lowerDiag_type) , intent(in) :: classB
13114 type(nothing_type) , intent(in) :: operationB
13115 end subroutine
13116#endif
13117
13118#if CK2_ENABLED
13119 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13121 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK2
13122#endif
13123 use pm_kind, only: CKG => CK2
13124 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13125 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13126 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13127 complex(CKG) , intent(in) :: alpha
13128 type(lowerDiag_type) , intent(in) :: classB
13129 type(nothing_type) , intent(in) :: operationB
13130 end subroutine
13131#endif
13132
13133#if CK1_ENABLED
13134 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13136 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_CK1
13137#endif
13138 use pm_kind, only: CKG => CK1
13139 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13140 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13141 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13142 complex(CKG) , intent(in) :: alpha
13143 type(lowerDiag_type) , intent(in) :: classB
13144 type(nothing_type) , intent(in) :: operationB
13145 end subroutine
13146#endif
13147
13148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13149
13150#if RK5_ENABLED
13151 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13153 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK5
13154#endif
13155 use pm_kind, only: RKG => RK5
13156 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13157 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13158 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13159 real(RKG) , intent(in) :: alpha
13160 type(lowerDiag_type) , intent(in) :: classB
13161 type(nothing_type) , intent(in) :: operationB
13162 end subroutine
13163#endif
13164
13165#if RK4_ENABLED
13166 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13168 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK4
13169#endif
13170 use pm_kind, only: RKG => RK4
13171 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13172 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13173 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13174 real(RKG) , intent(in) :: alpha
13175 type(lowerDiag_type) , intent(in) :: classB
13176 type(nothing_type) , intent(in) :: operationB
13177 end subroutine
13178#endif
13179
13180#if RK3_ENABLED
13181 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13183 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK3
13184#endif
13185 use pm_kind, only: RKG => RK3
13186 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13187 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13188 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13189 real(RKG) , intent(in) :: alpha
13190 type(lowerDiag_type) , intent(in) :: classB
13191 type(nothing_type) , intent(in) :: operationB
13192 end subroutine
13193#endif
13194
13195#if RK2_ENABLED
13196 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13198 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK2
13199#endif
13200 use pm_kind, only: RKG => RK2
13201 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13202 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13203 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13204 real(RKG) , intent(in) :: alpha
13205 type(lowerDiag_type) , intent(in) :: classB
13206 type(nothing_type) , intent(in) :: operationB
13207 end subroutine
13208#endif
13209
13210#if RK1_ENABLED
13211 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13213 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_ONOB_RK1
13214#endif
13215 use pm_kind, only: RKG => RK1
13216 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13217 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13218 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13219 real(RKG) , intent(in) :: alpha
13220 type(lowerDiag_type) , intent(in) :: classB
13221 type(nothing_type) , intent(in) :: operationB
13222 end subroutine
13223#endif
13224
13225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13226
13227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13230
13231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13232
13233#if CK5_ENABLED
13234 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13236 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK5
13237#endif
13238 use pm_kind, only: CKG => CK5
13239 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13240 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13241 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13242 complex(CKG) , intent(in) :: alpha
13243 type(lowerDiag_type) , intent(in) :: classB
13244 type(transSymm_type) , intent(in) :: operationB
13245 end subroutine
13246#endif
13247
13248#if CK4_ENABLED
13249 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13251 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK4
13252#endif
13253 use pm_kind, only: CKG => CK4
13254 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13255 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13256 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13257 complex(CKG) , intent(in) :: alpha
13258 type(lowerDiag_type) , intent(in) :: classB
13259 type(transSymm_type) , intent(in) :: operationB
13260 end subroutine
13261#endif
13262
13263#if CK3_ENABLED
13264 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13266 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK3
13267#endif
13268 use pm_kind, only: CKG => CK3
13269 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13270 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13271 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13272 complex(CKG) , intent(in) :: alpha
13273 type(lowerDiag_type) , intent(in) :: classB
13274 type(transSymm_type) , intent(in) :: operationB
13275 end subroutine
13276#endif
13277
13278#if CK2_ENABLED
13279 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13281 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK2
13282#endif
13283 use pm_kind, only: CKG => CK2
13284 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13285 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13286 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13287 complex(CKG) , intent(in) :: alpha
13288 type(lowerDiag_type) , intent(in) :: classB
13289 type(transSymm_type) , intent(in) :: operationB
13290 end subroutine
13291#endif
13292
13293#if CK1_ENABLED
13294 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13296 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_CK1
13297#endif
13298 use pm_kind, only: CKG => CK1
13299 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13300 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13301 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13302 complex(CKG) , intent(in) :: alpha
13303 type(lowerDiag_type) , intent(in) :: classB
13304 type(transSymm_type) , intent(in) :: operationB
13305 end subroutine
13306#endif
13307
13308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13309
13310#if RK5_ENABLED
13311 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13313 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK5
13314#endif
13315 use pm_kind, only: RKG => RK5
13316 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13317 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13318 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13319 real(RKG) , intent(in) :: alpha
13320 type(lowerDiag_type) , intent(in) :: classB
13321 type(transSymm_type) , intent(in) :: operationB
13322 end subroutine
13323#endif
13324
13325#if RK4_ENABLED
13326 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13328 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK4
13329#endif
13330 use pm_kind, only: RKG => RK4
13331 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13332 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13333 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13334 real(RKG) , intent(in) :: alpha
13335 type(lowerDiag_type) , intent(in) :: classB
13336 type(transSymm_type) , intent(in) :: operationB
13337 end subroutine
13338#endif
13339
13340#if RK3_ENABLED
13341 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13343 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK3
13344#endif
13345 use pm_kind, only: RKG => RK3
13346 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13347 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13348 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13349 real(RKG) , intent(in) :: alpha
13350 type(lowerDiag_type) , intent(in) :: classB
13351 type(transSymm_type) , intent(in) :: operationB
13352 end subroutine
13353#endif
13354
13355#if RK2_ENABLED
13356 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13358 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK2
13359#endif
13360 use pm_kind, only: RKG => RK2
13361 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13362 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13363 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13364 real(RKG) , intent(in) :: alpha
13365 type(lowerDiag_type) , intent(in) :: classB
13366 type(transSymm_type) , intent(in) :: operationB
13367 end subroutine
13368#endif
13369
13370#if RK1_ENABLED
13371 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13373 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTSB_RK1
13374#endif
13375 use pm_kind, only: RKG => RK1
13376 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13377 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13378 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13379 real(RKG) , intent(in) :: alpha
13380 type(lowerDiag_type) , intent(in) :: classB
13381 type(transSymm_type) , intent(in) :: operationB
13382 end subroutine
13383#endif
13384
13385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13386
13387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13390
13391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13392
13393#if CK5_ENABLED
13394 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13396 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK5
13397#endif
13398 use pm_kind, only: CKG => CK5
13399 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13400 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13401 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13402 complex(CKG) , intent(in) :: alpha
13403 type(lowerDiag_type) , intent(in) :: classB
13404 type(transHerm_type) , intent(in) :: operationB
13405 end subroutine
13406#endif
13407
13408#if CK4_ENABLED
13409 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13411 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK4
13412#endif
13413 use pm_kind, only: CKG => CK4
13414 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13415 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13416 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13417 complex(CKG) , intent(in) :: alpha
13418 type(lowerDiag_type) , intent(in) :: classB
13419 type(transHerm_type) , intent(in) :: operationB
13420 end subroutine
13421#endif
13422
13423#if CK3_ENABLED
13424 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13426 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK3
13427#endif
13428 use pm_kind, only: CKG => CK3
13429 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13430 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13431 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13432 complex(CKG) , intent(in) :: alpha
13433 type(lowerDiag_type) , intent(in) :: classB
13434 type(transHerm_type) , intent(in) :: operationB
13435 end subroutine
13436#endif
13437
13438#if CK2_ENABLED
13439 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13441 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK2
13442#endif
13443 use pm_kind, only: CKG => CK2
13444 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13445 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13446 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13447 complex(CKG) , intent(in) :: alpha
13448 type(lowerDiag_type) , intent(in) :: classB
13449 type(transHerm_type) , intent(in) :: operationB
13450 end subroutine
13451#endif
13452
13453#if CK1_ENABLED
13454 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13456 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_CK1
13457#endif
13458 use pm_kind, only: CKG => CK1
13459 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13460 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13461 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13462 complex(CKG) , intent(in) :: alpha
13463 type(lowerDiag_type) , intent(in) :: classB
13464 type(transHerm_type) , intent(in) :: operationB
13465 end subroutine
13466#endif
13467
13468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13469
13470#if RK5_ENABLED
13471 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13473 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK5
13474#endif
13475 use pm_kind, only: RKG => RK5
13476 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13477 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13478 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13479 real(RKG) , intent(in) :: alpha
13480 type(lowerDiag_type) , intent(in) :: classB
13481 type(transHerm_type) , intent(in) :: operationB
13482 end subroutine
13483#endif
13484
13485#if RK4_ENABLED
13486 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13488 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK4
13489#endif
13490 use pm_kind, only: RKG => RK4
13491 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13492 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13493 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13494 real(RKG) , intent(in) :: alpha
13495 type(lowerDiag_type) , intent(in) :: classB
13496 type(transHerm_type) , intent(in) :: operationB
13497 end subroutine
13498#endif
13499
13500#if RK3_ENABLED
13501 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13503 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK3
13504#endif
13505 use pm_kind, only: RKG => RK3
13506 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13507 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13508 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13509 real(RKG) , intent(in) :: alpha
13510 type(lowerDiag_type) , intent(in) :: classB
13511 type(transHerm_type) , intent(in) :: operationB
13512 end subroutine
13513#endif
13514
13515#if RK2_ENABLED
13516 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13518 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK2
13519#endif
13520 use pm_kind, only: RKG => RK2
13521 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13522 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13523 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13524 real(RKG) , intent(in) :: alpha
13525 type(lowerDiag_type) , intent(in) :: classB
13526 type(transHerm_type) , intent(in) :: operationB
13527 end subroutine
13528#endif
13529
13530#if RK1_ENABLED
13531 PURE module subroutine trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13533 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLDB_OTHB_RK1
13534#endif
13535 use pm_kind, only: RKG => RK1
13536 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13537 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13538 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13539 real(RKG) , intent(in) :: alpha
13540 type(lowerDiag_type) , intent(in) :: classB
13541 type(transHerm_type) , intent(in) :: operationB
13542 end subroutine
13543#endif
13544
13545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13546
13547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13550
13551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13554
13555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13556
13557#if CK5_ENABLED
13558 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13560 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK5
13561#endif
13562 use pm_kind, only: CKG => CK5
13563 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13564 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13565 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13566 complex(CKG) , intent(in) :: alpha
13567 type(upperDiag_type) , intent(in) :: classB
13568 type(nothing_type) , intent(in) :: operationB
13569 end subroutine
13570#endif
13571
13572#if CK4_ENABLED
13573 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13575 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK4
13576#endif
13577 use pm_kind, only: CKG => CK4
13578 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13579 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13580 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13581 complex(CKG) , intent(in) :: alpha
13582 type(upperDiag_type) , intent(in) :: classB
13583 type(nothing_type) , intent(in) :: operationB
13584 end subroutine
13585#endif
13586
13587#if CK3_ENABLED
13588 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13590 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK3
13591#endif
13592 use pm_kind, only: CKG => CK3
13593 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13594 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13595 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13596 complex(CKG) , intent(in) :: alpha
13597 type(upperDiag_type) , intent(in) :: classB
13598 type(nothing_type) , intent(in) :: operationB
13599 end subroutine
13600#endif
13601
13602#if CK2_ENABLED
13603 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13605 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK2
13606#endif
13607 use pm_kind, only: CKG => CK2
13608 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13609 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13610 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13611 complex(CKG) , intent(in) :: alpha
13612 type(upperDiag_type) , intent(in) :: classB
13613 type(nothing_type) , intent(in) :: operationB
13614 end subroutine
13615#endif
13616
13617#if CK1_ENABLED
13618 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13620 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_CK1
13621#endif
13622 use pm_kind, only: CKG => CK1
13623 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13624 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13625 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13626 complex(CKG) , intent(in) :: alpha
13627 type(upperDiag_type) , intent(in) :: classB
13628 type(nothing_type) , intent(in) :: operationB
13629 end subroutine
13630#endif
13631
13632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13633
13634#if RK5_ENABLED
13635 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13637 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK5
13638#endif
13639 use pm_kind, only: RKG => RK5
13640 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13641 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13642 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13643 real(RKG) , intent(in) :: alpha
13644 type(upperDiag_type) , intent(in) :: classB
13645 type(nothing_type) , intent(in) :: operationB
13646 end subroutine
13647#endif
13648
13649#if RK4_ENABLED
13650 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13652 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK4
13653#endif
13654 use pm_kind, only: RKG => RK4
13655 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13656 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13657 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13658 real(RKG) , intent(in) :: alpha
13659 type(upperDiag_type) , intent(in) :: classB
13660 type(nothing_type) , intent(in) :: operationB
13661 end subroutine
13662#endif
13663
13664#if RK3_ENABLED
13665 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13667 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK3
13668#endif
13669 use pm_kind, only: RKG => RK3
13670 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13671 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13672 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13673 real(RKG) , intent(in) :: alpha
13674 type(upperDiag_type) , intent(in) :: classB
13675 type(nothing_type) , intent(in) :: operationB
13676 end subroutine
13677#endif
13678
13679#if RK2_ENABLED
13680 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13682 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK2
13683#endif
13684 use pm_kind, only: RKG => RK2
13685 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13686 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13687 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13688 real(RKG) , intent(in) :: alpha
13689 type(upperDiag_type) , intent(in) :: classB
13690 type(nothing_type) , intent(in) :: operationB
13691 end subroutine
13692#endif
13693
13694#if RK1_ENABLED
13695 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13697 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_ONOB_RK1
13698#endif
13699 use pm_kind, only: RKG => RK1
13700 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13701 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13702 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13703 real(RKG) , intent(in) :: alpha
13704 type(upperDiag_type) , intent(in) :: classB
13705 type(nothing_type) , intent(in) :: operationB
13706 end subroutine
13707#endif
13708
13709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13710
13711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13714
13715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13716
13717#if CK5_ENABLED
13718 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13720 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK5
13721#endif
13722 use pm_kind, only: CKG => CK5
13723 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13724 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13725 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13726 complex(CKG) , intent(in) :: alpha
13727 type(upperDiag_type) , intent(in) :: classB
13728 type(transSymm_type) , intent(in) :: operationB
13729 end subroutine
13730#endif
13731
13732#if CK4_ENABLED
13733 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13735 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK4
13736#endif
13737 use pm_kind, only: CKG => CK4
13738 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13739 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13740 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13741 complex(CKG) , intent(in) :: alpha
13742 type(upperDiag_type) , intent(in) :: classB
13743 type(transSymm_type) , intent(in) :: operationB
13744 end subroutine
13745#endif
13746
13747#if CK3_ENABLED
13748 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13750 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK3
13751#endif
13752 use pm_kind, only: CKG => CK3
13753 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13754 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13755 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13756 complex(CKG) , intent(in) :: alpha
13757 type(upperDiag_type) , intent(in) :: classB
13758 type(transSymm_type) , intent(in) :: operationB
13759 end subroutine
13760#endif
13761
13762#if CK2_ENABLED
13763 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13765 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK2
13766#endif
13767 use pm_kind, only: CKG => CK2
13768 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13769 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13770 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13771 complex(CKG) , intent(in) :: alpha
13772 type(upperDiag_type) , intent(in) :: classB
13773 type(transSymm_type) , intent(in) :: operationB
13774 end subroutine
13775#endif
13776
13777#if CK1_ENABLED
13778 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13780 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_CK1
13781#endif
13782 use pm_kind, only: CKG => CK1
13783 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13784 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13785 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13786 complex(CKG) , intent(in) :: alpha
13787 type(upperDiag_type) , intent(in) :: classB
13788 type(transSymm_type) , intent(in) :: operationB
13789 end subroutine
13790#endif
13791
13792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13793
13794#if RK5_ENABLED
13795 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13797 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK5
13798#endif
13799 use pm_kind, only: RKG => RK5
13800 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13801 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13802 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13803 real(RKG) , intent(in) :: alpha
13804 type(upperDiag_type) , intent(in) :: classB
13805 type(transSymm_type) , intent(in) :: operationB
13806 end subroutine
13807#endif
13808
13809#if RK4_ENABLED
13810 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13812 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK4
13813#endif
13814 use pm_kind, only: RKG => RK4
13815 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13816 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13817 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13818 real(RKG) , intent(in) :: alpha
13819 type(upperDiag_type) , intent(in) :: classB
13820 type(transSymm_type) , intent(in) :: operationB
13821 end subroutine
13822#endif
13823
13824#if RK3_ENABLED
13825 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13827 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK3
13828#endif
13829 use pm_kind, only: RKG => RK3
13830 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13831 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13832 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13833 real(RKG) , intent(in) :: alpha
13834 type(upperDiag_type) , intent(in) :: classB
13835 type(transSymm_type) , intent(in) :: operationB
13836 end subroutine
13837#endif
13838
13839#if RK2_ENABLED
13840 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13842 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK2
13843#endif
13844 use pm_kind, only: RKG => RK2
13845 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13846 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13847 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13848 real(RKG) , intent(in) :: alpha
13849 type(upperDiag_type) , intent(in) :: classB
13850 type(transSymm_type) , intent(in) :: operationB
13851 end subroutine
13852#endif
13853
13854#if RK1_ENABLED
13855 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13857 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTSB_RK1
13858#endif
13859 use pm_kind, only: RKG => RK1
13860 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13861 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13862 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13863 real(RKG) , intent(in) :: alpha
13864 type(upperDiag_type) , intent(in) :: classB
13865 type(transSymm_type) , intent(in) :: operationB
13866 end subroutine
13867#endif
13868
13869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13870
13871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13872 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13873 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13874
13875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13876
13877#if CK5_ENABLED
13878 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13880 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK5
13881#endif
13882 use pm_kind, only: CKG => CK5
13883 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13884 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13885 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13886 complex(CKG) , intent(in) :: alpha
13887 type(upperDiag_type) , intent(in) :: classB
13888 type(transHerm_type) , intent(in) :: operationB
13889 end subroutine
13890#endif
13891
13892#if CK4_ENABLED
13893 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13895 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK4
13896#endif
13897 use pm_kind, only: CKG => CK4
13898 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13899 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13900 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13901 complex(CKG) , intent(in) :: alpha
13902 type(upperDiag_type) , intent(in) :: classB
13903 type(transHerm_type) , intent(in) :: operationB
13904 end subroutine
13905#endif
13906
13907#if CK3_ENABLED
13908 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13910 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK3
13911#endif
13912 use pm_kind, only: CKG => CK3
13913 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13914 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13915 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13916 complex(CKG) , intent(in) :: alpha
13917 type(upperDiag_type) , intent(in) :: classB
13918 type(transHerm_type) , intent(in) :: operationB
13919 end subroutine
13920#endif
13921
13922#if CK2_ENABLED
13923 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13925 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK2
13926#endif
13927 use pm_kind, only: CKG => CK2
13928 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13929 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13930 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13931 complex(CKG) , intent(in) :: alpha
13932 type(upperDiag_type) , intent(in) :: classB
13933 type(transHerm_type) , intent(in) :: operationB
13934 end subroutine
13935#endif
13936
13937#if CK1_ENABLED
13938 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13940 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_CK1
13941#endif
13942 use pm_kind, only: CKG => CK1
13943 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13944 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13945 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13946 complex(CKG) , intent(in) :: alpha
13947 type(upperDiag_type) , intent(in) :: classB
13948 type(transHerm_type) , intent(in) :: operationB
13949 end subroutine
13950#endif
13951
13952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13953
13954#if RK5_ENABLED
13955 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13957 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK5
13958#endif
13959 use pm_kind, only: RKG => RK5
13960 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13961 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13962 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13963 real(RKG) , intent(in) :: alpha
13964 type(upperDiag_type) , intent(in) :: classB
13965 type(transHerm_type) , intent(in) :: operationB
13966 end subroutine
13967#endif
13968
13969#if RK4_ENABLED
13970 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13972 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK4
13973#endif
13974 use pm_kind, only: RKG => RK4
13975 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13976 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13977 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13978 real(RKG) , intent(in) :: alpha
13979 type(upperDiag_type) , intent(in) :: classB
13980 type(transHerm_type) , intent(in) :: operationB
13981 end subroutine
13982#endif
13983
13984#if RK3_ENABLED
13985 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
13986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13987 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK3
13988#endif
13989 use pm_kind, only: RKG => RK3
13990 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
13991 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
13992 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
13993 real(RKG) , intent(in) :: alpha
13994 type(upperDiag_type) , intent(in) :: classB
13995 type(transHerm_type) , intent(in) :: operationB
13996 end subroutine
13997#endif
13998
13999#if RK2_ENABLED
14000 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14002 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK2
14003#endif
14004 use pm_kind, only: RKG => RK2
14005 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14006 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14007 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14008 real(RKG) , intent(in) :: alpha
14009 type(upperDiag_type) , intent(in) :: classB
14010 type(transHerm_type) , intent(in) :: operationB
14011 end subroutine
14012#endif
14013
14014#if RK1_ENABLED
14015 PURE module subroutine trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14017 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUDB_OTHB_RK1
14018#endif
14019 use pm_kind, only: RKG => RK1
14020 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14021 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14022 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14023 real(RKG) , intent(in) :: alpha
14024 type(upperDiag_type) , intent(in) :: classB
14025 type(transHerm_type) , intent(in) :: operationB
14026 end subroutine
14027#endif
14028
14029 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14030
14031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14032 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14034
14035 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14038
14039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14040
14041#if CK5_ENABLED
14042 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14044 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK5
14045#endif
14046 use pm_kind, only: CKG => CK5
14047 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14048 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14049 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14050 complex(CKG) , intent(in) :: alpha
14051 type(lowerUnit_type) , intent(in) :: classB
14052 type(nothing_type) , intent(in) :: operationB
14053 end subroutine
14054#endif
14055
14056#if CK4_ENABLED
14057 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14059 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK4
14060#endif
14061 use pm_kind, only: CKG => CK4
14062 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14063 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14064 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14065 complex(CKG) , intent(in) :: alpha
14066 type(lowerUnit_type) , intent(in) :: classB
14067 type(nothing_type) , intent(in) :: operationB
14068 end subroutine
14069#endif
14070
14071#if CK3_ENABLED
14072 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14074 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK3
14075#endif
14076 use pm_kind, only: CKG => CK3
14077 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14078 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14079 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14080 complex(CKG) , intent(in) :: alpha
14081 type(lowerUnit_type) , intent(in) :: classB
14082 type(nothing_type) , intent(in) :: operationB
14083 end subroutine
14084#endif
14085
14086#if CK2_ENABLED
14087 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14089 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK2
14090#endif
14091 use pm_kind, only: CKG => CK2
14092 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14093 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14094 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14095 complex(CKG) , intent(in) :: alpha
14096 type(lowerUnit_type) , intent(in) :: classB
14097 type(nothing_type) , intent(in) :: operationB
14098 end subroutine
14099#endif
14100
14101#if CK1_ENABLED
14102 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14104 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_CK1
14105#endif
14106 use pm_kind, only: CKG => CK1
14107 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14108 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14109 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14110 complex(CKG) , intent(in) :: alpha
14111 type(lowerUnit_type) , intent(in) :: classB
14112 type(nothing_type) , intent(in) :: operationB
14113 end subroutine
14114#endif
14115
14116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14117
14118#if RK5_ENABLED
14119 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14121 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK5
14122#endif
14123 use pm_kind, only: RKG => RK5
14124 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14125 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14126 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14127 real(RKG) , intent(in) :: alpha
14128 type(lowerUnit_type) , intent(in) :: classB
14129 type(nothing_type) , intent(in) :: operationB
14130 end subroutine
14131#endif
14132
14133#if RK4_ENABLED
14134 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14136 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK4
14137#endif
14138 use pm_kind, only: RKG => RK4
14139 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14140 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14141 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14142 real(RKG) , intent(in) :: alpha
14143 type(lowerUnit_type) , intent(in) :: classB
14144 type(nothing_type) , intent(in) :: operationB
14145 end subroutine
14146#endif
14147
14148#if RK3_ENABLED
14149 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14151 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK3
14152#endif
14153 use pm_kind, only: RKG => RK3
14154 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14155 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14156 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14157 real(RKG) , intent(in) :: alpha
14158 type(lowerUnit_type) , intent(in) :: classB
14159 type(nothing_type) , intent(in) :: operationB
14160 end subroutine
14161#endif
14162
14163#if RK2_ENABLED
14164 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14166 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK2
14167#endif
14168 use pm_kind, only: RKG => RK2
14169 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14170 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14171 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14172 real(RKG) , intent(in) :: alpha
14173 type(lowerUnit_type) , intent(in) :: classB
14174 type(nothing_type) , intent(in) :: operationB
14175 end subroutine
14176#endif
14177
14178#if RK1_ENABLED
14179 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14181 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_ONOB_RK1
14182#endif
14183 use pm_kind, only: RKG => RK1
14184 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14185 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14186 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14187 real(RKG) , intent(in) :: alpha
14188 type(lowerUnit_type) , intent(in) :: classB
14189 type(nothing_type) , intent(in) :: operationB
14190 end subroutine
14191#endif
14192
14193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14194
14195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14196 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14198
14199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14200
14201#if CK5_ENABLED
14202 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14204 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK5
14205#endif
14206 use pm_kind, only: CKG => CK5
14207 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14208 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14209 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14210 complex(CKG) , intent(in) :: alpha
14211 type(lowerUnit_type) , intent(in) :: classB
14212 type(transSymm_type) , intent(in) :: operationB
14213 end subroutine
14214#endif
14215
14216#if CK4_ENABLED
14217 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14219 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK4
14220#endif
14221 use pm_kind, only: CKG => CK4
14222 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14223 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14224 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14225 complex(CKG) , intent(in) :: alpha
14226 type(lowerUnit_type) , intent(in) :: classB
14227 type(transSymm_type) , intent(in) :: operationB
14228 end subroutine
14229#endif
14230
14231#if CK3_ENABLED
14232 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14234 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK3
14235#endif
14236 use pm_kind, only: CKG => CK3
14237 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14238 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14239 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14240 complex(CKG) , intent(in) :: alpha
14241 type(lowerUnit_type) , intent(in) :: classB
14242 type(transSymm_type) , intent(in) :: operationB
14243 end subroutine
14244#endif
14245
14246#if CK2_ENABLED
14247 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14249 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK2
14250#endif
14251 use pm_kind, only: CKG => CK2
14252 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14253 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14254 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14255 complex(CKG) , intent(in) :: alpha
14256 type(lowerUnit_type) , intent(in) :: classB
14257 type(transSymm_type) , intent(in) :: operationB
14258 end subroutine
14259#endif
14260
14261#if CK1_ENABLED
14262 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_CK1
14265#endif
14266 use pm_kind, only: CKG => CK1
14267 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14268 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14269 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14270 complex(CKG) , intent(in) :: alpha
14271 type(lowerUnit_type) , intent(in) :: classB
14272 type(transSymm_type) , intent(in) :: operationB
14273 end subroutine
14274#endif
14275
14276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14277
14278#if RK5_ENABLED
14279 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14281 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK5
14282#endif
14283 use pm_kind, only: RKG => RK5
14284 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14285 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14286 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14287 real(RKG) , intent(in) :: alpha
14288 type(lowerUnit_type) , intent(in) :: classB
14289 type(transSymm_type) , intent(in) :: operationB
14290 end subroutine
14291#endif
14292
14293#if RK4_ENABLED
14294 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14296 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK4
14297#endif
14298 use pm_kind, only: RKG => RK4
14299 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14300 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14301 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14302 real(RKG) , intent(in) :: alpha
14303 type(lowerUnit_type) , intent(in) :: classB
14304 type(transSymm_type) , intent(in) :: operationB
14305 end subroutine
14306#endif
14307
14308#if RK3_ENABLED
14309 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14311 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK3
14312#endif
14313 use pm_kind, only: RKG => RK3
14314 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14315 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14316 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14317 real(RKG) , intent(in) :: alpha
14318 type(lowerUnit_type) , intent(in) :: classB
14319 type(transSymm_type) , intent(in) :: operationB
14320 end subroutine
14321#endif
14322
14323#if RK2_ENABLED
14324 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14326 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK2
14327#endif
14328 use pm_kind, only: RKG => RK2
14329 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14330 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14331 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14332 real(RKG) , intent(in) :: alpha
14333 type(lowerUnit_type) , intent(in) :: classB
14334 type(transSymm_type) , intent(in) :: operationB
14335 end subroutine
14336#endif
14337
14338#if RK1_ENABLED
14339 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14341 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTSB_RK1
14342#endif
14343 use pm_kind, only: RKG => RK1
14344 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14345 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14346 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14347 real(RKG) , intent(in) :: alpha
14348 type(lowerUnit_type) , intent(in) :: classB
14349 type(transSymm_type) , intent(in) :: operationB
14350 end subroutine
14351#endif
14352
14353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14354
14355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14358
14359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14360
14361#if CK5_ENABLED
14362 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14364 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK5
14365#endif
14366 use pm_kind, only: CKG => CK5
14367 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14368 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14369 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14370 complex(CKG) , intent(in) :: alpha
14371 type(lowerUnit_type) , intent(in) :: classB
14372 type(transHerm_type) , intent(in) :: operationB
14373 end subroutine
14374#endif
14375
14376#if CK4_ENABLED
14377 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14379 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK4
14380#endif
14381 use pm_kind, only: CKG => CK4
14382 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14383 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14384 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14385 complex(CKG) , intent(in) :: alpha
14386 type(lowerUnit_type) , intent(in) :: classB
14387 type(transHerm_type) , intent(in) :: operationB
14388 end subroutine
14389#endif
14390
14391#if CK3_ENABLED
14392 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14394 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK3
14395#endif
14396 use pm_kind, only: CKG => CK3
14397 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14398 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14399 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14400 complex(CKG) , intent(in) :: alpha
14401 type(lowerUnit_type) , intent(in) :: classB
14402 type(transHerm_type) , intent(in) :: operationB
14403 end subroutine
14404#endif
14405
14406#if CK2_ENABLED
14407 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14409 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK2
14410#endif
14411 use pm_kind, only: CKG => CK2
14412 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14413 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14414 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14415 complex(CKG) , intent(in) :: alpha
14416 type(lowerUnit_type) , intent(in) :: classB
14417 type(transHerm_type) , intent(in) :: operationB
14418 end subroutine
14419#endif
14420
14421#if CK1_ENABLED
14422 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14424 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_CK1
14425#endif
14426 use pm_kind, only: CKG => CK1
14427 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14428 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14429 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14430 complex(CKG) , intent(in) :: alpha
14431 type(lowerUnit_type) , intent(in) :: classB
14432 type(transHerm_type) , intent(in) :: operationB
14433 end subroutine
14434#endif
14435
14436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14437
14438#if RK5_ENABLED
14439 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14441 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK5
14442#endif
14443 use pm_kind, only: RKG => RK5
14444 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14445 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14446 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14447 real(RKG) , intent(in) :: alpha
14448 type(lowerUnit_type) , intent(in) :: classB
14449 type(transHerm_type) , intent(in) :: operationB
14450 end subroutine
14451#endif
14452
14453#if RK4_ENABLED
14454 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14456 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK4
14457#endif
14458 use pm_kind, only: RKG => RK4
14459 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14460 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14461 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14462 real(RKG) , intent(in) :: alpha
14463 type(lowerUnit_type) , intent(in) :: classB
14464 type(transHerm_type) , intent(in) :: operationB
14465 end subroutine
14466#endif
14467
14468#if RK3_ENABLED
14469 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14471 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK3
14472#endif
14473 use pm_kind, only: RKG => RK3
14474 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14475 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14476 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14477 real(RKG) , intent(in) :: alpha
14478 type(lowerUnit_type) , intent(in) :: classB
14479 type(transHerm_type) , intent(in) :: operationB
14480 end subroutine
14481#endif
14482
14483#if RK2_ENABLED
14484 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14486 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK2
14487#endif
14488 use pm_kind, only: RKG => RK2
14489 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14490 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14491 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14492 real(RKG) , intent(in) :: alpha
14493 type(lowerUnit_type) , intent(in) :: classB
14494 type(transHerm_type) , intent(in) :: operationB
14495 end subroutine
14496#endif
14497
14498#if RK1_ENABLED
14499 PURE module subroutine trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14501 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CLUB_OTHB_RK1
14502#endif
14503 use pm_kind, only: RKG => RK1
14504 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14505 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14506 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14507 real(RKG) , intent(in) :: alpha
14508 type(lowerUnit_type) , intent(in) :: classB
14509 type(transHerm_type) , intent(in) :: operationB
14510 end subroutine
14511#endif
14512
14513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14514
14515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14518
14519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14522
14523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14524
14525#if CK5_ENABLED
14526 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14528 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK5
14529#endif
14530 use pm_kind, only: CKG => CK5
14531 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14532 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14533 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14534 complex(CKG) , intent(in) :: alpha
14535 type(upperUnit_type) , intent(in) :: classB
14536 type(nothing_type) , intent(in) :: operationB
14537 end subroutine
14538#endif
14539
14540#if CK4_ENABLED
14541 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14543 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK4
14544#endif
14545 use pm_kind, only: CKG => CK4
14546 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14547 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14548 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14549 complex(CKG) , intent(in) :: alpha
14550 type(upperUnit_type) , intent(in) :: classB
14551 type(nothing_type) , intent(in) :: operationB
14552 end subroutine
14553#endif
14554
14555#if CK3_ENABLED
14556 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14558 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK3
14559#endif
14560 use pm_kind, only: CKG => CK3
14561 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14562 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14563 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14564 complex(CKG) , intent(in) :: alpha
14565 type(upperUnit_type) , intent(in) :: classB
14566 type(nothing_type) , intent(in) :: operationB
14567 end subroutine
14568#endif
14569
14570#if CK2_ENABLED
14571 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14573 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK2
14574#endif
14575 use pm_kind, only: CKG => CK2
14576 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14577 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14578 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14579 complex(CKG) , intent(in) :: alpha
14580 type(upperUnit_type) , intent(in) :: classB
14581 type(nothing_type) , intent(in) :: operationB
14582 end subroutine
14583#endif
14584
14585#if CK1_ENABLED
14586 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14588 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_CK1
14589#endif
14590 use pm_kind, only: CKG => CK1
14591 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14592 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14593 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14594 complex(CKG) , intent(in) :: alpha
14595 type(upperUnit_type) , intent(in) :: classB
14596 type(nothing_type) , intent(in) :: operationB
14597 end subroutine
14598#endif
14599
14600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14601
14602#if RK5_ENABLED
14603 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14605 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK5
14606#endif
14607 use pm_kind, only: RKG => RK5
14608 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14609 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14610 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14611 real(RKG) , intent(in) :: alpha
14612 type(upperUnit_type) , intent(in) :: classB
14613 type(nothing_type) , intent(in) :: operationB
14614 end subroutine
14615#endif
14616
14617#if RK4_ENABLED
14618 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14620 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK4
14621#endif
14622 use pm_kind, only: RKG => RK4
14623 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14624 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14625 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14626 real(RKG) , intent(in) :: alpha
14627 type(upperUnit_type) , intent(in) :: classB
14628 type(nothing_type) , intent(in) :: operationB
14629 end subroutine
14630#endif
14631
14632#if RK3_ENABLED
14633 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14635 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK3
14636#endif
14637 use pm_kind, only: RKG => RK3
14638 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14639 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14640 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14641 real(RKG) , intent(in) :: alpha
14642 type(upperUnit_type) , intent(in) :: classB
14643 type(nothing_type) , intent(in) :: operationB
14644 end subroutine
14645#endif
14646
14647#if RK2_ENABLED
14648 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14650 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK2
14651#endif
14652 use pm_kind, only: RKG => RK2
14653 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14654 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14655 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14656 real(RKG) , intent(in) :: alpha
14657 type(upperUnit_type) , intent(in) :: classB
14658 type(nothing_type) , intent(in) :: operationB
14659 end subroutine
14660#endif
14661
14662#if RK1_ENABLED
14663 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14665 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_ONOB_RK1
14666#endif
14667 use pm_kind, only: RKG => RK1
14668 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14669 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14670 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14671 real(RKG) , intent(in) :: alpha
14672 type(upperUnit_type) , intent(in) :: classB
14673 type(nothing_type) , intent(in) :: operationB
14674 end subroutine
14675#endif
14676
14677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14678
14679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14682
14683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14684
14685#if CK5_ENABLED
14686 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14688 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK5
14689#endif
14690 use pm_kind, only: CKG => CK5
14691 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14692 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14693 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14694 complex(CKG) , intent(in) :: alpha
14695 type(upperUnit_type) , intent(in) :: classB
14696 type(transSymm_type) , intent(in) :: operationB
14697 end subroutine
14698#endif
14699
14700#if CK4_ENABLED
14701 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14703 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK4
14704#endif
14705 use pm_kind, only: CKG => CK4
14706 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14707 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14708 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14709 complex(CKG) , intent(in) :: alpha
14710 type(upperUnit_type) , intent(in) :: classB
14711 type(transSymm_type) , intent(in) :: operationB
14712 end subroutine
14713#endif
14714
14715#if CK3_ENABLED
14716 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14718 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK3
14719#endif
14720 use pm_kind, only: CKG => CK3
14721 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14722 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14723 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14724 complex(CKG) , intent(in) :: alpha
14725 type(upperUnit_type) , intent(in) :: classB
14726 type(transSymm_type) , intent(in) :: operationB
14727 end subroutine
14728#endif
14729
14730#if CK2_ENABLED
14731 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14733 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK2
14734#endif
14735 use pm_kind, only: CKG => CK2
14736 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14737 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14738 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14739 complex(CKG) , intent(in) :: alpha
14740 type(upperUnit_type) , intent(in) :: classB
14741 type(transSymm_type) , intent(in) :: operationB
14742 end subroutine
14743#endif
14744
14745#if CK1_ENABLED
14746 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14748 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_CK1
14749#endif
14750 use pm_kind, only: CKG => CK1
14751 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14752 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14753 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14754 complex(CKG) , intent(in) :: alpha
14755 type(upperUnit_type) , intent(in) :: classB
14756 type(transSymm_type) , intent(in) :: operationB
14757 end subroutine
14758#endif
14759
14760 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14761
14762#if RK5_ENABLED
14763 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14765 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK5
14766#endif
14767 use pm_kind, only: RKG => RK5
14768 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14769 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14770 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14771 real(RKG) , intent(in) :: alpha
14772 type(upperUnit_type) , intent(in) :: classB
14773 type(transSymm_type) , intent(in) :: operationB
14774 end subroutine
14775#endif
14776
14777#if RK4_ENABLED
14778 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14780 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK4
14781#endif
14782 use pm_kind, only: RKG => RK4
14783 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14784 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14785 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14786 real(RKG) , intent(in) :: alpha
14787 type(upperUnit_type) , intent(in) :: classB
14788 type(transSymm_type) , intent(in) :: operationB
14789 end subroutine
14790#endif
14791
14792#if RK3_ENABLED
14793 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14795 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK3
14796#endif
14797 use pm_kind, only: RKG => RK3
14798 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14799 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14800 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14801 real(RKG) , intent(in) :: alpha
14802 type(upperUnit_type) , intent(in) :: classB
14803 type(transSymm_type) , intent(in) :: operationB
14804 end subroutine
14805#endif
14806
14807#if RK2_ENABLED
14808 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK2
14811#endif
14812 use pm_kind, only: RKG => RK2
14813 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14814 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14815 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14816 real(RKG) , intent(in) :: alpha
14817 type(upperUnit_type) , intent(in) :: classB
14818 type(transSymm_type) , intent(in) :: operationB
14819 end subroutine
14820#endif
14821
14822#if RK1_ENABLED
14823 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14825 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTSB_RK1
14826#endif
14827 use pm_kind, only: RKG => RK1
14828 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14829 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14830 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14831 real(RKG) , intent(in) :: alpha
14832 type(upperUnit_type) , intent(in) :: classB
14833 type(transSymm_type) , intent(in) :: operationB
14834 end subroutine
14835#endif
14836
14837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14838
14839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14842
14843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14844
14845#if CK5_ENABLED
14846 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14848 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK5
14849#endif
14850 use pm_kind, only: CKG => CK5
14851 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14852 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14853 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14854 complex(CKG) , intent(in) :: alpha
14855 type(upperUnit_type) , intent(in) :: classB
14856 type(transHerm_type) , intent(in) :: operationB
14857 end subroutine
14858#endif
14859
14860#if CK4_ENABLED
14861 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14863 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK4
14864#endif
14865 use pm_kind, only: CKG => CK4
14866 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14867 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14868 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14869 complex(CKG) , intent(in) :: alpha
14870 type(upperUnit_type) , intent(in) :: classB
14871 type(transHerm_type) , intent(in) :: operationB
14872 end subroutine
14873#endif
14874
14875#if CK3_ENABLED
14876 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14878 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK3
14879#endif
14880 use pm_kind, only: CKG => CK3
14881 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14882 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14883 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14884 complex(CKG) , intent(in) :: alpha
14885 type(upperUnit_type) , intent(in) :: classB
14886 type(transHerm_type) , intent(in) :: operationB
14887 end subroutine
14888#endif
14889
14890#if CK2_ENABLED
14891 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14893 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK2
14894#endif
14895 use pm_kind, only: CKG => CK2
14896 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14897 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14898 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14899 complex(CKG) , intent(in) :: alpha
14900 type(upperUnit_type) , intent(in) :: classB
14901 type(transHerm_type) , intent(in) :: operationB
14902 end subroutine
14903#endif
14904
14905#if CK1_ENABLED
14906 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14908 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_CK1
14909#endif
14910 use pm_kind, only: CKG => CK1
14911 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14912 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14913 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14914 complex(CKG) , intent(in) :: alpha
14915 type(upperUnit_type) , intent(in) :: classB
14916 type(transHerm_type) , intent(in) :: operationB
14917 end subroutine
14918#endif
14919
14920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14921
14922#if RK5_ENABLED
14923 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14925 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK5
14926#endif
14927 use pm_kind, only: RKG => RK5
14928 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14929 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14930 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14931 real(RKG) , intent(in) :: alpha
14932 type(upperUnit_type) , intent(in) :: classB
14933 type(transHerm_type) , intent(in) :: operationB
14934 end subroutine
14935#endif
14936
14937#if RK4_ENABLED
14938 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14940 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK4
14941#endif
14942 use pm_kind, only: RKG => RK4
14943 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14944 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14945 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14946 real(RKG) , intent(in) :: alpha
14947 type(upperUnit_type) , intent(in) :: classB
14948 type(transHerm_type) , intent(in) :: operationB
14949 end subroutine
14950#endif
14951
14952#if RK3_ENABLED
14953 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14955 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK3
14956#endif
14957 use pm_kind, only: RKG => RK3
14958 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14959 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14960 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14961 real(RKG) , intent(in) :: alpha
14962 type(upperUnit_type) , intent(in) :: classB
14963 type(transHerm_type) , intent(in) :: operationB
14964 end subroutine
14965#endif
14966
14967#if RK2_ENABLED
14968 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14970 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK2
14971#endif
14972 use pm_kind, only: RKG => RK2
14973 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14974 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14975 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14976 real(RKG) , intent(in) :: alpha
14977 type(upperUnit_type) , intent(in) :: classB
14978 type(transHerm_type) , intent(in) :: operationB
14979 end subroutine
14980#endif
14981
14982#if RK1_ENABLED
14983 PURE module subroutine trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
14984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14985 !DEC$ ATTRIBUTES DLLEXPORT :: trmm_EXP_CGMA_ONOA_CUUB_OTHB_RK1
14986#endif
14987 use pm_kind, only: RKG => RK1
14988 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
14989 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
14990 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
14991 real(RKG) , intent(in) :: alpha
14992 type(upperUnit_type) , intent(in) :: classB
14993 type(transHerm_type) , intent(in) :: operationB
14994 end subroutine
14995#endif
14996
14997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14998
14999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15002
15003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15006
15007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15010
15011 end interface
15012
15013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15016
15017 ! BLAS LEVEL 3 - `STRSM`, `DTRSM`, `CTRSM`, and `ZTRSM`
15018
15019 interface setMatMulTri
15020
15021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15022 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15024
15025 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15026 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15028
15029 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15030 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15032
15033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15034
15035#if CK5_ENABLED
15036 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15038 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_CK5
15039#endif
15040 use pm_kind, only: CKG => CK5
15041 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15042 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15043 complex(CKG) , intent(in) , optional :: alpha
15044 type(lowerDiag_type) , intent(in) :: classA
15045 type(inversion_type) , intent(in) :: operationA
15046 end subroutine
15047#endif
15048
15049#if CK4_ENABLED
15050 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15052 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_CK4
15053#endif
15054 use pm_kind, only: CKG => CK4
15055 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15056 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15057 complex(CKG) , intent(in) , optional :: alpha
15058 type(lowerDiag_type) , intent(in) :: classA
15059 type(inversion_type) , intent(in) :: operationA
15060 end subroutine
15061#endif
15062
15063#if CK3_ENABLED
15064 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15066 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_CK3
15067#endif
15068 use pm_kind, only: CKG => CK3
15069 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15070 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15071 complex(CKG) , intent(in) , optional :: alpha
15072 type(lowerDiag_type) , intent(in) :: classA
15073 type(inversion_type) , intent(in) :: operationA
15074 end subroutine
15075#endif
15076
15077#if CK2_ENABLED
15078 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15080 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_CK2
15081#endif
15082 use pm_kind, only: CKG => CK2
15083 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15084 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15085 complex(CKG) , intent(in) , optional :: alpha
15086 type(lowerDiag_type) , intent(in) :: classA
15087 type(inversion_type) , intent(in) :: operationA
15088 end subroutine
15089#endif
15090
15091#if CK1_ENABLED
15092 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15094 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_CK1
15095#endif
15096 use pm_kind, only: CKG => CK1
15097 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15098 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15099 complex(CKG) , intent(in) , optional :: alpha
15100 type(lowerDiag_type) , intent(in) :: classA
15101 type(inversion_type) , intent(in) :: operationA
15102 end subroutine
15103#endif
15104
15105 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15106
15107#if RK5_ENABLED
15108 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15110 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_RK5
15111#endif
15112 use pm_kind, only: RKG => RK5
15113 real(RKG) , intent(in) , contiguous :: matA(:,:)
15114 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15115 real(RKG) , intent(in) , optional :: alpha
15116 type(lowerDiag_type) , intent(in) :: classA
15117 type(inversion_type) , intent(in) :: operationA
15118 end subroutine
15119#endif
15120
15121#if RK4_ENABLED
15122 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15124 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_RK4
15125#endif
15126 use pm_kind, only: RKG => RK4
15127 real(RKG) , intent(in) , contiguous :: matA(:,:)
15128 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15129 real(RKG) , intent(in) , optional :: alpha
15130 type(lowerDiag_type) , intent(in) :: classA
15131 type(inversion_type) , intent(in) :: operationA
15132 end subroutine
15133#endif
15134
15135#if RK3_ENABLED
15136 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15138 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_RK3
15139#endif
15140 use pm_kind, only: RKG => RK3
15141 real(RKG) , intent(in) , contiguous :: matA(:,:)
15142 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15143 real(RKG) , intent(in) , optional :: alpha
15144 type(lowerDiag_type) , intent(in) :: classA
15145 type(inversion_type) , intent(in) :: operationA
15146 end subroutine
15147#endif
15148
15149#if RK2_ENABLED
15150 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15152 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_RK2
15153#endif
15154 use pm_kind, only: RKG => RK2
15155 real(RKG) , intent(in) , contiguous :: matA(:,:)
15156 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15157 real(RKG) , intent(in) , optional :: alpha
15158 type(lowerDiag_type) , intent(in) :: classA
15159 type(inversion_type) , intent(in) :: operationA
15160 end subroutine
15161#endif
15162
15163#if RK1_ENABLED
15164 PURE module subroutine trsm_ASS_CLDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15166 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_INVA_CGMB_ONOB_RK1
15167#endif
15168 use pm_kind, only: RKG => RK1
15169 real(RKG) , intent(in) , contiguous :: matA(:,:)
15170 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15171 real(RKG) , intent(in) , optional :: alpha
15172 type(lowerDiag_type) , intent(in) :: classA
15173 type(inversion_type) , intent(in) :: operationA
15174 end subroutine
15175#endif
15176
15177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15178
15179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15182
15183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15184
15185#if CK5_ENABLED
15186 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15188 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK5
15189#endif
15190 use pm_kind, only: CKG => CK5
15191 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15192 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15193 complex(CKG) , intent(in) , optional :: alpha
15194 type(lowerDiag_type) , intent(in) :: classA
15195 type(transOrth_type) , intent(in) :: operationA
15196 end subroutine
15197#endif
15198
15199#if CK4_ENABLED
15200 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15202 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK4
15203#endif
15204 use pm_kind, only: CKG => CK4
15205 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15206 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15207 complex(CKG) , intent(in) , optional :: alpha
15208 type(lowerDiag_type) , intent(in) :: classA
15209 type(transOrth_type) , intent(in) :: operationA
15210 end subroutine
15211#endif
15212
15213#if CK3_ENABLED
15214 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15216 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK3
15217#endif
15218 use pm_kind, only: CKG => CK3
15219 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15220 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15221 complex(CKG) , intent(in) , optional :: alpha
15222 type(lowerDiag_type) , intent(in) :: classA
15223 type(transOrth_type) , intent(in) :: operationA
15224 end subroutine
15225#endif
15226
15227#if CK2_ENABLED
15228 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15230 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK2
15231#endif
15232 use pm_kind, only: CKG => CK2
15233 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15234 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15235 complex(CKG) , intent(in) , optional :: alpha
15236 type(lowerDiag_type) , intent(in) :: classA
15237 type(transOrth_type) , intent(in) :: operationA
15238 end subroutine
15239#endif
15240
15241#if CK1_ENABLED
15242 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15244 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_CK1
15245#endif
15246 use pm_kind, only: CKG => CK1
15247 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15248 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15249 complex(CKG) , intent(in) , optional :: alpha
15250 type(lowerDiag_type) , intent(in) :: classA
15251 type(transOrth_type) , intent(in) :: operationA
15252 end subroutine
15253#endif
15254
15255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15256
15257#if RK5_ENABLED
15258 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15260 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK5
15261#endif
15262 use pm_kind, only: RKG => RK5
15263 real(RKG) , intent(in) , contiguous :: matA(:,:)
15264 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15265 real(RKG) , intent(in) , optional :: alpha
15266 type(lowerDiag_type) , intent(in) :: classA
15267 type(transOrth_type) , intent(in) :: operationA
15268 end subroutine
15269#endif
15270
15271#if RK4_ENABLED
15272 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15274 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK4
15275#endif
15276 use pm_kind, only: RKG => RK4
15277 real(RKG) , intent(in) , contiguous :: matA(:,:)
15278 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15279 real(RKG) , intent(in) , optional :: alpha
15280 type(lowerDiag_type) , intent(in) :: classA
15281 type(transOrth_type) , intent(in) :: operationA
15282 end subroutine
15283#endif
15284
15285#if RK3_ENABLED
15286 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15288 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK3
15289#endif
15290 use pm_kind, only: RKG => RK3
15291 real(RKG) , intent(in) , contiguous :: matA(:,:)
15292 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15293 real(RKG) , intent(in) , optional :: alpha
15294 type(lowerDiag_type) , intent(in) :: classA
15295 type(transOrth_type) , intent(in) :: operationA
15296 end subroutine
15297#endif
15298
15299#if RK2_ENABLED
15300 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15302 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK2
15303#endif
15304 use pm_kind, only: RKG => RK2
15305 real(RKG) , intent(in) , contiguous :: matA(:,:)
15306 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15307 real(RKG) , intent(in) , optional :: alpha
15308 type(lowerDiag_type) , intent(in) :: classA
15309 type(transOrth_type) , intent(in) :: operationA
15310 end subroutine
15311#endif
15312
15313#if RK1_ENABLED
15314 PURE module subroutine trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15316 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTOA_CGMB_ONOB_RK1
15317#endif
15318 use pm_kind, only: RKG => RK1
15319 real(RKG) , intent(in) , contiguous :: matA(:,:)
15320 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15321 real(RKG) , intent(in) , optional :: alpha
15322 type(lowerDiag_type) , intent(in) :: classA
15323 type(transOrth_type) , intent(in) :: operationA
15324 end subroutine
15325#endif
15326
15327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15328
15329 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15332
15333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15334
15335#if CK5_ENABLED
15336 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15338 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK5
15339#endif
15340 use pm_kind, only: CKG => CK5
15341 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15342 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15343 complex(CKG) , intent(in) , optional :: alpha
15344 type(lowerDiag_type) , intent(in) :: classA
15345 type(transUnit_type) , intent(in) :: operationA
15346 end subroutine
15347#endif
15348
15349#if CK4_ENABLED
15350 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15352 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK4
15353#endif
15354 use pm_kind, only: CKG => CK4
15355 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15356 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15357 complex(CKG) , intent(in) , optional :: alpha
15358 type(lowerDiag_type) , intent(in) :: classA
15359 type(transUnit_type) , intent(in) :: operationA
15360 end subroutine
15361#endif
15362
15363#if CK3_ENABLED
15364 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15366 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK3
15367#endif
15368 use pm_kind, only: CKG => CK3
15369 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15370 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15371 complex(CKG) , intent(in) , optional :: alpha
15372 type(lowerDiag_type) , intent(in) :: classA
15373 type(transUnit_type) , intent(in) :: operationA
15374 end subroutine
15375#endif
15376
15377#if CK2_ENABLED
15378 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK2
15381#endif
15382 use pm_kind, only: CKG => CK2
15383 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15384 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15385 complex(CKG) , intent(in) , optional :: alpha
15386 type(lowerDiag_type) , intent(in) :: classA
15387 type(transUnit_type) , intent(in) :: operationA
15388 end subroutine
15389#endif
15390
15391#if CK1_ENABLED
15392 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15394 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_CK1
15395#endif
15396 use pm_kind, only: CKG => CK1
15397 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15398 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15399 complex(CKG) , intent(in) , optional :: alpha
15400 type(lowerDiag_type) , intent(in) :: classA
15401 type(transUnit_type) , intent(in) :: operationA
15402 end subroutine
15403#endif
15404
15405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15406
15407#if RK5_ENABLED
15408 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15410 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK5
15411#endif
15412 use pm_kind, only: RKG => RK5
15413 real(RKG) , intent(in) , contiguous :: matA(:,:)
15414 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15415 real(RKG) , intent(in) , optional :: alpha
15416 type(lowerDiag_type) , intent(in) :: classA
15417 type(transUnit_type) , intent(in) :: operationA
15418 end subroutine
15419#endif
15420
15421#if RK4_ENABLED
15422 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15424 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK4
15425#endif
15426 use pm_kind, only: RKG => RK4
15427 real(RKG) , intent(in) , contiguous :: matA(:,:)
15428 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15429 real(RKG) , intent(in) , optional :: alpha
15430 type(lowerDiag_type) , intent(in) :: classA
15431 type(transUnit_type) , intent(in) :: operationA
15432 end subroutine
15433#endif
15434
15435#if RK3_ENABLED
15436 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15438 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK3
15439#endif
15440 use pm_kind, only: RKG => RK3
15441 real(RKG) , intent(in) , contiguous :: matA(:,:)
15442 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15443 real(RKG) , intent(in) , optional :: alpha
15444 type(lowerDiag_type) , intent(in) :: classA
15445 type(transUnit_type) , intent(in) :: operationA
15446 end subroutine
15447#endif
15448
15449#if RK2_ENABLED
15450 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15452 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK2
15453#endif
15454 use pm_kind, only: RKG => RK2
15455 real(RKG) , intent(in) , contiguous :: matA(:,:)
15456 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15457 real(RKG) , intent(in) , optional :: alpha
15458 type(lowerDiag_type) , intent(in) :: classA
15459 type(transUnit_type) , intent(in) :: operationA
15460 end subroutine
15461#endif
15462
15463#if RK1_ENABLED
15464 PURE module subroutine trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15466 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLDA_OTUA_CGMB_ONOB_RK1
15467#endif
15468 use pm_kind, only: RKG => RK1
15469 real(RKG) , intent(in) , contiguous :: matA(:,:)
15470 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15471 real(RKG) , intent(in) , optional :: alpha
15472 type(lowerDiag_type) , intent(in) :: classA
15473 type(transUnit_type) , intent(in) :: operationA
15474 end subroutine
15475#endif
15476
15477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15478
15479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15482
15483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15486
15487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15488
15489#if CK5_ENABLED
15490 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_CK5
15493#endif
15494 use pm_kind, only: CKG => CK5
15495 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15496 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15497 complex(CKG) , intent(in) , optional :: alpha
15498 type(upperDiag_type) , intent(in) :: classA
15499 type(inversion_type) , intent(in) :: operationA
15500 end subroutine
15501#endif
15502
15503#if CK4_ENABLED
15504 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15506 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_CK4
15507#endif
15508 use pm_kind, only: CKG => CK4
15509 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15510 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15511 complex(CKG) , intent(in) , optional :: alpha
15512 type(upperDiag_type) , intent(in) :: classA
15513 type(inversion_type) , intent(in) :: operationA
15514 end subroutine
15515#endif
15516
15517#if CK3_ENABLED
15518 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15520 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_CK3
15521#endif
15522 use pm_kind, only: CKG => CK3
15523 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15524 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15525 complex(CKG) , intent(in) , optional :: alpha
15526 type(upperDiag_type) , intent(in) :: classA
15527 type(inversion_type) , intent(in) :: operationA
15528 end subroutine
15529#endif
15530
15531#if CK2_ENABLED
15532 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15534 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_CK2
15535#endif
15536 use pm_kind, only: CKG => CK2
15537 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15538 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15539 complex(CKG) , intent(in) , optional :: alpha
15540 type(upperDiag_type) , intent(in) :: classA
15541 type(inversion_type) , intent(in) :: operationA
15542 end subroutine
15543#endif
15544
15545#if CK1_ENABLED
15546 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15548 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_CK1
15549#endif
15550 use pm_kind, only: CKG => CK1
15551 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15552 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15553 complex(CKG) , intent(in) , optional :: alpha
15554 type(upperDiag_type) , intent(in) :: classA
15555 type(inversion_type) , intent(in) :: operationA
15556 end subroutine
15557#endif
15558
15559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15560
15561#if RK5_ENABLED
15562 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15564 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_RK5
15565#endif
15566 use pm_kind, only: RKG => RK5
15567 real(RKG) , intent(in) , contiguous :: matA(:,:)
15568 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15569 real(RKG) , intent(in) , optional :: alpha
15570 type(upperDiag_type) , intent(in) :: classA
15571 type(inversion_type) , intent(in) :: operationA
15572 end subroutine
15573#endif
15574
15575#if RK4_ENABLED
15576 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15578 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_RK4
15579#endif
15580 use pm_kind, only: RKG => RK4
15581 real(RKG) , intent(in) , contiguous :: matA(:,:)
15582 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15583 real(RKG) , intent(in) , optional :: alpha
15584 type(upperDiag_type) , intent(in) :: classA
15585 type(inversion_type) , intent(in) :: operationA
15586 end subroutine
15587#endif
15588
15589#if RK3_ENABLED
15590 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15592 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_RK3
15593#endif
15594 use pm_kind, only: RKG => RK3
15595 real(RKG) , intent(in) , contiguous :: matA(:,:)
15596 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15597 real(RKG) , intent(in) , optional :: alpha
15598 type(upperDiag_type) , intent(in) :: classA
15599 type(inversion_type) , intent(in) :: operationA
15600 end subroutine
15601#endif
15602
15603#if RK2_ENABLED
15604 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15606 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_RK2
15607#endif
15608 use pm_kind, only: RKG => RK2
15609 real(RKG) , intent(in) , contiguous :: matA(:,:)
15610 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15611 real(RKG) , intent(in) , optional :: alpha
15612 type(upperDiag_type) , intent(in) :: classA
15613 type(inversion_type) , intent(in) :: operationA
15614 end subroutine
15615#endif
15616
15617#if RK1_ENABLED
15618 PURE module subroutine trsm_ASS_CUDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15620 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_INVA_CGMB_ONOB_RK1
15621#endif
15622 use pm_kind, only: RKG => RK1
15623 real(RKG) , intent(in) , contiguous :: matA(:,:)
15624 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15625 real(RKG) , intent(in) , optional :: alpha
15626 type(upperDiag_type) , intent(in) :: classA
15627 type(inversion_type) , intent(in) :: operationA
15628 end subroutine
15629#endif
15630
15631 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15632
15633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15636
15637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15638
15639#if CK5_ENABLED
15640 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15642 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK5
15643#endif
15644 use pm_kind, only: CKG => CK5
15645 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15646 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15647 complex(CKG) , intent(in) , optional :: alpha
15648 type(upperDiag_type) , intent(in) :: classA
15649 type(transOrth_type) , intent(in) :: operationA
15650 end subroutine
15651#endif
15652
15653#if CK4_ENABLED
15654 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15656 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK4
15657#endif
15658 use pm_kind, only: CKG => CK4
15659 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15660 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15661 complex(CKG) , intent(in) , optional :: alpha
15662 type(upperDiag_type) , intent(in) :: classA
15663 type(transOrth_type) , intent(in) :: operationA
15664 end subroutine
15665#endif
15666
15667#if CK3_ENABLED
15668 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15670 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK3
15671#endif
15672 use pm_kind, only: CKG => CK3
15673 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15674 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15675 complex(CKG) , intent(in) , optional :: alpha
15676 type(upperDiag_type) , intent(in) :: classA
15677 type(transOrth_type) , intent(in) :: operationA
15678 end subroutine
15679#endif
15680
15681#if CK2_ENABLED
15682 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15684 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK2
15685#endif
15686 use pm_kind, only: CKG => CK2
15687 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15688 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15689 complex(CKG) , intent(in) , optional :: alpha
15690 type(upperDiag_type) , intent(in) :: classA
15691 type(transOrth_type) , intent(in) :: operationA
15692 end subroutine
15693#endif
15694
15695#if CK1_ENABLED
15696 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15698 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_CK1
15699#endif
15700 use pm_kind, only: CKG => CK1
15701 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15702 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15703 complex(CKG) , intent(in) , optional :: alpha
15704 type(upperDiag_type) , intent(in) :: classA
15705 type(transOrth_type) , intent(in) :: operationA
15706 end subroutine
15707#endif
15708
15709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15710
15711#if RK5_ENABLED
15712 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15714 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK5
15715#endif
15716 use pm_kind, only: RKG => RK5
15717 real(RKG) , intent(in) , contiguous :: matA(:,:)
15718 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15719 real(RKG) , intent(in) , optional :: alpha
15720 type(upperDiag_type) , intent(in) :: classA
15721 type(transOrth_type) , intent(in) :: operationA
15722 end subroutine
15723#endif
15724
15725#if RK4_ENABLED
15726 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15728 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK4
15729#endif
15730 use pm_kind, only: RKG => RK4
15731 real(RKG) , intent(in) , contiguous :: matA(:,:)
15732 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15733 real(RKG) , intent(in) , optional :: alpha
15734 type(upperDiag_type) , intent(in) :: classA
15735 type(transOrth_type) , intent(in) :: operationA
15736 end subroutine
15737#endif
15738
15739#if RK3_ENABLED
15740 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15742 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK3
15743#endif
15744 use pm_kind, only: RKG => RK3
15745 real(RKG) , intent(in) , contiguous :: matA(:,:)
15746 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15747 real(RKG) , intent(in) , optional :: alpha
15748 type(upperDiag_type) , intent(in) :: classA
15749 type(transOrth_type) , intent(in) :: operationA
15750 end subroutine
15751#endif
15752
15753#if RK2_ENABLED
15754 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15756 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK2
15757#endif
15758 use pm_kind, only: RKG => RK2
15759 real(RKG) , intent(in) , contiguous :: matA(:,:)
15760 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15761 real(RKG) , intent(in) , optional :: alpha
15762 type(upperDiag_type) , intent(in) :: classA
15763 type(transOrth_type) , intent(in) :: operationA
15764 end subroutine
15765#endif
15766
15767#if RK1_ENABLED
15768 PURE module subroutine trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15770 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTOA_CGMB_ONOB_RK1
15771#endif
15772 use pm_kind, only: RKG => RK1
15773 real(RKG) , intent(in) , contiguous :: matA(:,:)
15774 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15775 real(RKG) , intent(in) , optional :: alpha
15776 type(upperDiag_type) , intent(in) :: classA
15777 type(transOrth_type) , intent(in) :: operationA
15778 end subroutine
15779#endif
15780
15781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15782
15783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15786
15787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15788
15789#if CK5_ENABLED
15790 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15792 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK5
15793#endif
15794 use pm_kind, only: CKG => CK5
15795 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15796 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15797 complex(CKG) , intent(in) , optional :: alpha
15798 type(upperDiag_type) , intent(in) :: classA
15799 type(transUnit_type) , intent(in) :: operationA
15800 end subroutine
15801#endif
15802
15803#if CK4_ENABLED
15804 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15806 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK4
15807#endif
15808 use pm_kind, only: CKG => CK4
15809 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15810 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15811 complex(CKG) , intent(in) , optional :: alpha
15812 type(upperDiag_type) , intent(in) :: classA
15813 type(transUnit_type) , intent(in) :: operationA
15814 end subroutine
15815#endif
15816
15817#if CK3_ENABLED
15818 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15820 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK3
15821#endif
15822 use pm_kind, only: CKG => CK3
15823 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15824 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15825 complex(CKG) , intent(in) , optional :: alpha
15826 type(upperDiag_type) , intent(in) :: classA
15827 type(transUnit_type) , intent(in) :: operationA
15828 end subroutine
15829#endif
15830
15831#if CK2_ENABLED
15832 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15834 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK2
15835#endif
15836 use pm_kind, only: CKG => CK2
15837 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15838 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15839 complex(CKG) , intent(in) , optional :: alpha
15840 type(upperDiag_type) , intent(in) :: classA
15841 type(transUnit_type) , intent(in) :: operationA
15842 end subroutine
15843#endif
15844
15845#if CK1_ENABLED
15846 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
15847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15848 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_CK1
15849#endif
15850 use pm_kind, only: CKG => CK1
15851 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15852 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15853 complex(CKG) , intent(in) , optional :: alpha
15854 type(upperDiag_type) , intent(in) :: classA
15855 type(transUnit_type) , intent(in) :: operationA
15856 end subroutine
15857#endif
15858
15859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15860
15861#if RK5_ENABLED
15862 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
15863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15864 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK5
15865#endif
15866 use pm_kind, only: RKG => RK5
15867 real(RKG) , intent(in) , contiguous :: matA(:,:)
15868 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15869 real(RKG) , intent(in) , optional :: alpha
15870 type(upperDiag_type) , intent(in) :: classA
15871 type(transUnit_type) , intent(in) :: operationA
15872 end subroutine
15873#endif
15874
15875#if RK4_ENABLED
15876 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
15877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15878 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK4
15879#endif
15880 use pm_kind, only: RKG => RK4
15881 real(RKG) , intent(in) , contiguous :: matA(:,:)
15882 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15883 real(RKG) , intent(in) , optional :: alpha
15884 type(upperDiag_type) , intent(in) :: classA
15885 type(transUnit_type) , intent(in) :: operationA
15886 end subroutine
15887#endif
15888
15889#if RK3_ENABLED
15890 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
15891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15892 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK3
15893#endif
15894 use pm_kind, only: RKG => RK3
15895 real(RKG) , intent(in) , contiguous :: matA(:,:)
15896 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15897 real(RKG) , intent(in) , optional :: alpha
15898 type(upperDiag_type) , intent(in) :: classA
15899 type(transUnit_type) , intent(in) :: operationA
15900 end subroutine
15901#endif
15902
15903#if RK2_ENABLED
15904 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
15905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15906 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK2
15907#endif
15908 use pm_kind, only: RKG => RK2
15909 real(RKG) , intent(in) , contiguous :: matA(:,:)
15910 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15911 real(RKG) , intent(in) , optional :: alpha
15912 type(upperDiag_type) , intent(in) :: classA
15913 type(transUnit_type) , intent(in) :: operationA
15914 end subroutine
15915#endif
15916
15917#if RK1_ENABLED
15918 PURE module subroutine trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
15919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15920 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUDA_OTUA_CGMB_ONOB_RK1
15921#endif
15922 use pm_kind, only: RKG => RK1
15923 real(RKG) , intent(in) , contiguous :: matA(:,:)
15924 real(RKG) , intent(inout) , contiguous :: matB(:,:)
15925 real(RKG) , intent(in) , optional :: alpha
15926 type(upperDiag_type) , intent(in) :: classA
15927 type(transUnit_type) , intent(in) :: operationA
15928 end subroutine
15929#endif
15930
15931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15932
15933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15936
15937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15940
15941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15942
15943#if CK5_ENABLED
15944 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
15945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15946 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_CK5
15947#endif
15948 use pm_kind, only: CKG => CK5
15949 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15950 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15951 complex(CKG) , intent(in) , optional :: alpha
15952 type(lowerUnit_type) , intent(in) :: classA
15953 type(inversion_type) , intent(in) :: operationA
15954 end subroutine
15955#endif
15956
15957#if CK4_ENABLED
15958 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
15959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15960 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_CK4
15961#endif
15962 use pm_kind, only: CKG => CK4
15963 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15964 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15965 complex(CKG) , intent(in) , optional :: alpha
15966 type(lowerUnit_type) , intent(in) :: classA
15967 type(inversion_type) , intent(in) :: operationA
15968 end subroutine
15969#endif
15970
15971#if CK3_ENABLED
15972 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
15973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15974 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_CK3
15975#endif
15976 use pm_kind, only: CKG => CK3
15977 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15978 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15979 complex(CKG) , intent(in) , optional :: alpha
15980 type(lowerUnit_type) , intent(in) :: classA
15981 type(inversion_type) , intent(in) :: operationA
15982 end subroutine
15983#endif
15984
15985#if CK2_ENABLED
15986 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
15987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15988 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_CK2
15989#endif
15990 use pm_kind, only: CKG => CK2
15991 complex(CKG) , intent(in) , contiguous :: matA(:,:)
15992 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
15993 complex(CKG) , intent(in) , optional :: alpha
15994 type(lowerUnit_type) , intent(in) :: classA
15995 type(inversion_type) , intent(in) :: operationA
15996 end subroutine
15997#endif
15998
15999#if CK1_ENABLED
16000 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16002 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_CK1
16003#endif
16004 use pm_kind, only: CKG => CK1
16005 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16006 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16007 complex(CKG) , intent(in) , optional :: alpha
16008 type(lowerUnit_type) , intent(in) :: classA
16009 type(inversion_type) , intent(in) :: operationA
16010 end subroutine
16011#endif
16012
16013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16014
16015#if RK5_ENABLED
16016 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16018 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_RK5
16019#endif
16020 use pm_kind, only: RKG => RK5
16021 real(RKG) , intent(in) , contiguous :: matA(:,:)
16022 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16023 real(RKG) , intent(in) , optional :: alpha
16024 type(lowerUnit_type) , intent(in) :: classA
16025 type(inversion_type) , intent(in) :: operationA
16026 end subroutine
16027#endif
16028
16029#if RK4_ENABLED
16030 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16032 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_RK4
16033#endif
16034 use pm_kind, only: RKG => RK4
16035 real(RKG) , intent(in) , contiguous :: matA(:,:)
16036 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16037 real(RKG) , intent(in) , optional :: alpha
16038 type(lowerUnit_type) , intent(in) :: classA
16039 type(inversion_type) , intent(in) :: operationA
16040 end subroutine
16041#endif
16042
16043#if RK3_ENABLED
16044 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16046 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_RK3
16047#endif
16048 use pm_kind, only: RKG => RK3
16049 real(RKG) , intent(in) , contiguous :: matA(:,:)
16050 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16051 real(RKG) , intent(in) , optional :: alpha
16052 type(lowerUnit_type) , intent(in) :: classA
16053 type(inversion_type) , intent(in) :: operationA
16054 end subroutine
16055#endif
16056
16057#if RK2_ENABLED
16058 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_RK2
16061#endif
16062 use pm_kind, only: RKG => RK2
16063 real(RKG) , intent(in) , contiguous :: matA(:,:)
16064 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16065 real(RKG) , intent(in) , optional :: alpha
16066 type(lowerUnit_type) , intent(in) :: classA
16067 type(inversion_type) , intent(in) :: operationA
16068 end subroutine
16069#endif
16070
16071#if RK1_ENABLED
16072 PURE module subroutine trsm_ASS_CLUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16074 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_INVA_CGMB_ONOB_RK1
16075#endif
16076 use pm_kind, only: RKG => RK1
16077 real(RKG) , intent(in) , contiguous :: matA(:,:)
16078 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16079 real(RKG) , intent(in) , optional :: alpha
16080 type(lowerUnit_type) , intent(in) :: classA
16081 type(inversion_type) , intent(in) :: operationA
16082 end subroutine
16083#endif
16084
16085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16086
16087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16090
16091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16092
16093#if CK5_ENABLED
16094 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
16095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16096 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK5
16097#endif
16098 use pm_kind, only: CKG => CK5
16099 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16100 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16101 complex(CKG) , intent(in) , optional :: alpha
16102 type(lowerUnit_type) , intent(in) :: classA
16103 type(transOrth_type) , intent(in) :: operationA
16104 end subroutine
16105#endif
16106
16107#if CK4_ENABLED
16108 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
16109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16110 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK4
16111#endif
16112 use pm_kind, only: CKG => CK4
16113 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16114 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16115 complex(CKG) , intent(in) , optional :: alpha
16116 type(lowerUnit_type) , intent(in) :: classA
16117 type(transOrth_type) , intent(in) :: operationA
16118 end subroutine
16119#endif
16120
16121#if CK3_ENABLED
16122 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
16123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16124 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK3
16125#endif
16126 use pm_kind, only: CKG => CK3
16127 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16128 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16129 complex(CKG) , intent(in) , optional :: alpha
16130 type(lowerUnit_type) , intent(in) :: classA
16131 type(transOrth_type) , intent(in) :: operationA
16132 end subroutine
16133#endif
16134
16135#if CK2_ENABLED
16136 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
16137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16138 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK2
16139#endif
16140 use pm_kind, only: CKG => CK2
16141 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16142 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16143 complex(CKG) , intent(in) , optional :: alpha
16144 type(lowerUnit_type) , intent(in) :: classA
16145 type(transOrth_type) , intent(in) :: operationA
16146 end subroutine
16147#endif
16148
16149#if CK1_ENABLED
16150 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16152 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_CK1
16153#endif
16154 use pm_kind, only: CKG => CK1
16155 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16156 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16157 complex(CKG) , intent(in) , optional :: alpha
16158 type(lowerUnit_type) , intent(in) :: classA
16159 type(transOrth_type) , intent(in) :: operationA
16160 end subroutine
16161#endif
16162
16163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16164
16165#if RK5_ENABLED
16166 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16168 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK5
16169#endif
16170 use pm_kind, only: RKG => RK5
16171 real(RKG) , intent(in) , contiguous :: matA(:,:)
16172 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16173 real(RKG) , intent(in) , optional :: alpha
16174 type(lowerUnit_type) , intent(in) :: classA
16175 type(transOrth_type) , intent(in) :: operationA
16176 end subroutine
16177#endif
16178
16179#if RK4_ENABLED
16180 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16182 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK4
16183#endif
16184 use pm_kind, only: RKG => RK4
16185 real(RKG) , intent(in) , contiguous :: matA(:,:)
16186 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16187 real(RKG) , intent(in) , optional :: alpha
16188 type(lowerUnit_type) , intent(in) :: classA
16189 type(transOrth_type) , intent(in) :: operationA
16190 end subroutine
16191#endif
16192
16193#if RK3_ENABLED
16194 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16196 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK3
16197#endif
16198 use pm_kind, only: RKG => RK3
16199 real(RKG) , intent(in) , contiguous :: matA(:,:)
16200 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16201 real(RKG) , intent(in) , optional :: alpha
16202 type(lowerUnit_type) , intent(in) :: classA
16203 type(transOrth_type) , intent(in) :: operationA
16204 end subroutine
16205#endif
16206
16207#if RK2_ENABLED
16208 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16210 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK2
16211#endif
16212 use pm_kind, only: RKG => RK2
16213 real(RKG) , intent(in) , contiguous :: matA(:,:)
16214 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16215 real(RKG) , intent(in) , optional :: alpha
16216 type(lowerUnit_type) , intent(in) :: classA
16217 type(transOrth_type) , intent(in) :: operationA
16218 end subroutine
16219#endif
16220
16221#if RK1_ENABLED
16222 PURE module subroutine trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16224 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTOA_CGMB_ONOB_RK1
16225#endif
16226 use pm_kind, only: RKG => RK1
16227 real(RKG) , intent(in) , contiguous :: matA(:,:)
16228 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16229 real(RKG) , intent(in) , optional :: alpha
16230 type(lowerUnit_type) , intent(in) :: classA
16231 type(transOrth_type) , intent(in) :: operationA
16232 end subroutine
16233#endif
16234
16235 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16236
16237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16238 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16240
16241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16242
16243#if CK5_ENABLED
16244 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
16245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16246 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK5
16247#endif
16248 use pm_kind, only: CKG => CK5
16249 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16250 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16251 complex(CKG) , intent(in) , optional :: alpha
16252 type(lowerUnit_type) , intent(in) :: classA
16253 type(transUnit_type) , intent(in) :: operationA
16254 end subroutine
16255#endif
16256
16257#if CK4_ENABLED
16258 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
16259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16260 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK4
16261#endif
16262 use pm_kind, only: CKG => CK4
16263 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16264 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16265 complex(CKG) , intent(in) , optional :: alpha
16266 type(lowerUnit_type) , intent(in) :: classA
16267 type(transUnit_type) , intent(in) :: operationA
16268 end subroutine
16269#endif
16270
16271#if CK3_ENABLED
16272 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
16273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16274 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK3
16275#endif
16276 use pm_kind, only: CKG => CK3
16277 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16278 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16279 complex(CKG) , intent(in) , optional :: alpha
16280 type(lowerUnit_type) , intent(in) :: classA
16281 type(transUnit_type) , intent(in) :: operationA
16282 end subroutine
16283#endif
16284
16285#if CK2_ENABLED
16286 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
16287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16288 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK2
16289#endif
16290 use pm_kind, only: CKG => CK2
16291 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16292 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16293 complex(CKG) , intent(in) , optional :: alpha
16294 type(lowerUnit_type) , intent(in) :: classA
16295 type(transUnit_type) , intent(in) :: operationA
16296 end subroutine
16297#endif
16298
16299#if CK1_ENABLED
16300 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16302 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_CK1
16303#endif
16304 use pm_kind, only: CKG => CK1
16305 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16306 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16307 complex(CKG) , intent(in) , optional :: alpha
16308 type(lowerUnit_type) , intent(in) :: classA
16309 type(transUnit_type) , intent(in) :: operationA
16310 end subroutine
16311#endif
16312
16313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16314
16315#if RK5_ENABLED
16316 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16318 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK5
16319#endif
16320 use pm_kind, only: RKG => RK5
16321 real(RKG) , intent(in) , contiguous :: matA(:,:)
16322 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16323 real(RKG) , intent(in) , optional :: alpha
16324 type(lowerUnit_type) , intent(in) :: classA
16325 type(transUnit_type) , intent(in) :: operationA
16326 end subroutine
16327#endif
16328
16329#if RK4_ENABLED
16330 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16332 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK4
16333#endif
16334 use pm_kind, only: RKG => RK4
16335 real(RKG) , intent(in) , contiguous :: matA(:,:)
16336 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16337 real(RKG) , intent(in) , optional :: alpha
16338 type(lowerUnit_type) , intent(in) :: classA
16339 type(transUnit_type) , intent(in) :: operationA
16340 end subroutine
16341#endif
16342
16343#if RK3_ENABLED
16344 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16346 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK3
16347#endif
16348 use pm_kind, only: RKG => RK3
16349 real(RKG) , intent(in) , contiguous :: matA(:,:)
16350 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16351 real(RKG) , intent(in) , optional :: alpha
16352 type(lowerUnit_type) , intent(in) :: classA
16353 type(transUnit_type) , intent(in) :: operationA
16354 end subroutine
16355#endif
16356
16357#if RK2_ENABLED
16358 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16360 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK2
16361#endif
16362 use pm_kind, only: RKG => RK2
16363 real(RKG) , intent(in) , contiguous :: matA(:,:)
16364 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16365 real(RKG) , intent(in) , optional :: alpha
16366 type(lowerUnit_type) , intent(in) :: classA
16367 type(transUnit_type) , intent(in) :: operationA
16368 end subroutine
16369#endif
16370
16371#if RK1_ENABLED
16372 PURE module subroutine trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CLUA_OTUA_CGMB_ONOB_RK1
16375#endif
16376 use pm_kind, only: RKG => RK1
16377 real(RKG) , intent(in) , contiguous :: matA(:,:)
16378 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16379 real(RKG) , intent(in) , optional :: alpha
16380 type(lowerUnit_type) , intent(in) :: classA
16381 type(transUnit_type) , intent(in) :: operationA
16382 end subroutine
16383#endif
16384
16385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16386
16387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16390
16391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16394
16395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16396
16397#if CK5_ENABLED
16398 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
16399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16400 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_CK5
16401#endif
16402 use pm_kind, only: CKG => CK5
16403 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16404 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16405 complex(CKG) , intent(in) , optional :: alpha
16406 type(upperUnit_type) , intent(in) :: classA
16407 type(inversion_type) , intent(in) :: operationA
16408 end subroutine
16409#endif
16410
16411#if CK4_ENABLED
16412 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
16413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16414 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_CK4
16415#endif
16416 use pm_kind, only: CKG => CK4
16417 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16418 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16419 complex(CKG) , intent(in) , optional :: alpha
16420 type(upperUnit_type) , intent(in) :: classA
16421 type(inversion_type) , intent(in) :: operationA
16422 end subroutine
16423#endif
16424
16425#if CK3_ENABLED
16426 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
16427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16428 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_CK3
16429#endif
16430 use pm_kind, only: CKG => CK3
16431 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16432 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16433 complex(CKG) , intent(in) , optional :: alpha
16434 type(upperUnit_type) , intent(in) :: classA
16435 type(inversion_type) , intent(in) :: operationA
16436 end subroutine
16437#endif
16438
16439#if CK2_ENABLED
16440 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
16441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16442 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_CK2
16443#endif
16444 use pm_kind, only: CKG => CK2
16445 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16446 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16447 complex(CKG) , intent(in) , optional :: alpha
16448 type(upperUnit_type) , intent(in) :: classA
16449 type(inversion_type) , intent(in) :: operationA
16450 end subroutine
16451#endif
16452
16453#if CK1_ENABLED
16454 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16456 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_CK1
16457#endif
16458 use pm_kind, only: CKG => CK1
16459 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16460 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16461 complex(CKG) , intent(in) , optional :: alpha
16462 type(upperUnit_type) , intent(in) :: classA
16463 type(inversion_type) , intent(in) :: operationA
16464 end subroutine
16465#endif
16466
16467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16468
16469#if RK5_ENABLED
16470 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16472 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_RK5
16473#endif
16474 use pm_kind, only: RKG => RK5
16475 real(RKG) , intent(in) , contiguous :: matA(:,:)
16476 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16477 real(RKG) , intent(in) , optional :: alpha
16478 type(upperUnit_type) , intent(in) :: classA
16479 type(inversion_type) , intent(in) :: operationA
16480 end subroutine
16481#endif
16482
16483#if RK4_ENABLED
16484 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_RK4
16487#endif
16488 use pm_kind, only: RKG => RK4
16489 real(RKG) , intent(in) , contiguous :: matA(:,:)
16490 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16491 real(RKG) , intent(in) , optional :: alpha
16492 type(upperUnit_type) , intent(in) :: classA
16493 type(inversion_type) , intent(in) :: operationA
16494 end subroutine
16495#endif
16496
16497#if RK3_ENABLED
16498 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16500 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_RK3
16501#endif
16502 use pm_kind, only: RKG => RK3
16503 real(RKG) , intent(in) , contiguous :: matA(:,:)
16504 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16505 real(RKG) , intent(in) , optional :: alpha
16506 type(upperUnit_type) , intent(in) :: classA
16507 type(inversion_type) , intent(in) :: operationA
16508 end subroutine
16509#endif
16510
16511#if RK2_ENABLED
16512 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16514 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_RK2
16515#endif
16516 use pm_kind, only: RKG => RK2
16517 real(RKG) , intent(in) , contiguous :: matA(:,:)
16518 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16519 real(RKG) , intent(in) , optional :: alpha
16520 type(upperUnit_type) , intent(in) :: classA
16521 type(inversion_type) , intent(in) :: operationA
16522 end subroutine
16523#endif
16524
16525#if RK1_ENABLED
16526 PURE module subroutine trsm_ASS_CUUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16528 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_INVA_CGMB_ONOB_RK1
16529#endif
16530 use pm_kind, only: RKG => RK1
16531 real(RKG) , intent(in) , contiguous :: matA(:,:)
16532 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16533 real(RKG) , intent(in) , optional :: alpha
16534 type(upperUnit_type) , intent(in) :: classA
16535 type(inversion_type) , intent(in) :: operationA
16536 end subroutine
16537#endif
16538
16539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16540
16541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16544
16545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16546
16547#if CK5_ENABLED
16548 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
16549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16550 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK5
16551#endif
16552 use pm_kind, only: CKG => CK5
16553 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16554 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16555 complex(CKG) , intent(in) , optional :: alpha
16556 type(upperUnit_type) , intent(in) :: classA
16557 type(transOrth_type) , intent(in) :: operationA
16558 end subroutine
16559#endif
16560
16561#if CK4_ENABLED
16562 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
16563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16564 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK4
16565#endif
16566 use pm_kind, only: CKG => CK4
16567 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16568 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16569 complex(CKG) , intent(in) , optional :: alpha
16570 type(upperUnit_type) , intent(in) :: classA
16571 type(transOrth_type) , intent(in) :: operationA
16572 end subroutine
16573#endif
16574
16575#if CK3_ENABLED
16576 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
16577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16578 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK3
16579#endif
16580 use pm_kind, only: CKG => CK3
16581 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16582 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16583 complex(CKG) , intent(in) , optional :: alpha
16584 type(upperUnit_type) , intent(in) :: classA
16585 type(transOrth_type) , intent(in) :: operationA
16586 end subroutine
16587#endif
16588
16589#if CK2_ENABLED
16590 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
16591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16592 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK2
16593#endif
16594 use pm_kind, only: CKG => CK2
16595 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16596 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16597 complex(CKG) , intent(in) , optional :: alpha
16598 type(upperUnit_type) , intent(in) :: classA
16599 type(transOrth_type) , intent(in) :: operationA
16600 end subroutine
16601#endif
16602
16603#if CK1_ENABLED
16604 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16606 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_CK1
16607#endif
16608 use pm_kind, only: CKG => CK1
16609 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16610 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16611 complex(CKG) , intent(in) , optional :: alpha
16612 type(upperUnit_type) , intent(in) :: classA
16613 type(transOrth_type) , intent(in) :: operationA
16614 end subroutine
16615#endif
16616
16617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16618
16619#if RK5_ENABLED
16620 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16622 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK5
16623#endif
16624 use pm_kind, only: RKG => RK5
16625 real(RKG) , intent(in) , contiguous :: matA(:,:)
16626 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16627 real(RKG) , intent(in) , optional :: alpha
16628 type(upperUnit_type) , intent(in) :: classA
16629 type(transOrth_type) , intent(in) :: operationA
16630 end subroutine
16631#endif
16632
16633#if RK4_ENABLED
16634 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16636 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK4
16637#endif
16638 use pm_kind, only: RKG => RK4
16639 real(RKG) , intent(in) , contiguous :: matA(:,:)
16640 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16641 real(RKG) , intent(in) , optional :: alpha
16642 type(upperUnit_type) , intent(in) :: classA
16643 type(transOrth_type) , intent(in) :: operationA
16644 end subroutine
16645#endif
16646
16647#if RK3_ENABLED
16648 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16650 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK3
16651#endif
16652 use pm_kind, only: RKG => RK3
16653 real(RKG) , intent(in) , contiguous :: matA(:,:)
16654 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16655 real(RKG) , intent(in) , optional :: alpha
16656 type(upperUnit_type) , intent(in) :: classA
16657 type(transOrth_type) , intent(in) :: operationA
16658 end subroutine
16659#endif
16660
16661#if RK2_ENABLED
16662 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16664 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK2
16665#endif
16666 use pm_kind, only: RKG => RK2
16667 real(RKG) , intent(in) , contiguous :: matA(:,:)
16668 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16669 real(RKG) , intent(in) , optional :: alpha
16670 type(upperUnit_type) , intent(in) :: classA
16671 type(transOrth_type) , intent(in) :: operationA
16672 end subroutine
16673#endif
16674
16675#if RK1_ENABLED
16676 PURE module subroutine trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16678 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTOA_CGMB_ONOB_RK1
16679#endif
16680 use pm_kind, only: RKG => RK1
16681 real(RKG) , intent(in) , contiguous :: matA(:,:)
16682 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16683 real(RKG) , intent(in) , optional :: alpha
16684 type(upperUnit_type) , intent(in) :: classA
16685 type(transOrth_type) , intent(in) :: operationA
16686 end subroutine
16687#endif
16688
16689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16690
16691 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16693 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16694
16695 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16696
16697#if CK5_ENABLED
16698 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha)
16699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16700 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK5
16701#endif
16702 use pm_kind, only: CKG => CK5
16703 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16704 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16705 complex(CKG) , intent(in) , optional :: alpha
16706 type(upperUnit_type) , intent(in) :: classA
16707 type(transUnit_type) , intent(in) :: operationA
16708 end subroutine
16709#endif
16710
16711#if CK4_ENABLED
16712 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha)
16713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16714 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK4
16715#endif
16716 use pm_kind, only: CKG => CK4
16717 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16718 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16719 complex(CKG) , intent(in) , optional :: alpha
16720 type(upperUnit_type) , intent(in) :: classA
16721 type(transUnit_type) , intent(in) :: operationA
16722 end subroutine
16723#endif
16724
16725#if CK3_ENABLED
16726 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha)
16727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16728 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK3
16729#endif
16730 use pm_kind, only: CKG => CK3
16731 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16732 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16733 complex(CKG) , intent(in) , optional :: alpha
16734 type(upperUnit_type) , intent(in) :: classA
16735 type(transUnit_type) , intent(in) :: operationA
16736 end subroutine
16737#endif
16738
16739#if CK2_ENABLED
16740 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha)
16741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16742 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK2
16743#endif
16744 use pm_kind, only: CKG => CK2
16745 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16746 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16747 complex(CKG) , intent(in) , optional :: alpha
16748 type(upperUnit_type) , intent(in) :: classA
16749 type(transUnit_type) , intent(in) :: operationA
16750 end subroutine
16751#endif
16752
16753#if CK1_ENABLED
16754 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha)
16755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16756 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_CK1
16757#endif
16758 use pm_kind, only: CKG => CK1
16759 complex(CKG) , intent(in) , contiguous :: matA(:,:)
16760 complex(CKG) , intent(inout) , contiguous :: matB(:,:)
16761 complex(CKG) , intent(in) , optional :: alpha
16762 type(upperUnit_type) , intent(in) :: classA
16763 type(transUnit_type) , intent(in) :: operationA
16764 end subroutine
16765#endif
16766
16767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16768
16769#if RK5_ENABLED
16770 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha)
16771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16772 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK5
16773#endif
16774 use pm_kind, only: RKG => RK5
16775 real(RKG) , intent(in) , contiguous :: matA(:,:)
16776 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16777 real(RKG) , intent(in) , optional :: alpha
16778 type(upperUnit_type) , intent(in) :: classA
16779 type(transUnit_type) , intent(in) :: operationA
16780 end subroutine
16781#endif
16782
16783#if RK4_ENABLED
16784 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha)
16785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16786 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK4
16787#endif
16788 use pm_kind, only: RKG => RK4
16789 real(RKG) , intent(in) , contiguous :: matA(:,:)
16790 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16791 real(RKG) , intent(in) , optional :: alpha
16792 type(upperUnit_type) , intent(in) :: classA
16793 type(transUnit_type) , intent(in) :: operationA
16794 end subroutine
16795#endif
16796
16797#if RK3_ENABLED
16798 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha)
16799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16800 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK3
16801#endif
16802 use pm_kind, only: RKG => RK3
16803 real(RKG) , intent(in) , contiguous :: matA(:,:)
16804 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16805 real(RKG) , intent(in) , optional :: alpha
16806 type(upperUnit_type) , intent(in) :: classA
16807 type(transUnit_type) , intent(in) :: operationA
16808 end subroutine
16809#endif
16810
16811#if RK2_ENABLED
16812 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha)
16813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16814 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK2
16815#endif
16816 use pm_kind, only: RKG => RK2
16817 real(RKG) , intent(in) , contiguous :: matA(:,:)
16818 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16819 real(RKG) , intent(in) , optional :: alpha
16820 type(upperUnit_type) , intent(in) :: classA
16821 type(transUnit_type) , intent(in) :: operationA
16822 end subroutine
16823#endif
16824
16825#if RK1_ENABLED
16826 PURE module subroutine trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha)
16827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16828 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CUUA_OTUA_CGMB_ONOB_RK1
16829#endif
16830 use pm_kind, only: RKG => RK1
16831 real(RKG) , intent(in) , contiguous :: matA(:,:)
16832 real(RKG) , intent(inout) , contiguous :: matB(:,:)
16833 real(RKG) , intent(in) , optional :: alpha
16834 type(upperUnit_type) , intent(in) :: classA
16835 type(transUnit_type) , intent(in) :: operationA
16836 end subroutine
16837#endif
16838
16839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16840
16841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16842 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16844
16845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16848
16849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16850 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16852
16853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16854
16855#if CK5_ENABLED
16856 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_CK5(matA, matB, classB, operationB, alpha)
16857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16858 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_CK5
16859#endif
16860 use pm_kind, only: CKG => CK5
16861 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
16862 complex(CKG) , intent(in) , contiguous :: matB(:,:)
16863 complex(CKG) , intent(in) , optional :: alpha
16864 type(lowerDiag_type) , intent(in) :: classB
16865 type(inversion_type) , intent(in) :: operationB
16866 end subroutine
16867#endif
16868
16869#if CK4_ENABLED
16870 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_CK4(matA, matB, classB, operationB, alpha)
16871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16872 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_CK4
16873#endif
16874 use pm_kind, only: CKG => CK4
16875 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
16876 complex(CKG) , intent(in) , contiguous :: matB(:,:)
16877 complex(CKG) , intent(in) , optional :: alpha
16878 type(lowerDiag_type) , intent(in) :: classB
16879 type(inversion_type) , intent(in) :: operationB
16880 end subroutine
16881#endif
16882
16883#if CK3_ENABLED
16884 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_CK3(matA, matB, classB, operationB, alpha)
16885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16886 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_CK3
16887#endif
16888 use pm_kind, only: CKG => CK3
16889 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
16890 complex(CKG) , intent(in) , contiguous :: matB(:,:)
16891 complex(CKG) , intent(in) , optional :: alpha
16892 type(lowerDiag_type) , intent(in) :: classB
16893 type(inversion_type) , intent(in) :: operationB
16894 end subroutine
16895#endif
16896
16897#if CK2_ENABLED
16898 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_CK2(matA, matB, classB, operationB, alpha)
16899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16900 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_CK2
16901#endif
16902 use pm_kind, only: CKG => CK2
16903 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
16904 complex(CKG) , intent(in) , contiguous :: matB(:,:)
16905 complex(CKG) , intent(in) , optional :: alpha
16906 type(lowerDiag_type) , intent(in) :: classB
16907 type(inversion_type) , intent(in) :: operationB
16908 end subroutine
16909#endif
16910
16911#if CK1_ENABLED
16912 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_CK1(matA, matB, classB, operationB, alpha)
16913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16914 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_CK1
16915#endif
16916 use pm_kind, only: CKG => CK1
16917 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
16918 complex(CKG) , intent(in) , contiguous :: matB(:,:)
16919 complex(CKG) , intent(in) , optional :: alpha
16920 type(lowerDiag_type) , intent(in) :: classB
16921 type(inversion_type) , intent(in) :: operationB
16922 end subroutine
16923#endif
16924
16925 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16926
16927#if RK5_ENABLED
16928 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_RK5(matA, matB, classB, operationB, alpha)
16929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16930 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_RK5
16931#endif
16932 use pm_kind, only: RKG => RK5
16933 real(RKG) , intent(inout) , contiguous :: matA(:,:)
16934 real(RKG) , intent(in) , contiguous :: matB(:,:)
16935 real(RKG) , intent(in) , optional :: alpha
16936 type(lowerDiag_type) , intent(in) :: classB
16937 type(inversion_type) , intent(in) :: operationB
16938 end subroutine
16939#endif
16940
16941#if RK4_ENABLED
16942 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_RK4(matA, matB, classB, operationB, alpha)
16943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16944 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_RK4
16945#endif
16946 use pm_kind, only: RKG => RK4
16947 real(RKG) , intent(inout) , contiguous :: matA(:,:)
16948 real(RKG) , intent(in) , contiguous :: matB(:,:)
16949 real(RKG) , intent(in) , optional :: alpha
16950 type(lowerDiag_type) , intent(in) :: classB
16951 type(inversion_type) , intent(in) :: operationB
16952 end subroutine
16953#endif
16954
16955#if RK3_ENABLED
16956 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_RK3(matA, matB, classB, operationB, alpha)
16957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16958 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_RK3
16959#endif
16960 use pm_kind, only: RKG => RK3
16961 real(RKG) , intent(inout) , contiguous :: matA(:,:)
16962 real(RKG) , intent(in) , contiguous :: matB(:,:)
16963 real(RKG) , intent(in) , optional :: alpha
16964 type(lowerDiag_type) , intent(in) :: classB
16965 type(inversion_type) , intent(in) :: operationB
16966 end subroutine
16967#endif
16968
16969#if RK2_ENABLED
16970 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_RK2(matA, matB, classB, operationB, alpha)
16971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16972 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_RK2
16973#endif
16974 use pm_kind, only: RKG => RK2
16975 real(RKG) , intent(inout) , contiguous :: matA(:,:)
16976 real(RKG) , intent(in) , contiguous :: matB(:,:)
16977 real(RKG) , intent(in) , optional :: alpha
16978 type(lowerDiag_type) , intent(in) :: classB
16979 type(inversion_type) , intent(in) :: operationB
16980 end subroutine
16981#endif
16982
16983#if RK1_ENABLED
16984 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_INVB_RK1(matA, matB, classB, operationB, alpha)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_INVB_RK1
16987#endif
16988 use pm_kind, only: RKG => RK1
16989 real(RKG) , intent(inout) , contiguous :: matA(:,:)
16990 real(RKG) , intent(in) , contiguous :: matB(:,:)
16991 real(RKG) , intent(in) , optional :: alpha
16992 type(lowerDiag_type) , intent(in) :: classB
16993 type(inversion_type) , intent(in) :: operationB
16994 end subroutine
16995#endif
16996
16997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16998
16999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17002
17003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17004
17005#if CK5_ENABLED
17006 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK5(matA, matB, classB, operationB, alpha)
17007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17008 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK5
17009#endif
17010 use pm_kind, only: CKG => CK5
17011 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17012 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17013 complex(CKG) , intent(in) , optional :: alpha
17014 type(lowerDiag_type) , intent(in) :: classB
17015 type(transOrth_type) , intent(in) :: operationB
17016 end subroutine
17017#endif
17018
17019#if CK4_ENABLED
17020 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK4(matA, matB, classB, operationB, alpha)
17021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17022 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK4
17023#endif
17024 use pm_kind, only: CKG => CK4
17025 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17026 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17027 complex(CKG) , intent(in) , optional :: alpha
17028 type(lowerDiag_type) , intent(in) :: classB
17029 type(transOrth_type) , intent(in) :: operationB
17030 end subroutine
17031#endif
17032
17033#if CK3_ENABLED
17034 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK3(matA, matB, classB, operationB, alpha)
17035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17036 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK3
17037#endif
17038 use pm_kind, only: CKG => CK3
17039 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17040 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17041 complex(CKG) , intent(in) , optional :: alpha
17042 type(lowerDiag_type) , intent(in) :: classB
17043 type(transOrth_type) , intent(in) :: operationB
17044 end subroutine
17045#endif
17046
17047#if CK2_ENABLED
17048 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK2(matA, matB, classB, operationB, alpha)
17049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17050 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK2
17051#endif
17052 use pm_kind, only: CKG => CK2
17053 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17054 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17055 complex(CKG) , intent(in) , optional :: alpha
17056 type(lowerDiag_type) , intent(in) :: classB
17057 type(transOrth_type) , intent(in) :: operationB
17058 end subroutine
17059#endif
17060
17061#if CK1_ENABLED
17062 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK1(matA, matB, classB, operationB, alpha)
17063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17064 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_CK1
17065#endif
17066 use pm_kind, only: CKG => CK1
17067 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17068 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17069 complex(CKG) , intent(in) , optional :: alpha
17070 type(lowerDiag_type) , intent(in) :: classB
17071 type(transOrth_type) , intent(in) :: operationB
17072 end subroutine
17073#endif
17074
17075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17076
17077#if RK5_ENABLED
17078 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK5(matA, matB, classB, operationB, alpha)
17079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17080 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK5
17081#endif
17082 use pm_kind, only: RKG => RK5
17083 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17084 real(RKG) , intent(in) , contiguous :: matB(:,:)
17085 real(RKG) , intent(in) , optional :: alpha
17086 type(lowerDiag_type) , intent(in) :: classB
17087 type(transOrth_type) , intent(in) :: operationB
17088 end subroutine
17089#endif
17090
17091#if RK4_ENABLED
17092 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK4(matA, matB, classB, operationB, alpha)
17093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17094 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK4
17095#endif
17096 use pm_kind, only: RKG => RK4
17097 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17098 real(RKG) , intent(in) , contiguous :: matB(:,:)
17099 real(RKG) , intent(in) , optional :: alpha
17100 type(lowerDiag_type) , intent(in) :: classB
17101 type(transOrth_type) , intent(in) :: operationB
17102 end subroutine
17103#endif
17104
17105#if RK3_ENABLED
17106 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK3(matA, matB, classB, operationB, alpha)
17107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17108 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK3
17109#endif
17110 use pm_kind, only: RKG => RK3
17111 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17112 real(RKG) , intent(in) , contiguous :: matB(:,:)
17113 real(RKG) , intent(in) , optional :: alpha
17114 type(lowerDiag_type) , intent(in) :: classB
17115 type(transOrth_type) , intent(in) :: operationB
17116 end subroutine
17117#endif
17118
17119#if RK2_ENABLED
17120 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK2(matA, matB, classB, operationB, alpha)
17121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17122 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK2
17123#endif
17124 use pm_kind, only: RKG => RK2
17125 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17126 real(RKG) , intent(in) , contiguous :: matB(:,:)
17127 real(RKG) , intent(in) , optional :: alpha
17128 type(lowerDiag_type) , intent(in) :: classB
17129 type(transOrth_type) , intent(in) :: operationB
17130 end subroutine
17131#endif
17132
17133#if RK1_ENABLED
17134 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK1(matA, matB, classB, operationB, alpha)
17135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17136 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTOB_RK1
17137#endif
17138 use pm_kind, only: RKG => RK1
17139 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17140 real(RKG) , intent(in) , contiguous :: matB(:,:)
17141 real(RKG) , intent(in) , optional :: alpha
17142 type(lowerDiag_type) , intent(in) :: classB
17143 type(transOrth_type) , intent(in) :: operationB
17144 end subroutine
17145#endif
17146
17147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17148
17149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17152
17153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17154
17155#if CK5_ENABLED
17156 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK5(matA, matB, classB, operationB, alpha)
17157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17158 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK5
17159#endif
17160 use pm_kind, only: CKG => CK5
17161 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17162 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17163 complex(CKG) , intent(in) , optional :: alpha
17164 type(lowerDiag_type) , intent(in) :: classB
17165 type(transUnit_type) , intent(in) :: operationB
17166 end subroutine
17167#endif
17168
17169#if CK4_ENABLED
17170 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK4(matA, matB, classB, operationB, alpha)
17171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17172 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK4
17173#endif
17174 use pm_kind, only: CKG => CK4
17175 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17176 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17177 complex(CKG) , intent(in) , optional :: alpha
17178 type(lowerDiag_type) , intent(in) :: classB
17179 type(transUnit_type) , intent(in) :: operationB
17180 end subroutine
17181#endif
17182
17183#if CK3_ENABLED
17184 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK3(matA, matB, classB, operationB, alpha)
17185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17186 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK3
17187#endif
17188 use pm_kind, only: CKG => CK3
17189 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17190 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17191 complex(CKG) , intent(in) , optional :: alpha
17192 type(lowerDiag_type) , intent(in) :: classB
17193 type(transUnit_type) , intent(in) :: operationB
17194 end subroutine
17195#endif
17196
17197#if CK2_ENABLED
17198 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK2(matA, matB, classB, operationB, alpha)
17199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17200 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK2
17201#endif
17202 use pm_kind, only: CKG => CK2
17203 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17204 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17205 complex(CKG) , intent(in) , optional :: alpha
17206 type(lowerDiag_type) , intent(in) :: classB
17207 type(transUnit_type) , intent(in) :: operationB
17208 end subroutine
17209#endif
17210
17211#if CK1_ENABLED
17212 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK1(matA, matB, classB, operationB, alpha)
17213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17214 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_CK1
17215#endif
17216 use pm_kind, only: CKG => CK1
17217 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17218 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17219 complex(CKG) , intent(in) , optional :: alpha
17220 type(lowerDiag_type) , intent(in) :: classB
17221 type(transUnit_type) , intent(in) :: operationB
17222 end subroutine
17223#endif
17224
17225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17226
17227#if RK5_ENABLED
17228 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK5(matA, matB, classB, operationB, alpha)
17229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17230 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK5
17231#endif
17232 use pm_kind, only: RKG => RK5
17233 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17234 real(RKG) , intent(in) , contiguous :: matB(:,:)
17235 real(RKG) , intent(in) , optional :: alpha
17236 type(lowerDiag_type) , intent(in) :: classB
17237 type(transUnit_type) , intent(in) :: operationB
17238 end subroutine
17239#endif
17240
17241#if RK4_ENABLED
17242 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK4(matA, matB, classB, operationB, alpha)
17243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17244 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK4
17245#endif
17246 use pm_kind, only: RKG => RK4
17247 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17248 real(RKG) , intent(in) , contiguous :: matB(:,:)
17249 real(RKG) , intent(in) , optional :: alpha
17250 type(lowerDiag_type) , intent(in) :: classB
17251 type(transUnit_type) , intent(in) :: operationB
17252 end subroutine
17253#endif
17254
17255#if RK3_ENABLED
17256 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK3(matA, matB, classB, operationB, alpha)
17257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17258 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK3
17259#endif
17260 use pm_kind, only: RKG => RK3
17261 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17262 real(RKG) , intent(in) , contiguous :: matB(:,:)
17263 real(RKG) , intent(in) , optional :: alpha
17264 type(lowerDiag_type) , intent(in) :: classB
17265 type(transUnit_type) , intent(in) :: operationB
17266 end subroutine
17267#endif
17268
17269#if RK2_ENABLED
17270 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK2(matA, matB, classB, operationB, alpha)
17271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17272 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK2
17273#endif
17274 use pm_kind, only: RKG => RK2
17275 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17276 real(RKG) , intent(in) , contiguous :: matB(:,:)
17277 real(RKG) , intent(in) , optional :: alpha
17278 type(lowerDiag_type) , intent(in) :: classB
17279 type(transUnit_type) , intent(in) :: operationB
17280 end subroutine
17281#endif
17282
17283#if RK1_ENABLED
17284 PURE module subroutine trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK1(matA, matB, classB, operationB, alpha)
17285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17286 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLDB_OTUB_RK1
17287#endif
17288 use pm_kind, only: RKG => RK1
17289 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17290 real(RKG) , intent(in) , contiguous :: matB(:,:)
17291 real(RKG) , intent(in) , optional :: alpha
17292 type(lowerDiag_type) , intent(in) :: classB
17293 type(transUnit_type) , intent(in) :: operationB
17294 end subroutine
17295#endif
17296
17297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17298
17299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17302
17303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17305 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17306
17307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17308
17309#if CK5_ENABLED
17310 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_CK5(matA, matB, classB, operationB, alpha)
17311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17312 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_CK5
17313#endif
17314 use pm_kind, only: CKG => CK5
17315 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17316 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17317 complex(CKG) , intent(in) , optional :: alpha
17318 type(upperDiag_type) , intent(in) :: classB
17319 type(inversion_type) , intent(in) :: operationB
17320 end subroutine
17321#endif
17322
17323#if CK4_ENABLED
17324 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_CK4(matA, matB, classB, operationB, alpha)
17325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17326 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_CK4
17327#endif
17328 use pm_kind, only: CKG => CK4
17329 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17330 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17331 complex(CKG) , intent(in) , optional :: alpha
17332 type(upperDiag_type) , intent(in) :: classB
17333 type(inversion_type) , intent(in) :: operationB
17334 end subroutine
17335#endif
17336
17337#if CK3_ENABLED
17338 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_CK3(matA, matB, classB, operationB, alpha)
17339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17340 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_CK3
17341#endif
17342 use pm_kind, only: CKG => CK3
17343 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17344 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17345 complex(CKG) , intent(in) , optional :: alpha
17346 type(upperDiag_type) , intent(in) :: classB
17347 type(inversion_type) , intent(in) :: operationB
17348 end subroutine
17349#endif
17350
17351#if CK2_ENABLED
17352 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_CK2(matA, matB, classB, operationB, alpha)
17353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17354 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_CK2
17355#endif
17356 use pm_kind, only: CKG => CK2
17357 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17358 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17359 complex(CKG) , intent(in) , optional :: alpha
17360 type(upperDiag_type) , intent(in) :: classB
17361 type(inversion_type) , intent(in) :: operationB
17362 end subroutine
17363#endif
17364
17365#if CK1_ENABLED
17366 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_CK1(matA, matB, classB, operationB, alpha)
17367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17368 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_CK1
17369#endif
17370 use pm_kind, only: CKG => CK1
17371 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17372 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17373 complex(CKG) , intent(in) , optional :: alpha
17374 type(upperDiag_type) , intent(in) :: classB
17375 type(inversion_type) , intent(in) :: operationB
17376 end subroutine
17377#endif
17378
17379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17380
17381#if RK5_ENABLED
17382 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_RK5(matA, matB, classB, operationB, alpha)
17383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17384 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_RK5
17385#endif
17386 use pm_kind, only: RKG => RK5
17387 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17388 real(RKG) , intent(in) , contiguous :: matB(:,:)
17389 real(RKG) , intent(in) , optional :: alpha
17390 type(upperDiag_type) , intent(in) :: classB
17391 type(inversion_type) , intent(in) :: operationB
17392 end subroutine
17393#endif
17394
17395#if RK4_ENABLED
17396 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_RK4(matA, matB, classB, operationB, alpha)
17397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17398 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_RK4
17399#endif
17400 use pm_kind, only: RKG => RK4
17401 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17402 real(RKG) , intent(in) , contiguous :: matB(:,:)
17403 real(RKG) , intent(in) , optional :: alpha
17404 type(upperDiag_type) , intent(in) :: classB
17405 type(inversion_type) , intent(in) :: operationB
17406 end subroutine
17407#endif
17408
17409#if RK3_ENABLED
17410 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_RK3(matA, matB, classB, operationB, alpha)
17411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17412 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_RK3
17413#endif
17414 use pm_kind, only: RKG => RK3
17415 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17416 real(RKG) , intent(in) , contiguous :: matB(:,:)
17417 real(RKG) , intent(in) , optional :: alpha
17418 type(upperDiag_type) , intent(in) :: classB
17419 type(inversion_type) , intent(in) :: operationB
17420 end subroutine
17421#endif
17422
17423#if RK2_ENABLED
17424 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_RK2(matA, matB, classB, operationB, alpha)
17425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17426 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_RK2
17427#endif
17428 use pm_kind, only: RKG => RK2
17429 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17430 real(RKG) , intent(in) , contiguous :: matB(:,:)
17431 real(RKG) , intent(in) , optional :: alpha
17432 type(upperDiag_type) , intent(in) :: classB
17433 type(inversion_type) , intent(in) :: operationB
17434 end subroutine
17435#endif
17436
17437#if RK1_ENABLED
17438 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_INVB_RK1(matA, matB, classB, operationB, alpha)
17439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17440 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_INVB_RK1
17441#endif
17442 use pm_kind, only: RKG => RK1
17443 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17444 real(RKG) , intent(in) , contiguous :: matB(:,:)
17445 real(RKG) , intent(in) , optional :: alpha
17446 type(upperDiag_type) , intent(in) :: classB
17447 type(inversion_type) , intent(in) :: operationB
17448 end subroutine
17449#endif
17450
17451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17452
17453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17456
17457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17458
17459#if CK5_ENABLED
17460 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK5(matA, matB, classB, operationB, alpha)
17461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17462 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK5
17463#endif
17464 use pm_kind, only: CKG => CK5
17465 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17466 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17467 complex(CKG) , intent(in) , optional :: alpha
17468 type(upperDiag_type) , intent(in) :: classB
17469 type(transOrth_type) , intent(in) :: operationB
17470 end subroutine
17471#endif
17472
17473#if CK4_ENABLED
17474 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK4(matA, matB, classB, operationB, alpha)
17475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17476 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK4
17477#endif
17478 use pm_kind, only: CKG => CK4
17479 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17480 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17481 complex(CKG) , intent(in) , optional :: alpha
17482 type(upperDiag_type) , intent(in) :: classB
17483 type(transOrth_type) , intent(in) :: operationB
17484 end subroutine
17485#endif
17486
17487#if CK3_ENABLED
17488 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK3(matA, matB, classB, operationB, alpha)
17489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17490 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK3
17491#endif
17492 use pm_kind, only: CKG => CK3
17493 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17494 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17495 complex(CKG) , intent(in) , optional :: alpha
17496 type(upperDiag_type) , intent(in) :: classB
17497 type(transOrth_type) , intent(in) :: operationB
17498 end subroutine
17499#endif
17500
17501#if CK2_ENABLED
17502 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK2(matA, matB, classB, operationB, alpha)
17503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17504 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK2
17505#endif
17506 use pm_kind, only: CKG => CK2
17507 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17508 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17509 complex(CKG) , intent(in) , optional :: alpha
17510 type(upperDiag_type) , intent(in) :: classB
17511 type(transOrth_type) , intent(in) :: operationB
17512 end subroutine
17513#endif
17514
17515#if CK1_ENABLED
17516 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK1(matA, matB, classB, operationB, alpha)
17517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17518 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_CK1
17519#endif
17520 use pm_kind, only: CKG => CK1
17521 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17522 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17523 complex(CKG) , intent(in) , optional :: alpha
17524 type(upperDiag_type) , intent(in) :: classB
17525 type(transOrth_type) , intent(in) :: operationB
17526 end subroutine
17527#endif
17528
17529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17530
17531#if RK5_ENABLED
17532 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK5(matA, matB, classB, operationB, alpha)
17533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17534 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK5
17535#endif
17536 use pm_kind, only: RKG => RK5
17537 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17538 real(RKG) , intent(in) , contiguous :: matB(:,:)
17539 real(RKG) , intent(in) , optional :: alpha
17540 type(upperDiag_type) , intent(in) :: classB
17541 type(transOrth_type) , intent(in) :: operationB
17542 end subroutine
17543#endif
17544
17545#if RK4_ENABLED
17546 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK4(matA, matB, classB, operationB, alpha)
17547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17548 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK4
17549#endif
17550 use pm_kind, only: RKG => RK4
17551 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17552 real(RKG) , intent(in) , contiguous :: matB(:,:)
17553 real(RKG) , intent(in) , optional :: alpha
17554 type(upperDiag_type) , intent(in) :: classB
17555 type(transOrth_type) , intent(in) :: operationB
17556 end subroutine
17557#endif
17558
17559#if RK3_ENABLED
17560 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK3(matA, matB, classB, operationB, alpha)
17561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17562 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK3
17563#endif
17564 use pm_kind, only: RKG => RK3
17565 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17566 real(RKG) , intent(in) , contiguous :: matB(:,:)
17567 real(RKG) , intent(in) , optional :: alpha
17568 type(upperDiag_type) , intent(in) :: classB
17569 type(transOrth_type) , intent(in) :: operationB
17570 end subroutine
17571#endif
17572
17573#if RK2_ENABLED
17574 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK2(matA, matB, classB, operationB, alpha)
17575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17576 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK2
17577#endif
17578 use pm_kind, only: RKG => RK2
17579 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17580 real(RKG) , intent(in) , contiguous :: matB(:,:)
17581 real(RKG) , intent(in) , optional :: alpha
17582 type(upperDiag_type) , intent(in) :: classB
17583 type(transOrth_type) , intent(in) :: operationB
17584 end subroutine
17585#endif
17586
17587#if RK1_ENABLED
17588 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK1(matA, matB, classB, operationB, alpha)
17589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17590 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTOB_RK1
17591#endif
17592 use pm_kind, only: RKG => RK1
17593 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17594 real(RKG) , intent(in) , contiguous :: matB(:,:)
17595 real(RKG) , intent(in) , optional :: alpha
17596 type(upperDiag_type) , intent(in) :: classB
17597 type(transOrth_type) , intent(in) :: operationB
17598 end subroutine
17599#endif
17600
17601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17602
17603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17606
17607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17608
17609#if CK5_ENABLED
17610 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK5(matA, matB, classB, operationB, alpha)
17611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17612 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK5
17613#endif
17614 use pm_kind, only: CKG => CK5
17615 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17616 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17617 complex(CKG) , intent(in) , optional :: alpha
17618 type(upperDiag_type) , intent(in) :: classB
17619 type(transUnit_type) , intent(in) :: operationB
17620 end subroutine
17621#endif
17622
17623#if CK4_ENABLED
17624 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK4(matA, matB, classB, operationB, alpha)
17625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17626 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK4
17627#endif
17628 use pm_kind, only: CKG => CK4
17629 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17630 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17631 complex(CKG) , intent(in) , optional :: alpha
17632 type(upperDiag_type) , intent(in) :: classB
17633 type(transUnit_type) , intent(in) :: operationB
17634 end subroutine
17635#endif
17636
17637#if CK3_ENABLED
17638 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK3(matA, matB, classB, operationB, alpha)
17639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17640 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK3
17641#endif
17642 use pm_kind, only: CKG => CK3
17643 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17644 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17645 complex(CKG) , intent(in) , optional :: alpha
17646 type(upperDiag_type) , intent(in) :: classB
17647 type(transUnit_type) , intent(in) :: operationB
17648 end subroutine
17649#endif
17650
17651#if CK2_ENABLED
17652 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK2(matA, matB, classB, operationB, alpha)
17653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17654 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK2
17655#endif
17656 use pm_kind, only: CKG => CK2
17657 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17658 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17659 complex(CKG) , intent(in) , optional :: alpha
17660 type(upperDiag_type) , intent(in) :: classB
17661 type(transUnit_type) , intent(in) :: operationB
17662 end subroutine
17663#endif
17664
17665#if CK1_ENABLED
17666 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK1(matA, matB, classB, operationB, alpha)
17667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17668 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_CK1
17669#endif
17670 use pm_kind, only: CKG => CK1
17671 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17672 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17673 complex(CKG) , intent(in) , optional :: alpha
17674 type(upperDiag_type) , intent(in) :: classB
17675 type(transUnit_type) , intent(in) :: operationB
17676 end subroutine
17677#endif
17678
17679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17680
17681#if RK5_ENABLED
17682 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK5(matA, matB, classB, operationB, alpha)
17683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17684 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK5
17685#endif
17686 use pm_kind, only: RKG => RK5
17687 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17688 real(RKG) , intent(in) , contiguous :: matB(:,:)
17689 real(RKG) , intent(in) , optional :: alpha
17690 type(upperDiag_type) , intent(in) :: classB
17691 type(transUnit_type) , intent(in) :: operationB
17692 end subroutine
17693#endif
17694
17695#if RK4_ENABLED
17696 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK4(matA, matB, classB, operationB, alpha)
17697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17698 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK4
17699#endif
17700 use pm_kind, only: RKG => RK4
17701 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17702 real(RKG) , intent(in) , contiguous :: matB(:,:)
17703 real(RKG) , intent(in) , optional :: alpha
17704 type(upperDiag_type) , intent(in) :: classB
17705 type(transUnit_type) , intent(in) :: operationB
17706 end subroutine
17707#endif
17708
17709#if RK3_ENABLED
17710 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK3(matA, matB, classB, operationB, alpha)
17711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17712 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK3
17713#endif
17714 use pm_kind, only: RKG => RK3
17715 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17716 real(RKG) , intent(in) , contiguous :: matB(:,:)
17717 real(RKG) , intent(in) , optional :: alpha
17718 type(upperDiag_type) , intent(in) :: classB
17719 type(transUnit_type) , intent(in) :: operationB
17720 end subroutine
17721#endif
17722
17723#if RK2_ENABLED
17724 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK2(matA, matB, classB, operationB, alpha)
17725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17726 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK2
17727#endif
17728 use pm_kind, only: RKG => RK2
17729 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17730 real(RKG) , intent(in) , contiguous :: matB(:,:)
17731 real(RKG) , intent(in) , optional :: alpha
17732 type(upperDiag_type) , intent(in) :: classB
17733 type(transUnit_type) , intent(in) :: operationB
17734 end subroutine
17735#endif
17736
17737#if RK1_ENABLED
17738 PURE module subroutine trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK1(matA, matB, classB, operationB, alpha)
17739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17740 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUDB_OTUB_RK1
17741#endif
17742 use pm_kind, only: RKG => RK1
17743 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17744 real(RKG) , intent(in) , contiguous :: matB(:,:)
17745 real(RKG) , intent(in) , optional :: alpha
17746 type(upperDiag_type) , intent(in) :: classB
17747 type(transUnit_type) , intent(in) :: operationB
17748 end subroutine
17749#endif
17750
17751 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17752
17753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17756
17757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17758 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17760
17761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17762
17763#if CK5_ENABLED
17764 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_CK5(matA, matB, classB, operationB, alpha)
17765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17766 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_CK5
17767#endif
17768 use pm_kind, only: CKG => CK5
17769 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17770 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17771 complex(CKG) , intent(in) , optional :: alpha
17772 type(lowerUnit_type) , intent(in) :: classB
17773 type(inversion_type) , intent(in) :: operationB
17774 end subroutine
17775#endif
17776
17777#if CK4_ENABLED
17778 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_CK4(matA, matB, classB, operationB, alpha)
17779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17780 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_CK4
17781#endif
17782 use pm_kind, only: CKG => CK4
17783 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17784 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17785 complex(CKG) , intent(in) , optional :: alpha
17786 type(lowerUnit_type) , intent(in) :: classB
17787 type(inversion_type) , intent(in) :: operationB
17788 end subroutine
17789#endif
17790
17791#if CK3_ENABLED
17792 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_CK3(matA, matB, classB, operationB, alpha)
17793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17794 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_CK3
17795#endif
17796 use pm_kind, only: CKG => CK3
17797 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17798 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17799 complex(CKG) , intent(in) , optional :: alpha
17800 type(lowerUnit_type) , intent(in) :: classB
17801 type(inversion_type) , intent(in) :: operationB
17802 end subroutine
17803#endif
17804
17805#if CK2_ENABLED
17806 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_CK2(matA, matB, classB, operationB, alpha)
17807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17808 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_CK2
17809#endif
17810 use pm_kind, only: CKG => CK2
17811 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17812 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17813 complex(CKG) , intent(in) , optional :: alpha
17814 type(lowerUnit_type) , intent(in) :: classB
17815 type(inversion_type) , intent(in) :: operationB
17816 end subroutine
17817#endif
17818
17819#if CK1_ENABLED
17820 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_CK1(matA, matB, classB, operationB, alpha)
17821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17822 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_CK1
17823#endif
17824 use pm_kind, only: CKG => CK1
17825 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17826 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17827 complex(CKG) , intent(in) , optional :: alpha
17828 type(lowerUnit_type) , intent(in) :: classB
17829 type(inversion_type) , intent(in) :: operationB
17830 end subroutine
17831#endif
17832
17833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17834
17835#if RK5_ENABLED
17836 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_RK5(matA, matB, classB, operationB, alpha)
17837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17838 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_RK5
17839#endif
17840 use pm_kind, only: RKG => RK5
17841 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17842 real(RKG) , intent(in) , contiguous :: matB(:,:)
17843 real(RKG) , intent(in) , optional :: alpha
17844 type(lowerUnit_type) , intent(in) :: classB
17845 type(inversion_type) , intent(in) :: operationB
17846 end subroutine
17847#endif
17848
17849#if RK4_ENABLED
17850 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_RK4(matA, matB, classB, operationB, alpha)
17851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17852 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_RK4
17853#endif
17854 use pm_kind, only: RKG => RK4
17855 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17856 real(RKG) , intent(in) , contiguous :: matB(:,:)
17857 real(RKG) , intent(in) , optional :: alpha
17858 type(lowerUnit_type) , intent(in) :: classB
17859 type(inversion_type) , intent(in) :: operationB
17860 end subroutine
17861#endif
17862
17863#if RK3_ENABLED
17864 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_RK3(matA, matB, classB, operationB, alpha)
17865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17866 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_RK3
17867#endif
17868 use pm_kind, only: RKG => RK3
17869 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17870 real(RKG) , intent(in) , contiguous :: matB(:,:)
17871 real(RKG) , intent(in) , optional :: alpha
17872 type(lowerUnit_type) , intent(in) :: classB
17873 type(inversion_type) , intent(in) :: operationB
17874 end subroutine
17875#endif
17876
17877#if RK2_ENABLED
17878 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_RK2(matA, matB, classB, operationB, alpha)
17879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17880 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_RK2
17881#endif
17882 use pm_kind, only: RKG => RK2
17883 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17884 real(RKG) , intent(in) , contiguous :: matB(:,:)
17885 real(RKG) , intent(in) , optional :: alpha
17886 type(lowerUnit_type) , intent(in) :: classB
17887 type(inversion_type) , intent(in) :: operationB
17888 end subroutine
17889#endif
17890
17891#if RK1_ENABLED
17892 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_INVB_RK1(matA, matB, classB, operationB, alpha)
17893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17894 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_INVB_RK1
17895#endif
17896 use pm_kind, only: RKG => RK1
17897 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17898 real(RKG) , intent(in) , contiguous :: matB(:,:)
17899 real(RKG) , intent(in) , optional :: alpha
17900 type(lowerUnit_type) , intent(in) :: classB
17901 type(inversion_type) , intent(in) :: operationB
17902 end subroutine
17903#endif
17904
17905 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17906
17907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17910
17911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17912
17913#if CK5_ENABLED
17914 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK5(matA, matB, classB, operationB, alpha)
17915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17916 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK5
17917#endif
17918 use pm_kind, only: CKG => CK5
17919 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17920 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17921 complex(CKG) , intent(in) , optional :: alpha
17922 type(lowerUnit_type) , intent(in) :: classB
17923 type(transOrth_type) , intent(in) :: operationB
17924 end subroutine
17925#endif
17926
17927#if CK4_ENABLED
17928 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK4(matA, matB, classB, operationB, alpha)
17929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17930 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK4
17931#endif
17932 use pm_kind, only: CKG => CK4
17933 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17934 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17935 complex(CKG) , intent(in) , optional :: alpha
17936 type(lowerUnit_type) , intent(in) :: classB
17937 type(transOrth_type) , intent(in) :: operationB
17938 end subroutine
17939#endif
17940
17941#if CK3_ENABLED
17942 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK3(matA, matB, classB, operationB, alpha)
17943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17944 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK3
17945#endif
17946 use pm_kind, only: CKG => CK3
17947 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17948 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17949 complex(CKG) , intent(in) , optional :: alpha
17950 type(lowerUnit_type) , intent(in) :: classB
17951 type(transOrth_type) , intent(in) :: operationB
17952 end subroutine
17953#endif
17954
17955#if CK2_ENABLED
17956 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK2(matA, matB, classB, operationB, alpha)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK2
17959#endif
17960 use pm_kind, only: CKG => CK2
17961 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17962 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17963 complex(CKG) , intent(in) , optional :: alpha
17964 type(lowerUnit_type) , intent(in) :: classB
17965 type(transOrth_type) , intent(in) :: operationB
17966 end subroutine
17967#endif
17968
17969#if CK1_ENABLED
17970 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK1(matA, matB, classB, operationB, alpha)
17971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17972 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_CK1
17973#endif
17974 use pm_kind, only: CKG => CK1
17975 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
17976 complex(CKG) , intent(in) , contiguous :: matB(:,:)
17977 complex(CKG) , intent(in) , optional :: alpha
17978 type(lowerUnit_type) , intent(in) :: classB
17979 type(transOrth_type) , intent(in) :: operationB
17980 end subroutine
17981#endif
17982
17983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17984
17985#if RK5_ENABLED
17986 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK5(matA, matB, classB, operationB, alpha)
17987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17988 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK5
17989#endif
17990 use pm_kind, only: RKG => RK5
17991 real(RKG) , intent(inout) , contiguous :: matA(:,:)
17992 real(RKG) , intent(in) , contiguous :: matB(:,:)
17993 real(RKG) , intent(in) , optional :: alpha
17994 type(lowerUnit_type) , intent(in) :: classB
17995 type(transOrth_type) , intent(in) :: operationB
17996 end subroutine
17997#endif
17998
17999#if RK4_ENABLED
18000 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK4(matA, matB, classB, operationB, alpha)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK4
18003#endif
18004 use pm_kind, only: RKG => RK4
18005 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18006 real(RKG) , intent(in) , contiguous :: matB(:,:)
18007 real(RKG) , intent(in) , optional :: alpha
18008 type(lowerUnit_type) , intent(in) :: classB
18009 type(transOrth_type) , intent(in) :: operationB
18010 end subroutine
18011#endif
18012
18013#if RK3_ENABLED
18014 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK3(matA, matB, classB, operationB, alpha)
18015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18016 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK3
18017#endif
18018 use pm_kind, only: RKG => RK3
18019 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18020 real(RKG) , intent(in) , contiguous :: matB(:,:)
18021 real(RKG) , intent(in) , optional :: alpha
18022 type(lowerUnit_type) , intent(in) :: classB
18023 type(transOrth_type) , intent(in) :: operationB
18024 end subroutine
18025#endif
18026
18027#if RK2_ENABLED
18028 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK2(matA, matB, classB, operationB, alpha)
18029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18030 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK2
18031#endif
18032 use pm_kind, only: RKG => RK2
18033 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18034 real(RKG) , intent(in) , contiguous :: matB(:,:)
18035 real(RKG) , intent(in) , optional :: alpha
18036 type(lowerUnit_type) , intent(in) :: classB
18037 type(transOrth_type) , intent(in) :: operationB
18038 end subroutine
18039#endif
18040
18041#if RK1_ENABLED
18042 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK1(matA, matB, classB, operationB, alpha)
18043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18044 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTOB_RK1
18045#endif
18046 use pm_kind, only: RKG => RK1
18047 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18048 real(RKG) , intent(in) , contiguous :: matB(:,:)
18049 real(RKG) , intent(in) , optional :: alpha
18050 type(lowerUnit_type) , intent(in) :: classB
18051 type(transOrth_type) , intent(in) :: operationB
18052 end subroutine
18053#endif
18054
18055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18056
18057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18060
18061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18062
18063#if CK5_ENABLED
18064 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK5(matA, matB, classB, operationB, alpha)
18065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18066 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK5
18067#endif
18068 use pm_kind, only: CKG => CK5
18069 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18070 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18071 complex(CKG) , intent(in) , optional :: alpha
18072 type(lowerUnit_type) , intent(in) :: classB
18073 type(transUnit_type) , intent(in) :: operationB
18074 end subroutine
18075#endif
18076
18077#if CK4_ENABLED
18078 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK4(matA, matB, classB, operationB, alpha)
18079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18080 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK4
18081#endif
18082 use pm_kind, only: CKG => CK4
18083 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18084 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18085 complex(CKG) , intent(in) , optional :: alpha
18086 type(lowerUnit_type) , intent(in) :: classB
18087 type(transUnit_type) , intent(in) :: operationB
18088 end subroutine
18089#endif
18090
18091#if CK3_ENABLED
18092 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK3(matA, matB, classB, operationB, alpha)
18093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18094 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK3
18095#endif
18096 use pm_kind, only: CKG => CK3
18097 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18098 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18099 complex(CKG) , intent(in) , optional :: alpha
18100 type(lowerUnit_type) , intent(in) :: classB
18101 type(transUnit_type) , intent(in) :: operationB
18102 end subroutine
18103#endif
18104
18105#if CK2_ENABLED
18106 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK2(matA, matB, classB, operationB, alpha)
18107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18108 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK2
18109#endif
18110 use pm_kind, only: CKG => CK2
18111 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18112 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18113 complex(CKG) , intent(in) , optional :: alpha
18114 type(lowerUnit_type) , intent(in) :: classB
18115 type(transUnit_type) , intent(in) :: operationB
18116 end subroutine
18117#endif
18118
18119#if CK1_ENABLED
18120 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK1(matA, matB, classB, operationB, alpha)
18121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18122 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_CK1
18123#endif
18124 use pm_kind, only: CKG => CK1
18125 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18126 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18127 complex(CKG) , intent(in) , optional :: alpha
18128 type(lowerUnit_type) , intent(in) :: classB
18129 type(transUnit_type) , intent(in) :: operationB
18130 end subroutine
18131#endif
18132
18133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18134
18135#if RK5_ENABLED
18136 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK5(matA, matB, classB, operationB, alpha)
18137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18138 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK5
18139#endif
18140 use pm_kind, only: RKG => RK5
18141 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18142 real(RKG) , intent(in) , contiguous :: matB(:,:)
18143 real(RKG) , intent(in) , optional :: alpha
18144 type(lowerUnit_type) , intent(in) :: classB
18145 type(transUnit_type) , intent(in) :: operationB
18146 end subroutine
18147#endif
18148
18149#if RK4_ENABLED
18150 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK4(matA, matB, classB, operationB, alpha)
18151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18152 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK4
18153#endif
18154 use pm_kind, only: RKG => RK4
18155 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18156 real(RKG) , intent(in) , contiguous :: matB(:,:)
18157 real(RKG) , intent(in) , optional :: alpha
18158 type(lowerUnit_type) , intent(in) :: classB
18159 type(transUnit_type) , intent(in) :: operationB
18160 end subroutine
18161#endif
18162
18163#if RK3_ENABLED
18164 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK3(matA, matB, classB, operationB, alpha)
18165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18166 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK3
18167#endif
18168 use pm_kind, only: RKG => RK3
18169 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18170 real(RKG) , intent(in) , contiguous :: matB(:,:)
18171 real(RKG) , intent(in) , optional :: alpha
18172 type(lowerUnit_type) , intent(in) :: classB
18173 type(transUnit_type) , intent(in) :: operationB
18174 end subroutine
18175#endif
18176
18177#if RK2_ENABLED
18178 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK2(matA, matB, classB, operationB, alpha)
18179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18180 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK2
18181#endif
18182 use pm_kind, only: RKG => RK2
18183 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18184 real(RKG) , intent(in) , contiguous :: matB(:,:)
18185 real(RKG) , intent(in) , optional :: alpha
18186 type(lowerUnit_type) , intent(in) :: classB
18187 type(transUnit_type) , intent(in) :: operationB
18188 end subroutine
18189#endif
18190
18191#if RK1_ENABLED
18192 PURE module subroutine trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK1(matA, matB, classB, operationB, alpha)
18193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18194 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CLUB_OTUB_RK1
18195#endif
18196 use pm_kind, only: RKG => RK1
18197 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18198 real(RKG) , intent(in) , contiguous :: matB(:,:)
18199 real(RKG) , intent(in) , optional :: alpha
18200 type(lowerUnit_type) , intent(in) :: classB
18201 type(transUnit_type) , intent(in) :: operationB
18202 end subroutine
18203#endif
18204
18205 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18206
18207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18209 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18210
18211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18214
18215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18216
18217#if CK5_ENABLED
18218 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_CK5(matA, matB, classB, operationB, alpha)
18219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18220 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_CK5
18221#endif
18222 use pm_kind, only: CKG => CK5
18223 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18224 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18225 complex(CKG) , intent(in) , optional :: alpha
18226 type(upperUnit_type) , intent(in) :: classB
18227 type(inversion_type) , intent(in) :: operationB
18228 end subroutine
18229#endif
18230
18231#if CK4_ENABLED
18232 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_CK4(matA, matB, classB, operationB, alpha)
18233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18234 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_CK4
18235#endif
18236 use pm_kind, only: CKG => CK4
18237 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18238 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18239 complex(CKG) , intent(in) , optional :: alpha
18240 type(upperUnit_type) , intent(in) :: classB
18241 type(inversion_type) , intent(in) :: operationB
18242 end subroutine
18243#endif
18244
18245#if CK3_ENABLED
18246 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_CK3(matA, matB, classB, operationB, alpha)
18247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18248 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_CK3
18249#endif
18250 use pm_kind, only: CKG => CK3
18251 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18252 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18253 complex(CKG) , intent(in) , optional :: alpha
18254 type(upperUnit_type) , intent(in) :: classB
18255 type(inversion_type) , intent(in) :: operationB
18256 end subroutine
18257#endif
18258
18259#if CK2_ENABLED
18260 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_CK2(matA, matB, classB, operationB, alpha)
18261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18262 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_CK2
18263#endif
18264 use pm_kind, only: CKG => CK2
18265 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18266 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18267 complex(CKG) , intent(in) , optional :: alpha
18268 type(upperUnit_type) , intent(in) :: classB
18269 type(inversion_type) , intent(in) :: operationB
18270 end subroutine
18271#endif
18272
18273#if CK1_ENABLED
18274 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_CK1(matA, matB, classB, operationB, alpha)
18275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18276 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_CK1
18277#endif
18278 use pm_kind, only: CKG => CK1
18279 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18280 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18281 complex(CKG) , intent(in) , optional :: alpha
18282 type(upperUnit_type) , intent(in) :: classB
18283 type(inversion_type) , intent(in) :: operationB
18284 end subroutine
18285#endif
18286
18287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18288
18289#if RK5_ENABLED
18290 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_RK5(matA, matB, classB, operationB, alpha)
18291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18292 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_RK5
18293#endif
18294 use pm_kind, only: RKG => RK5
18295 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18296 real(RKG) , intent(in) , contiguous :: matB(:,:)
18297 real(RKG) , intent(in) , optional :: alpha
18298 type(upperUnit_type) , intent(in) :: classB
18299 type(inversion_type) , intent(in) :: operationB
18300 end subroutine
18301#endif
18302
18303#if RK4_ENABLED
18304 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_RK4(matA, matB, classB, operationB, alpha)
18305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18306 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_RK4
18307#endif
18308 use pm_kind, only: RKG => RK4
18309 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18310 real(RKG) , intent(in) , contiguous :: matB(:,:)
18311 real(RKG) , intent(in) , optional :: alpha
18312 type(upperUnit_type) , intent(in) :: classB
18313 type(inversion_type) , intent(in) :: operationB
18314 end subroutine
18315#endif
18316
18317#if RK3_ENABLED
18318 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_RK3(matA, matB, classB, operationB, alpha)
18319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18320 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_RK3
18321#endif
18322 use pm_kind, only: RKG => RK3
18323 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18324 real(RKG) , intent(in) , contiguous :: matB(:,:)
18325 real(RKG) , intent(in) , optional :: alpha
18326 type(upperUnit_type) , intent(in) :: classB
18327 type(inversion_type) , intent(in) :: operationB
18328 end subroutine
18329#endif
18330
18331#if RK2_ENABLED
18332 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_RK2(matA, matB, classB, operationB, alpha)
18333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18334 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_RK2
18335#endif
18336 use pm_kind, only: RKG => RK2
18337 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18338 real(RKG) , intent(in) , contiguous :: matB(:,:)
18339 real(RKG) , intent(in) , optional :: alpha
18340 type(upperUnit_type) , intent(in) :: classB
18341 type(inversion_type) , intent(in) :: operationB
18342 end subroutine
18343#endif
18344
18345#if RK1_ENABLED
18346 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_INVB_RK1(matA, matB, classB, operationB, alpha)
18347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18348 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_INVB_RK1
18349#endif
18350 use pm_kind, only: RKG => RK1
18351 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18352 real(RKG) , intent(in) , contiguous :: matB(:,:)
18353 real(RKG) , intent(in) , optional :: alpha
18354 type(upperUnit_type) , intent(in) :: classB
18355 type(inversion_type) , intent(in) :: operationB
18356 end subroutine
18357#endif
18358
18359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18360
18361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18364
18365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18366
18367#if CK5_ENABLED
18368 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK5(matA, matB, classB, operationB, alpha)
18369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18370 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK5
18371#endif
18372 use pm_kind, only: CKG => CK5
18373 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18374 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18375 complex(CKG) , intent(in) , optional :: alpha
18376 type(upperUnit_type) , intent(in) :: classB
18377 type(transOrth_type) , intent(in) :: operationB
18378 end subroutine
18379#endif
18380
18381#if CK4_ENABLED
18382 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK4(matA, matB, classB, operationB, alpha)
18383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18384 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK4
18385#endif
18386 use pm_kind, only: CKG => CK4
18387 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18388 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18389 complex(CKG) , intent(in) , optional :: alpha
18390 type(upperUnit_type) , intent(in) :: classB
18391 type(transOrth_type) , intent(in) :: operationB
18392 end subroutine
18393#endif
18394
18395#if CK3_ENABLED
18396 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK3(matA, matB, classB, operationB, alpha)
18397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18398 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK3
18399#endif
18400 use pm_kind, only: CKG => CK3
18401 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18402 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18403 complex(CKG) , intent(in) , optional :: alpha
18404 type(upperUnit_type) , intent(in) :: classB
18405 type(transOrth_type) , intent(in) :: operationB
18406 end subroutine
18407#endif
18408
18409#if CK2_ENABLED
18410 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK2(matA, matB, classB, operationB, alpha)
18411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18412 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK2
18413#endif
18414 use pm_kind, only: CKG => CK2
18415 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18416 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18417 complex(CKG) , intent(in) , optional :: alpha
18418 type(upperUnit_type) , intent(in) :: classB
18419 type(transOrth_type) , intent(in) :: operationB
18420 end subroutine
18421#endif
18422
18423#if CK1_ENABLED
18424 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK1(matA, matB, classB, operationB, alpha)
18425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18426 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_CK1
18427#endif
18428 use pm_kind, only: CKG => CK1
18429 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18430 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18431 complex(CKG) , intent(in) , optional :: alpha
18432 type(upperUnit_type) , intent(in) :: classB
18433 type(transOrth_type) , intent(in) :: operationB
18434 end subroutine
18435#endif
18436
18437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18438
18439#if RK5_ENABLED
18440 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK5(matA, matB, classB, operationB, alpha)
18441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18442 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK5
18443#endif
18444 use pm_kind, only: RKG => RK5
18445 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18446 real(RKG) , intent(in) , contiguous :: matB(:,:)
18447 real(RKG) , intent(in) , optional :: alpha
18448 type(upperUnit_type) , intent(in) :: classB
18449 type(transOrth_type) , intent(in) :: operationB
18450 end subroutine
18451#endif
18452
18453#if RK4_ENABLED
18454 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK4(matA, matB, classB, operationB, alpha)
18455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18456 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK4
18457#endif
18458 use pm_kind, only: RKG => RK4
18459 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18460 real(RKG) , intent(in) , contiguous :: matB(:,:)
18461 real(RKG) , intent(in) , optional :: alpha
18462 type(upperUnit_type) , intent(in) :: classB
18463 type(transOrth_type) , intent(in) :: operationB
18464 end subroutine
18465#endif
18466
18467#if RK3_ENABLED
18468 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK3(matA, matB, classB, operationB, alpha)
18469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18470 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK3
18471#endif
18472 use pm_kind, only: RKG => RK3
18473 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18474 real(RKG) , intent(in) , contiguous :: matB(:,:)
18475 real(RKG) , intent(in) , optional :: alpha
18476 type(upperUnit_type) , intent(in) :: classB
18477 type(transOrth_type) , intent(in) :: operationB
18478 end subroutine
18479#endif
18480
18481#if RK2_ENABLED
18482 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK2(matA, matB, classB, operationB, alpha)
18483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18484 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK2
18485#endif
18486 use pm_kind, only: RKG => RK2
18487 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18488 real(RKG) , intent(in) , contiguous :: matB(:,:)
18489 real(RKG) , intent(in) , optional :: alpha
18490 type(upperUnit_type) , intent(in) :: classB
18491 type(transOrth_type) , intent(in) :: operationB
18492 end subroutine
18493#endif
18494
18495#if RK1_ENABLED
18496 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK1(matA, matB, classB, operationB, alpha)
18497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18498 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTOB_RK1
18499#endif
18500 use pm_kind, only: RKG => RK1
18501 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18502 real(RKG) , intent(in) , contiguous :: matB(:,:)
18503 real(RKG) , intent(in) , optional :: alpha
18504 type(upperUnit_type) , intent(in) :: classB
18505 type(transOrth_type) , intent(in) :: operationB
18506 end subroutine
18507#endif
18508
18509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18510
18511 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18514
18515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18516
18517#if CK5_ENABLED
18518 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK5(matA, matB, classB, operationB, alpha)
18519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18520 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK5
18521#endif
18522 use pm_kind, only: CKG => CK5
18523 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18524 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18525 complex(CKG) , intent(in) , optional :: alpha
18526 type(upperUnit_type) , intent(in) :: classB
18527 type(transUnit_type) , intent(in) :: operationB
18528 end subroutine
18529#endif
18530
18531#if CK4_ENABLED
18532 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK4(matA, matB, classB, operationB, alpha)
18533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18534 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK4
18535#endif
18536 use pm_kind, only: CKG => CK4
18537 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18538 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18539 complex(CKG) , intent(in) , optional :: alpha
18540 type(upperUnit_type) , intent(in) :: classB
18541 type(transUnit_type) , intent(in) :: operationB
18542 end subroutine
18543#endif
18544
18545#if CK3_ENABLED
18546 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK3(matA, matB, classB, operationB, alpha)
18547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18548 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK3
18549#endif
18550 use pm_kind, only: CKG => CK3
18551 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18552 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18553 complex(CKG) , intent(in) , optional :: alpha
18554 type(upperUnit_type) , intent(in) :: classB
18555 type(transUnit_type) , intent(in) :: operationB
18556 end subroutine
18557#endif
18558
18559#if CK2_ENABLED
18560 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK2(matA, matB, classB, operationB, alpha)
18561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18562 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK2
18563#endif
18564 use pm_kind, only: CKG => CK2
18565 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18566 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18567 complex(CKG) , intent(in) , optional :: alpha
18568 type(upperUnit_type) , intent(in) :: classB
18569 type(transUnit_type) , intent(in) :: operationB
18570 end subroutine
18571#endif
18572
18573#if CK1_ENABLED
18574 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK1(matA, matB, classB, operationB, alpha)
18575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18576 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_CK1
18577#endif
18578 use pm_kind, only: CKG => CK1
18579 complex(CKG) , intent(inout) , contiguous :: matA(:,:)
18580 complex(CKG) , intent(in) , contiguous :: matB(:,:)
18581 complex(CKG) , intent(in) , optional :: alpha
18582 type(upperUnit_type) , intent(in) :: classB
18583 type(transUnit_type) , intent(in) :: operationB
18584 end subroutine
18585#endif
18586
18587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18588
18589#if RK5_ENABLED
18590 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK5(matA, matB, classB, operationB, alpha)
18591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18592 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK5
18593#endif
18594 use pm_kind, only: RKG => RK5
18595 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18596 real(RKG) , intent(in) , contiguous :: matB(:,:)
18597 real(RKG) , intent(in) , optional :: alpha
18598 type(upperUnit_type) , intent(in) :: classB
18599 type(transUnit_type) , intent(in) :: operationB
18600 end subroutine
18601#endif
18602
18603#if RK4_ENABLED
18604 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK4(matA, matB, classB, operationB, alpha)
18605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18606 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK4
18607#endif
18608 use pm_kind, only: RKG => RK4
18609 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18610 real(RKG) , intent(in) , contiguous :: matB(:,:)
18611 real(RKG) , intent(in) , optional :: alpha
18612 type(upperUnit_type) , intent(in) :: classB
18613 type(transUnit_type) , intent(in) :: operationB
18614 end subroutine
18615#endif
18616
18617#if RK3_ENABLED
18618 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK3(matA, matB, classB, operationB, alpha)
18619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18620 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK3
18621#endif
18622 use pm_kind, only: RKG => RK3
18623 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18624 real(RKG) , intent(in) , contiguous :: matB(:,:)
18625 real(RKG) , intent(in) , optional :: alpha
18626 type(upperUnit_type) , intent(in) :: classB
18627 type(transUnit_type) , intent(in) :: operationB
18628 end subroutine
18629#endif
18630
18631#if RK2_ENABLED
18632 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK2(matA, matB, classB, operationB, alpha)
18633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18634 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK2
18635#endif
18636 use pm_kind, only: RKG => RK2
18637 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18638 real(RKG) , intent(in) , contiguous :: matB(:,:)
18639 real(RKG) , intent(in) , optional :: alpha
18640 type(upperUnit_type) , intent(in) :: classB
18641 type(transUnit_type) , intent(in) :: operationB
18642 end subroutine
18643#endif
18644
18645#if RK1_ENABLED
18646 PURE module subroutine trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK1(matA, matB, classB, operationB, alpha)
18647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18648 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_ASS_CGMA_ONOA_CUUB_OTUB_RK1
18649#endif
18650 use pm_kind, only: RKG => RK1
18651 real(RKG) , intent(inout) , contiguous :: matA(:,:)
18652 real(RKG) , intent(in) , contiguous :: matB(:,:)
18653 real(RKG) , intent(in) , optional :: alpha
18654 type(upperUnit_type) , intent(in) :: classB
18655 type(transUnit_type) , intent(in) :: operationB
18656 end subroutine
18657#endif
18658
18659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18660
18661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18664
18665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18668
18669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18672
18673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18674
18675#if CK5_ENABLED
18676 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18678 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_CK5
18679#endif
18680 use pm_kind, only: CKG => CK5
18681 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18682 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18683 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18684 complex(CKG) , intent(in) :: alpha
18685 type(lowerDiag_type) , intent(in) :: classA
18686 type(inversion_type) , intent(in) :: operationA
18687 end subroutine
18688#endif
18689
18690#if CK4_ENABLED
18691 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18693 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_CK4
18694#endif
18695 use pm_kind, only: CKG => CK4
18696 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18697 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18698 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18699 complex(CKG) , intent(in) :: alpha
18700 type(lowerDiag_type) , intent(in) :: classA
18701 type(inversion_type) , intent(in) :: operationA
18702 end subroutine
18703#endif
18704
18705#if CK3_ENABLED
18706 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18708 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_CK3
18709#endif
18710 use pm_kind, only: CKG => CK3
18711 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18712 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18713 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18714 complex(CKG) , intent(in) :: alpha
18715 type(lowerDiag_type) , intent(in) :: classA
18716 type(inversion_type) , intent(in) :: operationA
18717 end subroutine
18718#endif
18719
18720#if CK2_ENABLED
18721 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18723 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_CK2
18724#endif
18725 use pm_kind, only: CKG => CK2
18726 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18727 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18728 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18729 complex(CKG) , intent(in) :: alpha
18730 type(lowerDiag_type) , intent(in) :: classA
18731 type(inversion_type) , intent(in) :: operationA
18732 end subroutine
18733#endif
18734
18735#if CK1_ENABLED
18736 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18738 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_CK1
18739#endif
18740 use pm_kind, only: CKG => CK1
18741 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18742 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18743 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18744 complex(CKG) , intent(in) :: alpha
18745 type(lowerDiag_type) , intent(in) :: classA
18746 type(inversion_type) , intent(in) :: operationA
18747 end subroutine
18748#endif
18749
18750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18751
18752#if RK5_ENABLED
18753 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18755 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_RK5
18756#endif
18757 use pm_kind, only: RKG => RK5
18758 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18759 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18760 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18761 real(RKG) , intent(in) :: alpha
18762 type(lowerDiag_type) , intent(in) :: classA
18763 type(inversion_type) , intent(in) :: operationA
18764 end subroutine
18765#endif
18766
18767#if RK4_ENABLED
18768 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18770 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_RK4
18771#endif
18772 use pm_kind, only: RKG => RK4
18773 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18774 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18775 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18776 real(RKG) , intent(in) :: alpha
18777 type(lowerDiag_type) , intent(in) :: classA
18778 type(inversion_type) , intent(in) :: operationA
18779 end subroutine
18780#endif
18781
18782#if RK3_ENABLED
18783 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18785 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_RK3
18786#endif
18787 use pm_kind, only: RKG => RK3
18788 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18789 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18790 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18791 real(RKG) , intent(in) :: alpha
18792 type(lowerDiag_type) , intent(in) :: classA
18793 type(inversion_type) , intent(in) :: operationA
18794 end subroutine
18795#endif
18796
18797#if RK2_ENABLED
18798 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18800 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_RK2
18801#endif
18802 use pm_kind, only: RKG => RK2
18803 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18804 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18805 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18806 real(RKG) , intent(in) :: alpha
18807 type(lowerDiag_type) , intent(in) :: classA
18808 type(inversion_type) , intent(in) :: operationA
18809 end subroutine
18810#endif
18811
18812#if RK1_ENABLED
18813 PURE module subroutine trsm_EXP_CLDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18815 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_INVA_CGMB_ONOB_RK1
18816#endif
18817 use pm_kind, only: RKG => RK1
18818 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18819 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18820 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18821 real(RKG) , intent(in) :: alpha
18822 type(lowerDiag_type) , intent(in) :: classA
18823 type(inversion_type) , intent(in) :: operationA
18824 end subroutine
18825#endif
18826
18827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18828
18829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18830 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18832
18833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18834
18835#if CK5_ENABLED
18836 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18838 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK5
18839#endif
18840 use pm_kind, only: CKG => CK5
18841 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18842 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18843 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18844 complex(CKG) , intent(in) :: alpha
18845 type(lowerDiag_type) , intent(in) :: classA
18846 type(transOrth_type) , intent(in) :: operationA
18847 end subroutine
18848#endif
18849
18850#if CK4_ENABLED
18851 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18853 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK4
18854#endif
18855 use pm_kind, only: CKG => CK4
18856 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18857 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18858 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18859 complex(CKG) , intent(in) :: alpha
18860 type(lowerDiag_type) , intent(in) :: classA
18861 type(transOrth_type) , intent(in) :: operationA
18862 end subroutine
18863#endif
18864
18865#if CK3_ENABLED
18866 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18868 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK3
18869#endif
18870 use pm_kind, only: CKG => CK3
18871 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18872 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18873 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18874 complex(CKG) , intent(in) :: alpha
18875 type(lowerDiag_type) , intent(in) :: classA
18876 type(transOrth_type) , intent(in) :: operationA
18877 end subroutine
18878#endif
18879
18880#if CK2_ENABLED
18881 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18883 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK2
18884#endif
18885 use pm_kind, only: CKG => CK2
18886 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18887 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18888 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18889 complex(CKG) , intent(in) :: alpha
18890 type(lowerDiag_type) , intent(in) :: classA
18891 type(transOrth_type) , intent(in) :: operationA
18892 end subroutine
18893#endif
18894
18895#if CK1_ENABLED
18896 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18898 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_CK1
18899#endif
18900 use pm_kind, only: CKG => CK1
18901 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18902 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18903 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18904 complex(CKG) , intent(in) :: alpha
18905 type(lowerDiag_type) , intent(in) :: classA
18906 type(transOrth_type) , intent(in) :: operationA
18907 end subroutine
18908#endif
18909
18910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18911
18912#if RK5_ENABLED
18913 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18915 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK5
18916#endif
18917 use pm_kind, only: RKG => RK5
18918 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18919 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18920 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18921 real(RKG) , intent(in) :: alpha
18922 type(lowerDiag_type) , intent(in) :: classA
18923 type(transOrth_type) , intent(in) :: operationA
18924 end subroutine
18925#endif
18926
18927#if RK4_ENABLED
18928 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18930 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK4
18931#endif
18932 use pm_kind, only: RKG => RK4
18933 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18934 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18935 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18936 real(RKG) , intent(in) :: alpha
18937 type(lowerDiag_type) , intent(in) :: classA
18938 type(transOrth_type) , intent(in) :: operationA
18939 end subroutine
18940#endif
18941
18942#if RK3_ENABLED
18943 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18945 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK3
18946#endif
18947 use pm_kind, only: RKG => RK3
18948 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18949 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18950 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18951 real(RKG) , intent(in) :: alpha
18952 type(lowerDiag_type) , intent(in) :: classA
18953 type(transOrth_type) , intent(in) :: operationA
18954 end subroutine
18955#endif
18956
18957#if RK2_ENABLED
18958 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18960 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK2
18961#endif
18962 use pm_kind, only: RKG => RK2
18963 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18964 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18965 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18966 real(RKG) , intent(in) :: alpha
18967 type(lowerDiag_type) , intent(in) :: classA
18968 type(transOrth_type) , intent(in) :: operationA
18969 end subroutine
18970#endif
18971
18972#if RK1_ENABLED
18973 PURE module subroutine trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18975 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTOA_CGMB_ONOB_RK1
18976#endif
18977 use pm_kind, only: RKG => RK1
18978 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
18979 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
18980 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
18981 real(RKG) , intent(in) :: alpha
18982 type(lowerDiag_type) , intent(in) :: classA
18983 type(transOrth_type) , intent(in) :: operationA
18984 end subroutine
18985#endif
18986
18987 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18988
18989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18992
18993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18994
18995#if CK5_ENABLED
18996 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
18997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18998 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK5
18999#endif
19000 use pm_kind, only: CKG => CK5
19001 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19002 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19003 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19004 complex(CKG) , intent(in) :: alpha
19005 type(lowerDiag_type) , intent(in) :: classA
19006 type(transUnit_type) , intent(in) :: operationA
19007 end subroutine
19008#endif
19009
19010#if CK4_ENABLED
19011 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19013 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK4
19014#endif
19015 use pm_kind, only: CKG => CK4
19016 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19017 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19018 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19019 complex(CKG) , intent(in) :: alpha
19020 type(lowerDiag_type) , intent(in) :: classA
19021 type(transUnit_type) , intent(in) :: operationA
19022 end subroutine
19023#endif
19024
19025#if CK3_ENABLED
19026 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19028 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK3
19029#endif
19030 use pm_kind, only: CKG => CK3
19031 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19032 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19033 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19034 complex(CKG) , intent(in) :: alpha
19035 type(lowerDiag_type) , intent(in) :: classA
19036 type(transUnit_type) , intent(in) :: operationA
19037 end subroutine
19038#endif
19039
19040#if CK2_ENABLED
19041 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19043 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK2
19044#endif
19045 use pm_kind, only: CKG => CK2
19046 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19047 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19048 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19049 complex(CKG) , intent(in) :: alpha
19050 type(lowerDiag_type) , intent(in) :: classA
19051 type(transUnit_type) , intent(in) :: operationA
19052 end subroutine
19053#endif
19054
19055#if CK1_ENABLED
19056 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19058 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_CK1
19059#endif
19060 use pm_kind, only: CKG => CK1
19061 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19062 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19063 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19064 complex(CKG) , intent(in) :: alpha
19065 type(lowerDiag_type) , intent(in) :: classA
19066 type(transUnit_type) , intent(in) :: operationA
19067 end subroutine
19068#endif
19069
19070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19071
19072#if RK5_ENABLED
19073 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19075 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK5
19076#endif
19077 use pm_kind, only: RKG => RK5
19078 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19079 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19080 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19081 real(RKG) , intent(in) :: alpha
19082 type(lowerDiag_type) , intent(in) :: classA
19083 type(transUnit_type) , intent(in) :: operationA
19084 end subroutine
19085#endif
19086
19087#if RK4_ENABLED
19088 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19090 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK4
19091#endif
19092 use pm_kind, only: RKG => RK4
19093 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19094 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19095 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19096 real(RKG) , intent(in) :: alpha
19097 type(lowerDiag_type) , intent(in) :: classA
19098 type(transUnit_type) , intent(in) :: operationA
19099 end subroutine
19100#endif
19101
19102#if RK3_ENABLED
19103 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19105 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK3
19106#endif
19107 use pm_kind, only: RKG => RK3
19108 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19109 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19110 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19111 real(RKG) , intent(in) :: alpha
19112 type(lowerDiag_type) , intent(in) :: classA
19113 type(transUnit_type) , intent(in) :: operationA
19114 end subroutine
19115#endif
19116
19117#if RK2_ENABLED
19118 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19120 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK2
19121#endif
19122 use pm_kind, only: RKG => RK2
19123 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19124 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19125 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19126 real(RKG) , intent(in) :: alpha
19127 type(lowerDiag_type) , intent(in) :: classA
19128 type(transUnit_type) , intent(in) :: operationA
19129 end subroutine
19130#endif
19131
19132#if RK1_ENABLED
19133 PURE module subroutine trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19135 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLDA_OTUA_CGMB_ONOB_RK1
19136#endif
19137 use pm_kind, only: RKG => RK1
19138 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19139 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19140 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19141 real(RKG) , intent(in) :: alpha
19142 type(lowerDiag_type) , intent(in) :: classA
19143 type(transUnit_type) , intent(in) :: operationA
19144 end subroutine
19145#endif
19146
19147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19148
19149 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19152
19153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19156
19157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19158
19159#if CK5_ENABLED
19160 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19162 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_CK5
19163#endif
19164 use pm_kind, only: CKG => CK5
19165 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19166 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19167 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19168 complex(CKG) , intent(in) :: alpha
19169 type(upperDiag_type) , intent(in) :: classA
19170 type(inversion_type) , intent(in) :: operationA
19171 end subroutine
19172#endif
19173
19174#if CK4_ENABLED
19175 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19177 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_CK4
19178#endif
19179 use pm_kind, only: CKG => CK4
19180 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19181 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19182 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19183 complex(CKG) , intent(in) :: alpha
19184 type(upperDiag_type) , intent(in) :: classA
19185 type(inversion_type) , intent(in) :: operationA
19186 end subroutine
19187#endif
19188
19189#if CK3_ENABLED
19190 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19192 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_CK3
19193#endif
19194 use pm_kind, only: CKG => CK3
19195 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19196 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19197 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19198 complex(CKG) , intent(in) :: alpha
19199 type(upperDiag_type) , intent(in) :: classA
19200 type(inversion_type) , intent(in) :: operationA
19201 end subroutine
19202#endif
19203
19204#if CK2_ENABLED
19205 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19207 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_CK2
19208#endif
19209 use pm_kind, only: CKG => CK2
19210 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19211 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19212 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19213 complex(CKG) , intent(in) :: alpha
19214 type(upperDiag_type) , intent(in) :: classA
19215 type(inversion_type) , intent(in) :: operationA
19216 end subroutine
19217#endif
19218
19219#if CK1_ENABLED
19220 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19222 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_CK1
19223#endif
19224 use pm_kind, only: CKG => CK1
19225 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19226 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19227 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19228 complex(CKG) , intent(in) :: alpha
19229 type(upperDiag_type) , intent(in) :: classA
19230 type(inversion_type) , intent(in) :: operationA
19231 end subroutine
19232#endif
19233
19234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19235
19236#if RK5_ENABLED
19237 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19239 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_RK5
19240#endif
19241 use pm_kind, only: RKG => RK5
19242 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19243 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19244 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19245 real(RKG) , intent(in) :: alpha
19246 type(upperDiag_type) , intent(in) :: classA
19247 type(inversion_type) , intent(in) :: operationA
19248 end subroutine
19249#endif
19250
19251#if RK4_ENABLED
19252 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19254 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_RK4
19255#endif
19256 use pm_kind, only: RKG => RK4
19257 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19258 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19259 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19260 real(RKG) , intent(in) :: alpha
19261 type(upperDiag_type) , intent(in) :: classA
19262 type(inversion_type) , intent(in) :: operationA
19263 end subroutine
19264#endif
19265
19266#if RK3_ENABLED
19267 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19269 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_RK3
19270#endif
19271 use pm_kind, only: RKG => RK3
19272 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19273 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19274 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19275 real(RKG) , intent(in) :: alpha
19276 type(upperDiag_type) , intent(in) :: classA
19277 type(inversion_type) , intent(in) :: operationA
19278 end subroutine
19279#endif
19280
19281#if RK2_ENABLED
19282 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19284 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_RK2
19285#endif
19286 use pm_kind, only: RKG => RK2
19287 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19288 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19289 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19290 real(RKG) , intent(in) :: alpha
19291 type(upperDiag_type) , intent(in) :: classA
19292 type(inversion_type) , intent(in) :: operationA
19293 end subroutine
19294#endif
19295
19296#if RK1_ENABLED
19297 PURE module subroutine trsm_EXP_CUDA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19299 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_INVA_CGMB_ONOB_RK1
19300#endif
19301 use pm_kind, only: RKG => RK1
19302 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19303 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19304 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19305 real(RKG) , intent(in) :: alpha
19306 type(upperDiag_type) , intent(in) :: classA
19307 type(inversion_type) , intent(in) :: operationA
19308 end subroutine
19309#endif
19310
19311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19312
19313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19316
19317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19318
19319#if CK5_ENABLED
19320 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19322 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK5
19323#endif
19324 use pm_kind, only: CKG => CK5
19325 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19326 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19327 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19328 complex(CKG) , intent(in) :: alpha
19329 type(upperDiag_type) , intent(in) :: classA
19330 type(transOrth_type) , intent(in) :: operationA
19331 end subroutine
19332#endif
19333
19334#if CK4_ENABLED
19335 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19337 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK4
19338#endif
19339 use pm_kind, only: CKG => CK4
19340 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19341 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19342 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19343 complex(CKG) , intent(in) :: alpha
19344 type(upperDiag_type) , intent(in) :: classA
19345 type(transOrth_type) , intent(in) :: operationA
19346 end subroutine
19347#endif
19348
19349#if CK3_ENABLED
19350 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19352 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK3
19353#endif
19354 use pm_kind, only: CKG => CK3
19355 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19356 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19357 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19358 complex(CKG) , intent(in) :: alpha
19359 type(upperDiag_type) , intent(in) :: classA
19360 type(transOrth_type) , intent(in) :: operationA
19361 end subroutine
19362#endif
19363
19364#if CK2_ENABLED
19365 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19367 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK2
19368#endif
19369 use pm_kind, only: CKG => CK2
19370 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19371 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19372 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19373 complex(CKG) , intent(in) :: alpha
19374 type(upperDiag_type) , intent(in) :: classA
19375 type(transOrth_type) , intent(in) :: operationA
19376 end subroutine
19377#endif
19378
19379#if CK1_ENABLED
19380 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19382 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_CK1
19383#endif
19384 use pm_kind, only: CKG => CK1
19385 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19386 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19387 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19388 complex(CKG) , intent(in) :: alpha
19389 type(upperDiag_type) , intent(in) :: classA
19390 type(transOrth_type) , intent(in) :: operationA
19391 end subroutine
19392#endif
19393
19394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19395
19396#if RK5_ENABLED
19397 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19399 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK5
19400#endif
19401 use pm_kind, only: RKG => RK5
19402 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19403 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19404 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19405 real(RKG) , intent(in) :: alpha
19406 type(upperDiag_type) , intent(in) :: classA
19407 type(transOrth_type) , intent(in) :: operationA
19408 end subroutine
19409#endif
19410
19411#if RK4_ENABLED
19412 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19414 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK4
19415#endif
19416 use pm_kind, only: RKG => RK4
19417 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19418 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19419 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19420 real(RKG) , intent(in) :: alpha
19421 type(upperDiag_type) , intent(in) :: classA
19422 type(transOrth_type) , intent(in) :: operationA
19423 end subroutine
19424#endif
19425
19426#if RK3_ENABLED
19427 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19429 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK3
19430#endif
19431 use pm_kind, only: RKG => RK3
19432 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19433 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19434 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19435 real(RKG) , intent(in) :: alpha
19436 type(upperDiag_type) , intent(in) :: classA
19437 type(transOrth_type) , intent(in) :: operationA
19438 end subroutine
19439#endif
19440
19441#if RK2_ENABLED
19442 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19444 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK2
19445#endif
19446 use pm_kind, only: RKG => RK2
19447 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19448 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19449 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19450 real(RKG) , intent(in) :: alpha
19451 type(upperDiag_type) , intent(in) :: classA
19452 type(transOrth_type) , intent(in) :: operationA
19453 end subroutine
19454#endif
19455
19456#if RK1_ENABLED
19457 PURE module subroutine trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19459 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTOA_CGMB_ONOB_RK1
19460#endif
19461 use pm_kind, only: RKG => RK1
19462 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19463 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19464 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19465 real(RKG) , intent(in) :: alpha
19466 type(upperDiag_type) , intent(in) :: classA
19467 type(transOrth_type) , intent(in) :: operationA
19468 end subroutine
19469#endif
19470
19471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19472
19473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19476
19477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19478
19479#if CK5_ENABLED
19480 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19482 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK5
19483#endif
19484 use pm_kind, only: CKG => CK5
19485 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19486 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19487 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19488 complex(CKG) , intent(in) :: alpha
19489 type(upperDiag_type) , intent(in) :: classA
19490 type(transUnit_type) , intent(in) :: operationA
19491 end subroutine
19492#endif
19493
19494#if CK4_ENABLED
19495 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19497 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK4
19498#endif
19499 use pm_kind, only: CKG => CK4
19500 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19501 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19502 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19503 complex(CKG) , intent(in) :: alpha
19504 type(upperDiag_type) , intent(in) :: classA
19505 type(transUnit_type) , intent(in) :: operationA
19506 end subroutine
19507#endif
19508
19509#if CK3_ENABLED
19510 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19512 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK3
19513#endif
19514 use pm_kind, only: CKG => CK3
19515 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19516 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19517 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19518 complex(CKG) , intent(in) :: alpha
19519 type(upperDiag_type) , intent(in) :: classA
19520 type(transUnit_type) , intent(in) :: operationA
19521 end subroutine
19522#endif
19523
19524#if CK2_ENABLED
19525 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19527 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK2
19528#endif
19529 use pm_kind, only: CKG => CK2
19530 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19531 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19532 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19533 complex(CKG) , intent(in) :: alpha
19534 type(upperDiag_type) , intent(in) :: classA
19535 type(transUnit_type) , intent(in) :: operationA
19536 end subroutine
19537#endif
19538
19539#if CK1_ENABLED
19540 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19542 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_CK1
19543#endif
19544 use pm_kind, only: CKG => CK1
19545 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19546 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19547 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19548 complex(CKG) , intent(in) :: alpha
19549 type(upperDiag_type) , intent(in) :: classA
19550 type(transUnit_type) , intent(in) :: operationA
19551 end subroutine
19552#endif
19553
19554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19555
19556#if RK5_ENABLED
19557 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19559 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK5
19560#endif
19561 use pm_kind, only: RKG => RK5
19562 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19563 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19564 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19565 real(RKG) , intent(in) :: alpha
19566 type(upperDiag_type) , intent(in) :: classA
19567 type(transUnit_type) , intent(in) :: operationA
19568 end subroutine
19569#endif
19570
19571#if RK4_ENABLED
19572 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19574 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK4
19575#endif
19576 use pm_kind, only: RKG => RK4
19577 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19578 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19579 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19580 real(RKG) , intent(in) :: alpha
19581 type(upperDiag_type) , intent(in) :: classA
19582 type(transUnit_type) , intent(in) :: operationA
19583 end subroutine
19584#endif
19585
19586#if RK3_ENABLED
19587 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19589 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK3
19590#endif
19591 use pm_kind, only: RKG => RK3
19592 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19593 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19594 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19595 real(RKG) , intent(in) :: alpha
19596 type(upperDiag_type) , intent(in) :: classA
19597 type(transUnit_type) , intent(in) :: operationA
19598 end subroutine
19599#endif
19600
19601#if RK2_ENABLED
19602 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19604 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK2
19605#endif
19606 use pm_kind, only: RKG => RK2
19607 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19608 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19609 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19610 real(RKG) , intent(in) :: alpha
19611 type(upperDiag_type) , intent(in) :: classA
19612 type(transUnit_type) , intent(in) :: operationA
19613 end subroutine
19614#endif
19615
19616#if RK1_ENABLED
19617 PURE module subroutine trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19619 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUDA_OTUA_CGMB_ONOB_RK1
19620#endif
19621 use pm_kind, only: RKG => RK1
19622 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19623 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19624 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19625 real(RKG) , intent(in) :: alpha
19626 type(upperDiag_type) , intent(in) :: classA
19627 type(transUnit_type) , intent(in) :: operationA
19628 end subroutine
19629#endif
19630
19631 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19632
19633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19636
19637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19640
19641 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19642
19643#if CK5_ENABLED
19644 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19646 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_CK5
19647#endif
19648 use pm_kind, only: CKG => CK5
19649 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19650 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19651 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19652 complex(CKG) , intent(in) :: alpha
19653 type(lowerUnit_type) , intent(in) :: classA
19654 type(inversion_type) , intent(in) :: operationA
19655 end subroutine
19656#endif
19657
19658#if CK4_ENABLED
19659 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19661 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_CK4
19662#endif
19663 use pm_kind, only: CKG => CK4
19664 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19665 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19666 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19667 complex(CKG) , intent(in) :: alpha
19668 type(lowerUnit_type) , intent(in) :: classA
19669 type(inversion_type) , intent(in) :: operationA
19670 end subroutine
19671#endif
19672
19673#if CK3_ENABLED
19674 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19676 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_CK3
19677#endif
19678 use pm_kind, only: CKG => CK3
19679 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19680 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19681 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19682 complex(CKG) , intent(in) :: alpha
19683 type(lowerUnit_type) , intent(in) :: classA
19684 type(inversion_type) , intent(in) :: operationA
19685 end subroutine
19686#endif
19687
19688#if CK2_ENABLED
19689 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19691 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_CK2
19692#endif
19693 use pm_kind, only: CKG => CK2
19694 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19695 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19696 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19697 complex(CKG) , intent(in) :: alpha
19698 type(lowerUnit_type) , intent(in) :: classA
19699 type(inversion_type) , intent(in) :: operationA
19700 end subroutine
19701#endif
19702
19703#if CK1_ENABLED
19704 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19706 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_CK1
19707#endif
19708 use pm_kind, only: CKG => CK1
19709 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19710 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19711 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19712 complex(CKG) , intent(in) :: alpha
19713 type(lowerUnit_type) , intent(in) :: classA
19714 type(inversion_type) , intent(in) :: operationA
19715 end subroutine
19716#endif
19717
19718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19719
19720#if RK5_ENABLED
19721 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19723 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_RK5
19724#endif
19725 use pm_kind, only: RKG => RK5
19726 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19727 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19728 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19729 real(RKG) , intent(in) :: alpha
19730 type(lowerUnit_type) , intent(in) :: classA
19731 type(inversion_type) , intent(in) :: operationA
19732 end subroutine
19733#endif
19734
19735#if RK4_ENABLED
19736 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19738 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_RK4
19739#endif
19740 use pm_kind, only: RKG => RK4
19741 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19742 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19743 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19744 real(RKG) , intent(in) :: alpha
19745 type(lowerUnit_type) , intent(in) :: classA
19746 type(inversion_type) , intent(in) :: operationA
19747 end subroutine
19748#endif
19749
19750#if RK3_ENABLED
19751 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19753 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_RK3
19754#endif
19755 use pm_kind, only: RKG => RK3
19756 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19757 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19758 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19759 real(RKG) , intent(in) :: alpha
19760 type(lowerUnit_type) , intent(in) :: classA
19761 type(inversion_type) , intent(in) :: operationA
19762 end subroutine
19763#endif
19764
19765#if RK2_ENABLED
19766 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19768 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_RK2
19769#endif
19770 use pm_kind, only: RKG => RK2
19771 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19772 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19773 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19774 real(RKG) , intent(in) :: alpha
19775 type(lowerUnit_type) , intent(in) :: classA
19776 type(inversion_type) , intent(in) :: operationA
19777 end subroutine
19778#endif
19779
19780#if RK1_ENABLED
19781 PURE module subroutine trsm_EXP_CLUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19783 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_INVA_CGMB_ONOB_RK1
19784#endif
19785 use pm_kind, only: RKG => RK1
19786 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19787 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19788 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19789 real(RKG) , intent(in) :: alpha
19790 type(lowerUnit_type) , intent(in) :: classA
19791 type(inversion_type) , intent(in) :: operationA
19792 end subroutine
19793#endif
19794
19795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19796
19797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19798 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19800
19801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19802
19803#if CK5_ENABLED
19804 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19806 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK5
19807#endif
19808 use pm_kind, only: CKG => CK5
19809 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19810 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19811 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19812 complex(CKG) , intent(in) :: alpha
19813 type(lowerUnit_type) , intent(in) :: classA
19814 type(transOrth_type) , intent(in) :: operationA
19815 end subroutine
19816#endif
19817
19818#if CK4_ENABLED
19819 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19821 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK4
19822#endif
19823 use pm_kind, only: CKG => CK4
19824 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19825 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19826 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19827 complex(CKG) , intent(in) :: alpha
19828 type(lowerUnit_type) , intent(in) :: classA
19829 type(transOrth_type) , intent(in) :: operationA
19830 end subroutine
19831#endif
19832
19833#if CK3_ENABLED
19834 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19836 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK3
19837#endif
19838 use pm_kind, only: CKG => CK3
19839 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19840 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19841 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19842 complex(CKG) , intent(in) :: alpha
19843 type(lowerUnit_type) , intent(in) :: classA
19844 type(transOrth_type) , intent(in) :: operationA
19845 end subroutine
19846#endif
19847
19848#if CK2_ENABLED
19849 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19851 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK2
19852#endif
19853 use pm_kind, only: CKG => CK2
19854 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19855 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19856 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19857 complex(CKG) , intent(in) :: alpha
19858 type(lowerUnit_type) , intent(in) :: classA
19859 type(transOrth_type) , intent(in) :: operationA
19860 end subroutine
19861#endif
19862
19863#if CK1_ENABLED
19864 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19866 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_CK1
19867#endif
19868 use pm_kind, only: CKG => CK1
19869 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19870 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19871 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19872 complex(CKG) , intent(in) :: alpha
19873 type(lowerUnit_type) , intent(in) :: classA
19874 type(transOrth_type) , intent(in) :: operationA
19875 end subroutine
19876#endif
19877
19878 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19879
19880#if RK5_ENABLED
19881 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19883 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK5
19884#endif
19885 use pm_kind, only: RKG => RK5
19886 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19887 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19888 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19889 real(RKG) , intent(in) :: alpha
19890 type(lowerUnit_type) , intent(in) :: classA
19891 type(transOrth_type) , intent(in) :: operationA
19892 end subroutine
19893#endif
19894
19895#if RK4_ENABLED
19896 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19898 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK4
19899#endif
19900 use pm_kind, only: RKG => RK4
19901 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19902 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19903 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19904 real(RKG) , intent(in) :: alpha
19905 type(lowerUnit_type) , intent(in) :: classA
19906 type(transOrth_type) , intent(in) :: operationA
19907 end subroutine
19908#endif
19909
19910#if RK3_ENABLED
19911 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19913 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK3
19914#endif
19915 use pm_kind, only: RKG => RK3
19916 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19917 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19918 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19919 real(RKG) , intent(in) :: alpha
19920 type(lowerUnit_type) , intent(in) :: classA
19921 type(transOrth_type) , intent(in) :: operationA
19922 end subroutine
19923#endif
19924
19925#if RK2_ENABLED
19926 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19928 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK2
19929#endif
19930 use pm_kind, only: RKG => RK2
19931 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19932 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19933 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19934 real(RKG) , intent(in) :: alpha
19935 type(lowerUnit_type) , intent(in) :: classA
19936 type(transOrth_type) , intent(in) :: operationA
19937 end subroutine
19938#endif
19939
19940#if RK1_ENABLED
19941 PURE module subroutine trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19943 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTOA_CGMB_ONOB_RK1
19944#endif
19945 use pm_kind, only: RKG => RK1
19946 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19947 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19948 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19949 real(RKG) , intent(in) :: alpha
19950 type(lowerUnit_type) , intent(in) :: classA
19951 type(transOrth_type) , intent(in) :: operationA
19952 end subroutine
19953#endif
19954
19955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19956
19957 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19958 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19960
19961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19962
19963#if CK5_ENABLED
19964 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19966 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK5
19967#endif
19968 use pm_kind, only: CKG => CK5
19969 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19970 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19971 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19972 complex(CKG) , intent(in) :: alpha
19973 type(lowerUnit_type) , intent(in) :: classA
19974 type(transUnit_type) , intent(in) :: operationA
19975 end subroutine
19976#endif
19977
19978#if CK4_ENABLED
19979 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19981 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK4
19982#endif
19983 use pm_kind, only: CKG => CK4
19984 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
19985 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
19986 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
19987 complex(CKG) , intent(in) :: alpha
19988 type(lowerUnit_type) , intent(in) :: classA
19989 type(transUnit_type) , intent(in) :: operationA
19990 end subroutine
19991#endif
19992
19993#if CK3_ENABLED
19994 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
19995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19996 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK3
19997#endif
19998 use pm_kind, only: CKG => CK3
19999 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20000 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20001 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20002 complex(CKG) , intent(in) :: alpha
20003 type(lowerUnit_type) , intent(in) :: classA
20004 type(transUnit_type) , intent(in) :: operationA
20005 end subroutine
20006#endif
20007
20008#if CK2_ENABLED
20009 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20011 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK2
20012#endif
20013 use pm_kind, only: CKG => CK2
20014 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20015 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20016 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20017 complex(CKG) , intent(in) :: alpha
20018 type(lowerUnit_type) , intent(in) :: classA
20019 type(transUnit_type) , intent(in) :: operationA
20020 end subroutine
20021#endif
20022
20023#if CK1_ENABLED
20024 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20026 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_CK1
20027#endif
20028 use pm_kind, only: CKG => CK1
20029 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20030 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20031 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20032 complex(CKG) , intent(in) :: alpha
20033 type(lowerUnit_type) , intent(in) :: classA
20034 type(transUnit_type) , intent(in) :: operationA
20035 end subroutine
20036#endif
20037
20038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20039
20040#if RK5_ENABLED
20041 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20043 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK5
20044#endif
20045 use pm_kind, only: RKG => RK5
20046 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20047 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20048 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20049 real(RKG) , intent(in) :: alpha
20050 type(lowerUnit_type) , intent(in) :: classA
20051 type(transUnit_type) , intent(in) :: operationA
20052 end subroutine
20053#endif
20054
20055#if RK4_ENABLED
20056 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20058 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK4
20059#endif
20060 use pm_kind, only: RKG => RK4
20061 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20062 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20063 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20064 real(RKG) , intent(in) :: alpha
20065 type(lowerUnit_type) , intent(in) :: classA
20066 type(transUnit_type) , intent(in) :: operationA
20067 end subroutine
20068#endif
20069
20070#if RK3_ENABLED
20071 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20073 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK3
20074#endif
20075 use pm_kind, only: RKG => RK3
20076 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20077 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20078 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20079 real(RKG) , intent(in) :: alpha
20080 type(lowerUnit_type) , intent(in) :: classA
20081 type(transUnit_type) , intent(in) :: operationA
20082 end subroutine
20083#endif
20084
20085#if RK2_ENABLED
20086 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20088 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK2
20089#endif
20090 use pm_kind, only: RKG => RK2
20091 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20092 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20093 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20094 real(RKG) , intent(in) :: alpha
20095 type(lowerUnit_type) , intent(in) :: classA
20096 type(transUnit_type) , intent(in) :: operationA
20097 end subroutine
20098#endif
20099
20100#if RK1_ENABLED
20101 PURE module subroutine trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20103 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CLUA_OTUA_CGMB_ONOB_RK1
20104#endif
20105 use pm_kind, only: RKG => RK1
20106 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20107 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20108 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20109 real(RKG) , intent(in) :: alpha
20110 type(lowerUnit_type) , intent(in) :: classA
20111 type(transUnit_type) , intent(in) :: operationA
20112 end subroutine
20113#endif
20114
20115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20116
20117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20120
20121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20123 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20124
20125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20126
20127#if CK5_ENABLED
20128 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20130 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_CK5
20131#endif
20132 use pm_kind, only: CKG => CK5
20133 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20134 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20135 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20136 complex(CKG) , intent(in) :: alpha
20137 type(upperUnit_type) , intent(in) :: classA
20138 type(inversion_type) , intent(in) :: operationA
20139 end subroutine
20140#endif
20141
20142#if CK4_ENABLED
20143 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20145 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_CK4
20146#endif
20147 use pm_kind, only: CKG => CK4
20148 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20149 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20150 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20151 complex(CKG) , intent(in) :: alpha
20152 type(upperUnit_type) , intent(in) :: classA
20153 type(inversion_type) , intent(in) :: operationA
20154 end subroutine
20155#endif
20156
20157#if CK3_ENABLED
20158 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20160 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_CK3
20161#endif
20162 use pm_kind, only: CKG => CK3
20163 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20164 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20165 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20166 complex(CKG) , intent(in) :: alpha
20167 type(upperUnit_type) , intent(in) :: classA
20168 type(inversion_type) , intent(in) :: operationA
20169 end subroutine
20170#endif
20171
20172#if CK2_ENABLED
20173 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20175 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_CK2
20176#endif
20177 use pm_kind, only: CKG => CK2
20178 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20179 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20180 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20181 complex(CKG) , intent(in) :: alpha
20182 type(upperUnit_type) , intent(in) :: classA
20183 type(inversion_type) , intent(in) :: operationA
20184 end subroutine
20185#endif
20186
20187#if CK1_ENABLED
20188 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20190 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_CK1
20191#endif
20192 use pm_kind, only: CKG => CK1
20193 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20194 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20195 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20196 complex(CKG) , intent(in) :: alpha
20197 type(upperUnit_type) , intent(in) :: classA
20198 type(inversion_type) , intent(in) :: operationA
20199 end subroutine
20200#endif
20201
20202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20203
20204#if RK5_ENABLED
20205 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20207 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_RK5
20208#endif
20209 use pm_kind, only: RKG => RK5
20210 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20211 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20212 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20213 real(RKG) , intent(in) :: alpha
20214 type(upperUnit_type) , intent(in) :: classA
20215 type(inversion_type) , intent(in) :: operationA
20216 end subroutine
20217#endif
20218
20219#if RK4_ENABLED
20220 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20222 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_RK4
20223#endif
20224 use pm_kind, only: RKG => RK4
20225 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20226 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20227 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20228 real(RKG) , intent(in) :: alpha
20229 type(upperUnit_type) , intent(in) :: classA
20230 type(inversion_type) , intent(in) :: operationA
20231 end subroutine
20232#endif
20233
20234#if RK3_ENABLED
20235 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20237 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_RK3
20238#endif
20239 use pm_kind, only: RKG => RK3
20240 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20241 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20242 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20243 real(RKG) , intent(in) :: alpha
20244 type(upperUnit_type) , intent(in) :: classA
20245 type(inversion_type) , intent(in) :: operationA
20246 end subroutine
20247#endif
20248
20249#if RK2_ENABLED
20250 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20252 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_RK2
20253#endif
20254 use pm_kind, only: RKG => RK2
20255 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20256 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20257 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20258 real(RKG) , intent(in) :: alpha
20259 type(upperUnit_type) , intent(in) :: classA
20260 type(inversion_type) , intent(in) :: operationA
20261 end subroutine
20262#endif
20263
20264#if RK1_ENABLED
20265 PURE module subroutine trsm_EXP_CUUA_INVA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20267 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_INVA_CGMB_ONOB_RK1
20268#endif
20269 use pm_kind, only: RKG => RK1
20270 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20271 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20272 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20273 real(RKG) , intent(in) :: alpha
20274 type(upperUnit_type) , intent(in) :: classA
20275 type(inversion_type) , intent(in) :: operationA
20276 end subroutine
20277#endif
20278
20279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20280
20281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20284
20285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20286
20287#if CK5_ENABLED
20288 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20290 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK5
20291#endif
20292 use pm_kind, only: CKG => CK5
20293 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20294 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20295 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20296 complex(CKG) , intent(in) :: alpha
20297 type(upperUnit_type) , intent(in) :: classA
20298 type(transOrth_type) , intent(in) :: operationA
20299 end subroutine
20300#endif
20301
20302#if CK4_ENABLED
20303 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20305 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK4
20306#endif
20307 use pm_kind, only: CKG => CK4
20308 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20309 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20310 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20311 complex(CKG) , intent(in) :: alpha
20312 type(upperUnit_type) , intent(in) :: classA
20313 type(transOrth_type) , intent(in) :: operationA
20314 end subroutine
20315#endif
20316
20317#if CK3_ENABLED
20318 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20320 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK3
20321#endif
20322 use pm_kind, only: CKG => CK3
20323 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20324 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20325 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20326 complex(CKG) , intent(in) :: alpha
20327 type(upperUnit_type) , intent(in) :: classA
20328 type(transOrth_type) , intent(in) :: operationA
20329 end subroutine
20330#endif
20331
20332#if CK2_ENABLED
20333 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20335 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK2
20336#endif
20337 use pm_kind, only: CKG => CK2
20338 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20339 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20340 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20341 complex(CKG) , intent(in) :: alpha
20342 type(upperUnit_type) , intent(in) :: classA
20343 type(transOrth_type) , intent(in) :: operationA
20344 end subroutine
20345#endif
20346
20347#if CK1_ENABLED
20348 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20350 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_CK1
20351#endif
20352 use pm_kind, only: CKG => CK1
20353 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20354 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20355 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20356 complex(CKG) , intent(in) :: alpha
20357 type(upperUnit_type) , intent(in) :: classA
20358 type(transOrth_type) , intent(in) :: operationA
20359 end subroutine
20360#endif
20361
20362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20363
20364#if RK5_ENABLED
20365 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20367 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK5
20368#endif
20369 use pm_kind, only: RKG => RK5
20370 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20371 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20372 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20373 real(RKG) , intent(in) :: alpha
20374 type(upperUnit_type) , intent(in) :: classA
20375 type(transOrth_type) , intent(in) :: operationA
20376 end subroutine
20377#endif
20378
20379#if RK4_ENABLED
20380 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20382 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK4
20383#endif
20384 use pm_kind, only: RKG => RK4
20385 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20386 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20387 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20388 real(RKG) , intent(in) :: alpha
20389 type(upperUnit_type) , intent(in) :: classA
20390 type(transOrth_type) , intent(in) :: operationA
20391 end subroutine
20392#endif
20393
20394#if RK3_ENABLED
20395 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20397 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK3
20398#endif
20399 use pm_kind, only: RKG => RK3
20400 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20401 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20402 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20403 real(RKG) , intent(in) :: alpha
20404 type(upperUnit_type) , intent(in) :: classA
20405 type(transOrth_type) , intent(in) :: operationA
20406 end subroutine
20407#endif
20408
20409#if RK2_ENABLED
20410 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20412 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK2
20413#endif
20414 use pm_kind, only: RKG => RK2
20415 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20416 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20417 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20418 real(RKG) , intent(in) :: alpha
20419 type(upperUnit_type) , intent(in) :: classA
20420 type(transOrth_type) , intent(in) :: operationA
20421 end subroutine
20422#endif
20423
20424#if RK1_ENABLED
20425 PURE module subroutine trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20427 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTOA_CGMB_ONOB_RK1
20428#endif
20429 use pm_kind, only: RKG => RK1
20430 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20431 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20432 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20433 real(RKG) , intent(in) :: alpha
20434 type(upperUnit_type) , intent(in) :: classA
20435 type(transOrth_type) , intent(in) :: operationA
20436 end subroutine
20437#endif
20438
20439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20440
20441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20444
20445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20446
20447#if CK5_ENABLED
20448 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20450 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK5
20451#endif
20452 use pm_kind, only: CKG => CK5
20453 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20454 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20455 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20456 complex(CKG) , intent(in) :: alpha
20457 type(upperUnit_type) , intent(in) :: classA
20458 type(transUnit_type) , intent(in) :: operationA
20459 end subroutine
20460#endif
20461
20462#if CK4_ENABLED
20463 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20465 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK4
20466#endif
20467 use pm_kind, only: CKG => CK4
20468 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20469 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20470 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20471 complex(CKG) , intent(in) :: alpha
20472 type(upperUnit_type) , intent(in) :: classA
20473 type(transUnit_type) , intent(in) :: operationA
20474 end subroutine
20475#endif
20476
20477#if CK3_ENABLED
20478 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20480 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK3
20481#endif
20482 use pm_kind, only: CKG => CK3
20483 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20484 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20485 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20486 complex(CKG) , intent(in) :: alpha
20487 type(upperUnit_type) , intent(in) :: classA
20488 type(transUnit_type) , intent(in) :: operationA
20489 end subroutine
20490#endif
20491
20492#if CK2_ENABLED
20493 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20495 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK2
20496#endif
20497 use pm_kind, only: CKG => CK2
20498 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20499 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20500 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20501 complex(CKG) , intent(in) :: alpha
20502 type(upperUnit_type) , intent(in) :: classA
20503 type(transUnit_type) , intent(in) :: operationA
20504 end subroutine
20505#endif
20506
20507#if CK1_ENABLED
20508 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20510 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_CK1
20511#endif
20512 use pm_kind, only: CKG => CK1
20513 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20514 complex(CKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20515 complex(CKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20516 complex(CKG) , intent(in) :: alpha
20517 type(upperUnit_type) , intent(in) :: classA
20518 type(transUnit_type) , intent(in) :: operationA
20519 end subroutine
20520#endif
20521
20522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20523
20524#if RK5_ENABLED
20525 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK5(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20527 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK5
20528#endif
20529 use pm_kind, only: RKG => RK5
20530 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20531 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20532 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20533 real(RKG) , intent(in) :: alpha
20534 type(upperUnit_type) , intent(in) :: classA
20535 type(transUnit_type) , intent(in) :: operationA
20536 end subroutine
20537#endif
20538
20539#if RK4_ENABLED
20540 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK4(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20542 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK4
20543#endif
20544 use pm_kind, only: RKG => RK4
20545 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20546 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20547 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20548 real(RKG) , intent(in) :: alpha
20549 type(upperUnit_type) , intent(in) :: classA
20550 type(transUnit_type) , intent(in) :: operationA
20551 end subroutine
20552#endif
20553
20554#if RK3_ENABLED
20555 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK3(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20557 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK3
20558#endif
20559 use pm_kind, only: RKG => RK3
20560 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20561 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20562 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20563 real(RKG) , intent(in) :: alpha
20564 type(upperUnit_type) , intent(in) :: classA
20565 type(transUnit_type) , intent(in) :: operationA
20566 end subroutine
20567#endif
20568
20569#if RK2_ENABLED
20570 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK2(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20572 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK2
20573#endif
20574 use pm_kind, only: RKG => RK2
20575 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20576 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20577 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20578 real(RKG) , intent(in) :: alpha
20579 type(upperUnit_type) , intent(in) :: classA
20580 type(transUnit_type) , intent(in) :: operationA
20581 end subroutine
20582#endif
20583
20584#if RK1_ENABLED
20585 PURE module subroutine trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK1(matA, classA, operationA, matB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20587 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CUUA_OTUA_CGMB_ONOB_RK1
20588#endif
20589 use pm_kind, only: RKG => RK1
20590 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20591 real(RKG) , intent(in) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20592 real(RKG) , intent(inout) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20593 real(RKG) , intent(in) :: alpha
20594 type(upperUnit_type) , intent(in) :: classA
20595 type(transUnit_type) , intent(in) :: operationA
20596 end subroutine
20597#endif
20598
20599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20600
20601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20604
20605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20606 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20608
20609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20612
20613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20614
20615#if CK5_ENABLED
20616 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20618 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_CK5
20619#endif
20620 use pm_kind, only: CKG => CK5
20621 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20622 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20623 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20624 complex(CKG) , intent(in) :: alpha
20625 type(lowerDiag_type) , intent(in) :: classB
20626 type(inversion_type) , intent(in) :: operationB
20627 end subroutine
20628#endif
20629
20630#if CK4_ENABLED
20631 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20633 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_CK4
20634#endif
20635 use pm_kind, only: CKG => CK4
20636 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20637 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20638 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20639 complex(CKG) , intent(in) :: alpha
20640 type(lowerDiag_type) , intent(in) :: classB
20641 type(inversion_type) , intent(in) :: operationB
20642 end subroutine
20643#endif
20644
20645#if CK3_ENABLED
20646 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20648 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_CK3
20649#endif
20650 use pm_kind, only: CKG => CK3
20651 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20652 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20653 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20654 complex(CKG) , intent(in) :: alpha
20655 type(lowerDiag_type) , intent(in) :: classB
20656 type(inversion_type) , intent(in) :: operationB
20657 end subroutine
20658#endif
20659
20660#if CK2_ENABLED
20661 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20663 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_CK2
20664#endif
20665 use pm_kind, only: CKG => CK2
20666 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20667 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20668 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20669 complex(CKG) , intent(in) :: alpha
20670 type(lowerDiag_type) , intent(in) :: classB
20671 type(inversion_type) , intent(in) :: operationB
20672 end subroutine
20673#endif
20674
20675#if CK1_ENABLED
20676 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20678 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_CK1
20679#endif
20680 use pm_kind, only: CKG => CK1
20681 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20682 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20683 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20684 complex(CKG) , intent(in) :: alpha
20685 type(lowerDiag_type) , intent(in) :: classB
20686 type(inversion_type) , intent(in) :: operationB
20687 end subroutine
20688#endif
20689
20690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20691
20692#if RK5_ENABLED
20693 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20695 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_RK5
20696#endif
20697 use pm_kind, only: RKG => RK5
20698 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20699 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20700 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20701 real(RKG) , intent(in) :: alpha
20702 type(lowerDiag_type) , intent(in) :: classB
20703 type(inversion_type) , intent(in) :: operationB
20704 end subroutine
20705#endif
20706
20707#if RK4_ENABLED
20708 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20710 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_RK4
20711#endif
20712 use pm_kind, only: RKG => RK4
20713 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20714 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20715 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20716 real(RKG) , intent(in) :: alpha
20717 type(lowerDiag_type) , intent(in) :: classB
20718 type(inversion_type) , intent(in) :: operationB
20719 end subroutine
20720#endif
20721
20722#if RK3_ENABLED
20723 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20725 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_RK3
20726#endif
20727 use pm_kind, only: RKG => RK3
20728 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20729 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20730 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20731 real(RKG) , intent(in) :: alpha
20732 type(lowerDiag_type) , intent(in) :: classB
20733 type(inversion_type) , intent(in) :: operationB
20734 end subroutine
20735#endif
20736
20737#if RK2_ENABLED
20738 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20740 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_RK2
20741#endif
20742 use pm_kind, only: RKG => RK2
20743 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20744 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20745 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20746 real(RKG) , intent(in) :: alpha
20747 type(lowerDiag_type) , intent(in) :: classB
20748 type(inversion_type) , intent(in) :: operationB
20749 end subroutine
20750#endif
20751
20752#if RK1_ENABLED
20753 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_INVB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20755 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_INVB_RK1
20756#endif
20757 use pm_kind, only: RKG => RK1
20758 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20759 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20760 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20761 real(RKG) , intent(in) :: alpha
20762 type(lowerDiag_type) , intent(in) :: classB
20763 type(inversion_type) , intent(in) :: operationB
20764 end subroutine
20765#endif
20766
20767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20768
20769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20772
20773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20774
20775#if CK5_ENABLED
20776 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20778 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK5
20779#endif
20780 use pm_kind, only: CKG => CK5
20781 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20782 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20783 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20784 complex(CKG) , intent(in) :: alpha
20785 type(lowerDiag_type) , intent(in) :: classB
20786 type(transOrth_type) , intent(in) :: operationB
20787 end subroutine
20788#endif
20789
20790#if CK4_ENABLED
20791 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20793 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK4
20794#endif
20795 use pm_kind, only: CKG => CK4
20796 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20797 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20798 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20799 complex(CKG) , intent(in) :: alpha
20800 type(lowerDiag_type) , intent(in) :: classB
20801 type(transOrth_type) , intent(in) :: operationB
20802 end subroutine
20803#endif
20804
20805#if CK3_ENABLED
20806 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20808 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK3
20809#endif
20810 use pm_kind, only: CKG => CK3
20811 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20812 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20813 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20814 complex(CKG) , intent(in) :: alpha
20815 type(lowerDiag_type) , intent(in) :: classB
20816 type(transOrth_type) , intent(in) :: operationB
20817 end subroutine
20818#endif
20819
20820#if CK2_ENABLED
20821 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20823 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK2
20824#endif
20825 use pm_kind, only: CKG => CK2
20826 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20827 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20828 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20829 complex(CKG) , intent(in) :: alpha
20830 type(lowerDiag_type) , intent(in) :: classB
20831 type(transOrth_type) , intent(in) :: operationB
20832 end subroutine
20833#endif
20834
20835#if CK1_ENABLED
20836 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20838 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_CK1
20839#endif
20840 use pm_kind, only: CKG => CK1
20841 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20842 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20843 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20844 complex(CKG) , intent(in) :: alpha
20845 type(lowerDiag_type) , intent(in) :: classB
20846 type(transOrth_type) , intent(in) :: operationB
20847 end subroutine
20848#endif
20849
20850 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20851
20852#if RK5_ENABLED
20853 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20855 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK5
20856#endif
20857 use pm_kind, only: RKG => RK5
20858 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20859 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20860 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20861 real(RKG) , intent(in) :: alpha
20862 type(lowerDiag_type) , intent(in) :: classB
20863 type(transOrth_type) , intent(in) :: operationB
20864 end subroutine
20865#endif
20866
20867#if RK4_ENABLED
20868 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20870 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK4
20871#endif
20872 use pm_kind, only: RKG => RK4
20873 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20874 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20875 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20876 real(RKG) , intent(in) :: alpha
20877 type(lowerDiag_type) , intent(in) :: classB
20878 type(transOrth_type) , intent(in) :: operationB
20879 end subroutine
20880#endif
20881
20882#if RK3_ENABLED
20883 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20885 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK3
20886#endif
20887 use pm_kind, only: RKG => RK3
20888 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20889 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20890 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20891 real(RKG) , intent(in) :: alpha
20892 type(lowerDiag_type) , intent(in) :: classB
20893 type(transOrth_type) , intent(in) :: operationB
20894 end subroutine
20895#endif
20896
20897#if RK2_ENABLED
20898 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20900 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK2
20901#endif
20902 use pm_kind, only: RKG => RK2
20903 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20904 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20905 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20906 real(RKG) , intent(in) :: alpha
20907 type(lowerDiag_type) , intent(in) :: classB
20908 type(transOrth_type) , intent(in) :: operationB
20909 end subroutine
20910#endif
20911
20912#if RK1_ENABLED
20913 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20915 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTOB_RK1
20916#endif
20917 use pm_kind, only: RKG => RK1
20918 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20919 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20920 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20921 real(RKG) , intent(in) :: alpha
20922 type(lowerDiag_type) , intent(in) :: classB
20923 type(transOrth_type) , intent(in) :: operationB
20924 end subroutine
20925#endif
20926
20927 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20928
20929 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20932
20933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20934
20935#if CK5_ENABLED
20936 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20938 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK5
20939#endif
20940 use pm_kind, only: CKG => CK5
20941 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20942 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20943 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20944 complex(CKG) , intent(in) :: alpha
20945 type(lowerDiag_type) , intent(in) :: classB
20946 type(transUnit_type) , intent(in) :: operationB
20947 end subroutine
20948#endif
20949
20950#if CK4_ENABLED
20951 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20953 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK4
20954#endif
20955 use pm_kind, only: CKG => CK4
20956 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20957 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20958 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20959 complex(CKG) , intent(in) :: alpha
20960 type(lowerDiag_type) , intent(in) :: classB
20961 type(transUnit_type) , intent(in) :: operationB
20962 end subroutine
20963#endif
20964
20965#if CK3_ENABLED
20966 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20968 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK3
20969#endif
20970 use pm_kind, only: CKG => CK3
20971 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20972 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20973 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20974 complex(CKG) , intent(in) :: alpha
20975 type(lowerDiag_type) , intent(in) :: classB
20976 type(transUnit_type) , intent(in) :: operationB
20977 end subroutine
20978#endif
20979
20980#if CK2_ENABLED
20981 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20983 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK2
20984#endif
20985 use pm_kind, only: CKG => CK2
20986 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
20987 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
20988 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
20989 complex(CKG) , intent(in) :: alpha
20990 type(lowerDiag_type) , intent(in) :: classB
20991 type(transUnit_type) , intent(in) :: operationB
20992 end subroutine
20993#endif
20994
20995#if CK1_ENABLED
20996 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
20997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
20998 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_CK1
20999#endif
21000 use pm_kind, only: CKG => CK1
21001 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21002 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21003 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21004 complex(CKG) , intent(in) :: alpha
21005 type(lowerDiag_type) , intent(in) :: classB
21006 type(transUnit_type) , intent(in) :: operationB
21007 end subroutine
21008#endif
21009
21010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21011
21012#if RK5_ENABLED
21013 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21015 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK5
21016#endif
21017 use pm_kind, only: RKG => RK5
21018 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21019 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21020 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21021 real(RKG) , intent(in) :: alpha
21022 type(lowerDiag_type) , intent(in) :: classB
21023 type(transUnit_type) , intent(in) :: operationB
21024 end subroutine
21025#endif
21026
21027#if RK4_ENABLED
21028 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21030 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK4
21031#endif
21032 use pm_kind, only: RKG => RK4
21033 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21034 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21035 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21036 real(RKG) , intent(in) :: alpha
21037 type(lowerDiag_type) , intent(in) :: classB
21038 type(transUnit_type) , intent(in) :: operationB
21039 end subroutine
21040#endif
21041
21042#if RK3_ENABLED
21043 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21045 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK3
21046#endif
21047 use pm_kind, only: RKG => RK3
21048 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21049 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21050 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21051 real(RKG) , intent(in) :: alpha
21052 type(lowerDiag_type) , intent(in) :: classB
21053 type(transUnit_type) , intent(in) :: operationB
21054 end subroutine
21055#endif
21056
21057#if RK2_ENABLED
21058 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21060 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK2
21061#endif
21062 use pm_kind, only: RKG => RK2
21063 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21064 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21065 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21066 real(RKG) , intent(in) :: alpha
21067 type(lowerDiag_type) , intent(in) :: classB
21068 type(transUnit_type) , intent(in) :: operationB
21069 end subroutine
21070#endif
21071
21072#if RK1_ENABLED
21073 PURE module subroutine trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21075 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLDB_OTUB_RK1
21076#endif
21077 use pm_kind, only: RKG => RK1
21078 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21079 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21080 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21081 real(RKG) , intent(in) :: alpha
21082 type(lowerDiag_type) , intent(in) :: classB
21083 type(transUnit_type) , intent(in) :: operationB
21084 end subroutine
21085#endif
21086
21087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21088
21089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21092
21093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21096
21097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21098
21099#if CK5_ENABLED
21100 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21102 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_CK5
21103#endif
21104 use pm_kind, only: CKG => CK5
21105 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21106 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21107 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21108 complex(CKG) , intent(in) :: alpha
21109 type(upperDiag_type) , intent(in) :: classB
21110 type(inversion_type) , intent(in) :: operationB
21111 end subroutine
21112#endif
21113
21114#if CK4_ENABLED
21115 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21117 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_CK4
21118#endif
21119 use pm_kind, only: CKG => CK4
21120 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21121 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21122 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21123 complex(CKG) , intent(in) :: alpha
21124 type(upperDiag_type) , intent(in) :: classB
21125 type(inversion_type) , intent(in) :: operationB
21126 end subroutine
21127#endif
21128
21129#if CK3_ENABLED
21130 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21132 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_CK3
21133#endif
21134 use pm_kind, only: CKG => CK3
21135 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21136 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21137 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21138 complex(CKG) , intent(in) :: alpha
21139 type(upperDiag_type) , intent(in) :: classB
21140 type(inversion_type) , intent(in) :: operationB
21141 end subroutine
21142#endif
21143
21144#if CK2_ENABLED
21145 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21147 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_CK2
21148#endif
21149 use pm_kind, only: CKG => CK2
21150 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21151 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21152 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21153 complex(CKG) , intent(in) :: alpha
21154 type(upperDiag_type) , intent(in) :: classB
21155 type(inversion_type) , intent(in) :: operationB
21156 end subroutine
21157#endif
21158
21159#if CK1_ENABLED
21160 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21162 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_CK1
21163#endif
21164 use pm_kind, only: CKG => CK1
21165 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21166 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21167 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21168 complex(CKG) , intent(in) :: alpha
21169 type(upperDiag_type) , intent(in) :: classB
21170 type(inversion_type) , intent(in) :: operationB
21171 end subroutine
21172#endif
21173
21174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21175
21176#if RK5_ENABLED
21177 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21179 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_RK5
21180#endif
21181 use pm_kind, only: RKG => RK5
21182 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21183 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21184 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21185 real(RKG) , intent(in) :: alpha
21186 type(upperDiag_type) , intent(in) :: classB
21187 type(inversion_type) , intent(in) :: operationB
21188 end subroutine
21189#endif
21190
21191#if RK4_ENABLED
21192 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21194 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_RK4
21195#endif
21196 use pm_kind, only: RKG => RK4
21197 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21198 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21199 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21200 real(RKG) , intent(in) :: alpha
21201 type(upperDiag_type) , intent(in) :: classB
21202 type(inversion_type) , intent(in) :: operationB
21203 end subroutine
21204#endif
21205
21206#if RK3_ENABLED
21207 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21209 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_RK3
21210#endif
21211 use pm_kind, only: RKG => RK3
21212 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21213 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21214 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21215 real(RKG) , intent(in) :: alpha
21216 type(upperDiag_type) , intent(in) :: classB
21217 type(inversion_type) , intent(in) :: operationB
21218 end subroutine
21219#endif
21220
21221#if RK2_ENABLED
21222 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21224 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_RK2
21225#endif
21226 use pm_kind, only: RKG => RK2
21227 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21228 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21229 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21230 real(RKG) , intent(in) :: alpha
21231 type(upperDiag_type) , intent(in) :: classB
21232 type(inversion_type) , intent(in) :: operationB
21233 end subroutine
21234#endif
21235
21236#if RK1_ENABLED
21237 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_INVB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21239 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_INVB_RK1
21240#endif
21241 use pm_kind, only: RKG => RK1
21242 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21243 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21244 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21245 real(RKG) , intent(in) :: alpha
21246 type(upperDiag_type) , intent(in) :: classB
21247 type(inversion_type) , intent(in) :: operationB
21248 end subroutine
21249#endif
21250
21251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21252
21253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21256
21257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21258
21259#if CK5_ENABLED
21260 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21262 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK5
21263#endif
21264 use pm_kind, only: CKG => CK5
21265 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21266 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21267 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21268 complex(CKG) , intent(in) :: alpha
21269 type(upperDiag_type) , intent(in) :: classB
21270 type(transOrth_type) , intent(in) :: operationB
21271 end subroutine
21272#endif
21273
21274#if CK4_ENABLED
21275 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21277 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK4
21278#endif
21279 use pm_kind, only: CKG => CK4
21280 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21281 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21282 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21283 complex(CKG) , intent(in) :: alpha
21284 type(upperDiag_type) , intent(in) :: classB
21285 type(transOrth_type) , intent(in) :: operationB
21286 end subroutine
21287#endif
21288
21289#if CK3_ENABLED
21290 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21292 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK3
21293#endif
21294 use pm_kind, only: CKG => CK3
21295 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21296 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21297 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21298 complex(CKG) , intent(in) :: alpha
21299 type(upperDiag_type) , intent(in) :: classB
21300 type(transOrth_type) , intent(in) :: operationB
21301 end subroutine
21302#endif
21303
21304#if CK2_ENABLED
21305 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21307 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK2
21308#endif
21309 use pm_kind, only: CKG => CK2
21310 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21311 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21312 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21313 complex(CKG) , intent(in) :: alpha
21314 type(upperDiag_type) , intent(in) :: classB
21315 type(transOrth_type) , intent(in) :: operationB
21316 end subroutine
21317#endif
21318
21319#if CK1_ENABLED
21320 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21322 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_CK1
21323#endif
21324 use pm_kind, only: CKG => CK1
21325 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21326 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21327 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21328 complex(CKG) , intent(in) :: alpha
21329 type(upperDiag_type) , intent(in) :: classB
21330 type(transOrth_type) , intent(in) :: operationB
21331 end subroutine
21332#endif
21333
21334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21335
21336#if RK5_ENABLED
21337 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21339 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK5
21340#endif
21341 use pm_kind, only: RKG => RK5
21342 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21343 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21344 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21345 real(RKG) , intent(in) :: alpha
21346 type(upperDiag_type) , intent(in) :: classB
21347 type(transOrth_type) , intent(in) :: operationB
21348 end subroutine
21349#endif
21350
21351#if RK4_ENABLED
21352 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21354 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK4
21355#endif
21356 use pm_kind, only: RKG => RK4
21357 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21358 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21359 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21360 real(RKG) , intent(in) :: alpha
21361 type(upperDiag_type) , intent(in) :: classB
21362 type(transOrth_type) , intent(in) :: operationB
21363 end subroutine
21364#endif
21365
21366#if RK3_ENABLED
21367 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21369 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK3
21370#endif
21371 use pm_kind, only: RKG => RK3
21372 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21373 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21374 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21375 real(RKG) , intent(in) :: alpha
21376 type(upperDiag_type) , intent(in) :: classB
21377 type(transOrth_type) , intent(in) :: operationB
21378 end subroutine
21379#endif
21380
21381#if RK2_ENABLED
21382 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21384 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK2
21385#endif
21386 use pm_kind, only: RKG => RK2
21387 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21388 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21389 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21390 real(RKG) , intent(in) :: alpha
21391 type(upperDiag_type) , intent(in) :: classB
21392 type(transOrth_type) , intent(in) :: operationB
21393 end subroutine
21394#endif
21395
21396#if RK1_ENABLED
21397 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21399 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTOB_RK1
21400#endif
21401 use pm_kind, only: RKG => RK1
21402 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21403 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21404 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21405 real(RKG) , intent(in) :: alpha
21406 type(upperDiag_type) , intent(in) :: classB
21407 type(transOrth_type) , intent(in) :: operationB
21408 end subroutine
21409#endif
21410
21411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21412
21413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21416
21417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21418
21419#if CK5_ENABLED
21420 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21422 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK5
21423#endif
21424 use pm_kind, only: CKG => CK5
21425 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21426 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21427 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21428 complex(CKG) , intent(in) :: alpha
21429 type(upperDiag_type) , intent(in) :: classB
21430 type(transUnit_type) , intent(in) :: operationB
21431 end subroutine
21432#endif
21433
21434#if CK4_ENABLED
21435 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21437 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK4
21438#endif
21439 use pm_kind, only: CKG => CK4
21440 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21441 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21442 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21443 complex(CKG) , intent(in) :: alpha
21444 type(upperDiag_type) , intent(in) :: classB
21445 type(transUnit_type) , intent(in) :: operationB
21446 end subroutine
21447#endif
21448
21449#if CK3_ENABLED
21450 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21452 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK3
21453#endif
21454 use pm_kind, only: CKG => CK3
21455 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21456 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21457 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21458 complex(CKG) , intent(in) :: alpha
21459 type(upperDiag_type) , intent(in) :: classB
21460 type(transUnit_type) , intent(in) :: operationB
21461 end subroutine
21462#endif
21463
21464#if CK2_ENABLED
21465 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21467 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK2
21468#endif
21469 use pm_kind, only: CKG => CK2
21470 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21471 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21472 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21473 complex(CKG) , intent(in) :: alpha
21474 type(upperDiag_type) , intent(in) :: classB
21475 type(transUnit_type) , intent(in) :: operationB
21476 end subroutine
21477#endif
21478
21479#if CK1_ENABLED
21480 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21482 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_CK1
21483#endif
21484 use pm_kind, only: CKG => CK1
21485 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21486 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21487 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21488 complex(CKG) , intent(in) :: alpha
21489 type(upperDiag_type) , intent(in) :: classB
21490 type(transUnit_type) , intent(in) :: operationB
21491 end subroutine
21492#endif
21493
21494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21495
21496#if RK5_ENABLED
21497 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21499 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK5
21500#endif
21501 use pm_kind, only: RKG => RK5
21502 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21503 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21504 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21505 real(RKG) , intent(in) :: alpha
21506 type(upperDiag_type) , intent(in) :: classB
21507 type(transUnit_type) , intent(in) :: operationB
21508 end subroutine
21509#endif
21510
21511#if RK4_ENABLED
21512 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21514 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK4
21515#endif
21516 use pm_kind, only: RKG => RK4
21517 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21518 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21519 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21520 real(RKG) , intent(in) :: alpha
21521 type(upperDiag_type) , intent(in) :: classB
21522 type(transUnit_type) , intent(in) :: operationB
21523 end subroutine
21524#endif
21525
21526#if RK3_ENABLED
21527 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21529 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK3
21530#endif
21531 use pm_kind, only: RKG => RK3
21532 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21533 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21534 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21535 real(RKG) , intent(in) :: alpha
21536 type(upperDiag_type) , intent(in) :: classB
21537 type(transUnit_type) , intent(in) :: operationB
21538 end subroutine
21539#endif
21540
21541#if RK2_ENABLED
21542 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21544 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK2
21545#endif
21546 use pm_kind, only: RKG => RK2
21547 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21548 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21549 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21550 real(RKG) , intent(in) :: alpha
21551 type(upperDiag_type) , intent(in) :: classB
21552 type(transUnit_type) , intent(in) :: operationB
21553 end subroutine
21554#endif
21555
21556#if RK1_ENABLED
21557 PURE module subroutine trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21559 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUDB_OTUB_RK1
21560#endif
21561 use pm_kind, only: RKG => RK1
21562 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21563 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21564 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21565 real(RKG) , intent(in) :: alpha
21566 type(upperDiag_type) , intent(in) :: classB
21567 type(transUnit_type) , intent(in) :: operationB
21568 end subroutine
21569#endif
21570
21571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21572
21573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21576
21577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21580
21581 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21582
21583#if CK5_ENABLED
21584 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21586 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_CK5
21587#endif
21588 use pm_kind, only: CKG => CK5
21589 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21590 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21591 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21592 complex(CKG) , intent(in) :: alpha
21593 type(lowerUnit_type) , intent(in) :: classB
21594 type(inversion_type) , intent(in) :: operationB
21595 end subroutine
21596#endif
21597
21598#if CK4_ENABLED
21599 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21601 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_CK4
21602#endif
21603 use pm_kind, only: CKG => CK4
21604 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21605 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21606 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21607 complex(CKG) , intent(in) :: alpha
21608 type(lowerUnit_type) , intent(in) :: classB
21609 type(inversion_type) , intent(in) :: operationB
21610 end subroutine
21611#endif
21612
21613#if CK3_ENABLED
21614 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21616 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_CK3
21617#endif
21618 use pm_kind, only: CKG => CK3
21619 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21620 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21621 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21622 complex(CKG) , intent(in) :: alpha
21623 type(lowerUnit_type) , intent(in) :: classB
21624 type(inversion_type) , intent(in) :: operationB
21625 end subroutine
21626#endif
21627
21628#if CK2_ENABLED
21629 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21631 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_CK2
21632#endif
21633 use pm_kind, only: CKG => CK2
21634 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21635 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21636 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21637 complex(CKG) , intent(in) :: alpha
21638 type(lowerUnit_type) , intent(in) :: classB
21639 type(inversion_type) , intent(in) :: operationB
21640 end subroutine
21641#endif
21642
21643#if CK1_ENABLED
21644 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21646 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_CK1
21647#endif
21648 use pm_kind, only: CKG => CK1
21649 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21650 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21651 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21652 complex(CKG) , intent(in) :: alpha
21653 type(lowerUnit_type) , intent(in) :: classB
21654 type(inversion_type) , intent(in) :: operationB
21655 end subroutine
21656#endif
21657
21658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21659
21660#if RK5_ENABLED
21661 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21663 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_RK5
21664#endif
21665 use pm_kind, only: RKG => RK5
21666 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21667 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21668 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21669 real(RKG) , intent(in) :: alpha
21670 type(lowerUnit_type) , intent(in) :: classB
21671 type(inversion_type) , intent(in) :: operationB
21672 end subroutine
21673#endif
21674
21675#if RK4_ENABLED
21676 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21678 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_RK4
21679#endif
21680 use pm_kind, only: RKG => RK4
21681 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21682 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21683 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21684 real(RKG) , intent(in) :: alpha
21685 type(lowerUnit_type) , intent(in) :: classB
21686 type(inversion_type) , intent(in) :: operationB
21687 end subroutine
21688#endif
21689
21690#if RK3_ENABLED
21691 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21693 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_RK3
21694#endif
21695 use pm_kind, only: RKG => RK3
21696 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21697 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21698 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21699 real(RKG) , intent(in) :: alpha
21700 type(lowerUnit_type) , intent(in) :: classB
21701 type(inversion_type) , intent(in) :: operationB
21702 end subroutine
21703#endif
21704
21705#if RK2_ENABLED
21706 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21708 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_RK2
21709#endif
21710 use pm_kind, only: RKG => RK2
21711 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21712 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21713 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21714 real(RKG) , intent(in) :: alpha
21715 type(lowerUnit_type) , intent(in) :: classB
21716 type(inversion_type) , intent(in) :: operationB
21717 end subroutine
21718#endif
21719
21720#if RK1_ENABLED
21721 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_INVB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21723 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_INVB_RK1
21724#endif
21725 use pm_kind, only: RKG => RK1
21726 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21727 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21728 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21729 real(RKG) , intent(in) :: alpha
21730 type(lowerUnit_type) , intent(in) :: classB
21731 type(inversion_type) , intent(in) :: operationB
21732 end subroutine
21733#endif
21734
21735 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21736
21737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21738 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21740
21741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21742
21743#if CK5_ENABLED
21744 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21746 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK5
21747#endif
21748 use pm_kind, only: CKG => CK5
21749 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21750 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21751 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21752 complex(CKG) , intent(in) :: alpha
21753 type(lowerUnit_type) , intent(in) :: classB
21754 type(transOrth_type) , intent(in) :: operationB
21755 end subroutine
21756#endif
21757
21758#if CK4_ENABLED
21759 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21761 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK4
21762#endif
21763 use pm_kind, only: CKG => CK4
21764 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21765 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21766 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21767 complex(CKG) , intent(in) :: alpha
21768 type(lowerUnit_type) , intent(in) :: classB
21769 type(transOrth_type) , intent(in) :: operationB
21770 end subroutine
21771#endif
21772
21773#if CK3_ENABLED
21774 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21776 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK3
21777#endif
21778 use pm_kind, only: CKG => CK3
21779 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21780 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21781 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21782 complex(CKG) , intent(in) :: alpha
21783 type(lowerUnit_type) , intent(in) :: classB
21784 type(transOrth_type) , intent(in) :: operationB
21785 end subroutine
21786#endif
21787
21788#if CK2_ENABLED
21789 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21791 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK2
21792#endif
21793 use pm_kind, only: CKG => CK2
21794 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21795 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21796 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21797 complex(CKG) , intent(in) :: alpha
21798 type(lowerUnit_type) , intent(in) :: classB
21799 type(transOrth_type) , intent(in) :: operationB
21800 end subroutine
21801#endif
21802
21803#if CK1_ENABLED
21804 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21806 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_CK1
21807#endif
21808 use pm_kind, only: CKG => CK1
21809 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21810 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21811 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21812 complex(CKG) , intent(in) :: alpha
21813 type(lowerUnit_type) , intent(in) :: classB
21814 type(transOrth_type) , intent(in) :: operationB
21815 end subroutine
21816#endif
21817
21818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21819
21820#if RK5_ENABLED
21821 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21823 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK5
21824#endif
21825 use pm_kind, only: RKG => RK5
21826 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21827 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21828 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21829 real(RKG) , intent(in) :: alpha
21830 type(lowerUnit_type) , intent(in) :: classB
21831 type(transOrth_type) , intent(in) :: operationB
21832 end subroutine
21833#endif
21834
21835#if RK4_ENABLED
21836 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21838 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK4
21839#endif
21840 use pm_kind, only: RKG => RK4
21841 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21842 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21843 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21844 real(RKG) , intent(in) :: alpha
21845 type(lowerUnit_type) , intent(in) :: classB
21846 type(transOrth_type) , intent(in) :: operationB
21847 end subroutine
21848#endif
21849
21850#if RK3_ENABLED
21851 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21853 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK3
21854#endif
21855 use pm_kind, only: RKG => RK3
21856 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21857 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21858 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21859 real(RKG) , intent(in) :: alpha
21860 type(lowerUnit_type) , intent(in) :: classB
21861 type(transOrth_type) , intent(in) :: operationB
21862 end subroutine
21863#endif
21864
21865#if RK2_ENABLED
21866 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21868 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK2
21869#endif
21870 use pm_kind, only: RKG => RK2
21871 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21872 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21873 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21874 real(RKG) , intent(in) :: alpha
21875 type(lowerUnit_type) , intent(in) :: classB
21876 type(transOrth_type) , intent(in) :: operationB
21877 end subroutine
21878#endif
21879
21880#if RK1_ENABLED
21881 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21883 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTOB_RK1
21884#endif
21885 use pm_kind, only: RKG => RK1
21886 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21887 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21888 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21889 real(RKG) , intent(in) :: alpha
21890 type(lowerUnit_type) , intent(in) :: classB
21891 type(transOrth_type) , intent(in) :: operationB
21892 end subroutine
21893#endif
21894
21895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21896
21897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21900
21901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21902
21903#if CK5_ENABLED
21904 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21906 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK5
21907#endif
21908 use pm_kind, only: CKG => CK5
21909 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21910 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21911 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21912 complex(CKG) , intent(in) :: alpha
21913 type(lowerUnit_type) , intent(in) :: classB
21914 type(transUnit_type) , intent(in) :: operationB
21915 end subroutine
21916#endif
21917
21918#if CK4_ENABLED
21919 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21921 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK4
21922#endif
21923 use pm_kind, only: CKG => CK4
21924 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21925 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21926 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21927 complex(CKG) , intent(in) :: alpha
21928 type(lowerUnit_type) , intent(in) :: classB
21929 type(transUnit_type) , intent(in) :: operationB
21930 end subroutine
21931#endif
21932
21933#if CK3_ENABLED
21934 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21936 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK3
21937#endif
21938 use pm_kind, only: CKG => CK3
21939 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21940 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21941 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21942 complex(CKG) , intent(in) :: alpha
21943 type(lowerUnit_type) , intent(in) :: classB
21944 type(transUnit_type) , intent(in) :: operationB
21945 end subroutine
21946#endif
21947
21948#if CK2_ENABLED
21949 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21951 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK2
21952#endif
21953 use pm_kind, only: CKG => CK2
21954 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21955 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21956 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21957 complex(CKG) , intent(in) :: alpha
21958 type(lowerUnit_type) , intent(in) :: classB
21959 type(transUnit_type) , intent(in) :: operationB
21960 end subroutine
21961#endif
21962
21963#if CK1_ENABLED
21964 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21966 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_CK1
21967#endif
21968 use pm_kind, only: CKG => CK1
21969 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21970 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21971 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21972 complex(CKG) , intent(in) :: alpha
21973 type(lowerUnit_type) , intent(in) :: classB
21974 type(transUnit_type) , intent(in) :: operationB
21975 end subroutine
21976#endif
21977
21978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21979
21980#if RK5_ENABLED
21981 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21983 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK5
21984#endif
21985 use pm_kind, only: RKG => RK5
21986 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
21987 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
21988 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
21989 real(RKG) , intent(in) :: alpha
21990 type(lowerUnit_type) , intent(in) :: classB
21991 type(transUnit_type) , intent(in) :: operationB
21992 end subroutine
21993#endif
21994
21995#if RK4_ENABLED
21996 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
21997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
21998 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK4
21999#endif
22000 use pm_kind, only: RKG => RK4
22001 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22002 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22003 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22004 real(RKG) , intent(in) :: alpha
22005 type(lowerUnit_type) , intent(in) :: classB
22006 type(transUnit_type) , intent(in) :: operationB
22007 end subroutine
22008#endif
22009
22010#if RK3_ENABLED
22011 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22013 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK3
22014#endif
22015 use pm_kind, only: RKG => RK3
22016 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22017 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22018 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22019 real(RKG) , intent(in) :: alpha
22020 type(lowerUnit_type) , intent(in) :: classB
22021 type(transUnit_type) , intent(in) :: operationB
22022 end subroutine
22023#endif
22024
22025#if RK2_ENABLED
22026 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22028 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK2
22029#endif
22030 use pm_kind, only: RKG => RK2
22031 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22032 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22033 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22034 real(RKG) , intent(in) :: alpha
22035 type(lowerUnit_type) , intent(in) :: classB
22036 type(transUnit_type) , intent(in) :: operationB
22037 end subroutine
22038#endif
22039
22040#if RK1_ENABLED
22041 PURE module subroutine trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22043 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CLUB_OTUB_RK1
22044#endif
22045 use pm_kind, only: RKG => RK1
22046 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22047 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22048 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22049 real(RKG) , intent(in) :: alpha
22050 type(lowerUnit_type) , intent(in) :: classB
22051 type(transUnit_type) , intent(in) :: operationB
22052 end subroutine
22053#endif
22054
22055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22056
22057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22060
22061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22064
22065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22066
22067#if CK5_ENABLED
22068 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22070 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_CK5
22071#endif
22072 use pm_kind, only: CKG => CK5
22073 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22074 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22075 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22076 complex(CKG) , intent(in) :: alpha
22077 type(upperUnit_type) , intent(in) :: classB
22078 type(inversion_type) , intent(in) :: operationB
22079 end subroutine
22080#endif
22081
22082#if CK4_ENABLED
22083 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22085 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_CK4
22086#endif
22087 use pm_kind, only: CKG => CK4
22088 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22089 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22090 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22091 complex(CKG) , intent(in) :: alpha
22092 type(upperUnit_type) , intent(in) :: classB
22093 type(inversion_type) , intent(in) :: operationB
22094 end subroutine
22095#endif
22096
22097#if CK3_ENABLED
22098 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22100 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_CK3
22101#endif
22102 use pm_kind, only: CKG => CK3
22103 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22104 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22105 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22106 complex(CKG) , intent(in) :: alpha
22107 type(upperUnit_type) , intent(in) :: classB
22108 type(inversion_type) , intent(in) :: operationB
22109 end subroutine
22110#endif
22111
22112#if CK2_ENABLED
22113 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22115 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_CK2
22116#endif
22117 use pm_kind, only: CKG => CK2
22118 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22119 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22120 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22121 complex(CKG) , intent(in) :: alpha
22122 type(upperUnit_type) , intent(in) :: classB
22123 type(inversion_type) , intent(in) :: operationB
22124 end subroutine
22125#endif
22126
22127#if CK1_ENABLED
22128 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22130 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_CK1
22131#endif
22132 use pm_kind, only: CKG => CK1
22133 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22134 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22135 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22136 complex(CKG) , intent(in) :: alpha
22137 type(upperUnit_type) , intent(in) :: classB
22138 type(inversion_type) , intent(in) :: operationB
22139 end subroutine
22140#endif
22141
22142 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22143
22144#if RK5_ENABLED
22145 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22147 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_RK5
22148#endif
22149 use pm_kind, only: RKG => RK5
22150 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22151 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22152 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22153 real(RKG) , intent(in) :: alpha
22154 type(upperUnit_type) , intent(in) :: classB
22155 type(inversion_type) , intent(in) :: operationB
22156 end subroutine
22157#endif
22158
22159#if RK4_ENABLED
22160 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22162 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_RK4
22163#endif
22164 use pm_kind, only: RKG => RK4
22165 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22166 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22167 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22168 real(RKG) , intent(in) :: alpha
22169 type(upperUnit_type) , intent(in) :: classB
22170 type(inversion_type) , intent(in) :: operationB
22171 end subroutine
22172#endif
22173
22174#if RK3_ENABLED
22175 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22177 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_RK3
22178#endif
22179 use pm_kind, only: RKG => RK3
22180 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22181 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22182 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22183 real(RKG) , intent(in) :: alpha
22184 type(upperUnit_type) , intent(in) :: classB
22185 type(inversion_type) , intent(in) :: operationB
22186 end subroutine
22187#endif
22188
22189#if RK2_ENABLED
22190 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22192 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_RK2
22193#endif
22194 use pm_kind, only: RKG => RK2
22195 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22196 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22197 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22198 real(RKG) , intent(in) :: alpha
22199 type(upperUnit_type) , intent(in) :: classB
22200 type(inversion_type) , intent(in) :: operationB
22201 end subroutine
22202#endif
22203
22204#if RK1_ENABLED
22205 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_INVB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22207 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_INVB_RK1
22208#endif
22209 use pm_kind, only: RKG => RK1
22210 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22211 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22212 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22213 real(RKG) , intent(in) :: alpha
22214 type(upperUnit_type) , intent(in) :: classB
22215 type(inversion_type) , intent(in) :: operationB
22216 end subroutine
22217#endif
22218
22219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22220
22221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22224
22225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22226
22227#if CK5_ENABLED
22228 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22230 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK5
22231#endif
22232 use pm_kind, only: CKG => CK5
22233 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22234 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22235 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22236 complex(CKG) , intent(in) :: alpha
22237 type(upperUnit_type) , intent(in) :: classB
22238 type(transOrth_type) , intent(in) :: operationB
22239 end subroutine
22240#endif
22241
22242#if CK4_ENABLED
22243 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22245 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK4
22246#endif
22247 use pm_kind, only: CKG => CK4
22248 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22249 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22250 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22251 complex(CKG) , intent(in) :: alpha
22252 type(upperUnit_type) , intent(in) :: classB
22253 type(transOrth_type) , intent(in) :: operationB
22254 end subroutine
22255#endif
22256
22257#if CK3_ENABLED
22258 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22260 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK3
22261#endif
22262 use pm_kind, only: CKG => CK3
22263 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22264 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22265 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22266 complex(CKG) , intent(in) :: alpha
22267 type(upperUnit_type) , intent(in) :: classB
22268 type(transOrth_type) , intent(in) :: operationB
22269 end subroutine
22270#endif
22271
22272#if CK2_ENABLED
22273 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22275 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK2
22276#endif
22277 use pm_kind, only: CKG => CK2
22278 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22279 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22280 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22281 complex(CKG) , intent(in) :: alpha
22282 type(upperUnit_type) , intent(in) :: classB
22283 type(transOrth_type) , intent(in) :: operationB
22284 end subroutine
22285#endif
22286
22287#if CK1_ENABLED
22288 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22290 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_CK1
22291#endif
22292 use pm_kind, only: CKG => CK1
22293 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22294 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22295 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22296 complex(CKG) , intent(in) :: alpha
22297 type(upperUnit_type) , intent(in) :: classB
22298 type(transOrth_type) , intent(in) :: operationB
22299 end subroutine
22300#endif
22301
22302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22303
22304#if RK5_ENABLED
22305 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22307 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK5
22308#endif
22309 use pm_kind, only: RKG => RK5
22310 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22311 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22312 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22313 real(RKG) , intent(in) :: alpha
22314 type(upperUnit_type) , intent(in) :: classB
22315 type(transOrth_type) , intent(in) :: operationB
22316 end subroutine
22317#endif
22318
22319#if RK4_ENABLED
22320 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22322 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK4
22323#endif
22324 use pm_kind, only: RKG => RK4
22325 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22326 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22327 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22328 real(RKG) , intent(in) :: alpha
22329 type(upperUnit_type) , intent(in) :: classB
22330 type(transOrth_type) , intent(in) :: operationB
22331 end subroutine
22332#endif
22333
22334#if RK3_ENABLED
22335 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22337 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK3
22338#endif
22339 use pm_kind, only: RKG => RK3
22340 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22341 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22342 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22343 real(RKG) , intent(in) :: alpha
22344 type(upperUnit_type) , intent(in) :: classB
22345 type(transOrth_type) , intent(in) :: operationB
22346 end subroutine
22347#endif
22348
22349#if RK2_ENABLED
22350 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22352 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK2
22353#endif
22354 use pm_kind, only: RKG => RK2
22355 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22356 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22357 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22358 real(RKG) , intent(in) :: alpha
22359 type(upperUnit_type) , intent(in) :: classB
22360 type(transOrth_type) , intent(in) :: operationB
22361 end subroutine
22362#endif
22363
22364#if RK1_ENABLED
22365 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22367 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTOB_RK1
22368#endif
22369 use pm_kind, only: RKG => RK1
22370 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22371 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22372 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22373 real(RKG) , intent(in) :: alpha
22374 type(upperUnit_type) , intent(in) :: classB
22375 type(transOrth_type) , intent(in) :: operationB
22376 end subroutine
22377#endif
22378
22379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22380
22381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22384
22385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22386
22387#if CK5_ENABLED
22388 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22390 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK5
22391#endif
22392 use pm_kind, only: CKG => CK5
22393 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22394 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22395 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22396 complex(CKG) , intent(in) :: alpha
22397 type(upperUnit_type) , intent(in) :: classB
22398 type(transUnit_type) , intent(in) :: operationB
22399 end subroutine
22400#endif
22401
22402#if CK4_ENABLED
22403 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22405 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK4
22406#endif
22407 use pm_kind, only: CKG => CK4
22408 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22409 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22410 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22411 complex(CKG) , intent(in) :: alpha
22412 type(upperUnit_type) , intent(in) :: classB
22413 type(transUnit_type) , intent(in) :: operationB
22414 end subroutine
22415#endif
22416
22417#if CK3_ENABLED
22418 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22420 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK3
22421#endif
22422 use pm_kind, only: CKG => CK3
22423 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22424 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22425 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22426 complex(CKG) , intent(in) :: alpha
22427 type(upperUnit_type) , intent(in) :: classB
22428 type(transUnit_type) , intent(in) :: operationB
22429 end subroutine
22430#endif
22431
22432#if CK2_ENABLED
22433 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22435 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK2
22436#endif
22437 use pm_kind, only: CKG => CK2
22438 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22439 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22440 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22441 complex(CKG) , intent(in) :: alpha
22442 type(upperUnit_type) , intent(in) :: classB
22443 type(transUnit_type) , intent(in) :: operationB
22444 end subroutine
22445#endif
22446
22447#if CK1_ENABLED
22448 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22450 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_CK1
22451#endif
22452 use pm_kind, only: CKG => CK1
22453 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22454 complex(CKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22455 complex(CKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22456 complex(CKG) , intent(in) :: alpha
22457 type(upperUnit_type) , intent(in) :: classB
22458 type(transUnit_type) , intent(in) :: operationB
22459 end subroutine
22460#endif
22461
22462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22463
22464#if RK5_ENABLED
22465 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK5(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22467 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK5
22468#endif
22469 use pm_kind, only: RKG => RK5
22470 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22471 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22472 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22473 real(RKG) , intent(in) :: alpha
22474 type(upperUnit_type) , intent(in) :: classB
22475 type(transUnit_type) , intent(in) :: operationB
22476 end subroutine
22477#endif
22478
22479#if RK4_ENABLED
22480 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK4(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22482 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK4
22483#endif
22484 use pm_kind, only: RKG => RK4
22485 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22486 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22487 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22488 real(RKG) , intent(in) :: alpha
22489 type(upperUnit_type) , intent(in) :: classB
22490 type(transUnit_type) , intent(in) :: operationB
22491 end subroutine
22492#endif
22493
22494#if RK3_ENABLED
22495 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK3(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22497 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK3
22498#endif
22499 use pm_kind, only: RKG => RK3
22500 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22501 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22502 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22503 real(RKG) , intent(in) :: alpha
22504 type(upperUnit_type) , intent(in) :: classB
22505 type(transUnit_type) , intent(in) :: operationB
22506 end subroutine
22507#endif
22508
22509#if RK2_ENABLED
22510 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK2(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22512 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK2
22513#endif
22514 use pm_kind, only: RKG => RK2
22515 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22516 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22517 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22518 real(RKG) , intent(in) :: alpha
22519 type(upperUnit_type) , intent(in) :: classB
22520 type(transUnit_type) , intent(in) :: operationB
22521 end subroutine
22522#endif
22523
22524#if RK1_ENABLED
22525 PURE module subroutine trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK1(matA, matB, classB, operationB, alpha, nrow, ncol, roffA, coffA, roffB, coffB)
22526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
22527 !DEC$ ATTRIBUTES DLLEXPORT :: trsm_EXP_CGMA_ONOA_CUUB_OTUB_RK1
22528#endif
22529 use pm_kind, only: RKG => RK1
22530 integer(IK) , intent(in) :: nrow, ncol, roffA, coffA, roffB, coffB
22531 real(RKG) , intent(inout) , contiguous :: matA(1 - roffA :, 1 - coffA :)
22532 real(RKG) , intent(in) , contiguous :: matB(1 - roffB :, 1 - coffB :)
22533 real(RKG) , intent(in) :: alpha
22534 type(upperUnit_type) , intent(in) :: classB
22535 type(transUnit_type) , intent(in) :: operationB
22536 end subroutine
22537#endif
22538
22539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22540
22541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22544
22545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22548
22549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22552
22553 end interface
22554
22555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22558
22559!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22560
22561end module pm_matrixMulTri ! LCOV_EXCL_LINE
Return the matrix solution to the system of linear equations with a triangular coefficient matrix .
This module contains abstract and concrete derived types that are required for compile-time resolutio...
Definition: pm_array.F90:44
character(*, SK), parameter MODULE_NAME
Definition: pm_array.F90:50
type(nothing_type), parameter nothing
This is a scalar parameter object of type nothing_type that is exclusively used to request no action ...
Definition: pm_array.F90:167
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter CK3
Definition: pm_kind.F90:442
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowerUnit_type), parameter lowerUnit
This is a scalar parameter object of type upperUnit_type that is exclusively used to signify the lowe...
type(upperUnit_type), parameter upperUnit
This is a scalar parameter object of type upperUnit_type that is exclusively used to signify the uppe...
type(upperDiag_type), parameter upperDiag
This is a scalar parameter object of type upperDiag_type that is exclusively used to signify the uppe...
type(lowerDiag_type), parameter lowerDiag
This is a scalar parameter object of type lowerDiag_type that is exclusively used to signify the lowe...
This module contains abstract and concrete derived types and procedures related to the inversion of s...
type(inversion_type), parameter inversion
This is a scalar parameter object of type inversion_type that is exclusively used to request no trans...
This module contains the procedures for multiplication of a square triangular matrix in various trans...
This module contains abstract and concrete derived types and procedures related to various common mat...
type(transOrth_type), parameter transOrth
This is a scalar parameter object of type transOrth_type that is exclusively used to request Orthogon...
type(transSymm_type), parameter transSymm
This is a scalar parameter object of type transSymm_type that is exclusively used to request Symmetri...
type(transUnit_type), parameter transUnit
This is a scalar parameter object of type transUnit_type that is exclusively used to request Unitary ...
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This is a concrete derived type whose instances are exclusively used to request no action on a given ...
Definition: pm_array.F90:132
This is a concrete derived type whose instances are exclusively used to signify the lower-diagonal tr...
This is a concrete derived type whose instances are exclusively used to signify the lower-unit-diagon...
This is a concrete derived type whose instances are exclusively used to signify the upper-diagonal tr...
This is a concrete derived type whose instances are exclusively used to signify the upper-unit-diagon...
This is a concrete derived type whose instances are exclusively used to request inversion operation o...
This is a concrete derived type whose instances are exclusively used to request Hermitian (conjugate)...
This is a concrete derived type whose instances are exclusively used to request Orthogonal Transpose ...
This is a concrete derived type whose instances are exclusively used to request Symmetric transpose (...
This is a concrete derived type whose instances are exclusively used to request Unitary Transpose ( )...