ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_sampleAffinity.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 1 = 1
93
94!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95
97
98 use pm_kind, only: SK, IK, LK
106
107 implicit none
108
109 character(*, SK), parameter :: MODULE_NAME = "@pm_sampleAffinity"
110
111!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112
224
225 interface getAffinity
226
227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
228
229#if RK5_ENABLED
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
233#endif
234 use pm_kind, only: RKG => 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))
240 end function
241#endif
242
243#if RK4_ENABLED
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
247#endif
248 use pm_kind, only: RKG => 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))
254 end function
255#endif
256
257#if RK3_ENABLED
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
261#endif
262 use pm_kind, only: RKG => 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))
268 end function
269#endif
270
271#if RK2_ENABLED
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
275#endif
276 use pm_kind, only: RKG => 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))
282 end function
283#endif
284
285#if RK1_ENABLED
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
289#endif
290 use pm_kind, only: RKG => 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))
296 end function
297#endif
298
299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300
301#if RK5_ENABLED
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
305#endif
306 use pm_kind, only: RKG => 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))
313 end function
314#endif
315
316#if RK4_ENABLED
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
320#endif
321 use pm_kind, only: RKG => 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))
328 end function
329#endif
330
331#if RK3_ENABLED
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
335#endif
336 use pm_kind, only: RKG => 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))
343 end function
344#endif
345
346#if RK2_ENABLED
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
350#endif
351 use pm_kind, only: RKG => 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))
358 end function
359#endif
360
361#if RK1_ENABLED
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
365#endif
366 use pm_kind, only: RKG => 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))
373 end function
374#endif
375
376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377
378 end interface getAffinity
379
380!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381
499
500 ! CGR_ATL translation arbitrary.
501
502 interface setAffinity
503
504 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505
506#if RK5_ENABLED
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
510#endif
511 use pm_kind, only: RKG => RK4
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(:)
517 end subroutine
518#endif
519
520#if RK4_ENABLED
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
524#endif
525 use pm_kind, only: RKG => 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(:)
531 end subroutine
532#endif
533
534#if RK3_ENABLED
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
538#endif
539 use pm_kind, only: RKG => 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(:)
545 end subroutine
546#endif
547
548#if RK2_ENABLED
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
552#endif
553 use pm_kind, only: RKG => 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(:)
559 end subroutine
560#endif
561
562#if RK1_ENABLED
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
566#endif
567 use pm_kind, only: RKG => 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(:)
573 end subroutine
574#endif
575
576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577
578#if RK5_ENABLED
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
582#endif
583 use pm_kind, only: RKG => 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(:)
590 end subroutine
591#endif
592
593#if RK4_ENABLED
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
597#endif
598 use pm_kind, only: RKG => 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(:)
605 end subroutine
606#endif
607
608#if RK3_ENABLED
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
612#endif
613 use pm_kind, only: RKG => 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(:)
620 end subroutine
621#endif
622
623#if RK2_ENABLED
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
627#endif
628 use pm_kind, only: RKG => 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(:)
635 end subroutine
636#endif
637
638#if RK1_ENABLED
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
642#endif
643 use pm_kind, only: RKG => 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(:)
650 end subroutine
651#endif
652
653 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
654
655 end interface setAffinity
656
657 ! CUD_ATL translation arbitrary.
658
659 interface setAffinity
660
661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662
663#if RK5_ENABLED
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
667#endif
668 use pm_kind, only: RKG => RK4
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(:)
674 end subroutine
675#endif
676
677#if RK4_ENABLED
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
681#endif
682 use pm_kind, only: RKG => 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(:)
688 end subroutine
689#endif
690
691#if RK3_ENABLED
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
695#endif
696 use pm_kind, only: RKG => 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(:)
702 end subroutine
703#endif
704
705#if RK2_ENABLED
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
709#endif
710 use pm_kind, only: RKG => 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(:)
716 end subroutine
717#endif
718
719#if RK1_ENABLED
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
723#endif
724 use pm_kind, only: RKG => 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(:)
730 end subroutine
731#endif
732
733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734
735#if RK5_ENABLED
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
739#endif
740 use pm_kind, only: RKG => 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(:)
747 end subroutine
748#endif
749
750#if RK4_ENABLED
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
754#endif
755 use pm_kind, only: RKG => 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(:)
762 end subroutine
763#endif
764
765#if RK3_ENABLED
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
769#endif
770 use pm_kind, only: RKG => 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(:)
777 end subroutine
778#endif
779
780#if RK2_ENABLED
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
784#endif
785 use pm_kind, only: RKG => 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(:)
792 end subroutine
793#endif
794
795#if RK1_ENABLED
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
799#endif
800 use pm_kind, only: RKG => 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(:)
807 end subroutine
808#endif
809
810 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
811
812 end interface setAffinity
813
814 ! CLD_ATL translation arbitrary.
815
816 interface setAffinity
817
818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
819
820#if RK5_ENABLED
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
824#endif
825 use pm_kind, only: RKG => RK4
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(:)
831 end subroutine
832#endif
833
834#if RK4_ENABLED
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
838#endif
839 use pm_kind, only: RKG => 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(:)
845 end subroutine
846#endif
847
848#if RK3_ENABLED
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
852#endif
853 use pm_kind, only: RKG => 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(:)
859 end subroutine
860#endif
861
862#if RK2_ENABLED
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
866#endif
867 use pm_kind, only: RKG => 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(:)
873 end subroutine
874#endif
875
876#if RK1_ENABLED
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
880#endif
881 use pm_kind, only: RKG => 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(:)
887 end subroutine
888#endif
889
890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891
892#if RK5_ENABLED
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
896#endif
897 use pm_kind, only: RKG => 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(:)
904 end subroutine
905#endif
906
907#if RK4_ENABLED
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
911#endif
912 use pm_kind, only: RKG => 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(:)
919 end subroutine
920#endif
921
922#if RK3_ENABLED
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
926#endif
927 use pm_kind, only: RKG => 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(:)
934 end subroutine
935#endif
936
937#if RK2_ENABLED
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
941#endif
942 use pm_kind, only: RKG => 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(:)
949 end subroutine
950#endif
951
952#if RK1_ENABLED
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
956#endif
957 use pm_kind, only: RKG => 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(:)
964 end subroutine
965#endif
966
967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968
969 end interface setAffinity
970
971 ! CUU_ATL translation arbitrary.
972
973 interface setAffinity
974
975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
976
977#if RK5_ENABLED
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
981#endif
982 use pm_kind, only: RKG => RK4
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(:)
988 end subroutine
989#endif
990
991#if RK4_ENABLED
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
995#endif
996 use pm_kind, only: RKG => 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(:)
1002 end subroutine
1003#endif
1004
1005#if RK3_ENABLED
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
1009#endif
1010 use pm_kind, only: RKG => 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(:)
1016 end subroutine
1017#endif
1018
1019#if RK2_ENABLED
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
1023#endif
1024 use pm_kind, only: RKG => 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(:)
1030 end subroutine
1031#endif
1032
1033#if RK1_ENABLED
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
1037#endif
1038 use pm_kind, only: RKG => 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(:)
1044 end subroutine
1045#endif
1046
1047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048
1049#if RK5_ENABLED
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
1053#endif
1054 use pm_kind, only: RKG => 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(:)
1061 end subroutine
1062#endif
1063
1064#if RK4_ENABLED
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
1068#endif
1069 use pm_kind, only: RKG => 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(:)
1076 end subroutine
1077#endif
1078
1079#if RK3_ENABLED
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
1083#endif
1084 use pm_kind, only: RKG => 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(:)
1091 end subroutine
1092#endif
1093
1094#if RK2_ENABLED
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
1098#endif
1099 use pm_kind, only: RKG => 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(:)
1106 end subroutine
1107#endif
1108
1109#if RK1_ENABLED
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
1113#endif
1114 use pm_kind, only: RKG => 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(:)
1121 end subroutine
1122#endif
1123
1124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1125
1126 end interface setAffinity
1127
1128 ! CLU_ATL translation arbitrary.
1129
1130 interface setAffinity
1131
1132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133
1134#if RK5_ENABLED
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
1138#endif
1139 use pm_kind, only: RKG => RK4
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(:)
1145 end subroutine
1146#endif
1147
1148#if RK4_ENABLED
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
1152#endif
1153 use pm_kind, only: RKG => 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(:)
1159 end subroutine
1160#endif
1161
1162#if RK3_ENABLED
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
1166#endif
1167 use pm_kind, only: RKG => 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(:)
1173 end subroutine
1174#endif
1175
1176#if RK2_ENABLED
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
1180#endif
1181 use pm_kind, only: RKG => 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(:)
1187 end subroutine
1188#endif
1189
1190#if RK1_ENABLED
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
1194#endif
1195 use pm_kind, only: RKG => 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(:)
1201 end subroutine
1202#endif
1203
1204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1205
1206#if RK5_ENABLED
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
1210#endif
1211 use pm_kind, only: RKG => 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(:)
1218 end subroutine
1219#endif
1220
1221#if RK4_ENABLED
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
1225#endif
1226 use pm_kind, only: RKG => 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(:)
1233 end subroutine
1234#endif
1235
1236#if RK3_ENABLED
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
1240#endif
1241 use pm_kind, only: RKG => 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(:)
1248 end subroutine
1249#endif
1250
1251#if RK2_ENABLED
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
1255#endif
1256 use pm_kind, only: RKG => 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(:)
1263 end subroutine
1264#endif
1265
1266#if RK1_ENABLED
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
1270#endif
1271 use pm_kind, only: RKG => 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(:)
1278 end subroutine
1279#endif
1280
1281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1282
1283 end interface setAffinity
1284
1285 ! CGR_DTL translation arbitrary.
1286
1287 interface setAffinity
1288
1289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1290
1291#if RK5_ENABLED
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
1295#endif
1296 use pm_kind, only: RKG => RK4
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(:,:)
1301 end subroutine
1302#endif
1303
1304#if RK4_ENABLED
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
1308#endif
1309 use pm_kind, only: RKG => 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(:,:)
1314 end subroutine
1315#endif
1316
1317#if RK3_ENABLED
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
1321#endif
1322 use pm_kind, only: RKG => 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(:,:)
1327 end subroutine
1328#endif
1329
1330#if RK2_ENABLED
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
1334#endif
1335 use pm_kind, only: RKG => 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(:,:)
1340 end subroutine
1341#endif
1342
1343#if RK1_ENABLED
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
1347#endif
1348 use pm_kind, only: RKG => 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(:,:)
1353 end subroutine
1354#endif
1355
1356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1357
1358#if RK5_ENABLED
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
1362#endif
1363 use pm_kind, only: RKG => 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(:,:)
1369 end subroutine
1370#endif
1371
1372#if RK4_ENABLED
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
1376#endif
1377 use pm_kind, only: RKG => 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(:,:)
1383 end subroutine
1384#endif
1385
1386#if RK3_ENABLED
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
1390#endif
1391 use pm_kind, only: RKG => 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(:,:)
1397 end subroutine
1398#endif
1399
1400#if RK2_ENABLED
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
1404#endif
1405 use pm_kind, only: RKG => 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(:,:)
1411 end subroutine
1412#endif
1413
1414#if RK1_ENABLED
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
1418#endif
1419 use pm_kind, only: RKG => 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(:,:)
1425 end subroutine
1426#endif
1427
1428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1429
1430 end interface setAffinity
1431
1432 ! CUD_DTL translation arbitrary.
1433
1434 interface setAffinity
1435
1436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1437
1438#if RK5_ENABLED
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
1442#endif
1443 use pm_kind, only: RKG => RK4
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(:,:)
1448 end subroutine
1449#endif
1450
1451#if RK4_ENABLED
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
1455#endif
1456 use pm_kind, only: RKG => 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(:,:)
1461 end subroutine
1462#endif
1463
1464#if RK3_ENABLED
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
1468#endif
1469 use pm_kind, only: RKG => 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(:,:)
1474 end subroutine
1475#endif
1476
1477#if RK2_ENABLED
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
1481#endif
1482 use pm_kind, only: RKG => 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(:,:)
1487 end subroutine
1488#endif
1489
1490#if RK1_ENABLED
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
1494#endif
1495 use pm_kind, only: RKG => 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(:,:)
1500 end subroutine
1501#endif
1502
1503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1504
1505#if RK5_ENABLED
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
1509#endif
1510 use pm_kind, only: RKG => 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(:,:)
1516 end subroutine
1517#endif
1518
1519#if RK4_ENABLED
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
1523#endif
1524 use pm_kind, only: RKG => 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(:,:)
1530 end subroutine
1531#endif
1532
1533#if RK3_ENABLED
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
1537#endif
1538 use pm_kind, only: RKG => 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(:,:)
1544 end subroutine
1545#endif
1546
1547#if RK2_ENABLED
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
1551#endif
1552 use pm_kind, only: RKG => 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(:,:)
1558 end subroutine
1559#endif
1560
1561#if RK1_ENABLED
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
1565#endif
1566 use pm_kind, only: RKG => 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(:,:)
1572 end subroutine
1573#endif
1574
1575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1576
1577 end interface setAffinity
1578
1579 ! CLD_DTL translation arbitrary.
1580
1581 interface setAffinity
1582
1583 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1584
1585#if RK5_ENABLED
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
1589#endif
1590 use pm_kind, only: RKG => RK4
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(:,:)
1595 end subroutine
1596#endif
1597
1598#if RK4_ENABLED
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
1602#endif
1603 use pm_kind, only: RKG => 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(:,:)
1608 end subroutine
1609#endif
1610
1611#if RK3_ENABLED
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
1615#endif
1616 use pm_kind, only: RKG => 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(:,:)
1621 end subroutine
1622#endif
1623
1624#if RK2_ENABLED
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
1628#endif
1629 use pm_kind, only: RKG => 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(:,:)
1634 end subroutine
1635#endif
1636
1637#if RK1_ENABLED
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
1641#endif
1642 use pm_kind, only: RKG => 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(:,:)
1647 end subroutine
1648#endif
1649
1650 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651
1652#if RK5_ENABLED
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
1656#endif
1657 use pm_kind, only: RKG => 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(:,:)
1663 end subroutine
1664#endif
1665
1666#if RK4_ENABLED
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
1670#endif
1671 use pm_kind, only: RKG => 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(:,:)
1677 end subroutine
1678#endif
1679
1680#if RK3_ENABLED
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
1684#endif
1685 use pm_kind, only: RKG => 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(:,:)
1691 end subroutine
1692#endif
1693
1694#if RK2_ENABLED
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
1698#endif
1699 use pm_kind, only: RKG => 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(:,:)
1705 end subroutine
1706#endif
1707
1708#if RK1_ENABLED
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
1712#endif
1713 use pm_kind, only: RKG => 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(:,:)
1719 end subroutine
1720#endif
1721
1722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1723
1724 end interface setAffinity
1725
1726 ! CUU_DTL translation arbitrary.
1727
1728 interface setAffinity
1729
1730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731
1732#if RK5_ENABLED
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
1736#endif
1737 use pm_kind, only: RKG => RK4
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(:,:)
1742 end subroutine
1743#endif
1744
1745#if RK4_ENABLED
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
1749#endif
1750 use pm_kind, only: RKG => 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(:,:)
1755 end subroutine
1756#endif
1757
1758#if RK3_ENABLED
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
1762#endif
1763 use pm_kind, only: RKG => 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(:,:)
1768 end subroutine
1769#endif
1770
1771#if RK2_ENABLED
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
1775#endif
1776 use pm_kind, only: RKG => 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(:,:)
1781 end subroutine
1782#endif
1783
1784#if RK1_ENABLED
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
1788#endif
1789 use pm_kind, only: RKG => 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(:,:)
1794 end subroutine
1795#endif
1796
1797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798
1799#if RK5_ENABLED
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
1803#endif
1804 use pm_kind, only: RKG => 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(:,:)
1810 end subroutine
1811#endif
1812
1813#if RK4_ENABLED
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
1817#endif
1818 use pm_kind, only: RKG => 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(:,:)
1824 end subroutine
1825#endif
1826
1827#if RK3_ENABLED
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
1831#endif
1832 use pm_kind, only: RKG => 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(:,:)
1838 end subroutine
1839#endif
1840
1841#if RK2_ENABLED
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
1845#endif
1846 use pm_kind, only: RKG => 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(:,:)
1852 end subroutine
1853#endif
1854
1855#if RK1_ENABLED
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
1859#endif
1860 use pm_kind, only: RKG => 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(:,:)
1866 end subroutine
1867#endif
1868
1869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1870
1871 end interface setAffinity
1872
1873 ! CLU_DTL translation arbitrary.
1874
1875 interface setAffinity
1876
1877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1878
1879#if RK5_ENABLED
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
1883#endif
1884 use pm_kind, only: RKG => RK4
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(:,:)
1889 end subroutine
1890#endif
1891
1892#if RK4_ENABLED
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
1896#endif
1897 use pm_kind, only: RKG => 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(:,:)
1902 end subroutine
1903#endif
1904
1905#if RK3_ENABLED
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
1909#endif
1910 use pm_kind, only: RKG => 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(:,:)
1915 end subroutine
1916#endif
1917
1918#if RK2_ENABLED
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
1922#endif
1923 use pm_kind, only: RKG => 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(:,:)
1928 end subroutine
1929#endif
1930
1931#if RK1_ENABLED
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
1935#endif
1936 use pm_kind, only: RKG => 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(:,:)
1941 end subroutine
1942#endif
1943
1944 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1945
1946#if RK5_ENABLED
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
1950#endif
1951 use pm_kind, only: RKG => 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(:,:)
1957 end subroutine
1958#endif
1959
1960#if RK4_ENABLED
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
1964#endif
1965 use pm_kind, only: RKG => 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(:,:)
1971 end subroutine
1972#endif
1973
1974#if RK3_ENABLED
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
1978#endif
1979 use pm_kind, only: RKG => 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(:,:)
1985 end subroutine
1986#endif
1987
1988#if RK2_ENABLED
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
1992#endif
1993 use pm_kind, only: RKG => 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(:,:)
1999 end subroutine
2000#endif
2001
2002#if RK1_ENABLED
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
2006#endif
2007 use pm_kind, only: RKG => 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(:,:)
2013 end subroutine
2014#endif
2015
2016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2017
2018 end interface setAffinity
2019
2020!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2021
2022end module pm_sampleAffinity ! LCOV_EXCL_LINE
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...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(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...