146 module function getChoiceRNGD_D0_D0_SK5(array)
result(choice)
147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
148 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_D0_SK5
151 character(
*,SKG) ,
intent(in) :: array
152 character(
1,SKG) :: choice
157 module function getChoiceRNGD_D0_D0_SK4(array)
result(choice)
158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
159 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_D0_SK4
162 character(
*,SKG) ,
intent(in) :: array
163 character(
1,SKG) :: choice
168 module function getChoiceRNGD_D0_D0_SK3(array)
result(choice)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_D0_SK3
173 character(
*,SKG) ,
intent(in) :: array
174 character(
1,SKG) :: choice
179 module function getChoiceRNGD_D0_D0_SK2(array)
result(choice)
180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
181 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_D0_SK2
184 character(
*,SKG) ,
intent(in) :: array
185 character(
1,SKG) :: choice
190 module function getChoiceRNGD_D0_D0_SK1(array)
result(choice)
191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
192 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_D0_SK1
195 character(
*,SKG) ,
intent(in) :: array
196 character(
1,SKG) :: choice
209 module function getChoiceRNGD_D1_D0_SK5(array)
result(choice)
210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
211 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_SK5
214 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
215 character(
len(array,IK),SKG) :: choice
220 module function getChoiceRNGD_D1_D0_SK4(array)
result(choice)
221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
222 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_SK4
225 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
226 character(
len(array,IK),SKG) :: choice
231 module function getChoiceRNGD_D1_D0_SK3(array)
result(choice)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_SK3
236 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
237 character(
len(array,IK),SKG) :: choice
242 module function getChoiceRNGD_D1_D0_SK2(array)
result(choice)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_SK2
247 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
248 character(
len(array,IK),SKG) :: choice
253 module function getChoiceRNGD_D1_D0_SK1(array)
result(choice)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_SK1
258 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
259 character(
len(array,IK),SKG) :: choice
266 module function getChoiceRNGD_D1_D0_IK5(array)
result(choice)
267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
268 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_IK5
271 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
272 integer(IKG) :: choice
277 module function getChoiceRNGD_D1_D0_IK4(array)
result(choice)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_IK4
282 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
283 integer(IKG) :: choice
288 module function getChoiceRNGD_D1_D0_IK3(array)
result(choice)
289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
290 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_IK3
293 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
294 integer(IKG) :: choice
299 module function getChoiceRNGD_D1_D0_IK2(array)
result(choice)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_IK2
304 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
305 integer(IKG) :: choice
310 module function getChoiceRNGD_D1_D0_IK1(array)
result(choice)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_IK1
315 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
316 integer(IKG) :: choice
323 module function getChoiceRNGD_D1_D0_LK5(array)
result(choice)
324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
325 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_LK5
328 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
329 logical(LKG) :: choice
334 module function getChoiceRNGD_D1_D0_LK4(array)
result(choice)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_LK4
339 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
340 logical(LKG) :: choice
345 module function getChoiceRNGD_D1_D0_LK3(array)
result(choice)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_LK3
350 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
351 logical(LKG) :: choice
356 module function getChoiceRNGD_D1_D0_LK2(array)
result(choice)
357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
358 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_LK2
361 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
362 logical(LKG) :: choice
367 module function getChoiceRNGD_D1_D0_LK1(array)
result(choice)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_LK1
372 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
373 logical(LKG) :: choice
380 module function getChoiceRNGD_D1_D0_CK5(array)
result(choice)
381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
382 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_CK5
385 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
386 complex(CKG) :: choice
391 module function getChoiceRNGD_D1_D0_CK4(array)
result(choice)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_CK4
396 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
397 complex(CKG) :: choice
402 module function getChoiceRNGD_D1_D0_CK3(array)
result(choice)
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_CK3
407 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
408 complex(CKG) :: choice
413 module function getChoiceRNGD_D1_D0_CK2(array)
result(choice)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_CK2
418 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
419 complex(CKG) :: choice
424 module function getChoiceRNGD_D1_D0_CK1(array)
result(choice)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_CK1
429 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
430 complex(CKG) :: choice
437 module function getChoiceRNGD_D1_D0_RK5(array)
result(choice)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_RK5
442 real(RKG) ,
intent(in) ,
contiguous :: array(:)
448 module function getChoiceRNGD_D1_D0_RK4(array)
result(choice)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_RK4
453 real(RKG) ,
intent(in) ,
contiguous :: array(:)
459 module function getChoiceRNGD_D1_D0_RK3(array)
result(choice)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_RK3
464 real(RKG) ,
intent(in) ,
contiguous :: array(:)
470 module function getChoiceRNGD_D1_D0_RK2(array)
result(choice)
471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
472 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_RK2
475 real(RKG) ,
intent(in) ,
contiguous :: array(:)
481 module function getChoiceRNGD_D1_D0_RK1(array)
result(choice)
482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
483 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D0_RK1
486 real(RKG) ,
intent(in) ,
contiguous :: array(:)
500 module function getChoiceRNGD_D0_S1_SK5(array, s1, unique)
result(choice)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_S1_SK5
505 integer(IK) ,
intent(in) :: s1
506 logical(LK) ,
intent(in) ,
optional :: unique
507 character(
*,SKG) ,
intent(in) :: array
508 character(s1,SKG) :: choice
513 module function getChoiceRNGD_D0_S1_SK4(array, s1, unique)
result(choice)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_S1_SK4
518 integer(IK) ,
intent(in) :: s1
519 logical(LK) ,
intent(in) ,
optional :: unique
520 character(
*,SKG) ,
intent(in) :: array
521 character(s1,SKG) :: choice
526 module function getChoiceRNGD_D0_S1_SK3(array, s1, unique)
result(choice)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_S1_SK3
531 integer(IK) ,
intent(in) :: s1
532 logical(LK) ,
intent(in) ,
optional :: unique
533 character(
*,SKG) ,
intent(in) :: array
534 character(s1,SKG) :: choice
539 module function getChoiceRNGD_D0_S1_SK2(array, s1, unique)
result(choice)
540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
541 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_S1_SK2
544 integer(IK) ,
intent(in) :: s1
545 logical(LK) ,
intent(in) ,
optional :: unique
546 character(
*,SKG) ,
intent(in) :: array
547 character(s1,SKG) :: choice
552 module function getChoiceRNGD_D0_S1_SK1(array, s1, unique)
result(choice)
553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
554 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D0_S1_SK1
557 integer(IK) ,
intent(in) :: s1
558 logical(LK) ,
intent(in) ,
optional :: unique
559 character(
*,SKG) ,
intent(in) :: array
560 character(s1,SKG) :: choice
573 module function getChoiceRNGD_D1_D1_SK5(array, s1, unique)
result(choice)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_SK5
578 integer(IK) ,
intent(in) :: s1
579 logical(LK) ,
intent(in) ,
optional :: unique
580 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
581 character(
len(array,IK),SKG) :: choice(s1)
586 module function getChoiceRNGD_D1_D1_SK4(array, s1, unique)
result(choice)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_SK4
591 integer(IK) ,
intent(in) :: s1
592 logical(LK) ,
intent(in) ,
optional :: unique
593 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
594 character(
len(array,IK),SKG) :: choice(s1)
599 module function getChoiceRNGD_D1_D1_SK3(array, s1, unique)
result(choice)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_SK3
604 integer(IK) ,
intent(in) :: s1
605 logical(LK) ,
intent(in) ,
optional :: unique
606 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
607 character(
len(array,IK),SKG) :: choice(s1)
612 module function getChoiceRNGD_D1_D1_SK2(array, s1, unique)
result(choice)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_SK2
617 integer(IK) ,
intent(in) :: s1
618 logical(LK) ,
intent(in) ,
optional :: unique
619 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
620 character(
len(array,IK),SKG) :: choice(s1)
625 module function getChoiceRNGD_D1_D1_SK1(array, s1, unique)
result(choice)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_SK1
630 integer(IK) ,
intent(in) :: s1
631 logical(LK) ,
intent(in) ,
optional :: unique
632 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
633 character(
len(array,IK),SKG) :: choice(s1)
640 module function getChoiceRNGD_D1_D1_IK5(array, s1, unique)
result(choice)
641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
642 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_IK5
645 integer(IK) ,
intent(in) :: s1
646 logical(LK) ,
intent(in) ,
optional :: unique
647 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
648 integer(IKG) :: choice(s1)
653 module function getChoiceRNGD_D1_D1_IK4(array, s1, unique)
result(choice)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_IK4
658 integer(IK) ,
intent(in) :: s1
659 logical(LK) ,
intent(in) ,
optional :: unique
660 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
661 integer(IKG) :: choice(s1)
666 module function getChoiceRNGD_D1_D1_IK3(array, s1, unique)
result(choice)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_IK3
671 integer(IK) ,
intent(in) :: s1
672 logical(LK) ,
intent(in) ,
optional :: unique
673 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
674 integer(IKG) :: choice(s1)
679 module function getChoiceRNGD_D1_D1_IK2(array, s1, unique)
result(choice)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_IK2
684 integer(IK) ,
intent(in) :: s1
685 logical(LK) ,
intent(in) ,
optional :: unique
686 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
687 integer(IKG) :: choice(s1)
692 module function getChoiceRNGD_D1_D1_IK1(array, s1, unique)
result(choice)
693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
694 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_IK1
697 integer(IK) ,
intent(in) :: s1
698 logical(LK) ,
intent(in) ,
optional :: unique
699 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
700 integer(IKG) :: choice(s1)
707 module function getChoiceRNGD_D1_D1_LK5(array, s1, unique)
result(choice)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_LK5
712 integer(IK) ,
intent(in) :: s1
713 logical(LK) ,
intent(in) ,
optional :: unique
714 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
715 logical(LKG) :: choice(s1)
720 module function getChoiceRNGD_D1_D1_LK4(array, s1, unique)
result(choice)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_LK4
725 integer(IK) ,
intent(in) :: s1
726 logical(LK) ,
intent(in) ,
optional :: unique
727 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
728 logical(LKG) :: choice(s1)
733 module function getChoiceRNGD_D1_D1_LK3(array, s1, unique)
result(choice)
734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
735 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_LK3
738 integer(IK) ,
intent(in) :: s1
739 logical(LK) ,
intent(in) ,
optional :: unique
740 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
741 logical(LKG) :: choice(s1)
746 module function getChoiceRNGD_D1_D1_LK2(array, s1, unique)
result(choice)
747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
748 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_LK2
751 integer(IK) ,
intent(in) :: s1
752 logical(LK) ,
intent(in) ,
optional :: unique
753 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
754 logical(LKG) :: choice(s1)
759 module function getChoiceRNGD_D1_D1_LK1(array, s1, unique)
result(choice)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_LK1
764 integer(IK) ,
intent(in) :: s1
765 logical(LK) ,
intent(in) ,
optional :: unique
766 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
767 logical(LKG) :: choice(s1)
774 module function getChoiceRNGD_D1_D1_CK5(array, s1, unique)
result(choice)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_CK5
779 integer(IK) ,
intent(in) :: s1
780 logical(LK) ,
intent(in) ,
optional :: unique
781 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
782 complex(CKG) :: choice(s1)
787 module function getChoiceRNGD_D1_D1_CK4(array, s1, unique)
result(choice)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_CK4
792 integer(IK) ,
intent(in) :: s1
793 logical(LK) ,
intent(in) ,
optional :: unique
794 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
795 complex(CKG) :: choice(s1)
800 module function getChoiceRNGD_D1_D1_CK3(array, s1, unique)
result(choice)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_CK3
805 integer(IK) ,
intent(in) :: s1
806 logical(LK) ,
intent(in) ,
optional :: unique
807 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
808 complex(CKG) :: choice(s1)
813 module function getChoiceRNGD_D1_D1_CK2(array, s1, unique)
result(choice)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_CK2
818 integer(IK) ,
intent(in) :: s1
819 logical(LK) ,
intent(in) ,
optional :: unique
820 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
821 complex(CKG) :: choice(s1)
826 module function getChoiceRNGD_D1_D1_CK1(array, s1, unique)
result(choice)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_CK1
831 integer(IK) ,
intent(in) :: s1
832 logical(LK) ,
intent(in) ,
optional :: unique
833 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
834 complex(CKG) :: choice(s1)
841 module function getChoiceRNGD_D1_D1_RK5(array, s1, unique)
result(choice)
842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
843 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_RK5
846 integer(IK) ,
intent(in) :: s1
847 logical(LK) ,
intent(in) ,
optional :: unique
848 real(RKG) ,
intent(in) ,
contiguous :: array(:)
849 real(RKG) :: choice(s1)
854 module function getChoiceRNGD_D1_D1_RK4(array, s1, unique)
result(choice)
855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
856 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_RK4
859 integer(IK) ,
intent(in) :: s1
860 logical(LK) ,
intent(in) ,
optional :: unique
861 real(RKG) ,
intent(in) ,
contiguous :: array(:)
862 real(RKG) :: choice(s1)
867 module function getChoiceRNGD_D1_D1_RK3(array, s1, unique)
result(choice)
868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
869 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_RK3
872 integer(IK) ,
intent(in) :: s1
873 logical(LK) ,
intent(in) ,
optional :: unique
874 real(RKG) ,
intent(in) ,
contiguous :: array(:)
875 real(RKG) :: choice(s1)
880 module function getChoiceRNGD_D1_D1_RK2(array, s1, unique)
result(choice)
881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
882 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_RK2
885 integer(IK) ,
intent(in) :: s1
886 logical(LK) ,
intent(in) ,
optional :: unique
887 real(RKG) ,
intent(in) ,
contiguous :: array(:)
888 real(RKG) :: choice(s1)
893 module function getChoiceRNGD_D1_D1_RK1(array, s1, unique)
result(choice)
894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
895 !DEC$ ATTRIBUTES DLLEXPORT :: getChoiceRNGD_D1_D1_RK1
898 integer(IK) ,
intent(in) :: s1
899 logical(LK) ,
intent(in) ,
optional :: unique
900 real(RKG) ,
intent(in) ,
contiguous :: array(:)
901 real(RKG) :: choice(s1)
1000 module subroutine setChoiceRNGF_D0_D0_SK5(rng, choice, array, unique)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D0_D0_SK5
1005 logical(LK) ,
intent(in) ,
optional :: unique
1006 character(
*,SKG) ,
intent(in) :: array
1007 character(
*,SKG) ,
intent(out) :: choice
1008 type(rngf_type) ,
intent(in) :: rng
1013 module subroutine setChoiceRNGF_D0_D0_SK4(rng, choice, array, unique)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D0_D0_SK4
1018 logical(LK) ,
intent(in) ,
optional :: unique
1019 character(
*,SKG) ,
intent(in) :: array
1020 character(
*,SKG) ,
intent(out) :: choice
1021 type(rngf_type) ,
intent(in) :: rng
1026 module subroutine setChoiceRNGF_D0_D0_SK3(rng, choice, array, unique)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D0_D0_SK3
1031 logical(LK) ,
intent(in) ,
optional :: unique
1032 character(
*,SKG) ,
intent(in) :: array
1033 character(
*,SKG) ,
intent(out) :: choice
1034 type(rngf_type) ,
intent(in) :: rng
1039 module subroutine setChoiceRNGF_D0_D0_SK2(rng, choice, array, unique)
1040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1041 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D0_D0_SK2
1044 logical(LK) ,
intent(in) ,
optional :: unique
1045 character(
*,SKG) ,
intent(in) :: array
1046 character(
*,SKG) ,
intent(out) :: choice
1047 type(rngf_type) ,
intent(in) :: rng
1052 module subroutine setChoiceRNGF_D0_D0_SK1(rng, choice, array, unique)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D0_D0_SK1
1057 logical(LK) ,
intent(in) ,
optional :: unique
1058 character(
*,SKG) ,
intent(in) :: array
1059 character(
*,SKG) ,
intent(out) :: choice
1060 type(rngf_type) ,
intent(in) :: rng
1073 module subroutine setChoiceRNGF_D1_D0_SK5(rng, choice, array)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_SK5
1078 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1079 character(
len(array,IK),SKG),
intent(out) :: choice
1080 type(rngf_type) ,
intent(in) :: rng
1085 module subroutine setChoiceRNGF_D1_D0_SK4(rng, choice, array)
1086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1087 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_SK4
1090 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1091 character(
len(array,IK),SKG),
intent(out) :: choice
1092 type(rngf_type) ,
intent(in) :: rng
1097 module subroutine setChoiceRNGF_D1_D0_SK3(rng, choice, array)
1098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1099 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_SK3
1102 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1103 character(
len(array,IK),SKG),
intent(out) :: choice
1104 type(rngf_type) ,
intent(in) :: rng
1109 module subroutine setChoiceRNGF_D1_D0_SK2(rng, choice, array)
1110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1111 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_SK2
1114 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1115 character(
len(array,IK),SKG),
intent(out) :: choice
1116 type(rngf_type) ,
intent(in) :: rng
1121 module subroutine setChoiceRNGF_D1_D0_SK1(rng, choice, array)
1122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1123 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_SK1
1126 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1127 character(
len(array,IK),SKG),
intent(out) :: choice
1128 type(rngf_type) ,
intent(in) :: rng
1135 module subroutine setChoiceRNGF_D1_D0_IK5(rng, choice, array)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_IK5
1140 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1141 integer(IKG) ,
intent(out) :: choice
1142 type(rngf_type) ,
intent(in) :: rng
1147 module subroutine setChoiceRNGF_D1_D0_IK4(rng, choice, array)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_IK4
1152 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1153 integer(IKG) ,
intent(out) :: choice
1154 type(rngf_type) ,
intent(in) :: rng
1159 module subroutine setChoiceRNGF_D1_D0_IK3(rng, choice, array)
1160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1161 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_IK3
1164 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1165 integer(IKG) ,
intent(out) :: choice
1166 type(rngf_type) ,
intent(in) :: rng
1171 module subroutine setChoiceRNGF_D1_D0_IK2(rng, choice, array)
1172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1173 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_IK2
1176 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1177 integer(IKG) ,
intent(out) :: choice
1178 type(rngf_type) ,
intent(in) :: rng
1183 module subroutine setChoiceRNGF_D1_D0_IK1(rng, choice, array)
1184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1185 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_IK1
1188 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1189 integer(IKG) ,
intent(out) :: choice
1190 type(rngf_type) ,
intent(in) :: rng
1197 module subroutine setChoiceRNGF_D1_D0_LK5(rng, choice, array)
1198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1199 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_LK5
1202 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1203 logical(LKG) ,
intent(out) :: choice
1204 type(rngf_type) ,
intent(in) :: rng
1209 module subroutine setChoiceRNGF_D1_D0_LK4(rng, choice, array)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_LK4
1214 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1215 logical(LKG) ,
intent(out) :: choice
1216 type(rngf_type) ,
intent(in) :: rng
1221 module subroutine setChoiceRNGF_D1_D0_LK3(rng, choice, array)
1222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1223 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_LK3
1226 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1227 logical(LKG) ,
intent(out) :: choice
1228 type(rngf_type) ,
intent(in) :: rng
1233 module subroutine setChoiceRNGF_D1_D0_LK2(rng, choice, array)
1234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1235 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_LK2
1238 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1239 logical(LKG) ,
intent(out) :: choice
1240 type(rngf_type) ,
intent(in) :: rng
1245 module subroutine setChoiceRNGF_D1_D0_LK1(rng, choice, array)
1246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1247 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_LK1
1250 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1251 logical(LKG) ,
intent(out) :: choice
1252 type(rngf_type) ,
intent(in) :: rng
1259 module subroutine setChoiceRNGF_D1_D0_CK5(rng, choice, array)
1260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1261 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_CK5
1264 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1265 complex(CKG) ,
intent(out) :: choice
1266 type(rngf_type) ,
intent(in) :: rng
1271 module subroutine setChoiceRNGF_D1_D0_CK4(rng, choice, array)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_CK4
1276 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1277 complex(CKG) ,
intent(out) :: choice
1278 type(rngf_type) ,
intent(in) :: rng
1283 module subroutine setChoiceRNGF_D1_D0_CK3(rng, choice, array)
1284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1285 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_CK3
1288 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1289 complex(CKG) ,
intent(out) :: choice
1290 type(rngf_type) ,
intent(in) :: rng
1295 module subroutine setChoiceRNGF_D1_D0_CK2(rng, choice, array)
1296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1297 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_CK2
1300 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1301 complex(CKG) ,
intent(out) :: choice
1302 type(rngf_type) ,
intent(in) :: rng
1307 module subroutine setChoiceRNGF_D1_D0_CK1(rng, choice, array)
1308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1309 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_CK1
1312 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1313 complex(CKG) ,
intent(out) :: choice
1314 type(rngf_type) ,
intent(in) :: rng
1321 module subroutine setChoiceRNGF_D1_D0_RK5(rng, choice, array)
1322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1323 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_RK5
1326 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1327 real(RKG) ,
intent(out) :: choice
1328 type(rngf_type) ,
intent(in) :: rng
1333 module subroutine setChoiceRNGF_D1_D0_RK4(rng, choice, array)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_RK4
1338 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1339 real(RKG) ,
intent(out) :: choice
1340 type(rngf_type) ,
intent(in) :: rng
1345 module subroutine setChoiceRNGF_D1_D0_RK3(rng, choice, array)
1346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1347 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_RK3
1350 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1351 real(RKG) ,
intent(out) :: choice
1352 type(rngf_type) ,
intent(in) :: rng
1357 module subroutine setChoiceRNGF_D1_D0_RK2(rng, choice, array)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_RK2
1362 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1363 real(RKG) ,
intent(out) :: choice
1364 type(rngf_type) ,
intent(in) :: rng
1369 module subroutine setChoiceRNGF_D1_D0_RK1(rng, choice, array)
1370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1371 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D0_RK1
1374 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1375 real(RKG) ,
intent(out) :: choice
1376 type(rngf_type) ,
intent(in) :: rng
1389 module subroutine setChoiceRNGF_D1_D1_SK5(rng, choice, array, unique)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_SK5
1394 logical(LK) ,
intent(in) ,
optional :: unique
1395 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1396 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
1397 type(rngf_type) ,
intent(in) :: rng
1402 module subroutine setChoiceRNGF_D1_D1_SK4(rng, choice, array, unique)
1403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1404 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_SK4
1407 logical(LK) ,
intent(in) ,
optional :: unique
1408 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1409 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
1410 type(rngf_type) ,
intent(in) :: rng
1415 module subroutine setChoiceRNGF_D1_D1_SK3(rng, choice, array, unique)
1416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1417 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_SK3
1420 logical(LK) ,
intent(in) ,
optional :: unique
1421 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1422 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
1423 type(rngf_type) ,
intent(in) :: rng
1428 module subroutine setChoiceRNGF_D1_D1_SK2(rng, choice, array, unique)
1429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1430 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_SK2
1433 logical(LK) ,
intent(in) ,
optional :: unique
1434 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1435 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
1436 type(rngf_type) ,
intent(in) :: rng
1441 module subroutine setChoiceRNGF_D1_D1_SK1(rng, choice, array, unique)
1442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1443 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_SK1
1446 logical(LK) ,
intent(in) ,
optional :: unique
1447 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1448 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
1449 type(rngf_type) ,
intent(in) :: rng
1456 module subroutine setChoiceRNGF_D1_D1_IK5(rng, choice, array, unique)
1457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1458 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_IK5
1461 logical(LK) ,
intent(in) ,
optional :: unique
1462 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1463 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
1464 type(rngf_type) ,
intent(in) :: rng
1469 module subroutine setChoiceRNGF_D1_D1_IK4(rng, choice, array, unique)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_IK4
1474 logical(LK) ,
intent(in) ,
optional :: unique
1475 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1476 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
1477 type(rngf_type) ,
intent(in) :: rng
1482 module subroutine setChoiceRNGF_D1_D1_IK3(rng, choice, array, unique)
1483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1484 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_IK3
1487 logical(LK) ,
intent(in) ,
optional :: unique
1488 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1489 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
1490 type(rngf_type) ,
intent(in) :: rng
1495 module subroutine setChoiceRNGF_D1_D1_IK2(rng, choice, array, unique)
1496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1497 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_IK2
1500 logical(LK) ,
intent(in) ,
optional :: unique
1501 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1502 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
1503 type(rngf_type) ,
intent(in) :: rng
1508 module subroutine setChoiceRNGF_D1_D1_IK1(rng, choice, array, unique)
1509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1510 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_IK1
1513 logical(LK) ,
intent(in) ,
optional :: unique
1514 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1515 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
1516 type(rngf_type) ,
intent(in) :: rng
1523 module subroutine setChoiceRNGF_D1_D1_LK5(rng, choice, array, unique)
1524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1525 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_LK5
1528 logical(LK) ,
intent(in) ,
optional :: unique
1529 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1530 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
1531 type(rngf_type) ,
intent(in) :: rng
1536 module subroutine setChoiceRNGF_D1_D1_LK4(rng, choice, array, unique)
1537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1538 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_LK4
1541 logical(LK) ,
intent(in) ,
optional :: unique
1542 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1543 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
1544 type(rngf_type) ,
intent(in) :: rng
1549 module subroutine setChoiceRNGF_D1_D1_LK3(rng, choice, array, unique)
1550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1551 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_LK3
1554 logical(LK) ,
intent(in) ,
optional :: unique
1555 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1556 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
1557 type(rngf_type) ,
intent(in) :: rng
1562 module subroutine setChoiceRNGF_D1_D1_LK2(rng, choice, array, unique)
1563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1564 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_LK2
1567 logical(LK) ,
intent(in) ,
optional :: unique
1568 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1569 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
1570 type(rngf_type) ,
intent(in) :: rng
1575 module subroutine setChoiceRNGF_D1_D1_LK1(rng, choice, array, unique)
1576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1577 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_LK1
1580 logical(LK) ,
intent(in) ,
optional :: unique
1581 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1582 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
1583 type(rngf_type) ,
intent(in) :: rng
1590 module subroutine setChoiceRNGF_D1_D1_CK5(rng, choice, array, unique)
1591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1592 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_CK5
1595 logical(LK) ,
intent(in) ,
optional :: unique
1596 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1597 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
1598 type(rngf_type) ,
intent(in) :: rng
1603 module subroutine setChoiceRNGF_D1_D1_CK4(rng, choice, array, unique)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_CK4
1608 logical(LK) ,
intent(in) ,
optional :: unique
1609 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1610 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
1611 type(rngf_type) ,
intent(in) :: rng
1616 module subroutine setChoiceRNGF_D1_D1_CK3(rng, choice, array, unique)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_CK3
1621 logical(LK) ,
intent(in) ,
optional :: unique
1622 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1623 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
1624 type(rngf_type) ,
intent(in) :: rng
1629 module subroutine setChoiceRNGF_D1_D1_CK2(rng, choice, array, unique)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_CK2
1634 logical(LK) ,
intent(in) ,
optional :: unique
1635 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1636 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
1637 type(rngf_type) ,
intent(in) :: rng
1642 module subroutine setChoiceRNGF_D1_D1_CK1(rng, choice, array, unique)
1643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1644 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_CK1
1647 logical(LK) ,
intent(in) ,
optional :: unique
1648 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1649 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
1650 type(rngf_type) ,
intent(in) :: rng
1657 module subroutine setChoiceRNGF_D1_D1_RK5(rng, choice, array, unique)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_RK5
1662 logical(LK) ,
intent(in) ,
optional :: unique
1663 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1664 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
1665 type(rngf_type) ,
intent(in) :: rng
1670 module subroutine setChoiceRNGF_D1_D1_RK4(rng, choice, array, unique)
1671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1672 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_RK4
1675 logical(LK) ,
intent(in) ,
optional :: unique
1676 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1677 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
1678 type(rngf_type) ,
intent(in) :: rng
1683 module subroutine setChoiceRNGF_D1_D1_RK3(rng, choice, array, unique)
1684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1685 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_RK3
1688 logical(LK) ,
intent(in) ,
optional :: unique
1689 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1690 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
1691 type(rngf_type) ,
intent(in) :: rng
1696 module subroutine setChoiceRNGF_D1_D1_RK2(rng, choice, array, unique)
1697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1698 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_RK2
1701 logical(LK) ,
intent(in) ,
optional :: unique
1702 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1703 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
1704 type(rngf_type) ,
intent(in) :: rng
1709 module subroutine setChoiceRNGF_D1_D1_RK1(rng, choice, array, unique)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGF_D1_D1_RK1
1714 logical(LK) ,
intent(in) ,
optional :: unique
1715 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1716 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
1717 type(rngf_type) ,
intent(in) :: rng
1734 PURE module subroutine setChoiceRNGX_D0_D0_SK5(rng, choice, array, unique)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D0_D0_SK5
1739 logical(LK) ,
intent(in) ,
optional :: unique
1740 character(
*,SKG) ,
intent(in) :: array
1741 character(
*,SKG) ,
intent(out) :: choice
1742 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1747 PURE module subroutine setChoiceRNGX_D0_D0_SK4(rng, choice, array, unique)
1748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1749 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D0_D0_SK4
1752 logical(LK) ,
intent(in) ,
optional :: unique
1753 character(
*,SKG) ,
intent(in) :: array
1754 character(
*,SKG) ,
intent(out) :: choice
1755 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1760 PURE module subroutine setChoiceRNGX_D0_D0_SK3(rng, choice, array, unique)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D0_D0_SK3
1765 logical(LK) ,
intent(in) ,
optional :: unique
1766 character(
*,SKG) ,
intent(in) :: array
1767 character(
*,SKG) ,
intent(out) :: choice
1768 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1773 PURE module subroutine setChoiceRNGX_D0_D0_SK2(rng, choice, array, unique)
1774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1775 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D0_D0_SK2
1778 logical(LK) ,
intent(in) ,
optional :: unique
1779 character(
*,SKG) ,
intent(in) :: array
1780 character(
*,SKG) ,
intent(out) :: choice
1781 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1786 PURE module subroutine setChoiceRNGX_D0_D0_SK1(rng, choice, array, unique)
1787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1788 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D0_D0_SK1
1791 logical(LK) ,
intent(in) ,
optional :: unique
1792 character(
*,SKG) ,
intent(in) :: array
1793 character(
*,SKG) ,
intent(out) :: choice
1794 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1807 PURE module subroutine setChoiceRNGX_D1_D0_SK5(rng, choice, array)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_SK5
1812 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1813 character(
len(array,IK),SKG),
intent(out) :: choice
1814 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1819 PURE module subroutine setChoiceRNGX_D1_D0_SK4(rng, choice, array)
1820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1821 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_SK4
1824 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1825 character(
len(array,IK),SKG),
intent(out) :: choice
1826 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1831 PURE module subroutine setChoiceRNGX_D1_D0_SK3(rng, choice, array)
1832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1833 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_SK3
1836 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1837 character(
len(array,IK),SKG),
intent(out) :: choice
1838 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1843 PURE module subroutine setChoiceRNGX_D1_D0_SK2(rng, choice, array)
1844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1845 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_SK2
1848 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1849 character(
len(array,IK),SKG),
intent(out) :: choice
1850 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1855 PURE module subroutine setChoiceRNGX_D1_D0_SK1(rng, choice, array)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_SK1
1860 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1861 character(
len(array,IK),SKG),
intent(out) :: choice
1862 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1869 PURE module subroutine setChoiceRNGX_D1_D0_IK5(rng, choice, array)
1870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1871 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_IK5
1874 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1875 integer(IKG) ,
intent(out) :: choice
1876 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1881 PURE module subroutine setChoiceRNGX_D1_D0_IK4(rng, choice, array)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_IK4
1886 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1887 integer(IKG) ,
intent(out) :: choice
1888 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1893 PURE module subroutine setChoiceRNGX_D1_D0_IK3(rng, choice, array)
1894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1895 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_IK3
1898 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1899 integer(IKG) ,
intent(out) :: choice
1900 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1905 PURE module subroutine setChoiceRNGX_D1_D0_IK2(rng, choice, array)
1906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1907 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_IK2
1910 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1911 integer(IKG) ,
intent(out) :: choice
1912 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1917 PURE module subroutine setChoiceRNGX_D1_D0_IK1(rng, choice, array)
1918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1919 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_IK1
1922 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1923 integer(IKG) ,
intent(out) :: choice
1924 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1931 PURE module subroutine setChoiceRNGX_D1_D0_LK5(rng, choice, array)
1932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1933 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_LK5
1936 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1937 logical(LKG) ,
intent(out) :: choice
1938 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1943 PURE module subroutine setChoiceRNGX_D1_D0_LK4(rng, choice, array)
1944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1945 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_LK4
1948 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1949 logical(LKG) ,
intent(out) :: choice
1950 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1955 PURE module subroutine setChoiceRNGX_D1_D0_LK3(rng, choice, array)
1956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1957 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_LK3
1960 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1961 logical(LKG) ,
intent(out) :: choice
1962 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1967 PURE module subroutine setChoiceRNGX_D1_D0_LK2(rng, choice, array)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_LK2
1972 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1973 logical(LKG) ,
intent(out) :: choice
1974 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1979 PURE module subroutine setChoiceRNGX_D1_D0_LK1(rng, choice, array)
1980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1981 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_LK1
1984 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1985 logical(LKG) ,
intent(out) :: choice
1986 type(xoshiro256ssw_type) ,
intent(inout) :: rng
1993 PURE module subroutine setChoiceRNGX_D1_D0_CK5(rng, choice, array)
1994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1995 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_CK5
1998 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1999 complex(CKG) ,
intent(out) :: choice
2000 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2005 PURE module subroutine setChoiceRNGX_D1_D0_CK4(rng, choice, array)
2006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2007 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_CK4
2010 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2011 complex(CKG) ,
intent(out) :: choice
2012 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2017 PURE module subroutine setChoiceRNGX_D1_D0_CK3(rng, choice, array)
2018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2019 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_CK3
2022 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2023 complex(CKG) ,
intent(out) :: choice
2024 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2029 PURE module subroutine setChoiceRNGX_D1_D0_CK2(rng, choice, array)
2030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2031 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_CK2
2034 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2035 complex(CKG) ,
intent(out) :: choice
2036 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2041 PURE module subroutine setChoiceRNGX_D1_D0_CK1(rng, choice, array)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_CK1
2046 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2047 complex(CKG) ,
intent(out) :: choice
2048 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2055 PURE module subroutine setChoiceRNGX_D1_D0_RK5(rng, choice, array)
2056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2057 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_RK5
2060 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2061 real(RKG) ,
intent(out) :: choice
2062 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2067 PURE module subroutine setChoiceRNGX_D1_D0_RK4(rng, choice, array)
2068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2069 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_RK4
2072 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2073 real(RKG) ,
intent(out) :: choice
2074 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2079 PURE module subroutine setChoiceRNGX_D1_D0_RK3(rng, choice, array)
2080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2081 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_RK3
2084 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2085 real(RKG) ,
intent(out) :: choice
2086 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2091 PURE module subroutine setChoiceRNGX_D1_D0_RK2(rng, choice, array)
2092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2093 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_RK2
2096 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2097 real(RKG) ,
intent(out) :: choice
2098 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2103 PURE module subroutine setChoiceRNGX_D1_D0_RK1(rng, choice, array)
2104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2105 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D0_RK1
2108 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2109 real(RKG) ,
intent(out) :: choice
2110 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2123 PURE module subroutine setChoiceRNGX_D1_D1_SK5(rng, choice, array, unique)
2124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2125 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_SK5
2128 logical(LK) ,
intent(in) ,
optional :: unique
2129 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2130 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
2131 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2136 PURE module subroutine setChoiceRNGX_D1_D1_SK4(rng, choice, array, unique)
2137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2138 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_SK4
2141 logical(LK) ,
intent(in) ,
optional :: unique
2142 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2143 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
2144 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2149 PURE module subroutine setChoiceRNGX_D1_D1_SK3(rng, choice, array, unique)
2150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2151 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_SK3
2154 logical(LK) ,
intent(in) ,
optional :: unique
2155 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2156 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
2157 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2162 PURE module subroutine setChoiceRNGX_D1_D1_SK2(rng, choice, array, unique)
2163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2164 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_SK2
2167 logical(LK) ,
intent(in) ,
optional :: unique
2168 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2169 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
2170 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2175 PURE module subroutine setChoiceRNGX_D1_D1_SK1(rng, choice, array, unique)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_SK1
2180 logical(LK) ,
intent(in) ,
optional :: unique
2181 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2182 character(
len(array,IK),SKG),
intent(out) ,
contiguous :: choice(:)
2183 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2190 PURE module subroutine setChoiceRNGX_D1_D1_IK5(rng, choice, array, unique)
2191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2192 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_IK5
2195 logical(LK) ,
intent(in) ,
optional :: unique
2196 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2197 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
2198 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2203 PURE module subroutine setChoiceRNGX_D1_D1_IK4(rng, choice, array, unique)
2204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2205 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_IK4
2208 logical(LK) ,
intent(in) ,
optional :: unique
2209 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2210 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
2211 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2216 PURE module subroutine setChoiceRNGX_D1_D1_IK3(rng, choice, array, unique)
2217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2218 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_IK3
2221 logical(LK) ,
intent(in) ,
optional :: unique
2222 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2223 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
2224 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2229 PURE module subroutine setChoiceRNGX_D1_D1_IK2(rng, choice, array, unique)
2230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2231 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_IK2
2234 logical(LK) ,
intent(in) ,
optional :: unique
2235 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2236 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
2237 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2242 PURE module subroutine setChoiceRNGX_D1_D1_IK1(rng, choice, array, unique)
2243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2244 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_IK1
2247 logical(LK) ,
intent(in) ,
optional :: unique
2248 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2249 integer(IKG) ,
intent(out) ,
contiguous :: choice(:)
2250 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2257 PURE module subroutine setChoiceRNGX_D1_D1_LK5(rng, choice, array, unique)
2258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2259 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_LK5
2262 logical(LK) ,
intent(in) ,
optional :: unique
2263 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2264 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
2265 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2270 PURE module subroutine setChoiceRNGX_D1_D1_LK4(rng, choice, array, unique)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_LK4
2275 logical(LK) ,
intent(in) ,
optional :: unique
2276 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2277 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
2278 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2283 PURE module subroutine setChoiceRNGX_D1_D1_LK3(rng, choice, array, unique)
2284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2285 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_LK3
2288 logical(LK) ,
intent(in) ,
optional :: unique
2289 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2290 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
2291 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2296 PURE module subroutine setChoiceRNGX_D1_D1_LK2(rng, choice, array, unique)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_LK2
2301 logical(LK) ,
intent(in) ,
optional :: unique
2302 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2303 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
2304 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2309 PURE module subroutine setChoiceRNGX_D1_D1_LK1(rng, choice, array, unique)
2310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2311 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_LK1
2314 logical(LK) ,
intent(in) ,
optional :: unique
2315 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2316 logical(LKG) ,
intent(out) ,
contiguous :: choice(:)
2317 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2324 PURE module subroutine setChoiceRNGX_D1_D1_CK5(rng, choice, array, unique)
2325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2326 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_CK5
2329 logical(LK) ,
intent(in) ,
optional :: unique
2330 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2331 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
2332 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2337 PURE module subroutine setChoiceRNGX_D1_D1_CK4(rng, choice, array, unique)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_CK4
2342 logical(LK) ,
intent(in) ,
optional :: unique
2343 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2344 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
2345 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2350 PURE module subroutine setChoiceRNGX_D1_D1_CK3(rng, choice, array, unique)
2351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2352 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_CK3
2355 logical(LK) ,
intent(in) ,
optional :: unique
2356 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2357 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
2358 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2363 PURE module subroutine setChoiceRNGX_D1_D1_CK2(rng, choice, array, unique)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_CK2
2368 logical(LK) ,
intent(in) ,
optional :: unique
2369 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2370 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
2371 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2376 PURE module subroutine setChoiceRNGX_D1_D1_CK1(rng, choice, array, unique)
2377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2378 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_CK1
2381 logical(LK) ,
intent(in) ,
optional :: unique
2382 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2383 complex(CKG) ,
intent(out) ,
contiguous :: choice(:)
2384 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2391 PURE module subroutine setChoiceRNGX_D1_D1_RK5(rng, choice, array, unique)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_RK5
2396 logical(LK) ,
intent(in) ,
optional :: unique
2397 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2398 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
2399 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2404 PURE module subroutine setChoiceRNGX_D1_D1_RK4(rng, choice, array, unique)
2405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2406 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_RK4
2409 logical(LK) ,
intent(in) ,
optional :: unique
2410 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2411 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
2412 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2417 PURE module subroutine setChoiceRNGX_D1_D1_RK3(rng, choice, array, unique)
2418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2419 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_RK3
2422 logical(LK) ,
intent(in) ,
optional :: unique
2423 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2424 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
2425 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2430 PURE module subroutine setChoiceRNGX_D1_D1_RK2(rng, choice, array, unique)
2431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2432 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_RK2
2435 logical(LK) ,
intent(in) ,
optional :: unique
2436 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2437 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
2438 type(xoshiro256ssw_type) ,
intent(inout) :: rng
2443 PURE module subroutine setChoiceRNGX_D1_D1_RK1(rng, choice, array, unique)
2444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2445 !DEC$ ATTRIBUTES DLLEXPORT :: setChoiceRNGX_D1_D1_RK1
2448 logical(LK) ,
intent(in) ,
optional :: unique
2449 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2450 real(RKG) ,
intent(out) ,
contiguous :: choice(:)
2451 type(xoshiro256ssw_type) ,
intent(inout) :: rng
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
This module contains procedures and generic interfaces for selecting uniformly-distributed or arbitra...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
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 is a concrete derived type whose instances can be used to define/request the default uniform ran...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...