14 integer(IK) :: count, itry, ntry
= 10
15 type(display_type) :: disp
19 character(:),
allocatable :: array
23 call disp%show(
"count = getUnifRand(4, 10)")
25 call disp%show(
"array = getUnifRand(repeat('A', count), repeat('Z', count)) ! generate random array for illustration.")
26 array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
28 call disp%show( array, deliml
= SK_
"""" )
29 call disp%show(
"call setShuffled(array)")
32 call disp%show( array, deliml
= SK_
"""" )
35 call disp%show(
"count = getUnifRand(0, len(array))")
39 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
42 call disp%show( array, deliml
= SK_
"""" )
48 character(
2),
allocatable :: array(:)
52 call disp%show(
"count = getUnifRand(4, 10)")
54 call disp%show(
"array = getUnifRand('AA', 'ZZ', count) ! generate random array for illustration.")
57 call disp%show( array, deliml
= SK_
"""" )
58 call disp%show(
"call setShuffled(array)")
61 call disp%show( array, deliml
= SK_
"""" )
64 call disp%show(
"count = getUnifRand(0, size(array))")
68 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
71 call disp%show( array, deliml
= SK_
"""" )
77 integer,
allocatable :: array(:)
81 call disp%show(
"count = getUnifRand(4, 10)")
83 call disp%show(
"array = getUnifRand(0, 9, count) ! generate random array for illustration.")
87 call disp%show(
"call setShuffled(array)")
93 call disp%show(
"count = getUnifRand(0, size(array))")
97 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
106 logical,
allocatable :: array(:)
110 call disp%show(
"count = getUnifRand(4, 10)")
112 call disp%show(
"array = getUnifRand(.false., .true., count) ! generate random array for illustration.")
116 call disp%show(
"call setShuffled(array)")
122 call disp%show(
"count = getUnifRand(0, size(array))")
126 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
135 complex,
allocatable :: array(:)
139 call disp%show(
"count = getUnifRand(4, 10)")
141 call disp%show(
"array = getUnifRand((0., 0.), (1., 1.), count) ! generate random array for illustration.")
145 call disp%show(
"call setShuffled(array)")
151 call disp%show(
"count = getUnifRand(0, size(array))")
155 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
164 real,
allocatable :: array(:)
168 call disp%show(
"count = getUnifRand(4, 10)")
170 call disp%show(
"array = getUnifRand(0., 1., count) ! generate random array for illustration.")
174 call disp%show(
"call setShuffled(array)")
180 call disp%show(
"count = getUnifRand(0, size(array))")
184 call disp%show(
"call setShuffled(array, count) ! draw randomly only `count` elements without replacement.")
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 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...
Generate and return an object of type display_type.
3array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
18array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
33array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
48array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
63array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
78array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
93array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
108array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
123array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
138array
= getUnifRand(
repeat(
'A', count),
repeat(
'Z', count))
155"ZF",
"YL",
"HP",
"IF",
"VW"
158"ZF",
"HP",
"IF",
"VW",
"YL"
165"ZF",
"HP",
"IF",
"VW",
"YL"
170"UV",
"IP",
"ND",
"FS",
"OA",
"XC",
"QE",
"YU",
"KX",
"OM"
173"UV",
"KX",
"ND",
"FS",
"YU",
"OA",
"XC",
"QE",
"IP",
"OM"
180"FS",
"ND",
"OM",
"UV",
"YU",
"OA",
"XC",
"QE",
"IP",
"KX"
185"DG",
"PM",
"XR",
"WL",
"SQ",
"TO",
"SA"
188"TO",
"SA",
"WL",
"PM",
"DG",
"XR",
"SQ"
195"TO",
"SA",
"WL",
"PM",
"DG",
"XR",
"SQ"
200"AP",
"RT",
"PN",
"LH",
"BK",
"FZ",
"QH",
"TW",
"SS"
203"TW",
"BK",
"SS",
"RT",
"AP",
"QH",
"PN",
"FZ",
"LH"
210"LH",
"RT",
"AP",
"BK",
"TW",
"PN",
"QH",
"FZ",
"SS"
215"RV",
"SZ",
"ND",
"TK",
"DW",
"XT"
218"DW",
"RV",
"SZ",
"XT",
"TK",
"ND"
225"ND",
"RV",
"DW",
"TK",
"XT",
"SZ"
230"TA",
"OI",
"GF",
"JK",
"FH",
"DB",
"DJ",
"QT",
"TW"
233"GF",
"OI",
"TW",
"JK",
"FH",
"QT",
"DJ",
"DB",
"TA"
240"QT",
"DJ",
"GF",
"FH",
"TW",
"DB",
"OI",
"TA",
"JK"
245"VE",
"KP",
"GI",
"TU",
"YM"
248"VE",
"KP",
"TU",
"GI",
"YM"
255"KP",
"TU",
"YM",
"VE",
"GI"
260"NI",
"ZM",
"BG",
"NV",
"FH",
"IM",
"NU"
263"FH",
"BG",
"NV",
"ZM",
"NI",
"IM",
"NU"
270"ZM",
"NU",
"NV",
"FH",
"NI",
"IM",
"BG"
275"JG",
"PN",
"SH",
"YZ",
"EH",
"UW"
278"YZ",
"EH",
"UW",
"SH",
"JG",
"PN"
285"JG",
"EH",
"UW",
"SH",
"YZ",
"PN"
290"SX",
"LI",
"FZ",
"BE",
"PM",
"MM",
"QL",
"LQ",
"KT",
"MD"
293"LQ",
"LI",
"MD",
"PM",
"FZ",
"MM",
"QL",
"BE",
"KT",
"SX"
300"MM",
"SX",
"QL",
"PM",
"LQ",
"KT",
"LI",
"FZ",
"MD",
"BE"
320+7,
+0,
+0,
+1,
+8,
+8,
+5,
+3,
+5
323+3,
+1,
+8,
+0,
+8,
+7,
+5,
+0,
+5
330+0,
+1,
+8,
+0,
+8,
+7,
+5,
+3,
+5
335+3,
+7,
+6,
+9,
+1,
+1,
+3
338+1,
+6,
+7,
+3,
+9,
+3,
+1
345+3,
+9,
+7,
+3,
+6,
+1,
+1
350+7,
+5,
+8,
+5,
+4,
+3,
+2,
+6
353+5,
+6,
+5,
+8,
+7,
+4,
+3,
+2
360+8,
+4,
+7,
+5,
+5,
+6,
+2,
+3
380+5,
+3,
+7,
+5,
+9,
+4,
+3,
+5,
+6
383+3,
+9,
+7,
+3,
+6,
+4,
+5,
+5,
+5
390+5,
+4,
+3,
+7,
+3,
+9,
+5,
+5,
+6
395+1,
+5,
+3,
+6,
+7,
+0,
+5,
+0,
+3
398+7,
+5,
+3,
+3,
+0,
+1,
+6,
+0,
+5
405+1,
+6,
+5,
+7,
+3,
+3,
+5,
+0,
+0
410+8,
+5,
+7,
+1,
+5,
+0,
+0
413+7,
+5,
+1,
+0,
+0,
+5,
+8
420+5,
+0,
+7,
+0,
+5,
+1,
+8
425+2,
+8,
+2,
+8,
+0,
+7,
+5
428+7,
+8,
+0,
+2,
+8,
+2,
+5
435+2,
+8,
+5,
+2,
+0,
+7,
+8
455F, T, T, T, F, F, T, F, F, F
458F, F, F, F, T, T, F, T, F, T
465T, F, T, F, F, F, F, T, F, T
470T, T, F, T, T, F, T, T, T, T
473T, T, T, T, T, F, T, F, T, T
480T, T, T, T, T, F, T, F, T, T
485T, T, F, T, F, F, F, T, T
488F, T, T, T, F, F, F, T, T
495F, T, T, F, T, F, F, T, T
560F, F, T, F, F, T, F, F, F, F
563T, T, F, F, F, F, F, F, F, F
570F, T, F, F, F, F, T, F, F, F
605(
+0.307162821,
+0.790538311), (
+0.322074294E-1,
+0.357375324), (
+0.936189890,
+0.774651766E-1), (
+0.764420748,
+0.287556648E-1), (
+0.891991138,
+0.775856435), (
+0.347787321,
+0.337922215), (
+0.787808120,
+0.193701982), (
+0.443555176,
+0.482446969), (
+0.748781145,
+0.787099719), (
+0.849209011,
+0.512678385)
608(
+0.849209011,
+0.512678385), (
+0.764420748,
+0.287556648E-1), (
+0.891991138,
+0.775856435), (
+0.443555176,
+0.482446969), (
+0.787808120,
+0.193701982), (
+0.748781145,
+0.787099719), (
+0.322074294E-1,
+0.357375324), (
+0.936189890,
+0.774651766E-1), (
+0.307162821,
+0.790538311), (
+0.347787321,
+0.337922215)
615(
+0.307162821,
+0.790538311), (
+0.748781145,
+0.787099719), (
+0.347787321,
+0.337922215), (
+0.322074294E-1,
+0.357375324), (
+0.891991138,
+0.775856435), (
+0.443555176,
+0.482446969), (
+0.764420748,
+0.287556648E-1), (
+0.936189890,
+0.774651766E-1), (
+0.849209011,
+0.512678385), (
+0.787808120,
+0.193701982)
620(
+0.627464890,
+0.147325516), (
+0.745318234,
+0.556259394), (
+0.325980604,
+0.105364203), (
+0.495656550,
+0.772985816), (
+0.986876488,
+0.664374471)
623(
+0.495656550,
+0.772985816), (
+0.627464890,
+0.147325516), (
+0.745318234,
+0.556259394), (
+0.325980604,
+0.105364203), (
+0.986876488,
+0.664374471)
630(
+0.325980604,
+0.105364203), (
+0.627464890,
+0.147325516), (
+0.745318234,
+0.556259394), (
+0.495656550,
+0.772985816), (
+0.986876488,
+0.664374471)
635(
+0.501887321,
+0.445347488), (
+0.185294390,
+0.532666564), (
+0.391759098,
+0.995430171), (
+0.608144224,
+0.768729210), (
+0.174970210,
+0.868489087), (
+0.341699183,
+0.986726820), (
+0.582135677,
+0.485168338), (
+0.157420039E-1,
+0.232460499)
638(
+0.391759098,
+0.995430171), (
+0.174970210,
+0.868489087), (
+0.608144224,
+0.768729210), (
+0.157420039E-1,
+0.232460499), (
+0.501887321,
+0.445347488), (
+0.582135677,
+0.485168338), (
+0.185294390,
+0.532666564), (
+0.341699183,
+0.986726820)
645(
+0.157420039E-1,
+0.232460499), (
+0.501887321,
+0.445347488), (
+0.608144224,
+0.768729210), (
+0.391759098,
+0.995430171), (
+0.174970210,
+0.868489087), (
+0.582135677,
+0.485168338), (
+0.185294390,
+0.532666564), (
+0.341699183,
+0.986726820)
650(
+0.161559284,
+0.477799237), (
+0.263126373,
+0.312384069), (
+0.582230449,
+0.254568577), (
+0.320530415,
+0.823837101), (
+0.174754977,
+0.244464040), (
+0.876264691,
+0.407123148), (
+0.118003786,
+0.593587697), (
+0.731769085,
+0.888668954)
653(
+0.118003786,
+0.593587697), (
+0.161559284,
+0.477799237), (
+0.174754977,
+0.244464040), (
+0.582230449,
+0.254568577), (
+0.876264691,
+0.407123148), (
+0.320530415,
+0.823837101), (
+0.263126373,
+0.312384069), (
+0.731769085,
+0.888668954)
660(
+0.263126373,
+0.312384069), (
+0.582230449,
+0.254568577), (
+0.118003786,
+0.593587697), (
+0.731769085,
+0.888668954), (
+0.320530415,
+0.823837101), (
+0.174754977,
+0.244464040), (
+0.876264691,
+0.407123148), (
+0.161559284,
+0.477799237)
665(
+0.350015402,
+0.858183622), (
+0.990226984,
+0.294524431E-2), (
+0.817141593,
+0.768571973), (
+0.878674150,
+0.698995590E-2), (
+0.590600371,
+0.727305412)
668(
+0.878674150,
+0.698995590E-2), (
+0.817141593,
+0.768571973), (
+0.990226984,
+0.294524431E-2), (
+0.590600371,
+0.727305412), (
+0.350015402,
+0.858183622)
675(
+0.878674150,
+0.698995590E-2), (
+0.817141593,
+0.768571973), (
+0.990226984,
+0.294524431E-2), (
+0.590600371,
+0.727305412), (
+0.350015402,
+0.858183622)
680(
+0.729281962,
+0.734604120), (
+0.963803053,
+0.849383473E-1), (
+0.174967468,
+0.467318892), (
+0.824530721E-1,
+0.190939844), (
+0.637049198,
+0.829481900), (
+0.378611684E-1,
+0.633297861), (
+0.778306842,
+0.549218297), (
+0.306904316,
+0.555744469), (
+0.813292325,
+0.530884922), (
+0.121627569,
+0.971768796)
683(
+0.378611684E-1,
+0.633297861), (
+0.963803053,
+0.849383473E-1), (
+0.637049198,
+0.829481900), (
+0.729281962,
+0.734604120), (
+0.813292325,
+0.530884922), (
+0.824530721E-1,
+0.190939844), (
+0.174967468,
+0.467318892), (
+0.306904316,
+0.555744469), (
+0.121627569,
+0.971768796), (
+0.778306842,
+0.549218297)
690(
+0.306904316,
+0.555744469), (
+0.637049198,
+0.829481900), (
+0.174967468,
+0.467318892), (
+0.778306842,
+0.549218297), (
+0.813292325,
+0.530884922), (
+0.824530721E-1,
+0.190939844), (
+0.963803053,
+0.849383473E-1), (
+0.378611684E-1,
+0.633297861), (
+0.121627569,
+0.971768796), (
+0.729281962,
+0.734604120)
695(
+0.515767872,
+0.379959583), (
+0.975432873,
+0.786883175), (
+0.509564638,
+0.843416035), (
+0.989587963,
+0.613362432), (
+0.943853796,
+0.288075447)
698(
+0.509564638,
+0.843416035), (
+0.975432873,
+0.786883175), (
+0.943853796,
+0.288075447), (
+0.515767872,
+0.379959583), (
+0.989587963,
+0.613362432)
705(
+0.989587963,
+0.613362432), (
+0.975432873,
+0.786883175), (
+0.943853796,
+0.288075447), (
+0.515767872,
+0.379959583), (
+0.509564638,
+0.843416035)
710(
+0.565359294,
+0.451270163), (
+0.167130649,
+0.493011653), (
+0.759414673,
+0.133274555), (
+0.932335854,
+0.505545616), (
+0.274218321,
+0.947039723), (
+0.322111607,
+0.228098810), (
+0.120907784,
+0.628581464)
713(
+0.322111607,
+0.228098810), (
+0.565359294,
+0.451270163), (
+0.274218321,
+0.947039723), (
+0.167130649,
+0.493011653), (
+0.759414673,
+0.133274555), (
+0.120907784,
+0.628581464), (
+0.932335854,
+0.505545616)
720(
+0.932335854,
+0.505545616), (
+0.565359294,
+0.451270163), (
+0.759414673,
+0.133274555), (
+0.167130649,
+0.493011653), (
+0.322111607,
+0.228098810), (
+0.120907784,
+0.628581464), (
+0.274218321,
+0.947039723)
725(
+0.989947855,
+0.357303500), (
+0.879333973,
+0.994442046), (
+0.782041311,
+0.709992528), (
+0.985172331,
+0.809120238), (
+0.938967466E-1,
+0.189218283), (
+0.712841332,
+0.345063508), (
+0.407226145,
+0.932899892)
728(
+0.782041311,
+0.709992528), (
+0.879333973,
+0.994442046), (
+0.938967466E-1,
+0.189218283), (
+0.712841332,
+0.345063508), (
+0.989947855,
+0.357303500), (
+0.407226145,
+0.932899892), (
+0.985172331,
+0.809120238)
735(
+0.879333973,
+0.994442046), (
+0.989947855,
+0.357303500), (
+0.782041311,
+0.709992528), (
+0.712841332,
+0.345063508), (
+0.938967466E-1,
+0.189218283), (
+0.407226145,
+0.932899892), (
+0.985172331,
+0.809120238)
740(
+0.513155878,
+0.601828098), (
+0.971577883,
+0.166203797), (
+0.969466567,
+0.469295621), (
+0.271642685,
+0.451713920)
743(
+0.271642685,
+0.451713920), (
+0.969466567,
+0.469295621), (
+0.971577883,
+0.166203797), (
+0.513155878,
+0.601828098)
750(
+0.971577883,
+0.166203797), (
+0.513155878,
+0.601828098), (
+0.271642685,
+0.451713920), (
+0.969466567,
+0.469295621)
755+0.202532589,
+0.769622028,
+0.143602848,
+0.421531498
758+0.202532589,
+0.769622028,
+0.421531498,
+0.143602848
765+0.202532589,
+0.769622028,
+0.421531498,
+0.143602848
770+0.417196572,
+0.599771798,
+0.119166255,
+0.985414326,
+0.143546581,
+0.600330710,
+0.258877039
773+0.417196572,
+0.985414326,
+0.600330710,
+0.143546581,
+0.599771798,
+0.258877039,
+0.119166255
780+0.119166255,
+0.143546581,
+0.985414326,
+0.600330710,
+0.258877039,
+0.417196572,
+0.599771798
785+0.147778928,
+0.280953288,
+0.471422076E-1,
+0.497323215,
+0.359213650
788+0.280953288,
+0.147778928,
+0.497323215,
+0.359213650,
+0.471422076E-1
795+0.147778928,
+0.497323215,
+0.280953288,
+0.359213650,
+0.471422076E-1
800+0.686949551,
+0.854661107,
+0.980191708,
+0.864953995,
+0.509614825,
+0.422438383
803+0.686949551,
+0.854661107,
+0.864953995,
+0.422438383,
+0.509614825,
+0.980191708
810+0.509614825,
+0.422438383,
+0.864953995,
+0.854661107,
+0.686949551,
+0.980191708
815+0.254696548,
+0.244022310,
+0.493264258,
+0.923470855,
+0.988085985,
+0.213919461,
+0.407641470,
+0.831542134,
+0.785447121,
+0.388328433
818+0.988085985,
+0.923470855,
+0.213919461,
+0.831542134,
+0.407641470,
+0.254696548,
+0.785447121,
+0.244022310,
+0.493264258,
+0.388328433
825+0.254696548,
+0.785447121,
+0.407641470,
+0.831542134,
+0.388328433,
+0.244022310,
+0.988085985,
+0.213919461,
+0.493264258,
+0.923470855
830+0.617913127,
+0.869521677,
+0.504539192,
+0.154397666,
+0.686020911,
+0.304140031
833+0.686020911,
+0.869521677,
+0.304140031,
+0.617913127,
+0.504539192,
+0.154397666
840+0.504539192,
+0.686020911,
+0.869521677,
+0.154397666,
+0.304140031,
+0.617913127
845+0.740480185,
+0.847225189E-1,
+0.703719556,
+0.503604949,
+0.278416932,
+0.103355169
848+0.103355169,
+0.503604949,
+0.278416932,
+0.847225189E-1,
+0.740480185,
+0.703719556
855+0.503604949,
+0.847225189E-1,
+0.703719556,
+0.103355169,
+0.740480185,
+0.278416932
860+0.524741113,
+0.138318539E-2,
+0.587598205,
+0.477016389,
+0.654073536,
+0.730957389E-1,
+0.567393243,
+0.838758230,
+0.461594462
863+0.838758230,
+0.730957389E-1,
+0.654073536,
+0.524741113,
+0.587598205,
+0.461594462,
+0.567393243,
+0.138318539E-2,
+0.477016389
870+0.730957389E-1,
+0.587598205,
+0.567393243,
+0.138318539E-2,
+0.838758230,
+0.477016389,
+0.654073536,
+0.524741113,
+0.461594462
875+0.123144925,
+0.665174305,
+0.874629080,
+0.542289913,
+0.243839979,
+0.751312315,
+0.690864086,
+0.194462359
878+0.751312315,
+0.874629080,
+0.690864086,
+0.123144925,
+0.665174305,
+0.243839979,
+0.542289913,
+0.194462359
885+0.542289913,
+0.690864086,
+0.194462359,
+0.665174305,
+0.123144925,
+0.243839979,
+0.751312315,
+0.874629080
890+0.430873215,
+0.378300905,
+0.955829978,
+0.962994635,
+0.108493626,
+0.719010293
893+0.962994635,
+0.430873215,
+0.378300905,
+0.955829978,
+0.719010293,
+0.108493626
900+0.108493626,
+0.430873215,
+0.378300905,
+0.955829978,
+0.719010293,
+0.962994635