174 PURE module function getMatTrace_DEF_XXX_IK5(mat)
result(trace)
175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
176 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_IK5
179 integer(IKG) ,
intent(in) :: mat(:,:)
180 integer(IKG) :: trace
185 PURE module function getMatTrace_DEF_XXX_IK4(mat)
result(trace)
186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
187 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_IK4
190 integer(IKG) ,
intent(in) :: mat(:,:)
191 integer(IKG) :: trace
196 PURE module function getMatTrace_DEF_XXX_IK3(mat)
result(trace)
197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
198 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_IK3
201 integer(IKG) ,
intent(in) :: mat(:,:)
202 integer(IKG) :: trace
207 PURE module function getMatTrace_DEF_XXX_IK2(mat)
result(trace)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_IK2
212 integer(IKG) ,
intent(in) :: mat(:,:)
213 integer(IKG) :: trace
218 PURE module function getMatTrace_DEF_XXX_IK1(mat)
result(trace)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_IK1
223 integer(IKG) ,
intent(in) :: mat(:,:)
224 integer(IKG) :: trace
231 PURE module function getMatTrace_DEF_XXX_CK5(mat)
result(trace)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_CK5
236 complex(CKG) ,
intent(in) :: mat(:,:)
237 complex(CKG) :: trace
242 PURE module function getMatTrace_DEF_XXX_CK4(mat)
result(trace)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_CK4
247 complex(CKG) ,
intent(in) :: mat(:,:)
248 complex(CKG) :: trace
253 PURE module function getMatTrace_DEF_XXX_CK3(mat)
result(trace)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_CK3
258 complex(CKG) ,
intent(in) :: mat(:,:)
259 complex(CKG) :: trace
264 PURE module function getMatTrace_DEF_XXX_CK2(mat)
result(trace)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_CK2
269 complex(CKG) ,
intent(in) :: mat(:,:)
270 complex(CKG) :: trace
275 PURE module function getMatTrace_DEF_XXX_CK1(mat)
result(trace)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_CK1
280 complex(CKG) ,
intent(in) :: mat(:,:)
281 complex(CKG) :: trace
288 PURE module function getMatTrace_DEF_XXX_RK5(mat)
result(trace)
289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
290 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_RK5
293 real(RKG) ,
intent(in) :: mat(:,:)
299 PURE module function getMatTrace_DEF_XXX_RK4(mat)
result(trace)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_RK4
304 real(RKG) ,
intent(in) :: mat(:,:)
310 PURE module function getMatTrace_DEF_XXX_RK3(mat)
result(trace)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_RK3
315 real(RKG) ,
intent(in) :: mat(:,:)
321 PURE module function getMatTrace_DEF_XXX_RK2(mat)
result(trace)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_RK2
326 real(RKG) ,
intent(in) :: mat(:,:)
332 PURE module function getMatTrace_DEF_XXX_RK1(mat)
result(trace)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_DEF_XXX_RK1
337 real(RKG) ,
intent(in) :: mat(:,:)
355 PURE module function getMatTrace_RDP_XXX_IK5(mat, pack)
result(trace)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_IK5
360 integer(IKG) ,
intent(in) :: mat(:,:)
361 type(rdpack_type) ,
intent(in) :: pack
362 integer(IKG) :: trace
367 PURE module function getMatTrace_RDP_XXX_IK4(mat, pack)
result(trace)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_IK4
372 integer(IKG) ,
intent(in) :: mat(:,:)
373 type(rdpack_type) ,
intent(in) :: pack
374 integer(IKG) :: trace
379 PURE module function getMatTrace_RDP_XXX_IK3(mat, pack)
result(trace)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_IK3
384 integer(IKG) ,
intent(in) :: mat(:,:)
385 type(rdpack_type) ,
intent(in) :: pack
386 integer(IKG) :: trace
391 PURE module function getMatTrace_RDP_XXX_IK2(mat, pack)
result(trace)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_IK2
396 integer(IKG) ,
intent(in) :: mat(:,:)
397 type(rdpack_type) ,
intent(in) :: pack
398 integer(IKG) :: trace
403 PURE module function getMatTrace_RDP_XXX_IK1(mat, pack)
result(trace)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_IK1
408 integer(IKG) ,
intent(in) :: mat(:,:)
409 type(rdpack_type) ,
intent(in) :: pack
410 integer(IKG) :: trace
417 PURE module function getMatTrace_RDP_XXX_CK5(mat, pack)
result(trace)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_CK5
422 complex(CKG) ,
intent(in) :: mat(:,:)
423 type(rdpack_type) ,
intent(in) :: pack
424 complex(CKG) :: trace
429 PURE module function getMatTrace_RDP_XXX_CK4(mat, pack)
result(trace)
430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
431 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_CK4
434 complex(CKG) ,
intent(in) :: mat(:,:)
435 type(rdpack_type) ,
intent(in) :: pack
436 complex(CKG) :: trace
441 PURE module function getMatTrace_RDP_XXX_CK3(mat, pack)
result(trace)
442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
443 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_CK3
446 complex(CKG) ,
intent(in) :: mat(:,:)
447 type(rdpack_type) ,
intent(in) :: pack
448 complex(CKG) :: trace
453 PURE module function getMatTrace_RDP_XXX_CK2(mat, pack)
result(trace)
454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
455 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_CK2
458 complex(CKG) ,
intent(in) :: mat(:,:)
459 type(rdpack_type) ,
intent(in) :: pack
460 complex(CKG) :: trace
465 PURE module function getMatTrace_RDP_XXX_CK1(mat, pack)
result(trace)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_CK1
470 complex(CKG) ,
intent(in) :: mat(:,:)
471 type(rdpack_type) ,
intent(in) :: pack
472 complex(CKG) :: trace
479 PURE module function getMatTrace_RDP_XXX_RK5(mat, pack)
result(trace)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_RK5
484 real(RKG) ,
intent(in) :: mat(:,:)
486 type(rdpack_type) ,
intent(in) :: pack
491 PURE module function getMatTrace_RDP_XXX_RK4(mat, pack)
result(trace)
492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
493 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_RK4
496 real(RKG) ,
intent(in) :: mat(:,:)
497 type(rdpack_type) ,
intent(in) :: pack
503 PURE module function getMatTrace_RDP_XXX_RK3(mat, pack)
result(trace)
504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
505 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_RK3
508 real(RKG) ,
intent(in) :: mat(:,:)
509 type(rdpack_type) ,
intent(in) :: pack
515 PURE module function getMatTrace_RDP_XXX_RK2(mat, pack)
result(trace)
516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
517 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_RK2
520 real(RKG) ,
intent(in) :: mat(:,:)
521 type(rdpack_type) ,
intent(in) :: pack
527 PURE module function getMatTrace_RDP_XXX_RK1(mat, pack)
result(trace)
528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
529 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RDP_XXX_RK1
532 real(RKG) ,
intent(in) :: mat(:,:)
533 type(rdpack_type) ,
intent(in) :: pack
551 PURE module function getMatTrace_RFP_UXD_IK5(mat, pack, subset)
result(trace)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_IK5
556 integer(IKG) :: trace
557 integer(IKG) ,
intent(in) :: mat(:,:)
558 type(rfpack_type) ,
intent(in) :: pack
559 type(uppDia_type) ,
intent(in) :: subset
564 PURE module function getMatTrace_RFP_UXD_IK4(mat, pack, subset)
result(trace)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_IK4
569 integer(IKG) :: trace
570 integer(IKG) ,
intent(in) :: mat(:,:)
571 type(rfpack_type) ,
intent(in) :: pack
572 type(uppDia_type) ,
intent(in) :: subset
577 PURE module function getMatTrace_RFP_UXD_IK3(mat, pack, subset)
result(trace)
578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_IK3
582 integer(IKG) :: trace
583 integer(IKG) ,
intent(in) :: mat(:,:)
584 type(rfpack_type) ,
intent(in) :: pack
585 type(uppDia_type) ,
intent(in) :: subset
590 PURE module function getMatTrace_RFP_UXD_IK2(mat, pack, subset)
result(trace)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_IK2
595 integer(IKG) :: trace
596 integer(IKG) ,
intent(in) :: mat(:,:)
597 type(rfpack_type) ,
intent(in) :: pack
598 type(uppDia_type) ,
intent(in) :: subset
603 PURE module function getMatTrace_RFP_UXD_IK1(mat, pack, subset)
result(trace)
604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
605 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_IK1
608 integer(IKG) :: trace
609 integer(IKG) ,
intent(in) :: mat(:,:)
610 type(rfpack_type) ,
intent(in) :: pack
611 type(uppDia_type) ,
intent(in) :: subset
618 PURE module function getMatTrace_RFP_UXD_CK5(mat, pack, subset)
result(trace)
619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
620 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_CK5
623 complex(CKG) :: trace
624 complex(CKG) ,
intent(in) :: mat(:,:)
625 type(rfpack_type) ,
intent(in) :: pack
626 type(uppDia_type) ,
intent(in) :: subset
631 PURE module function getMatTrace_RFP_UXD_CK4(mat, pack, subset)
result(trace)
632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
633 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_CK4
636 complex(CKG) :: trace
637 complex(CKG) ,
intent(in) :: mat(:,:)
638 type(rfpack_type) ,
intent(in) :: pack
639 type(uppDia_type) ,
intent(in) :: subset
644 PURE module function getMatTrace_RFP_UXD_CK3(mat, pack, subset)
result(trace)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_CK3
649 complex(CKG) :: trace
650 complex(CKG) ,
intent(in) :: mat(:,:)
651 type(rfpack_type) ,
intent(in) :: pack
652 type(uppDia_type) ,
intent(in) :: subset
657 PURE module function getMatTrace_RFP_UXD_CK2(mat, pack, subset)
result(trace)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_CK2
662 complex(CKG) :: trace
663 complex(CKG) ,
intent(in) :: mat(:,:)
664 type(rfpack_type) ,
intent(in) :: pack
665 type(uppDia_type) ,
intent(in) :: subset
670 PURE module function getMatTrace_RFP_UXD_CK1(mat, pack, subset)
result(trace)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_CK1
675 complex(CKG) :: trace
676 complex(CKG) ,
intent(in) :: mat(:,:)
677 type(rfpack_type) ,
intent(in) :: pack
678 type(uppDia_type) ,
intent(in) :: subset
685 PURE module function getMatTrace_RFP_UXD_RK5(mat, pack, subset)
result(trace)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_RK5
691 real(RKG) ,
intent(in) :: mat(:,:)
692 type(rfpack_type) ,
intent(in) :: pack
693 type(uppDia_type) ,
intent(in) :: subset
698 PURE module function getMatTrace_RFP_UXD_RK4(mat, pack, subset)
result(trace)
699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_RK4
704 real(RKG) ,
intent(in) :: mat(:,:)
705 type(rfpack_type) ,
intent(in) :: pack
706 type(uppDia_type) ,
intent(in) :: subset
711 PURE module function getMatTrace_RFP_UXD_RK3(mat, pack, subset)
result(trace)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_RK3
717 real(RKG) ,
intent(in) :: mat(:,:)
718 type(rfpack_type) ,
intent(in) :: pack
719 type(uppDia_type) ,
intent(in) :: subset
724 PURE module function getMatTrace_RFP_UXD_RK2(mat, pack, subset)
result(trace)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_RK2
730 real(RKG) ,
intent(in) :: mat(:,:)
731 type(rfpack_type) ,
intent(in) :: pack
732 type(uppDia_type) ,
intent(in) :: subset
737 PURE module function getMatTrace_RFP_UXD_RK1(mat, pack, subset)
result(trace)
738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
739 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_UXD_RK1
743 real(RKG) ,
intent(in) :: mat(:,:)
744 type(rfpack_type) ,
intent(in) :: pack
745 type(uppDia_type) ,
intent(in) :: subset
758 PURE module function getMatTrace_RFP_XLD_IK5(mat, pack, subset)
result(trace)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_IK5
763 integer(IKG) :: trace
764 integer(IKG) ,
intent(in) :: mat(:,:)
765 type(rfpack_type) ,
intent(in) :: pack
766 type(lowDia_type) ,
intent(in) :: subset
771 PURE module function getMatTrace_RFP_XLD_IK4(mat, pack, subset)
result(trace)
772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
773 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_IK4
776 integer(IKG) :: trace
777 integer(IKG) ,
intent(in) :: mat(:,:)
778 type(rfpack_type) ,
intent(in) :: pack
779 type(lowDia_type) ,
intent(in) :: subset
784 PURE module function getMatTrace_RFP_XLD_IK3(mat, pack, subset)
result(trace)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_IK3
789 integer(IKG) :: trace
790 integer(IKG) ,
intent(in) :: mat(:,:)
791 type(rfpack_type) ,
intent(in) :: pack
792 type(lowDia_type) ,
intent(in) :: subset
797 PURE module function getMatTrace_RFP_XLD_IK2(mat, pack, subset)
result(trace)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_IK2
802 integer(IKG) :: trace
803 integer(IKG) ,
intent(in) :: mat(:,:)
804 type(rfpack_type) ,
intent(in) :: pack
805 type(lowDia_type) ,
intent(in) :: subset
810 PURE module function getMatTrace_RFP_XLD_IK1(mat, pack, subset)
result(trace)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_IK1
815 integer(IKG) :: trace
816 integer(IKG) ,
intent(in) :: mat(:,:)
817 type(rfpack_type) ,
intent(in) :: pack
818 type(lowDia_type) ,
intent(in) :: subset
825 PURE module function getMatTrace_RFP_XLD_CK5(mat, pack, subset)
result(trace)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_CK5
830 complex(CKG) :: trace
831 complex(CKG) ,
intent(in) :: mat(:,:)
832 type(rfpack_type) ,
intent(in) :: pack
833 type(lowDia_type) ,
intent(in) :: subset
838 PURE module function getMatTrace_RFP_XLD_CK4(mat, pack, subset)
result(trace)
839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
840 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_CK4
843 complex(CKG) :: trace
844 complex(CKG) ,
intent(in) :: mat(:,:)
845 type(rfpack_type) ,
intent(in) :: pack
846 type(lowDia_type) ,
intent(in) :: subset
851 PURE module function getMatTrace_RFP_XLD_CK3(mat, pack, subset)
result(trace)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_CK3
856 complex(CKG) :: trace
857 complex(CKG) ,
intent(in) :: mat(:,:)
858 type(rfpack_type) ,
intent(in) :: pack
859 type(lowDia_type) ,
intent(in) :: subset
864 PURE module function getMatTrace_RFP_XLD_CK2(mat, pack, subset)
result(trace)
865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
866 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_CK2
869 complex(CKG) :: trace
870 complex(CKG) ,
intent(in) :: mat(:,:)
871 type(rfpack_type) ,
intent(in) :: pack
872 type(lowDia_type) ,
intent(in) :: subset
877 PURE module function getMatTrace_RFP_XLD_CK1(mat, pack, subset)
result(trace)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_CK1
882 complex(CKG) :: trace
883 complex(CKG) ,
intent(in) :: mat(:,:)
884 type(rfpack_type) ,
intent(in) :: pack
885 type(lowDia_type) ,
intent(in) :: subset
892 PURE module function getMatTrace_RFP_XLD_RK5(mat, pack, subset)
result(trace)
893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
894 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_RK5
898 real(RKG) ,
intent(in) :: mat(:,:)
899 type(rfpack_type) ,
intent(in) :: pack
900 type(lowDia_type) ,
intent(in) :: subset
905 PURE module function getMatTrace_RFP_XLD_RK4(mat, pack, subset)
result(trace)
906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
907 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_RK4
911 real(RKG) ,
intent(in) :: mat(:,:)
912 type(rfpack_type) ,
intent(in) :: pack
913 type(lowDia_type) ,
intent(in) :: subset
918 PURE module function getMatTrace_RFP_XLD_RK3(mat, pack, subset)
result(trace)
919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
920 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_RK3
924 real(RKG) ,
intent(in) :: mat(:,:)
925 type(rfpack_type) ,
intent(in) :: pack
926 type(lowDia_type) ,
intent(in) :: subset
931 PURE module function getMatTrace_RFP_XLD_RK2(mat, pack, subset)
result(trace)
932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
933 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_RK2
937 real(RKG) ,
intent(in) :: mat(:,:)
938 type(rfpack_type) ,
intent(in) :: pack
939 type(lowDia_type) ,
intent(in) :: subset
944 PURE module function getMatTrace_RFP_XLD_RK1(mat, pack, subset)
result(trace)
945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
946 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_RFP_XLD_RK1
950 real(RKG) ,
intent(in) :: mat(:,:)
951 type(rfpack_type) ,
intent(in) :: pack
952 type(lowDia_type) ,
intent(in) :: subset
969 PURE module function getMatTrace_LFP_UXD_IK5(mat, pack, subset)
result(trace)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_IK5
974 integer(IKG) :: trace
975 integer(IKG) ,
intent(in) :: mat(:)
976 type(lfpack_type) ,
intent(in) :: pack
977 type(uppDia_type) ,
intent(in) :: subset
982 PURE module function getMatTrace_LFP_UXD_IK4(mat, pack, subset)
result(trace)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_IK4
987 integer(IKG) :: trace
988 integer(IKG) ,
intent(in) :: mat(:)
989 type(lfpack_type) ,
intent(in) :: pack
990 type(uppDia_type) ,
intent(in) :: subset
995 PURE module function getMatTrace_LFP_UXD_IK3(mat, pack, subset)
result(trace)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_IK3
1000 integer(IKG) :: trace
1001 integer(IKG) ,
intent(in) :: mat(:)
1002 type(lfpack_type) ,
intent(in) :: pack
1003 type(uppDia_type) ,
intent(in) :: subset
1008 PURE module function getMatTrace_LFP_UXD_IK2(mat, pack, subset)
result(trace)
1009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1010 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_IK2
1013 integer(IKG) :: trace
1014 integer(IKG) ,
intent(in) :: mat(:)
1015 type(lfpack_type) ,
intent(in) :: pack
1016 type(uppDia_type) ,
intent(in) :: subset
1021 PURE module function getMatTrace_LFP_UXD_IK1(mat, pack, subset)
result(trace)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_IK1
1026 integer(IKG) :: trace
1027 integer(IKG) ,
intent(in) :: mat(:)
1028 type(lfpack_type) ,
intent(in) :: pack
1029 type(uppDia_type) ,
intent(in) :: subset
1036 PURE module function getMatTrace_LFP_UXD_CK5(mat, pack, subset)
result(trace)
1037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1038 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_CK5
1041 complex(CKG) :: trace
1042 complex(CKG) ,
intent(in) :: mat(:)
1043 type(lfpack_type) ,
intent(in) :: pack
1044 type(uppDia_type) ,
intent(in) :: subset
1049 PURE module function getMatTrace_LFP_UXD_CK4(mat, pack, subset)
result(trace)
1050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1051 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_CK4
1054 complex(CKG) :: trace
1055 complex(CKG) ,
intent(in) :: mat(:)
1056 type(lfpack_type) ,
intent(in) :: pack
1057 type(uppDia_type) ,
intent(in) :: subset
1062 PURE module function getMatTrace_LFP_UXD_CK3(mat, pack, subset)
result(trace)
1063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1064 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_CK3
1067 complex(CKG) :: trace
1068 complex(CKG) ,
intent(in) :: mat(:)
1069 type(lfpack_type) ,
intent(in) :: pack
1070 type(uppDia_type) ,
intent(in) :: subset
1075 PURE module function getMatTrace_LFP_UXD_CK2(mat, pack, subset)
result(trace)
1076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1077 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_CK2
1080 complex(CKG) :: trace
1081 complex(CKG) ,
intent(in) :: mat(:)
1082 type(lfpack_type) ,
intent(in) :: pack
1083 type(uppDia_type) ,
intent(in) :: subset
1088 PURE module function getMatTrace_LFP_UXD_CK1(mat, pack, subset)
result(trace)
1089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1090 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_CK1
1093 complex(CKG) :: trace
1094 complex(CKG) ,
intent(in) :: mat(:)
1095 type(lfpack_type) ,
intent(in) :: pack
1096 type(uppDia_type) ,
intent(in) :: subset
1103 PURE module function getMatTrace_LFP_UXD_RK5(mat, pack, subset)
result(trace)
1104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1105 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_RK5
1109 real(RKG) ,
intent(in) :: mat(:)
1110 type(lfpack_type) ,
intent(in) :: pack
1111 type(uppDia_type) ,
intent(in) :: subset
1116 PURE module function getMatTrace_LFP_UXD_RK4(mat, pack, subset)
result(trace)
1117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1118 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_RK4
1122 real(RKG) ,
intent(in) :: mat(:)
1123 type(lfpack_type) ,
intent(in) :: pack
1124 type(uppDia_type) ,
intent(in) :: subset
1129 PURE module function getMatTrace_LFP_UXD_RK3(mat, pack, subset)
result(trace)
1130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1131 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_RK3
1135 real(RKG) ,
intent(in) :: mat(:)
1136 type(lfpack_type) ,
intent(in) :: pack
1137 type(uppDia_type) ,
intent(in) :: subset
1142 PURE module function getMatTrace_LFP_UXD_RK2(mat, pack, subset)
result(trace)
1143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1144 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_RK2
1148 real(RKG) ,
intent(in) :: mat(:)
1149 type(lfpack_type) ,
intent(in) :: pack
1150 type(uppDia_type) ,
intent(in) :: subset
1155 PURE module function getMatTrace_LFP_UXD_RK1(mat, pack, subset)
result(trace)
1156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1157 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_UXD_RK1
1161 real(RKG) ,
intent(in) :: mat(:)
1162 type(lfpack_type) ,
intent(in) :: pack
1163 type(uppDia_type) ,
intent(in) :: subset
1176 PURE module function getMatTrace_LFP_XLD_IK5(mat, pack, subset)
result(trace)
1177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1178 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_IK5
1181 integer(IKG) :: trace
1182 integer(IKG) ,
intent(in) :: mat(:)
1183 type(lfpack_type) ,
intent(in) :: pack
1184 type(lowDia_type) ,
intent(in) :: subset
1189 PURE module function getMatTrace_LFP_XLD_IK4(mat, pack, subset)
result(trace)
1190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1191 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_IK4
1194 integer(IKG) :: trace
1195 integer(IKG) ,
intent(in) :: mat(:)
1196 type(lfpack_type) ,
intent(in) :: pack
1197 type(lowDia_type) ,
intent(in) :: subset
1202 PURE module function getMatTrace_LFP_XLD_IK3(mat, pack, subset)
result(trace)
1203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1204 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_IK3
1207 integer(IKG) :: trace
1208 integer(IKG) ,
intent(in) :: mat(:)
1209 type(lfpack_type) ,
intent(in) :: pack
1210 type(lowDia_type) ,
intent(in) :: subset
1215 PURE module function getMatTrace_LFP_XLD_IK2(mat, pack, subset)
result(trace)
1216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1217 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_IK2
1220 integer(IKG) :: trace
1221 integer(IKG) ,
intent(in) :: mat(:)
1222 type(lfpack_type) ,
intent(in) :: pack
1223 type(lowDia_type) ,
intent(in) :: subset
1228 PURE module function getMatTrace_LFP_XLD_IK1(mat, pack, subset)
result(trace)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_IK1
1233 integer(IKG) :: trace
1234 integer(IKG) ,
intent(in) :: mat(:)
1235 type(lfpack_type) ,
intent(in) :: pack
1236 type(lowDia_type) ,
intent(in) :: subset
1243 PURE module function getMatTrace_LFP_XLD_CK5(mat, pack, subset)
result(trace)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_CK5
1248 complex(CKG) :: trace
1249 complex(CKG) ,
intent(in) :: mat(:)
1250 type(lfpack_type) ,
intent(in) :: pack
1251 type(lowDia_type) ,
intent(in) :: subset
1256 PURE module function getMatTrace_LFP_XLD_CK4(mat, pack, subset)
result(trace)
1257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1258 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_CK4
1261 complex(CKG) :: trace
1262 complex(CKG) ,
intent(in) :: mat(:)
1263 type(lfpack_type) ,
intent(in) :: pack
1264 type(lowDia_type) ,
intent(in) :: subset
1269 PURE module function getMatTrace_LFP_XLD_CK3(mat, pack, subset)
result(trace)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_CK3
1274 complex(CKG) :: trace
1275 complex(CKG) ,
intent(in) :: mat(:)
1276 type(lfpack_type) ,
intent(in) :: pack
1277 type(lowDia_type) ,
intent(in) :: subset
1282 PURE module function getMatTrace_LFP_XLD_CK2(mat, pack, subset)
result(trace)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_CK2
1287 complex(CKG) :: trace
1288 complex(CKG) ,
intent(in) :: mat(:)
1289 type(lfpack_type) ,
intent(in) :: pack
1290 type(lowDia_type) ,
intent(in) :: subset
1295 PURE module function getMatTrace_LFP_XLD_CK1(mat, pack, subset)
result(trace)
1296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1297 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_CK1
1300 complex(CKG) :: trace
1301 complex(CKG) ,
intent(in) :: mat(:)
1302 type(lfpack_type) ,
intent(in) :: pack
1303 type(lowDia_type) ,
intent(in) :: subset
1310 PURE module function getMatTrace_LFP_XLD_RK5(mat, pack, subset)
result(trace)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_RK5
1316 real(RKG) ,
intent(in) :: mat(:)
1317 type(lfpack_type) ,
intent(in) :: pack
1318 type(lowDia_type) ,
intent(in) :: subset
1323 PURE module function getMatTrace_LFP_XLD_RK4(mat, pack, subset)
result(trace)
1324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1325 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_RK4
1329 real(RKG) ,
intent(in) :: mat(:)
1330 type(lfpack_type) ,
intent(in) :: pack
1331 type(lowDia_type) ,
intent(in) :: subset
1336 PURE module function getMatTrace_LFP_XLD_RK3(mat, pack, subset)
result(trace)
1337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1338 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_RK3
1342 real(RKG) ,
intent(in) :: mat(:)
1343 type(lfpack_type) ,
intent(in) :: pack
1344 type(lowDia_type) ,
intent(in) :: subset
1349 PURE module function getMatTrace_LFP_XLD_RK2(mat, pack, subset)
result(trace)
1350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1351 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_RK2
1355 real(RKG) ,
intent(in) :: mat(:)
1356 type(lfpack_type) ,
intent(in) :: pack
1357 type(lowDia_type) ,
intent(in) :: subset
1362 PURE module function getMatTrace_LFP_XLD_RK1(mat, pack, subset)
result(trace)
1363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1364 !DEC$ ATTRIBUTES DLLEXPORT :: getMatTrace_LFP_XLD_RK1
1368 real(RKG) ,
intent(in) :: mat(:)
1369 type(lfpack_type) ,
intent(in) :: pack
1370 type(lowDia_type) ,
intent(in) :: subset
1478 PURE module function getMatMulTrace_DEF_XXX_IK5(mat)
result(mulTrace)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_IK5
1483 integer(IKG) ,
intent(in) :: mat(:,:)
1484 integer(IKG) :: mulTrace
1489 PURE module function getMatMulTrace_DEF_XXX_IK4(mat)
result(mulTrace)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_IK4
1494 integer(IKG) ,
intent(in) :: mat(:,:)
1495 integer(IKG) :: mulTrace
1500 PURE module function getMatMulTrace_DEF_XXX_IK3(mat)
result(mulTrace)
1501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1502 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_IK3
1505 integer(IKG) ,
intent(in) :: mat(:,:)
1506 integer(IKG) :: mulTrace
1511 PURE module function getMatMulTrace_DEF_XXX_IK2(mat)
result(mulTrace)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_IK2
1516 integer(IKG) ,
intent(in) :: mat(:,:)
1517 integer(IKG) :: mulTrace
1522 PURE module function getMatMulTrace_DEF_XXX_IK1(mat)
result(mulTrace)
1523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1524 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_IK1
1527 integer(IKG) ,
intent(in) :: mat(:,:)
1528 integer(IKG) :: mulTrace
1535 PURE module function getMatMulTrace_DEF_XXX_CK5(mat)
result(mulTrace)
1536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1537 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_CK5
1540 complex(CKG) ,
intent(in) :: mat(:,:)
1541 complex(CKG) :: mulTrace
1546 PURE module function getMatMulTrace_DEF_XXX_CK4(mat)
result(mulTrace)
1547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1548 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_CK4
1551 complex(CKG) ,
intent(in) :: mat(:,:)
1552 complex(CKG) :: mulTrace
1557 PURE module function getMatMulTrace_DEF_XXX_CK3(mat)
result(mulTrace)
1558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1559 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_CK3
1562 complex(CKG) ,
intent(in) :: mat(:,:)
1563 complex(CKG) :: mulTrace
1568 PURE module function getMatMulTrace_DEF_XXX_CK2(mat)
result(mulTrace)
1569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1570 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_CK2
1573 complex(CKG) ,
intent(in) :: mat(:,:)
1574 complex(CKG) :: mulTrace
1579 PURE module function getMatMulTrace_DEF_XXX_CK1(mat)
result(mulTrace)
1580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1581 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_CK1
1584 complex(CKG) ,
intent(in) :: mat(:,:)
1585 complex(CKG) :: mulTrace
1592 PURE module function getMatMulTrace_DEF_XXX_RK5(mat)
result(mulTrace)
1593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1594 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_RK5
1597 real(RKG) ,
intent(in) :: mat(:,:)
1598 real(RKG) :: mulTrace
1603 PURE module function getMatMulTrace_DEF_XXX_RK4(mat)
result(mulTrace)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_RK4
1608 real(RKG) ,
intent(in) :: mat(:,:)
1609 real(RKG) :: mulTrace
1614 PURE module function getMatMulTrace_DEF_XXX_RK3(mat)
result(mulTrace)
1615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1616 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_RK3
1619 real(RKG) ,
intent(in) :: mat(:,:)
1620 real(RKG) :: mulTrace
1625 PURE module function getMatMulTrace_DEF_XXX_RK2(mat)
result(mulTrace)
1626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1627 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_RK2
1630 real(RKG) ,
intent(in) :: mat(:,:)
1631 real(RKG) :: mulTrace
1636 PURE module function getMatMulTrace_DEF_XXX_RK1(mat)
result(mulTrace)
1637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1638 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_DEF_XXX_RK1
1641 real(RKG) ,
intent(in) :: mat(:,:)
1642 real(RKG) :: mulTrace
1659 PURE module function getMatMulTrace_RDP_XXX_IK5(mat, pack)
result(mulTrace)
1660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1661 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_IK5
1664 integer(IKG) ,
intent(in) :: mat(:,:)
1665 type(rdpack_type) ,
intent(in) :: pack
1666 integer(IKG) :: mulTrace
1671 PURE module function getMatMulTrace_RDP_XXX_IK4(mat, pack)
result(mulTrace)
1672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1673 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_IK4
1676 integer(IKG) ,
intent(in) :: mat(:,:)
1677 type(rdpack_type) ,
intent(in) :: pack
1678 integer(IKG) :: mulTrace
1683 PURE module function getMatMulTrace_RDP_XXX_IK3(mat, pack)
result(mulTrace)
1684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1685 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_IK3
1688 integer(IKG) ,
intent(in) :: mat(:,:)
1689 type(rdpack_type) ,
intent(in) :: pack
1690 integer(IKG) :: mulTrace
1695 PURE module function getMatMulTrace_RDP_XXX_IK2(mat, pack)
result(mulTrace)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_IK2
1700 integer(IKG) ,
intent(in) :: mat(:,:)
1701 type(rdpack_type) ,
intent(in) :: pack
1702 integer(IKG) :: mulTrace
1707 PURE module function getMatMulTrace_RDP_XXX_IK1(mat, pack)
result(mulTrace)
1708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1709 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_IK1
1712 integer(IKG) ,
intent(in) :: mat(:,:)
1713 type(rdpack_type) ,
intent(in) :: pack
1714 integer(IKG) :: mulTrace
1721 PURE module function getMatMulTrace_RDP_XXX_CK5(mat, pack)
result(mulTrace)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_CK5
1726 complex(CKG) ,
intent(in) :: mat(:,:)
1727 type(rdpack_type) ,
intent(in) :: pack
1728 complex(CKG) :: mulTrace
1733 PURE module function getMatMulTrace_RDP_XXX_CK4(mat, pack)
result(mulTrace)
1734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1735 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_CK4
1738 complex(CKG) ,
intent(in) :: mat(:,:)
1739 type(rdpack_type) ,
intent(in) :: pack
1740 complex(CKG) :: mulTrace
1745 PURE module function getMatMulTrace_RDP_XXX_CK3(mat, pack)
result(mulTrace)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_CK3
1750 complex(CKG) ,
intent(in) :: mat(:,:)
1751 type(rdpack_type) ,
intent(in) :: pack
1752 complex(CKG) :: mulTrace
1757 PURE module function getMatMulTrace_RDP_XXX_CK2(mat, pack)
result(mulTrace)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_CK2
1762 complex(CKG) ,
intent(in) :: mat(:,:)
1763 type(rdpack_type) ,
intent(in) :: pack
1764 complex(CKG) :: mulTrace
1769 PURE module function getMatMulTrace_RDP_XXX_CK1(mat, pack)
result(mulTrace)
1770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1771 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_CK1
1774 complex(CKG) ,
intent(in) :: mat(:,:)
1775 type(rdpack_type) ,
intent(in) :: pack
1776 complex(CKG) :: mulTrace
1783 PURE module function getMatMulTrace_RDP_XXX_RK5(mat, pack)
result(mulTrace)
1784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1785 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_RK5
1788 real(RKG) ,
intent(in) :: mat(:,:)
1789 real(RKG) :: mulTrace
1790 type(rdpack_type) ,
intent(in) :: pack
1795 PURE module function getMatMulTrace_RDP_XXX_RK4(mat, pack)
result(mulTrace)
1796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1797 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_RK4
1800 real(RKG) ,
intent(in) :: mat(:,:)
1801 type(rdpack_type) ,
intent(in) :: pack
1802 real(RKG) :: mulTrace
1807 PURE module function getMatMulTrace_RDP_XXX_RK3(mat, pack)
result(mulTrace)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_RK3
1812 real(RKG) ,
intent(in) :: mat(:,:)
1813 type(rdpack_type) ,
intent(in) :: pack
1814 real(RKG) :: mulTrace
1819 PURE module function getMatMulTrace_RDP_XXX_RK2(mat, pack)
result(mulTrace)
1820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1821 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_RK2
1824 real(RKG) ,
intent(in) :: mat(:,:)
1825 type(rdpack_type) ,
intent(in) :: pack
1826 real(RKG) :: mulTrace
1831 PURE module function getMatMulTrace_RDP_XXX_RK1(mat, pack)
result(mulTrace)
1832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1833 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RDP_XXX_RK1
1836 real(RKG) ,
intent(in) :: mat(:,:)
1837 type(rdpack_type) ,
intent(in) :: pack
1838 real(RKG) :: mulTrace
1855 PURE module function getMatMulTrace_RFP_UXD_IK5(mat, pack, subset)
result(mulTrace)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_IK5
1860 integer(IKG) :: mulTrace
1861 integer(IKG) ,
intent(in) :: mat(:,:)
1862 type(rfpack_type) ,
intent(in) :: pack
1863 type(uppDia_type) ,
intent(in) :: subset
1868 PURE module function getMatMulTrace_RFP_UXD_IK4(mat, pack, subset)
result(mulTrace)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_IK4
1873 integer(IKG) :: mulTrace
1874 integer(IKG) ,
intent(in) :: mat(:,:)
1875 type(rfpack_type) ,
intent(in) :: pack
1876 type(uppDia_type) ,
intent(in) :: subset
1881 PURE module function getMatMulTrace_RFP_UXD_IK3(mat, pack, subset)
result(mulTrace)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_IK3
1886 integer(IKG) :: mulTrace
1887 integer(IKG) ,
intent(in) :: mat(:,:)
1888 type(rfpack_type) ,
intent(in) :: pack
1889 type(uppDia_type) ,
intent(in) :: subset
1894 PURE module function getMatMulTrace_RFP_UXD_IK2(mat, pack, subset)
result(mulTrace)
1895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1896 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_IK2
1899 integer(IKG) :: mulTrace
1900 integer(IKG) ,
intent(in) :: mat(:,:)
1901 type(rfpack_type) ,
intent(in) :: pack
1902 type(uppDia_type) ,
intent(in) :: subset
1907 PURE module function getMatMulTrace_RFP_UXD_IK1(mat, pack, subset)
result(mulTrace)
1908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1909 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_IK1
1912 integer(IKG) :: mulTrace
1913 integer(IKG) ,
intent(in) :: mat(:,:)
1914 type(rfpack_type) ,
intent(in) :: pack
1915 type(uppDia_type) ,
intent(in) :: subset
1922 PURE module function getMatMulTrace_RFP_UXD_CK5(mat, pack, subset)
result(mulTrace)
1923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1924 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_CK5
1927 complex(CKG) :: mulTrace
1928 complex(CKG) ,
intent(in) :: mat(:,:)
1929 type(rfpack_type) ,
intent(in) :: pack
1930 type(uppDia_type) ,
intent(in) :: subset
1935 PURE module function getMatMulTrace_RFP_UXD_CK4(mat, pack, subset)
result(mulTrace)
1936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1937 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_CK4
1940 complex(CKG) :: mulTrace
1941 complex(CKG) ,
intent(in) :: mat(:,:)
1942 type(rfpack_type) ,
intent(in) :: pack
1943 type(uppDia_type) ,
intent(in) :: subset
1948 PURE module function getMatMulTrace_RFP_UXD_CK3(mat, pack, subset)
result(mulTrace)
1949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1950 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_CK3
1953 complex(CKG) :: mulTrace
1954 complex(CKG) ,
intent(in) :: mat(:,:)
1955 type(rfpack_type) ,
intent(in) :: pack
1956 type(uppDia_type) ,
intent(in) :: subset
1961 PURE module function getMatMulTrace_RFP_UXD_CK2(mat, pack, subset)
result(mulTrace)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_CK2
1966 complex(CKG) :: mulTrace
1967 complex(CKG) ,
intent(in) :: mat(:,:)
1968 type(rfpack_type) ,
intent(in) :: pack
1969 type(uppDia_type) ,
intent(in) :: subset
1974 PURE module function getMatMulTrace_RFP_UXD_CK1(mat, pack, subset)
result(mulTrace)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_CK1
1979 complex(CKG) :: mulTrace
1980 complex(CKG) ,
intent(in) :: mat(:,:)
1981 type(rfpack_type) ,
intent(in) :: pack
1982 type(uppDia_type) ,
intent(in) :: subset
1989 PURE module function getMatMulTrace_RFP_UXD_RK5(mat, pack, subset)
result(mulTrace)
1990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1991 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_RK5
1994 real(RKG) :: mulTrace
1995 real(RKG) ,
intent(in) :: mat(:,:)
1996 type(rfpack_type) ,
intent(in) :: pack
1997 type(uppDia_type) ,
intent(in) :: subset
2002 PURE module function getMatMulTrace_RFP_UXD_RK4(mat, pack, subset)
result(mulTrace)
2003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2004 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_RK4
2007 real(RKG) :: mulTrace
2008 real(RKG) ,
intent(in) :: mat(:,:)
2009 type(rfpack_type) ,
intent(in) :: pack
2010 type(uppDia_type) ,
intent(in) :: subset
2015 PURE module function getMatMulTrace_RFP_UXD_RK3(mat, pack, subset)
result(mulTrace)
2016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2017 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_RK3
2020 real(RKG) :: mulTrace
2021 real(RKG) ,
intent(in) :: mat(:,:)
2022 type(rfpack_type) ,
intent(in) :: pack
2023 type(uppDia_type) ,
intent(in) :: subset
2028 PURE module function getMatMulTrace_RFP_UXD_RK2(mat, pack, subset)
result(mulTrace)
2029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2030 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_RK2
2033 real(RKG) :: mulTrace
2034 real(RKG) ,
intent(in) :: mat(:,:)
2035 type(rfpack_type) ,
intent(in) :: pack
2036 type(uppDia_type) ,
intent(in) :: subset
2041 PURE module function getMatMulTrace_RFP_UXD_RK1(mat, pack, subset)
result(mulTrace)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_UXD_RK1
2046 real(RKG) :: mulTrace
2047 real(RKG) ,
intent(in) :: mat(:,:)
2048 type(rfpack_type) ,
intent(in) :: pack
2049 type(uppDia_type) ,
intent(in) :: subset
2062 PURE module function getMatMulTrace_RFP_XLD_IK5(mat, pack, subset)
result(mulTrace)
2063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2064 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_IK5
2067 integer(IKG) :: mulTrace
2068 integer(IKG) ,
intent(in) :: mat(:,:)
2069 type(rfpack_type) ,
intent(in) :: pack
2070 type(lowDia_type) ,
intent(in) :: subset
2075 PURE module function getMatMulTrace_RFP_XLD_IK4(mat, pack, subset)
result(mulTrace)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_IK4
2080 integer(IKG) :: mulTrace
2081 integer(IKG) ,
intent(in) :: mat(:,:)
2082 type(rfpack_type) ,
intent(in) :: pack
2083 type(lowDia_type) ,
intent(in) :: subset
2088 PURE module function getMatMulTrace_RFP_XLD_IK3(mat, pack, subset)
result(mulTrace)
2089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2090 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_IK3
2093 integer(IKG) :: mulTrace
2094 integer(IKG) ,
intent(in) :: mat(:,:)
2095 type(rfpack_type) ,
intent(in) :: pack
2096 type(lowDia_type) ,
intent(in) :: subset
2101 PURE module function getMatMulTrace_RFP_XLD_IK2(mat, pack, subset)
result(mulTrace)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_IK2
2106 integer(IKG) :: mulTrace
2107 integer(IKG) ,
intent(in) :: mat(:,:)
2108 type(rfpack_type) ,
intent(in) :: pack
2109 type(lowDia_type) ,
intent(in) :: subset
2114 PURE module function getMatMulTrace_RFP_XLD_IK1(mat, pack, subset)
result(mulTrace)
2115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2116 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_IK1
2119 integer(IKG) :: mulTrace
2120 integer(IKG) ,
intent(in) :: mat(:,:)
2121 type(rfpack_type) ,
intent(in) :: pack
2122 type(lowDia_type) ,
intent(in) :: subset
2129 PURE module function getMatMulTrace_RFP_XLD_CK5(mat, pack, subset)
result(mulTrace)
2130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2131 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_CK5
2134 complex(CKG) :: mulTrace
2135 complex(CKG) ,
intent(in) :: mat(:,:)
2136 type(rfpack_type) ,
intent(in) :: pack
2137 type(lowDia_type) ,
intent(in) :: subset
2142 PURE module function getMatMulTrace_RFP_XLD_CK4(mat, pack, subset)
result(mulTrace)
2143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2144 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_CK4
2147 complex(CKG) :: mulTrace
2148 complex(CKG) ,
intent(in) :: mat(:,:)
2149 type(rfpack_type) ,
intent(in) :: pack
2150 type(lowDia_type) ,
intent(in) :: subset
2155 PURE module function getMatMulTrace_RFP_XLD_CK3(mat, pack, subset)
result(mulTrace)
2156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2157 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_CK3
2160 complex(CKG) :: mulTrace
2161 complex(CKG) ,
intent(in) :: mat(:,:)
2162 type(rfpack_type) ,
intent(in) :: pack
2163 type(lowDia_type) ,
intent(in) :: subset
2168 PURE module function getMatMulTrace_RFP_XLD_CK2(mat, pack, subset)
result(mulTrace)
2169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2170 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_CK2
2173 complex(CKG) :: mulTrace
2174 complex(CKG) ,
intent(in) :: mat(:,:)
2175 type(rfpack_type) ,
intent(in) :: pack
2176 type(lowDia_type) ,
intent(in) :: subset
2181 PURE module function getMatMulTrace_RFP_XLD_CK1(mat, pack, subset)
result(mulTrace)
2182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2183 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_CK1
2186 complex(CKG) :: mulTrace
2187 complex(CKG) ,
intent(in) :: mat(:,:)
2188 type(rfpack_type) ,
intent(in) :: pack
2189 type(lowDia_type) ,
intent(in) :: subset
2196 PURE module function getMatMulTrace_RFP_XLD_RK5(mat, pack, subset)
result(mulTrace)
2197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2198 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_RK5
2201 real(RKG) :: mulTrace
2202 real(RKG) ,
intent(in) :: mat(:,:)
2203 type(rfpack_type) ,
intent(in) :: pack
2204 type(lowDia_type) ,
intent(in) :: subset
2209 PURE module function getMatMulTrace_RFP_XLD_RK4(mat, pack, subset)
result(mulTrace)
2210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2211 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_RK4
2214 real(RKG) :: mulTrace
2215 real(RKG) ,
intent(in) :: mat(:,:)
2216 type(rfpack_type) ,
intent(in) :: pack
2217 type(lowDia_type) ,
intent(in) :: subset
2222 PURE module function getMatMulTrace_RFP_XLD_RK3(mat, pack, subset)
result(mulTrace)
2223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2224 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_RK3
2227 real(RKG) :: mulTrace
2228 real(RKG) ,
intent(in) :: mat(:,:)
2229 type(rfpack_type) ,
intent(in) :: pack
2230 type(lowDia_type) ,
intent(in) :: subset
2235 PURE module function getMatMulTrace_RFP_XLD_RK2(mat, pack, subset)
result(mulTrace)
2236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2237 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_RK2
2240 real(RKG) :: mulTrace
2241 real(RKG) ,
intent(in) :: mat(:,:)
2242 type(rfpack_type) ,
intent(in) :: pack
2243 type(lowDia_type) ,
intent(in) :: subset
2248 PURE module function getMatMulTrace_RFP_XLD_RK1(mat, pack, subset)
result(mulTrace)
2249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2250 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_RFP_XLD_RK1
2253 real(RKG) :: mulTrace
2254 real(RKG) ,
intent(in) :: mat(:,:)
2255 type(rfpack_type) ,
intent(in) :: pack
2256 type(lowDia_type) ,
intent(in) :: subset
2273 PURE module function getMatMulTrace_LFP_UXD_IK5(mat, pack, subset)
result(mulTrace)
2274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2275 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_IK5
2278 integer(IKG) :: mulTrace
2279 integer(IKG) ,
intent(in) :: mat(:)
2280 type(lfpack_type) ,
intent(in) :: pack
2281 type(uppDia_type) ,
intent(in) :: subset
2286 PURE module function getMatMulTrace_LFP_UXD_IK4(mat, pack, subset)
result(mulTrace)
2287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2288 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_IK4
2291 integer(IKG) :: mulTrace
2292 integer(IKG) ,
intent(in) :: mat(:)
2293 type(lfpack_type) ,
intent(in) :: pack
2294 type(uppDia_type) ,
intent(in) :: subset
2299 PURE module function getMatMulTrace_LFP_UXD_IK3(mat, pack, subset)
result(mulTrace)
2300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2301 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_IK3
2304 integer(IKG) :: mulTrace
2305 integer(IKG) ,
intent(in) :: mat(:)
2306 type(lfpack_type) ,
intent(in) :: pack
2307 type(uppDia_type) ,
intent(in) :: subset
2312 PURE module function getMatMulTrace_LFP_UXD_IK2(mat, pack, subset)
result(mulTrace)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_IK2
2317 integer(IKG) :: mulTrace
2318 integer(IKG) ,
intent(in) :: mat(:)
2319 type(lfpack_type) ,
intent(in) :: pack
2320 type(uppDia_type) ,
intent(in) :: subset
2325 PURE module function getMatMulTrace_LFP_UXD_IK1(mat, pack, subset)
result(mulTrace)
2326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2327 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_IK1
2330 integer(IKG) :: mulTrace
2331 integer(IKG) ,
intent(in) :: mat(:)
2332 type(lfpack_type) ,
intent(in) :: pack
2333 type(uppDia_type) ,
intent(in) :: subset
2340 PURE module function getMatMulTrace_LFP_UXD_CK5(mat, pack, subset)
result(mulTrace)
2341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2342 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_CK5
2345 complex(CKG) :: mulTrace
2346 complex(CKG) ,
intent(in) :: mat(:)
2347 type(lfpack_type) ,
intent(in) :: pack
2348 type(uppDia_type) ,
intent(in) :: subset
2353 PURE module function getMatMulTrace_LFP_UXD_CK4(mat, pack, subset)
result(mulTrace)
2354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2355 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_CK4
2358 complex(CKG) :: mulTrace
2359 complex(CKG) ,
intent(in) :: mat(:)
2360 type(lfpack_type) ,
intent(in) :: pack
2361 type(uppDia_type) ,
intent(in) :: subset
2366 PURE module function getMatMulTrace_LFP_UXD_CK3(mat, pack, subset)
result(mulTrace)
2367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2368 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_CK3
2371 complex(CKG) :: mulTrace
2372 complex(CKG) ,
intent(in) :: mat(:)
2373 type(lfpack_type) ,
intent(in) :: pack
2374 type(uppDia_type) ,
intent(in) :: subset
2379 PURE module function getMatMulTrace_LFP_UXD_CK2(mat, pack, subset)
result(mulTrace)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_CK2
2384 complex(CKG) :: mulTrace
2385 complex(CKG) ,
intent(in) :: mat(:)
2386 type(lfpack_type) ,
intent(in) :: pack
2387 type(uppDia_type) ,
intent(in) :: subset
2392 PURE module function getMatMulTrace_LFP_UXD_CK1(mat, pack, subset)
result(mulTrace)
2393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2394 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_CK1
2397 complex(CKG) :: mulTrace
2398 complex(CKG) ,
intent(in) :: mat(:)
2399 type(lfpack_type) ,
intent(in) :: pack
2400 type(uppDia_type) ,
intent(in) :: subset
2407 PURE module function getMatMulTrace_LFP_UXD_RK5(mat, pack, subset)
result(mulTrace)
2408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2409 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_RK5
2412 real(RKG) :: mulTrace
2413 real(RKG) ,
intent(in) :: mat(:)
2414 type(lfpack_type) ,
intent(in) :: pack
2415 type(uppDia_type) ,
intent(in) :: subset
2420 PURE module function getMatMulTrace_LFP_UXD_RK4(mat, pack, subset)
result(mulTrace)
2421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2422 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_RK4
2425 real(RKG) :: mulTrace
2426 real(RKG) ,
intent(in) :: mat(:)
2427 type(lfpack_type) ,
intent(in) :: pack
2428 type(uppDia_type) ,
intent(in) :: subset
2433 PURE module function getMatMulTrace_LFP_UXD_RK3(mat, pack, subset)
result(mulTrace)
2434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2435 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_RK3
2438 real(RKG) :: mulTrace
2439 real(RKG) ,
intent(in) :: mat(:)
2440 type(lfpack_type) ,
intent(in) :: pack
2441 type(uppDia_type) ,
intent(in) :: subset
2446 PURE module function getMatMulTrace_LFP_UXD_RK2(mat, pack, subset)
result(mulTrace)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_RK2
2451 real(RKG) :: mulTrace
2452 real(RKG) ,
intent(in) :: mat(:)
2453 type(lfpack_type) ,
intent(in) :: pack
2454 type(uppDia_type) ,
intent(in) :: subset
2459 PURE module function getMatMulTrace_LFP_UXD_RK1(mat, pack, subset)
result(mulTrace)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_UXD_RK1
2464 real(RKG) :: mulTrace
2465 real(RKG) ,
intent(in) :: mat(:)
2466 type(lfpack_type) ,
intent(in) :: pack
2467 type(uppDia_type) ,
intent(in) :: subset
2480 PURE module function getMatMulTrace_LFP_XLD_IK5(mat, pack, subset)
result(mulTrace)
2481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2482 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_IK5
2485 integer(IKG) :: mulTrace
2486 integer(IKG) ,
intent(in) :: mat(:)
2487 type(lfpack_type) ,
intent(in) :: pack
2488 type(lowDia_type) ,
intent(in) :: subset
2493 PURE module function getMatMulTrace_LFP_XLD_IK4(mat, pack, subset)
result(mulTrace)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_IK4
2498 integer(IKG) :: mulTrace
2499 integer(IKG) ,
intent(in) :: mat(:)
2500 type(lfpack_type) ,
intent(in) :: pack
2501 type(lowDia_type) ,
intent(in) :: subset
2506 PURE module function getMatMulTrace_LFP_XLD_IK3(mat, pack, subset)
result(mulTrace)
2507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2508 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_IK3
2511 integer(IKG) :: mulTrace
2512 integer(IKG) ,
intent(in) :: mat(:)
2513 type(lfpack_type) ,
intent(in) :: pack
2514 type(lowDia_type) ,
intent(in) :: subset
2519 PURE module function getMatMulTrace_LFP_XLD_IK2(mat, pack, subset)
result(mulTrace)
2520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2521 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_IK2
2524 integer(IKG) :: mulTrace
2525 integer(IKG) ,
intent(in) :: mat(:)
2526 type(lfpack_type) ,
intent(in) :: pack
2527 type(lowDia_type) ,
intent(in) :: subset
2532 PURE module function getMatMulTrace_LFP_XLD_IK1(mat, pack, subset)
result(mulTrace)
2533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2534 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_IK1
2537 integer(IKG) :: mulTrace
2538 integer(IKG) ,
intent(in) :: mat(:)
2539 type(lfpack_type) ,
intent(in) :: pack
2540 type(lowDia_type) ,
intent(in) :: subset
2547 PURE module function getMatMulTrace_LFP_XLD_CK5(mat, pack, subset)
result(mulTrace)
2548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2549 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_CK5
2552 complex(CKG) :: mulTrace
2553 complex(CKG) ,
intent(in) :: mat(:)
2554 type(lfpack_type) ,
intent(in) :: pack
2555 type(lowDia_type) ,
intent(in) :: subset
2560 PURE module function getMatMulTrace_LFP_XLD_CK4(mat, pack, subset)
result(mulTrace)
2561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2562 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_CK4
2565 complex(CKG) :: mulTrace
2566 complex(CKG) ,
intent(in) :: mat(:)
2567 type(lfpack_type) ,
intent(in) :: pack
2568 type(lowDia_type) ,
intent(in) :: subset
2573 PURE module function getMatMulTrace_LFP_XLD_CK3(mat, pack, subset)
result(mulTrace)
2574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2575 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_CK3
2578 complex(CKG) :: mulTrace
2579 complex(CKG) ,
intent(in) :: mat(:)
2580 type(lfpack_type) ,
intent(in) :: pack
2581 type(lowDia_type) ,
intent(in) :: subset
2586 PURE module function getMatMulTrace_LFP_XLD_CK2(mat, pack, subset)
result(mulTrace)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_CK2
2591 complex(CKG) :: mulTrace
2592 complex(CKG) ,
intent(in) :: mat(:)
2593 type(lfpack_type) ,
intent(in) :: pack
2594 type(lowDia_type) ,
intent(in) :: subset
2599 PURE module function getMatMulTrace_LFP_XLD_CK1(mat, pack, subset)
result(mulTrace)
2600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2601 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_CK1
2604 complex(CKG) :: mulTrace
2605 complex(CKG) ,
intent(in) :: mat(:)
2606 type(lfpack_type) ,
intent(in) :: pack
2607 type(lowDia_type) ,
intent(in) :: subset
2614 PURE module function getMatMulTrace_LFP_XLD_RK5(mat, pack, subset)
result(mulTrace)
2615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2616 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_RK5
2619 real(RKG) :: mulTrace
2620 real(RKG) ,
intent(in) :: mat(:)
2621 type(lfpack_type) ,
intent(in) :: pack
2622 type(lowDia_type) ,
intent(in) :: subset
2627 PURE module function getMatMulTrace_LFP_XLD_RK4(mat, pack, subset)
result(mulTrace)
2628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2629 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_RK4
2632 real(RKG) :: mulTrace
2633 real(RKG) ,
intent(in) :: mat(:)
2634 type(lfpack_type) ,
intent(in) :: pack
2635 type(lowDia_type) ,
intent(in) :: subset
2640 PURE module function getMatMulTrace_LFP_XLD_RK3(mat, pack, subset)
result(mulTrace)
2641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2642 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_RK3
2645 real(RKG) :: mulTrace
2646 real(RKG) ,
intent(in) :: mat(:)
2647 type(lfpack_type) ,
intent(in) :: pack
2648 type(lowDia_type) ,
intent(in) :: subset
2653 PURE module function getMatMulTrace_LFP_XLD_RK2(mat, pack, subset)
result(mulTrace)
2654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2655 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_RK2
2658 real(RKG) :: mulTrace
2659 real(RKG) ,
intent(in) :: mat(:)
2660 type(lfpack_type) ,
intent(in) :: pack
2661 type(lowDia_type) ,
intent(in) :: subset
2666 PURE module function getMatMulTrace_LFP_XLD_RK1(mat, pack, subset)
result(mulTrace)
2667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2668 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTrace_LFP_XLD_RK1
2671 real(RKG) :: mulTrace
2672 real(RKG) ,
intent(in) :: mat(:)
2673 type(lfpack_type) ,
intent(in) :: pack
2674 type(lowDia_type) ,
intent(in) :: subset
2782 PURE module function getMatMulTraceLog_DEF_XXX_IK5(mat)
result(logMulTrace)
2783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2784 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_IK5
2787 integer(IKG) ,
intent(in) :: mat(:,:)
2788 real(RKD) :: logMulTrace
2793 PURE module function getMatMulTraceLog_DEF_XXX_IK4(mat)
result(logMulTrace)
2794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2795 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_IK4
2798 integer(IKG) ,
intent(in) :: mat(:,:)
2799 real(RKD) :: logMulTrace
2804 PURE module function getMatMulTraceLog_DEF_XXX_IK3(mat)
result(logMulTrace)
2805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2806 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_IK3
2809 integer(IKG) ,
intent(in) :: mat(:,:)
2810 real(RKD) :: logMulTrace
2815 PURE module function getMatMulTraceLog_DEF_XXX_IK2(mat)
result(logMulTrace)
2816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2817 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_IK2
2820 integer(IKG) ,
intent(in) :: mat(:,:)
2821 real(RKD) :: logMulTrace
2826 PURE module function getMatMulTraceLog_DEF_XXX_IK1(mat)
result(logMulTrace)
2827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2828 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_IK1
2831 integer(IKG) ,
intent(in) :: mat(:,:)
2832 real(RKD) :: logMulTrace
2839 PURE module function getMatMulTraceLog_DEF_XXX_CK5(mat)
result(logMulTrace)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_CK5
2844 complex(CKG) ,
intent(in) :: mat(:,:)
2845 complex(CKG) :: logMulTrace
2850 PURE module function getMatMulTraceLog_DEF_XXX_CK4(mat)
result(logMulTrace)
2851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2852 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_CK4
2855 complex(CKG) ,
intent(in) :: mat(:,:)
2856 complex(CKG) :: logMulTrace
2861 PURE module function getMatMulTraceLog_DEF_XXX_CK3(mat)
result(logMulTrace)
2862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2863 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_CK3
2866 complex(CKG) ,
intent(in) :: mat(:,:)
2867 complex(CKG) :: logMulTrace
2872 PURE module function getMatMulTraceLog_DEF_XXX_CK2(mat)
result(logMulTrace)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_CK2
2877 complex(CKG) ,
intent(in) :: mat(:,:)
2878 complex(CKG) :: logMulTrace
2883 PURE module function getMatMulTraceLog_DEF_XXX_CK1(mat)
result(logMulTrace)
2884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2885 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_CK1
2888 complex(CKG) ,
intent(in) :: mat(:,:)
2889 complex(CKG) :: logMulTrace
2896 PURE module function getMatMulTraceLog_DEF_XXX_RK5(mat)
result(logMulTrace)
2897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2898 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_RK5
2901 real(RKG) ,
intent(in) :: mat(:,:)
2902 real(RKG) :: logMulTrace
2907 PURE module function getMatMulTraceLog_DEF_XXX_RK4(mat)
result(logMulTrace)
2908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2909 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_RK4
2912 real(RKG) ,
intent(in) :: mat(:,:)
2913 real(RKG) :: logMulTrace
2918 PURE module function getMatMulTraceLog_DEF_XXX_RK3(mat)
result(logMulTrace)
2919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2920 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_RK3
2923 real(RKG) ,
intent(in) :: mat(:,:)
2924 real(RKG) :: logMulTrace
2929 PURE module function getMatMulTraceLog_DEF_XXX_RK2(mat)
result(logMulTrace)
2930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2931 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_RK2
2934 real(RKG) ,
intent(in) :: mat(:,:)
2935 real(RKG) :: logMulTrace
2940 PURE module function getMatMulTraceLog_DEF_XXX_RK1(mat)
result(logMulTrace)
2941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2942 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_DEF_XXX_RK1
2945 real(RKG) ,
intent(in) :: mat(:,:)
2946 real(RKG) :: logMulTrace
2963 PURE module function getMatMulTraceLog_RDP_XXX_IK5(mat, pack)
result(logMulTrace)
2964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2965 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_IK5
2968 integer(IKG) ,
intent(in) :: mat(:,:)
2969 type(rdpack_type) ,
intent(in) :: pack
2970 real(RKD) :: logMulTrace
2975 PURE module function getMatMulTraceLog_RDP_XXX_IK4(mat, pack)
result(logMulTrace)
2976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2977 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_IK4
2980 integer(IKG) ,
intent(in) :: mat(:,:)
2981 type(rdpack_type) ,
intent(in) :: pack
2982 real(RKD) :: logMulTrace
2987 PURE module function getMatMulTraceLog_RDP_XXX_IK3(mat, pack)
result(logMulTrace)
2988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2989 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_IK3
2992 integer(IKG) ,
intent(in) :: mat(:,:)
2993 type(rdpack_type) ,
intent(in) :: pack
2994 real(RKD) :: logMulTrace
2999 PURE module function getMatMulTraceLog_RDP_XXX_IK2(mat, pack)
result(logMulTrace)
3000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3001 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_IK2
3004 integer(IKG) ,
intent(in) :: mat(:,:)
3005 type(rdpack_type) ,
intent(in) :: pack
3006 real(RKD) :: logMulTrace
3011 PURE module function getMatMulTraceLog_RDP_XXX_IK1(mat, pack)
result(logMulTrace)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_IK1
3016 integer(IKG) ,
intent(in) :: mat(:,:)
3017 type(rdpack_type) ,
intent(in) :: pack
3018 real(RKD) :: logMulTrace
3025 PURE module function getMatMulTraceLog_RDP_XXX_CK5(mat, pack)
result(logMulTrace)
3026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3027 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_CK5
3030 complex(CKG) ,
intent(in) :: mat(:,:)
3031 type(rdpack_type) ,
intent(in) :: pack
3032 complex(CKG) :: logMulTrace
3037 PURE module function getMatMulTraceLog_RDP_XXX_CK4(mat, pack)
result(logMulTrace)
3038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3039 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_CK4
3042 complex(CKG) ,
intent(in) :: mat(:,:)
3043 type(rdpack_type) ,
intent(in) :: pack
3044 complex(CKG) :: logMulTrace
3049 PURE module function getMatMulTraceLog_RDP_XXX_CK3(mat, pack)
result(logMulTrace)
3050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3051 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_CK3
3054 complex(CKG) ,
intent(in) :: mat(:,:)
3055 type(rdpack_type) ,
intent(in) :: pack
3056 complex(CKG) :: logMulTrace
3061 PURE module function getMatMulTraceLog_RDP_XXX_CK2(mat, pack)
result(logMulTrace)
3062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3063 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_CK2
3066 complex(CKG) ,
intent(in) :: mat(:,:)
3067 type(rdpack_type) ,
intent(in) :: pack
3068 complex(CKG) :: logMulTrace
3073 PURE module function getMatMulTraceLog_RDP_XXX_CK1(mat, pack)
result(logMulTrace)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_CK1
3078 complex(CKG) ,
intent(in) :: mat(:,:)
3079 type(rdpack_type) ,
intent(in) :: pack
3080 complex(CKG) :: logMulTrace
3087 PURE module function getMatMulTraceLog_RDP_XXX_RK5(mat, pack)
result(logMulTrace)
3088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3089 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_RK5
3092 real(RKG) ,
intent(in) :: mat(:,:)
3093 real(RKG) :: logMulTrace
3094 type(rdpack_type) ,
intent(in) :: pack
3099 PURE module function getMatMulTraceLog_RDP_XXX_RK4(mat, pack)
result(logMulTrace)
3100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3101 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_RK4
3104 real(RKG) ,
intent(in) :: mat(:,:)
3105 type(rdpack_type) ,
intent(in) :: pack
3106 real(RKG) :: logMulTrace
3111 PURE module function getMatMulTraceLog_RDP_XXX_RK3(mat, pack)
result(logMulTrace)
3112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3113 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_RK3
3116 real(RKG) ,
intent(in) :: mat(:,:)
3117 type(rdpack_type) ,
intent(in) :: pack
3118 real(RKG) :: logMulTrace
3123 PURE module function getMatMulTraceLog_RDP_XXX_RK2(mat, pack)
result(logMulTrace)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_RK2
3128 real(RKG) ,
intent(in) :: mat(:,:)
3129 type(rdpack_type) ,
intent(in) :: pack
3130 real(RKG) :: logMulTrace
3135 PURE module function getMatMulTraceLog_RDP_XXX_RK1(mat, pack)
result(logMulTrace)
3136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3137 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RDP_XXX_RK1
3140 real(RKG) ,
intent(in) :: mat(:,:)
3141 type(rdpack_type) ,
intent(in) :: pack
3142 real(RKG) :: logMulTrace
3159 PURE module function getMatMulTraceLog_RFP_UXD_IK5(mat, pack, subset)
result(logMulTrace)
3160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3161 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_IK5
3164 real(RKD) :: logMulTrace
3165 integer(IKG) ,
intent(in) :: mat(:,:)
3166 type(rfpack_type) ,
intent(in) :: pack
3167 type(uppDia_type) ,
intent(in) :: subset
3172 PURE module function getMatMulTraceLog_RFP_UXD_IK4(mat, pack, subset)
result(logMulTrace)
3173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3174 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_IK4
3177 real(RKD) :: logMulTrace
3178 integer(IKG) ,
intent(in) :: mat(:,:)
3179 type(rfpack_type) ,
intent(in) :: pack
3180 type(uppDia_type) ,
intent(in) :: subset
3185 PURE module function getMatMulTraceLog_RFP_UXD_IK3(mat, pack, subset)
result(logMulTrace)
3186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3187 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_IK3
3190 real(RKD) :: logMulTrace
3191 integer(IKG) ,
intent(in) :: mat(:,:)
3192 type(rfpack_type) ,
intent(in) :: pack
3193 type(uppDia_type) ,
intent(in) :: subset
3198 PURE module function getMatMulTraceLog_RFP_UXD_IK2(mat, pack, subset)
result(logMulTrace)
3199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3200 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_IK2
3203 real(RKD) :: logMulTrace
3204 integer(IKG) ,
intent(in) :: mat(:,:)
3205 type(rfpack_type) ,
intent(in) :: pack
3206 type(uppDia_type) ,
intent(in) :: subset
3211 PURE module function getMatMulTraceLog_RFP_UXD_IK1(mat, pack, subset)
result(logMulTrace)
3212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3213 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_IK1
3216 real(RKD) :: logMulTrace
3217 integer(IKG) ,
intent(in) :: mat(:,:)
3218 type(rfpack_type) ,
intent(in) :: pack
3219 type(uppDia_type) ,
intent(in) :: subset
3226 PURE module function getMatMulTraceLog_RFP_UXD_CK5(mat, pack, subset)
result(logMulTrace)
3227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3228 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_CK5
3231 complex(CKG) :: logMulTrace
3232 complex(CKG) ,
intent(in) :: mat(:,:)
3233 type(rfpack_type) ,
intent(in) :: pack
3234 type(uppDia_type) ,
intent(in) :: subset
3239 PURE module function getMatMulTraceLog_RFP_UXD_CK4(mat, pack, subset)
result(logMulTrace)
3240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3241 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_CK4
3244 complex(CKG) :: logMulTrace
3245 complex(CKG) ,
intent(in) :: mat(:,:)
3246 type(rfpack_type) ,
intent(in) :: pack
3247 type(uppDia_type) ,
intent(in) :: subset
3252 PURE module function getMatMulTraceLog_RFP_UXD_CK3(mat, pack, subset)
result(logMulTrace)
3253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3254 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_CK3
3257 complex(CKG) :: logMulTrace
3258 complex(CKG) ,
intent(in) :: mat(:,:)
3259 type(rfpack_type) ,
intent(in) :: pack
3260 type(uppDia_type) ,
intent(in) :: subset
3265 PURE module function getMatMulTraceLog_RFP_UXD_CK2(mat, pack, subset)
result(logMulTrace)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_CK2
3270 complex(CKG) :: logMulTrace
3271 complex(CKG) ,
intent(in) :: mat(:,:)
3272 type(rfpack_type) ,
intent(in) :: pack
3273 type(uppDia_type) ,
intent(in) :: subset
3278 PURE module function getMatMulTraceLog_RFP_UXD_CK1(mat, pack, subset)
result(logMulTrace)
3279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3280 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_CK1
3283 complex(CKG) :: logMulTrace
3284 complex(CKG) ,
intent(in) :: mat(:,:)
3285 type(rfpack_type) ,
intent(in) :: pack
3286 type(uppDia_type) ,
intent(in) :: subset
3293 PURE module function getMatMulTraceLog_RFP_UXD_RK5(mat, pack, subset)
result(logMulTrace)
3294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3295 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_RK5
3298 real(RKG) :: logMulTrace
3299 real(RKG) ,
intent(in) :: mat(:,:)
3300 type(rfpack_type) ,
intent(in) :: pack
3301 type(uppDia_type) ,
intent(in) :: subset
3306 PURE module function getMatMulTraceLog_RFP_UXD_RK4(mat, pack, subset)
result(logMulTrace)
3307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3308 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_RK4
3311 real(RKG) :: logMulTrace
3312 real(RKG) ,
intent(in) :: mat(:,:)
3313 type(rfpack_type) ,
intent(in) :: pack
3314 type(uppDia_type) ,
intent(in) :: subset
3319 PURE module function getMatMulTraceLog_RFP_UXD_RK3(mat, pack, subset)
result(logMulTrace)
3320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3321 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_RK3
3324 real(RKG) :: logMulTrace
3325 real(RKG) ,
intent(in) :: mat(:,:)
3326 type(rfpack_type) ,
intent(in) :: pack
3327 type(uppDia_type) ,
intent(in) :: subset
3332 PURE module function getMatMulTraceLog_RFP_UXD_RK2(mat, pack, subset)
result(logMulTrace)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_RK2
3337 real(RKG) :: logMulTrace
3338 real(RKG) ,
intent(in) :: mat(:,:)
3339 type(rfpack_type) ,
intent(in) :: pack
3340 type(uppDia_type) ,
intent(in) :: subset
3345 PURE module function getMatMulTraceLog_RFP_UXD_RK1(mat, pack, subset)
result(logMulTrace)
3346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3347 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_UXD_RK1
3350 real(RKG) :: logMulTrace
3351 real(RKG) ,
intent(in) :: mat(:,:)
3352 type(rfpack_type) ,
intent(in) :: pack
3353 type(uppDia_type) ,
intent(in) :: subset
3366 PURE module function getMatMulTraceLog_RFP_XLD_IK5(mat, pack, subset)
result(logMulTrace)
3367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3368 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_IK5
3371 real(RKD) :: logMulTrace
3372 integer(IKG) ,
intent(in) :: mat(:,:)
3373 type(rfpack_type) ,
intent(in) :: pack
3374 type(lowDia_type) ,
intent(in) :: subset
3379 PURE module function getMatMulTraceLog_RFP_XLD_IK4(mat, pack, subset)
result(logMulTrace)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_IK4
3384 real(RKD) :: logMulTrace
3385 integer(IKG) ,
intent(in) :: mat(:,:)
3386 type(rfpack_type) ,
intent(in) :: pack
3387 type(lowDia_type) ,
intent(in) :: subset
3392 PURE module function getMatMulTraceLog_RFP_XLD_IK3(mat, pack, subset)
result(logMulTrace)
3393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3394 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_IK3
3397 real(RKD) :: logMulTrace
3398 integer(IKG) ,
intent(in) :: mat(:,:)
3399 type(rfpack_type) ,
intent(in) :: pack
3400 type(lowDia_type) ,
intent(in) :: subset
3405 PURE module function getMatMulTraceLog_RFP_XLD_IK2(mat, pack, subset)
result(logMulTrace)
3406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3407 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_IK2
3410 real(RKD) :: logMulTrace
3411 integer(IKG) ,
intent(in) :: mat(:,:)
3412 type(rfpack_type) ,
intent(in) :: pack
3413 type(lowDia_type) ,
intent(in) :: subset
3418 PURE module function getMatMulTraceLog_RFP_XLD_IK1(mat, pack, subset)
result(logMulTrace)
3419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3420 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_IK1
3423 real(RKD) :: logMulTrace
3424 integer(IKG) ,
intent(in) :: mat(:,:)
3425 type(rfpack_type) ,
intent(in) :: pack
3426 type(lowDia_type) ,
intent(in) :: subset
3433 PURE module function getMatMulTraceLog_RFP_XLD_CK5(mat, pack, subset)
result(logMulTrace)
3434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3435 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_CK5
3438 complex(CKG) :: logMulTrace
3439 complex(CKG) ,
intent(in) :: mat(:,:)
3440 type(rfpack_type) ,
intent(in) :: pack
3441 type(lowDia_type) ,
intent(in) :: subset
3446 PURE module function getMatMulTraceLog_RFP_XLD_CK4(mat, pack, subset)
result(logMulTrace)
3447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3448 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_CK4
3451 complex(CKG) :: logMulTrace
3452 complex(CKG) ,
intent(in) :: mat(:,:)
3453 type(rfpack_type) ,
intent(in) :: pack
3454 type(lowDia_type) ,
intent(in) :: subset
3459 PURE module function getMatMulTraceLog_RFP_XLD_CK3(mat, pack, subset)
result(logMulTrace)
3460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3461 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_CK3
3464 complex(CKG) :: logMulTrace
3465 complex(CKG) ,
intent(in) :: mat(:,:)
3466 type(rfpack_type) ,
intent(in) :: pack
3467 type(lowDia_type) ,
intent(in) :: subset
3472 PURE module function getMatMulTraceLog_RFP_XLD_CK2(mat, pack, subset)
result(logMulTrace)
3473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3474 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_CK2
3477 complex(CKG) :: logMulTrace
3478 complex(CKG) ,
intent(in) :: mat(:,:)
3479 type(rfpack_type) ,
intent(in) :: pack
3480 type(lowDia_type) ,
intent(in) :: subset
3485 PURE module function getMatMulTraceLog_RFP_XLD_CK1(mat, pack, subset)
result(logMulTrace)
3486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3487 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_CK1
3490 complex(CKG) :: logMulTrace
3491 complex(CKG) ,
intent(in) :: mat(:,:)
3492 type(rfpack_type) ,
intent(in) :: pack
3493 type(lowDia_type) ,
intent(in) :: subset
3500 PURE module function getMatMulTraceLog_RFP_XLD_RK5(mat, pack, subset)
result(logMulTrace)
3501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3502 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_RK5
3505 real(RKG) :: logMulTrace
3506 real(RKG) ,
intent(in) :: mat(:,:)
3507 type(rfpack_type) ,
intent(in) :: pack
3508 type(lowDia_type) ,
intent(in) :: subset
3513 PURE module function getMatMulTraceLog_RFP_XLD_RK4(mat, pack, subset)
result(logMulTrace)
3514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3515 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_RK4
3518 real(RKG) :: logMulTrace
3519 real(RKG) ,
intent(in) :: mat(:,:)
3520 type(rfpack_type) ,
intent(in) :: pack
3521 type(lowDia_type) ,
intent(in) :: subset
3526 PURE module function getMatMulTraceLog_RFP_XLD_RK3(mat, pack, subset)
result(logMulTrace)
3527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3528 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_RK3
3531 real(RKG) :: logMulTrace
3532 real(RKG) ,
intent(in) :: mat(:,:)
3533 type(rfpack_type) ,
intent(in) :: pack
3534 type(lowDia_type) ,
intent(in) :: subset
3539 PURE module function getMatMulTraceLog_RFP_XLD_RK2(mat, pack, subset)
result(logMulTrace)
3540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3541 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_RK2
3544 real(RKG) :: logMulTrace
3545 real(RKG) ,
intent(in) :: mat(:,:)
3546 type(rfpack_type) ,
intent(in) :: pack
3547 type(lowDia_type) ,
intent(in) :: subset
3552 PURE module function getMatMulTraceLog_RFP_XLD_RK1(mat, pack, subset)
result(logMulTrace)
3553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3554 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_RFP_XLD_RK1
3557 real(RKG) :: logMulTrace
3558 real(RKG) ,
intent(in) :: mat(:,:)
3559 type(rfpack_type) ,
intent(in) :: pack
3560 type(lowDia_type) ,
intent(in) :: subset
3577 PURE module function getMatMulTraceLog_LFP_UXD_IK5(mat, pack, subset)
result(logMulTrace)
3578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3579 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_IK5
3582 real(RKD) :: logMulTrace
3583 integer(IKG) ,
intent(in) :: mat(:)
3584 type(lfpack_type) ,
intent(in) :: pack
3585 type(uppDia_type) ,
intent(in) :: subset
3590 PURE module function getMatMulTraceLog_LFP_UXD_IK4(mat, pack, subset)
result(logMulTrace)
3591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3592 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_IK4
3595 real(RKD) :: logMulTrace
3596 integer(IKG) ,
intent(in) :: mat(:)
3597 type(lfpack_type) ,
intent(in) :: pack
3598 type(uppDia_type) ,
intent(in) :: subset
3603 PURE module function getMatMulTraceLog_LFP_UXD_IK3(mat, pack, subset)
result(logMulTrace)
3604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3605 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_IK3
3608 real(RKD) :: logMulTrace
3609 integer(IKG) ,
intent(in) :: mat(:)
3610 type(lfpack_type) ,
intent(in) :: pack
3611 type(uppDia_type) ,
intent(in) :: subset
3616 PURE module function getMatMulTraceLog_LFP_UXD_IK2(mat, pack, subset)
result(logMulTrace)
3617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3618 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_IK2
3621 real(RKD) :: logMulTrace
3622 integer(IKG) ,
intent(in) :: mat(:)
3623 type(lfpack_type) ,
intent(in) :: pack
3624 type(uppDia_type) ,
intent(in) :: subset
3629 PURE module function getMatMulTraceLog_LFP_UXD_IK1(mat, pack, subset)
result(logMulTrace)
3630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3631 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_IK1
3634 real(RKD) :: logMulTrace
3635 integer(IKG) ,
intent(in) :: mat(:)
3636 type(lfpack_type) ,
intent(in) :: pack
3637 type(uppDia_type) ,
intent(in) :: subset
3644 PURE module function getMatMulTraceLog_LFP_UXD_CK5(mat, pack, subset)
result(logMulTrace)
3645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3646 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_CK5
3649 complex(CKG) :: logMulTrace
3650 complex(CKG) ,
intent(in) :: mat(:)
3651 type(lfpack_type) ,
intent(in) :: pack
3652 type(uppDia_type) ,
intent(in) :: subset
3657 PURE module function getMatMulTraceLog_LFP_UXD_CK4(mat, pack, subset)
result(logMulTrace)
3658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3659 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_CK4
3662 complex(CKG) :: logMulTrace
3663 complex(CKG) ,
intent(in) :: mat(:)
3664 type(lfpack_type) ,
intent(in) :: pack
3665 type(uppDia_type) ,
intent(in) :: subset
3670 PURE module function getMatMulTraceLog_LFP_UXD_CK3(mat, pack, subset)
result(logMulTrace)
3671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3672 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_CK3
3675 complex(CKG) :: logMulTrace
3676 complex(CKG) ,
intent(in) :: mat(:)
3677 type(lfpack_type) ,
intent(in) :: pack
3678 type(uppDia_type) ,
intent(in) :: subset
3683 PURE module function getMatMulTraceLog_LFP_UXD_CK2(mat, pack, subset)
result(logMulTrace)
3684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3685 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_CK2
3688 complex(CKG) :: logMulTrace
3689 complex(CKG) ,
intent(in) :: mat(:)
3690 type(lfpack_type) ,
intent(in) :: pack
3691 type(uppDia_type) ,
intent(in) :: subset
3696 PURE module function getMatMulTraceLog_LFP_UXD_CK1(mat, pack, subset)
result(logMulTrace)
3697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3698 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_CK1
3701 complex(CKG) :: logMulTrace
3702 complex(CKG) ,
intent(in) :: mat(:)
3703 type(lfpack_type) ,
intent(in) :: pack
3704 type(uppDia_type) ,
intent(in) :: subset
3711 PURE module function getMatMulTraceLog_LFP_UXD_RK5(mat, pack, subset)
result(logMulTrace)
3712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3713 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_RK5
3716 real(RKG) :: logMulTrace
3717 real(RKG) ,
intent(in) :: mat(:)
3718 type(lfpack_type) ,
intent(in) :: pack
3719 type(uppDia_type) ,
intent(in) :: subset
3724 PURE module function getMatMulTraceLog_LFP_UXD_RK4(mat, pack, subset)
result(logMulTrace)
3725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3726 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_RK4
3729 real(RKG) :: logMulTrace
3730 real(RKG) ,
intent(in) :: mat(:)
3731 type(lfpack_type) ,
intent(in) :: pack
3732 type(uppDia_type) ,
intent(in) :: subset
3737 PURE module function getMatMulTraceLog_LFP_UXD_RK3(mat, pack, subset)
result(logMulTrace)
3738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3739 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_RK3
3742 real(RKG) :: logMulTrace
3743 real(RKG) ,
intent(in) :: mat(:)
3744 type(lfpack_type) ,
intent(in) :: pack
3745 type(uppDia_type) ,
intent(in) :: subset
3750 PURE module function getMatMulTraceLog_LFP_UXD_RK2(mat, pack, subset)
result(logMulTrace)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_RK2
3755 real(RKG) :: logMulTrace
3756 real(RKG) ,
intent(in) :: mat(:)
3757 type(lfpack_type) ,
intent(in) :: pack
3758 type(uppDia_type) ,
intent(in) :: subset
3763 PURE module function getMatMulTraceLog_LFP_UXD_RK1(mat, pack, subset)
result(logMulTrace)
3764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3765 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_UXD_RK1
3768 real(RKG) :: logMulTrace
3769 real(RKG) ,
intent(in) :: mat(:)
3770 type(lfpack_type) ,
intent(in) :: pack
3771 type(uppDia_type) ,
intent(in) :: subset
3784 PURE module function getMatMulTraceLog_LFP_XLD_IK5(mat, pack, subset)
result(logMulTrace)
3785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3786 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_IK5
3789 real(RKD) :: logMulTrace
3790 integer(IKG) ,
intent(in) :: mat(:)
3791 type(lfpack_type) ,
intent(in) :: pack
3792 type(lowDia_type) ,
intent(in) :: subset
3797 PURE module function getMatMulTraceLog_LFP_XLD_IK4(mat, pack, subset)
result(logMulTrace)
3798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3799 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_IK4
3802 real(RKD) :: logMulTrace
3803 integer(IKG) ,
intent(in) :: mat(:)
3804 type(lfpack_type) ,
intent(in) :: pack
3805 type(lowDia_type) ,
intent(in) :: subset
3810 PURE module function getMatMulTraceLog_LFP_XLD_IK3(mat, pack, subset)
result(logMulTrace)
3811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3812 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_IK3
3815 real(RKD) :: logMulTrace
3816 integer(IKG) ,
intent(in) :: mat(:)
3817 type(lfpack_type) ,
intent(in) :: pack
3818 type(lowDia_type) ,
intent(in) :: subset
3823 PURE module function getMatMulTraceLog_LFP_XLD_IK2(mat, pack, subset)
result(logMulTrace)
3824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3825 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_IK2
3828 real(RKD) :: logMulTrace
3829 integer(IKG) ,
intent(in) :: mat(:)
3830 type(lfpack_type) ,
intent(in) :: pack
3831 type(lowDia_type) ,
intent(in) :: subset
3836 PURE module function getMatMulTraceLog_LFP_XLD_IK1(mat, pack, subset)
result(logMulTrace)
3837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3838 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_IK1
3841 real(RKD) :: logMulTrace
3842 integer(IKG) ,
intent(in) :: mat(:)
3843 type(lfpack_type) ,
intent(in) :: pack
3844 type(lowDia_type) ,
intent(in) :: subset
3851 PURE module function getMatMulTraceLog_LFP_XLD_CK5(mat, pack, subset)
result(logMulTrace)
3852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3853 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_CK5
3856 complex(CKG) :: logMulTrace
3857 complex(CKG) ,
intent(in) :: mat(:)
3858 type(lfpack_type) ,
intent(in) :: pack
3859 type(lowDia_type) ,
intent(in) :: subset
3864 PURE module function getMatMulTraceLog_LFP_XLD_CK4(mat, pack, subset)
result(logMulTrace)
3865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3866 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_CK4
3869 complex(CKG) :: logMulTrace
3870 complex(CKG) ,
intent(in) :: mat(:)
3871 type(lfpack_type) ,
intent(in) :: pack
3872 type(lowDia_type) ,
intent(in) :: subset
3877 PURE module function getMatMulTraceLog_LFP_XLD_CK3(mat, pack, subset)
result(logMulTrace)
3878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3879 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_CK3
3882 complex(CKG) :: logMulTrace
3883 complex(CKG) ,
intent(in) :: mat(:)
3884 type(lfpack_type) ,
intent(in) :: pack
3885 type(lowDia_type) ,
intent(in) :: subset
3890 PURE module function getMatMulTraceLog_LFP_XLD_CK2(mat, pack, subset)
result(logMulTrace)
3891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3892 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_CK2
3895 complex(CKG) :: logMulTrace
3896 complex(CKG) ,
intent(in) :: mat(:)
3897 type(lfpack_type) ,
intent(in) :: pack
3898 type(lowDia_type) ,
intent(in) :: subset
3903 PURE module function getMatMulTraceLog_LFP_XLD_CK1(mat, pack, subset)
result(logMulTrace)
3904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3905 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_CK1
3908 complex(CKG) :: logMulTrace
3909 complex(CKG) ,
intent(in) :: mat(:)
3910 type(lfpack_type) ,
intent(in) :: pack
3911 type(lowDia_type) ,
intent(in) :: subset
3918 PURE module function getMatMulTraceLog_LFP_XLD_RK5(mat, pack, subset)
result(logMulTrace)
3919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3920 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_RK5
3923 real(RKG) :: logMulTrace
3924 real(RKG) ,
intent(in) :: mat(:)
3925 type(lfpack_type) ,
intent(in) :: pack
3926 type(lowDia_type) ,
intent(in) :: subset
3931 PURE module function getMatMulTraceLog_LFP_XLD_RK4(mat, pack, subset)
result(logMulTrace)
3932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3933 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_RK4
3936 real(RKG) :: logMulTrace
3937 real(RKG) ,
intent(in) :: mat(:)
3938 type(lfpack_type) ,
intent(in) :: pack
3939 type(lowDia_type) ,
intent(in) :: subset
3944 PURE module function getMatMulTraceLog_LFP_XLD_RK3(mat, pack, subset)
result(logMulTrace)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_RK3
3949 real(RKG) :: logMulTrace
3950 real(RKG) ,
intent(in) :: mat(:)
3951 type(lfpack_type) ,
intent(in) :: pack
3952 type(lowDia_type) ,
intent(in) :: subset
3957 PURE module function getMatMulTraceLog_LFP_XLD_RK2(mat, pack, subset)
result(logMulTrace)
3958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3959 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_RK2
3962 real(RKG) :: logMulTrace
3963 real(RKG) ,
intent(in) :: mat(:)
3964 type(lfpack_type) ,
intent(in) :: pack
3965 type(lowDia_type) ,
intent(in) :: subset
3970 PURE module function getMatMulTraceLog_LFP_XLD_RK1(mat, pack, subset)
result(logMulTrace)
3971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3972 !DEC$ ATTRIBUTES DLLEXPORT :: getMatMulTraceLog_LFP_XLD_RK1
3975 real(RKG) :: logMulTrace
3976 real(RKG) ,
intent(in) :: mat(:)
3977 type(lfpack_type) ,
intent(in) :: pack
3978 type(lowDia_type) ,
intent(in) :: subset
3996end module pm_matrixTrace
Generate and return the natural logarithm of the multiplicative trace of an input square matrix of ty...
Generate and return the multiplicative trace of an input square matrix of type integer,...
Generate and return the trace of an input square matrix of type integer, complex, or real of arbitrar...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
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...
character(*, SK), parameter MODULE_NAME
type(rdpack_type), parameter rdpack
This is an object instance of class rdpack_type that is exclusively used to signify Rectangular Spars...
type(lfpack_type), parameter lfpack
This is an object instance of class lfpack_type that is exclusively used to signify Linear Full conti...
type(rfpack_type), parameter rfpack
This is an object instance of class rfpack_type that is exclusively used to signify Rectangular Full ...
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 procedures and generic interfaces for computing the additive or multiplicative t...
This is a concrete derived type whose instances are exclusively used to signify Linear Full contiguou...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Sparse (o...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Full cont...
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...