14 integer(IK) :: lenData
15 type(display_type) :: disp
22 complex(TKG),
allocatable :: data(:)
23 call disp%show(
"lenData = getUnifRand(5, 11)")
27 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
28 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
31 call disp%show(
"getFFTI(getFFTF(data))")
33 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
34 reltol
= sqrt(
epsilon(
1._TKG))
37 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
39 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
47 complex(TKG),
allocatable :: data(:)
48 call disp%show(
"lenData = getUnifRand(5, 11)")
52 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
53 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
56 call disp%show(
"getFFTI(getFFTF(data))")
58 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
59 reltol
= sqrt(
epsilon(
1._TKG))
62 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
64 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
72 complex(TKG),
allocatable :: data(:)
73 call disp%show(
"lenData = getUnifRand(5, 11)")
77 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
78 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
81 call disp%show(
"getFFTI(getFFTF(data))")
83 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
84 reltol
= sqrt(
epsilon(
1._TKG))
87 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
89 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
97 real(TKG),
allocatable :: data(:)
98 call disp%show(
"lenData = getUnifRand(5, 11)")
102 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
103 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
108 call disp%show(
"getFFTF(cmplx(data, kind = TKG))")
110 call disp%show(
"getFFTI(getFFTF(data))")
112 call disp%show(
"getFFTI(getFFTF(cmplx(data, kind = TKG)))")
114 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
115 reltol
= sqrt(
epsilon(
1._TKG))
118 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
120 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
128 real(TKG),
allocatable :: data(:)
129 call disp%show(
"lenData = getUnifRand(5, 11)")
133 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
134 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
139 call disp%show(
"getFFTF(cmplx(data, kind = TKG))")
141 call disp%show(
"getFFTI(getFFTF(data))")
143 call disp%show(
"getFFTI(getFFTF(cmplx(data, kind = TKG)))")
145 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
146 reltol
= sqrt(
epsilon(
1._TKG))
149 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
151 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
159 real(TKG),
allocatable :: data(:)
160 call disp%show(
"lenData = getUnifRand(5, 11)")
164 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
165 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
170 call disp%show(
"getFFTF(cmplx(data, kind = TKG))")
172 call disp%show(
"getFFTI(getFFTF(data))")
174 call disp%show(
"getFFTI(getFFTF(cmplx(data, kind = TKG)))")
176 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
177 reltol
= sqrt(
epsilon(
1._TKG))
180 call disp%show(
"isClose(data, getFFTI(getFFTF(data)), reltol = reltol)")
182 call disp%show(
"call setAsserted(all(isClose(data, getFFTI(getFFTF(data)), reltol = reltol)))")
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Generate and return an object of type stop_type with the user-specified input attributes.
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
This is a generic method of the derived type display_type with pass attribute.
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
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 LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
4data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
6(
+1.71762967,
+0.457379818E-1), (
+1.06965494,
+0.906730115), (
+1.04484344,
+0.661947429), (
+1.16652489,
+0.476008058), (
+1.15756714,
+0.747225225), (
+1.07628322,
+0.515650809), (
+1.55977523,
+0.170976102), (
+1.32475269,
+0.244098961), (
+1.99139774,
+0.551003814), (
+1.58540988,
+0.518799126), (
+1.72084510,
+0.428901255)
8(
+1.71762955,
+0.457379706E-1), (
+1.06965506,
+0.906730056), (
+1.04484332,
+0.661947370), (
+1.16652489,
+0.476007998), (
+1.15756714,
+0.747225285), (
+1.07628369,
+0.515650868), (
+1.55977571,
+0.170976236), (
+1.32475269,
+0.244099036), (
+1.99139774,
+0.551003814), (
+1.58540976,
+0.518799007), (
+1.72084498,
+0.428901255)
9reltol
= sqrt(
epsilon(
1._TKG))
13T, T, T, T, T, T, T, T, T, T, T
19data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
21(
+1.0148538663052362,
+0.56335263195353302), (
+1.8365227857836799,
+0.81449169322804549), (
+1.7505723712180932,
+0.42728449640065802), (
+1.2408890615613579,
+0.71516789439208961), (
+1.6078658182288432,
+0.86048454383146000), (
+1.8371616752334861,
+0.80728348910720837), (
+1.6098086499063446,
+0.13271735664689066), (
+1.3184459941819191,
+0.54624619123033180)
23(
+1.0148538663052360,
+0.56335263195353302), (
+1.8365227857836799,
+0.81449169322804549), (
+1.7505723712180932,
+0.42728449640065802), (
+1.2408890615613579,
+0.71516789439208961), (
+1.6078658182288432,
+0.86048454383146000), (
+1.8371616752334861,
+0.80728348910720849), (
+1.6098086499063444,
+0.13271735664689066), (
+1.3184459941819191,
+0.54624619123033180)
24reltol
= sqrt(
epsilon(
1._TKG))
26+0.14901161193847656E-7
34data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
36(
+1.15325892710960713166926926843652863,
+0.817113972385373359259649959629658008), (
+1.90713505442560297883487380083053484,
+0.415457317368865560031993188400142773), (
+1.70274847514133230393923631969283843,
+0.538006314760696808749312151972388156E-1), (
+1.49567699146160126627198774745437389,
+0.587696520702278495886798488078795708), (
+1.60729485918767944067991240818678432,
+0.119865519086291638028921806759036443E-1), (
+1.12934848146669005162573142974634460,
+0.968474470832830922386644516067785676), (
+1.13730111093484496451248741571436048,
+0.961285116491263929339083594427726657), (
+1.21510492778101161696221693517243452,
+0.607363205450528941183478248946645109), (
+1.54046159657372356144066676254121797,
+0.556047115936191978872839702571032301), (
+1.78191741069145677268839375677531131,
+0.448297440945704523893983673196642925), (
+1.71843032348497630179643103519501592,
+0.108512518804979281362781674551756093)
38(
+1.15325892710960713166926926843652844,
+0.817113972385373359259649959629658008), (
+1.90713505442560297883487380083053465,
+0.415457317368865560031993188400142917), (
+1.70274847514133230393923631969283862,
+0.538006314760696808749312151972388758E-1), (
+1.49567699146160126627198774745437389,
+0.587696520702278495886798488078795708), (
+1.60729485918767944067991240818678451,
+0.119865519086291638028921806759036277E-1), (
+1.12934848146669005162573142974634460,
+0.968474470832830922386644516067785580), (
+1.13730111093484496451248741571436048,
+0.961285116491263929339083594427726464), (
+1.21510492778101161696221693517243452,
+0.607363205450528941183478248946645205), (
+1.54046159657372356144066676254121797,
+0.556047115936191978872839702571032301), (
+1.78191741069145677268839375677531169,
+0.448297440945704523893983673196642877), (
+1.71843032348497630179643103519501592,
+0.108512518804979281362781674551756166)
39reltol
= sqrt(
epsilon(
1._TKG))
41+0.138777878078144567552953958511352539E-16
43T, T, T, T, T, T, T, T, T, T, T
51+1.41340554,
+1.23200250,
+1.81052995,
+1.15884209,
+1.46974957,
+1.54060757,
+1.93443692
53+10.5595741,
+0.273670673,
+0.420928180,
-0.671564341,
+0.558860540,
+0.650255084E-1,
+0.818920970
55(
+10.5595741,
+0.00000000), (
+0.273670435,
+0.420928121), (
-0.671563745,
+0.558860600), (
+0.650263429E-1,
+0.818920970), (
+0.650263429E-1,
-0.818920970), (
-0.671563745,
-0.558860600), (
+0.273670435,
-0.420928121)
57+1.41340530,
+1.23200262,
+1.81053007,
+1.15884209,
+1.46974957,
+1.54060781,
+1.93443692
59(
+1.41340578,
+0.00000000), (
+1.23200250,
+0.00000000), (
+1.81053007,
+0.00000000), (
+1.15884233,
+0.00000000), (
+1.46974969,
+0.00000000), (
+1.54060781,
+0.00000000), (
+1.93443680,
+0.00000000)
60reltol
= sqrt(
epsilon(
1._TKG))
72+1.0341238510886641,
+1.0011267544181779,
+1.2219996032510618,
+1.6676125509404711,
+1.9887531441227213,
+1.1321243376520602,
+1.6877098414226228,
+1.5504055933191134
74+11.283855676214893,
-1.1301364069940909,
+0.47546168305898201,
+0.11316755053770056,
+1.0847670521893464,
-0.77912217907402348,
-0.45595879328413996,
+0.58131720355524763
76(
+11.283855676214893,
+0.0000000000000000), (
-1.1301364069940909,
+0.47546168305898201), (
+0.11316755053770056,
+1.0847670521893464), (
-0.77912217907402348,
-0.45595879328413991), (
+0.58131720355524763,
+0.0000000000000000), (
-0.77912217907402348,
+0.45595879328413996), (
+0.11316755053770056,
-1.0847670521893464), (
-1.1301364069940909,
-0.47546168305898207)
78+1.0341238510886641,
+1.0011267544181779,
+1.2219996032510618,
+1.6676125509404711,
+1.9887531441227213,
+1.1321243376520602,
+1.6877098414226230,
+1.5504055933191134
80(
+1.0341238510886641,
+0.0000000000000000), (
+1.0011267544181779,
+0.96668123246451842E-17), (
+1.2219996032510618,
+0.0000000000000000), (
+1.6676125509404711,
-0.16605706228552413E-16), (
+1.9887531441227213,
+0.0000000000000000), (
+1.1321243376520602,
+0.23544600132459641E-16), (
+1.6877098414226230,
+0.0000000000000000), (
+1.5504055933191134,
-0.16605706228552413E-16)
81reltol
= sqrt(
epsilon(
1._TKG))
83+0.14901161193847656E-7
93+1.24357217604787660524547310016253576,
+1.34831807341541608422176255626112592,
+1.21448653417424199212845583293121147,
+1.90491990031364709338102701975682297,
+1.95318233709701480433338036364009131,
+1.54485925328002137544229977666594799
95+9.20933827432821795475239864941773678,
-0.798593496553680156534440851416401737,
+0.809938985652579218513529532710232231,
+0.118068977378176570563550855170170289,
-0.469519676347549658650460334276673640,
-0.386856179689951151337780055950058533
97(
+9.20933827432821795475239864941773524,
+0.00000000000000000000000000000000000), (
-0.798593496553680156534440851416401545,
+0.809938985652579218513529532710232135), (
+0.118068977378176570563550855170170289,
-0.469519676347549658650460334276673496), (
-0.386856179689951151337780055950058436,
+0.00000000000000000000000000000000000), (
+0.118068977378176570563550855170170289,
+0.469519676347549658650460334276673496), (
-0.798593496553680156534440851416401641,
-0.809938985652579218513529532710232135)
99+1.24357217604787660524547310016253596,
+1.34831807341541608422176255626112592,
+1.21448653417424199212845583293121185,
+1.90491990031364709338102701975682297,
+1.95318233709701480433338036364009151,
+1.54485925328002137544229977666594818
101(
+1.24357217604787660524547310016253576,
+0.00000000000000000000000000000000000), (
+1.34831807341541608422176255626112554,
+0.160494162032269654421331495215410602E-34), (
+1.21448653417424199212845583293121166,
+0.138992021479041449752975666276296210E-34), (
+1.90491990031364709338102701975682278,
+0.197736961941948072295285584944887131E-34), (
+1.95318233709701480433338036364009131,
-0.138992021479041449752975666276296210E-34), (
+1.54485925328002137544229977666594799,
-0.358231123974217726716617080160297710E-34)
102reltol
= sqrt(
epsilon(
1._TKG))
104+0.138777878078144567552953958511352539E-16
112data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
114(
+1.86160779,
+0.881118417), (
+1.95932770,
+0.900484085), (
+1.68002987,
+0.401403069), (
+1.70012808,
+0.538664222), (
+1.65847099,
+0.320991755)
116(
+1.86160743,
+0.881118417), (
+1.95932770,
+0.900484204), (
+1.68002987,
+0.401403099), (
+1.70012796,
+0.538664222), (
+1.65847099,
+0.320991844)
117reltol
= sqrt(
epsilon(
1._TKG))
127data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
129(
+1.2243955798527373,
+0.64394777272331161), (
+1.7916038225391864,
+0.46498512694335126), (
+1.2430686364582209,
+0.77467420938497433), (
+1.8824949279100598,
+0.79095746267855371), (
+1.0000760419661567,
+0.68696620095753813), (
+1.0037940957145084,
+0.20162838251615922), (
+1.8029360553921059,
+0.59302693328640554), (
+1.5789863060906966,
+0.71157534313217397), (
+1.8784366356832545,
+0.92613665407166545), (
+1.7884898035724288,
+0.48043669168381231)
131(
+1.2243955798527375,
+0.64394777272331183), (
+1.7916038225391866,
+0.46498512694335120), (
+1.2430686364582209,
+0.77467420938497433), (
+1.8824949279100602,
+0.79095746267855360), (
+1.0000760419661567,
+0.68696620095753813), (
+1.0037940957145086,
+0.20162838251615947), (
+1.8029360553921059,
+0.59302693328640554), (
+1.5789863060906968,
+0.71157534313217408), (
+1.8784366356832543,
+0.92613665407166545), (
+1.7884898035724293,
+0.48043669168381231)
132reltol
= sqrt(
epsilon(
1._TKG))
134+0.14901161193847656E-7
136T, T, T, T, T, T, T, T, T, T
142data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
144(
+1.00762354855023244416304034195343578,
+0.420933727278862485024962135512223624), (
+1.03758869118491626001722577204083235,
+0.863621505273940227557403473849158837), (
+1.05930737184945664249541449881894127,
+0.997262127526542253746251907687660769), (
+1.91681334085169747424547583948971565,
+0.418245418483613686078811502788728393E-1), (
+1.06239376270893824941998368043089155,
+0.951653191402212444570678282379507014), (
+1.68732284871959176691626487049638994,
+0.944515593177614904935126716118340037), (
+1.71180669800088837938016895813375650,
+0.124079192523380382815576151061217805), (
+1.00847375179519355388755704347174930,
+0.177162489469761356267477027866478742), (
+1.07268549238702088537647785839450989,
+0.677512810493702269266769942466947070), (
+1.71836552649234574920475199823396318,
+0.473681182467835778347670718304399216), (
+1.74648185606347242759938158247602950,
+0.477004962347140830633668549693844757)
146(
+1.00762354855023244416304034195343540,
+0.420933727278862485024962135512223624), (
+1.03758869118491626001722577204083254,
+0.863621505273940227557403473849158934), (
+1.05930737184945664249541449881894108,
+0.997262127526542253746251907687660962), (
+1.91681334085169747424547583948971584,
+0.418245418483613686078811502788727731E-1), (
+1.06239376270893824941998368043089136,
+0.951653191402212444570678282379507110), (
+1.68732284871959176691626487049638956,
+0.944515593177614904935126716118339940), (
+1.71180669800088837938016895813375630,
+0.124079192523380382815576151061217528), (
+1.00847375179519355388755704347174930,
+0.177162489469761356267477027866478670), (
+1.07268549238702088537647785839451009,
+0.677512810493702269266769942466947166), (
+1.71836552649234574920475199823396279,
+0.473681182467835778347670718304399264), (
+1.74648185606347242759938158247602969,
+0.477004962347140830633668549693844805)
147reltol
= sqrt(
epsilon(
1._TKG))
149+0.138777878078144567552953958511352539E-16
151T, T, T, T, T, T, T, T, T, T, T
157data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
159+1.56664920,
+1.78384089,
+1.01340294,
+1.68716228,
+1.47297716,
+1.02755618
161+8.55158806,
+0.419954062E-1,
-0.256958872,
+0.604922891,
-1.05296481,
-0.445529938
162getFFTF(
cmplx(data,
kind = TKG))
163(
+8.55158806,
+0.00000000), (
+0.419953912E-1,
-0.256958842), (
+0.604922771,
-1.05296469), (
-0.445530057,
+0.298023224E-7), (
+0.604922771,
+1.05296469), (
+0.419954211E-1,
+0.256958812)
165+1.56664920,
+1.78384089,
+1.01340294,
+1.68716216,
+1.47297716,
+1.02755606
167(
+1.56664920,
+0.496705388E-8), (
+1.78384089,
+0.149011612E-7), (
+1.01340294,
+0.496705388E-8), (
+1.68716216,
+0.230521735E-8), (
+1.47297704,
+0.496705388E-8), (
+1.02755618,
-0.321075433E-7)
168reltol
= sqrt(
epsilon(
1._TKG))
178data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
180+1.6194966283207584,
+1.1195941748713238,
+1.1992779831700373,
+1.3793847491014843,
+1.6127659813304116
182+6.9305195167940159,
+0.37766037817108478,
+0.57489836103856473,
+0.20582143423380395,
+0.11858740131514103
183getFFTF(
cmplx(data,
kind = TKG))
184(
+6.9305195167940159,
+0.0000000000000000), (
+0.37766037817108478,
+0.57489836103856473), (
+0.20582143423380395,
+0.11858740131514103), (
+0.20582143423380395,
-0.11858740131514103), (
+0.37766037817108478,
-0.57489836103856473)
186+1.6194966283207588,
+1.1195941748713238,
+1.1992779831700373,
+1.3793847491014843,
+1.6127659813304118
188(
+1.6194966283207588,
+0.0000000000000000), (
+1.1195941748713238,
+0.0000000000000000), (
+1.1992779831700373,
+0.0000000000000000), (
+1.3793847491014843,
+0.0000000000000000), (
+1.6127659813304118,
+0.0000000000000000)
189reltol
= sqrt(
epsilon(
1._TKG))
191+0.14901161193847656E-7
199data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
201+1.74269190857992434508494842061702640,
+1.36113834720441729288440752206819974,
+1.40099701612683854826016829992714164,
+1.77660919835591847611593744177921623,
+1.60241195968504327358084029356961166,
+1.64210393287249738792956233967836678,
+1.15056370631820127352439683221562855
203+10.6765160691428405973802611498551923,
-0.412834008414249572219469920796358016,
-0.515336995727435902678891366825147036E-2,
+0.548831637180797050323623502437995508,
-0.173714580210460529300837624083489810,
+0.625166016691767431003035315590359217,
-0.449699640908837917539793833096912347
204getFFTF(
cmplx(data,
kind = TKG))
205(
+10.6765160691428405973802611498551923,
+0.00000000000000000000000000000000000), (
-0.412834008414249572219469920796357245,
-0.515336995727435902678891366825149444E-2), (
+0.548831637180797050323623502437995316,
-0.173714580210460529300837624083489786), (
+0.625166016691767431003035315590359024,
-0.449699640908837917539793833096912299), (
+0.625166016691767431003035315590359024,
+0.449699640908837917539793833096912299), (
+0.548831637180797050323623502437995316,
+0.173714580210460529300837624083489786), (
-0.412834008414249572219469920796357245,
+0.515336995727435902678891366825149444E-2)
207+1.74269190857992434508494842061702659,
+1.36113834720441729288440752206819974,
+1.40099701612683854826016829992714183,
+1.77660919835591847611593744177921642,
+1.60241195968504327358084029356961185,
+1.64210393287249738792956233967836716,
+1.15056370631820127352439683221562855
209(
+1.74269190857992434508494842061702659,
+0.00000000000000000000000000000000000), (
+1.36113834720441729288440752206819974,
+0.00000000000000000000000000000000000), (
+1.40099701612683854826016829992714164,
+0.00000000000000000000000000000000000), (
+1.77660919835591847611593744177921623,
+0.00000000000000000000000000000000000), (
+1.60241195968504327358084029356961166,
+0.00000000000000000000000000000000000), (
+1.64210393287249738792956233967836697,
+0.00000000000000000000000000000000000), (
+1.15056370631820127352439683221562855,
+0.00000000000000000000000000000000000)
210reltol
= sqrt(
epsilon(
1._TKG))
212+0.138777878078144567552953958511352539E-16
220data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
222(
+1.72355938,
+0.849571705), (
+1.83428788,
+0.197024643), (
+1.31148481,
+0.863327205), (
+1.07853866,
+0.313477933), (
+1.30197823,
+0.669076681), (
+1.96605921,
+0.387200892), (
+1.63372600,
+0.321892500), (
+1.42820048,
+0.951321125E-1), (
+1.04678845,
+0.884932935), (
+1.10096598,
+0.152226448), (
+1.08988190,
+0.527291656)
224(
+1.72355938,
+0.849571884), (
+1.83428788,
+0.197024703), (
+1.31148469,
+0.863327146), (
+1.07853842,
+0.313478053), (
+1.30197823,
+0.669076622), (
+1.96605968,
+0.387201101), (
+1.63372636,
+0.321892649), (
+1.42820048,
+0.951321349E-1), (
+1.04678833,
+0.884932876), (
+1.10096574,
+0.152226597), (
+1.08988190,
+0.527291596)
225reltol
= sqrt(
epsilon(
1._TKG))
229T, T, T, T, T, T, T, T, T, T, T
235data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
237(
+1.3133036992016045,
+0.70605817643738589), (
+1.2236647532547660,
+0.16090078262883756), (
+1.7266932532484911,
+0.35888029219397000), (
+1.8012850145691035,
+0.66250237215743968E-1), (
+1.6700413523075675,
+0.90866080236958757), (
+1.2434924314671134,
+0.71974845495716799), (
+1.2446001977818610,
+0.52717160982685141), (
+1.8096005853370758,
+0.14048082210853485), (
+1.1132982299009357,
+0.53501512887224767), (
+1.5786214105345306,
+0.59728436090951575E-1), (
+1.6082364774032971,
+0.57860704918190797)
239(
+1.3133036992016043,
+0.70605817643738589), (
+1.2236647532547664,
+0.16090078262883775), (
+1.7266932532484913,
+0.35888029219397000), (
+1.8012850145691037,
+0.66250237215743676E-1), (
+1.6700413523075672,
+0.90866080236958768), (
+1.2434924314671136,
+0.71974845495716810), (
+1.2446001977818615,
+0.52717160982685141), (
+1.8096005853370760,
+0.14048082210853480), (
+1.1132982299009357,
+0.53501512887224767), (
+1.5786214105345306,
+0.59728436090951534E-1), (
+1.6082364774032973,
+0.57860704918190808)
240reltol
= sqrt(
epsilon(
1._TKG))
242+0.14901161193847656E-7
244T, T, T, T, T, T, T, T, T, T, T
250data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
252(
+1.69356580210227731659402146589266465,
+0.987991134237671064400165722099650319), (
+1.73469546272627420103676000079672490,
+0.648430384069942741102392680044524639), (
+1.99978004137680700417242122608539769,
+0.673901958364262079896298621161354372), (
+1.24306722075080626145173439512245422,
+0.959098537635594378811427105093652481), (
+1.55385446558272158959071193087270016,
+0.196424093662339463270923053177338516)
254(
+1.69356580210227731659402146589266445,
+0.987991134237671064400165722099650223), (
+1.73469546272627420103676000079672528,
+0.648430384069942741102392680044524639), (
+1.99978004137680700417242122608539807,
+0.673901958364262079896298621161354469), (
+1.24306722075080626145173439512245442,
+0.959098537635594378811427105093652674), (
+1.55385446558272158959071193087270055,
+0.196424093662339463270923053177338492)
255reltol
= sqrt(
epsilon(
1._TKG))
257+0.138777878078144567552953958511352539E-16
265data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
267+1.89374030,
+1.07079554,
+1.61665916,
+1.27415085,
+1.48844516,
+1.76387191,
+1.58247471,
+1.97855949,
+1.16749871,
+1.20982504,
+1.10614371
269+16.1521645,
-0.929423094,
-0.137227058,
+0.926095128,
-0.632318497,
+0.611473560,
+0.374506176,
+0.183500648,
+0.674832702,
+1.54784214,
-0.476066977
270getFFTF(
cmplx(data,
kind = TKG))
271(
+16.1521645,
+0.00000000), (
-0.929423332,
-0.137227088), (
+0.926095605,
-0.632318437), (
+0.611474514,
+0.374506086), (
+0.183500290,
+0.674832761), (
+1.54784298,
-0.476067066), (
+1.54784298,
+0.476067066), (
+0.183500290,
-0.674832761), (
+0.611474514,
-0.374506086), (
+0.926095605,
+0.632318437), (
-0.929423332,
+0.137227088)
273+1.89373994,
+1.07079554,
+1.61665905,
+1.27415085,
+1.48844516,
+1.76387239,
+1.58247519,
+1.97855949,
+1.16749859,
+1.20982492,
+1.10614371
275(
+1.89374042,
+0.00000000), (
+1.07079530,
+0.00000000), (
+1.61665905,
+0.00000000), (
+1.27415073,
+0.00000000), (
+1.48844528,
+0.00000000), (
+1.76387239,
+0.00000000), (
+1.58247519,
+0.00000000), (
+1.97855973,
+0.00000000), (
+1.16749859,
+0.00000000), (
+1.20982480,
+0.00000000), (
+1.10614359,
+0.00000000)
276reltol
= sqrt(
epsilon(
1._TKG))
280T, T, T, T, T, T, T, T, T, T, T
286data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
288+1.8210944098753978,
+1.3726990863670960,
+1.7449109362703905,
+1.5177013726426936,
+1.3269437182084394,
+1.5090846119597501,
+1.1041204847528920,
+1.8509967517089576
290+12.247551371785617,
+0.63338698434059748,
-0.30867589883934521,
+0.29900670706055488,
+0.48691442602480484,
+0.35491439899331939,
+0.97290500419565173,
-0.25341227357137619
291getFFTF(
cmplx(data,
kind = TKG))
292(
+12.247551371785617,
+0.0000000000000000), (
+0.63338698434059759,
-0.30867589883934521), (
+0.29900670706055488,
+0.48691442602480484), (
+0.35491439899331934,
+0.97290500419565173), (
-0.25341227357137619,
+0.0000000000000000), (
+0.35491439899331945,
-0.97290500419565173), (
+0.29900670706055488,
-0.48691442602480484), (
+0.63338698434059748,
+0.30867589883934521)
294+1.8210944098753981,
+1.3726990863670958,
+1.7449109362703907,
+1.5177013726426936,
+1.3269437182084394,
+1.5090846119597499,
+1.1041204847528923,
+1.8509967517089574
296(
+1.8210944098753981,
+0.0000000000000000), (
+1.3726990863670958,
+0.74537274161243492E-17), (
+1.7449109362703907,
+0.27755575615628914E-16), (
+1.5177013726426933,
-0.51483351221712077E-18), (
+1.3269437182084394,
+0.0000000000000000), (
+1.5090846119597499,
+0.74537274161243492E-17), (
+1.1041204847528923,
-0.27755575615628914E-16), (
+1.8509967517089576,
-0.14392621320031578E-16)
297reltol
= sqrt(
epsilon(
1._TKG))
299+0.14901161193847656E-7
301T, T, T, T, T, T, T, T
307data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
309+1.60569466467945197269157948469970812,
+1.65981931917147594351410582507288914,
+1.62567037257454652327625322664996130,
+1.01170850028332126535499459665718429,
+1.29561104479901965720943909519349660,
+1.08639932273037098375915791655892430,
+1.63864036324278492481858949824619125,
+1.61536583607820768588600112427593916,
+1.05165640866647907408856192356186135,
+1.82764415048545829466181171899530206
311+14.4182099827111163252604944099114570,
+0.982382160765576176335026586655870307,
+0.328465057297934279082313751214475915,
+0.385162368527239612889279429153682310,
-0.858847191182435886206604435466009635,
+0.307688331500402306541851310300599164,
+0.468427231180232627149436752391855565,
-0.864032391358240384392683130962830176,
+1.01704934996592422027688830559529552,
+0.163357252134479789083520467909798626E-1
312getFFTF(
cmplx(data,
kind = TKG))
313(
+14.4182099827111163252604944099114570,
+0.00000000000000000000000000000000000), (
+0.982382160765576176335026586655870403,
+0.328465057297934279082313751214475771), (
+0.385162368527239612889279429153682262,
-0.858847191182435886206604435466009539), (
+0.307688331500402306541851310300599212,
+0.468427231180232627149436752391855469), (
-0.864032391358240384392683130962830080,
+1.01704934996592422027688830559529533), (
+0.163357252134479789083520467909797182E-1,
+0.00000000000000000000000000000000000), (
-0.864032391358240384392683130962830080,
-1.01704934996592422027688830559529533), (
+0.307688331500402306541851310300599212,
-0.468427231180232627149436752391855469), (
+0.385162368527239612889279429153682262,
+0.858847191182435886206604435466009539), (
+0.982382160765576176335026586655870403,
-0.328465057297934279082313751214475819)
315+1.60569466467945197269157948469970793,
+1.65981931917147594351410582507288895,
+1.62567037257454652327625322664996130,
+1.01170850028332126535499459665718409,
+1.29561104479901965720943909519349660,
+1.08639932273037098375915791655892430,
+1.63864036324278492481858949824619125,
+1.61536583607820768588600112427593897,
+1.05165640866647907408856192356186135,
+1.82764415048545829466181171899530206
317(
+1.60569466467945197269157948469970793,
+0.00000000000000000000000000000000000), (
+1.65981931917147594351410582507288895,
+0.601853107621011204079993107057789787E-35), (
+1.62567037257454652327625322664996130,
+0.00000000000000000000000000000000000), (
+1.01170850028332126535499459665718448,
-0.486909392182772247955575089278197250E-35), (
+1.29561104479901965720943909519349660,
+0.00000000000000000000000000000000000), (
+1.08639932273037098375915791655892430,
+0.185982838372266645915578535749302298E-35), (
+1.63864036324278492481858949824619125,
+0.00000000000000000000000000000000000), (
+1.61536583607820768588600112427593897,
+0.185982838372266645915578535749302298E-35), (
+1.05165640866647907408856192356186135,
+0.00000000000000000000000000000000000), (
+1.82764415048545829466181171899530187,
-0.486909392182772247955575089278197250E-35)
318reltol
= sqrt(
epsilon(
1._TKG))
320+0.138777878078144567552953958511352539E-16
322T, T, T, T, T, T, T, T, T, T
328data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
330(
+1.38095367,
+0.712395430), (
+1.99485052,
+0.767914414), (
+1.99870110,
+0.562471747E-1), (
+1.19622946,
+0.200992823E-1), (
+1.40718985,
+0.478902698), (
+1.83268714,
+0.995055854), (
+1.58236408,
+0.472397208)
332(
+1.38095403,
+0.712395549), (
+1.99485040,
+0.767914414), (
+1.99870110,
+0.562473387E-1), (
+1.19622958,
+0.200993177E-1), (
+1.40718997,
+0.478902638), (
+1.83268702,
+0.995055795), (
+1.58236384,
+0.472397268)
333reltol
= sqrt(
epsilon(
1._TKG))
343data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
345(
+1.9609254263263014,
+0.46810657052348525), (
+1.1874331942915519,
+0.96560496728595702), (
+1.1280018726897363,
+0.63422599241940414), (
+1.7724316683981742,
+0.25553436553290254), (
+1.5997127773123743,
+0.33336991473958411)
347(
+1.9609254263263016,
+0.46810657052348542), (
+1.1874331942915519,
+0.96560496728595691), (
+1.1280018726897361,
+0.63422599241940425), (
+1.7724316683981742,
+0.25553436553290260), (
+1.5997127773123740,
+0.33336991473958405)
348reltol
= sqrt(
epsilon(
1._TKG))
350+0.14901161193847656E-7
358data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
360(
+1.52878365909039185258762916244375181,
+0.180171447775207231851394333824134762), (
+1.51227267866560350872399825229484756,
+0.675690126377383636178313175770083444), (
+1.66213920955547724598359138643872906,
+0.584557512254922414172522397723969684), (
+1.98099239954718824466239677783413429,
+0.424378458896645826791264407888776706), (
+1.42949937942018905769220993754219641,
+0.426137257589212660083194300279544821E-2)
362(
+1.52878365909039185258762916244375181,
+0.180171447775207231851394333824134738), (
+1.51227267866560350872399825229484756,
+0.675690126377383636178313175770083444), (
+1.66213920955547724598359138643872944,
+0.584557512254922414172522397723969684), (
+1.98099239954718824466239677783413468,
+0.424378458896645826791264407888776706), (
+1.42949937942018905769220993754219641,
+0.426137257589212660083194300279542941E-2)
363reltol
= sqrt(
epsilon(
1._TKG))
365+0.138777878078144567552953958511352539E-16
373data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
375+1.17953753,
+1.12583816,
+1.55831587,
+1.16051435,
+1.95613563,
+1.53149676,
+1.47252560,
+1.94084430,
+1.36862886,
+1.23797679,
+1.94794345
377+16.4797573,
-0.867264032,
+0.330898732,
+0.171102285,
+0.494102389,
+0.420844078,
+0.661845386,
-1.59487247,
+1.10023332,
+0.117766827,
+0.517622948
378getFFTF(
cmplx(data,
kind = TKG))
379(
+16.4797573,
+0.00000000), (
-0.867264271,
+0.330898732), (
+0.171102762,
+0.494102389), (
+0.420844913,
+0.661845326), (
-1.59487295,
+1.10023332), (
+0.117767334,
+0.517622888), (
+0.117767334,
-0.517622888), (
-1.59487295,
-1.10023332), (
+0.420844913,
-0.661845326), (
+0.171102762,
-0.494102389), (
-0.867264271,
-0.330898732)
381+1.17953742,
+1.12583816,
+1.55831587,
+1.16051447,
+1.95613539,
+1.53149712,
+1.47252607,
+1.94084394,
+1.36862886,
+1.23797679,
+1.94794333
383(
+1.17953765,
+0.00000000), (
+1.12583816,
+0.00000000), (
+1.55831563,
+0.00000000), (
+1.16051435,
+0.00000000), (
+1.95613587,
+0.00000000), (
+1.53149736,
+0.00000000), (
+1.47252619,
+0.00000000), (
+1.94084454,
+0.00000000), (
+1.36862862,
+0.00000000), (
+1.23797667,
+0.00000000), (
+1.94794333,
+0.00000000)
384reltol
= sqrt(
epsilon(
1._TKG))
388T, T, T, T, T, T, T, T, T, T, T
394data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
396+1.0873953225416200,
+1.0550359225807711,
+1.6766742526745353,
+1.5860672301958665,
+1.5924367779659092
398+6.9976095059587013,
-0.73410392873999086,
+0.45784111380953096,
-0.46212517885309667E-1,
+0.40204869651518382
399getFFTF(
cmplx(data,
kind = TKG))
400(
+6.9976095059587013,
+0.0000000000000000), (
-0.73410392873999086,
+0.45784111380953096), (
-0.46212517885309667E-1,
+0.40204869651518382), (
-0.46212517885309667E-1,
-0.40204869651518382), (
-0.73410392873999086,
-0.45784111380953096)
402+1.0873953225416202,
+1.0550359225807708,
+1.6766742526745351,
+1.5860672301958663,
+1.5924367779659092
404(
+1.0873953225416202,
+0.0000000000000000), (
+1.0550359225807708,
+0.0000000000000000), (
+1.6766742526745351,
+0.0000000000000000), (
+1.5860672301958663,
+0.0000000000000000), (
+1.5924367779659092,
+0.0000000000000000)
405reltol
= sqrt(
epsilon(
1._TKG))
407+0.14901161193847656E-7
415data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
417+1.66334560168214145245554630611880116,
+1.38814699582116836124945679026650139,
+1.32937723186473822609643928053062054,
+1.56267566048832217823196453866618642,
+1.57418157401995604085404919658177453,
+1.90048498629035532797729639354349384
419+9.41821205016668158686475250570737788,
+0.293206529307233985361714120801414815,
+0.655704494333341905332480214939870824,
+0.129925868172354652598890014323792395,
+0.231690935807029138411758199513061348,
-0.284403235033010148052682939244986187
420getFFTF(
cmplx(data,
kind = TKG))
421(
+9.41821205016668158686475250570737788,
+0.00000000000000000000000000000000000), (
+0.293206529307233985361714120801414864,
+0.655704494333341905332480214939870824), (
+0.129925868172354652598890014323792226,
+0.231690935807029138411758199513061348), (
-0.284403235033010148052682939244985417,
+0.481482486096808963263994485646231830E-34), (
+0.129925868172354652598890014323792226,
-0.231690935807029138411758199513061348), (
+0.293206529307233985361714120801414719,
-0.655704494333341905332480214939870824)
423+1.66334560168214145245554630611880116,
+1.38814699582116836124945679026650139,
+1.32937723186473822609643928053062035,
+1.56267566048832217823196453866618642,
+1.57418157401995604085404919658177434,
+1.90048498629035532797729639354349403
425(
+1.66334560168214145245554630611880077,
+0.802470810161348272106657476077053011E-35), (
+1.38814699582116836124945679026650158,
-0.802470810161348272106657476077053011E-35), (
+1.32937723186473822609643928053062035,
+0.288735113234697001840129247022149616E-34), (
+1.56267566048832217823196453866618642,
-0.802470810161348272106657476077053011E-35), (
+1.57418157401995604085404919658177434,
-0.128240951202427347418797751806739014E-34), (
+1.90048498629035532797729639354349403,
-0.802470810161348272106657476077053011E-35)
426reltol
= sqrt(
epsilon(
1._TKG))
428+0.138777878078144567552953958511352539E-16
436data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
438(
+1.90669870,
+0.279278278), (
+1.35668755,
+0.275886297), (
+1.78555703,
+0.164453208), (
+1.33722758,
+0.717975259), (
+1.55961108,
+0.603590071)
440(
+1.90669847,
+0.279278189), (
+1.35668755,
+0.275886297), (
+1.78555703,
+0.164453223), (
+1.33722770,
+0.717975259), (
+1.55961120,
+0.603590071)
441reltol
= sqrt(
epsilon(
1._TKG))
451data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
453(
+1.0624359522482205,
+0.22050785073802870), (
+1.6174061358204450,
+0.27321928657371120), (
+1.3774209335444638,
+0.25863441903158990), (
+1.2535421725883655,
+0.27330331868172464), (
+1.5053660968600786,
+0.69747089573530230), (
+1.9604832564708798,
+0.32218753192607885), (
+1.7829383108752381,
+0.64206015490167800), (
+1.6115515076506637,
+0.73474584868230919)
455(
+1.0624359522482205,
+0.22050785073802875), (
+1.6174061358204450,
+0.27321928657371120), (
+1.3774209335444638,
+0.25863441903158990), (
+1.2535421725883658,
+0.27330331868172486), (
+1.5053660968600786,
+0.69747089573530241), (
+1.9604832564708796,
+0.32218753192607896), (
+1.7829383108752381,
+0.64206015490167800), (
+1.6115515076506637,
+0.73474584868230930)
456reltol
= sqrt(
epsilon(
1._TKG))
458+0.14901161193847656E-7
460T, T, T, T, T, T, T, T
466data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
468(
+1.42184886068047446414909296546063780,
+0.949677191215112686978336742792431205), (
+1.51599874013123808083360919029372694,
+0.985841408803788093918846398204014348), (
+1.32785584286465447750968472974366697,
+0.373589047548754601349101789610088309), (
+1.84388785798115089924574011651884515,
+0.482758700168321304558990741452038046), (
+1.23341758295351349485658584857275255,
+0.891145412438928615014738890208549668), (
+1.73829047954576935792779119074331062,
+0.794391395949935329030702643044223308)
470(
+1.42184886068047446414909296546063761,
+0.949677191215112686978336742792431109), (
+1.51599874013123808083360919029372694,
+0.985841408803788093918846398204014444), (
+1.32785584286465447750968472974366697,
+0.373589047548754601349101789610088309), (
+1.84388785798115089924574011651884515,
+0.482758700168321304558990741452038142), (
+1.23341758295351349485658584857275235,
+0.891145412438928615014738890208549764), (
+1.73829047954576935792779119074331081,
+0.794391395949935329030702643044223308)
471reltol
= sqrt(
epsilon(
1._TKG))
473+0.138777878078144567552953958511352539E-16
481data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
483+1.50387204,
+1.35147810,
+1.86070752,
+1.81755543,
+1.98208725,
+1.64038849
485+10.1560888,
-0.739147544,
+0.355321705,
-0.959032774E-1,
+0.145085827,
+0.537244797
486getFFTF(
cmplx(data,
kind = TKG))
487(
+10.1560888,
+0.00000000), (
-0.739147484,
+0.355321705), (
-0.959033966E-1,
+0.145085901), (
+0.537244797,
-0.596046448E-7), (
-0.959033966E-1,
-0.145085901), (
-0.739147425,
-0.355321646)
489+1.50387192,
+1.35147810,
+1.86070752,
+1.81755543,
+1.98208737,
+1.64038849
491(
+1.50387192,
+0.00000000), (
+1.35147810,
-0.993410776E-8), (
+1.86070764,
-0.235043522E-7), (
+1.81755543,
+0.198682155E-7), (
+1.98208714,
-0.629797192E-8), (
+1.64038849,
+0.198682155E-7)
492reltol
= sqrt(
epsilon(
1._TKG))
502data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
504+1.2979439563143633,
+1.1165195999664164,
+1.7807757836660807,
+1.5806554761219895,
+1.3330893128003258,
+1.5892398934486867,
+1.8457898980513181,
+1.6007183031879153,
+1.5691424914573342,
+1.1366606462373889
506+14.850535361251819,
-0.98811901769498611,
+0.13100211361229766,
-0.71814373081428573,
-0.60463952113333475,
-0.14159458680433379,
+0.61936479999806482,
+0.51083567459600143,
-0.69163128851959327E-1,
+0.80294752332702490
507getFFTF(
cmplx(data,
kind = TKG))
508(
+14.850535361251819,
+0.0000000000000000), (
-0.98811901769498667,
+0.13100211361229785), (
-0.71814373081428595,
-0.60463952113333463), (
-0.14159458680433445,
+0.61936479999806504), (
+0.51083567459600232,
-0.69163128851958994E-1), (
+0.80294752332702535,
+0.16653345369377348E-15), (
+0.51083567459600232,
+0.69163128851958994E-1), (
-0.14159458680433440,
-0.61936479999806515), (
-0.71814373081428595,
+0.60463952113333463), (
-0.98811901769498656,
-0.13100211361229794)
510+1.2979439563143635,
+1.1165195999664168,
+1.7807757836660807,
+1.5806554761219898,
+1.3330893128003258,
+1.5892398934486867,
+1.8457898980513179,
+1.6007183031879155,
+1.5691424914573340,
+1.1366606462373892
512(
+1.2979439563143635,
-0.13877787807814457E-16), (
+1.1165195999664164,
+0.55511151231257830E-17), (
+1.7807757836660809,
+0.21485199471466328E-16), (
+1.5806554761219895,
-0.31993051301956292E-16), (
+1.3330893128003258,
+0.10002482228475465E-16), (
+1.5892398934486869,
-0.63661878608430841E-17), (
+1.8457898980513179,
+0.23053936641079673E-16), (
+1.6007183031879153,
-0.38042733124163184E-16), (
+1.5691424914573344,
+0.42602896313679725E-16), (
+1.1366606462373887,
-0.12415869683049977E-16)
513reltol
= sqrt(
epsilon(
1._TKG))
515+0.14901161193847656E-7
517T, T, T, T, T, T, T, T, T, T
523data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
525+1.60878866999817818094609094664869862,
+1.04057949241675992742169300384067985,
+1.74252690513929851938297289766201543,
+1.69457881329033609457426566536743345,
+1.76076851254513386874990475853554578,
+1.37099917661936066377024807700978174,
+1.59728135248957258214396132584505428,
+1.42946278464692115170498323852693543,
+1.81230922448112739705230459481789874,
+1.41047991399892593909874812312745971
527+15.4677748456256143248451726313815036,
-0.362858370006001800544076894564812536,
-0.644467260804490829674126160024087784E-1,
-0.628424251269716137322174292223523825,
+0.704130045190312747631452031494137015,
+0.169544861612542207631035860843642760,
+0.311124951027670513131858224198786377,
+0.344006445000756086690435535678973027,
-0.498990190524440328585646982858777141E-2,
+1.57557448368100677170529641563692287
528getFFTF(
cmplx(data,
kind = TKG))
529(
+15.4677748456256143248451726313815021,
+0.00000000000000000000000000000000000), (
-0.362858370006001800544076894564812054,
-0.644467260804490829674126160024088988E-1), (
-0.628424251269716137322174292223524402,
+0.704130045190312747631452031494136726), (
+0.169544861612542207631035860843642953,
+0.311124951027670513131858224198786281), (
+0.344006445000756086690435535678972930,
-0.498990190524440328585646982858798807E-2), (
+1.57557448368100677170529641563692248,
+0.00000000000000000000000000000000000), (
+0.344006445000756086690435535678972930,
+0.498990190524440328585646982858798807E-2), (
+0.169544861612542207631035860843643097,
-0.311124951027670513131858224198786281), (
-0.628424251269716137322174292223524402,
-0.704130045190312747631452031494136726), (
-0.362858370006001800544076894564812102,
+0.644467260804490829674126160024088867E-1)
531+1.60878866999817818094609094664869843,
+1.04057949241675992742169300384067985,
+1.74252690513929851938297289766201563,
+1.69457881329033609457426566536743364,
+1.76076851254513386874990475853554597,
+1.37099917661936066377024807700978194,
+1.59728135248957258214396132584505447,
+1.42946278464692115170498323852693562,
+1.81230922448112739705230459481789874,
+1.41047991399892593909874812312745971
533(
+1.60878866999817818094609094664869823,
-0.120370621524202240815998621411557963E-35), (
+1.04057949241675992742169300384067985,
-0.144444745829042688979198345693869567E-34), (
+1.74252690513929851938297289766201563,
+0.126974540190436764446923013403261213E-34), (
+1.69457881329033609457426566536743364,
+0.230061575949793356395996988679648703E-34), (
+1.76076851254513386874990475853554540,
-0.993360984651708049199448324369743251E-35), (
+1.37099917661936066377024807700978155,
-0.227802703563088333820700283294177389E-34), (
+1.59728135248957258214396132584505389,
+0.118812474152481694838167836008102217E-34), (
+1.42946278464692115170498323852693543,
+0.138530941144400343781222586134512295E-34), (
+1.81230922448112739705230459481789874,
-0.134413853725327430283546154833233301E-34), (
+1.41047991399892593909874812312745952,
+0.365493229793732262267905417388591704E-36)
534reltol
= sqrt(
epsilon(
1._TKG))
536+0.138777878078144567552953958511352539E-16
538T, T, T, T, T, T, T, T, T, T