17 type(display_type) :: disp
18 integer(IK) :: count, itry, ntry
= 10
19 type(xoshiro256ssw_type) :: rng
24 character(:),
allocatable :: choice, array
28 call disp%show(
"count = getUnifRand(4, 10)")
30 call disp%show(
"array = getUnifRand(repeat('A', count), repeat('Z', count)) ! generate random array for illustration.")
31 array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
33 call disp%show( array, deliml
= SK_
"""" )
34 call disp%show(
"call setResized(choice, 1)")
36 call disp%show(
"call setChoice(rng, choice, array)")
39 call disp%show( choice, deliml
= SK_
"""" )
40 call disp%show(
"count = getUnifRand(1, 2 * len(array))")
44 call disp%show(
"call setResized(choice, count)")
46 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
49 call disp%show( choice, deliml
= SK_
"""" )
50 call disp%show(
"count = getUnifRand(1, len(array))")
54 call disp%show(
"call setResized(choice, count)")
56 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
57 call setChoice(rng, choice, array, unique
= .true._LK)
59 call disp%show( choice, deliml
= SK_
"""" )
65 character(
2),
allocatable :: choice(:), array(:)
69 call disp%show(
"count = getUnifRand(4, 10)")
71 call disp%show(
"array = getUnifRand('AA', 'ZZ', count) ! generate random array for illustration.")
74 call disp%show( array, deliml
= SK_
"""" )
75 call disp%show(
"call setResized(choice, 1)")
77 call disp%show(
"choice = [getChoice(array)]")
80 call disp%show( choice, deliml
= SK_
"""" )
81 call disp%show(
"count = getUnifRand(1, len(array))")
85 call disp%show(
"call setResized(choice, count)")
87 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
90 call disp%show( choice, deliml
= SK_
"""" )
91 call disp%show(
"count = getUnifRand(1, size(array))")
95 call disp%show(
"call setResized(choice, count)")
97 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
98 call setChoice(rng, choice, array, unique
= .true._LK)
100 call disp%show( choice, deliml
= SK_
"""" )
106 integer,
allocatable :: choice(:), array(:)
110 call disp%show(
"array = getUnifRand(1, 20, getUnifRand(4, 10)) ! generate random array for illustration.")
114 call disp%show(
"call setResized(choice, 1)")
116 call disp%show(
"choice = [getChoice(array)]")
120 call disp%show(
"count = getUnifRand(1, 2 * size(array))")
124 call disp%show(
"call setResized(choice, count)")
126 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
130 call disp%show(
"count = getUnifRand(1, size(array))")
134 call disp%show(
"call setResized(choice, count)")
136 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
137 call setChoice(rng, choice, array, unique
= .true._LK)
145 logical,
allocatable :: choice(:), array(:)
149 call disp%show(
"array = getUnifRand(.false., .true., getUnifRand(4, 10)) ! generate random array for illustration.")
153 call disp%show(
"call setResized(choice, 1)")
155 call disp%show(
"choice = [getChoice(array)]")
159 call disp%show(
"count = getUnifRand(1, 2 * size(array))")
163 call disp%show(
"call setResized(choice, count)")
165 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
169 call disp%show(
"count = getUnifRand(1, size(array))")
173 call disp%show(
"call setResized(choice, count)")
175 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
176 call setChoice(rng, choice, array, unique
= .true._LK)
184 complex,
allocatable :: choice(:), array(:)
188 call disp%show(
"array = getUnifRand((0., 0.), (1., 1.), getUnifRand(4, 10)) ! generate random array for illustration.")
192 call disp%show(
"call setResized(choice, 1)")
194 call disp%show(
"choice = [getChoice(array)]")
198 call disp%show(
"count = getUnifRand(1, 2 * size(array))")
202 call disp%show(
"call setResized(choice, count)")
204 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
208 call disp%show(
"count = getUnifRand(1, size(array))")
212 call disp%show(
"call setResized(choice, count)")
214 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
215 call setChoice(rng, choice, array, unique
= .true._LK)
223 real,
allocatable :: choice(:), array(:)
227 call disp%show(
"array = getUnifRand(0., 1., getUnifRand(4, 10)) ! generate random array for illustration.")
231 call disp%show(
"call setResized(choice, 1)")
233 call disp%show(
"choice = [getChoice(array)]")
237 call disp%show(
"count = getUnifRand(1, 2 * size(array))")
241 call disp%show(
"call setResized(choice, count)")
243 call disp%show(
"call setChoice(rng, choice, array) ! draw randomly only `count` elements with replacement.")
247 call disp%show(
"count = getUnifRand(1, size(array))")
251 call disp%show(
"call setResized(choice, count)")
253 call disp%show(
"call setChoice(rng, choice, array, unique = .true._LK) ! draw randomly only `count` elements without replacement.")
254 call setChoice(rng, choice, array, unique
= .true._LK)
Select a single (or multiple) element(s) from the input array of intrinsic type of arbitrary kind ran...
Generate minimally-spaced character, integer, real sequences or sequences at fixed intervals of size ...
Allocate or resize (shrink or expand) an input allocatable scalar string or array of rank 1....
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
This module contains procedures and generic interfaces for generating ranges of discrete character,...
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter CK
The default complex kind in the ParaMonte library: real64 in Fortran, c_double_complex in C-Fortran I...
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 the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...
Generate and return an object of type display_type.
3array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
21call setChoice(rng, choice, array, unique
= .true._LK)
26array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
44call setChoice(rng, choice, array, unique
= .true._LK)
49array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
67call setChoice(rng, choice, array, unique
= .true._LK)
72array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
90call setChoice(rng, choice, array, unique
= .true._LK)
95array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
113call setChoice(rng, choice, array, unique
= .true._LK)
118array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
136call setChoice(rng, choice, array, unique
= .true._LK)
141array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
159call setChoice(rng, choice, array, unique
= .true._LK)
164array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
182call setChoice(rng, choice, array, unique
= .true._LK)
187array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
205call setChoice(rng, choice, array, unique
= .true._LK)
210array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
228call setChoice(rng, choice, array, unique
= .true._LK)
235"LV",
"CN",
"UX",
"NV",
"YP",
"HN",
"WZ",
"UB",
"LW",
"JF"
251call setChoice(rng, choice, array, unique
= .true._LK)
253"HN",
"UX",
"NV",
"JF",
"YP"
258"SL",
"LK",
"RB",
"GQ"
274call setChoice(rng, choice, array, unique
= .true._LK)
281"IT",
"DI",
"MK",
"MS",
"PN",
"DC",
"YJ"
297call setChoice(rng, choice, array, unique
= .true._LK)
299"DI",
"IT",
"MK",
"MS",
"DC",
"PN"
304"IT",
"QL",
"KK",
"TE",
"DO",
"VQ",
"SV",
"GT",
"KN",
"YK"
320call setChoice(rng, choice, array, unique
= .true._LK)
322"GT",
"KK",
"KN",
"YK",
"SV"
327"BR",
"WB",
"EI",
"KC",
"LP",
"TC",
"QG",
"AT",
"OB"
343call setChoice(rng, choice, array, unique
= .true._LK)
345"AT",
"QG",
"EI",
"TC",
"BR",
"KC",
"LP",
"OB",
"WB"
350"LA",
"GC",
"FT",
"FE",
"GM"
366call setChoice(rng, choice, array, unique
= .true._LK)
368"GC",
"GM",
"FT",
"FE",
"LA"
373"TU",
"PH",
"WM",
"AO",
"EM",
"XH"
389call setChoice(rng, choice, array, unique
= .true._LK)
391"AO",
"EM",
"TU",
"XH",
"PH",
"WM"
396"WT",
"MZ",
"HB",
"ZV",
"US",
"YZ"
412call setChoice(rng, choice, array, unique
= .true._LK)
419"GE",
"WF",
"LH",
"IA",
"RY",
"QT"
435call setChoice(rng, choice, array, unique
= .true._LK)
442"PH",
"EB",
"NG",
"DK",
"JM"
458call setChoice(rng, choice, array, unique
= .true._LK)
464+18,
+13,
+19,
+2,
+17,
+16,
+8,
+3,
+1
475+13,
+8,
+3,
+8,
+1,
+3
480call setChoice(rng, choice, array, unique
= .true._LK)
482+2,
+13,
+8,
+18,
+16,
+19
486+17,
+12,
+18,
+14,
+7,
+6,
+6,
+18
497+17,
+17,
+18,
+12,
+7
502call setChoice(rng, choice, array, unique
= .true._LK)
508+14,
+2,
+4,
+10,
+18,
+16,
+8
524call setChoice(rng, choice, array, unique
= .true._LK)
530+7,
+19,
+13,
+9,
+5,
+11
541+9,
+7,
+7,
+13,
+7,
+9
546call setChoice(rng, choice, array, unique
= .true._LK)
552+12,
+1,
+15,
+16,
+5,
+7,
+7,
+12
568call setChoice(rng, choice, array, unique
= .true._LK)
570+15,
+5,
+7,
+1,
+7,
+16,
+12,
+12
574+6,
+10,
+3,
+13,
+11,
+3,
+11
590call setChoice(rng, choice, array, unique
= .true._LK)
607+2,
+2,
+9,
+9,
+2,
+2,
+20,
+20,
+9
612call setChoice(rng, choice, array, unique
= .true._LK)
634call setChoice(rng, choice, array, unique
= .true._LK)
651+10,
+15,
+5,
+15,
+14,
+9,
+15,
+15,
+14,
+15
656call setChoice(rng, choice, array, unique
= .true._LK)
678call setChoice(rng, choice, array, unique
= .true._LK)
684F, T, T, T, T, F, T, T, T
700call setChoice(rng, choice, array, unique
= .true._LK)
702F, T, T, F, T, T, T, T
706F, F, T, F, F, T, F, T, T
717F, F, F, F, F, T, F, F, T, F, F
722call setChoice(rng, choice, array, unique
= .true._LK)
744call setChoice(rng, choice, array, unique
= .true._LK)
766call setChoice(rng, choice, array, unique
= .true._LK)
783T, F, F, T, F, T, T, F
788call setChoice(rng, choice, array, unique
= .true._LK)
810call setChoice(rng, choice, array, unique
= .true._LK)
816F, F, F, T, F, F, T, F, T, F
827F, F, F, F, F, T, F, F, F
832call setChoice(rng, choice, array, unique
= .true._LK)
838F, T, F, T, F, F, F, F
849F, F, T, F, F, T, F, F, F, F, F, T, F, F, F, F
854call setChoice(rng, choice, array, unique
= .true._LK)
860F, F, T, F, T, F, F, F, T
871F, T, F, T, F, T, F, F, F, T
876call setChoice(rng, choice, array, unique
= .true._LK)
878F, T, T, F, T, F, F, F
882F, T, F, T, T, F, F, F
893F, F, F, T, F, T, T, T, F, F
898call setChoice(rng, choice, array, unique
= .true._LK)
904(
+0.321758986E-1,
+0.436684489E-1), (
+0.393458962,
+0.663707316), (
+0.972148955,
+0.374623656), (
+0.214533329,
+0.869868755), (
+0.948202014,
+0.972358584), (
+0.922570407,
+0.226962507), (
+0.562510073,
+0.287059128), (
+0.571668148E-1,
+0.468724608), (
+0.559585154,
+0.382184982)
908(
+0.559585154,
+0.382184982)
915(
+0.571668148E-1,
+0.468724608), (
+0.972148955,
+0.374623656), (
+0.559585154,
+0.382184982), (
+0.571668148E-1,
+0.468724608), (
+0.948202014,
+0.972358584), (
+0.321758986E-1,
+0.436684489E-1)
920call setChoice(rng, choice, array, unique
= .true._LK)
922(
+0.571668148E-1,
+0.468724608), (
+0.972148955,
+0.374623656), (
+0.321758986E-1,
+0.436684489E-1), (
+0.562510073,
+0.287059128), (
+0.214533329,
+0.869868755), (
+0.559585154,
+0.382184982), (
+0.948202014,
+0.972358584), (
+0.393458962,
+0.663707316)
926(
+0.765638411,
+0.528921127), (
+0.730202317,
+0.668713272), (
+0.590892315,
+0.206144691), (
+0.150284529,
+0.865757287), (
+0.542481124,
+0.657548904), (
+0.686655164,
+0.352084219), (
+0.370543242,
+0.309225142), (
+0.556847572,
+0.942876697)
930(
+0.765638411,
+0.528921127)
937(
+0.556847572,
+0.942876697), (
+0.590892315,
+0.206144691), (
+0.730202317,
+0.668713272)
942call setChoice(rng, choice, array, unique
= .true._LK)
944(
+0.765638411,
+0.528921127), (
+0.370543242,
+0.309225142), (
+0.150284529,
+0.865757287), (
+0.556847572,
+0.942876697), (
+0.590892315,
+0.206144691)
948(
+0.313464940,
+0.886229873), (
+0.632011294,
+0.267050862E-1), (
+0.662101567,
+0.906833351), (
+0.397894382,
+0.559581399), (
+0.577065825,
+0.437116563)
952(
+0.577065825,
+0.437116563)
959(
+0.313464940,
+0.886229873), (
+0.313464940,
+0.886229873), (
+0.577065825,
+0.437116563), (
+0.577065825,
+0.437116563), (
+0.632011294,
+0.267050862E-1), (
+0.397894382,
+0.559581399), (
+0.662101567,
+0.906833351), (
+0.662101567,
+0.906833351), (
+0.313464940,
+0.886229873)
964call setChoice(rng, choice, array, unique
= .true._LK)
966(
+0.397894382,
+0.559581399), (
+0.632011294,
+0.267050862E-1), (
+0.313464940,
+0.886229873)
970(
+0.134102106E-1,
+0.891191304), (
+0.839479566,
+0.277248979), (
+0.156475008,
+0.280801058E-1), (
+0.256280899E-1,
+0.428005874), (
+0.264160335,
+0.702589452), (
+0.409379542,
+0.182389617), (
+0.836651385,
+0.351370931), (
+0.323208570E-1,
+0.147917926)
974(
+0.409379542,
+0.182389617)
981(
+0.836651385,
+0.351370931), (
+0.134102106E-1,
+0.891191304), (
+0.156475008,
+0.280801058E-1), (
+0.256280899E-1,
+0.428005874), (
+0.836651385,
+0.351370931), (
+0.156475008,
+0.280801058E-1), (
+0.256280899E-1,
+0.428005874), (
+0.264160335,
+0.702589452), (
+0.409379542,
+0.182389617), (
+0.839479566,
+0.277248979), (
+0.839479566,
+0.277248979), (
+0.839479566,
+0.277248979)
986call setChoice(rng, choice, array, unique
= .true._LK)
988(
+0.409379542,
+0.182389617), (
+0.256280899E-1,
+0.428005874), (
+0.839479566,
+0.277248979), (
+0.134102106E-1,
+0.891191304), (
+0.264160335,
+0.702589452), (
+0.323208570E-1,
+0.147917926), (
+0.836651385,
+0.351370931)
992(
+0.703502834,
+0.951751649), (
+0.512730241,
+0.379824638E-2), (
+0.665100634,
+0.688773990E-1), (
+0.599192619,
+0.816661358), (
+0.576102912,
+0.749669194)
996(
+0.703502834,
+0.951751649)
1003(
+0.703502834,
+0.951751649), (
+0.665100634,
+0.688773990E-1), (
+0.576102912,
+0.749669194), (
+0.599192619,
+0.816661358), (
+0.665100634,
+0.688773990E-1), (
+0.512730241,
+0.379824638E-2), (
+0.665100634,
+0.688773990E-1), (
+0.576102912,
+0.749669194), (
+0.512730241,
+0.379824638E-2), (
+0.703502834,
+0.951751649)
1008call setChoice(rng, choice, array, unique
= .true._LK)
1010(
+0.665100634,
+0.688773990E-1), (
+0.576102912,
+0.749669194), (
+0.599192619,
+0.816661358), (
+0.703502834,
+0.951751649), (
+0.512730241,
+0.379824638E-2)
1014(
+0.122167230,
+0.269889295), (
+0.861952305,
+0.589726567), (
+0.859772146,
+0.329113603), (
+0.804813325,
+0.529045463), (
+0.441271007,
+0.740462482), (
+0.508821964,
+0.415596902), (
+0.838600576,
+0.825728297)
1018(
+0.838600576,
+0.825728297)
1025(
+0.838600576,
+0.825728297), (
+0.804813325,
+0.529045463)
1030call setChoice(rng, choice, array, unique
= .true._LK)
1032(
+0.441271007,
+0.740462482), (
+0.838600576,
+0.825728297)
1036(
+0.205297351,
+0.512369454), (
+0.383617520,
+0.988043070), (
+0.157271147,
+0.489999354), (
+0.257513344,
+0.863400638)
1040(
+0.383617520,
+0.988043070)
1047(
+0.383617520,
+0.988043070), (
+0.383617520,
+0.988043070), (
+0.383617520,
+0.988043070), (
+0.257513344,
+0.863400638)
1052call setChoice(rng, choice, array, unique
= .true._LK)
1054(
+0.157271147,
+0.489999354), (
+0.205297351,
+0.512369454)
1058(
+0.554530084,
+0.562736928), (
+0.613567233,
+0.415495753), (
+0.858100057,
+0.175361753), (
+0.586892664,
+0.909363210), (
+0.765267372,
+0.841461062), (
+0.219010770,
+0.283888638), (
+0.261481643,
+0.199519217), (
+0.924268484,
+0.517601132)
1062(
+0.613567233,
+0.415495753)
1069(
+0.858100057,
+0.175361753), (
+0.924268484,
+0.517601132), (
+0.586892664,
+0.909363210), (
+0.924268484,
+0.517601132), (
+0.586892664,
+0.909363210), (
+0.219010770,
+0.283888638), (
+0.586892664,
+0.909363210), (
+0.586892664,
+0.909363210), (
+0.765267372,
+0.841461062), (
+0.219010770,
+0.283888638), (
+0.261481643,
+0.199519217), (
+0.765267372,
+0.841461062), (
+0.765267372,
+0.841461062)
1074call setChoice(rng, choice, array, unique
= .true._LK)
1076(
+0.219010770,
+0.283888638), (
+0.554530084,
+0.562736928), (
+0.858100057,
+0.175361753), (
+0.924268484,
+0.517601132), (
+0.613567233,
+0.415495753), (
+0.765267372,
+0.841461062), (
+0.586892664,
+0.909363210), (
+0.261481643,
+0.199519217)
1080(
+0.960497379,
+0.769384205), (
+0.271489382,
+0.780470967E-1), (
+0.937066019,
+0.433604479), (
+0.660716355,
+0.832222998), (
+0.141299963E-1,
+0.204415619), (
+0.324728727,
+0.537358820)
1084(
+0.271489382,
+0.780470967E-1)
1091(
+0.324728727,
+0.537358820), (
+0.937066019,
+0.433604479), (
+0.271489382,
+0.780470967E-1), (
+0.324728727,
+0.537358820), (
+0.937066019,
+0.433604479), (
+0.937066019,
+0.433604479), (
+0.960497379,
+0.769384205), (
+0.660716355,
+0.832222998), (
+0.960497379,
+0.769384205)
1096call setChoice(rng, choice, array, unique
= .true._LK)
1098(
+0.141299963E-1,
+0.204415619), (
+0.271489382,
+0.780470967E-1), (
+0.324728727,
+0.537358820)
1102(
+0.476521254E-2,
+0.682721615), (
+0.228210747,
+0.952042520), (
+0.802704334,
+0.237853467), (
+0.407156587,
+0.494337142), (
+0.118468225,
+0.966415405), (
+0.406871617,
+0.611795723), (
+0.715928078,
+0.749946475), (
+0.333191156,
+0.360447168), (
+0.129752696,
+0.141776085)
1106(
+0.333191156,
+0.360447168)
1113(
+0.333191156,
+0.360447168), (
+0.476521254E-2,
+0.682721615), (
+0.129752696,
+0.141776085), (
+0.129752696,
+0.141776085), (
+0.715928078,
+0.749946475), (
+0.333191156,
+0.360447168)
1118call setChoice(rng, choice, array, unique
= .true._LK)
1120(
+0.333191156,
+0.360447168), (
+0.407156587,
+0.494337142), (
+0.118468225,
+0.966415405), (
+0.228210747,
+0.952042520)
1124+0.544557095,
+0.750966728,
+0.506333888,
+0.831639111,
+0.322318971,
+0.821950316,
+0.694896877
1135+0.831639111,
+0.750966728,
+0.831639111
1140call setChoice(rng, choice, array, unique
= .true._LK)
1142+0.544557095,
+0.506333888,
+0.750966728
1146+0.657208443,
+0.462386549,
+0.923881471,
+0.686686814,
+0.922647655,
+0.123460650
1157+0.462386549,
+0.923881471,
+0.657208443,
+0.123460650,
+0.922647655,
+0.123460650
1162call setChoice(rng, choice, array, unique
= .true._LK)
1164+0.123460650,
+0.922647655,
+0.923881471,
+0.686686814
1168+0.517813504,
+0.272744000,
+0.500072122,
+0.790790796,
+0.212759912,
+0.209212005,
+0.674435914,
+0.542035460
1179+0.542035460,
+0.212759912,
+0.542035460,
+0.272744000,
+0.542035460,
+0.212759912,
+0.500072122,
+0.212759912,
+0.500072122,
+0.542035460,
+0.212759912
1184call setChoice(rng, choice, array, unique
= .true._LK)
1186+0.674435914,
+0.209212005
1190+0.817958593,
+0.810731232,
+0.347444177,
+0.632826984,
+0.513516903,
+0.459485412,
+0.868218660,
+0.655239224E-1
1201+0.868218660,
+0.868218660,
+0.459485412,
+0.868218660,
+0.810731232,
+0.810731232,
+0.817958593,
+0.817958593,
+0.810731232,
+0.817958593,
+0.459485412,
+0.655239224E-1,
+0.810731232,
+0.868218660,
+0.459485412,
+0.868218660
1206call setChoice(rng, choice, array, unique
= .true._LK)
1212+0.507107735,
+0.395252705E-1,
+0.651863039,
+0.903864682,
+0.711727619,
+0.165923178,
+0.956228971,
+0.481013060
1228call setChoice(rng, choice, array, unique
= .true._LK)
1230+0.165923178,
+0.651863039,
+0.507107735,
+0.956228971
1234+0.703804195,
+0.794124484,
+0.746079087,
+0.716942549,
+0.510469317,
+0.549602509E-2
1245+0.746079087,
+0.716942549,
+0.716942549,
+0.794124484,
+0.703804195,
+0.716942549,
+0.510469317,
+0.703804195,
+0.746079087
1250call setChoice(rng, choice, array, unique
= .true._LK)
1252+0.794124484,
+0.716942549,
+0.703804195,
+0.510469317,
+0.549602509E-2
1256+0.436637223,
+0.354460001,
+0.532404900,
+0.172308266,
+0.509119272,
+0.290030122,
+0.881297112,
+0.365168035,
+0.453315377E-1
1267+0.365168035,
+0.509119272,
+0.436637223,
+0.881297112,
+0.290030122,
+0.509119272
1272call setChoice(rng, choice, array, unique
= .true._LK)
1274+0.436637223,
+0.881297112,
+0.354460001,
+0.509119272,
+0.365168035,
+0.532404900,
+0.172308266
1278+0.552093983E-2,
+0.798992217,
+0.541488349,
+0.170797706,
+0.277688682,
+0.856067657,
+0.542280078,
+0.138058603
1289+0.856067657,
+0.798992217,
+0.277688682
1294call setChoice(rng, choice, array, unique
= .true._LK)
1296+0.138058603,
+0.552093983E-2,
+0.856067657,
+0.798992217,
+0.542280078,
+0.541488349
1300+0.485218287,
+0.307595134E-1,
+0.187106550,
+0.218165338,
+0.972974896E-1,
+0.176458120,
+0.756195545,
+0.220587730,
+0.295909464
1311+0.485218287,
+0.176458120,
+0.220587730,
+0.295909464,
+0.972974896E-1,
+0.972974896E-1,
+0.972974896E-1,
+0.295909464,
+0.218165338,
+0.485218287,
+0.187106550,
+0.218165338,
+0.295909464,
+0.972974896E-1,
+0.218165338,
+0.187106550
1316call setChoice(rng, choice, array, unique
= .true._LK)
1318+0.307595134E-1,
+0.220587730,
+0.756195545,
+0.187106550,
+0.972974896E-1,
+0.485218287
1322+0.643148303,
+0.145064831,
+0.308965266,
+0.347774327
1333+0.145064831,
+0.308965266,
+0.145064831,
+0.347774327,
+0.308965266,
+0.145064831,
+0.308965266,
+0.145064831
1338call setChoice(rng, choice, array, unique
= .true._LK)
1340+0.145064831,
+0.308965266,
+0.643148303