230 PURE module function getAffinity_D1_RK5(sample, tform, class, tlate)
result(affinity)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D1_RK5
235 class(
*) ,
intent(in) ,
optional :: class
236 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
237 real(RKG) ,
intent(in),
contiguous :: sample(:)
238 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
239 real(RKG) :: affinity(
size(sample,
1, IK))
244 PURE module function getAffinity_D1_RK4(sample, tform, class, tlate)
result(affinity)
245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
246 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D1_RK4
249 class(
*) ,
intent(in) ,
optional :: class
250 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
251 real(RKG) ,
intent(in),
contiguous :: sample(:)
252 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
253 real(RKG) :: affinity(
size(sample,
1, IK))
258 PURE module function getAffinity_D1_RK3(sample, tform, class, tlate)
result(affinity)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D1_RK3
263 class(
*) ,
intent(in) ,
optional :: class
264 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
265 real(RKG) ,
intent(in),
contiguous :: sample(:)
266 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
267 real(RKG) :: affinity(
size(sample,
1, IK))
272 PURE module function getAffinity_D1_RK2(sample, tform, class, tlate)
result(affinity)
273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
274 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D1_RK2
277 class(
*) ,
intent(in) ,
optional :: class
278 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
279 real(RKG) ,
intent(in),
contiguous :: sample(:)
280 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
281 real(RKG) :: affinity(
size(sample,
1, IK))
286 PURE module function getAffinity_D1_RK1(sample, tform, class, tlate)
result(affinity)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D1_RK1
291 class(
*) ,
intent(in) ,
optional :: class
292 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
293 real(RKG) ,
intent(in),
contiguous :: sample(:)
294 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
295 real(RKG) :: affinity(
size(sample,
1, IK))
302 PURE module function getAffinity_D2_RK5(sample, dim, tform, class, tlate)
result(affinity)
303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
304 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D2_RK5
307 integer(IK) ,
intent(in) :: dim
308 class(
*) ,
intent(in) ,
optional :: class
309 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
310 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
311 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
312 real(RKG) :: affinity(
size(sample,
1, IK),
size(sample,
2, IK))
317 PURE module function getAffinity_D2_RK4(sample, dim, tform, class, tlate)
result(affinity)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D2_RK4
322 integer(IK) ,
intent(in) :: dim
323 class(
*) ,
intent(in) ,
optional :: class
324 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
325 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
326 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
327 real(RKG) :: affinity(
size(sample,
1, IK),
size(sample,
2, IK))
332 PURE module function getAffinity_D2_RK3(sample, dim, tform, class, tlate)
result(affinity)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D2_RK3
337 integer(IK) ,
intent(in) :: dim
338 class(
*) ,
intent(in) ,
optional :: class
339 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
340 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
341 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
342 real(RKG) :: affinity(
size(sample,
1, IK),
size(sample,
2, IK))
347 PURE module function getAffinity_D2_RK2(sample, dim, tform, class, tlate)
result(affinity)
348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
349 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D2_RK2
352 integer(IK) ,
intent(in) :: dim
353 class(
*) ,
intent(in) ,
optional :: class
354 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
355 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
356 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
357 real(RKG) :: affinity(
size(sample,
1, IK),
size(sample,
2, IK))
362 PURE module function getAffinity_D2_RK1(sample, dim, tform, class, tlate)
result(affinity)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: getAffinity_D2_RK1
367 integer(IK) ,
intent(in) :: dim
368 class(
*) ,
intent(in) ,
optional :: class
369 real(RKG) ,
intent(in),
contiguous,
optional :: tlate(:)
370 real(RKG) ,
intent(in),
contiguous :: tform(:,:)
371 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
372 real(RKG) :: affinity(
size(sample,
1, IK),
size(sample,
2, IK))
507 PURE module subroutine setAffinity_CGR_ATL_D1_RK5(affinity, sample, tform, class, tlate)
508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
509 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D1_RK5
512 type(genrecmat_type) ,
intent(in) :: class
513 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
514 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
515 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
516 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
521 PURE module subroutine setAffinity_CGR_ATL_D1_RK4(affinity, sample, tform, class, tlate)
522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
523 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D1_RK4
526 type(genrecmat_type) ,
intent(in) :: class
527 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
528 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
529 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
530 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
535 PURE module subroutine setAffinity_CGR_ATL_D1_RK3(affinity, sample, tform, class, tlate)
536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
537 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D1_RK3
540 type(genrecmat_type) ,
intent(in) :: class
541 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
542 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
543 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
544 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
549 PURE module subroutine setAffinity_CGR_ATL_D1_RK2(affinity, sample, tform, class, tlate)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D1_RK2
554 type(genrecmat_type) ,
intent(in) :: class
555 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
556 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
557 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
558 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
563 PURE module subroutine setAffinity_CGR_ATL_D1_RK1(affinity, sample, tform, class, tlate)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D1_RK1
568 type(genrecmat_type) ,
intent(in) :: class
569 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
570 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
571 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
572 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
579 PURE module subroutine setAffinity_CGR_ATL_D2_RK5(affinity, sample, dim, tform, class, tlate)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D2_RK5
584 integer(IK) ,
intent(in) :: dim
585 type(genrecmat_type) ,
intent(in) :: class
586 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
587 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
588 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
589 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
594 PURE module subroutine setAffinity_CGR_ATL_D2_RK4(affinity, sample, dim, tform, class, tlate)
595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
596 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D2_RK4
599 integer(IK) ,
intent(in) :: dim
600 type(genrecmat_type) ,
intent(in) :: class
601 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
602 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
603 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
604 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
609 PURE module subroutine setAffinity_CGR_ATL_D2_RK3(affinity, sample, dim, tform, class, tlate)
610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
611 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D2_RK3
614 integer(IK) ,
intent(in) :: dim
615 type(genrecmat_type) ,
intent(in) :: class
616 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
617 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
618 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
619 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
624 PURE module subroutine setAffinity_CGR_ATL_D2_RK2(affinity, sample, dim, tform, class, tlate)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D2_RK2
629 integer(IK) ,
intent(in) :: dim
630 type(genrecmat_type) ,
intent(in) :: class
631 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
632 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
633 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
634 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
639 PURE module subroutine setAffinity_CGR_ATL_D2_RK1(affinity, sample, dim, tform, class, tlate)
640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
641 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_ATL_D2_RK1
644 integer(IK) ,
intent(in) :: dim
645 type(genrecmat_type) ,
intent(in) :: class
646 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
647 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
648 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
649 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
664 PURE module subroutine setAffinity_CUD_ATL_D1_RK5(affinity, sample, tform, class, tlate)
665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
666 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D1_RK5
669 type(upperDiag_type) ,
intent(in) :: class
670 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
671 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
672 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
673 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
678 PURE module subroutine setAffinity_CUD_ATL_D1_RK4(affinity, sample, tform, class, tlate)
679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
680 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D1_RK4
683 type(upperDiag_type) ,
intent(in) :: class
684 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
685 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
686 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
687 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
692 PURE module subroutine setAffinity_CUD_ATL_D1_RK3(affinity, sample, tform, class, tlate)
693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
694 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D1_RK3
697 type(upperDiag_type) ,
intent(in) :: class
698 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
699 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
700 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
701 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
706 PURE module subroutine setAffinity_CUD_ATL_D1_RK2(affinity, sample, tform, class, tlate)
707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
708 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D1_RK2
711 type(upperDiag_type) ,
intent(in) :: class
712 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
713 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
714 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
715 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
720 PURE module subroutine setAffinity_CUD_ATL_D1_RK1(affinity, sample, tform, class, tlate)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D1_RK1
725 type(upperDiag_type) ,
intent(in) :: class
726 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
727 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
728 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
729 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
736 PURE module subroutine setAffinity_CUD_ATL_D2_RK5(affinity, sample, dim, tform, class, tlate)
737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
738 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D2_RK5
741 integer(IK) ,
intent(in) :: dim
742 type(upperDiag_type) ,
intent(in) :: class
743 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
744 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
745 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
746 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
751 PURE module subroutine setAffinity_CUD_ATL_D2_RK4(affinity, sample, dim, tform, class, tlate)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D2_RK4
756 integer(IK) ,
intent(in) :: dim
757 type(upperDiag_type) ,
intent(in) :: class
758 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
759 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
760 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
761 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
766 PURE module subroutine setAffinity_CUD_ATL_D2_RK3(affinity, sample, dim, tform, class, tlate)
767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
768 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D2_RK3
771 integer(IK) ,
intent(in) :: dim
772 type(upperDiag_type) ,
intent(in) :: class
773 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
774 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
775 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
776 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
781 PURE module subroutine setAffinity_CUD_ATL_D2_RK2(affinity, sample, dim, tform, class, tlate)
782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
783 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D2_RK2
786 integer(IK) ,
intent(in) :: dim
787 type(upperDiag_type) ,
intent(in) :: class
788 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
789 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
790 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
791 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
796 PURE module subroutine setAffinity_CUD_ATL_D2_RK1(affinity, sample, dim, tform, class, tlate)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_ATL_D2_RK1
801 integer(IK) ,
intent(in) :: dim
802 type(upperDiag_type) ,
intent(in) :: class
803 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
804 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
805 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
806 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
821 PURE module subroutine setAffinity_CLD_ATL_D1_RK5(affinity, sample, tform, class, tlate)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D1_RK5
826 type(lowerDiag_type) ,
intent(in) :: class
827 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
828 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
829 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
830 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
835 PURE module subroutine setAffinity_CLD_ATL_D1_RK4(affinity, sample, tform, class, tlate)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D1_RK4
840 type(lowerDiag_type) ,
intent(in) :: class
841 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
842 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
843 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
844 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
849 PURE module subroutine setAffinity_CLD_ATL_D1_RK3(affinity, sample, tform, class, tlate)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D1_RK3
854 type(lowerDiag_type) ,
intent(in) :: class
855 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
856 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
857 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
858 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
863 PURE module subroutine setAffinity_CLD_ATL_D1_RK2(affinity, sample, tform, class, tlate)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D1_RK2
868 type(lowerDiag_type) ,
intent(in) :: class
869 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
870 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
871 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
872 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
877 PURE module subroutine setAffinity_CLD_ATL_D1_RK1(affinity, sample, tform, class, tlate)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D1_RK1
882 type(lowerDiag_type) ,
intent(in) :: class
883 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
884 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
885 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
886 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
893 PURE module subroutine setAffinity_CLD_ATL_D2_RK5(affinity, sample, dim, tform, class, tlate)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D2_RK5
898 integer(IK) ,
intent(in) :: dim
899 type(lowerDiag_type) ,
intent(in) :: class
900 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
901 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
902 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
903 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
908 PURE module subroutine setAffinity_CLD_ATL_D2_RK4(affinity, sample, dim, tform, class, tlate)
909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
910 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D2_RK4
913 integer(IK) ,
intent(in) :: dim
914 type(lowerDiag_type) ,
intent(in) :: class
915 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
916 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
917 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
918 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
923 PURE module subroutine setAffinity_CLD_ATL_D2_RK3(affinity, sample, dim, tform, class, tlate)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D2_RK3
928 integer(IK) ,
intent(in) :: dim
929 type(lowerDiag_type) ,
intent(in) :: class
930 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
931 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
932 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
933 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
938 PURE module subroutine setAffinity_CLD_ATL_D2_RK2(affinity, sample, dim, tform, class, tlate)
939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
940 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D2_RK2
943 integer(IK) ,
intent(in) :: dim
944 type(lowerDiag_type) ,
intent(in) :: class
945 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
946 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
947 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
948 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
953 PURE module subroutine setAffinity_CLD_ATL_D2_RK1(affinity, sample, dim, tform, class, tlate)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_ATL_D2_RK1
958 integer(IK) ,
intent(in) :: dim
959 type(lowerDiag_type) ,
intent(in) :: class
960 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
961 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
962 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
963 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
978 PURE module subroutine setAffinity_CUU_ATL_D1_RK5(affinity, sample, tform, class, tlate)
979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
980 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D1_RK5
983 type(upperUnit_type) ,
intent(in) :: class
984 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
985 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
986 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
987 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
992 PURE module subroutine setAffinity_CUU_ATL_D1_RK4(affinity, sample, tform, class, tlate)
993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
994 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D1_RK4
997 type(upperUnit_type) ,
intent(in) :: class
998 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
999 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1000 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1001 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1006 PURE module subroutine setAffinity_CUU_ATL_D1_RK3(affinity, sample, tform, class, tlate)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D1_RK3
1011 type(upperUnit_type) ,
intent(in) :: class
1012 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1013 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1014 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1015 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1020 PURE module subroutine setAffinity_CUU_ATL_D1_RK2(affinity, sample, tform, class, tlate)
1021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1022 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D1_RK2
1025 type(upperUnit_type) ,
intent(in) :: class
1026 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1027 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1028 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1029 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1034 PURE module subroutine setAffinity_CUU_ATL_D1_RK1(affinity, sample, tform, class, tlate)
1035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1036 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D1_RK1
1039 type(upperUnit_type) ,
intent(in) :: class
1040 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1041 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1042 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1043 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1050 PURE module subroutine setAffinity_CUU_ATL_D2_RK5(affinity, sample, dim, tform, class, tlate)
1051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1052 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D2_RK5
1055 integer(IK) ,
intent(in) :: dim
1056 type(upperUnit_type) ,
intent(in) :: class
1057 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1058 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1059 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1060 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1065 PURE module subroutine setAffinity_CUU_ATL_D2_RK4(affinity, sample, dim, tform, class, tlate)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D2_RK4
1070 integer(IK) ,
intent(in) :: dim
1071 type(upperUnit_type) ,
intent(in) :: class
1072 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1073 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1074 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1075 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1080 PURE module subroutine setAffinity_CUU_ATL_D2_RK3(affinity, sample, dim, tform, class, tlate)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D2_RK3
1085 integer(IK) ,
intent(in) :: dim
1086 type(upperUnit_type) ,
intent(in) :: class
1087 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1088 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1089 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1090 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1095 PURE module subroutine setAffinity_CUU_ATL_D2_RK2(affinity, sample, dim, tform, class, tlate)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D2_RK2
1100 integer(IK) ,
intent(in) :: dim
1101 type(upperUnit_type) ,
intent(in) :: class
1102 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1103 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1104 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1105 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1110 PURE module subroutine setAffinity_CUU_ATL_D2_RK1(affinity, sample, dim, tform, class, tlate)
1111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1112 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_ATL_D2_RK1
1115 integer(IK) ,
intent(in) :: dim
1116 type(upperUnit_type) ,
intent(in) :: class
1117 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1118 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1119 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1120 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1135 PURE module subroutine setAffinity_CLU_ATL_D1_RK5(affinity, sample, tform, class, tlate)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D1_RK5
1140 type(lowerUnit_type) ,
intent(in) :: class
1141 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1142 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1143 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1144 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1149 PURE module subroutine setAffinity_CLU_ATL_D1_RK4(affinity, sample, tform, class, tlate)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D1_RK4
1154 type(lowerUnit_type) ,
intent(in) :: class
1155 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1156 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1157 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1158 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1163 PURE module subroutine setAffinity_CLU_ATL_D1_RK3(affinity, sample, tform, class, tlate)
1164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1165 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D1_RK3
1168 type(lowerUnit_type) ,
intent(in) :: class
1169 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1170 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1171 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1172 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1177 PURE module subroutine setAffinity_CLU_ATL_D1_RK2(affinity, sample, tform, class, tlate)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D1_RK2
1182 type(lowerUnit_type) ,
intent(in) :: class
1183 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1184 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1185 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1186 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1191 PURE module subroutine setAffinity_CLU_ATL_D1_RK1(affinity, sample, tform, class, tlate)
1192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1193 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D1_RK1
1196 type(lowerUnit_type) ,
intent(in) :: class
1197 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1198 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1199 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1200 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1207 PURE module subroutine setAffinity_CLU_ATL_D2_RK5(affinity, sample, dim, tform, class, tlate)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D2_RK5
1212 integer(IK) ,
intent(in) :: dim
1213 type(lowerUnit_type) ,
intent(in) :: class
1214 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1215 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1216 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1217 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1222 PURE module subroutine setAffinity_CLU_ATL_D2_RK4(affinity, sample, dim, tform, class, tlate)
1223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1224 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D2_RK4
1227 integer(IK) ,
intent(in) :: dim
1228 type(lowerUnit_type) ,
intent(in) :: class
1229 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1230 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1231 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1232 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1237 PURE module subroutine setAffinity_CLU_ATL_D2_RK3(affinity, sample, dim, tform, class, tlate)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D2_RK3
1242 integer(IK) ,
intent(in) :: dim
1243 type(lowerUnit_type) ,
intent(in) :: class
1244 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1245 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1246 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1247 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1252 PURE module subroutine setAffinity_CLU_ATL_D2_RK2(affinity, sample, dim, tform, class, tlate)
1253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1254 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D2_RK2
1257 integer(IK) ,
intent(in) :: dim
1258 type(lowerUnit_type) ,
intent(in) :: class
1259 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1260 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1261 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1262 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1267 PURE module subroutine setAffinity_CLU_ATL_D2_RK1(affinity, sample, dim, tform, class, tlate)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_ATL_D2_RK1
1272 integer(IK) ,
intent(in) :: dim
1273 type(lowerUnit_type) ,
intent(in) :: class
1274 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1275 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1276 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1277 real(RKG) ,
intent(in) ,
contiguous :: tlate(:)
1292 PURE module subroutine setAffinity_CGR_DTL_D1_RK5(affinity, sample, tform, class)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D1_RK5
1297 type(genrecmat_type) ,
intent(in) :: class
1298 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1299 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1300 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1305 PURE module subroutine setAffinity_CGR_DTL_D1_RK4(affinity, sample, tform, class)
1306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1307 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D1_RK4
1310 type(genrecmat_type) ,
intent(in) :: class
1311 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1312 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1313 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1318 PURE module subroutine setAffinity_CGR_DTL_D1_RK3(affinity, sample, tform, class)
1319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1320 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D1_RK3
1323 type(genrecmat_type) ,
intent(in) :: class
1324 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1325 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1326 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1331 PURE module subroutine setAffinity_CGR_DTL_D1_RK2(affinity, sample, tform, class)
1332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1333 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D1_RK2
1336 type(genrecmat_type) ,
intent(in) :: class
1337 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1338 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1339 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1344 PURE module subroutine setAffinity_CGR_DTL_D1_RK1(affinity, sample, tform, class)
1345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1346 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D1_RK1
1349 type(genrecmat_type) ,
intent(in) :: class
1350 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1351 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1352 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1359 PURE module subroutine setAffinity_CGR_DTL_D2_RK5(affinity, sample, dim, tform, class)
1360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1361 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D2_RK5
1364 integer(IK) ,
intent(in) :: dim
1365 type(genrecmat_type) ,
intent(in) :: class
1366 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1367 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1368 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1373 PURE module subroutine setAffinity_CGR_DTL_D2_RK4(affinity, sample, dim, tform, class)
1374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1375 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D2_RK4
1378 integer(IK) ,
intent(in) :: dim
1379 type(genrecmat_type) ,
intent(in) :: class
1380 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1381 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1382 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1387 PURE module subroutine setAffinity_CGR_DTL_D2_RK3(affinity, sample, dim, tform, class)
1388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1389 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D2_RK3
1392 integer(IK) ,
intent(in) :: dim
1393 type(genrecmat_type) ,
intent(in) :: class
1394 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1395 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1396 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1401 PURE module subroutine setAffinity_CGR_DTL_D2_RK2(affinity, sample, dim, tform, class)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D2_RK2
1406 integer(IK) ,
intent(in) :: dim
1407 type(genrecmat_type) ,
intent(in) :: class
1408 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1409 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1410 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1415 PURE module subroutine setAffinity_CGR_DTL_D2_RK1(affinity, sample, dim, tform, class)
1416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1417 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CGR_DTL_D2_RK1
1420 integer(IK) ,
intent(in) :: dim
1421 type(genrecmat_type) ,
intent(in) :: class
1422 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1423 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1424 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1439 PURE module subroutine setAffinity_CUD_DTL_D1_RK5(affinity, sample, tform, class)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D1_RK5
1444 type(upperDiag_type) ,
intent(in) :: class
1445 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1446 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1447 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1452 PURE module subroutine setAffinity_CUD_DTL_D1_RK4(affinity, sample, tform, class)
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D1_RK4
1457 type(upperDiag_type) ,
intent(in) :: class
1458 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1459 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1460 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1465 PURE module subroutine setAffinity_CUD_DTL_D1_RK3(affinity, sample, tform, class)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D1_RK3
1470 type(upperDiag_type) ,
intent(in) :: class
1471 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1472 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1473 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1478 PURE module subroutine setAffinity_CUD_DTL_D1_RK2(affinity, sample, tform, class)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D1_RK2
1483 type(upperDiag_type) ,
intent(in) :: class
1484 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1485 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1486 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1491 PURE module subroutine setAffinity_CUD_DTL_D1_RK1(affinity, sample, tform, class)
1492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1493 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D1_RK1
1496 type(upperDiag_type) ,
intent(in) :: class
1497 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1498 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1499 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1506 PURE module subroutine setAffinity_CUD_DTL_D2_RK5(affinity, sample, dim, tform, class)
1507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1508 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D2_RK5
1511 integer(IK) ,
intent(in) :: dim
1512 type(upperDiag_type) ,
intent(in) :: class
1513 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1514 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1515 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1520 PURE module subroutine setAffinity_CUD_DTL_D2_RK4(affinity, sample, dim, tform, class)
1521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1522 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D2_RK4
1525 integer(IK) ,
intent(in) :: dim
1526 type(upperDiag_type) ,
intent(in) :: class
1527 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1528 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1529 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1534 PURE module subroutine setAffinity_CUD_DTL_D2_RK3(affinity, sample, dim, tform, class)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D2_RK3
1539 integer(IK) ,
intent(in) :: dim
1540 type(upperDiag_type) ,
intent(in) :: class
1541 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1542 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1543 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1548 PURE module subroutine setAffinity_CUD_DTL_D2_RK2(affinity, sample, dim, tform, class)
1549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1550 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D2_RK2
1553 integer(IK) ,
intent(in) :: dim
1554 type(upperDiag_type) ,
intent(in) :: class
1555 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1556 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1557 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1562 PURE module subroutine setAffinity_CUD_DTL_D2_RK1(affinity, sample, dim, tform, class)
1563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1564 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUD_DTL_D2_RK1
1567 integer(IK) ,
intent(in) :: dim
1568 type(upperDiag_type) ,
intent(in) :: class
1569 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1570 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1571 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1586 PURE module subroutine setAffinity_CLD_DTL_D1_RK5(affinity, sample, tform, class)
1587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1588 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D1_RK5
1591 type(lowerDiag_type) ,
intent(in) :: class
1592 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1593 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1594 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1599 PURE module subroutine setAffinity_CLD_DTL_D1_RK4(affinity, sample, tform, class)
1600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1601 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D1_RK4
1604 type(lowerDiag_type) ,
intent(in) :: class
1605 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1606 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1607 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1612 PURE module subroutine setAffinity_CLD_DTL_D1_RK3(affinity, sample, tform, class)
1613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1614 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D1_RK3
1617 type(lowerDiag_type) ,
intent(in) :: class
1618 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1619 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1620 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1625 PURE module subroutine setAffinity_CLD_DTL_D1_RK2(affinity, sample, tform, class)
1626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1627 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D1_RK2
1630 type(lowerDiag_type) ,
intent(in) :: class
1631 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1632 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1633 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1638 PURE module subroutine setAffinity_CLD_DTL_D1_RK1(affinity, sample, tform, class)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D1_RK1
1643 type(lowerDiag_type) ,
intent(in) :: class
1644 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1645 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1646 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1653 PURE module subroutine setAffinity_CLD_DTL_D2_RK5(affinity, sample, dim, tform, class)
1654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1655 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D2_RK5
1658 integer(IK) ,
intent(in) :: dim
1659 type(lowerDiag_type) ,
intent(in) :: class
1660 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1661 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1662 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1667 PURE module subroutine setAffinity_CLD_DTL_D2_RK4(affinity, sample, dim, tform, class)
1668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1669 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D2_RK4
1672 integer(IK) ,
intent(in) :: dim
1673 type(lowerDiag_type) ,
intent(in) :: class
1674 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1675 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1676 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1681 PURE module subroutine setAffinity_CLD_DTL_D2_RK3(affinity, sample, dim, tform, class)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D2_RK3
1686 integer(IK) ,
intent(in) :: dim
1687 type(lowerDiag_type) ,
intent(in) :: class
1688 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1689 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1690 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1695 PURE module subroutine setAffinity_CLD_DTL_D2_RK2(affinity, sample, dim, tform, class)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D2_RK2
1700 integer(IK) ,
intent(in) :: dim
1701 type(lowerDiag_type) ,
intent(in) :: class
1702 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1703 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1704 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1709 PURE module subroutine setAffinity_CLD_DTL_D2_RK1(affinity, sample, dim, tform, class)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLD_DTL_D2_RK1
1714 integer(IK) ,
intent(in) :: dim
1715 type(lowerDiag_type) ,
intent(in) :: class
1716 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1717 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1718 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1733 PURE module subroutine setAffinity_CUU_DTL_D1_RK5(affinity, sample, tform, class)
1734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1735 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D1_RK5
1738 type(upperUnit_type) ,
intent(in) :: class
1739 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1740 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1741 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1746 PURE module subroutine setAffinity_CUU_DTL_D1_RK4(affinity, sample, tform, class)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D1_RK4
1751 type(upperUnit_type) ,
intent(in) :: class
1752 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1753 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1754 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1759 PURE module subroutine setAffinity_CUU_DTL_D1_RK3(affinity, sample, tform, class)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D1_RK3
1764 type(upperUnit_type) ,
intent(in) :: class
1765 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1766 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1767 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1772 PURE module subroutine setAffinity_CUU_DTL_D1_RK2(affinity, sample, tform, class)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D1_RK2
1777 type(upperUnit_type) ,
intent(in) :: class
1778 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1779 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1780 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1785 PURE module subroutine setAffinity_CUU_DTL_D1_RK1(affinity, sample, tform, class)
1786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1787 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D1_RK1
1790 type(upperUnit_type) ,
intent(in) :: class
1791 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1792 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1793 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1800 PURE module subroutine setAffinity_CUU_DTL_D2_RK5(affinity, sample, dim, tform, class)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D2_RK5
1805 integer(IK) ,
intent(in) :: dim
1806 type(upperUnit_type) ,
intent(in) :: class
1807 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1808 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1809 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1814 PURE module subroutine setAffinity_CUU_DTL_D2_RK4(affinity, sample, dim, tform, class)
1815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1816 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D2_RK4
1819 integer(IK) ,
intent(in) :: dim
1820 type(upperUnit_type) ,
intent(in) :: class
1821 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1822 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1823 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1828 PURE module subroutine setAffinity_CUU_DTL_D2_RK3(affinity, sample, dim, tform, class)
1829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1830 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D2_RK3
1833 integer(IK) ,
intent(in) :: dim
1834 type(upperUnit_type) ,
intent(in) :: class
1835 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1836 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1837 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1842 PURE module subroutine setAffinity_CUU_DTL_D2_RK2(affinity, sample, dim, tform, class)
1843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1844 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D2_RK2
1847 integer(IK) ,
intent(in) :: dim
1848 type(upperUnit_type) ,
intent(in) :: class
1849 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1850 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1851 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1856 PURE module subroutine setAffinity_CUU_DTL_D2_RK1(affinity, sample, dim, tform, class)
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CUU_DTL_D2_RK1
1861 integer(IK) ,
intent(in) :: dim
1862 type(upperUnit_type) ,
intent(in) :: class
1863 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1864 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1865 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1880 PURE module subroutine setAffinity_CLU_DTL_D1_RK5(affinity, sample, tform, class)
1881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1882 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D1_RK5
1885 type(lowerUnit_type) ,
intent(in) :: class
1886 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1887 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1888 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1893 PURE module subroutine setAffinity_CLU_DTL_D1_RK4(affinity, sample, tform, class)
1894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1895 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D1_RK4
1898 type(lowerUnit_type) ,
intent(in) :: class
1899 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1900 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1901 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1906 PURE module subroutine setAffinity_CLU_DTL_D1_RK3(affinity, sample, tform, class)
1907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1908 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D1_RK3
1911 type(lowerUnit_type) ,
intent(in) :: class
1912 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1913 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1914 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1919 PURE module subroutine setAffinity_CLU_DTL_D1_RK2(affinity, sample, tform, class)
1920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1921 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D1_RK2
1924 type(lowerUnit_type) ,
intent(in) :: class
1925 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1926 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1927 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1932 PURE module subroutine setAffinity_CLU_DTL_D1_RK1(affinity, sample, tform, class)
1933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1934 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D1_RK1
1937 type(lowerUnit_type) ,
intent(in) :: class
1938 real(RKG) ,
intent(out) ,
contiguous :: affinity(:)
1939 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
1940 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1947 PURE module subroutine setAffinity_CLU_DTL_D2_RK5(affinity, sample, dim, tform, class)
1948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1949 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D2_RK5
1952 integer(IK) ,
intent(in) :: dim
1953 type(lowerUnit_type) ,
intent(in) :: class
1954 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1955 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1956 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1961 PURE module subroutine setAffinity_CLU_DTL_D2_RK4(affinity, sample, dim, tform, class)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D2_RK4
1966 integer(IK) ,
intent(in) :: dim
1967 type(lowerUnit_type) ,
intent(in) :: class
1968 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1969 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1970 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1975 PURE module subroutine setAffinity_CLU_DTL_D2_RK3(affinity, sample, dim, tform, class)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D2_RK3
1980 integer(IK) ,
intent(in) :: dim
1981 type(lowerUnit_type) ,
intent(in) :: class
1982 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1983 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1984 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
1989 PURE module subroutine setAffinity_CLU_DTL_D2_RK2(affinity, sample, dim, tform, class)
1990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1991 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D2_RK2
1994 integer(IK) ,
intent(in) :: dim
1995 type(lowerUnit_type) ,
intent(in) :: class
1996 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
1997 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1998 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
2003 PURE module subroutine setAffinity_CLU_DTL_D2_RK1(affinity, sample, dim, tform, class)
2004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2005 !DEC$ ATTRIBUTES DLLEXPORT :: setAffinity_CLU_DTL_D2_RK1
2008 integer(IK) ,
intent(in) :: dim
2009 type(lowerUnit_type) ,
intent(in) :: class
2010 real(RKG) ,
intent(out) ,
contiguous :: affinity(:,:)
2011 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
2012 real(RKG) ,
intent(in) ,
contiguous :: tform(:,:)
Generate and return an affine-transformation of the input sample of shape (1:ndim) or (1:ndim,...
Return an affine-transformation of the input sample of shape (1:ndim) or (1:ndim, 1:nsam) or (1:nsam,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(genrecmat_type), parameter genrecmat
This is a scalar parameter object of type genrecmat_type that is exclusively used to signify the gene...
character(*, SK), parameter MODULE_NAME
type(lowerUnit_type), parameter lowerUnit
This is a scalar parameter object of type upperUnit_type that is exclusively used to signify the lowe...
type(upperZero_type), parameter upperZero
This is a scalar parameter object of type upperUnit_type that is exclusively used to signify the uppe...
type(lowerZero_type), parameter lowerZero
This is a scalar parameter object of type lowerUnit_type that is exclusively used to signify the lowe...
type(upperUnit_type), parameter upperUnit
This is a scalar parameter object of type upperUnit_type that is exclusively used to signify the uppe...
type(upperDiag_type), parameter upperDiag
This is a scalar parameter object of type upperDiag_type that is exclusively used to signify the uppe...
type(lowerDiag_type), parameter lowerDiag
This is a scalar parameter object of type lowerDiag_type that is exclusively used to signify the lowe...
This module contains classes and procedures for affine transformation of multivariate samples.
This is a concrete derived type whose instances are exclusively used to signify the general rectangul...
This is a concrete derived type whose instances are exclusively used to signify the lower-diagonal tr...
This is a concrete derived type whose instances are exclusively used to signify the lower-unit-diagon...
This is a concrete derived type whose instances are exclusively used to signify the lower-zero-diagon...
This is a concrete derived type whose instances are exclusively used to signify the upper-diagonal tr...
This is a concrete derived type whose instances are exclusively used to signify the upper-unit-diagon...
This is a concrete derived type whose instances are exclusively used to signify the upper-zero-diagon...