13 integer(IK) :: lenData
14 type(display_type) :: disp
21 complex(TKG),
allocatable :: data(:), atad(:)
22 call disp%show(
"lenData = getUnifRand(5, 100)")
26 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
27 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
31 call disp%show(
"atad = getFFTI(getFFTF(data))")
35 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
36 reltol
= sqrt(
epsilon(
1._TKG))
39 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
41 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
49 complex(TKG),
allocatable :: data(:), atad(:)
50 call disp%show(
"lenData = getUnifRand(5, 100)")
54 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
55 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
59 call disp%show(
"atad = getFFTI(getFFTF(data))")
63 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
64 reltol
= sqrt(
epsilon(
1._TKG))
67 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
69 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
77 complex(TKG),
allocatable :: data(:), atad(:)
78 call disp%show(
"lenData = getUnifRand(5, 100)")
82 call disp%show(
"data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
83 data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
87 call disp%show(
"atad = getFFTI(getFFTF(data))")
91 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
92 reltol
= sqrt(
epsilon(
1._TKG))
95 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
97 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
105 real(TKG),
allocatable :: data(:), atad(:)
106 call disp%show(
"lenData = getUnifRand(5, 100)")
110 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
111 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
115 call disp%show(
"atad = getFFTI(getFFTF(data))")
119 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
120 reltol
= sqrt(
epsilon(
1._TKG))
123 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
125 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
133 real(TKG),
allocatable :: data(:), atad(:)
134 call disp%show(
"lenData = getUnifRand(5, 100)")
138 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
139 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
143 call disp%show(
"atad = getFFTI(getFFTF(data))")
147 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
148 reltol
= sqrt(
epsilon(
1._TKG))
151 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
153 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
161 real(TKG),
allocatable :: data(:), atad(:)
162 call disp%show(
"lenData = getUnifRand(5, 100)")
166 call disp%show(
"data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
167 data = 1._TKG + getUnifRand(
0._TKG,
1._TKG, lenData)
171 call disp%show(
"atad = getFFTI(getFFTF(data))")
175 call disp%show(
"reltol = sqrt(epsilon(1._TKG))")
176 reltol
= sqrt(
epsilon(
1._TKG))
179 call disp%show(
"isClose(data, atad(1:size(data)), reltol = reltol)")
181 call disp%show(
"call setAsserted(all(isClose(data, atad(1:size(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 by 2 / size(data)) Fourier Transform of a periodic sequen...
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.50181794,
+0.115960419), (
+1.90760016,
+0.334465325), (
+1.13850558,
+0.281729102), (
+1.95291114,
+0.135239840), (
+1.94294357,
+0.403895199), (
+1.36937582,
+0.644446254), (
+1.14799094,
+0.168884933), (
+1.63172281,
+0.222432017E-1), (
+1.75567627,
+0.357230544), (
+1.83243227,
+0.573088825), (
+1.52864432,
+0.913300931), (
+1.58670187,
+0.848946571E-1), (
+1.21496391,
+0.935692370), (
+1.95143986,
+0.858387589), (
+1.19935060,
+0.697071135), (
+1.75127625,
+0.876916885), (
+1.35976279,
+0.881524384), (
+1.89837289,
+0.164843619), (
+1.03405356,
+0.560307324), (
+1.57021117,
+0.930166662), (
+1.64328170,
+0.286450386E-1), (
+1.36786675,
+0.437844694), (
+1.23686123,
+0.514081776), (
+1.78564501,
+0.472835898), (
+1.76537991,
+0.686042905), (
+1.43298149,
+0.613808632), (
+1.03116918,
+0.349743724), (
+1.43122160,
+0.935128450), (
+1.49257493,
+0.730068207), (
+1.93957901,
+0.249582350), (
+1.68207943,
+0.430140257), (
+1.21768391,
+0.447426617), (
+1.31641436,
+0.267508149), (
+1.73206782,
+0.255733013), (
+1.13330555,
+0.956078947), (
+1.91885912,
+0.531385362)
10(
+1.50181782,
+0.115960360), (
+1.90760005,
+0.334465325), (
+1.13850534,
+0.281729102), (
+1.95291078,
+0.135239765), (
+1.94294357,
+0.403895259), (
+1.36937571,
+0.644446135), (
+1.14799070,
+0.168884844), (
+1.63172269,
+0.222431421E-1), (
+1.75567603,
+0.357230663), (
+1.83243227,
+0.573089004), (
+1.52864408,
+0.913300812), (
+1.58670163,
+0.848945975E-1), (
+1.21496367,
+0.935692549), (
+1.95143974,
+0.858387828), (
+1.19935060,
+0.697071135), (
+1.75127625,
+0.876916707), (
+1.35976267,
+0.881524324), (
+1.89837289,
+0.164843604), (
+1.03405344,
+0.560307264), (
+1.57021117,
+0.930166364), (
+1.64328146,
+0.286449492E-1), (
+1.36786675,
+0.437844694), (
+1.23686099,
+0.514081717), (
+1.78564501,
+0.472835839), (
+1.76537967,
+0.686042905), (
+1.43298149,
+0.613808632), (
+1.03116894,
+0.349743664), (
+1.43122137,
+0.935128391), (
+1.49257469,
+0.730068147), (
+1.93957865,
+0.249582618), (
+1.68207932,
+0.430140138), (
+1.21768379,
+0.447426707), (
+1.31641424,
+0.267508090), (
+1.73206794,
+0.255732954), (
+1.13330567,
+0.956078649), (
+1.91885936,
+0.531385124), (
+0.00000000,
-0.119209290E-6), (
+0.596046448E-7,
-0.298023224E-7), (
+0.119209290E-6,
+0.670552254E-7), (
+0.417232513E-6,
+0.00000000), (
+0.178813934E-6,
-0.193715096E-6), (
+0.298023224E-6,
-0.119209290E-6), (
+0.178813934E-6,
+0.596046448E-7), (
+0.238418579E-6,
+0.119209290E-6), (
+0.178813934E-6,
-0.268220901E-6), (
+0.119209290E-6,
-0.208616257E-6), (
+0.178813934E-6,
-0.596046448E-7), (
-0.596046448E-7,
-0.596046448E-7), (
+0.00000000,
+0.298023224E-7), (
+0.178813934E-6,
+0.447034836E-7), (
+0.119209290E-6,
+0.149011612E-6), (
+0.00000000,
+0.238418579E-6), (
+0.178813934E-6,
-0.298023224E-7), (
+0.178813934E-6,
-0.596046448E-7), (
+0.596046448E-7,
+0.596046448E-7), (
+0.238418579E-6,
+0.163912773E-6), (
+0.178813934E-6,
-0.298023224E-7), (
+0.238418579E-6,
+0.00000000), (
+0.596046448E-7,
+0.178813934E-6), (
+0.119209290E-6,
+0.00000000), (
+0.178813934E-6,
+0.00000000), (
+0.357627869E-6,
-0.119209290E-6), (
+0.178813934E-6,
+0.104308128E-6), (
+0.178813934E-6,
+0.894069672E-7)
11reltol
= sqrt(
epsilon(
1._TKG))
14isClose(data, atad(
1:
size(data)), reltol
= reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
21data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
23(
+1.3324453817231745,
+0.39445214227473935), (
+1.3401773135690291,
+0.79546795178790930E-1), (
+1.3307953570864464,
+0.24986155207931149), (
+1.0321173133634884,
+0.58025024996920926), (
+1.9613824217324416,
+0.94108395906443754), (
+1.9377138592761129,
+0.63016130878369325), (
+1.6492686894770043,
+0.89259614293128164), (
+1.0319400752140395,
+0.16704673115507063), (
+1.2302564969469230,
+0.81892908287160660), (
+1.5532879864593181,
+0.70506573716614251), (
+1.5827126380625351,
+0.51080122251128179), (
+1.8247915626606535,
+0.28493540702883935), (
+1.9193320542016918,
+0.85676253995764373), (
+1.3382994297379156,
+0.49389561484800470), (
+1.8989269695338955,
+0.72816788024426926), (
+1.5863482010422805,
+0.44226389526968657), (
+1.0901532903748254,
+0.51817587760497785), (
+1.8879662545267859,
+0.40433239973853696), (
+1.8995278657541066,
+0.18253783491155828), (
+1.7453805895396641,
+0.23688017485800328), (
+1.8963581668049170,
+0.86078597272501645), (
+1.5779667601107197,
+0.48504174975369141), (
+1.1024103989697223,
+0.48295144349256991), (
+1.8614526533567333,
+0.12501837721475173E-1), (
+1.8944194313815581,
+0.80463284652399258), (
+1.2599886989171361,
+0.57117553714367419), (
+1.8075442986481236,
+0.88156843398285856), (
+1.4738476824150033,
+0.69913361665421037), (
+1.2590983335041011,
+0.26111436307555635E-1), (
+1.6309093952170941,
+0.97965763127781857), (
+1.7856097552435841,
+0.55120309520062860), (
+1.3389655647838397,
+0.35960803091897431), (
+1.4329001111056745,
+0.60417629917994697), (
+1.1584779012995887,
+0.97270132291237732), (
+1.5084807275315606,
+0.70072125706760191), (
+1.1134741975380096,
+0.27440768492106460), (
+1.6369232733173253,
+0.31975889027724624), (
+1.4282283004373002,
+0.46788610607359116), (
+1.9490100498233471,
+0.43603329907713428), (
+1.8105317033748676,
+0.97358713106329831), (
+1.7947312009769558,
+0.83908531413867060), (
+1.7833997945341573,
+0.80568080412101983), (
+1.7556406029734721,
+0.39852378286524293), (
+1.4758009269063832,
+0.81293510932176594), (
+1.5862277359122379,
+0.30172944518186207), (
+1.5067632167600395,
+0.46872045141772090), (
+1.1433813422592034,
+0.78739601832105532), (
+1.2892942174048494,
+0.72784143771014753), (
+1.2619939620121228,
+0.89495410599579717), (
+1.3693176017178068,
+0.19629911446920301), (
+1.2226745297001373,
+0.85896556370632204), (
+1.1117892572270218,
+0.93452794618134205), (
+1.2845807290809708,
+0.95105740954624773), (
+1.2612434045858392,
+0.17939000639327274), (
+1.1255356767039237,
+0.33206051296126837), (
+1.4664247081720065,
+0.38348582197099690E-2), (
+1.0871518007949952,
+0.65602463899206132), (
+1.0631357367289787,
+0.90504158748310670), (
+1.6835459404709177,
+0.11847105935412960), (
+1.9956451552420251,
+0.60333916733445681), (
+1.1078520641624250,
+0.44084518731174172), (
+1.3348584679948197,
+0.66149367488228616), (
+1.3993777426689740,
+0.77185232831922024), (
+1.0468181367273615,
+0.26234200055908963), (
+1.7650391303889128,
+0.74111790007455935), (
+1.4473519500755274,
+0.36596907668079115), (
+1.4732252623667892,
+0.27727543861970616), (
+1.4026065529907927,
+0.90808209358550107), (
+1.6227409434096707,
+0.12626147679026645), (
+1.1572571972190855,
+0.42636850782375413), (
+1.8355314953271695,
+0.29339167790628473), (
+1.2342189356028679,
+0.54143557876872683), (
+1.2524617580054231,
+0.47228071510346692), (
+1.1477965815222593,
+0.88085377035509194), (
+1.8718439321546192,
+0.92288574859449068), (
+1.8210055972571406,
+0.57662903720413272), (
+1.1161381461268802,
+0.81014875944549591E-1)
27(
+1.3324453817231747,
+0.39445214227473929), (
+1.3401773135690294,
+0.79546795178791041E-1), (
+1.3307953570864461,
+0.24986155207931171), (
+1.0321173133634882,
+0.58025024996920982), (
+1.9613824217324414,
+0.94108395906443754), (
+1.9377138592761129,
+0.63016130878369325), (
+1.6492686894770041,
+0.89259614293128187), (
+1.0319400752140395,
+0.16704673115507079), (
+1.2302564969469232,
+0.81892908287160648), (
+1.5532879864593183,
+0.70506573716614263), (
+1.5827126380625351,
+0.51080122251128235), (
+1.8247915626606537,
+0.28493540702883979), (
+1.9193320542016914,
+0.85676253995764373), (
+1.3382994297379156,
+0.49389561484800493), (
+1.8989269695338953,
+0.72816788024426971), (
+1.5863482010422807,
+0.44226389526968696), (
+1.0901532903748254,
+0.51817587760497796), (
+1.8879662545267855,
+0.40433239973853685), (
+1.8995278657541066,
+0.18253783491155812), (
+1.7453805895396639,
+0.23688017485800350), (
+1.8963581668049168,
+0.86078597272501600), (
+1.5779667601107197,
+0.48504174975369135), (
+1.1024103989697220,
+0.48295144349256980), (
+1.8614526533567330,
+0.12501837721475187E-1), (
+1.8944194313815581,
+0.80463284652399270), (
+1.2599886989171361,
+0.57117553714367442), (
+1.8075442986481232,
+0.88156843398285867), (
+1.4738476824150033,
+0.69913361665421037), (
+1.2590983335041011,
+0.26111436307555580E-1), (
+1.6309093952170937,
+0.97965763127781824), (
+1.7856097552435837,
+0.55120309520062838), (
+1.3389655647838394,
+0.35960803091897420), (
+1.4329001111056745,
+0.60417629917994664), (
+1.1584779012995887,
+0.97270132291237710), (
+1.5084807275315608,
+0.70072125706760158), (
+1.1134741975380091,
+0.27440768492106460), (
+1.6369232733173251,
+0.31975889027724591), (
+1.4282283004373002,
+0.46788610607359110), (
+1.9490100498233469,
+0.43603329907713373), (
+1.8105317033748678,
+0.97358713106329797), (
+1.7947312009769560,
+0.83908531413867038), (
+1.7833997945341573,
+0.80568080412101972), (
+1.7556406029734724,
+0.39852378286524243), (
+1.4758009269063832,
+0.81293510932176583), (
+1.5862277359122374,
+0.30172944518186173), (
+1.5067632167600391,
+0.46872045141772078), (
+1.1433813422592032,
+0.78739601832105510), (
+1.2892942174048496,
+0.72784143771014731), (
+1.2619939620121228,
+0.89495410599579683), (
+1.3693176017178064,
+0.19629911446920281), (
+1.2226745297001376,
+0.85896556370632171), (
+1.1117892572270218,
+0.93452794618134172), (
+1.2845807290809708,
+0.95105740954624718), (
+1.2612434045858392,
+0.17939000639327238), (
+1.1255356767039237,
+0.33206051296126798), (
+1.4664247081720063,
+0.38348582197098441E-2), (
+1.0871518007949952,
+0.65602463899206076), (
+1.0631357367289784,
+0.90504158748310659), (
+1.6835459404709177,
+0.11847105935412941), (
+1.9956451552420251,
+0.60333916733445658), (
+1.1078520641624250,
+0.44084518731174133), (
+1.3348584679948194,
+0.66149367488228550), (
+1.3993777426689737,
+0.77185232831921957), (
+1.0468181367273615,
+0.26234200055908924), (
+1.7650391303889128,
+0.74111790007455913), (
+1.4473519500755272,
+0.36596907668079109), (
+1.4732252623667896,
+0.27727543861970605), (
+1.4026065529907925,
+0.90808209358550085), (
+1.6227409434096707,
+0.12626147679026617), (
+1.1572571972190855,
+0.42636850782375396), (
+1.8355314953271695,
+0.29339167790628445), (
+1.2342189356028679,
+0.54143557876872683), (
+1.2524617580054229,
+0.47228071510346692), (
+1.1477965815222588,
+0.88085377035509160), (
+1.8718439321546194,
+0.92288574859449057), (
+1.8210055972571404,
+0.57662903720413272), (
+1.1161381461268802,
+0.81014875944549314E-1), (
-0.11102230246251565E-15,
-0.55511151231257827E-15), (
+0.55511151231257827E-15,
-0.49960036108132044E-15), (
+0.33306690738754696E-15,
-0.49960036108132044E-15), (
+0.11102230246251565E-15,
-0.11102230246251565E-15), (
+0.22204460492503131E-15,
-0.30531133177191805E-15), (
+0.22204460492503131E-15,
-0.55511151231257827E-16), (
+0.22204460492503131E-15,
-0.44408920985006262E-15), (
+0.55511151231257827E-15,
+0.11102230246251565E-15), (
+0.11102230246251565E-15,
-0.16653345369377348E-15), (
+0.44408920985006262E-15,
-0.13877787807814457E-15), (
+0.44408920985006262E-15,
-0.97144514654701197E-16), (
-0.11102230246251565E-15,
-0.55511151231257827E-16), (
+0.11102230246251565E-15,
-0.55511151231257827E-15), (
+0.22204460492503131E-15,
-0.27755575615628914E-15), (
+0.22204460492503131E-15,
-0.27755575615628914E-15), (
+0.33306690738754696E-15,
+0.55511151231257827E-16), (
+0.22204460492503131E-15,
-0.55511151231257827E-16), (
+0.55511151231257827E-15,
+0.11102230246251565E-15), (
+0.88817841970012523E-15,
+0.13877787807814457E-15), (
-0.44408920985006262E-15,
+0.16653345369377348E-15), (
-0.33306690738754696E-15,
-0.55511151231257827E-16), (
+0.11102230246251565E-15,
+0.16653345369377348E-15), (
-0.11102230246251565E-15,
+0.83266726846886741E-16), (
+0.11102230246251565E-15,
+0.24980018054066022E-15), (
-0.11102230246251565E-15,
+0.11102230246251565E-15), (
+0.0000000000000000,
+0.47184478546569153E-15), (
+0.0000000000000000,
+0.44408920985006262E-15), (
-0.11102230246251565E-15,
+0.11102230246251565E-15), (
-0.11102230246251565E-15,
-0.27755575615628914E-15), (
+0.22204460492503131E-15,
-0.16653345369377348E-15), (
-0.44408920985006262E-15,
-0.11102230246251565E-15), (
+0.11102230246251565E-15,
+0.33306690738754696E-15), (
+0.11102230246251565E-15,
+0.11102230246251565E-15), (
+0.22204460492503131E-15,
+0.55511151231257827E-16), (
+0.33306690738754696E-15,
+0.11102230246251565E-15), (
-0.11102230246251565E-15,
+0.22204460492503131E-15), (
+0.11102230246251565E-15,
+0.27755575615628914E-16), (
-0.11102230246251565E-15,
+0.33306690738754696E-15), (
+0.11102230246251565E-15,
+0.22204460492503131E-15), (
-0.11102230246251565E-15,
+0.38857805861880479E-15), (
+0.22204460492503131E-15,
+0.13877787807814457E-15), (
+0.11102230246251565E-15,
+0.49960036108132044E-15), (
+0.33306690738754696E-15,
+0.20816681711721685E-15), (
+0.11102230246251565E-15,
+0.16653345369377348E-15), (
+0.22204460492503131E-15,
+0.55511151231257827E-16), (
+0.11102230246251565E-15,
+0.63837823915946501E-15), (
+0.22204460492503131E-15,
+0.27755575615628914E-15), (
+0.11102230246251565E-15,
+0.72164496600635175E-15), (
+0.22204460492503131E-15,
+0.61062266354383610E-15), (
+0.0000000000000000,
+0.83266726846886741E-15), (
+0.55511151231257827E-15,
+0.44408920985006262E-15)
28reltol
= sqrt(
epsilon(
1._TKG))
30+0.14901161193847656E-7
31isClose(data, atad(
1:
size(data)), reltol
= reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
38data = 1._TKG + getUnifRand((
0._TKG,
0._TKG), (
1._TKG,
1._TKG), lenData)
40(
+1.27981474740672237584768893196660337,
+0.862182744691642054436293147406288598), (
+1.20383448745971028189261573073883500,
+0.219615416949786286574647589541044594), (
+1.26373325483685969309059069019298284,
+0.901283012836958477228937988361113549), (
+1.84797059111275649957298115624833949,
+0.441614652323975609219778770979417350), (
+1.83115423241218993726571236913987920,
+0.571600559158026696466250601978489905), (
+1.43389142054039288096400369950751844,
+0.988104752081723163436146978446363521E-1), (
+1.35664130362052526425009166386482132,
+0.152112018158093453016070166926128895), (
+1.03141702031106287893784356543478565,
+0.726128294790956291952493206856298643), (
+1.72620960578272069652633784101288235,
+0.715380160788292509277229417264705951), (
+1.00225083813778151329598416949603648,
+0.289643846297123872160398205422645941), (
+1.82342163724353527634422939076482255,
+0.948383248253497240243462261226402154), (
+1.98805131210313171429374712835271094,
+0.601135225285593654594183445411210577), (
+1.96055836042005124546862101398347042,
+0.276472437149438829796783895944388884E-1), (
+1.29236892458652938110911548527339976,
+0.484386715069929483674633845908129259), (
+1.52988038709185776405601571810040784,
+0.153251681655208831765009658127137137), (
+1.98001663970701600177179139314408160,
+0.135101588782687124806383323980709238), (
+1.99476966890952706381184679873524500,
+0.921911161455751360510795397465222428), (
+1.42737837698777025686864818353854523,
+0.821198036139524101953685753587062397), (
+1.14868919571040929185700076158920862,
+0.239698308671618898376833381059466924), (
+1.07766469562909606966483137664147283,
+0.989907208130600439557345687068011305), (
+1.14669285212903943764002057277424258,
+0.839644556290512271952035081336522096), (
+1.69046921113777925364073563113869513,
+0.265756414820899317162617189549898334E-1), (
+1.17036462538702153620076692085530773,
+0.554878276484645326575541185677420408), (
+1.50408981008328331634420029429016529,
+0.152959169748893410954636116299494955), (
+1.25470022724087607522321998926398839,
+0.873175434996657629510025012127217457), (
+1.10381691165379056109364985041484665,
+0.387768548935729644309320796793347177), (
+1.83690496889986955923309570841449422,
+0.240305660582902723160126161339430942), (
+1.07713579481748712228522918310400012,
+0.944698535606908859054010216603866717), (
+1.01278052864824447667521289924422202,
+0.711342997979353402188972446655927162), (
+1.97183531952328898637442268094092691,
+0.532818198576860003361478864609898586), (
+1.52534321677720788158230813704965351,
+0.437011305262029053058177907324685908), (
+1.40554601162204599166767230035194788,
+0.342392120286120388781840017437460865E-1), (
+1.48399756521785925254825918534535631,
+0.855419357630672631736586698556247103), (
+1.41656801590411910909339072365326494,
+0.747241546969413243490629423268676975), (
+1.59475281412609733241710197305659082,
+0.259100497656315535301200205788730127), (
+1.31497041944567669264634986329412470,
+0.870980492531157534777052945783562988), (
+1.90716543120479916286323272357712200,
+0.502982895407143925811540837861311435), (
+1.42528042020043986342323060427744255,
+0.661578434882031012515592551138341531), (
+1.14289788492111962656514770422566036,
+0.452987987105495251976970700764950955), (
+1.47461295315215972346144067030032350,
+0.876774488054467196861311132062885832), (
+1.60023119301141147779551511073822009,
+0.631241770774893542231418642326186166), (
+1.80607232234342259908683440723620231,
+0.488627353337897276027401402525856182)
44(
+1.27981474740672237584768893196660376,
+0.862182744691642054436293147406288598), (
+1.20383448745971028189261573073883500,
+0.219615416949786286574647589541044690), (
+1.26373325483685969309059069019298284,
+0.901283012836958477228937988361113645), (
+1.84797059111275649957298115624833968,
+0.441614652323975609219778770979417399), (
+1.83115423241218993726571236913987978,
+0.571600559158026696466250601978489616), (
+1.43389142054039288096400369950751883,
+0.988104752081723163436146978446362077E-1), (
+1.35664130362052526425009166386482171,
+0.152112018158093453016070166926128655), (
+1.03141702031106287893784356543478545,
+0.726128294790956291952493206856298547), (
+1.72620960578272069652633784101288235,
+0.715380160788292509277229417264706143), (
+1.00225083813778151329598416949603648,
+0.289643846297123872160398205422645989), (
+1.82342163724353527634422939076482255,
+0.948383248253497240243462261226402250), (
+1.98805131210313171429374712835271075,
+0.601135225285593654594183445411210866), (
+1.96055836042005124546862101398347061,
+0.276472437149438829796783895944389125E-1), (
+1.29236892458652938110911548527339995,
+0.484386715069929483674633845908129355), (
+1.52988038709185776405601571810040804,
+0.153251681655208831765009658127137016), (
+1.98001663970701600177179139314408160,
+0.135101588782687124806383323980709286), (
+1.99476966890952706381184679873524519,
+0.921911161455751360510795397465222332), (
+1.42737837698777025686864818353854523,
+0.821198036139524101953685753587062300), (
+1.14868919571040929185700076158920881,
+0.239698308671618898376833381059466924), (
+1.07766469562909606966483137664147303,
+0.989907208130600439557345687068011305), (
+1.14669285212903943764002057277424278,
+0.839644556290512271952035081336522289), (
+1.69046921113777925364073563113869513,
+0.265756414820899317162617189549895686E-1), (
+1.17036462538702153620076692085530792,
+0.554878276484645326575541185677420600), (
+1.50408981008328331634420029429016568,
+0.152959169748893410954636116299495051), (
+1.25470022724087607522321998926398877,
+0.873175434996657629510025012127217457), (
+1.10381691165379056109364985041484665,
+0.387768548935729644309320796793346888), (
+1.83690496889986955923309570841449422,
+0.240305660582902723160126161339430870), (
+1.07713579481748712228522918310399993,
+0.944698535606908859054010216603866139), (
+1.01278052864824447667521289924422202,
+0.711342997979353402188972446655926970), (
+1.97183531952328898637442268094092730,
+0.532818198576860003361478864609898682), (
+1.52534321677720788158230813704965370,
+0.437011305262029053058177907324685908), (
+1.40554601162204599166767230035194788,
+0.342392120286120388781840017437457374E-1), (
+1.48399756521785925254825918534535651,
+0.855419357630672631736586698556247199), (
+1.41656801590411910909339072365326475,
+0.747241546969413243490629423268676975), (
+1.59475281412609733241710197305659101,
+0.259100497656315535301200205788730031), (
+1.31497041944567669264634986329412451,
+0.870980492531157534777052945783562892), (
+1.90716543120479916286323272357712238,
+0.502982895407143925811540837861311627), (
+1.42528042020043986342323060427744255,
+0.661578434882031012515592551138342013), (
+1.14289788492111962656514770422566055,
+0.452987987105495251976970700764951195), (
+1.47461295315215972346144067030032350,
+0.876774488054467196861311132062886314), (
+1.60023119301141147779551511073822029,
+0.631241770774893542231418642326186070), (
+1.80607232234342259908683440723620212,
+0.488627353337897276027401402525856134), (
+0.962964972193617926527988971292463659E-34,
-0.192592994438723585305597794258492732E-33), (
-0.962964972193617926527988971292463659E-34,
-0.144444745829042688979198345693869549E-33), (
-0.962964972193617926527988971292463659E-34,
+0.240741243048404481631997242823115915E-34), (
-0.385185988877447170611195588516985464E-33,
-0.192592994438723585305597794258492732E-33), (
-0.192592994438723585305597794258492732E-33,
+0.240741243048404481631997242823115915E-33), (
-0.674075480535532548569592279904724561E-33,
+0.108333559371782016734398759270402162E-33), (
+0.192592994438723585305597794258492732E-33,
+0.00000000000000000000000000000000000), (
-0.962964972193617926527988971292463659E-34,
+0.962964972193617926527988971292463659E-34), (
+0.288889491658085377958396691387739098E-33,
+0.192592994438723585305597794258492732E-33), (
+0.00000000000000000000000000000000000,
-0.144444745829042688979198345693869549E-33), (
+0.00000000000000000000000000000000000,
-0.240741243048404481631997242823115915E-33), (
-0.288889491658085377958396691387739098E-33,
-0.168518870133883137142398069976181140E-33), (
+0.00000000000000000000000000000000000,
-0.962964972193617926527988971292463659E-34), (
-0.288889491658085377958396691387739098E-33,
+0.00000000000000000000000000000000000), (
+0.385185988877447170611195588516985464E-33,
+0.481482486096808963263994485646231830E-34), (
+0.192592994438723585305597794258492732E-33,
-0.216667118743564033468797518540804323E-33), (
+0.00000000000000000000000000000000000,
+0.312963615962925826121596415670050689E-33), (
+0.962964972193617926527988971292463659E-34,
+0.192592994438723585305597794258492732E-33), (
+0.288889491658085377958396691387739098E-33,
-0.288889491658085377958396691387739098E-33), (
-0.962964972193617926527988971292463659E-34,
-0.192592994438723585305597794258492732E-33), (
-0.192592994438723585305597794258492732E-33,
-0.120370621524202240815998621411557957E-33), (
+0.00000000000000000000000000000000000,
+0.312963615962925826121596415670050689E-33)
45reltol
= sqrt(
epsilon(
1._TKG))
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(
1:
size(data)), reltol
= reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
57+1.67343247,
+1.64487982,
+1.27125895,
+1.93363202,
+1.29907751,
+1.67862391,
+1.75069213,
+1.89066041,
+1.38388371,
+1.68207574,
+1.26418972,
+1.70091939,
+1.67065072,
+1.09575129,
+1.29001975,
+1.51800525,
+1.96322274,
+1.72935104,
+1.80956113,
+1.12263036,
+1.78541017,
+1.79913974,
+1.51552510,
+1.52216244,
+1.80719376,
+1.50468326,
+1.98516691,
+1.73070145,
+1.95345342,
+1.83292389,
+1.68648160,
+1.79589474,
+1.79148531,
+1.36568570,
+1.22257984,
+1.14823890,
+1.35807312,
+1.99733734,
+1.85389566,
+1.20944071,
+1.39976883,
+1.91435719,
+1.03514636,
+1.21887922,
+1.79255271,
+1.16540170,
+1.11608243,
+1.39070272
61+1.67343235,
+1.64487958,
+1.27125859,
+1.93363202,
+1.29907763,
+1.67862380,
+1.75069165,
+1.89066029,
+1.38388360,
+1.68207550,
+1.26418936,
+1.70091951,
+1.67065060,
+1.09575129,
+1.29001963,
+1.51800537,
+1.96322298,
+1.72935092,
+1.80956113,
+1.12263060,
+1.78541028,
+1.79913962,
+1.51552510,
+1.52216268,
+1.80719376,
+1.50468326,
+1.98516679,
+1.73070157,
+1.95345294,
+1.83292389,
+1.68648148,
+1.79589486,
+1.79148531,
+1.36568570,
+1.22257996,
+1.14823902,
+1.35807312,
+1.99733722,
+1.85389566,
+1.20944071,
+1.39976871,
+1.91435695,
+1.03514636,
+1.21887934,
+1.79255259,
+1.16540170,
+1.11608255,
+1.39070272,
+0.00000000,
+0.119209290E-6,
-0.119209290E-6,
+0.00000000,
+0.119209290E-6,
-0.119209290E-6,
+0.596046448E-7,
+0.119209290E-6,
+0.596046448E-7,
+0.596046448E-7,
-0.596046448E-7,
+0.357627869E-6,
+0.357627869E-6,
+0.119209290E-6,
-0.178813934E-6,
+0.298023224E-6
62reltol
= sqrt(
epsilon(
1._TKG))
65isClose(data, atad(
1:
size(data)), reltol
= reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
74+1.8813933360211275,
+1.7883388096090993,
+1.6192579422400553,
+1.6046850986288801,
+1.3396175050365517,
+1.8300628988755803,
+1.8797593664619265,
+1.2443858111291188,
+1.1377418914186528,
+1.4045543013021962,
+1.8423945007008760,
+1.3094264349807170,
+1.7537100656986204,
+1.7632959809113617,
+1.2217615685976588,
+1.7430494376080119,
+1.3092795150876895,
+1.9015195387467376,
+1.4810010471604289,
+1.9319532160864448,
+1.4530427133433546,
+1.0716855492327719,
+1.2050605186739167,
+1.9386090987910287,
+1.5971108388455937,
+1.8809736645755128,
+1.5261885752343425,
+1.0976039207778849,
+1.2264183820624166
78+1.8813933360211277,
+1.7883388096090995,
+1.6192579422400553,
+1.6046850986288803,
+1.3396175050365522,
+1.8300628988755805,
+1.8797593664619261,
+1.2443858111291195,
+1.1377418914186532,
+1.4045543013021966,
+1.8423945007008757,
+1.3094264349807174,
+1.7537100656986206,
+1.7632959809113615,
+1.2217615685976591,
+1.7430494376080117,
+1.3092795150876897,
+1.9015195387467376,
+1.4810010471604287,
+1.9319532160864450,
+1.4530427133433550,
+1.0716855492327721,
+1.2050605186739163,
+1.9386090987910285,
+1.5971108388455941,
+1.8809736645755133,
+1.5261885752343420,
+1.0976039207778849,
+1.2264183820624166,
+0.66613381477509392E-15,
+0.11102230246251565E-15,
+0.55511151231257827E-15
79reltol
= sqrt(
epsilon(
1._TKG))
81+0.14901161193847656E-7
82isClose(data, atad(
1:
size(data)), reltol
= reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
91+1.61706775203305838209178929693004867,
+1.14766<