329 PURE module subroutine shrk_ASS_CSM_SLD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta)
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_IK5
334 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
335 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
336 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
337 type(nothing_type) ,
intent(in) :: operationA
338 type(lowDia_type) ,
intent(in) :: subset
339 type(symmetric_type) ,
intent(in) :: class
344 PURE module subroutine shrk_ASS_CSM_SLD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_IK4
349 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
350 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
351 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
352 type(nothing_type) ,
intent(in) :: operationA
353 type(lowDia_type) ,
intent(in) :: subset
354 type(symmetric_type) ,
intent(in) :: class
359 PURE module subroutine shrk_ASS_CSM_SLD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta)
360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
361 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_IK3
364 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
365 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
366 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
367 type(nothing_type) ,
intent(in) :: operationA
368 type(lowDia_type) ,
intent(in) :: subset
369 type(symmetric_type) ,
intent(in) :: class
374 PURE module subroutine shrk_ASS_CSM_SLD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta)
375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
376 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_IK2
379 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
380 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
381 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
382 type(nothing_type) ,
intent(in) :: operationA
383 type(lowDia_type) ,
intent(in) :: subset
384 type(symmetric_type) ,
intent(in) :: class
389 PURE module subroutine shrk_ASS_CSM_SLD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_IK1
394 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
395 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
396 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
397 type(nothing_type) ,
intent(in) :: operationA
398 type(lowDia_type) ,
intent(in) :: subset
399 type(symmetric_type) ,
intent(in) :: class
406 PURE module subroutine shrk_ASS_CSM_SLD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_CK5
411 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
412 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
413 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
414 type(nothing_type) ,
intent(in) :: operationA
415 type(lowDia_type) ,
intent(in) :: subset
416 type(symmetric_type) ,
intent(in) :: class
421 PURE module subroutine shrk_ASS_CSM_SLD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta)
422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
423 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_CK4
426 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
427 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
428 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
429 type(nothing_type) ,
intent(in) :: operationA
430 type(lowDia_type) ,
intent(in) :: subset
431 type(symmetric_type) ,
intent(in) :: class
436 PURE module subroutine shrk_ASS_CSM_SLD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_CK3
441 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
442 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
443 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
444 type(nothing_type) ,
intent(in) :: operationA
445 type(lowDia_type) ,
intent(in) :: subset
446 type(symmetric_type) ,
intent(in) :: class
451 PURE module subroutine shrk_ASS_CSM_SLD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_CK2
456 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
457 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
458 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
459 type(nothing_type) ,
intent(in) :: operationA
460 type(lowDia_type) ,
intent(in) :: subset
461 type(symmetric_type) ,
intent(in) :: class
466 PURE module subroutine shrk_ASS_CSM_SLD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta)
467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
468 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_CK1
471 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
472 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
473 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
474 type(nothing_type) ,
intent(in) :: operationA
475 type(lowDia_type) ,
intent(in) :: subset
476 type(symmetric_type) ,
intent(in) :: class
483 PURE module subroutine shrk_ASS_CSM_SLD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta)
484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
485 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_RK5
488 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
489 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
490 real(RKG) ,
intent(in) ,
optional :: alpha, beta
491 type(nothing_type) ,
intent(in) :: operationA
492 type(lowDia_type) ,
intent(in) :: subset
493 type(symmetric_type) ,
intent(in) :: class
498 PURE module subroutine shrk_ASS_CSM_SLD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_RK4
503 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
504 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
505 real(RKG) ,
intent(in) ,
optional :: alpha, beta
506 type(nothing_type) ,
intent(in) :: operationA
507 type(lowDia_type) ,
intent(in) :: subset
508 type(symmetric_type) ,
intent(in) :: class
513 PURE module subroutine shrk_ASS_CSM_SLD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_RK3
518 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
519 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
520 real(RKG) ,
intent(in) ,
optional :: alpha, beta
521 type(nothing_type) ,
intent(in) :: operationA
522 type(lowDia_type) ,
intent(in) :: subset
523 type(symmetric_type) ,
intent(in) :: class
528 PURE module subroutine shrk_ASS_CSM_SLD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_RK2
533 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
534 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
535 real(RKG) ,
intent(in) ,
optional :: alpha, beta
536 type(nothing_type) ,
intent(in) :: operationA
537 type(lowDia_type) ,
intent(in) :: subset
538 type(symmetric_type) ,
intent(in) :: class
543 PURE module subroutine shrk_ASS_CSM_SLD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta)
544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
545 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_ONO_RK1
548 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
549 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
550 real(RKG) ,
intent(in) ,
optional :: alpha, beta
551 type(nothing_type) ,
intent(in) :: operationA
552 type(lowDia_type) ,
intent(in) :: subset
553 type(symmetric_type) ,
intent(in) :: class
566 PURE module subroutine shrk_ASS_CSM_SLD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta)
567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
568 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_IK5
571 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
572 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
573 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
574 type(trans_type) ,
intent(in) :: operationA
575 type(lowDia_type) ,
intent(in) :: subset
576 type(symmetric_type) ,
intent(in) :: class
581 PURE module subroutine shrk_ASS_CSM_SLD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta)
582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
583 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_IK4
586 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
587 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
588 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
589 type(trans_type) ,
intent(in) :: operationA
590 type(lowDia_type) ,
intent(in) :: subset
591 type(symmetric_type) ,
intent(in) :: class
596 PURE module subroutine shrk_ASS_CSM_SLD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_IK3
601 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
602 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
603 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
604 type(trans_type) ,
intent(in) :: operationA
605 type(lowDia_type) ,
intent(in) :: subset
606 type(symmetric_type) ,
intent(in) :: class
611 PURE module subroutine shrk_ASS_CSM_SLD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta)
612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
613 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_IK2
616 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
617 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
618 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
619 type(trans_type) ,
intent(in) :: operationA
620 type(lowDia_type) ,
intent(in) :: subset
621 type(symmetric_type) ,
intent(in) :: class
626 PURE module subroutine shrk_ASS_CSM_SLD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_IK1
631 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
632 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
633 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
634 type(trans_type) ,
intent(in) :: operationA
635 type(lowDia_type) ,
intent(in) :: subset
636 type(symmetric_type) ,
intent(in) :: class
643 PURE module subroutine shrk_ASS_CSM_SLD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta)
644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
645 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_CK5
648 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
649 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
650 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
651 type(trans_type) ,
intent(in) :: operationA
652 type(lowDia_type) ,
intent(in) :: subset
653 type(symmetric_type) ,
intent(in) :: class
658 PURE module subroutine shrk_ASS_CSM_SLD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_CK4
663 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
664 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
665 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
666 type(trans_type) ,
intent(in) :: operationA
667 type(lowDia_type) ,
intent(in) :: subset
668 type(symmetric_type) ,
intent(in) :: class
673 PURE module subroutine shrk_ASS_CSM_SLD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_CK3
678 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
679 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
680 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
681 type(trans_type) ,
intent(in) :: operationA
682 type(lowDia_type) ,
intent(in) :: subset
683 type(symmetric_type) ,
intent(in) :: class
688 PURE module subroutine shrk_ASS_CSM_SLD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_CK2
693 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
694 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
695 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
696 type(trans_type) ,
intent(in) :: operationA
697 type(lowDia_type) ,
intent(in) :: subset
698 type(symmetric_type) ,
intent(in) :: class
703 PURE module subroutine shrk_ASS_CSM_SLD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_CK1
708 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
709 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
710 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
711 type(trans_type) ,
intent(in) :: operationA
712 type(lowDia_type) ,
intent(in) :: subset
713 type(symmetric_type) ,
intent(in) :: class
720 PURE module subroutine shrk_ASS_CSM_SLD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_RK5
725 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
726 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
727 real(RKG) ,
intent(in) ,
optional :: alpha, beta
728 type(trans_type) ,
intent(in) :: operationA
729 type(lowDia_type) ,
intent(in) :: subset
730 type(symmetric_type) ,
intent(in) :: class
735 PURE module subroutine shrk_ASS_CSM_SLD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_RK4
740 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
741 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
742 real(RKG) ,
intent(in) ,
optional :: alpha, beta
743 type(trans_type) ,
intent(in) :: operationA
744 type(lowDia_type) ,
intent(in) :: subset
745 type(symmetric_type) ,
intent(in) :: class
750 PURE module subroutine shrk_ASS_CSM_SLD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_RK3
755 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
756 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
757 real(RKG) ,
intent(in) ,
optional :: alpha, beta
758 type(trans_type) ,
intent(in) :: operationA
759 type(lowDia_type) ,
intent(in) :: subset
760 type(symmetric_type) ,
intent(in) :: class
765 PURE module subroutine shrk_ASS_CSM_SLD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_RK2
770 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
771 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
772 real(RKG) ,
intent(in) ,
optional :: alpha, beta
773 type(trans_type) ,
intent(in) :: operationA
774 type(lowDia_type) ,
intent(in) :: subset
775 type(symmetric_type) ,
intent(in) :: class
780 PURE module subroutine shrk_ASS_CSM_SLD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta)
781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SLD_OTP_RK1
785 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
786 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
787 real(RKG) ,
intent(in) ,
optional :: alpha, beta
788 type(trans_type) ,
intent(in) :: operationA
789 type(lowDia_type) ,
intent(in) :: subset
790 type(symmetric_type) ,
intent(in) :: class
807 PURE module subroutine shrk_ASS_CSM_SUD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_IK5
812 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
813 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
814 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
815 type(nothing_type) ,
intent(in) :: operationA
816 type(uppDia_type) ,
intent(in) :: subset
817 type(symmetric_type) ,
intent(in) :: class
822 PURE module subroutine shrk_ASS_CSM_SUD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_IK4
827 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
828 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
829 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
830 type(nothing_type) ,
intent(in) :: operationA
831 type(uppDia_type) ,
intent(in) :: subset
832 type(symmetric_type) ,
intent(in) :: class
837 PURE module subroutine shrk_ASS_CSM_SUD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_IK3
842 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
843 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
844 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
845 type(nothing_type) ,
intent(in) :: operationA
846 type(uppDia_type) ,
intent(in) :: subset
847 type(symmetric_type) ,
intent(in) :: class
852 PURE module subroutine shrk_ASS_CSM_SUD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta)
853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
854 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_IK2
857 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
858 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
859 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
860 type(nothing_type) ,
intent(in) :: operationA
861 type(uppDia_type) ,
intent(in) :: subset
862 type(symmetric_type) ,
intent(in) :: class
867 PURE module subroutine shrk_ASS_CSM_SUD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta)
868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
869 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_IK1
872 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
873 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
874 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
875 type(nothing_type) ,
intent(in) :: operationA
876 type(uppDia_type) ,
intent(in) :: subset
877 type(symmetric_type) ,
intent(in) :: class
884 PURE module subroutine shrk_ASS_CSM_SUD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_CK5
889 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
890 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
891 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
892 type(nothing_type) ,
intent(in) :: operationA
893 type(uppDia_type) ,
intent(in) :: subset
894 type(symmetric_type) ,
intent(in) :: class
899 PURE module subroutine shrk_ASS_CSM_SUD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_CK4
904 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
905 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
906 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
907 type(nothing_type) ,
intent(in) :: operationA
908 type(uppDia_type) ,
intent(in) :: subset
909 type(symmetric_type) ,
intent(in) :: class
914 PURE module subroutine shrk_ASS_CSM_SUD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_CK3
919 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
920 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
921 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
922 type(nothing_type) ,
intent(in) :: operationA
923 type(uppDia_type) ,
intent(in) :: subset
924 type(symmetric_type) ,
intent(in) :: class
929 PURE module subroutine shrk_ASS_CSM_SUD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta)
930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
931 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_CK2
934 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
935 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
936 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
937 type(nothing_type) ,
intent(in) :: operationA
938 type(uppDia_type) ,
intent(in) :: subset
939 type(symmetric_type) ,
intent(in) :: class
944 PURE module subroutine shrk_ASS_CSM_SUD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta)
945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
946 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_CK1
949 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
950 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
951 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
952 type(nothing_type) ,
intent(in) :: operationA
953 type(uppDia_type) ,
intent(in) :: subset
954 type(symmetric_type) ,
intent(in) :: class
961 PURE module subroutine shrk_ASS_CSM_SUD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta)
962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
963 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_RK5
966 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
967 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
968 real(RKG) ,
intent(in) ,
optional :: alpha, beta
969 type(nothing_type) ,
intent(in) :: operationA
970 type(uppDia_type) ,
intent(in) :: subset
971 type(symmetric_type) ,
intent(in) :: class
976 PURE module subroutine shrk_ASS_CSM_SUD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta)
977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
978 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_RK4
981 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
982 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
983 real(RKG) ,
intent(in) ,
optional :: alpha, beta
984 type(nothing_type) ,
intent(in) :: operationA
985 type(uppDia_type) ,
intent(in) :: subset
986 type(symmetric_type) ,
intent(in) :: class
991 PURE module subroutine shrk_ASS_CSM_SUD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_RK3
996 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
997 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
998 real(RKG) ,
intent(in) ,
optional :: alpha, beta
999 type(nothing_type) ,
intent(in) :: operationA
1000 type(uppDia_type) ,
intent(in) :: subset
1001 type(symmetric_type) ,
intent(in) :: class
1006 PURE module subroutine shrk_ASS_CSM_SUD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_RK2
1011 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1012 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1013 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1014 type(nothing_type) ,
intent(in) :: operationA
1015 type(uppDia_type) ,
intent(in) :: subset
1016 type(symmetric_type) ,
intent(in) :: class
1021 PURE module subroutine shrk_ASS_CSM_SUD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_ONO_RK1
1026 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1027 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1028 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1029 type(nothing_type) ,
intent(in) :: operationA
1030 type(uppDia_type) ,
intent(in) :: subset
1031 type(symmetric_type) ,
intent(in) :: class
1044 PURE module subroutine shrk_ASS_CSM_SUD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta)
1045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1046 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_IK5
1049 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1050 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1051 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1052 type(trans_type) ,
intent(in) :: operationA
1053 type(uppDia_type) ,
intent(in) :: subset
1054 type(symmetric_type) ,
intent(in) :: class
1059 PURE module subroutine shrk_ASS_CSM_SUD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta)
1060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1061 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_IK4
1064 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1065 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1066 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1067 type(trans_type) ,
intent(in) :: operationA
1068 type(uppDia_type) ,
intent(in) :: subset
1069 type(symmetric_type) ,
intent(in) :: class
1074 PURE module subroutine shrk_ASS_CSM_SUD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta)
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_IK3
1079 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1080 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1081 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1082 type(trans_type) ,
intent(in) :: operationA
1083 type(uppDia_type) ,
intent(in) :: subset
1084 type(symmetric_type) ,
intent(in) :: class
1089 PURE module subroutine shrk_ASS_CSM_SUD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta)
1090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1091 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_IK2
1094 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1095 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1096 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1097 type(trans_type) ,
intent(in) :: operationA
1098 type(uppDia_type) ,
intent(in) :: subset
1099 type(symmetric_type) ,
intent(in) :: class
1104 PURE module subroutine shrk_ASS_CSM_SUD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_IK1
1109 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1110 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1111 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1112 type(trans_type) ,
intent(in) :: operationA
1113 type(uppDia_type) ,
intent(in) :: subset
1114 type(symmetric_type) ,
intent(in) :: class
1121 PURE module subroutine shrk_ASS_CSM_SUD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta)
1122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1123 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_CK5
1126 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1127 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1128 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1129 type(trans_type) ,
intent(in) :: operationA
1130 type(uppDia_type) ,
intent(in) :: subset
1131 type(symmetric_type) ,
intent(in) :: class
1136 PURE module subroutine shrk_ASS_CSM_SUD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta)
1137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1138 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_CK4
1141 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1142 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1143 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1144 type(trans_type) ,
intent(in) :: operationA
1145 type(uppDia_type) ,
intent(in) :: subset
1146 type(symmetric_type) ,
intent(in) :: class
1151 PURE module subroutine shrk_ASS_CSM_SUD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta)
1152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1153 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_CK3
1156 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1157 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1158 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1159 type(trans_type) ,
intent(in) :: operationA
1160 type(uppDia_type) ,
intent(in) :: subset
1161 type(symmetric_type) ,
intent(in) :: class
1166 PURE module subroutine shrk_ASS_CSM_SUD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_CK2
1171 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1172 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1173 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1174 type(trans_type) ,
intent(in) :: operationA
1175 type(uppDia_type) ,
intent(in) :: subset
1176 type(symmetric_type) ,
intent(in) :: class
1181 PURE module subroutine shrk_ASS_CSM_SUD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_CK1
1186 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1187 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1188 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1189 type(trans_type) ,
intent(in) :: operationA
1190 type(uppDia_type) ,
intent(in) :: subset
1191 type(symmetric_type) ,
intent(in) :: class
1198 PURE module subroutine shrk_ASS_CSM_SUD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_RK5
1203 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1204 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1205 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1206 type(trans_type) ,
intent(in) :: operationA
1207 type(uppDia_type) ,
intent(in) :: subset
1208 type(symmetric_type) ,
intent(in) :: class
1213 PURE module subroutine shrk_ASS_CSM_SUD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_RK4
1218 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1219 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1220 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1221 type(trans_type) ,
intent(in) :: operationA
1222 type(uppDia_type) ,
intent(in) :: subset
1223 type(symmetric_type) ,
intent(in) :: class
1228 PURE module subroutine shrk_ASS_CSM_SUD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_RK3
1233 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1234 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1235 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1236 type(trans_type) ,
intent(in) :: operationA
1237 type(uppDia_type) ,
intent(in) :: subset
1238 type(symmetric_type) ,
intent(in) :: class
1243 PURE module subroutine shrk_ASS_CSM_SUD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_RK2
1248 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1249 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1250 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1251 type(trans_type) ,
intent(in) :: operationA
1252 type(uppDia_type) ,
intent(in) :: subset
1253 type(symmetric_type) ,
intent(in) :: class
1258 PURE module subroutine shrk_ASS_CSM_SUD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CSM_SUD_OTP_RK1
1263 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1264 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1265 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1266 type(trans_type) ,
intent(in) :: operationA
1267 type(uppDia_type) ,
intent(in) :: subset
1268 type(symmetric_type) ,
intent(in) :: class
1289 PURE module subroutine shrk_ASS_CHM_SLD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta)
1290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1291 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_IK5
1294 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1295 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1296 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1297 type(nothing_type) ,
intent(in) :: operationA
1298 type(lowDia_type) ,
intent(in) :: subset
1299 type(hermitian_type) ,
intent(in) :: class
1304 PURE module subroutine shrk_ASS_CHM_SLD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta)
1305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1306 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_IK4
1309 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1310 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1311 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1312 type(nothing_type) ,
intent(in) :: operationA
1313 type(lowDia_type) ,
intent(in) :: subset
1314 type(hermitian_type) ,
intent(in) :: class
1319 PURE module subroutine shrk_ASS_CHM_SLD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta)
1320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1321 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_IK3
1324 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1325 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1326 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1327 type(nothing_type) ,
intent(in) :: operationA
1328 type(lowDia_type) ,
intent(in) :: subset
1329 type(hermitian_type) ,
intent(in) :: class
1334 PURE module subroutine shrk_ASS_CHM_SLD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_IK2
1339 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1340 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1341 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1342 type(nothing_type) ,
intent(in) :: operationA
1343 type(lowDia_type) ,
intent(in) :: subset
1344 type(hermitian_type) ,
intent(in) :: class
1349 PURE module subroutine shrk_ASS_CHM_SLD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta)
1350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1351 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_IK1
1354 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1355 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1356 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1357 type(nothing_type) ,
intent(in) :: operationA
1358 type(lowDia_type) ,
intent(in) :: subset
1359 type(hermitian_type) ,
intent(in) :: class
1366 PURE module subroutine shrk_ASS_CHM_SLD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_CK5
1371 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1372 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1373 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1374 type(nothing_type) ,
intent(in) :: operationA
1375 type(lowDia_type) ,
intent(in) :: subset
1376 type(hermitian_type) ,
intent(in) :: class
1381 PURE module subroutine shrk_ASS_CHM_SLD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_CK4
1386 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1387 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1388 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1389 type(nothing_type) ,
intent(in) :: operationA
1390 type(lowDia_type) ,
intent(in) :: subset
1391 type(hermitian_type) ,
intent(in) :: class
1396 PURE module subroutine shrk_ASS_CHM_SLD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_CK3
1401 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1402 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1403 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1404 type(nothing_type) ,
intent(in) :: operationA
1405 type(lowDia_type) ,
intent(in) :: subset
1406 type(hermitian_type) ,
intent(in) :: class
1411 PURE module subroutine shrk_ASS_CHM_SLD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta)
1412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1413 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_CK2
1416 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1417 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1418 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1419 type(nothing_type) ,
intent(in) :: operationA
1420 type(lowDia_type) ,
intent(in) :: subset
1421 type(hermitian_type) ,
intent(in) :: class
1426 PURE module subroutine shrk_ASS_CHM_SLD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta)
1427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1428 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_CK1
1431 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1432 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1433 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1434 type(nothing_type) ,
intent(in) :: operationA
1435 type(lowDia_type) ,
intent(in) :: subset
1436 type(hermitian_type) ,
intent(in) :: class
1443 PURE module subroutine shrk_ASS_CHM_SLD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta)
1444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1445 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_RK5
1448 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1449 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1450 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1451 type(nothing_type) ,
intent(in) :: operationA
1452 type(lowDia_type) ,
intent(in) :: subset
1453 type(hermitian_type) ,
intent(in) :: class
1458 PURE module subroutine shrk_ASS_CHM_SLD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta)
1459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1460 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_RK4
1463 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1464 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1465 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1466 type(nothing_type) ,
intent(in) :: operationA
1467 type(lowDia_type) ,
intent(in) :: subset
1468 type(hermitian_type) ,
intent(in) :: class
1473 PURE module subroutine shrk_ASS_CHM_SLD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta)
1474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1475 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_RK3
1478 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1479 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1480 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1481 type(nothing_type) ,
intent(in) :: operationA
1482 type(lowDia_type) ,
intent(in) :: subset
1483 type(hermitian_type) ,
intent(in) :: class
1488 PURE module subroutine shrk_ASS_CHM_SLD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta)
1489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1490 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_RK2
1493 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1494 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1495 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1496 type(nothing_type) ,
intent(in) :: operationA
1497 type(lowDia_type) ,
intent(in) :: subset
1498 type(hermitian_type) ,
intent(in) :: class
1503 PURE module subroutine shrk_ASS_CHM_SLD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta)
1504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1505 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_ONO_RK1
1508 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1509 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1510 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1511 type(nothing_type) ,
intent(in) :: operationA
1512 type(lowDia_type) ,
intent(in) :: subset
1513 type(hermitian_type) ,
intent(in) :: class
1526 PURE module subroutine shrk_ASS_CHM_SLD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_IK5
1531 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1532 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1533 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1534 type(trans_type) ,
intent(in) :: operationA
1535 type(lowDia_type) ,
intent(in) :: subset
1536 type(hermitian_type) ,
intent(in) :: class
1541 PURE module subroutine shrk_ASS_CHM_SLD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta)
1542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1543 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_IK4
1546 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1547 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1548 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1549 type(trans_type) ,
intent(in) :: operationA
1550 type(lowDia_type) ,
intent(in) :: subset
1551 type(hermitian_type) ,
intent(in) :: class
1556 PURE module subroutine shrk_ASS_CHM_SLD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta)
1557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1558 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_IK3
1561 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1562 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1563 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1564 type(trans_type) ,
intent(in) :: operationA
1565 type(lowDia_type) ,
intent(in) :: subset
1566 type(hermitian_type) ,
intent(in) :: class
1571 PURE module subroutine shrk_ASS_CHM_SLD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta)
1572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1573 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_IK2
1576 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1577 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1578 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1579 type(trans_type) ,
intent(in) :: operationA
1580 type(lowDia_type) ,
intent(in) :: subset
1581 type(hermitian_type) ,
intent(in) :: class
1586 PURE module subroutine shrk_ASS_CHM_SLD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta)
1587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1588 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_IK1
1591 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1592 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1593 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1594 type(trans_type) ,
intent(in) :: operationA
1595 type(lowDia_type) ,
intent(in) :: subset
1596 type(hermitian_type) ,
intent(in) :: class
1603 PURE module subroutine shrk_ASS_CHM_SLD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_CK5
1608 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1609 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1610 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1611 type(trans_type) ,
intent(in) :: operationA
1612 type(lowDia_type) ,
intent(in) :: subset
1613 type(hermitian_type) ,
intent(in) :: class
1618 PURE module subroutine shrk_ASS_CHM_SLD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_CK4
1623 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1624 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1625 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1626 type(trans_type) ,
intent(in) :: operationA
1627 type(lowDia_type) ,
intent(in) :: subset
1628 type(hermitian_type) ,
intent(in) :: class
1633 PURE module subroutine shrk_ASS_CHM_SLD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta)
1634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1635 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_CK3
1638 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1639 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1640 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1641 type(trans_type) ,
intent(in) :: operationA
1642 type(lowDia_type) ,
intent(in) :: subset
1643 type(hermitian_type) ,
intent(in) :: class
1648 PURE module subroutine shrk_ASS_CHM_SLD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta)
1649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1650 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_CK2
1653 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1654 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1655 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1656 type(trans_type) ,
intent(in) :: operationA
1657 type(lowDia_type) ,
intent(in) :: subset
1658 type(hermitian_type) ,
intent(in) :: class
1663 PURE module subroutine shrk_ASS_CHM_SLD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta)
1664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1665 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_CK1
1668 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1669 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1670 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1671 type(trans_type) ,
intent(in) :: operationA
1672 type(lowDia_type) ,
intent(in) :: subset
1673 type(hermitian_type) ,
intent(in) :: class
1680 PURE module subroutine shrk_ASS_CHM_SLD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_RK5
1685 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1686 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1687 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1688 type(trans_type) ,
intent(in) :: operationA
1689 type(lowDia_type) ,
intent(in) :: subset
1690 type(hermitian_type) ,
intent(in) :: class
1695 PURE module subroutine shrk_ASS_CHM_SLD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_RK4
1700 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1701 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1702 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1703 type(trans_type) ,
intent(in) :: operationA
1704 type(lowDia_type) ,
intent(in) :: subset
1705 type(hermitian_type) ,
intent(in) :: class
1710 PURE module subroutine shrk_ASS_CHM_SLD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta)
1711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1712 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_RK3
1715 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1716 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1717 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1718 type(trans_type) ,
intent(in) :: operationA
1719 type(lowDia_type) ,
intent(in) :: subset
1720 type(hermitian_type) ,
intent(in) :: class
1725 PURE module subroutine shrk_ASS_CHM_SLD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta)
1726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1727 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_RK2
1730 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1731 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1732 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1733 type(trans_type) ,
intent(in) :: operationA
1734 type(lowDia_type) ,
intent(in) :: subset
1735 type(hermitian_type) ,
intent(in) :: class
1740 PURE module subroutine shrk_ASS_CHM_SLD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta)
1741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1742 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SLD_OTP_RK1
1745 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1746 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1747 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1748 type(trans_type) ,
intent(in) :: operationA
1749 type(lowDia_type) ,
intent(in) :: subset
1750 type(hermitian_type) ,
intent(in) :: class
1767 PURE module subroutine shrk_ASS_CHM_SUD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta)
1768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1769 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_IK5
1772 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1773 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1774 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1775 type(nothing_type) ,
intent(in) :: operationA
1776 type(uppDia_type) ,
intent(in) :: subset
1777 type(hermitian_type) ,
intent(in) :: class
1782 PURE module subroutine shrk_ASS_CHM_SUD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_IK4
1787 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1788 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1789 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1790 type(nothing_type) ,
intent(in) :: operationA
1791 type(uppDia_type) ,
intent(in) :: subset
1792 type(hermitian_type) ,
intent(in) :: class
1797 PURE module subroutine shrk_ASS_CHM_SUD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta)
1798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1799 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_IK3
1802 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1803 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1804 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1805 type(nothing_type) ,
intent(in) :: operationA
1806 type(uppDia_type) ,
intent(in) :: subset
1807 type(hermitian_type) ,
intent(in) :: class
1812 PURE module subroutine shrk_ASS_CHM_SUD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_IK2
1817 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1818 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1819 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1820 type(nothing_type) ,
intent(in) :: operationA
1821 type(uppDia_type) ,
intent(in) :: subset
1822 type(hermitian_type) ,
intent(in) :: class
1827 PURE module subroutine shrk_ASS_CHM_SUD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_IK1
1832 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1833 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
1834 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
1835 type(nothing_type) ,
intent(in) :: operationA
1836 type(uppDia_type) ,
intent(in) :: subset
1837 type(hermitian_type) ,
intent(in) :: class
1844 PURE module subroutine shrk_ASS_CHM_SUD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta)
1845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1846 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_CK5
1849 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1850 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1851 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1852 type(nothing_type) ,
intent(in) :: operationA
1853 type(uppDia_type) ,
intent(in) :: subset
1854 type(hermitian_type) ,
intent(in) :: class
1859 PURE module subroutine shrk_ASS_CHM_SUD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta)
1860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1861 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_CK4
1864 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1865 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1866 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1867 type(nothing_type) ,
intent(in) :: operationA
1868 type(uppDia_type) ,
intent(in) :: subset
1869 type(hermitian_type) ,
intent(in) :: class
1874 PURE module subroutine shrk_ASS_CHM_SUD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_CK3
1879 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1880 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1881 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1882 type(nothing_type) ,
intent(in) :: operationA
1883 type(uppDia_type) ,
intent(in) :: subset
1884 type(hermitian_type) ,
intent(in) :: class
1889 PURE module subroutine shrk_ASS_CHM_SUD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta)
1890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1891 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_CK2
1894 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1895 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1896 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1897 type(nothing_type) ,
intent(in) :: operationA
1898 type(uppDia_type) ,
intent(in) :: subset
1899 type(hermitian_type) ,
intent(in) :: class
1904 PURE module subroutine shrk_ASS_CHM_SUD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta)
1905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1906 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_CK1
1909 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1910 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
1911 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
1912 type(nothing_type) ,
intent(in) :: operationA
1913 type(uppDia_type) ,
intent(in) :: subset
1914 type(hermitian_type) ,
intent(in) :: class
1921 PURE module subroutine shrk_ASS_CHM_SUD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta)
1922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1923 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_RK5
1926 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1927 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1928 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1929 type(nothing_type) ,
intent(in) :: operationA
1930 type(uppDia_type) ,
intent(in) :: subset
1931 type(hermitian_type) ,
intent(in) :: class
1936 PURE module subroutine shrk_ASS_CHM_SUD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta)
1937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1938 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_RK4
1941 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1942 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1943 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1944 type(nothing_type) ,
intent(in) :: operationA
1945 type(uppDia_type) ,
intent(in) :: subset
1946 type(hermitian_type) ,
intent(in) :: class
1951 PURE module subroutine shrk_ASS_CHM_SUD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_RK3
1956 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1957 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1958 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1959 type(nothing_type) ,
intent(in) :: operationA
1960 type(uppDia_type) ,
intent(in) :: subset
1961 type(hermitian_type) ,
intent(in) :: class
1966 PURE module subroutine shrk_ASS_CHM_SUD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta)
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_RK2
1971 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1972 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1973 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1974 type(nothing_type) ,
intent(in) :: operationA
1975 type(uppDia_type) ,
intent(in) :: subset
1976 type(hermitian_type) ,
intent(in) :: class
1981 PURE module subroutine shrk_ASS_CHM_SUD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_ONO_RK1
1986 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1987 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
1988 real(RKG) ,
intent(in) ,
optional :: alpha, beta
1989 type(nothing_type) ,
intent(in) :: operationA
1990 type(uppDia_type) ,
intent(in) :: subset
1991 type(hermitian_type) ,
intent(in) :: class
2004 PURE module subroutine shrk_ASS_CHM_SUD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_IK5
2009 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2010 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
2011 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
2012 type(trans_type) ,
intent(in) :: operationA
2013 type(uppDia_type) ,
intent(in) :: subset
2014 type(hermitian_type) ,
intent(in) :: class
2019 PURE module subroutine shrk_ASS_CHM_SUD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta)
2020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2021 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_IK4
2024 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2025 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
2026 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
2027 type(trans_type) ,
intent(in) :: operationA
2028 type(uppDia_type) ,
intent(in) :: subset
2029 type(hermitian_type) ,
intent(in) :: class
2034 PURE module subroutine shrk_ASS_CHM_SUD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta)
2035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2036 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_IK3
2039 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2040 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
2041 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
2042 type(trans_type) ,
intent(in) :: operationA
2043 type(uppDia_type) ,
intent(in) :: subset
2044 type(hermitian_type) ,
intent(in) :: class
2049 PURE module subroutine shrk_ASS_CHM_SUD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta)
2050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2051 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_IK2
2054 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2055 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
2056 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
2057 type(trans_type) ,
intent(in) :: operationA
2058 type(uppDia_type) ,
intent(in) :: subset
2059 type(hermitian_type) ,
intent(in) :: class
2064 PURE module subroutine shrk_ASS_CHM_SUD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta)
2065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2066 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_IK1
2069 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2070 integer(IKG) ,
intent(in) ,
contiguous :: matA(:,:)
2071 integer(IKG) ,
intent(in) ,
optional :: alpha, beta
2072 type(trans_type) ,
intent(in) :: operationA
2073 type(uppDia_type) ,
intent(in) :: subset
2074 type(hermitian_type) ,
intent(in) :: class
2081 PURE module subroutine shrk_ASS_CHM_SUD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_CK5
2086 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
2087 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
2088 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2089 type(trans_type) ,
intent(in) :: operationA
2090 type(uppDia_type) ,
intent(in) :: subset
2091 type(hermitian_type) ,
intent(in) :: class
2096 PURE module subroutine shrk_ASS_CHM_SUD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta)
2097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2098 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_CK4
2101 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
2102 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
2103 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2104 type(trans_type) ,
intent(in) :: operationA
2105 type(uppDia_type) ,
intent(in) :: subset
2106 type(hermitian_type) ,
intent(in) :: class
2111 PURE module subroutine shrk_ASS_CHM_SUD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta)
2112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2113 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_CK3
2116 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2117 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
2118 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
2119 type(trans_type) ,
intent(in) :: operationA
2120 type(uppDia_type) ,
intent(in) :: subset
2121 type(hermitian_type) ,
intent(in) :: class
2126 PURE module subroutine shrk_ASS_CHM_SUD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_CK2
2131 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2132 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
2133 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
2134 type(trans_type) ,
intent(in) :: operationA
2135 type(uppDia_type) ,
intent(in) :: subset
2136 type(hermitian_type) ,
intent(in) :: class
2141 PURE module subroutine shrk_ASS_CHM_SUD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta)
2142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2143 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_CK1
2146 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2147 complex(CKG) ,
intent(in) ,
contiguous :: matA(:,:)
2148 complex(CKG) ,
intent(in) ,
optional :: alpha, beta
2149 type(trans_type) ,
intent(in) :: operationA
2150 type(uppDia_type) ,
intent(in) :: subset
2151 type(hermitian_type) ,
intent(in) :: class
2158 PURE module subroutine shrk_ASS_CHM_SUD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta)
2159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2160 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_RK5
2163 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2164 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
2165 real(RKG) ,
intent(in) ,
optional :: alpha, beta
2166 type(trans_type) ,
intent(in) :: operationA
2167 type(uppDia_type) ,
intent(in) :: subset
2168 type(hermitian_type) ,
intent(in) :: class
2173 PURE module subroutine shrk_ASS_CHM_SUD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta)
2174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2175 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_RK4
2178 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2179 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
2180 real(RKG) ,
intent(in) ,
optional :: alpha, beta
2181 type(trans_type) ,
intent(in) :: operationA
2182 type(uppDia_type) ,
intent(in) :: subset
2183 type(hermitian_type) ,
intent(in) :: class
2188 PURE module subroutine shrk_ASS_CHM_SUD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta)
2189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2190 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_RK3
2193 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2194 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
2195 real(RKG) ,
intent(in) ,
optional :: alpha, beta
2196 type(trans_type) ,
intent(in) :: operationA
2197 type(uppDia_type) ,
intent(in) :: subset
2198 type(hermitian_type) ,
intent(in) :: class
2203 PURE module subroutine shrk_ASS_CHM_SUD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta)
2204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2205 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_RK2
2208 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2209 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
2210 real(RKG) ,
intent(in) ,
optional :: alpha, beta
2211 type(trans_type) ,
intent(in) :: operationA
2212 type(uppDia_type) ,
intent(in) :: subset
2213 type(hermitian_type) ,
intent(in) :: class
2218 PURE module subroutine shrk_ASS_CHM_SUD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta)
2219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2220 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_ASS_CHM_SUD_OTP_RK1
2223 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2224 real(RKG) ,
intent(in) ,
contiguous :: matA(:,:)
2225 real(RKG) ,
intent(in) ,
optional :: alpha, beta
2226 type(trans_type) ,
intent(in) :: operationA
2227 type(uppDia_type) ,
intent(in) :: subset
2228 type(hermitian_type) ,
intent(in) :: class
2249 PURE module subroutine shrk_EXP_CSM_SLD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_IK5
2254 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2255 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2256 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2257 integer(IKG) ,
intent(in) :: alpha, beta
2258 type(nothing_type) ,
intent(in) :: operationA
2259 type(lowDia_type) ,
intent(in) :: subset
2260 type(symmetric_type) ,
intent(in) :: class
2265 PURE module subroutine shrk_EXP_CSM_SLD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2267 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_IK4
2270 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2271 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2272 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2273 integer(IKG) ,
intent(in) :: alpha, beta
2274 type(nothing_type) ,
intent(in) :: operationA
2275 type(lowDia_type) ,
intent(in) :: subset
2276 type(symmetric_type) ,
intent(in) :: class
2281 PURE module subroutine shrk_EXP_CSM_SLD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2283 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_IK3
2286 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2287 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2288 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2289 integer(IKG) ,
intent(in) :: alpha, beta
2290 type(nothing_type) ,
intent(in) :: operationA
2291 type(lowDia_type) ,
intent(in) :: subset
2292 type(symmetric_type) ,
intent(in) :: class
2297 PURE module subroutine shrk_EXP_CSM_SLD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2299 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_IK2
2302 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2303 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2304 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2305 integer(IKG) ,
intent(in) :: alpha, beta
2306 type(nothing_type) ,
intent(in) :: operationA
2307 type(lowDia_type) ,
intent(in) :: subset
2308 type(symmetric_type) ,
intent(in) :: class
2313 PURE module subroutine shrk_EXP_CSM_SLD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2315 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_IK1
2318 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2319 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2320 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2321 integer(IKG) ,
intent(in) :: alpha, beta
2322 type(nothing_type) ,
intent(in) :: operationA
2323 type(lowDia_type) ,
intent(in) :: subset
2324 type(symmetric_type) ,
intent(in) :: class
2331 PURE module subroutine shrk_EXP_CSM_SLD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2333 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_CK5
2336 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2337 complex(CKG) ,
intent(in) :: alpha, beta
2338 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2339 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2340 type(nothing_type) ,
intent(in) :: operationA
2341 type(lowDia_type) ,
intent(in) :: subset
2342 type(symmetric_type) ,
intent(in) :: class
2347 PURE module subroutine shrk_EXP_CSM_SLD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_CK4
2352 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2353 complex(CKG) ,
intent(in) :: alpha, beta
2354 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2355 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2356 type(nothing_type) ,
intent(in) :: operationA
2357 type(lowDia_type) ,
intent(in) :: subset
2358 type(symmetric_type) ,
intent(in) :: class
2363 PURE module subroutine shrk_EXP_CSM_SLD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_CK3
2368 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2369 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2370 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2371 complex(CKG) ,
intent(in) :: alpha, beta
2372 type(nothing_type) ,
intent(in) :: operationA
2373 type(lowDia_type) ,
intent(in) :: subset
2374 type(symmetric_type) ,
intent(in) :: class
2379 PURE module subroutine shrk_EXP_CSM_SLD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_CK2
2384 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2385 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2386 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2387 complex(CKG) ,
intent(in) :: alpha, beta
2388 type(nothing_type) ,
intent(in) :: operationA
2389 type(lowDia_type) ,
intent(in) :: subset
2390 type(symmetric_type) ,
intent(in) :: class
2395 PURE module subroutine shrk_EXP_CSM_SLD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2397 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_CK1
2400 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2401 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2402 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2403 complex(CKG) ,
intent(in) :: alpha, beta
2404 type(nothing_type) ,
intent(in) :: operationA
2405 type(lowDia_type) ,
intent(in) :: subset
2406 type(symmetric_type) ,
intent(in) :: class
2413 PURE module subroutine shrk_EXP_CSM_SLD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2415 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_RK5
2418 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2419 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2420 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2421 real(RKG) ,
intent(in) :: alpha, beta
2422 type(nothing_type) ,
intent(in) :: operationA
2423 type(lowDia_type) ,
intent(in) :: subset
2424 type(symmetric_type) ,
intent(in) :: class
2429 PURE module subroutine shrk_EXP_CSM_SLD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2431 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_RK4
2434 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2435 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2436 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2437 real(RKG) ,
intent(in) :: alpha, beta
2438 type(nothing_type) ,
intent(in) :: operationA
2439 type(lowDia_type) ,
intent(in) :: subset
2440 type(symmetric_type) ,
intent(in) :: class
2445 PURE module subroutine shrk_EXP_CSM_SLD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_RK3
2450 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2451 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2452 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2453 real(RKG) ,
intent(in) :: alpha, beta
2454 type(nothing_type) ,
intent(in) :: operationA
2455 type(lowDia_type) ,
intent(in) :: subset
2456 type(symmetric_type) ,
intent(in) :: class
2461 PURE module subroutine shrk_EXP_CSM_SLD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_RK2
2466 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2467 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2468 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2469 real(RKG) ,
intent(in) :: alpha, beta
2470 type(nothing_type) ,
intent(in) :: operationA
2471 type(lowDia_type) ,
intent(in) :: subset
2472 type(symmetric_type) ,
intent(in) :: class
2477 PURE module subroutine shrk_EXP_CSM_SLD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2479 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_ONO_RK1
2482 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2483 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2484 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2485 real(RKG) ,
intent(in) :: alpha, beta
2486 type(nothing_type) ,
intent(in) :: operationA
2487 type(lowDia_type) ,
intent(in) :: subset
2488 type(symmetric_type) ,
intent(in) :: class
2501 PURE module subroutine shrk_EXP_CSM_SLD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_IK5
2506 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2507 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2508 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2509 integer(IKG) ,
intent(in) :: alpha, beta
2510 type(trans_type) ,
intent(in) :: operationA
2511 type(lowDia_type) ,
intent(in) :: subset
2512 type(symmetric_type) ,
intent(in) :: class
2517 PURE module subroutine shrk_EXP_CSM_SLD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_IK4
2522 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2523 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2524 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2525 integer(IKG) ,
intent(in) :: alpha, beta
2526 type(trans_type) ,
intent(in) :: operationA
2527 type(lowDia_type) ,
intent(in) :: subset
2528 type(symmetric_type) ,
intent(in) :: class
2533 PURE module subroutine shrk_EXP_CSM_SLD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2535 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_IK3
2538 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2539 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2540 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2541 integer(IKG) ,
intent(in) :: alpha, beta
2542 type(trans_type) ,
intent(in) :: operationA
2543 type(lowDia_type) ,
intent(in) :: subset
2544 type(symmetric_type) ,
intent(in) :: class
2549 PURE module subroutine shrk_EXP_CSM_SLD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2551 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_IK2
2554 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2555 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2556 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2557 integer(IKG) ,
intent(in) :: alpha, beta
2558 type(trans_type) ,
intent(in) :: operationA
2559 type(lowDia_type) ,
intent(in) :: subset
2560 type(symmetric_type) ,
intent(in) :: class
2565 PURE module subroutine shrk_EXP_CSM_SLD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2567 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_IK1
2570 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2571 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2572 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2573 integer(IKG) ,
intent(in) :: alpha, beta
2574 type(trans_type) ,
intent(in) :: operationA
2575 type(lowDia_type) ,
intent(in) :: subset
2576 type(symmetric_type) ,
intent(in) :: class
2583 PURE module subroutine shrk_EXP_CSM_SLD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2585 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_CK5
2588 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2589 complex(CKG) ,
intent(in) :: alpha, beta
2590 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2591 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2592 type(trans_type) ,
intent(in) :: operationA
2593 type(lowDia_type) ,
intent(in) :: subset
2594 type(symmetric_type) ,
intent(in) :: class
2599 PURE module subroutine shrk_EXP_CSM_SLD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2601 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_CK4
2604 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2605 complex(CKG) ,
intent(in) :: alpha, beta
2606 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2607 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2608 type(trans_type) ,
intent(in) :: operationA
2609 type(lowDia_type) ,
intent(in) :: subset
2610 type(symmetric_type) ,
intent(in) :: class
2615 PURE module subroutine shrk_EXP_CSM_SLD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2617 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_CK3
2620 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2621 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2622 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2623 complex(CKG) ,
intent(in) :: alpha, beta
2624 type(trans_type) ,
intent(in) :: operationA
2625 type(lowDia_type) ,
intent(in) :: subset
2626 type(symmetric_type) ,
intent(in) :: class
2631 PURE module subroutine shrk_EXP_CSM_SLD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2633 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_CK2
2636 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2637 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2638 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2639 complex(CKG) ,
intent(in) :: alpha, beta
2640 type(trans_type) ,
intent(in) :: operationA
2641 type(lowDia_type) ,
intent(in) :: subset
2642 type(symmetric_type) ,
intent(in) :: class
2647 PURE module subroutine shrk_EXP_CSM_SLD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2649 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_CK1
2652 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2653 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2654 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2655 complex(CKG) ,
intent(in) :: alpha, beta
2656 type(trans_type) ,
intent(in) :: operationA
2657 type(lowDia_type) ,
intent(in) :: subset
2658 type(symmetric_type) ,
intent(in) :: class
2665 PURE module subroutine shrk_EXP_CSM_SLD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2667 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_RK5
2670 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2671 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2672 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2673 real(RKG) ,
intent(in) :: alpha, beta
2674 type(trans_type) ,
intent(in) :: operationA
2675 type(lowDia_type) ,
intent(in) :: subset
2676 type(symmetric_type) ,
intent(in) :: class
2681 PURE module subroutine shrk_EXP_CSM_SLD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2683 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_RK4
2686 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2687 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2688 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2689 real(RKG) ,
intent(in) :: alpha, beta
2690 type(trans_type) ,
intent(in) :: operationA
2691 type(lowDia_type) ,
intent(in) :: subset
2692 type(symmetric_type) ,
intent(in) :: class
2697 PURE module subroutine shrk_EXP_CSM_SLD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2699 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_RK3
2702 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2703 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2704 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2705 real(RKG) ,
intent(in) :: alpha, beta
2706 type(trans_type) ,
intent(in) :: operationA
2707 type(lowDia_type) ,
intent(in) :: subset
2708 type(symmetric_type) ,
intent(in) :: class
2713 PURE module subroutine shrk_EXP_CSM_SLD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2715 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_RK2
2718 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2719 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2720 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2721 real(RKG) ,
intent(in) :: alpha, beta
2722 type(trans_type) ,
intent(in) :: operationA
2723 type(lowDia_type) ,
intent(in) :: subset
2724 type(symmetric_type) ,
intent(in) :: class
2729 PURE module subroutine shrk_EXP_CSM_SLD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2731 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SLD_OTP_RK1
2734 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2735 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2736 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2737 real(RKG) ,
intent(in) :: alpha, beta
2738 type(trans_type) ,
intent(in) :: operationA
2739 type(lowDia_type) ,
intent(in) :: subset
2740 type(symmetric_type) ,
intent(in) :: class
2757 PURE module subroutine shrk_EXP_CSM_SUD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_IK5
2762 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2763 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2764 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2765 integer(IKG) ,
intent(in) :: alpha, beta
2766 type(nothing_type) ,
intent(in) :: operationA
2767 type(uppDia_type) ,
intent(in) :: subset
2768 type(symmetric_type) ,
intent(in) :: class
2773 PURE module subroutine shrk_EXP_CSM_SUD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_IK4
2778 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2779 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2780 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2781 integer(IKG) ,
intent(in) :: alpha, beta
2782 type(nothing_type) ,
intent(in) :: operationA
2783 type(uppDia_type) ,
intent(in) :: subset
2784 type(symmetric_type) ,
intent(in) :: class
2789 PURE module subroutine shrk_EXP_CSM_SUD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2791 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_IK3
2794 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2795 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2796 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2797 integer(IKG) ,
intent(in) :: alpha, beta
2798 type(nothing_type) ,
intent(in) :: operationA
2799 type(uppDia_type) ,
intent(in) :: subset
2800 type(symmetric_type) ,
intent(in) :: class
2805 PURE module subroutine shrk_EXP_CSM_SUD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2807 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_IK2
2810 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2811 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2812 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2813 integer(IKG) ,
intent(in) :: alpha, beta
2814 type(nothing_type) ,
intent(in) :: operationA
2815 type(uppDia_type) ,
intent(in) :: subset
2816 type(symmetric_type) ,
intent(in) :: class
2821 PURE module subroutine shrk_EXP_CSM_SUD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2823 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_IK1
2826 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2827 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2828 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2829 integer(IKG) ,
intent(in) :: alpha, beta
2830 type(nothing_type) ,
intent(in) :: operationA
2831 type(uppDia_type) ,
intent(in) :: subset
2832 type(symmetric_type) ,
intent(in) :: class
2839 PURE module subroutine shrk_EXP_CSM_SUD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_CK5
2844 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2845 complex(CKG) ,
intent(in) :: alpha, beta
2846 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2847 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2848 type(nothing_type) ,
intent(in) :: operationA
2849 type(uppDia_type) ,
intent(in) :: subset
2850 type(symmetric_type) ,
intent(in) :: class
2855 PURE module subroutine shrk_EXP_CSM_SUD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2857 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_CK4
2860 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2861 complex(CKG) ,
intent(in) :: alpha, beta
2862 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2863 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2864 type(nothing_type) ,
intent(in) :: operationA
2865 type(uppDia_type) ,
intent(in) :: subset
2866 type(symmetric_type) ,
intent(in) :: class
2871 PURE module subroutine shrk_EXP_CSM_SUD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2873 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_CK3
2876 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2877 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2878 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2879 complex(CKG) ,
intent(in) :: alpha, beta
2880 type(nothing_type) ,
intent(in) :: operationA
2881 type(uppDia_type) ,
intent(in) :: subset
2882 type(symmetric_type) ,
intent(in) :: class
2887 PURE module subroutine shrk_EXP_CSM_SUD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_CK2
2892 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2893 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2894 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2895 complex(CKG) ,
intent(in) :: alpha, beta
2896 type(nothing_type) ,
intent(in) :: operationA
2897 type(uppDia_type) ,
intent(in) :: subset
2898 type(symmetric_type) ,
intent(in) :: class
2903 PURE module subroutine shrk_EXP_CSM_SUD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2905 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_CK1
2908 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2909 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2910 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2911 complex(CKG) ,
intent(in) :: alpha, beta
2912 type(nothing_type) ,
intent(in) :: operationA
2913 type(uppDia_type) ,
intent(in) :: subset
2914 type(symmetric_type) ,
intent(in) :: class
2921 PURE module subroutine shrk_EXP_CSM_SUD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2923 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_RK5
2926 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2927 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2928 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2929 real(RKG) ,
intent(in) :: alpha, beta
2930 type(nothing_type) ,
intent(in) :: operationA
2931 type(uppDia_type) ,
intent(in) :: subset
2932 type(symmetric_type) ,
intent(in) :: class
2937 PURE module subroutine shrk_EXP_CSM_SUD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2939 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_RK4
2942 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2943 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2944 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2945 real(RKG) ,
intent(in) :: alpha, beta
2946 type(nothing_type) ,
intent(in) :: operationA
2947 type(uppDia_type) ,
intent(in) :: subset
2948 type(symmetric_type) ,
intent(in) :: class
2953 PURE module subroutine shrk_EXP_CSM_SUD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2955 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_RK3
2958 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2959 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2960 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2961 real(RKG) ,
intent(in) :: alpha, beta
2962 type(nothing_type) ,
intent(in) :: operationA
2963 type(uppDia_type) ,
intent(in) :: subset
2964 type(symmetric_type) ,
intent(in) :: class
2969 PURE module subroutine shrk_EXP_CSM_SUD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_RK2
2974 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2975 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2976 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2977 real(RKG) ,
intent(in) :: alpha, beta
2978 type(nothing_type) ,
intent(in) :: operationA
2979 type(uppDia_type) ,
intent(in) :: subset
2980 type(symmetric_type) ,
intent(in) :: class
2985 PURE module subroutine shrk_EXP_CSM_SUD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
2986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2987 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_ONO_RK1
2990 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
2991 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2992 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
2993 real(RKG) ,
intent(in) :: alpha, beta
2994 type(nothing_type) ,
intent(in) :: operationA
2995 type(uppDia_type) ,
intent(in) :: subset
2996 type(symmetric_type) ,
intent(in) :: class
3009 PURE module subroutine shrk_EXP_CSM_SUD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3011 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_IK5
3014 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3015 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3016 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3017 integer(IKG) ,
intent(in) :: alpha, beta
3018 type(trans_type) ,
intent(in) :: operationA
3019 type(uppDia_type) ,
intent(in) :: subset
3020 type(symmetric_type) ,
intent(in) :: class
3025 PURE module subroutine shrk_EXP_CSM_SUD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3027 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_IK4
3030 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3031 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3032 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3033 integer(IKG) ,
intent(in) :: alpha, beta
3034 type(trans_type) ,
intent(in) :: operationA
3035 type(uppDia_type) ,
intent(in) :: subset
3036 type(symmetric_type) ,
intent(in) :: class
3041 PURE module subroutine shrk_EXP_CSM_SUD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_IK3
3046 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3047 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3048 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3049 integer(IKG) ,
intent(in) :: alpha, beta
3050 type(trans_type) ,
intent(in) :: operationA
3051 type(uppDia_type) ,
intent(in) :: subset
3052 type(symmetric_type) ,
intent(in) :: class
3057 PURE module subroutine shrk_EXP_CSM_SUD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3059 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_IK2
3062 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3063 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3064 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3065 integer(IKG) ,
intent(in) :: alpha, beta
3066 type(trans_type) ,
intent(in) :: operationA
3067 type(uppDia_type) ,
intent(in) :: subset
3068 type(symmetric_type) ,
intent(in) :: class
3073 PURE module subroutine shrk_EXP_CSM_SUD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_IK1
3078 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3079 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3080 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3081 integer(IKG) ,
intent(in) :: alpha, beta
3082 type(trans_type) ,
intent(in) :: operationA
3083 type(uppDia_type) ,
intent(in) :: subset
3084 type(symmetric_type) ,
intent(in) :: class
3091 PURE module subroutine shrk_EXP_CSM_SUD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3093 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_CK5
3096 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3097 complex(CKG) ,
intent(in) :: alpha, beta
3098 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3099 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3100 type(trans_type) ,
intent(in) :: operationA
3101 type(uppDia_type) ,
intent(in) :: subset
3102 type(symmetric_type) ,
intent(in) :: class
3107 PURE module subroutine shrk_EXP_CSM_SUD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3109 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_CK4
3112 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3113 complex(CKG) ,
intent(in) :: alpha, beta
3114 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3115 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3116 type(trans_type) ,
intent(in) :: operationA
3117 type(uppDia_type) ,
intent(in) :: subset
3118 type(symmetric_type) ,
intent(in) :: class
3123 PURE module subroutine shrk_EXP_CSM_SUD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_CK3
3128 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3129 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3130 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3131 complex(CKG) ,
intent(in) :: alpha, beta
3132 type(trans_type) ,
intent(in) :: operationA
3133 type(uppDia_type) ,
intent(in) :: subset
3134 type(symmetric_type) ,
intent(in) :: class
3139 PURE module subroutine shrk_EXP_CSM_SUD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3141 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_CK2
3144 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3145 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3146 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3147 complex(CKG) ,
intent(in) :: alpha, beta
3148 type(trans_type) ,
intent(in) :: operationA
3149 type(uppDia_type) ,
intent(in) :: subset
3150 type(symmetric_type) ,
intent(in) :: class
3155 PURE module subroutine shrk_EXP_CSM_SUD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3157 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_CK1
3160 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3161 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3162 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3163 complex(CKG) ,
intent(in) :: alpha, beta
3164 type(trans_type) ,
intent(in) :: operationA
3165 type(uppDia_type) ,
intent(in) :: subset
3166 type(symmetric_type) ,
intent(in) :: class
3173 PURE module subroutine shrk_EXP_CSM_SUD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_RK5
3178 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3179 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3180 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3181 real(RKG) ,
intent(in) :: alpha, beta
3182 type(trans_type) ,
intent(in) :: operationA
3183 type(uppDia_type) ,
intent(in) :: subset
3184 type(symmetric_type) ,
intent(in) :: class
3189 PURE module subroutine shrk_EXP_CSM_SUD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3191 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_RK4
3194 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3195 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3196 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3197 real(RKG) ,
intent(in) :: alpha, beta
3198 type(trans_type) ,
intent(in) :: operationA
3199 type(uppDia_type) ,
intent(in) :: subset
3200 type(symmetric_type) ,
intent(in) :: class
3205 PURE module subroutine shrk_EXP_CSM_SUD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3207 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_RK3
3210 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3211 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3212 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3213 real(RKG) ,
intent(in) :: alpha, beta
3214 type(trans_type) ,
intent(in) :: operationA
3215 type(uppDia_type) ,
intent(in) :: subset
3216 type(symmetric_type) ,
intent(in) :: class
3221 PURE module subroutine shrk_EXP_CSM_SUD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3223 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_RK2
3226 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3227 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3228 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3229 real(RKG) ,
intent(in) :: alpha, beta
3230 type(trans_type) ,
intent(in) :: operationA
3231 type(uppDia_type) ,
intent(in) :: subset
3232 type(symmetric_type) ,
intent(in) :: class
3237 PURE module subroutine shrk_EXP_CSM_SUD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3239 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CSM_SUD_OTP_RK1
3242 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3243 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3244 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3245 real(RKG) ,
intent(in) :: alpha, beta
3246 type(trans_type) ,
intent(in) :: operationA
3247 type(uppDia_type) ,
intent(in) :: subset
3248 type(symmetric_type) ,
intent(in) :: class
3269 PURE module subroutine shrk_EXP_CHM_SLD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3271 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_IK5
3274 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3275 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3276 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3277 integer(IKG) ,
intent(in) :: alpha, beta
3278 type(nothing_type) ,
intent(in) :: operationA
3279 type(lowDia_type) ,
intent(in) :: subset
3280 type(hermitian_type) ,
intent(in) :: class
3285 PURE module subroutine shrk_EXP_CHM_SLD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3287 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_IK4
3290 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3291 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3292 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3293 integer(IKG) ,
intent(in) :: alpha, beta
3294 type(nothing_type) ,
intent(in) :: operationA
3295 type(lowDia_type) ,
intent(in) :: subset
3296 type(hermitian_type) ,
intent(in) :: class
3301 PURE module subroutine shrk_EXP_CHM_SLD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3303 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_IK3
3306 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3307 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3308 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3309 integer(IKG) ,
intent(in) :: alpha, beta
3310 type(nothing_type) ,
intent(in) :: operationA
3311 type(lowDia_type) ,
intent(in) :: subset
3312 type(hermitian_type) ,
intent(in) :: class
3317 PURE module subroutine shrk_EXP_CHM_SLD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_IK2
3322 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3323 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3324 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3325 integer(IKG) ,
intent(in) :: alpha, beta
3326 type(nothing_type) ,
intent(in) :: operationA
3327 type(lowDia_type) ,
intent(in) :: subset
3328 type(hermitian_type) ,
intent(in) :: class
3333 PURE module subroutine shrk_EXP_CHM_SLD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3335 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_IK1
3338 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3339 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3340 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3341 integer(IKG) ,
intent(in) :: alpha, beta
3342 type(nothing_type) ,
intent(in) :: operationA
3343 type(lowDia_type) ,
intent(in) :: subset
3344 type(hermitian_type) ,
intent(in) :: class
3351 PURE module subroutine shrk_EXP_CHM_SLD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3353 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_CK5
3356 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3357 complex(CKG) ,
intent(in) :: alpha, beta
3358 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3359 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3360 type(nothing_type) ,
intent(in) :: operationA
3361 type(lowDia_type) ,
intent(in) :: subset
3362 type(hermitian_type) ,
intent(in) :: class
3367 PURE module subroutine shrk_EXP_CHM_SLD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3369 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_CK4
3372 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3373 complex(CKG) ,
intent(in) :: alpha, beta
3374 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3375 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3376 type(nothing_type) ,
intent(in) :: operationA
3377 type(lowDia_type) ,
intent(in) :: subset
3378 type(hermitian_type) ,
intent(in) :: class
3383 PURE module subroutine shrk_EXP_CHM_SLD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3385 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_CK3
3388 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3389 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3390 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3391 complex(CKG) ,
intent(in) :: alpha, beta
3392 type(nothing_type) ,
intent(in) :: operationA
3393 type(lowDia_type) ,
intent(in) :: subset
3394 type(hermitian_type) ,
intent(in) :: class
3399 PURE module subroutine shrk_EXP_CHM_SLD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3401 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_CK2
3404 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3405 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3406 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3407 complex(CKG) ,
intent(in) :: alpha, beta
3408 type(nothing_type) ,
intent(in) :: operationA
3409 type(lowDia_type) ,
intent(in) :: subset
3410 type(hermitian_type) ,
intent(in) :: class
3415 PURE module subroutine shrk_EXP_CHM_SLD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3417 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_CK1
3420 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3421 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3422 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3423 complex(CKG) ,
intent(in) :: alpha, beta
3424 type(nothing_type) ,
intent(in) :: operationA
3425 type(lowDia_type) ,
intent(in) :: subset
3426 type(hermitian_type) ,
intent(in) :: class
3433 PURE module subroutine shrk_EXP_CHM_SLD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3435 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_RK5
3438 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3439 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3440 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3441 real(RKG) ,
intent(in) :: alpha, beta
3442 type(nothing_type) ,
intent(in) :: operationA
3443 type(lowDia_type) ,
intent(in) :: subset
3444 type(hermitian_type) ,
intent(in) :: class
3449 PURE module subroutine shrk_EXP_CHM_SLD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_RK4
3454 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3455 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3456 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3457 real(RKG) ,
intent(in) :: alpha, beta
3458 type(nothing_type) ,
intent(in) :: operationA
3459 type(lowDia_type) ,
intent(in) :: subset
3460 type(hermitian_type) ,
intent(in) :: class
3465 PURE module subroutine shrk_EXP_CHM_SLD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3467 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_RK3
3470 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3471 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3472 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3473 real(RKG) ,
intent(in) :: alpha, beta
3474 type(nothing_type) ,
intent(in) :: operationA
3475 type(lowDia_type) ,
intent(in) :: subset
3476 type(hermitian_type) ,
intent(in) :: class
3481 PURE module subroutine shrk_EXP_CHM_SLD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3483 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_RK2
3486 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3487 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3488 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3489 real(RKG) ,
intent(in) :: alpha, beta
3490 type(nothing_type) ,
intent(in) :: operationA
3491 type(lowDia_type) ,
intent(in) :: subset
3492 type(hermitian_type) ,
intent(in) :: class
3497 PURE module subroutine shrk_EXP_CHM_SLD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3499 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_ONO_RK1
3502 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3503 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3504 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3505 real(RKG) ,
intent(in) :: alpha, beta
3506 type(nothing_type) ,
intent(in) :: operationA
3507 type(lowDia_type) ,
intent(in) :: subset
3508 type(hermitian_type) ,
intent(in) :: class
3521 PURE module subroutine shrk_EXP_CHM_SLD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3523 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_IK5
3526 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3527 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3528 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3529 integer(IKG) ,
intent(in) :: alpha, beta
3530 type(trans_type) ,
intent(in) :: operationA
3531 type(lowDia_type) ,
intent(in) :: subset
3532 type(hermitian_type) ,
intent(in) :: class
3537 PURE module subroutine shrk_EXP_CHM_SLD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3539 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_IK4
3542 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3543 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3544 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3545 integer(IKG) ,
intent(in) :: alpha, beta
3546 type(trans_type) ,
intent(in) :: operationA
3547 type(lowDia_type) ,
intent(in) :: subset
3548 type(hermitian_type) ,
intent(in) :: class
3553 PURE module subroutine shrk_EXP_CHM_SLD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3555 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_IK3
3558 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3559 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3560 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3561 integer(IKG) ,
intent(in) :: alpha, beta
3562 type(trans_type) ,
intent(in) :: operationA
3563 type(lowDia_type) ,
intent(in) :: subset
3564 type(hermitian_type) ,
intent(in) :: class
3569 PURE module subroutine shrk_EXP_CHM_SLD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3571 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_IK2
3574 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3575 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3576 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3577 integer(IKG) ,
intent(in) :: alpha, beta
3578 type(trans_type) ,
intent(in) :: operationA
3579 type(lowDia_type) ,
intent(in) :: subset
3580 type(hermitian_type) ,
intent(in) :: class
3585 PURE module subroutine shrk_EXP_CHM_SLD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_IK1
3590 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3591 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3592 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3593 integer(IKG) ,
intent(in) :: alpha, beta
3594 type(trans_type) ,
intent(in) :: operationA
3595 type(lowDia_type) ,
intent(in) :: subset
3596 type(hermitian_type) ,
intent(in) :: class
3603 PURE module subroutine shrk_EXP_CHM_SLD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3605 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_CK5
3608 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3609 complex(CKG) ,
intent(in) :: alpha, beta
3610 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3611 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3612 type(trans_type) ,
intent(in) :: operationA
3613 type(lowDia_type) ,
intent(in) :: subset
3614 type(hermitian_type) ,
intent(in) :: class
3619 PURE module subroutine shrk_EXP_CHM_SLD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3621 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_CK4
3624 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3625 complex(CKG) ,
intent(in) :: alpha, beta
3626 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3627 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3628 type(trans_type) ,
intent(in) :: operationA
3629 type(lowDia_type) ,
intent(in) :: subset
3630 type(hermitian_type) ,
intent(in) :: class
3635 PURE module subroutine shrk_EXP_CHM_SLD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3637 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_CK3
3640 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3641 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3642 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3643 complex(CKG) ,
intent(in) :: alpha, beta
3644 type(trans_type) ,
intent(in) :: operationA
3645 type(lowDia_type) ,
intent(in) :: subset
3646 type(hermitian_type) ,
intent(in) :: class
3651 PURE module subroutine shrk_EXP_CHM_SLD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3653 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_CK2
3656 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3657 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3658 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3659 complex(CKG) ,
intent(in) :: alpha, beta
3660 type(trans_type) ,
intent(in) :: operationA
3661 type(lowDia_type) ,
intent(in) :: subset
3662 type(hermitian_type) ,
intent(in) :: class
3667 PURE module subroutine shrk_EXP_CHM_SLD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3669 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_CK1
3672 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3673 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3674 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3675 complex(CKG) ,
intent(in) :: alpha, beta
3676 type(trans_type) ,
intent(in) :: operationA
3677 type(lowDia_type) ,
intent(in) :: subset
3678 type(hermitian_type) ,
intent(in) :: class
3685 PURE module subroutine shrk_EXP_CHM_SLD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3687 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_RK5
3690 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3691 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3692 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3693 real(RKG) ,
intent(in) :: alpha, beta
3694 type(trans_type) ,
intent(in) :: operationA
3695 type(lowDia_type) ,
intent(in) :: subset
3696 type(hermitian_type) ,
intent(in) :: class
3701 PURE module subroutine shrk_EXP_CHM_SLD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3703 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_RK4
3706 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3707 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3708 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3709 real(RKG) ,
intent(in) :: alpha, beta
3710 type(trans_type) ,
intent(in) :: operationA
3711 type(lowDia_type) ,
intent(in) :: subset
3712 type(hermitian_type) ,
intent(in) :: class
3717 PURE module subroutine shrk_EXP_CHM_SLD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3719 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_RK3
3722 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3723 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3724 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3725 real(RKG) ,
intent(in) :: alpha, beta
3726 type(trans_type) ,
intent(in) :: operationA
3727 type(lowDia_type) ,
intent(in) :: subset
3728 type(hermitian_type) ,
intent(in) :: class
3733 PURE module subroutine shrk_EXP_CHM_SLD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3735 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_RK2
3738 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3739 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3740 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3741 real(RKG) ,
intent(in) :: alpha, beta
3742 type(trans_type) ,
intent(in) :: operationA
3743 type(lowDia_type) ,
intent(in) :: subset
3744 type(hermitian_type) ,
intent(in) :: class
3749 PURE module subroutine shrk_EXP_CHM_SLD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3751 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SLD_OTP_RK1
3754 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3755 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3756 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3757 real(RKG) ,
intent(in) :: alpha, beta
3758 type(trans_type) ,
intent(in) :: operationA
3759 type(lowDia_type) ,
intent(in) :: subset
3760 type(hermitian_type) ,
intent(in) :: class
3777 PURE module subroutine shrk_EXP_CHM_SUD_ONO_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3779 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_IK5
3782 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3783 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3784 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3785 integer(IKG) ,
intent(in) :: alpha, beta
3786 type(nothing_type) ,
intent(in) :: operationA
3787 type(uppDia_type) ,
intent(in) :: subset
3788 type(hermitian_type) ,
intent(in) :: class
3793 PURE module subroutine shrk_EXP_CHM_SUD_ONO_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3795 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_IK4
3798 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3799 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3800 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3801 integer(IKG) ,
intent(in) :: alpha, beta
3802 type(nothing_type) ,
intent(in) :: operationA
3803 type(uppDia_type) ,
intent(in) :: subset
3804 type(hermitian_type) ,
intent(in) :: class
3809 PURE module subroutine shrk_EXP_CHM_SUD_ONO_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3811 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_IK3
3814 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3815 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3816 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3817 integer(IKG) ,
intent(in) :: alpha, beta
3818 type(nothing_type) ,
intent(in) :: operationA
3819 type(uppDia_type) ,
intent(in) :: subset
3820 type(hermitian_type) ,
intent(in) :: class
3825 PURE module subroutine shrk_EXP_CHM_SUD_ONO_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3827 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_IK2
3830 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3831 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3832 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3833 integer(IKG) ,
intent(in) :: alpha, beta
3834 type(nothing_type) ,
intent(in) :: operationA
3835 type(uppDia_type) ,
intent(in) :: subset
3836 type(hermitian_type) ,
intent(in) :: class
3841 PURE module subroutine shrk_EXP_CHM_SUD_ONO_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3843 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_IK1
3846 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3847 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3848 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3849 integer(IKG) ,
intent(in) :: alpha, beta
3850 type(nothing_type) ,
intent(in) :: operationA
3851 type(uppDia_type) ,
intent(in) :: subset
3852 type(hermitian_type) ,
intent(in) :: class
3859 PURE module subroutine shrk_EXP_CHM_SUD_ONO_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3861 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_CK5
3864 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3865 complex(CKG) ,
intent(in) :: alpha, beta
3866 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3867 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3868 type(nothing_type) ,
intent(in) :: operationA
3869 type(uppDia_type) ,
intent(in) :: subset
3870 type(hermitian_type) ,
intent(in) :: class
3875 PURE module subroutine shrk_EXP_CHM_SUD_ONO_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3877 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_CK4
3880 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3881 complex(CKG) ,
intent(in) :: alpha, beta
3882 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3883 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3884 type(nothing_type) ,
intent(in) :: operationA
3885 type(uppDia_type) ,
intent(in) :: subset
3886 type(hermitian_type) ,
intent(in) :: class
3891 PURE module subroutine shrk_EXP_CHM_SUD_ONO_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3893 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_CK3
3896 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3897 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3898 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3899 complex(CKG) ,
intent(in) :: alpha, beta
3900 type(nothing_type) ,
intent(in) :: operationA
3901 type(uppDia_type) ,
intent(in) :: subset
3902 type(hermitian_type) ,
intent(in) :: class
3907 PURE module subroutine shrk_EXP_CHM_SUD_ONO_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3909 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_CK2
3912 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3913 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3914 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3915 complex(CKG) ,
intent(in) :: alpha, beta
3916 type(nothing_type) ,
intent(in) :: operationA
3917 type(uppDia_type) ,
intent(in) :: subset
3918 type(hermitian_type) ,
intent(in) :: class
3923 PURE module subroutine shrk_EXP_CHM_SUD_ONO_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3925 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_CK1
3928 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3929 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3930 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3931 complex(CKG) ,
intent(in) :: alpha, beta
3932 type(nothing_type) ,
intent(in) :: operationA
3933 type(uppDia_type) ,
intent(in) :: subset
3934 type(hermitian_type) ,
intent(in) :: class
3941 PURE module subroutine shrk_EXP_CHM_SUD_ONO_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3943 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_RK5
3946 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3947 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3948 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3949 real(RKG) ,
intent(in) :: alpha, beta
3950 type(nothing_type) ,
intent(in) :: operationA
3951 type(uppDia_type) ,
intent(in) :: subset
3952 type(hermitian_type) ,
intent(in) :: class
3957 PURE module subroutine shrk_EXP_CHM_SUD_ONO_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3959 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_RK4
3962 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3963 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3964 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3965 real(RKG) ,
intent(in) :: alpha, beta
3966 type(nothing_type) ,
intent(in) :: operationA
3967 type(uppDia_type) ,
intent(in) :: subset
3968 type(hermitian_type) ,
intent(in) :: class
3973 PURE module subroutine shrk_EXP_CHM_SUD_ONO_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3975 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_RK3
3978 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3979 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3980 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3981 real(RKG) ,
intent(in) :: alpha, beta
3982 type(nothing_type) ,
intent(in) :: operationA
3983 type(uppDia_type) ,
intent(in) :: subset
3984 type(hermitian_type) ,
intent(in) :: class
3989 PURE module subroutine shrk_EXP_CHM_SUD_ONO_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_RK2
3994 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
3995 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3996 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
3997 real(RKG) ,
intent(in) :: alpha, beta
3998 type(nothing_type) ,
intent(in) :: operationA
3999 type(uppDia_type) ,
intent(in) :: subset
4000 type(hermitian_type) ,
intent(in) :: class
4005 PURE module subroutine shrk_EXP_CHM_SUD_ONO_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4007 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_ONO_RK1
4010 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4011 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4012 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4013 real(RKG) ,
intent(in) :: alpha, beta
4014 type(nothing_type) ,
intent(in) :: operationA
4015 type(uppDia_type) ,
intent(in) :: subset
4016 type(hermitian_type) ,
intent(in) :: class
4029 PURE module subroutine shrk_EXP_CHM_SUD_OTP_IK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4031 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_IK5
4034 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4035 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4036 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4037 integer(IKG) ,
intent(in) :: alpha, beta
4038 type(trans_type) ,
intent(in) :: operationA
4039 type(uppDia_type) ,
intent(in) :: subset
4040 type(hermitian_type) ,
intent(in) :: class
4045 PURE module subroutine shrk_EXP_CHM_SUD_OTP_IK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4047 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_IK4
4050 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4051 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4052 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4053 integer(IKG) ,
intent(in) :: alpha, beta
4054 type(trans_type) ,
intent(in) :: operationA
4055 type(uppDia_type) ,
intent(in) :: subset
4056 type(hermitian_type) ,
intent(in) :: class
4061 PURE module subroutine shrk_EXP_CHM_SUD_OTP_IK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4063 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_IK3
4066 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4067 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4068 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4069 integer(IKG) ,
intent(in) :: alpha, beta
4070 type(trans_type) ,
intent(in) :: operationA
4071 type(uppDia_type) ,
intent(in) :: subset
4072 type(hermitian_type) ,
intent(in) :: class
4077 PURE module subroutine shrk_EXP_CHM_SUD_OTP_IK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4079 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_IK2
4082 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4083 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4084 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4085 integer(IKG) ,
intent(in) :: alpha, beta
4086 type(trans_type) ,
intent(in) :: operationA
4087 type(uppDia_type) ,
intent(in) :: subset
4088 type(hermitian_type) ,
intent(in) :: class
4093 PURE module subroutine shrk_EXP_CHM_SUD_OTP_IK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4095 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_IK1
4098 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4099 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4100 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4101 integer(IKG) ,
intent(in) :: alpha, beta
4102 type(trans_type) ,
intent(in) :: operationA
4103 type(uppDia_type) ,
intent(in) :: subset
4104 type(hermitian_type) ,
intent(in) :: class
4111 PURE module subroutine shrk_EXP_CHM_SUD_OTP_CK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4113 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_CK5
4116 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4117 complex(CKG) ,
intent(in) :: alpha, beta
4118 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4119 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4120 type(trans_type) ,
intent(in) :: operationA
4121 type(uppDia_type) ,
intent(in) :: subset
4122 type(hermitian_type) ,
intent(in) :: class
4127 PURE module subroutine shrk_EXP_CHM_SUD_OTP_CK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4129 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_CK4
4132 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4133 complex(CKG) ,
intent(in) :: alpha, beta
4134 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4135 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4136 type(trans_type) ,
intent(in) :: operationA
4137 type(uppDia_type) ,
intent(in) :: subset
4138 type(hermitian_type) ,
intent(in) :: class
4143 PURE module subroutine shrk_EXP_CHM_SUD_OTP_CK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4145 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_CK3
4148 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4149 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4150 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4151 complex(CKG) ,
intent(in) :: alpha, beta
4152 type(trans_type) ,
intent(in) :: operationA
4153 type(uppDia_type) ,
intent(in) :: subset
4154 type(hermitian_type) ,
intent(in) :: class
4159 PURE module subroutine shrk_EXP_CHM_SUD_OTP_CK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4161 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_CK2
4164 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4165 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4166 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4167 complex(CKG) ,
intent(in) :: alpha, beta
4168 type(trans_type) ,
intent(in) :: operationA
4169 type(uppDia_type) ,
intent(in) :: subset
4170 type(hermitian_type) ,
intent(in) :: class
4175 PURE module subroutine shrk_EXP_CHM_SUD_OTP_CK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4177 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_CK1
4180 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4181 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4182 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4183 complex(CKG) ,
intent(in) :: alpha, beta
4184 type(trans_type) ,
intent(in) :: operationA
4185 type(uppDia_type) ,
intent(in) :: subset
4186 type(hermitian_type) ,
intent(in) :: class
4193 PURE module subroutine shrk_EXP_CHM_SUD_OTP_RK5(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4195 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_RK5
4198 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4199 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4200 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4201 real(RKG) ,
intent(in) :: alpha, beta
4202 type(trans_type) ,
intent(in) :: operationA
4203 type(uppDia_type) ,
intent(in) :: subset
4204 type(hermitian_type) ,
intent(in) :: class
4209 PURE module subroutine shrk_EXP_CHM_SUD_OTP_RK4(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4211 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_RK4
4214 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4215 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4216 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4217 real(RKG) ,
intent(in) :: alpha, beta
4218 type(trans_type) ,
intent(in) :: operationA
4219 type(uppDia_type) ,
intent(in) :: subset
4220 type(hermitian_type) ,
intent(in) :: class
4225 PURE module subroutine shrk_EXP_CHM_SUD_OTP_RK3(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4227 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_RK3
4230 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4231 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4232 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4233 real(RKG) ,
intent(in) :: alpha, beta
4234 type(trans_type) ,
intent(in) :: operationA
4235 type(uppDia_type) ,
intent(in) :: subset
4236 type(hermitian_type) ,
intent(in) :: class
4241 PURE module subroutine shrk_EXP_CHM_SUD_OTP_RK2(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4243 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_RK2
4246 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4247 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4248 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4249 real(RKG) ,
intent(in) :: alpha, beta
4250 type(trans_type) ,
intent(in) :: operationA
4251 type(uppDia_type) ,
intent(in) :: subset
4252 type(hermitian_type) ,
intent(in) :: class
4257 PURE module subroutine shrk_EXP_CHM_SUD_OTP_RK1(mat, class, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
4258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4259 !DEC$ ATTRIBUTES DLLEXPORT :: shrk_EXP_CHM_SUD_OTP_RK1
4262 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
4263 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
4264 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
4265 real(RKG) ,
intent(in) :: alpha, beta
4266 type(trans_type) ,
intent(in) :: operationA
4267 type(uppDia_type) ,
intent(in) :: subset
4268 type(hermitian_type) ,
intent(in) :: class
4389 PURE module subroutine setMatUpdateR1F_IK5(mat, vecA, vecB, incA, incB, roff)
4390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4391 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_IK5
4394 integer(IK) ,
intent(in) :: incA, incB, roff
4395 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4396 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4401 PURE module subroutine setMatUpdateR1F_IK4(mat, vecA, vecB, incA, incB, roff)
4402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4403 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_IK4
4406 integer(IK) ,
intent(in) :: incA, incB, roff
4407 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4408 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4413 PURE module subroutine setMatUpdateR1F_IK3(mat, vecA, vecB, incA, incB, roff)
4414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4415 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_IK3
4418 integer(IK) ,
intent(in) :: incA, incB, roff
4419 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4420 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4425 PURE module subroutine setMatUpdateR1F_IK2(mat, vecA, vecB, incA, incB, roff)
4426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4427 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_IK2
4430 integer(IK) ,
intent(in) :: incA, incB, roff
4431 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4432 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4437 PURE module subroutine setMatUpdateR1F_IK1(mat, vecA, vecB, incA, incB, roff)
4438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4439 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_IK1
4442 integer(IK) ,
intent(in) :: incA, incB, roff
4443 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4444 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4451 PURE module subroutine setMatUpdateR1H_CK5(mat, vecA, vecB, operationB, incA, incB, roff)
4452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4453 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1H_CK5
4456 integer(IK) ,
intent(in) :: incA, incB, roff
4457 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4458 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4459 type(transHerm_type) ,
intent(in) :: operationB
4464 PURE module subroutine setMatUpdateR1H_CK4(mat, vecA, vecB, operationB, incA, incB, roff)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1H_CK4
4469 integer(IK) ,
intent(in) :: incA, incB, roff
4470 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4471 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4472 type(transHerm_type) ,
intent(in) :: operationB
4477 PURE module subroutine setMatUpdateR1H_CK3(mat, vecA, vecB, operationB, incA, incB, roff)
4478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4479 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1H_CK3
4482 integer(IK) ,
intent(in) :: incA, incB, roff
4483 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4484 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4485 type(transHerm_type) ,
intent(in) :: operationB
4490 PURE module subroutine setMatUpdateR1H_CK2(mat, vecA, vecB, operationB, incA, incB, roff)
4491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4492 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1H_CK2
4495 integer(IK) ,
intent(in) :: incA, incB, roff
4496 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4497 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4498 type(transHerm_type) ,
intent(in) :: operationB
4503 PURE module subroutine setMatUpdateR1H_CK1(mat, vecA, vecB, operationB, incA, incB, roff)
4504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4505 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1H_CK1
4508 integer(IK) ,
intent(in) :: incA, incB, roff
4509 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4510 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4511 type(transHerm_type) ,
intent(in) :: operationB
4518 PURE module subroutine setMatUpdateR1F_CK5(mat, vecA, vecB, incA, incB, roff)
4519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4520 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_CK5
4523 integer(IK) ,
intent(in) :: incA, incB, roff
4524 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4525 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4530 PURE module subroutine setMatUpdateR1F_CK4(mat, vecA, vecB, incA, incB, roff)
4531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4532 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_CK4
4535 integer(IK) ,
intent(in) :: incA, incB, roff
4536 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4537 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4542 PURE module subroutine setMatUpdateR1F_CK3(mat, vecA, vecB, incA, incB, roff)
4543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4544 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_CK3
4547 integer(IK) ,
intent(in) :: incA, incB, roff
4548 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4549 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4554 PURE module subroutine setMatUpdateR1F_CK2(mat, vecA, vecB, incA, incB, roff)
4555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4556 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_CK2
4559 integer(IK) ,
intent(in) :: incA, incB, roff
4560 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4561 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4566 PURE module subroutine setMatUpdateR1F_CK1(mat, vecA, vecB, incA, incB, roff)
4567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4568 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_CK1
4571 integer(IK) ,
intent(in) :: incA, incB, roff
4572 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4573 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4580 PURE module subroutine setMatUpdateR1F_RK5(mat, vecA, vecB, incA, incB, roff)
4581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4582 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_RK5
4585 integer(IK) ,
intent(in) :: incA, incB, roff
4586 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4587 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4592 PURE module subroutine setMatUpdateR1F_RK4(mat, vecA, vecB, incA, incB, roff)
4593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4594 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_RK4
4597 integer(IK) ,
intent(in) :: incA, incB, roff
4598 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4599 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4604 PURE module subroutine setMatUpdateR1F_RK3(mat, vecA, vecB, incA, incB, roff)
4605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4606 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_RK3
4609 integer(IK) ,
intent(in) :: incA, incB, roff
4610 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4611 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4616 PURE module subroutine setMatUpdateR1F_RK2(mat, vecA, vecB, incA, incB, roff)
4617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4618 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_RK2
4621 integer(IK) ,
intent(in) :: incA, incB, roff
4622 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4623 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4628 PURE module subroutine setMatUpdateR1F_RK1(mat, vecA, vecB, incA, incB, roff)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1F_RK1
4633 integer(IK) ,
intent(in) :: incA, incB, roff
4634 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4635 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4648 PURE module subroutine setMatUpdateR1A_IK5(mat, vecA, vecB, alpha, incA, incB, roff)
4649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4650 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_IK5
4653 integer(IK) ,
intent(in) :: incA, incB, roff
4654 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4655 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4656 integer(IKG) ,
intent(in) :: alpha
4661 PURE module subroutine setMatUpdateR1A_IK4(mat, vecA, vecB, alpha, incA, incB, roff)
4662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4663 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_IK4
4666 integer(IK) ,
intent(in) :: incA, incB, roff
4667 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4668 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4669 integer(IKG) ,
intent(in) :: alpha
4674 PURE module subroutine setMatUpdateR1A_IK3(mat, vecA, vecB, alpha, incA, incB, roff)
4675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4676 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_IK3
4679 integer(IK) ,
intent(in) :: incA, incB, roff
4680 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4681 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4682 integer(IKG) ,
intent(in) :: alpha
4687 PURE module subroutine setMatUpdateR1A_IK2(mat, vecA, vecB, alpha, incA, incB, roff)
4688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_IK2
4692 integer(IK) ,
intent(in) :: incA, incB, roff
4693 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4694 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4695 integer(IKG) ,
intent(in) :: alpha
4700 PURE module subroutine setMatUpdateR1A_IK1(mat, vecA, vecB, alpha, incA, incB, roff)
4701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4702 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_IK1
4705 integer(IK) ,
intent(in) :: incA, incB, roff
4706 integer(IKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4707 integer(IKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4708 integer(IKG) ,
intent(in) :: alpha
4715 PURE module subroutine setMatUpdateR1AH_CK5(mat, vecA, vecB, operationB, alpha, incA, incB, roff)
4716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4717 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1AH_CK5
4720 integer(IK) ,
intent(in) :: incA, incB, roff
4721 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4722 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4723 complex(CKG) ,
intent(in) :: alpha
4724 type(transHerm_type) ,
intent(in) :: operationB
4729 PURE module subroutine setMatUpdateR1AH_CK4(mat, vecA, vecB, operationB, alpha, incA, incB, roff)
4730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4731 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1AH_CK4
4734 integer(IK) ,
intent(in) :: incA, incB, roff
4735 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4736 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4737 complex(CKG) ,
intent(in) :: alpha
4738 type(transHerm_type) ,
intent(in) :: operationB
4743 PURE module subroutine setMatUpdateR1AH_CK3(mat, vecA, vecB, operationB, alpha, incA, incB, roff)
4744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4745 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1AH_CK3
4748 integer(IK) ,
intent(in) :: incA, incB, roff
4749 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4750 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4751 complex(CKG) ,
intent(in) :: alpha
4752 type(transHerm_type) ,
intent(in) :: operationB
4757 PURE module subroutine setMatUpdateR1AH_CK2(mat, vecA, vecB, operationB, alpha, incA, incB, roff)
4758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4759 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1AH_CK2
4762 integer(IK) ,
intent(in) :: incA, incB, roff
4763 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4764 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4765 complex(CKG) ,
intent(in) :: alpha
4766 type(transHerm_type) ,
intent(in) :: operationB
4771 PURE module subroutine setMatUpdateR1AH_CK1(mat, vecA, vecB, operationB, alpha, incA, incB, roff)
4772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4773 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1AH_CK1
4776 integer(IK) ,
intent(in) :: incA, incB, roff
4777 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4778 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4779 complex(CKG) ,
intent(in) :: alpha
4780 type(transHerm_type) ,
intent(in) :: operationB
4787 PURE module subroutine setMatUpdateR1A_CK5(mat, vecA, vecB, alpha, incA, incB, roff)
4788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4789 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_CK5
4792 integer(IK) ,
intent(in) :: incA, incB, roff
4793 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4794 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4795 complex(CKG) ,
intent(in) :: alpha
4800 PURE module subroutine setMatUpdateR1A_CK4(mat, vecA, vecB, alpha, incA, incB, roff)
4801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4802 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_CK4
4805 integer(IK) ,
intent(in) :: incA, incB, roff
4806 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4807 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4808 complex(CKG) ,
intent(in) :: alpha
4813 PURE module subroutine setMatUpdateR1A_CK3(mat, vecA, vecB, alpha, incA, incB, roff)
4814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4815 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_CK3
4818 integer(IK) ,
intent(in) :: incA, incB, roff
4819 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4820 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4821 complex(CKG) ,
intent(in) :: alpha
4826 PURE module subroutine setMatUpdateR1A_CK2(mat, vecA, vecB, alpha, incA, incB, roff)
4827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4828 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_CK2
4831 integer(IK) ,
intent(in) :: incA, incB, roff
4832 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4833 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4834 complex(CKG) ,
intent(in) :: alpha
4839 PURE module subroutine setMatUpdateR1A_CK1(mat, vecA, vecB, alpha, incA, incB, roff)
4840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4841 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_CK1
4844 integer(IK) ,
intent(in) :: incA, incB, roff
4845 complex(CKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4846 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4847 complex(CKG) ,
intent(in) :: alpha
4854 PURE module subroutine setMatUpdateR1A_RK5(mat, vecA, vecB, alpha, incA, incB, roff)
4855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4856 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_RK5
4859 integer(IK) ,
intent(in) :: incA, incB, roff
4860 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4861 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4862 real(RKG) ,
intent(in) :: alpha
4867 PURE module subroutine setMatUpdateR1A_RK4(mat, vecA, vecB, alpha, incA, incB, roff)
4868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4869 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_RK4
4872 integer(IK) ,
intent(in) :: incA, incB, roff
4873 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4874 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4875 real(RKG) ,
intent(in) :: alpha
4880 PURE module subroutine setMatUpdateR1A_RK3(mat, vecA, vecB, alpha, incA, incB, roff)
4881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4882 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_RK3
4885 integer(IK) ,
intent(in) :: incA, incB, roff
4886 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4887 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4888 real(RKG) ,
intent(in) :: alpha
4893 PURE module subroutine setMatUpdateR1A_RK2(mat, vecA, vecB, alpha, incA, incB, roff)
4894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4895 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_RK2
4898 integer(IK) ,
intent(in) :: incA, incB, roff
4899 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4900 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4901 real(RKG) ,
intent(in) :: alpha
4906 PURE module subroutine setMatUpdateR1A_RK1(mat, vecA, vecB, alpha, incA, incB, roff)
4907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4908 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateR1A_RK1
4911 integer(IK) ,
intent(in) :: incA, incB, roff
4912 real(RKG) ,
intent(in) ,
contiguous :: vecA(:), vecB(:)
4913 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
4914 real(RKG) ,
intent(in) :: alpha
5114 PURE module subroutine setMatUpdateTriangCSOLAS_IK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5116 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_IK5
5119 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5120 integer(IKG) ,
intent(in) :: alpha, beta
5121 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5122 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5123 type(lowDia_type) ,
intent(in) :: subset
5128 PURE module subroutine setMatUpdateTriangCSOLAS_IK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_IK4
5133 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5134 integer(IKG) ,
intent(in) :: alpha, beta
5135 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5136 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5137 type(lowDia_type) ,
intent(in) :: subset
5142 PURE module subroutine setMatUpdateTriangCSOLAS_IK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5144 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_IK3
5147 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5148 integer(IKG) ,
intent(in) :: alpha, beta
5149 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5150 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5151 type(lowDia_type) ,
intent(in) :: subset
5156 PURE module subroutine setMatUpdateTriangCSOLAS_IK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5158 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_IK2
5161 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5162 integer(IKG) ,
intent(in) :: alpha, beta
5163 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5164 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5165 type(lowDia_type) ,
intent(in) :: subset
5170 PURE module subroutine setMatUpdateTriangCSOLAS_IK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5172 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_IK1
5175 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5176 integer(IKG) ,
intent(in) :: alpha, beta
5177 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5178 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5179 type(lowDia_type) ,
intent(in) :: subset
5186 PURE module subroutine setMatUpdateTriangCSOLAS_CK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5188 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_CK5
5191 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5192 complex(CKG) ,
intent(in) :: alpha, beta
5193 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5194 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5195 type(lowDia_type) ,
intent(in) :: subset
5200 PURE module subroutine setMatUpdateTriangCSOLAS_CK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5202 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_CK4
5205 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5206 complex(CKG) ,
intent(in) :: alpha, beta
5207 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5208 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5209 type(lowDia_type) ,
intent(in) :: subset
5214 PURE module subroutine setMatUpdateTriangCSOLAS_CK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5216 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_CK3
5219 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5220 complex(CKG) ,
intent(in) :: alpha, beta
5221 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5222 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5223 type(lowDia_type) ,
intent(in) :: subset
5228 PURE module subroutine setMatUpdateTriangCSOLAS_CK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5230 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_CK2
5233 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5234 complex(CKG) ,
intent(in) :: alpha, beta
5235 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5236 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5237 type(lowDia_type) ,
intent(in) :: subset
5242 PURE module subroutine setMatUpdateTriangCSOLAS_CK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5244 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_CK1
5247 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5248 complex(CKG) ,
intent(in) :: alpha, beta
5249 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5250 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5251 type(lowDia_type) ,
intent(in) :: subset
5258 PURE module subroutine setMatUpdateTriangCSOLAS_RK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5260 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_RK5
5263 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5264 real(RKG) ,
intent(in) :: alpha, beta
5265 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5266 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5267 type(lowDia_type) ,
intent(in) :: subset
5272 PURE module subroutine setMatUpdateTriangCSOLAS_RK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5274 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_RK4
5277 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5278 real(RKG) ,
intent(in) :: alpha, beta
5279 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5280 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5281 type(lowDia_type) ,
intent(in) :: subset
5286 PURE module subroutine setMatUpdateTriangCSOLAS_RK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5288 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_RK3
5291 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5292 real(RKG) ,
intent(in) :: alpha, beta
5293 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5294 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5295 type(lowDia_type) ,
intent(in) :: subset
5300 PURE module subroutine setMatUpdateTriangCSOLAS_RK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5302 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_RK2
5305 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5306 real(RKG) ,
intent(in) :: alpha, beta
5307 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5308 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5309 type(lowDia_type) ,
intent(in) :: subset
5314 PURE module subroutine setMatUpdateTriangCSOLAS_RK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5316 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAS_RK1
5319 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5320 real(RKG) ,
intent(in) :: alpha, beta
5321 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5322 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5323 type(lowDia_type) ,
intent(in) :: subset
5336 PURE module subroutine setMatUpdateTriangCSOLSA_IK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5338 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_IK5
5341 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5342 integer(IKG) ,
intent(in) :: alpha, beta
5343 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5344 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5345 type(lowDia_type) ,
intent(in) :: subset
5346 type(transSymm_type) ,
intent(in) :: operationA
5351 PURE module subroutine setMatUpdateTriangCSOLSA_IK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5353 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_IK4
5356 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5357 integer(IKG) ,
intent(in) :: alpha, beta
5358 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5359 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5360 type(lowDia_type) ,
intent(in) :: subset
5361 type(transSymm_type) ,
intent(in) :: operationA
5366 PURE module subroutine setMatUpdateTriangCSOLSA_IK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5368 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_IK3
5371 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5372 integer(IKG) ,
intent(in) :: alpha, beta
5373 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5374 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5375 type(lowDia_type) ,
intent(in) :: subset
5376 type(transSymm_type) ,
intent(in) :: operationA
5381 PURE module subroutine setMatUpdateTriangCSOLSA_IK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5383 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_IK2
5386 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5387 integer(IKG) ,
intent(in) :: alpha, beta
5388 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5389 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5390 type(lowDia_type) ,
intent(in) :: subset
5391 type(transSymm_type) ,
intent(in) :: operationA
5396 PURE module subroutine setMatUpdateTriangCSOLSA_IK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5398 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_IK1
5401 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5402 integer(IKG) ,
intent(in) :: alpha, beta
5403 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5404 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5405 type(lowDia_type) ,
intent(in) :: subset
5406 type(transSymm_type) ,
intent(in) :: operationA
5413 PURE module subroutine setMatUpdateTriangCSOLSA_CK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5415 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_CK5
5418 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5419 complex(CKG) ,
intent(in) :: alpha, beta
5420 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5421 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5422 type(lowDia_type) ,
intent(in) :: subset
5423 type(transSymm_type) ,
intent(in) :: operationA
5428 PURE module subroutine setMatUpdateTriangCSOLSA_CK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5430 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_CK4
5433 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5434 complex(CKG) ,
intent(in) :: alpha, beta
5435 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5436 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5437 type(lowDia_type) ,
intent(in) :: subset
5438 type(transSymm_type) ,
intent(in) :: operationA
5443 PURE module subroutine setMatUpdateTriangCSOLSA_CK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5445 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_CK3
5448 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5449 complex(CKG) ,
intent(in) :: alpha, beta
5450 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5451 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5452 type(lowDia_type) ,
intent(in) :: subset
5453 type(transSymm_type) ,
intent(in) :: operationA
5458 PURE module subroutine setMatUpdateTriangCSOLSA_CK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5460 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_CK2
5463 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5464 complex(CKG) ,
intent(in) :: alpha, beta
5465 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5466 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5467 type(lowDia_type) ,
intent(in) :: subset
5468 type(transSymm_type) ,
intent(in) :: operationA
5473 PURE module subroutine setMatUpdateTriangCSOLSA_CK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5475 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_CK1
5478 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5479 complex(CKG) ,
intent(in) :: alpha, beta
5480 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5481 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5482 type(lowDia_type) ,
intent(in) :: subset
5483 type(transSymm_type) ,
intent(in) :: operationA
5490 PURE module subroutine setMatUpdateTriangCSOLSA_RK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5492 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_RK5
5495 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5496 real(RKG) ,
intent(in) :: alpha, beta
5497 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5498 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5499 type(lowDia_type) ,
intent(in) :: subset
5500 type(transSymm_type) ,
intent(in) :: operationA
5505 PURE module subroutine setMatUpdateTriangCSOLSA_RK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5507 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_RK4
5510 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5511 real(RKG) ,
intent(in) :: alpha, beta
5512 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5513 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5514 type(lowDia_type) ,
intent(in) :: subset
5515 type(transSymm_type) ,
intent(in) :: operationA
5520 PURE module subroutine setMatUpdateTriangCSOLSA_RK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5522 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_RK3
5525 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5526 real(RKG) ,
intent(in) :: alpha, beta
5527 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5528 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5529 type(lowDia_type) ,
intent(in) :: subset
5530 type(transSymm_type) ,
intent(in) :: operationA
5535 PURE module subroutine setMatUpdateTriangCSOLSA_RK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5537 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_RK2
5540 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5541 real(RKG) ,
intent(in) :: alpha, beta
5542 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5543 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5544 type(lowDia_type) ,
intent(in) :: subset
5545 type(transSymm_type) ,
intent(in) :: operationA
5550 PURE module subroutine setMatUpdateTriangCSOLSA_RK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5552 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLSA_RK1
5555 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5556 real(RKG) ,
intent(in) :: alpha, beta
5557 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5558 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5559 type(lowDia_type) ,
intent(in) :: subset
5560 type(transSymm_type) ,
intent(in) :: operationA
5573 PURE module subroutine setMatUpdateTriangCSOUAS_IK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5575 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_IK5
5578 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5579 integer(IKG) ,
intent(in) :: alpha, beta
5580 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5581 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5582 type(uppDia_type) ,
intent(in) :: subset
5587 PURE module subroutine setMatUpdateTriangCSOUAS_IK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5589 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_IK4
5592 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5593 integer(IKG) ,
intent(in) :: alpha, beta
5594 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5595 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5596 type(uppDia_type) ,
intent(in) :: subset
5601 PURE module subroutine setMatUpdateTriangCSOUAS_IK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5603 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_IK3
5606 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5607 integer(IKG) ,
intent(in) :: alpha, beta
5608 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5609 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5610 type(uppDia_type) ,
intent(in) :: subset
5615 PURE module subroutine setMatUpdateTriangCSOUAS_IK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5617 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_IK2
5620 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5621 integer(IKG) ,
intent(in) :: alpha, beta
5622 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5623 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5624 type(uppDia_type) ,
intent(in) :: subset
5629 PURE module subroutine setMatUpdateTriangCSOUAS_IK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5631 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_IK1
5634 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5635 integer(IKG) ,
intent(in) :: alpha, beta
5636 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5637 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5638 type(uppDia_type) ,
intent(in) :: subset
5645 PURE module subroutine setMatUpdateTriangCSOUAS_CK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5647 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_CK5
5650 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5651 complex(CKG) ,
intent(in) :: alpha, beta
5652 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5653 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5654 type(uppDia_type) ,
intent(in) :: subset
5659 PURE module subroutine setMatUpdateTriangCSOUAS_CK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5661 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_CK4
5664 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5665 complex(CKG) ,
intent(in) :: alpha, beta
5666 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5667 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5668 type(uppDia_type) ,
intent(in) :: subset
5673 PURE module subroutine setMatUpdateTriangCSOUAS_CK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5675 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_CK3
5678 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5679 complex(CKG) ,
intent(in) :: alpha, beta
5680 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5681 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5682 type(uppDia_type) ,
intent(in) :: subset
5687 PURE module subroutine setMatUpdateTriangCSOUAS_CK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5689 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_CK2
5692 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5693 complex(CKG) ,
intent(in) :: alpha, beta
5694 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5695 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5696 type(uppDia_type) ,
intent(in) :: subset
5701 PURE module subroutine setMatUpdateTriangCSOUAS_CK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5703 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_CK1
5706 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5707 complex(CKG) ,
intent(in) :: alpha, beta
5708 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5709 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5710 type(uppDia_type) ,
intent(in) :: subset
5717 PURE module subroutine setMatUpdateTriangCSOUAS_RK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5719 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_RK5
5722 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5723 real(RKG) ,
intent(in) :: alpha, beta
5724 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5725 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5726 type(uppDia_type) ,
intent(in) :: subset
5731 PURE module subroutine setMatUpdateTriangCSOUAS_RK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5733 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_RK4
5736 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5737 real(RKG) ,
intent(in) :: alpha, beta
5738 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5739 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5740 type(uppDia_type) ,
intent(in) :: subset
5745 PURE module subroutine setMatUpdateTriangCSOUAS_RK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5747 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_RK3
5750 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5751 real(RKG) ,
intent(in) :: alpha, beta
5752 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5753 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5754 type(uppDia_type) ,
intent(in) :: subset
5759 PURE module subroutine setMatUpdateTriangCSOUAS_RK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5761 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_RK2
5764 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5765 real(RKG) ,
intent(in) :: alpha, beta
5766 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5767 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5768 type(uppDia_type) ,
intent(in) :: subset
5773 PURE module subroutine setMatUpdateTriangCSOUAS_RK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5775 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAS_RK1
5778 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5779 real(RKG) ,
intent(in) :: alpha, beta
5780 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5781 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5782 type(uppDia_type) ,
intent(in) :: subset
5795 PURE module subroutine setMatUpdateTriangCSOUSA_IK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5797 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_IK5
5800 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5801 integer(IKG) ,
intent(in) :: alpha, beta
5802 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5803 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5804 type(uppDia_type) ,
intent(in) :: subset
5805 type(transSymm_type) ,
intent(in) :: operationA
5810 PURE module subroutine setMatUpdateTriangCSOUSA_IK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5812 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_IK4
5815 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5816 integer(IKG) ,
intent(in) :: alpha, beta
5817 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5818 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5819 type(uppDia_type) ,
intent(in) :: subset
5820 type(transSymm_type) ,
intent(in) :: operationA
5825 PURE module subroutine setMatUpdateTriangCSOUSA_IK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5827 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_IK3
5830 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5831 integer(IKG) ,
intent(in) :: alpha, beta
5832 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5833 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5834 type(uppDia_type) ,
intent(in) :: subset
5835 type(transSymm_type) ,
intent(in) :: operationA
5840 PURE module subroutine setMatUpdateTriangCSOUSA_IK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5842 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_IK2
5845 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5846 integer(IKG) ,
intent(in) :: alpha, beta
5847 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5848 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5849 type(uppDia_type) ,
intent(in) :: subset
5850 type(transSymm_type) ,
intent(in) :: operationA
5855 PURE module subroutine setMatUpdateTriangCSOUSA_IK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_IK1
5860 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5861 integer(IKG) ,
intent(in) :: alpha, beta
5862 integer(IKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5863 integer(IKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5864 type(uppDia_type) ,
intent(in) :: subset
5865 type(transSymm_type) ,
intent(in) :: operationA
5872 PURE module subroutine setMatUpdateTriangCSOUSA_CK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5874 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_CK5
5877 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5878 complex(CKG) ,
intent(in) :: alpha, beta
5879 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5880 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5881 type(uppDia_type) ,
intent(in) :: subset
5882 type(transSymm_type) ,
intent(in) :: operationA
5887 PURE module subroutine setMatUpdateTriangCSOUSA_CK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5889 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_CK4
5892 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5893 complex(CKG) ,
intent(in) :: alpha, beta
5894 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5895 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5896 type(uppDia_type) ,
intent(in) :: subset
5897 type(transSymm_type) ,
intent(in) :: operationA
5902 PURE module subroutine setMatUpdateTriangCSOUSA_CK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_CK3
5907 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5908 complex(CKG) ,
intent(in) :: alpha, beta
5909 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5910 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5911 type(uppDia_type) ,
intent(in) :: subset
5912 type(transSymm_type) ,
intent(in) :: operationA
5917 PURE module subroutine setMatUpdateTriangCSOUSA_CK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5919 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_CK2
5922 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5923 complex(CKG) ,
intent(in) :: alpha, beta
5924 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5925 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5926 type(uppDia_type) ,
intent(in) :: subset
5927 type(transSymm_type) ,
intent(in) :: operationA
5932 PURE module subroutine setMatUpdateTriangCSOUSA_CK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5934 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_CK1
5937 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5938 complex(CKG) ,
intent(in) :: alpha, beta
5939 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5940 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5941 type(uppDia_type) ,
intent(in) :: subset
5942 type(transSymm_type) ,
intent(in) :: operationA
5949 PURE module subroutine setMatUpdateTriangCSOUSA_RK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5951 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_RK5
5954 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5955 real(RKG) ,
intent(in) :: alpha, beta
5956 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5957 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5958 type(uppDia_type) ,
intent(in) :: subset
5959 type(transSymm_type) ,
intent(in) :: operationA
5964 PURE module subroutine setMatUpdateTriangCSOUSA_RK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5966 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_RK4
5969 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5970 real(RKG) ,
intent(in) :: alpha, beta
5971 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5972 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5973 type(uppDia_type) ,
intent(in) :: subset
5974 type(transSymm_type) ,
intent(in) :: operationA
5979 PURE module subroutine setMatUpdateTriangCSOUSA_RK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5981 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_RK3
5984 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
5985 real(RKG) ,
intent(in) :: alpha, beta
5986 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
5987 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
5988 type(uppDia_type) ,
intent(in) :: subset
5989 type(transSymm_type) ,
intent(in) :: operationA
5994 PURE module subroutine setMatUpdateTriangCSOUSA_RK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
5995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5996 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_RK2
5999 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6000 real(RKG) ,
intent(in) :: alpha, beta
6001 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6002 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6003 type(uppDia_type) ,
intent(in) :: subset
6004 type(transSymm_type) ,
intent(in) :: operationA
6009 PURE module subroutine setMatUpdateTriangCSOUSA_RK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6011 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUSA_RK1
6014 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6015 real(RKG) ,
intent(in) :: alpha, beta
6016 real(RKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6017 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6018 type(uppDia_type) ,
intent(in) :: subset
6019 type(transSymm_type) ,
intent(in) :: operationA
6032 PURE module subroutine setMatUpdateTriangCSOLAH_CK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6034 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAH_CK5
6037 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6038 real(CKG) ,
intent(in) :: alpha, beta
6039 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6040 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6041 type(lowDia_type) ,
intent(in) :: subset
6046 PURE module subroutine setMatUpdateTriangCSOLAH_CK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6048 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAH_CK4
6051 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6052 real(CKG) ,
intent(in) :: alpha, beta
6053 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6054 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6055 type(lowDia_type) ,
intent(in) :: subset
6060 PURE module subroutine setMatUpdateTriangCSOLAH_CK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6062 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAH_CK3
6065 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6066 real(CKG) ,
intent(in) :: alpha, beta
6067 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6068 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6069 type(lowDia_type) ,
intent(in) :: subset
6074 PURE module subroutine setMatUpdateTriangCSOLAH_CK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6076 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAH_CK2
6079 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6080 real(CKG) ,
intent(in) :: alpha, beta
6081 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6082 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6083 type(lowDia_type) ,
intent(in) :: subset
6088 PURE module subroutine setMatUpdateTriangCSOLAH_CK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6090 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLAH_CK1
6093 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6094 real(CKG) ,
intent(in) :: alpha, beta
6095 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6096 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6097 type(lowDia_type) ,
intent(in) :: subset
6104 PURE module subroutine setMatUpdateTriangCSOLHA_CK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6106 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLHA_CK5
6109 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6110 real(CKG) ,
intent(in) :: alpha, beta
6111 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6112 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6113 type(lowDia_type) ,
intent(in) :: subset
6114 type(transHerm_type) ,
intent(in) :: operationA
6119 PURE module subroutine setMatUpdateTriangCSOLHA_CK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6121 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLHA_CK4
6124 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6125 real(CKG) ,
intent(in) :: alpha, beta
6126 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6127 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6128 type(lowDia_type) ,
intent(in) :: subset
6129 type(transHerm_type) ,
intent(in) :: operationA
6134 PURE module subroutine setMatUpdateTriangCSOLHA_CK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6136 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLHA_CK3
6139 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6140 real(CKG) ,
intent(in) :: alpha, beta
6141 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6142 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6143 type(lowDia_type) ,
intent(in) :: subset
6144 type(transHerm_type) ,
intent(in) :: operationA
6149 PURE module subroutine setMatUpdateTriangCSOLHA_CK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6151 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLHA_CK2
6154 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6155 real(CKG) ,
intent(in) :: alpha, beta
6156 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6157 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6158 type(lowDia_type) ,
intent(in) :: subset
6159 type(transHerm_type) ,
intent(in) :: operationA
6164 PURE module subroutine setMatUpdateTriangCSOLHA_CK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6166 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOLHA_CK1
6169 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6170 real(CKG) ,
intent(in) :: alpha, beta
6171 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6172 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6173 type(lowDia_type) ,
intent(in) :: subset
6174 type(transHerm_type) ,
intent(in) :: operationA
6187 PURE module subroutine setMatUpdateTriangCSOUAH_CK5(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6189 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAH_CK5
6192 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6193 real(CKG) ,
intent(in) :: alpha, beta
6194 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6195 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6196 type(uppDia_type) ,
intent(in) :: subset
6201 PURE module subroutine setMatUpdateTriangCSOUAH_CK4(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6203 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAH_CK4
6206 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6207 real(CKG) ,
intent(in) :: alpha, beta
6208 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6209 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6210 type(uppDia_type) ,
intent(in) :: subset
6215 PURE module subroutine setMatUpdateTriangCSOUAH_CK3(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6217 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAH_CK3
6220 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6221 real(CKG) ,
intent(in) :: alpha, beta
6222 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6223 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6224 type(uppDia_type) ,
intent(in) :: subset
6229 PURE module subroutine setMatUpdateTriangCSOUAH_CK2(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6231 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAH_CK2
6234 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6235 real(CKG) ,
intent(in) :: alpha, beta
6236 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6237 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6238 type(uppDia_type) ,
intent(in) :: subset
6243 PURE module subroutine setMatUpdateTriangCSOUAH_CK1(mat, subset, matA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6245 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUAH_CK1
6248 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6249 real(CKG) ,
intent(in) :: alpha, beta
6250 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6251 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6252 type(uppDia_type) ,
intent(in) :: subset
6259 PURE module subroutine setMatUpdateTriangCSOUHA_CK5(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6261 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUHA_CK5
6264 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6265 real(CKG) ,
intent(in) :: alpha, beta
6266 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6267 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6268 type(uppDia_type) ,
intent(in) :: subset
6269 type(transHerm_type) ,
intent(in) :: operationA
6274 PURE module subroutine setMatUpdateTriangCSOUHA_CK4(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6276 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUHA_CK4
6279 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6280 real(CKG) ,
intent(in) :: alpha, beta
6281 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6282 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6283 type(uppDia_type) ,
intent(in) :: subset
6284 type(transHerm_type) ,
intent(in) :: operationA
6289 PURE module subroutine setMatUpdateTriangCSOUHA_CK3(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUHA_CK3
6294 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6295 real(CKG) ,
intent(in) :: alpha, beta
6296 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6297 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6298 type(uppDia_type) ,
intent(in) :: subset
6299 type(transHerm_type) ,
intent(in) :: operationA
6304 PURE module subroutine setMatUpdateTriangCSOUHA_CK2(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6306 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUHA_CK2
6309 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6310 real(CKG) ,
intent(in) :: alpha, beta
6311 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6312 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6313 type(uppDia_type) ,
intent(in) :: subset
6314 type(transHerm_type) ,
intent(in) :: operationA
6319 PURE module subroutine setMatUpdateTriangCSOUHA_CK1(mat, subset, matA, operationA, alpha, beta, ndim, ndum, roff, coff, roffA, coffA)
6320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6321 !DEC$ ATTRIBUTES DLLEXPORT :: setMatUpdateTriangCSOUHA_CK1
6324 integer(IK) ,
intent(in) :: ndim, ndum, roff, coff, roffA, coffA
6325 real(CKG) ,
intent(in) :: alpha, beta
6326 complex(CKG) ,
intent(in) ,
contiguous :: matA(
1 - roffA :,
1 - coffA :)
6327 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
6328 type(uppDia_type) ,
intent(in) :: subset
6329 type(transHerm_type) ,
intent(in) :: operationA
Return the rank-1 update of the input matrix mat using the input vectors vecA and vecB.
Return the result of arbitrary-rank Symmetric/Hermitian updates to triangular matrices of type intege...
Return the result of arbitrary-rank Symmetric/Hermitian updates to triangular matrices of type intege...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(nothing_type), parameter nothing
This is a scalar parameter object of type nothing_type that is exclusively used to request no action ...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(symmetric_type), parameter symmetric
This is a scalar parameter object of type symmetric_type that is exclusively used to signify the Symm...
type(hermitian_type), parameter hermitian
This is a scalar parameter object of type hermitian_type that is exclusively used to signify the Herm...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
This module contains abstract and concrete derived types and procedures related to various common mat...
type(transSymm_type), parameter transSymm
This is a scalar parameter object of type transSymm_type that is exclusively used to request Symmetri...
type(trans_type), parameter trans
This is a scalar parameter object of type trans_type that is exclusively used to request no transpose...
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This module contains procedures and generic interfaces relevant to arbitrary-rank updates to vectors,...
This is a concrete derived type whose instances are exclusively used to request no action on a given ...
This is a concrete derived type whose instances are exclusively used to signify the Hermitian class o...
This is a concrete derived type whose instances are exclusively used to signify the Symmetric class o...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request upper-diagonal triang...
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 Symmetric transpose (...
This is a derived type for constructing concrete derived types to distinguish various procedure signa...