ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftpack::getFFTI Interface Reference

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.


Possible calling interfaces ⛓

use pm_fftpack, only: getFFTI
fft = getFFTI(data(:))
pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567
pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftpack, only: getfactorFFT
6 use pm_fftpack, only: getFFTF, getFFTI
7 use pm_distUnif, only: getUnifRand
8 use pm_mathCompare, only: isClose
9 use pm_err, only: setAsserted
10
11 implicit none
12
13 integer(IK) :: i
14 integer(IK) :: lenData
15 type(display_type) :: disp
16 disp = display_type(file = "main.out.F90")
17
18 do i = 1, 5
19 block
20 use pm_kind, only: TKG => CKS
21 real(TKG) :: reltol
22 complex(TKG), allocatable :: data(:), adat(:)
23 call disp%show("lenData = getUnifRand(5, 100)")
24 lenData = getUnifRand(5, 100)
25 call disp%show("lenData")
26 call disp%show( lenData )
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)
29 call disp%show("data")
30 call disp%show( data )
31 call disp%skip()
32 call disp%show("adat = getFFTI(getFFTF(data))")
33 adat = getFFTI(getFFTF(data))
34 call disp%show("adat")
35 call disp%show( adat )
36 call disp%show("reltol = sqrt(epsilon(1._TKG))")
37 reltol = sqrt(epsilon(1._TKG))
38 call disp%show("reltol")
39 call disp%show( reltol )
40 call disp%show("isClose(data, adat, reltol = reltol)")
41 call disp%show( isClose(data, adat, reltol = reltol) )
42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
43 call setAsserted(all(isClose(data, adat, reltol = reltol)))
44 call disp%skip()
45 end block
46
47 block
48 use pm_kind, only: TKG => CKD
49 real(TKG) :: reltol
50 complex(TKG), allocatable :: data(:), adat(:)
51 call disp%show("lenData = getUnifRand(5, 100)")
52 lenData = getUnifRand(5, 100)
53 call disp%show("lenData")
54 call disp%show( lenData )
55 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
56 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
57 call disp%show("data")
58 call disp%show( data )
59 call disp%skip()
60 call disp%show("adat = getFFTI(getFFTF(data))")
61 adat = getFFTI(getFFTF(data))
62 call disp%show("adat")
63 call disp%show( adat )
64 call disp%show("reltol = sqrt(epsilon(1._TKG))")
65 reltol = sqrt(epsilon(1._TKG))
66 call disp%show("reltol")
67 call disp%show( reltol )
68 call disp%show("isClose(data, adat, reltol = reltol)")
69 call disp%show( isClose(data, adat, reltol = reltol) )
70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
71 call setAsserted(all(isClose(data, adat, reltol = reltol)))
72 call disp%skip()
73 end block
74
75 block
76 use pm_kind, only: TKG => CKH
77 real(TKG) :: reltol
78 complex(TKG), allocatable :: data(:), adat(:)
79 call disp%show("lenData = getUnifRand(5, 100)")
80 lenData = getUnifRand(5, 100)
81 call disp%show("lenData")
82 call disp%show( lenData )
83 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
84 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
85 call disp%show("data")
86 call disp%show( data )
87 call disp%skip()
88 call disp%show("adat = getFFTI(getFFTF(data))")
89 adat = getFFTI(getFFTF(data))
90 call disp%show("adat")
91 call disp%show( adat )
92 call disp%show("reltol = sqrt(epsilon(1._TKG))")
93 reltol = sqrt(epsilon(1._TKG))
94 call disp%show("reltol")
95 call disp%show( reltol )
96 call disp%show("isClose(data, adat, reltol = reltol)")
97 call disp%show( isClose(data, adat, reltol = reltol) )
98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
99 call setAsserted(all(isClose(data, adat, reltol = reltol)))
100 call disp%skip()
101 end block
102
103 block
104 use pm_kind, only: TKG => RKS
105 real(TKG) :: reltol
106 real(TKG), allocatable :: data(:), adat(:)
107 call disp%show("lenData = getUnifRand(5, 100)")
108 lenData = getUnifRand(5, 100)
109 call disp%show("lenData")
110 call disp%show( lenData )
111 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
112 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
113 call disp%show("data")
114 call disp%show( data )
115 call disp%skip()
116 call disp%show("adat = getFFTI(getFFTF(data))")
117 adat = getFFTI(getFFTF(data))
118 call disp%show("adat")
119 call disp%show( adat )
120 call disp%show("reltol = sqrt(epsilon(1._TKG))")
121 reltol = sqrt(epsilon(1._TKG))
122 call disp%show("reltol")
123 call disp%show( reltol )
124 call disp%show("isClose(data, adat, reltol = reltol)")
125 call disp%show( isClose(data, adat, reltol = reltol) )
126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
127 call setAsserted(all(isClose(data, adat, reltol = reltol)))
128 call disp%skip()
129 end block
130
131 block
132 use pm_kind, only: TKG => RKD
133 real(TKG) :: reltol
134 real(TKG), allocatable :: data(:), adat(:)
135 call disp%show("lenData = getUnifRand(5, 100)")
136 lenData = getUnifRand(5, 100)
137 call disp%show("lenData")
138 call disp%show( lenData )
139 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
140 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
141 call disp%show("data")
142 call disp%show( data )
143 call disp%skip()
144 call disp%show("adat = getFFTI(getFFTF(data))")
145 adat = getFFTI(getFFTF(data))
146 call disp%show("adat")
147 call disp%show( adat )
148 call disp%show("reltol = sqrt(epsilon(1._TKG))")
149 reltol = sqrt(epsilon(1._TKG))
150 call disp%show("reltol")
151 call disp%show( reltol )
152 call disp%show("isClose(data, adat, reltol = reltol)")
153 call disp%show( isClose(data, adat, reltol = reltol) )
154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
155 call setAsserted(all(isClose(data, adat, reltol = reltol)))
156 call disp%skip()
157 end block
158
159 block
160 use pm_kind, only: TKG => RKH
161 real(TKG) :: reltol
162 real(TKG), allocatable :: data(:), adat(:)
163 call disp%show("lenData = getUnifRand(5, 100)")
164 lenData = getUnifRand(5, 100)
165 call disp%show("lenData")
166 call disp%show( lenData )
167 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
168 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
169 call disp%show("data")
170 call disp%show( data )
171 call disp%skip()
172 call disp%show("adat = getFFTI(getFFTF(data))")
173 adat = getFFTI(getFFTF(data))
174 call disp%show("adat")
175 call disp%show( adat )
176 call disp%show("reltol = sqrt(epsilon(1._TKG))")
177 reltol = sqrt(epsilon(1._TKG))
178 call disp%show("reltol")
179 call disp%show( reltol )
180 call disp%show("isClose(data, adat, reltol = reltol)")
181 call disp%show( isClose(data, adat, reltol = reltol) )
182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")
183 call setAsserted(all(isClose(data, adat, reltol = reltol)))
184 call disp%skip()
185 end block
186 end do
187
188end program example
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)
2lenData
3+53
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.15044987, +0.327271044), (+1.88078654, +0.600172877), (+1.97639155, +0.609231353), (+1.01919627, +0.348005116), (+1.72008610, +0.542110801), (+1.45425415, +0.205386519), (+1.05877697, +0.140660167), (+1.94177258, +0.559301555), (+1.14800143, +0.497926712), (+1.14091647, +0.874799609), (+1.93504381, +0.424526691), (+1.52148521, +0.950090766), (+1.69475603, +0.192954957), (+1.52760100, +0.377622068), (+1.45267737, +0.727093220), (+1.05832040, +0.584869742), (+1.43781245, +0.473119617E-1), (+1.68066299, +0.438157439), (+1.70744014, +0.143326283), (+1.32276630, +0.236877382), (+1.15170109, +0.573758185), (+1.93989968, +0.409907997), (+1.20766819, +0.771895528), (+1.94449341, +0.269338667), (+1.82253528, +0.277844846), (+1.89833379, +0.990751922), (+1.27435303, +0.379999042), (+1.01052833, +0.341640234), (+1.29205275, +0.490703106), (+1.78814197, +0.511321127), (+1.94518459, +0.765131474), (+1.78526235, +0.260722399), (+1.54933548, +0.510127425), (+1.60850465, +0.189469278), (+1.50236046, +0.941923261), (+1.67226326, +0.111057460), (+1.66926503, +0.831637979), (+1.93954492, +0.213378906), (+1.85113478, +0.728203654E-1), (+1.92795229, +0.464896441), (+1.82730317, +0.508069813), (+1.33749294, +0.704741299), (+1.83438849, +0.501476169), (+1.23183537, +0.289421380), (+1.69943333, +0.612581730), (+1.95738578, +0.416181803), (+1.30503321, +0.480006993), (+1.48259926, +0.757652521), (+1.68420076, +0.459735811), (+1.35015416, +0.500817418), (+1.33160090, +0.218668640), (+1.43122721, +0.473925948), (+1.82827210, +0.171224117)
7
8adat = getFFTI(getFFTF(data))
9adat
10(+1.15045416, +0.327272236), (+1.88078570, +0.600172579), (+1.97639108, +0.609231055), (+1.01919591, +0.348004907), (+1.72008586, +0.542110860), (+1.45425403, +0.205386356), (+1.05877686, +0.140660197), (+1.94177234, +0.559301376), (+1.14800119, +0.497926682), (+1.14091611, +0.874799609), (+1.93504310, +0.424526662), (+1.52148521, +0.950090826), (+1.69475555, +0.192954898), (+1.52760100, +0.377622098), (+1.45267677, +0.727093041), (+1.05831993, +0.584869623), (+1.43781292, +0.473119281E-1), (+1.68066299, +0.438157320), (+1.70744026, +0.143326163), (+1.32276642, +0.236877516), (+1.15170109, +0.573758125), (+1.93989944, +0.409907877), (+1.20766842, +0.771895409), (+1.94449365, +0.269338578), (+1.82253587, +0.277844936), (+1.89833379, +0.990752161), (+1.27435374, +0.379999012), (+1.01052916, +0.341640294), (+1.29205287, +0.490703225), (+1.78814256, +0.511321187), (+1.94518459, +0.765131354), (+1.78526247, +0.260722488), (+1.54933548, +0.510127306), (+1.60850465, +0.189469248), (+1.50236070, +0.941923201), (+1.67226326, +0.111057319), (+1.66926491, +0.831637979), (+1.93954527, +0.213378802), (+1.85113418, +0.728203431E-1), (+1.92795181, +0.464896262), (+1.82730317, +0.508069694), (+1.33749259, +0.704741240), (+1.83438861, +0.501476228), (+1.23183453, +0.289421380), (+1.69943297, +0.612581670), (+1.95738554, +0.416181743), (+1.30503285, +0.480006844), (+1.48259926, +0.757652342), (+1.68420053, +0.459735692), (+1.35015416, +0.500817478), (+1.33160031, +0.218668461), (+1.43122673, +0.473925769), (+1.82827127, +0.171223894)
11reltol = sqrt(epsilon(1._TKG))
12reltol
13+0.345266977E-3
14isClose(data, adat, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, adat, reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+96
21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
22data
23(+1.7591588337516935, +0.45832362280645866), (+1.2492175852268959, +0.19168858480694106), (+1.1595992678591625, +0.68635235465903632), (+1.6021392253395090, +0.39380423013676769), (+1.2443926613693688, +0.50759919769969619), (+1.9347032423890971, +0.30059507329376822), (+1.1716322461601274, +0.36413684958099846), (+1.1266880308704312, +0.49818241951913267), (+1.9114942511830324, +0.16089856277105385), (+1.7402681366411237, +0.51444433488805674E-1), (+1.6430968579994105, +0.84196494244643061), (+1.4533159628781374, +0.40003431043200810), (+1.8524836011745824, +0.33846839717231203), (+1.7185790761154798, +0.80935580600532453), (+1.8305066015581564, +0.98949747822445910), (+1.9296658639462856, +0.27462258317474075), (+1.5689830750812364, +0.26501244830800297), (+1.1108727632913875, +0.63661216921820829), (+1.8956321110179701, +0.76749403700926777), (+1.0257154366968502, +0.55867767900113252), (+1.6059356574293604, +0.71153857612830129), (+1.0290089793971995, +0.10277184864913769), (+1.1825647525972378, +0.89196683355308026), (+1.2480240644215428, +0.48740518970102342E-1), (+1.3984722817486930, +0.63557960225656429), (+1.8752821069459409, +0.17701090797205232), (+1.7563144796720214, +0.58470432516064541E-1), (+1.3483883157463383, +0.50318626129469002), (+1.2270213026962635, +0.57130336973770346E-1), (+1.9216162864889617, +0.84741418132642243E-2), (+1.5267308589297242, +0.80657838540739801), (+1.2356258523740713, +0.67697520220627905), (+1.2031492399467965, +0.31677711137968978), (+1.4267304059702393, +0.64148936640836063), (+1.8431490624638407, +0.88259954766076509), (+1.3086962353831382, +0.13939713653347596), (+1.7444289099640247, +0.57204164743512087E-1), (+1.9693242411248337, +0.78352664388439075), (+1.8117308060984465, +0.51852344769184955), (+1.0401394883657091, +0.78668760110378422), (+1.2776933342249643, +0.18184901330400438), (+1.9304196901095254, +0.79766048293680525), (+1.4028144873453854, +0.60186095957336894), (+1.4063434010063658, +0.63339012062589961), (+1.1571329844583347, +0.85333263526348757), (+1.3431680153199821, +0.92863276390624616), (+1.4456362193052583, +0.20193590398894579), (+1.8658546318924594, +0.84888309945866380E-2), (+1.8832645830245216, +0.42819534197945941), (+1.9725463565442496, +0.44581023086629701E-1), (+1.4819099526930710, +0.12419930594393325), (+1.5545419701038590, +0.48552263879661373), (+1.3399482519144075, +0.68434145129112922), (+1.8422294054235424, +0.42558765616028560E-1), (+1.3455426409175728, +0.12852088036701503), (+1.2036232522053847, +0.87978926404939783), (+1.6497594406647713, +0.95760565516456064), (+1.8990911135637594, +0.23771113929813992), (+1.0978792558597683, +0.37840164491571215), (+1.2451733986383200, +0.12199392313685042), (+1.6094153677681482, +0.93048190846465928), (+1.5208066747582385, +0.74638783956346266E-1), (+1.5198895996334563, +0.66664052781850192), (+1.9434988500438926, +0.19319594829250986), (+1.9604318378077372, +0.99986763694557013), (+1.9253097063218667, +0.43558078463080030), (+1.8550794977086698, +0.61221183608539242), (+1.1953136417950414, +0.88337171160816630E-1), (+1.4199821882704891, +0.25188370192627973), (+1.8466478226233858, +0.16646509659370889), (+1.2102570750093271, +0.60924706521528538), (+1.5810005291741409, +0.86813505391144952), (+1.1891557102532908, +0.37032451569047964), (+1.6146169191663227, +0.84953773585279990), (+1.6210361940313023, +0.77374921354566129), (+1.2518071278883647, +0.87572325919639049), (+1.4478319939255815, +0.88088536193449474), (+1.0569737149154648, +0.12546641750522336E-1), (+1.7583845214101919, +0.11126651769762230), (+1.3519164400910257, +0.60312407478917696), (+1.1397855910759744, +0.26097314846947373), (+1.7788515247224712, +0.85451261869831652E-1), (+1.0003450471572068, +0.80673599588584266), (+1.4882038602770853, +0.75791770646840229), (+1.1916421882070811, +0.75516863625391017), (+1.7878698316567125, +0.62612391487845820), (+1.8418457261679957, +0.10642360700633446), (+1.3942530988719271, +0.45870443500625224), (+1.4458426168585521, +0.12881079579751920), (+1.2092546159223643, +0.50078540332872756), (+1.0997449951009952, +0.86777391179251984), (+1.6037632795851553, +0.42351518643254538), (+1.7889924722825250, +0.13793873789968292), (+1.5708022900024736, +0.27360890469879018), (+1.3457964495940717, +0.63324425943464346), (+1.6665682238495625, +0.42411153915666100)
24
25adat = getFFTI(getFFTF(data))
26adat
27(+1.7591588337516930, +0.45832362280645872), (+1.2492175852268963, +0.19168858480694118), (+1.1595992678591625, +0.68635235465903632), (+1.6021392253395090, +0.39380423013676774), (+1.2443926613693681, +0.50759919769969608), (+1.9347032423890971, +0.30059507329376822), (+1.1716322461601274, +0.36413684958099851), (+1.1266880308704312, +0.49818241951913272), (+1.9114942511830320, +0.16089856277105402), (+1.7402681366411239, +0.51444433488805688E-1), (+1.6430968579994105, +0.84196494244643072), (+1.4533159628781371, +0.40003431043200799), (+1.8524836011745818, +0.33846839717231192), (+1.7185790761154796, +0.80935580600532442), (+1.8305066015581561, +0.98949747822445921), (+1.9296658639462856, +0.27462258317474070), (+1.5689830750812357, +0.26501244830800297), (+1.1108727632913875, +0.63661216921820840), (+1.8956321110179701, +0.76749403700926777), (+1.0257154366968506, +0.55867767900113252), (+1.6059356574293597, +0.71153857612830129), (+1.0290089793971995, +0.10277184864913769), (+1.1825647525972383, +0.89196683355308015), (+1.2480240644215428, +0.48740518970102301E-1), (+1.3984722817486923, +0.63557960225656429), (+1.8752821069459413, +0.17701090797205232), (+1.7563144796720214, +0.58470432516064610E-1), (+1.3483883157463383, +0.50318626129469002), (+1.2270213026962629, +0.57130336973770270E-1), (+1.9216162864889619, +0.84741418132641584E-2), (+1.5267308589297244, +0.80657838540739779), (+1.2356258523740711, +0.67697520220627905), (+1.2031492399467960, +0.31677711137968984), (+1.4267304059702393, +0.64148936640836052), (+1.8431490624638411, +0.88259954766076509), (+1.3086962353831384, +0.13939713653347610), (+1.7444289099640238, +0.57204164743512122E-1), (+1.9693242411248337, +0.78352664388439086), (+1.8117308060984465, +0.51852344769184966), (+1.0401394883657096, +0.78668760110378422), (+1.2776933342249639, +0.18184901330400444), (+1.9304196901095261, +0.79766048293680525), (+1.4028144873453852, +0.60186095957336883), (+1.4063434010063658, +0.63339012062589950), (+1.1571329844583338, +0.85333263526348757), (+1.3431680153199823, +0.92863276390624594), (+1.4456362193052588, +0.20193590398894573), (+1.8658546318924591, +0.84888309945865999E-2), (+1.8832645830245212, +0.42819534197945952), (+1.9725463565442498, +0.44581023086629701E-1), (+1.4819099526930710, +0.12419930594393332), (+1.5545419701038592, +0.48552263879661361), (+1.3399482519144068, +0.68434145129112900), (+1.8422294054235424, +0.42558765616028407E-1), (+1.3455426409175726, +0.12852088036701503), (+1.2036232522053847, +0.87978926404939772), (+1.6497594406647709, +0.95760565516456064), (+1.8990911135637598, +0.23771113929813975), (+1.0978792558597683, +0.37840164491571215), (+1.2451733986383196, +0.12199392313685056), (+1.6094153677681478, +0.93048190846465939), (+1.5208066747582389, +0.74638783956346336E-1), (+1.5198895996334563, +0.66664052781850192), (+1.9434988500438930, +0.19319594829250986), (+1.9604318378077368, +0.99986763694557013), (+1.9253097063218667, +0.43558078463080019), (+1.8550794977086700, +0.61221183608539231), (+1.1953136417950414, +0.88337171160816658E-1), (+1.4199821882704884, +0.25188370192627990), (+1.8466478226233858, +0.16646509659370884), (+1.2102570750093276, +0.60924706521528527), (+1.5810005291741409, +0.86813505391144963), (+1.1891557102532904, +0.37032451569047975), (+1.6146169191663229, +0.84953773585279979), (+1.6210361940313018, +0.77374921354566129), (+1.2518071278883645, +0.87572325919639049), (+1.4478319939255810, +0.88088536193449463), (+1.0569737149154652, +0.12546641750522364E-1), (+1.7583845214101921, +0.11126651769762248), (+1.3519164400910255, +0.60312407478917673), (+1.1397855910759740, +0.26097314846947384), (+1.7788515247224714, +0.85451261869831679E-1), (+1.0003450471572073, +0.80673599588584244), (+1.4882038602770851, +0.75791770646840240), (+1.1916421882070805, +0.75516863625390995), (+1.7878698316567123, +0.62612391487845820), (+1.8418457261679957, +0.10642360700633438), (+1.3942530988719275, +0.45870443500625235), (+1.4458426168585516, +0.12881079579751933), (+1.2092546159223647, +0.50078540332872745), (+1.0997449951009948, +0.86777391179251961), (+1.6037632795851553, +0.42351518643254532), (+1.7889924722825241, +0.13793873789968294), (+1.5708022900024736, +0.27360890469878985), (+1.3457964495940722, +0.63324425943464324), (+1.6665682238495623, +0.42411153915666083)
28reltol = sqrt(epsilon(1._TKG))
29reltol
30+0.14901161193847656E-7
31isClose(data, adat, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, adat, reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+50
38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
39data
40(+1.53099937082875355010177423605807837, +0.272350068180932995849925615367089170), (+1.73461449059754189071392493008395392, +0.465184282348075757051078801766174433), (+1.40715299661546628473510055550489184, +0.537934509640238685364601870777034104), (+1.07351138136006017362594046026252523, +0.645151494965696765671443238877683755), (+1.72972840289764241656606532695005144, +0.975872064342017892343592479746060437), (+1.81006935802431478418271574047961175, +0.369036344779161377186938501364551414), (+1.15187451471775301743382687811609332, +0.404285652948346516461206656129458995), (+1.30699769782104272198002784010848881, +0.832617996013193853560579251880878241), (+1.35865389791042867421875351998179932, +0.175029505671747666910413722670739048), (+1.11421261056386376677609135093942847, +0.705680304771843414287167419590505319), (+1.68389349202957819549138273382192457, +0.526126476704161998498827746710116955), (+1.50325214281996298029671298369361847, +0.856753155351061908414685874730080451), (+1.84736080655195882417785509813413382, +0.189687436344158511997049073019189359), (+1.66563337834916177111449637848035659, +0.367933834914969463024886082208706484), (+1.45546319040712259885178630047360736, +0.554220718285248003955720466401612741E-1), (+1.78872626940465871335921361670721330, +0.770586971364879577112442170740499410), (+1.38953727789627177503022240495612508, +0.309348309019728787119855779435841252), (+1.31725161163141836539654025572150947, +0.483884615457490609207937813515719861E-1), (+1.99466221912791871770797612049199439, +0.699597955112698220787680178764212872), (+1.58171779719197326324549465605783752, +0.944182437133045950797835349118118079), (+1.37861186715063220076037578132285563, +0.122513416869387546699266864224838278E-1), (+1.64264730674704392546658881529647427, +0.195066942891518406308817558550813555), (+1.88480220234867102712373015108527394, +0.200768422566226884458158422748585000), (+1.70002611056837488221923505307441095, +0.432549457664129155992069678279247964), (+1.90779833205866619482040620415704746, +0.362628356064344762400854813341068489), (+1.40008506544189211986404419887786834, +0.298683673415517277249280247806814668), (+1.52801688783712445429875016197713505, +0.358456864534869188818349779425823720), (+1.84727519596980186851227733918777482, +0.676900826851463364003550255046450298), (+1.31032928032046309693191705308702110, +0.617902618744862740889903967575382972E-1), (+1.63498565147360341211628716422294105, +0.535515649912881974072523816794119955), (+1.90778869057449838053533494466814526, +0.409328954604882980709175891048803641), (+1.97488133909631339989699824750041479, +0.861956243575653010429072529614825135), (+1.97320848655871918170793128225965051, +0.216536878949074181189626857655242141), (+1.58560273179862425387994427748439746, +0.416402152650522708497174983746896852), (+1.01394551666298582730932034472751113, +0.977409052658199471906552046163855294), (+1.14429688835896350053175802788601826, +0.322467793615386508423382516664765541), (+1.57122074773989773263418357548573915, +0.210196793439616036960361254634634200), (+1.40910307455042041563786173445484750, +0.510575856347329104926128312708821441), (+1.97515757833201457666675299151702863, +0.511304671801009880993929964258642255), (+1.35740931755908622026520841307912257, +0.546714149417385433420494009697314807), (+1.39926764728061177268868406487755391, +0.808071621122745491495195604254606678), (+1.82237482185192204348264601068237334, +0.637084768116373574424627857913815486), (+1.18644035748902025164706529244132873, +0.400298219135779721452802409919855981), (+1.55619757989457627917221647075029967, +0.514042696212659065670287887592294346), (+1.38301031770152320471848917963973993, +0.359463377469930466891691356781592515), (+1.43476577866298620169817134698656487, +0.135429631040437893059481599755018383), (+1.69935515536448913791390001698585558, +0.964060274395135049896693833622699706), (+1.13550812226554566890635240526241041, +0.469011850274065445709608211446041799), (+1.85875055317495212068424243303048331, +0.219436354310927840816823773926282115), (+1.07538390511338645209508282334111485, +0.654815156929591058716013006817145926)
41
42adat = getFFTI(getFFTF(data))
43adat
44(+1.53099937082875355010177423605807857, +0.272350068180932995849925615367089074), (+1.73461449059754189071392493008395373, +0.465184282348075757051078801766174578), (+1.40715299661546628473510055550489165, +0.537934509640238685364601870777034104), (+1.07351138136006017362594046026252503, +0.645151494965696765671443238877683755), (+1.72972840289764241656606532695005144, +0.975872064342017892343592479746060533), (+1.81006935802431478418271574047961194, +0.369036344779161377186938501364551462), (+1.15187451471775301743382687811609351, +0.404285652948346516461206656129458899), (+1.30699769782104272198002784010848842, +0.832617996013193853560579251880878337), (+1.35865389791042867421875351998179971, +0.175029505671747666910413722670739024), (+1.11421261056386376677609135093942827, +0.705680304771843414287167419590505319), (+1.68389349202957819549138273382192438, +0.526126476704161998498827746710116955), (+1.50325214281996298029671298369361866, +0.856753155351061908414685874730080451), (+1.84736080655195882417785509813413401, +0.189687436344158511997049073019189480), (+1.66563337834916177111449637848035640, +0.367933834914969463024886082208706388), (+1.45546319040712259885178630047360717, +0.554220718285248003955720466401612500E-1), (+1.78872626940465871335921361670721310, +0.770586971364879577112442170740499217), (+1.38953727789627177503022240495612489, +0.309348309019728787119855779435841156), (+1.31725161163141836539654025572150966, +0.483884615457490609207937813515721606E-1), (+1.99466221912791871770797612049199459, +0.699597955112698220787680178764212872), (+1.58171779719197326324549465605783714, +0.944182437133045950797835349118117887), (+1.37861186715063220076037578132285563, +0.122513416869387546699266864224838052E-1), (+1.64264730674704392546658881529647427, +0.195066942891518406308817558550813555), (+1.88480220234867102712373015108527355, +0.200768422566226884458158422748585192), (+1.70002611056837488221923505307441076, +0.432549457664129155992069678279247819), (+1.90779833205866619482040620415704727, +0.362628356064344762400854813341068586), (+1.40008506544189211986404419887786834, +0.298683673415517277249280247806814523), (+1.52801688783712445429875016197713505, +0.358456864534869188818349779425823527), (+1.84727519596980186851227733918777482, +0.676900826851463364003550255046450202), (+1.31032928032046309693191705308702130, +0.617902618744862740889903967575382431E-1), (+1.63498565147360341211628716422294066, +0.535515649912881974072523816794119859), (+1.90778869057449838053533494466814526, +0.409328954604882980709175891048803593), (+1.97488133909631339989699824750041479, +0.861956243575653010429072529614825328), (+1.97320848655871918170793128225965012, +0.216536878949074181189626857655242262), (+1.58560273179862425387994427748439746, +0.416402152650522708497174983746896804), (+1.01394551666298582730932034472751094, +0.977409052658199471906552046163855198), (+1.14429688835896350053175802788601826, +0.322467793615386508423382516664765589), (+1.57122074773989773263418357548573915, +0.210196793439616036960361254634634152), (+1.40910307455042041563786173445484750, +0.510575856347329104926128312708821537), (+1.97515757833201457666675299151702882, +0.511304671801009880993929964258642255), (+1.35740931755908622026520841307912199, +0.546714149417385433420494009697314903), (+1.39926764728061177268868406487755391, +0.808071621122745491495195604254606678), (+1.82237482185192204348264601068237334, +0.637084768116373574424627857913815582), (+1.18644035748902025164706529244132892, +0.400298219135779721452802409919855933), (+1.55619757989457627917221647075029967, +0.514042696212659065670287887592294346), (+1.38301031770152320471848917963973974, +0.359463377469930466891691356781592467), (+1.43476577866298620169817134698656487, +0.135429631040437893059481599755018407), (+1.69935515536448913791390001698585539, +0.964060274395135049896693833622699610), (+1.13550812226554566890635240526241022, +0.469011850274065445709608211446041991), (+1.85875055317495212068424243303048331, +0.219436354310927840816823773926282139), (+1.07538390511338645209508282334111466, +0.654815156929591058716013006817145734)
45reltol = sqrt(epsilon(1._TKG))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, adat, 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, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, adat, reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+60
55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
56data
57+1.55691504, +1.20401442, +1.75567877, +1.09179091, +1.48403144, +1.02785063, +1.58899915, +1.37723196, +1.23665476, +1.21661603, +1.11391664, +1.83155537, +1.66511440, +1.50816870, +1.03901732, +1.50204027, +1.14736485, +1.87206817, +1.14056563, +1.25750256, +1.66712594, +1.52875006, +1.51060724, +1.94431925, +1.52735972, +1.87689829, +1.57694626, +1.92588234, +1.08774757, +1.58209801, +1.88549554, +1.92752564, +1.25405836, +1.50682497, +1.71898103, +1.91436958, +1.23298907, +1.96848595, +1.39553857, +1.55396008, +1.28314757, +1.51632011, +1.18511617, +1.00225091, +1.48995161, +1.93459797, +1.30012107, +1.02866387, +1.43710423, +1.87221241, +1.06243730, +1.18292212, +1.64853573, +1.83448696, +1.99170852, +1.29200709, +1.07625604, +1.97309303, +1.04043484, +1.20543170
58
59adat = getFFTI(getFFTF(data))
60adat
61+1.55691516, +1.20401418, +1.75567877, +1.09179080, +1.48403132, +1.02785039, +1.58899915, +1.37723172, +1.23665464, +1.21661592, +1.11391675, +1.83155513, +1.66511464, +1.50816905, +1.03901744, +1.50204039, +1.14736497, +1.87206841, +1.14056587, +1.25750268, +1.66712606, +1.52875030, +1.51060760, +1.94431925, +1.52736008, +1.87689841, +1.57694638, +1.92588246, +1.08774781, +1.58209813, +1.88549590, +1.92752576, +1.25405848, +1.50682533, +1.71898139, +1.91436970, +1.23298931, +1.96848595, +1.39553869, +1.55396008, +1.28314769, +1.51632023, +1.18511641, +1.00225115, +1.48995173, +1.93459809, +1.30012155, +1.02866387, +1.43710458, +1.87221265, +1.06243742, +1.18292212, +1.64853585, +1.83448720, +1.99170887, +1.29200709, +1.07625616, +1.97309315, +1.04043519, +1.20543170
62reltol = sqrt(epsilon(1._TKG))
63reltol
64+0.345266977E-3
65isClose(data, adat, 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, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, adat, reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+53
72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
73data
74+1.9439158091972804, +1.6846633079510602, +1.5987707095240200, +1.7968736771665221, +1.9222086667636042, +1.3207132003437061, +1.0639530258062144, +1.4274517779523199, +1.4478204078696415, +1.0890867952133927, +1.8690436881544192, +1.3625403300744352, +1.8797353428859778, +1.6720530510337031, +1.8805889415404622, +1.8739092715637964, +1.7811489814329295, +1.6569533421694402, +1.3607837886742800, +1.2944141111899150, +1.1266475855204690, +1.6842325949963917, +1.1889091178725002, +1.2379800186757475, +1.2692518070598340, +1.1487948470476157, +1.9816407893496584, +1.3665092519588560, +1.0044484806449194, +1.7587520627713082, +1.8821620130047823, +1.8954549145601116, +1.6540195473087536, +1.2094925697519852, +1.0618846405971814, +1.6636428391488425, +1.2655483022375504, +1.3850593076584192, +1.7903188313076284, +1.8726102601924217, +1.0710422378681734, +1.1682457181230319, +1.9806852942021798, +1.1611732230196750, +1.1454181350913224, +1.7808549233029858, +1.4088482827193776, +1.1450838659031595, +1.3190125994982655, +1.4584281181357119, +1.0827500899749538, +1.8734161459526091, +1.4337032330943216
75
76adat = getFFTI(getFFTF(data))
77adat
78+1.9439158091972824, +1.6846633079510613, +1.5987707095240211, +1.7968736771665241, +1.9222086667636047, +1.3207132003437070, +1.0639530258062158, +1.4274517779523208, +1.4478204078696395, +1.0890867952133965, +1.8690436881544130, +1.3625403300744394, +1.8797353428859740, +1.6720530510337057, +1.8805889415404602, +1.8739092715637968, +1.7811489814329284, +1.6569533421694387, +1.3607837886742806, +1.2944141111899157, +1.1266475855204756, +1.6842325949963834, +1.1889091178725051, +1.2379800186757484, +1.2692518070598315, +1.1487948470476275, +1.9816407893496371, +1.3665092519588535, +1.0044484806449328, +1.7587520627713000, +1.8821620130047807, +1.8954549145601076, +1.6540195473087533, +1.2094925697519880, +1.0618846405971896, +1.6636428391488352, +1.2655483022375540, +1.3850593076584192, +1.7903188313076273, +1.8726102601924171, +1.0710422378681776, +1.1682457181230339, +1.9806852942021744, +1.1611732230196776, +1.1454181350913246, +1.7808549233029825, +1.4088482827193796, +1.1450838659031604, +1.3190125994982664, +1.4584281181357128, +1.0827500899749558, +1.8734161459526091, +1.4337032330943233
79reltol = sqrt(epsilon(1._TKG))
80reltol
81+0.14901161193847656E-7
82isClose(data, adat, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, adat, reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+71
89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
90data
91+1.19180414752887827803769295889883122, +1.66087560903741354796575790514397170, +1.02863628862323422575167104448467694, +1.39070858534363945147243640208088742, +1.11956265290154527439985931325807564, +1.81629835006691215855081258742681988, +1.56883080021877877633671734292377876, +1.04221129624064386993344621273123225, +1.38327892630036610753537868309131018, +1.84852145131761623333882545181182371, +1.77429766119730859848623461006359760, +1.99512260415263789998704284398430664, +1.31101578532174939971793042731762467, +1.25815629947004432866343704069518924, +1.20108907829920266702012881402978466, +1.02252991183599200551479833082034296, +1.28749259069248418647509323013780269, +1.08109328627492395788680334085044594, +1.02496554444909610461898128517463586, +1.91849490048372866484069209700898966, +1.13517471661932243907477680579719183, +1.13481642250977729703550995056492038, +1.59692375899297510068205732037401887, +1.75772685139211640024708069202767167, +1.02389695639425881501814349990894541, +1.67714935608219720458667831496710830, +1.62207926234851632612522601604080472, +1.69938982437909175137656051794250197, +1.04495478643314215523750528625638087, +1.56130870068716196106895625873836638, +1.69430351938263198025524902374668623, +1.63739102903638948502803133658499023, +1.72794738479399703989871476824229276, +1.96101929926237306271805009988738133, +1.69507889119645980905149915163714188, +1.79917229417465271022321234108860384, +1.87971663818627214865027465639543534, +1.39262425833636226639206692617931628, +1.65052365730607960226912641706623138, +1.49146793377520637329775549935083983, +1.17999043746468611615732284046394874, +1.10483447051124283956559513984385953, +1.94095493257410206989805958373651592, +1.17769806220640548726019080573174588, +1.91228942657873537073160938105396349, +1.87007818846937880688230481854185975, +1.01729759173708658682373822370112351, +1.36827399789975583127596181540206408, +1.85778732442263564510991444870160635, +1.42840934915015132789626265804495724, +1.61655938132776565961274333443699744, +1.00992879012497133031808899000211805, +1.60926119806771379698160523310455558, +1.35436254147470849601257866531787236, +1.02359943099218393389085518242299670, +1.83043589948081777748198778816989015, +1.67583063437858843267466561203544902, +1.36195810266792874189158195873926401, +1.38030240957402777736055665955417531, +1.16799751029950118566167088918317877, +1.51535392467540509861992967234068586, +1.39961554646389465000283590821988789, +1.07858308089816779851725575944881045, +1.16318504937278189401763750962563486, +1.64675910507867104707702135090279867, +1.82814891889822300719828698276379616, +1.40948541766459422013495181209715105, +1.89563134090880897808811168173273919, +1.66009547242370722887182024540643771, +1.86533289533361556482654721077495083, +1.35155859275320185973695968031402239
92
93adat = getFFTI(getFFTF(data))
94adat
95+1.19180414752887827803769295889883199, +1.66087560903741354796575790514397189, +1.02863628862323422575167104448467829, +1.39070858534363945147243640208088703, +1.11956265290154527439985931325807660, +1.81629835006691215855081258742681853, +1.56883080021877877633671734292377934, +1.04221129624064386993344621273123302, +1.38327892630036610753537868309131287, +1.84852145131761623333882545181182313, +1.77429766119730859848623461006359933, +1.99512260415263789998704284398430587, +1.31101578532174939971793042731762756, +1.25815629947004432866343704069519020, +1.20108907829920266702012881402978620, +1.02252991183599200551479833082034431, +1.28749259069248418647509323013780423, +1.08109328627492395788680334085044575, +1.02496554444909610461898128517463837, +1.91849490048372866484069209700898523, +1.13517471661932243907477680579719376, +1.13481642250977729703550995056492019, +1.59692375899297510068205732037401906, +1.75772685139211640024708069202766744, +1.02389695639425881501814349990895042, +1.67714935608219720458667831496710580, +1.62207926234851632612522601604080472, +1.69938982437909175137656051794249812, +1.04495478643314215523750528625638376, +1.56130870068716196106895625873836291, +1.69430351938263198025524902374668661, +1.63739102903638948502803133658498754, +1.72794738479399703989871476824229622, +1.96101929926237306271805009988737593, +1.69507889119645980905149915163714689, +1.79917229417465271022321234108859710, +1.87971663818627214865027465639542744, +1.39262425833636226639206692617932225, +1.65052365730607960226912641706622715, +1.49146793377520637329775549935084272, +1.17999043746468611615732284046394701, +1.10483447051124283956559513984386473, +1.94095493257410206989805958373650860, +1.17769806220640548726019080573174839, +1.91228942657873537073160938105395925, +1.87007818846937880688230481854185821, +1.01729759173708658682373822370112621, +1.36827399789975583127596181540206562, +1.85778732442263564510991444870160192, +1.42840934915015132789626265804495858, +1.61655938132776565961274333443699532, +1.00992879012497133031808899000212113, +1.60926119806771379698160523310455307, +1.35436254147470849601257866531787390, +1.02359943099218393389085518242299824, +1.83043589948081777748198778816989015, +1.67583063437858843267466561203544825, +1.36195810266792874189158195873926555, +1.38030240957402777736055665955417627, +1.16799751029950118566167088918318089, +1.51535392467540509861992967234068566, +1.39961554646389465000283590821988924, +1.07858308089816779851725575944881084, +1.16318504937278189401763750962563794, +1.64675910507867104707702135090279867, +1.82814891889822300719828698276379693, +1.40948541766459422013495181209715144, +1.89563134090880897808811168173273996, +1.66009547242370722887182024540643733, +1.86533289533361556482654721077495237, +1.35155859275320185973695968031402258
96reltol = sqrt(epsilon(1._TKG))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, adat, reltol = reltol)
100T, 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
101call setAsserted(all(isClose(data, adat, reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+35
106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
107data
108(+1.23043430, +0.811137557E-1), (+1.40250695, +0.137834668), (+1.50793886, +0.664000928), (+1.89928174, +0.608835578), (+1.73984647, +0.203952432), (+1.72677732, +0.915868700), (+1.65543365, +0.249864876), (+1.23509884, +0.728892088), (+1.36425877, +0.659014046), (+1.76658499, +0.452781320E-1), (+1.09259140, +0.852475643), (+1.72667599, +0.541322470), (+1.72556710, +0.554588675), (+1.00852442, +0.515901983), (+1.35310662, +0.305835962), (+1.66293836, +0.118976176), (+1.41363347, +0.874160886), (+1.71584082, +0.276444256), (+1.52261162, +0.710971653), (+1.83161330, +0.836736321), (+1.42856097, +0.622727692), (+1.36616993, +0.593267858), (+1.02911401, +0.828086913), (+1.05168128, +0.797690451), (+1.55110717, +0.102927208), (+1.16393971, +0.478393376), (+1.00753570, +0.847034335), (+1.89551556, +0.997269988), (+1.21235871, +0.599703074), (+1.01227856, +0.229659736), (+1.46312428, +0.323186159), (+1.43586230, +0.508859575), (+1.47048879, +0.192322969), (+1.53622365, +0.821571171), (+1.35423768, +0.135030031)
109
110adat = getFFTI(getFFTF(data))
111adat
112(+1.23043382, +0.811136514E-1), (+1.40250683, +0.137834683), (+1.50793874, +0.664000869), (+1.89928126, +0.608835518), (+1.73984599, +0.203952312), (+1.72677708, +0.915868580), (+1.65543365, +0.249864846), (+1.23509872, +0.728892088), (+1.36425912, +0.659014106), (+1.76658499, +0.452781878E-1), (+1.09259140, +0.852475703), (+1.72667623, +0.541322410), (+1.72556734, +0.554588675), (+1.00852478, +0.515902102), (+1.35310638, +0.305835903), (+1.66293859, +0.118976243), (+1.41363358, +0.874160886), (+1.71584082, +0.276444256), (+1.52261162, +0.710971773), (+1.83161342, +0.836736441), (+1.42856121, +0.622727752), (+1.36616969, +0.593267798), (+1.02911425, +0.828087091), (+1.05168152, +0.797690511), (+1.55110705, +0.102927178), (+1.16393983, +0.478393286), (+1.00753582, +0.847034395), (+1.89551592, +0.997270226), (+1.21235883, +0.599703193), (+1.01227891, +0.229659811), (+1.46312416, +0.323186189), (+1.43586230, +0.508859575), (+1.47048891, +0.192322955), (+1.53622389, +0.821571350), (+1.35423779, +0.135030061)
113reltol = sqrt(epsilon(1._TKG))
114reltol
115+0.345266977E-3
116isClose(data, adat, reltol = reltol)
117T, 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
118call setAsserted(all(isClose(data, adat, reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+21
123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
124data
125(+1.4422154961759817, +0.89184910093030534), (+1.2648583580492034, +0.79559288822558183), (+1.2802859867749414, +0.15679815922219964), (+1.0579025887727056, +0.67504465890345644E-1), (+1.1920160002475322, +0.35670582426625763), (+1.0172317127176764, +0.84450479891314267E-1), (+1.7131648383416116, +0.16248426558558848), (+1.8076575385618043, +0.36936299861842714), (+1.5728342181275567, +0.48187770257888995), (+1.9954705043214620, +0.32449860479187542), (+1.8754182635106771, +0.25081871112887433), (+1.3596183230946943, +0.30130161279951828E-1), (+1.7968631816188285, +0.51964776610687258), (+1.3558301962550350, +0.79275358034314891), (+1.7543499260292934, +0.96689360157793780), (+1.9624367258020610, +0.61445166852469046), (+1.3190546861320978, +0.82212476871676610), (+1.4985962628694145, +0.39807892130752920), (+1.4991148856190728, +0.99630355454315012), (+1.3525356086732874, +0.29381003921448634), (+1.4524286606385819, +0.39742322716820766)
126
127adat = getFFTI(getFFTF(data))
128adat
129(+1.4422154961759812, +0.89184910093030545), (+1.2648583580492032, +0.79559288822558183), (+1.2802859867749414, +0.15679815922219961), (+1.0579025887727052, +0.67504465890345630E-1), (+1.1920160002475320, +0.35670582426625758), (+1.0172317127176764, +0.84450479891314198E-1), (+1.7131648383416114, +0.16248426558558843), (+1.8076575385618039, +0.36936299861842709), (+1.5728342181275565, +0.48187770257889012), (+1.9954705043214618, +0.32449860479187526), (+1.8754182635106764, +0.25081871112887422), (+1.3596183230946941, +0.30130161279951783E-1), (+1.7968631816188283, +0.51964776610687236), (+1.3558301962550345, +0.79275358034314902), (+1.7543499260292932, +0.96689360157793791), (+1.9624367258020605, +0.61445166852469046), (+1.3190546861320975, +0.82212476871676587), (+1.4985962628694141, +0.39807892130752887), (+1.4991148856190726, +0.99630355454315001), (+1.3525356086732871, +0.29381003921448628), (+1.4524286606385819, +0.39742322716820783)
130reltol = sqrt(epsilon(1._TKG))
131reltol
132+0.14901161193847656E-7
133isClose(data, adat, reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, adat, reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+78
140data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
141data
142(+1.47066047292545706348664215956634936, +0.965992950502519872867210721138758887), (+1.23721862842080381130834004037895026, +0.711365944310180629784185098732873638), (+1.58056442914607540310417800652735081, +0.875550234982204318292135467576396477), (+1.60326248318362145986248545165130322, +0.559981126331243356908837681533215312), (+1.30488829805118780273809257905134232, +0.848886616959000290615597590011566695), (+1.06731967279040467442361788307843791, +0.835673586063952726356158139761970051E-1), (+1.54901862175137911517212323711657350, +0.600727033694359377978978740545391558), (+1.95545501557894948846256865383022688, +0.301561265505715759211763185595082279), (+1.00455257116890245808701206373882695, +0.887522379162022133117714968124346271E-2), (+1.81021254605245731756678145752756206, +0.991495982417160429263374053150292339), (+1.07582863218597790435403939905462819, +0.719534462436509776176763719706973765), (+1.94298973021899796657101055809374046, +0.257747842141992285037636559286893584E-1), (+1.28919927615723720292092799313719232, +0.738738103322193980487954338273809592), (+1.13275853320909709413756925991896897, +0.508583998681462890787978441378079568), (+1.19175666269135988051046780787580973, +0.948899363677161843126868787993484830), (+1.18525168600109325995719062634112137, +0.955457771219932279126652723865878790), (+1.02941324628891828441832722534915490, +0.776158525316394966899031335442177077), (+1.74612455340404119821143230795053561, +0.334195375934813780415694462181653936), (+1.59399551074115869889360302169441123, +0.267839828334717337735697681258458145), (+1.82216503556394807423424850770524200, +0.605905746328633498290146742726335473), (+1.45272614363072447324205585645485170, +0.474100648096348043070248628226610624), (+1.62779263776323260177869881831340692, +0.130300714335951387827346594338067428), (+1.34050761633742449740164582256541602, +0.717933316771906051855824824149832665), (+1.65292272074023889291693951012753645, +0.961324116336486418502284323946222914), (+1.11149145777128840728880637379087079, +0.737927286110371540724850530926411961), (+1.40557041782105306927652445878676868, +0.645993585502057185827188758595739915), (+1.37415182009397768647392341515390624, +0.954211741527947167435976601810177314), (+1.76042838053169916423702871092688992, +0.438379187136521441753266818574305886), (+1.30969996204405013201400295196627744, +0.957792394645339323824664539009792058), (+1.65999612347726660040217623832744582, +0.231302845129331292463827364261012043), (+1.17003600068905207401059148779477567, +0.890612584663733676510759069224964126), (+1.97890908581186460468890713250882525, +0.176173345558870045618601029078604399), (+1.72215633451635156925401525136385279, +0.473236980674895302922681292383676810), (+1.27944513251246664241954491044330265, +0.991203308371954071613753388113725827), (+1.63565535952416881664523009753940627, +0.359195371915736072677937500975145503), (+1.08784881582918150376264895973308684, +0.869101757336706792883024624524057224E-1), (+1.81300168952703416498355094359492340, +0.610374309546991513296484927760487825), (+1.98363507777422689410322063392319398, +0.524555718421275241092594782758051157), (+1.33689009068003027594783309801641616, +0.801777122502642047845939133065714735), (+1.26308667105352485321715598124719981, +0.349858904120753511540183408839907055), (+1.54393582058135362179205029153934958, +0.350057635297030744343077058886151855), (+1.04911862047201242913145381214218257, +0.311566693515245869183499188155728559), (+1.21882947081941765191579108429079319, +0.864461647156075713083648801131370047), (+1.23582505849556315766540836558152603, +0.387453086039859872474823565069811045), (+1.11449120277806684122206997800346792, +0.770691042756157529132159651618855211E-2), (+1.58280268518698809005911432847472010, +0.173398189859094008533116928750421259), (+1.81651984064654418059735159817209846, +0.514203677919328512702568032331059443), (+1.41697977572269864892680815680896532, +0.667706488103032425541175775694024454), (+1.06123658133058859598577502150122856, +0.979068895401113083246337401479202310), (+1.30362117140387833403054608716885931, +0.897757385504249481094903328802969134), (+1.87989626368467072016131109389760294, +0.751284468993451062782345173949559055), (+1.57599118003172468256010898780447378, +0.392364081587610034782406061182529154E-1), (+1.78221028552486346132458140235577111, +0.299922168323753434536830754590526453), (+1.39639603782560126497793569235909997, +0.311116635146731317274774126239303470), (+1.34131364165992303304931682747916681, +0.331481294439917294624435674173533642), (+1.28449006855209540870320866582455430, +0.682563890958941566683388278754012016), (+1.43947600682172838561833256452248076, +0.165363109321355472126215365778973457), (+1.56262546036919955248462488552844153, +0.284404705631435614781506722517413788), (+1.38014779352821063582078562851293713, +0.237106894222139340116038007611282390), (+1.72786248596808122768208035816060044, +0.214598335842821252807514527829927696), (+1.50560722291059651154664615061849192, +0.381154416072017378086074226260410756), (+1.16503025411112697714363345877621464, +0.205257934858336010006336679300632901), (+1.52374232892847796195156942636353944, +0.501559806215457225912211303637992831E-1), (+1.99931564080564168118072589688015354, +0.708026684166273884864139315993426623), (+1.81022524427774829516325874098879178, +0.510126936527871301228537362183490019), (+1.30161299721831118017565798994700952, +0.887801666956425912128792896975106102), (+1.88837158157035378115730261607836926, +0.860982760133655890123555638036328980), (+1.03580632577696252693287112082038297, +0.409578186217685423139652927785349976), (+1.08507123944656594738799369808544322, +0.252596886461154248133035731445672261), (+1.42764671712579766387731137379636911, +0.179310458398338465225588220024741289), (+1.53302370321477559901629744946479371, +0.592947162185738304866180453996494660), (+1.70418846359546845541821720369388786, +0.504858927101556512336782739303029654), (+1.77623594534523117357631012394516554, +0.765352193473152584884940667557216038), (+1.41546516002738895859282621672948402, +0.818269793527159873989432097005023254), (+1.97049556648877948453174090643678913, +0.913562798771293780578256284531992690), (+1.88791407325481025487579344327733403, +0.827833037527680001975314583482166337E-1), (+1.97875401456963102721670288398827942, +0.384517253781630446241969254440255280), (+1.92822687807094723366314783026839098, +0.282614965478001115149398649902533656)
143
144adat = getFFTI(getFFTF(data))
145adat
146(+1.47066047292545706348664215956634994, +0.965992950502519872867210721138758887), (+1.23721862842080381130834004037895045, +0.711365944310180629784185098732873734), (+1.58056442914607540310417800652735139, +0.875550234982204318292135467576396669), (+1.60326248318362145986248545165130284, +0.559981126331243356908837681533215408), (+1.30488829805118780273809257905134174, +0.848886616959000290615597590011566599), (+1.06731967279040467442361788307843791, +0.835673586063952726356158139761968847E-1), (+1.54901862175137911517212323711657388, +0.600727033694359377978978740545391461), (+1.95545501557894948846256865383022707, +0.301561265505715759211763185595082231), (+1.00455257116890245808701206373882695, +0.887522379162022133117714968124321595E-2), (+1.81021254605245731756678145752756168, +0.991495982417160429263374053150292146), (+1.07582863218597790435403939905462819, +0.719534462436509776176763719706974054), (+1.94298973021899796657101055809374104, +0.257747842141992285037636559286894246E-1), (+1.28919927615723720292092799313719232, +0.738738103322193980487954338273809495), (+1.13275853320909709413756925991896935, +0.508583998681462890787978441378079472), (+1.19175666269135988051046780787580992, +0.948899363677161843126868787993484638), (+1.18525168600109325995719062634112176, +0.955457771219932279126652723865879079), (+1.02941324628891828441832722534915471, +0.776158525316394966899031335442176980), (+1.74612455340404119821143230795053465, +0.334195375934813780415694462181653647), (+1.59399551074115869889360302169441142, +0.267839828334717337735697681258458001), (+1.82216503556394807423424850770524219, +0.605905746328633498290146742726335473), (+1.45272614363072447324205585645485190, +0.474100648096348043070248628226610287), (+1.62779263776323260177869881831340634, +0.130300714335951387827346594338067428), (+1.34050761633742449740164582256541564, +0.717933316771906051855824824149832569), (+1.65292272074023889291693951012753645, +0.961324116336486418502284323946223203), (+1.11149145777128840728880637379087098, +0.737927286110371540724850530926411865), (+1.40557041782105306927652445878676868, +0.645993585502057185827188758595739819), (+1.37415182009397768647392341515390643, +0.954211741527947167435976601810177218), (+1.76042838053169916423702871092689050, +0.438379187136521441753266818574305790), (+1.30969996204405013201400295196627802, +0.957792394645339323824664539009792347), (+1.65999612347726660040217623832744543, +0.231302845129331292463827364261012236), (+1.17003600068905207401059148779477529, +0.890612584663733676510759069224964126), (+1.97890908581186460468890713250882525, +0.176173345558870045618601029078604423), (+1.72215633451635156925401525136385337, +0.473236980674895302922681292383676569), (+1.27944513251246664241954491044330304, +0.991203308371954071613753388113725731), (+1.63565535952416881664523009753940627, +0.359195371915736072677937500975145310), (+1.08784881582918150376264895973308665, +0.869101757336706792883024624524053974E-1), (+1.81300168952703416498355094359492340, +0.610374309546991513296484927760487729), (+1.98363507777422689410322063392319475, +0.524555718421275241092594782758050965), (+1.33689009068003027594783309801641616, +0.801777122502642047845939133065714446), (+1.26308667105352485321715598124720019, +0.349858904120753511540183408839907103), (+1.54393582058135362179205029153934977, +0.350057635297030744343077058886151807), (+1.04911862047201242913145381214218334, +0.311566693515245869183499188155728848), (+1.21882947081941765191579108429079280, +0.864461647156075713083648801131369951), (+1.23582505849556315766540836558152584, +0.387453086039859872474823565069810708), (+1.11449120277806684122206997800346792, +0.770691042756157529132159651618839413E-2), (+1.58280268518698809005911432847472048, +0.173398189859094008533116928750421451), (+1.81651984064654418059735159817209866, +0.514203677919328512702568032331059347), (+1.41697977572269864892680815680896532, +0.667706488103032425541175775694024358), (+1.06123658133058859598577502150122837, +0.979068895401113083246337401479202214), (+1.30362117140387833403054608716885912, +0.897757385504249481094903328802969134), (+1.87989626368467072016131109389760391, +0.751284468993451062782345173949559247), (+1.57599118003172468256010898780447398, +0.392364081587610034782406061182529334E-1), (+1.78221028552486346132458140235577149, +0.299922168323753434536830754590526212), (+1.39639603782560126497793569235910036, +0.311116635146731317274774126239303277), (+1.34131364165992303304931682747916719, +0.331481294439917294624435674173533594), (+1.28449006855209540870320866582455372, +0.682563890958941566683388278754011920), (+1.43947600682172838561833256452248037, +0.165363109321355472126215365778973288), (+1.56262546036919955248462488552844191, +0.284404705631435614781506722517413788), (+1.38014779352821063582078562851293732, +0.237106894222139340116038007611282438), (+1.72786248596808122768208035816060063, +0.214598335842821252807514527829927648), (+1.50560722291059651154664615061849173, +0.381154416072017378086074226260410564), (+1.16503025411112697714363345877621406, +0.205257934858336010006336679300632684), (+1.52374232892847796195156942636353925, +0.501559806215457225912211303637989882E-1), (+1.99931564080564168118072589688015373, +0.708026684166273884864139315993426623), (+1.81022524427774829516325874098879159, +0.510126936527871301228537362183489923), (+1.30161299721831118017565798994701029, +0.887801666956425912128792896975106391), (+1.88837158157035378115730261607836907, +0.860982760133655890123555638036328980), (+1.03580632577696252693287112082038374, +0.409578186217685423139652927785349928), (+1.08507123944656594738799369808544322, +0.252596886461154248133035731445672261), (+1.42764671712579766387731137379636853, +0.179310458398338465225588220024741217), (+1.53302370321477559901629744946479352, +0.592947162185738304866180453996494467), (+1.70418846359546845541821720369388767, +0.504858927101556512336782739303029750), (+1.77623594534523117357631012394516592, +0.765352193473152584884940667557215941), (+1.41546516002738895859282621672948364, +0.818269793527159873989432097005022965), (+1.97049556648877948453174090643678875, +0.913562798771293780578256284531992690), (+1.88791407325481025487579344327733345, +0.827833037527680001975314583482166457E-1), (+1.97875401456963102721670288398827980, +0.384517253781630446241969254440255232), (+1.92822687807094723366314783026839136, +0.282614965478001115149398649902533464)
147reltol = sqrt(epsilon(1._TKG))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, adat, reltol = reltol)
151T, 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, T
152call setAsserted(all(isClose(data, adat, reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+84
157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
158data
159+1.46517563, +1.35407472, +1.06511104, +1.23670590, +1.13719201, +1.70589662, +1.66713881, +1.71606588, +1.55987620, +1.07436156, +1.08378041, +1.74381018, +1.01759887, +1.04574084, +1.30735731, +1.07188487, +1.20881295, +1.96541786, +1.64225769, +1.51161551, +1.47123110, +1.37790143, +1.34156466, +1.91658199, +1.80088580, +1.90480208, +1.83038557, +1.38520849, +1.77496839, +1.61582792, +1.49794459, +1.67465055, +1.72201860, +1.81595314, +1.61032724, +1.80087042, +1.39420187, +1.44622040, +1.78197169, +1.77091789, +1.07686877, +1.87953806, +1.90938544, +1.13463664, +1.29593110, +1.44667041, +1.08144832, +1.97804856, +1.94443703, +1.77505541, +1.40808237, +1.48909378, +1.80732143, +1.71153367, +1.12709427, +1.06499660, +1.30452657, +1.24529397, +1.06532073, +1.77287102, +1.39708340, +1.73207188, +1.64281213, +1.65752268, +1.72595072, +1.44487357, +1.70806062, +1.28532600, +1.79839337, +1.50909555, +1.61004615, +1.36196327, +1.14730549, +1.35856235, +1.85439193, +1.93403029, +1.71648979, +1.97999442, +1.17648149, +1.75446200, +1.67913747, +1.76676059, +1.48498619, +1.32435513
160
161adat = getFFTI(getFFTF(data))
162adat
163+1.46517551, +1.35407472, +1.06511104, +1.23670566, +1.13719177, +1.70589674, +1.66713893, +1.71606553, +1.55987620, +1.07436156, +1.08378041, +1.74380982, +1.01759887, +1.04574072, +1.30735731, +1.07188475, +1.20881271, +1.96541786, +1.64225769, +1.51161528, +1.47123122, +1.37790108, +1.34156466, +1.91658187, +1.80088568, +1.90480185, +1.83038533, +1.38520861, +1.77496815, +1.61582768, +1.49794447, +1.67465031, +1.72201872, +1.81595302, +1.61032712, +1.80087006, +1.39420164, +1.44622040, +1.78197157, +1.77091789, +1.07686853, +1.87953770, +1.90938532, +1.13463640, +1.29593110, +1.44667041, +1.08144832, +1.97804832, +1.94443655, +1.77505529, +1.40808213, +1.48909378, +1.80732107, +1.71153331, +1.12709439, +1.06499636, +1.30452657, +1.24529397, +1.06532061, +1.77287102, +1.39708328, +1.73207164, +1.64281189, +1.65752268, +1.72595072, +1.44487333, +1.70806050, +1.28532588, +1.79839325, +1.50909555, +1.61004591, +1.36196303, +1.14730549, +1.35856235, +1.85439181, +1.93403006, +1.71648955, +1.97999430, +1.17648160, +1.75446177, +1.67913771, +1.76676035, +1.48498619, +1.32435489
164reltol = sqrt(epsilon(1._TKG))
165reltol
166+0.345266977E-3
167isClose(data, adat, reltol = reltol)
168T, 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, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, adat, reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+94
174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
175data
176+1.6209704825081306, +1.5086304646604392, +1.9033595922877868, +1.1765347238635275, +1.7739807074301361, +1.5479878999076591, +1.6404225334816567, +1.6214403327574498, +1.5761706384351575, +1.6663786958476319, +1.0796903877454134, +1.9480545538112004, +1.6595736640010643, +1.9772791191043162, +1.3582527854749977, +1.1043418841049901, +1.5000846477771159, +1.9726992157126539, +1.7572590018717040, +1.4139833283299448, +1.0478274440715847, +1.6573764377704761, +1.6339998097784103, +1.6725842690797357, +1.6353955586820055, +1.7372425709420929, +1.8022728432373440, +1.5590220336466696, +1.3803314440363319, +1.9475335191604044, +1.4303348506738334, +1.0488277067492984, +1.8392972034129289, +1.1407393871453304, +1.4300734533366422, +1.4111690403855488, +1.3163502190050900, +1.6844578668689172, +1.2780947005398344, +1.1758522908534634, +1.5466616745868436, +1.5257752441000143, +1.8122579401860435, +1.6151076720960629, +1.2014001614886474, +1.9593288241193039, +1.8864723215210941, +1.3743061324413266, +1.8325750253527291, +1.2026204083043810, +1.0714441554320073, +1.7951956114085699, +1.6494507477729754, +1.9921773699210785, +1.1343292398739417, +1.7601856539714569, +1.9792660013359669, +1.0094192452578894, +1.5164327615128188, +1.8372458052665985, +1.6645248753310065, +1.4597591706576738, +1.6088061383683274, +1.2095080638338178, +1.4260080018416628, +1.4873937274530875, +1.9406965439958692, +1.9034053186148259, +1.1055625687428969, +1.5172504897500043, +1.4846521052495283, +1.1695928730511671, +1.7373945543882725, +1.6772329342156276, +1.0324054247053280, +1.0142819387965192, +1.7160887979203672, +1.9894474091182444, +1.5451058454779778, +1.9258618727029759, +1.9873174837966947, +1.9256194149415871, +1.9552512775701560, +1.1902663318831559, +1.6148557142514064, +1.4054318060003237, +1.8026033202458784, +1.0298793764632723, +1.0277282284555973, +1.1931967325850965, +1.1985143491295149, +1.2136665730087275, +1.1561548986392589, +1.2713847418780690
177
178adat = getFFTI(getFFTF(data))
179adat
180+1.6209704825081310, +1.5086304646604380, +1.9033595922877862, +1.1765347238635266, +1.7739807074301370, +1.5479878999076591, +1.6404225334816565, +1.6214403327574498, +1.5761706384351584, +1.6663786958476314, +1.0796903877454100, +1.9480545538112015, +1.6595736640010668, +1.9772791191043169, +1.3582527854749942, +1.1043418841049866, +1.5000846477771173, +1.9726992157126566, +1.7572590018717049, +1.4139833283299426, +1.0478274440715818, +1.6573764377704763, +1.6339998097784134, +1.6725842690797366, +1.6353955586820064, +1.7372425709420949, +1.8022728432373478, +1.5590220336466676, +1.3803314440363312, +1.9475335191604120, +1.4303348506738311, +1.0488277067492928, +1.8392972034129360, +1.1407393871453284, +1.4300734533366390, +1.4111690403855468, +1.3163502190050933, +1.6844578668689234, +1.2780947005398300, +1.1758522908534570, +1.5466616745868453, +1.5257752441000156, +1.8122579401860464, +1.6151076720960584, +1.2014001614886438, +1.9593288241193123, +1.8864723215210948, +1.3743061324413239, +1.8325750253527300, +1.2026204083043761, +1.0714441554320016, +1.7951956114085748, +1.6494507477729798, +1.9921773699210812, +1.1343292398739344, +1.7601856539714587, +1.9792660013359755, +1.0094192452578781, +1.5164327615128190, +1.8372458052666067, +1.6645248753310065, +1.4597591706576722, +1.6088061383683308, +1.2095080638338134, +1.4260080018416590, +1.4873937274530884, +1.9406965439958781, +1.9034053186148305, +1.1055625687428914, +1.5172504897500052, +1.4846521052495301, +1.1695928730511631, +1.7373945543882774, +1.6772329342156331, +1.0324054247053240, +1.0142819387965134, +1.7160887979203681, +1.9894474091182470, +1.5451058454779780, +1.9258618727029755, +1.9873174837966938, +1.9256194149415884, +1.9552512775701574, +1.1902663318831530, +1.6148557142514046, +1.4054318060003241, +1.8026033202458807, +1.0298793764632714, +1.0277282284555953, +1.1931967325850963, +1.1985143491295158, +1.2136665730087268, +1.1561548986392578, +1.2713847418780684
181reltol = sqrt(epsilon(1._TKG))
182reltol
183+0.14901161193847656E-7
184isClose(data, adat, reltol = reltol)
185T, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, adat, reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+33
191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
192data
193+1.22345627285549480684676452777559980, +1.56489880633365260028474472908865166, +1.04048083869563461447858907771073531, +1.28688801630083336298642088976715964, +1.68200982017932088940059736646567997, +1.07579688088963470746805587627630202, +1.02565527824501818904305139213765403, +1.06954667761114340271948114959765695, +1.91821254516775791227326872577426147, +1.12342760475005453578062116435884923, +1.62920769806139073046862547914047163, +1.48984790422770744516153772194201801, +1.83659712435075593638321446407520914, +1.08517471204757887517797688862756665, +1.36436504609863732116598374790185283, +1.80361062443116152736399085336726144, +1.09673539140282286402196596257078848, +1.74165395446665382875179995722194079, +1.22976734458316217443228675320583902, +1.24910633365536195432113078925029816, +1.50141980676374586467671736423092438, +1.46814027983500912049273876215986098, +1.56696313466959759965255985599044043, +1.44288584849392068216293784967754737, +1.44953748304527137842496209367452648, +1.88473499412226102014257944194727210, +1.22314046879571717469491125042853812, +1.80460649815454001051418131125565913, +1.82118916151057371342821638621789108, +1.48003626675627518458732846887068435, +1.03289682141017719002175268070462174, +1.95700745527932993664605260389488052, +1.94265204753423357573891063285855481
194
195adat = getFFTI(getFFTF(data))
196adat
197+1.22345627285549480684676452777560038, +1.56489880633365260028474472908865186, +1.04048083869563461447858907771073550, +1.28688801630083336298642088976715945, +1.68200982017932088940059736646567978, +1.07579688088963470746805587627630145, +1.02565527824501818904305139213765422, +1.06954667761114340271948114959765733, +1.91821254516775791227326872577426147, +1.12342760475005453578062116435884923, +1.62920769806139073046862547914047144, +1.48984790422770744516153772194201724, +1.83659712435075593638321446407520933, +1.08517471204757887517797688862756723, +1.36436504609863732116598374790185264, +1.80361062443116152736399085336726125, +1.09673539140282286402196596257078771, +1.74165395446665382875179995722193982, +1.22976734458316217443228675320583845, +1.24910633365536195432113078925029739, +1.50141980676374586467671736423092341, +1.46814027983500912049273876215986098, +1.56696313466959759965255985599044120, +1.44288584849392068216293784967754718, +1.44953748304527137842496209367452648, +1.88473499412226102014257944194727191, +1.22314046879571717469491125042853735, +1.80460649815454001051418131125565951, +1.82118916151057371342821638621789166, +1.48003626675627518458732846887068435, +1.03289682141017719002175268070462155, +1.95700745527932993664605260389488014, +1.94265204753423357573891063285855424
198reltol = sqrt(epsilon(1._TKG))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, adat, reltol = reltol)
202T, 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
203call setAsserted(all(isClose(data, adat, reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+26
208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
209data
210(+1.92702568, +0.736113787), (+1.81922770, +0.873099029), (+1.51754379, +0.461122811), (+1.10022259, +0.609567642), (+1.26735115, +0.121999562), (+1.30749559, +0.570864618), (+1.58992863, +0.945337951), (+1.80468965, +0.750829160), (+1.48480082, +0.236001015E-1), (+1.60713673, +0.319199204), (+1.98205328, +0.885308027), (+1.16690683, +0.751731396E-1), (+1.81610489, +0.212337017), (+1.62858522, +0.575337231), (+1.86663568, +0.435467958), (+1.43286967, +0.649908185), (+1.19428277, +0.639644921), (+1.44947612, +0.246225059), (+1.46280622, +0.773427367), (+1.26693904, +0.378172398), (+1.00527525, +0.666567504), (+1.61982679, +0.944860220), (+1.48323905, +0.567312419), (+1.96577907, +0.408260703), (+1.05499315, +0.399684608), (+1.55194211, +0.493872643)
211
212adat = getFFTI(getFFTF(data))
213adat
214(+1.92702603, +0.736114025), (+1.81922746, +0.873099089), (+1.51754344, +0.461122721), (+1.10022283, +0.609567761), (+1.26735151, +0.121999726), (+1.30749571, +0.570864499), (+1.58992934, +0.945338309), (+1.80469024, +0.750829339), (+1.48480082, +0.236002132E-1), (+1.60713696, +0.319199353), (+1.98205328, +0.885308206), (+1.16690671, +0.751729608E-1), (+1.81610477, +0.212336972), (+1.62858558, +0.575337529), (+1.86663580, +0.435467809), (+1.43286991, +0.649908185), (+1.19428277, +0.639645100), (+1.44947624, +0.246225089), (+1.46280646, +0.773427486), (+1.26693940, +0.378172517), (+1.00527561, +0.666567802), (+1.61982703, +0.944860399), (+1.48323965, +0.567312360), (+1.96577930, +0.408260852), (+1.05499279, +0.399684578), (+1.55194187, +0.493872553)
215reltol = sqrt(epsilon(1._TKG))
216reltol
217+0.345266977E-3
218isClose(data, adat, reltol = reltol)
219T, 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
220call setAsserted(all(isClose(data, adat, reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+20
225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
226data
227(+1.1884828352944674, +0.71768857539682518), (+1.8310404019394975, +0.58012952092731052E-1), (+1.0049370300025373, +0.63004908245934110), (+1.0773601898546701, +0.71407629834547559), (+1.3669381247121373, +0.89634322473855621), (+1.6575452347789152, +0.47266981984045930), (+1.2733051554745647, +0.90817811639225532E-1), (+1.1667081085196751, +0.88596999050405656), (+1.9965722275468143, +0.14439960192336410), (+1.9732840290701441, +0.83179465725346668), (+1.1404681246834800, +0.24820757916848790E-1), (+1.4290369475356668, +0.23134600204573996), (+1.3321486619382656, +0.42686645143782953), (+1.7283491421084518, +0.78106935229752472), (+1.6283693287068166, +0.18439606784206741), (+1.9454989264653992, +0.44290893981560908), (+1.9155370324347629, +0.65826941240447534), (+1.4964372372641654, +0.72703967494406263), (+1.8590985612863058, +0.48944158805367743), (+1.4945146600878680, +0.78641498308900137)
228
229adat = getFFTI(getFFTF(data))
230adat
231(+1.1884828352944681, +0.71768857539682518), (+1.8310404019394977, +0.58012952092731100E-1), (+1.0049370300025375, +0.63004908245934121), (+1.0773601898546701, +0.71407629834547581), (+1.3669381247121373, +0.89634322473855610), (+1.6575452347789157, +0.47266981984045942), (+1.2733051554745651, +0.90817811639225587E-1), (+1.1667081085196753, +0.88596999050405678), (+1.9965722275468143, +0.14439960192336415), (+1.9732840290701443, +0.83179465725346680), (+1.1404681246834805, +0.24820757916848981E-1), (+1.4290369475356668, +0.23134600204573996), (+1.3321486619382659, +0.42686645143782959), (+1.7283491421084518, +0.78106935229752472), (+1.6283693287068168, +0.18439606784206741), (+1.9454989264653997, +0.44290893981560919), (+1.9155370324347629, +0.65826941240447523), (+1.4964372372641659, +0.72703967494406285), (+1.8590985612863058, +0.48944158805367749), (+1.4945146600878680, +0.78641498308900148)
232reltol = sqrt(epsilon(1._TKG))
233reltol
234+0.14901161193847656E-7
235isClose(data, adat, reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, adat, reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+38
242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
243data
244(+1.19588576589894860792194279283323732, +0.658942974680477942939836460946718603), (+1.91921637171952251349038939448334544, +0.348421997696745091345088491208500926), (+1.38395505703781238692827115850255965, +0.373566806720988735969582275348621529), (+1.91466082560172909933131602457290245, +0.984334154066273969362351827638600980), (+1.82470004692888349385160549496139838, +0.507913572467819725906189979655617310), (+1.07305644333177752463572663292785519, +0.378897602130985991384188826157383365), (+1.73397660285389833674547538965322249, +0.724996471274202954080190771595088893), (+1.84594201175977772480861096856851101, +0.541188070694481996700686725581158284), (+1.25143155780851132100579042987802161, +0.446511634251168766197173722326337255), (+1.30734757344381720160274010495171284, +0.654720248941775955802477729264554198), (+1.73768413962207672389545496092648742, +0.838559334951751839776127653059941300), (+1.68332124879167247602232793160286007, +0.572091589328797179019977296828736834), (+1.51857040313839775022783592233913693, +0.724044400936118406793248622169904061), (+1.00008558512644394300196538515085963, +0.952286257999686191592297833584639972E-1), (+1.98169789154010465747995805565659438, +0.440307051026194970204621480447807667), (+1.93117926180596705103957431778138065, +0.766344938400237677835448037400773258), (+1.54678402666790800182144653987765231, +0.940957460786038341167776711066779584), (+1.12017995968446010042363814388834673, +0.102545317326092288790739449975906205E-1), (+1.49776001154926927458447538310533658, +0.573864912112591201785270844824562627), (+1.66937253471134254163112715237277223, +0.921060061592425080752878152054161247E-1), (+1.41502628861826316516733592463386380, +0.159298922097545753751112928581514110E-1), (+1.78361173673573671163692474034815672, +0.909974341561895193673264498202418284), (+1.07185501203736579936239016541623372, +0.627795863798918193857019072500654173E-1), (+1.18974651509459695160213956770817661, +0.612318839528269531002147530644323181E-1), (+1.54129827846058474359550000486282404, +0.824357232420452113933126534890873881), (+1.34074873837398486978614446163041352, +0.376638512817820139896950725964007183), (+1.57974436139256097704340425478604161, +0.381034052348565114387292662760184945), (+1.19669872198495282182192897967879043, +0.180687629775836996969062727671230590), (+1.49599180736861552959724997704313799, +0.926609591242358391348885697848942404), (+1.39788226881644988662720732690077707, +0.737531052506349546314850639058364770), (+1.06806958045287024625728109774727268, +0.721498058459841584776837179712440099), (+1.53874916353588194126899420156636660, +0.961101592371063342859945284525317023), (+1.92416836083061464833155223252378448, +0.184173283001675962265440225202637787), (+1.92438851267847855317582379832778761, +0.130958080877135549658575233489317116), (+1.23784279719900910247357141894135491, +0.814034582792284786325841676339877495), (+1.17713007416004527052368022608869456, +0.860899506854444133471114551108607552), (+1.05866290234833298856534282708609666, +0.712239236777251053552030739112464464E-1), (+1.65282258239267565879373194696590649, +0.764742557980394993460537395994190438)
245
246adat = getFFTI(getFFTF(data))
247adat
248(+1.19588576589894860792194279283323751, +0.658942974680477942939836460946718411), (+1.91921637171952251349038939448334621, +0.348421997696745091345088491208500926), (+1.38395505703781238692827115850256004, +0.373566806720988735969582275348621529), (+1.91466082560172909933131602457290322, +0.984334154066273969362351827638600980), (+1.82470004692888349385160549496139857, +0.507913572467819725906189979655617310), (+1.07305644333177752463572663292785519, +0.378897602130985991384188826157383173), (+1.73397660285389833674547538965322288, +0.724996471274202954080190771595088989), (+1.84594201175977772480861096856851082, +0.541188070694481996700686725581157899), (+1.25143155780851132100579042987802161, +0.446511634251168766197173722326337158), (+1.30734757344381720160274010495171284, +0.654720248941775955802477729264554102), (+1.73768413962207672389545496092648742, +0.838559334951751839776127653059941107), (+1.68332124879167247602232793160286007, +0.572091589328797179019977296828736931), (+1.51857040313839775022783592233913674, +0.724044400936118406793248622169904061), (+1.00008558512644394300196538515086001, +0.952286257999686191592297833584640453E-1), (+1.98169789154010465747995805565659457, +0.440307051026194970204621480447807427), (+1.93117926180596705103957431778138026, +0.766344938400237677835448037400773162), (+1.54678402666790800182144653987765327, +0.940957460786038341167776711066779777), (+1.12017995968446010042363814388834730, +0.102545317326092288790739449975908386E-1), (+1.49776001154926927458447538310533754, +0.573864912112591201785270844824562723), (+1.66937253471134254163112715237277165, +0.921060061592425080752878152054156793E-1), (+1.41502628861826316516733592463386437, +0.159298922097545753751112928581515134E-1), (+1.78361173673573671163692474034815653, +0.909974341561895193673264498202418284), (+1.07185501203736579936239016541623429, +0.627795863798918193857019072500655617E-1), (+1.18974651509459695160213956770817700, +0.612318839528269531002147530644326672E-1), (+1.54129827846058474359550000486282423, +0.824357232420452113933126534890873977), (+1.34074873837398486978614446163041332, +0.376638512817820139896950725964007135), (+1.57974436139256097704340425478604161, +0.381034052348565114387292662760184705), (+1.19669872198495282182192897967879082, +0.180687629775836996969062727671230566), (+1.49599180736861552959724997704313799, +0.926609591242358391348885697848942211), (+1.39788226881644988662720732690077707, +0.737531052506349546314850639058364866), (+1.06806958045287024625728109774727268, +0.721498058459841584776837179712440003), (+1.53874916353588194126899420156636621, +0.961101592371063342859945284525316831), (+1.92416836083061464833155223252378505, +0.184173283001675962265440225202637787), (+1.92438851267847855317582379832778761, +0.130958080877135549658575233489317044), (+1.23784279719900910247357141894135511, +0.814034582792284786325841676339877302), (+1.17713007416004527052368022608869514, +0.860899506854444133471114551108607745), (+1.05866290234833298856534282708609685, +0.712239236777251053552030739112465066E-1), (+1.65282258239267565879373194696590726, +0.764742557980394993460537395994190342)
249reltol = sqrt(epsilon(1._TKG))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, adat, reltol = reltol)
253T, 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
254call setAsserted(all(isClose(data, adat, reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+83
259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
260data
261+1.23954773, +1.83636093, +1.48928285, +1.04291272, +1.29307771, +1.24954319, +1.51558006, +1.76707339, +1.75829935, +1.05269527, +1.26567364, +1.54394460, +1.53183627, +1.62722015, +1.44023013, +1.38208103, +1.33867311, +1.22790956, +1.54740143, +1.70468640, +1.80080390, +1.05938125, +1.43226624, +1.32605171, +1.26351190, +1.67920613, +1.32378173, +1.56282020, +1.56980324, +1.00828397, +1.46953750, +1.40221310, +1.69055617, +1.53036928, +1.53648591, +1.22693896, +1.92575002, +1.08487272, +1.05610776, +1.12526155, +1.61833012, +1.65494251, +1.17010665, +1.12476707, +1.11589646, +1.70681119, +1.46857500, +1.10295725, +1.20798182, +1.61126053, +1.48647571, +1.87467730, +1.06128097, +1.88018072, +1.20862651, +1.42205739, +1.28844106, +1.59800851, +1.34039021, +1.25164342, +1.60722065, +1.74776864, +1.95074534, +1.27446020, +1.29675877, +1.06922185, +1.83433270, +1.36448479, +1.95454538, +1.61253798, +1.08891451, +1.25115001, +1.24338567, +1.23234797, +1.31142700, +1.29783463, +1.58842969, +1.93085742, +1.83485389, +1.54208410, +1.43065667, +1.53275883, +1.01307940
262
263adat = getFFTI(getFFTF(data))
264adat
265+1.23954654, +1.83636105, +1.48928273, +1.04291201, +1.29307759, +1.24954271, +1.51557946, +1.76707506, +1.75830126, +1.05269229, +1.26567280, +1.54394507, +1.53183615, +1.62722111, +1.44022942, +1.38208151, +1.33867252, +1.22790647, +1.54740214, +1.70468795, +1.80080914, +1.05937386, +1.43226826, +1.32605064, +1.26350904, +1.67921162, +1.32377791, +1.56282258, +1.56980693, +1.00827575, +1.46953964, +1.40221083, +1.69056034, +1.53036880, +1.53648746, +1.22693098, +1.92576277, +1.08486581, +1.05610359, +1.12525523, +1.61833680, +1.65494847, +1.17009974, +1.12476540, +1.11589074, +1.70682013, +1.46857512, +1.10295081, +1.20797813, +1.61126482, +1.48647368, +1.87468576, +1.06126952, +1.88019121, +1.20861983, +1.42205822, +1.28843808, +1.59801209, +1.34038997, +1.25163877, +1.60722268, +1.74776959, +1.95075226, +1.27445495, +1.29675901, +1.06921566, +1.83433855, +1.36448061, +1.95455074, +1.61253905, +1.08891106, +1.25114965, +1.24338496, +1.23234725, +1.31142688, +1.29783309, +1.58842993, +1.93085814, +1.83485520, +1.54208374, +1.43065643, +1.53275871, +1.01307881
266reltol = sqrt(epsilon(1._TKG))
267reltol
268+0.345266977E-3
269isClose(data, adat, reltol = reltol)
270T, 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, T, T, T, T, T, T
271call setAsserted(all(isClose(data, adat, reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+84
276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
277data
278+1.7578552304095152, +1.1503546045646369, +1.9661894678199583, +1.1491212550671701, +1.2812133584855365, +1.5509501480576628, +1.6780895446404980, +1.7899961864372504, +1.3674969793584548, +1.3192244340765571, +1.8228542103753393, +1.0306255902038117, +1.9743547724407255, +1.0407368377567234, +1.8539122568442150, +1.1754452008763745, +1.3127171754953642, +1.4303374859088587, +1.2451065871768785, +1.7417794288943615, +1.4042486183398690, +1.1226983528324044, +1.8756391597568860, +1.2557656016250349, +1.2724307390122305, +1.1868705402921909, +1.5626249061872219, +1.8631792340692170, +1.6895695849361410, +1.5057861323327280, +1.5797691411855974, +1.3241670406223371, +1.9841503405525003, +1.9293107959541216, +1.7891038840289133, +1.7981219838700508, +1.1542973666964373, +1.6244328101161223, +1.2942422681254433, +1.3107971148603648, +1.4102833218159150, +1.5381816351977240, +1.0756522415218148, +1.3183202337031410, +1.9271113763252505, +1.3913419549866999, +1.9491410761645867, +1.9899412551380871, +1.5860566803534204, +1.9693926671946005, +1.4928667555967672, +1.1198145354218725, +1.1049350586333508, +1.2314891332206761, +1.5426602718189781, +1.5546775171817582, +1.5618198739779228, +1.9436851623456515, +1.5493428394482429, +1.3073421036707531, +1.5687214990899974, +1.3345902391144437, +1.1506983122151722, +1.9761586229319565, +1.0669059892215507, +1.3723079354231176, +1.9766820487068006, +1.0401786055925037, +1.3705222618782475, +1.6541936985135732, +1.2667219030962307, +1.6945581134271892, +1.4594373993070402, +1.2400375198637978, +1.2887883353971055, +1.7999277686055861, +1.2205431799993094, +1.2408684925829894, +1.0554270160790327, +1.5360541052159880, +1.7041300559833137, +1.2658682542647894, +1.1928710063740631, +1.0553930391612865
279
280adat = getFFTI(getFFTF(data))
281adat
282+1.7578552304095152, +1.1503546045646367, +1.9661894678199587, +1.1491212550671701, +1.2812133584855363, +1.5509501480576624, +1.6780895446404975, +1.7899961864372500, +1.3674969793584550, +1.3192244340765569, +1.8228542103753393, +1.0306255902038119, +1.9743547724407255, +1.0407368377567230, +1.8539122568442150, +1.1754452008763747, +1.3127171754953639, +1.4303374859088585, +1.2451065871768785, +1.7417794288943613, +1.4042486183398688, +1.1226983528324042, +1.8756391597568864, +1.2557656016250354, +1.2724307390122305, +1.1868705402921915, +1.5626249061872222, +1.8631792340692177, +1.6895695849361414, +1.5057861323327280, +1.5797691411855972, +1.3241670406223374, +1.9841503405525009, +1.9293107959541220, +1.7891038840289140, +1.7981219838700511, +1.1542973666964365, +1.6244328101161221, +1.2942422681254429, +1.3107971148603645, +1.4102833218159148, +1.5381816351977238, +1.0756522415218144, +1.3183202337031401, +1.9271113763252501, +1.3913419549866990, +1.9491410761645867, +1.9899412551380871, +1.5860566803534197, +1.9693926671946007, +1.4928667555967672, +1.1198145354218723, +1.1049350586333504, +1.2314891332206754, +1.5426602718189781, +1.5546775171817575, +1.5618198739779221, +1.9436851623456510, +1.5493428394482425, +1.3073421036707527, +1.5687214990899974, +1.3345902391144442, +1.1506983122151724, +1.9761586229319574, +1.0669059892215511, +1.3723079354231176, +1.9766820487068009, +1.0401786055925037, +1.3705222618782480, +1.6541936985135735, +1.2667219030962313, +1.6945581134271894, +1.4594373993070398, +1.2400375198637974, +1.2887883353971052, +1.7999277686055863, +1.2205431799993094, +1.2408684925829891, +1.0554270160790324, +1.5360541052159875, +1.7041300559833135, +1.2658682542647892, +1.1928710063740633, +1.0553930391612867
283reltol = sqrt(epsilon(1._TKG))
284reltol
285+0.14901161193847656E-7
286isClose(data, adat, reltol = reltol)
287T, 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, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, adat, reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+19
293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
294data
295+1.53805262074870449767422972896173341, +1.00813077781389853656533778128742418, +1.59644140539383523330780633623985364, +1.61982209403189095105486067272853787, +1.67153003764530814994681601149160571, +1.22274194141452992062502437524990220, +1.96721608059439214273675069278654341, +1.68593431583566497289567750200810885, +1.62033274753848231727956852851200241, +1.48557763480971083242785648982094855, +1.16493170290491141522872220248024857, +1.94468355182506064614040595251283653, +1.33860222997990933147631376391362074, +1.87743786957085942967552706016639327, +1.94150435982580680188190361513994095, +1.22690789194798631313514290676227768, +1.02312753626708299029976627464440686, +1.37385706432536890101484309591858031, +1.67763631478822330890813669978414340
296
297adat = getFFTI(getFFTF(data))
298adat
299+1.53805262074870449767422972896173283, +1.00813077781389853656533778128742360, +1.59644140539383523330780633623985383, +1.61982209403189095105486067272853806, +1.67153003764530814994681601149160648, +1.22274194141452992062502437524990143, +1.96721608059439214273675069278654457, +1.68593431583566497289567750200810924, +1.62033274753848231727956852851200337, +1.48557763480971083242785648982094758, +1.16493170290491141522872220248024511, +1.94468355182506064614040595251283942, +1.33860222997990933147631376391361977, +1.87743786957085942967552706016639424, +1.94150435982580680188190361513994191, +1.22690789194798631313514290676227768, +1.02312753626708299029976627464440648, +1.37385706432536890101484309591858050, +1.67763631478822330890813669978414359
300reltol = sqrt(epsilon(1._TKG))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, adat, reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, adat, reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+85
310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
311data
312(+1.72734833, +0.976545632), (+1.44122553, +0.311263382), (+1.46122158, +0.489973545), (+1.58147836, +0.158151805), (+1.58417201, +0.370644212), (+1.48172414, +0.415540695), (+1.61689603, +0.175957084), (+1.63751125, +0.998957217), (+1.78229499, +0.403925002), (+1.54748034, +0.889282227), (+1.11627126, +0.383330166), (+1.45288944, +0.653134704), (+1.77159452, +0.580253780), (+1.38052249, +0.342684150), (+1.07308030, +0.513206959), (+1.18251431, +0.517068863), (+1.62611246, +0.872592509), (+1.81296992, +0.646978617E-2), (+1.35049939, +0.851999819), (+1.08922958, +0.152153254), (+1.57364869, +0.455080628), (+1.74441803, +0.493612051), (+1.68505263, +0.733227372), (+1.72745848, +0.403353274), (+1.09714234, +0.755863667), (+1.60272050, +0.671383381), (+1.09172726, +0.275556743), (+1.84585667, +0.392296076), (+1.52376294, +0.143530965E-1), (+1.91787779, +0.867407978), (+1.38294601, +0.713891625), (+1.58420253, +0.113790631E-1), (+1.81420255, +0.556466162), (+1.10106790, +0.415459096), (+1.34406090, +0.813482642), (+1.25050187, +0.484670877), (+1.25052083, +0.500264883), (+1.61412132, +0.585128188), (+1.31240821, +0.974737406), (+1.23524261, +0.223129570), (+1.60391557, +0.920292795), (+1.41103423, +0.730660260), (+1.48566532, +0.721752048E-1), (+1.22426188, +0.814771056E-1), (+1.09711111, +0.197788298), (+1.92748117, +0.757228971), (+1.37955642, +0.715856552), (+1.82957292, +0.248262525), (+1.87521863, +0.999321043), (+1.30608296, +0.555676639), (+1.31390154, +0.495499969E-1), (+1.68402410, +0.602197707), (+1.31233442, +0.194985032), (+1.23404491, +0.465266645), (+1.71358228, +0.645419478), (+1.16689646, +0.333720565), (+1.30876541, +0.766125739), (+1.47936451, +0.194407403), (+1.01931310, +0.341842532), (+1.47852802, +0.876142502), (+1.70203328, +0.807271719), (+1.01255989, +0.548930407), (+1.01721251, +0.576637745), (+1.51809049, +0.863364875), (+1.88731146, +0.891957283), (+1.26799595, +0.764014244), (+1.99728382, +0.463708997), (+1.08576572, +0.469315052E-2), (+1.70420265, +0.107043624), (+1.38876891, +0.903827012), (+1.85237288, +0.113768280), (+1.15375137, +0.341058969), (+1.54638469, +0.480804801), (+1.19044149, +0.757437527), (+1.66767335, +0.603127360), (+1.91915643, +0.846068859E-1), (+1.34060693, +0.365426660), (+1.35854149, +0.712773204), (+1.64029169, +0.477270544), (+1.39550340, +0.661045015), (+1.36298823, +0.305309892E-1), (+1.22085261, +0.394315541), (+1.50936198, +0.332627773), (+1.80241227, +0.682378471), (+1.63013542, +0.794189155)
313
314adat = getFFTI(getFFTF(data))
315adat
316(+1.72734916, +0.976545990), (+1.44122493, +0.311263025), (+1.46122122, +0.489973426), (+1.58147788, +0.158151746), (+1.58417141, +0.370643973), (+1.48172390, +0.415540487), (+1.61689603, +0.175956920), (+1.63751078, +0.998957217), (+1.78229594, +0.403925300), (+1.54748130, +0.889282405), (+1.11627114, +0.383330286), (+1.45288944, +0.653134763), (+1.77159429, +0.580253541), (+1.38052177, +0.342684060), (+1.07307959, +0.513206601), (+1.18251348, +0.517068863), (+1.62611234, +0.872592270), (+1.81297076, +0.647001853E-2), (+1.35049903, +0.851999640), (+1.08922935, +0.152153090), (+1.57364833, +0.455080569), (+1.74441767, +0.493611842), (+1.68505287, +0.733227432), (+1.72745883, +0.403353274), (+1.09714246, +0.755863726), (+1.60272110, +0.671383679), (+1.09172809, +0.275556833), (+1.84585714, +0.392296016), (+1.52376282, +0.143531356E-1), (+1.91787779, +0.867408037), (+1.38294554, +0.713891506), (+1.58420229, +0.113789281E-1), (+1.81420219, +0.556466103), (+1.10106742, +0.415458947), (+1.34406197, +0.813483059), (+1.25050104, +0.484670728), (+1.25052083, +0.500264823), (+1.61412084, +0.585127890), (+1.31240797, +0.974737406), (+1.23524261, +0.223129496), (+1.60391581, +0.920292795), (+1.41103435, +0.730660379), (+1.48566604, +0.721753836E-1), (+1.22426283, +0.814772695E-1), (+1.09711146, +0.197788328), (+1.92748117, +0.757229090), (+1.37955642, +0.715856433), (+1.82957268, +0.248262405), (+1.87521827, +0.999320805), (+1.30608249, +0.555676043), (+1.31390083, +0.495498665E-1), (+1.68402529, +0.602198184), (+1.31233394, +0.194984868), (+1.23404491, +0.465266556), (+1.71358180, +0.645419359), (+1.16689634, +0.333720565), (+1.30876553, +0.766125619), (+1.47936475, +0.194407523), (+1.01931322, +0.341842204), (+1.47852850, +0.876142621), (+1.70203400, +0.807272017), (+1.01255989, +0.548930347), (+1.01721263, +0.576637924), (+1.51809049, +0.863365114), (+1.88731098, +0.891957104), (+1.26799583, +0.764014304), (+1.99728346, +0.463708639), (+1.08576512, +0.469306484E-2), (+1.70420408, +0.107044019), (+1.38876808, +0.903827131), (+1.85237253, +0.113768369), (+1.15375149, +0.341058820), (+1.54638422, +0.480804622), (+1.19044149, +0.757437527), (+1.66767335, +0.603127718), (+1.91915679, +0.846069455E-1), (+1.34060776, +0.365426868), (+1.35854208, +0.712773442), (+1.64029169, +0.477270603), (+1.39550340, +0.661044955), (+1.36298835, +0.305308178E-1), (+1.22085249, +0.394315481), (+1.50936174, +0.332627684), (+1.80241239, +0.682378531), (+1.63013506, +0.794189095)
317reltol = sqrt(epsilon(1._TKG))
318reltol
319+0.345266977E-3
320isClose(data, adat, reltol = reltol)
321T, 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, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, adat, reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+64
327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
328data
329(+1.6804177228342221, +0.28558808949384951), (+1.0021711845100865, +0.88952079494154235), (+1.9469270355910453, +0.33696037002674439), (+1.1256348174935393, +0.84366341636307862), (+1.3843751240745230, +0.16223903479699742), (+1.2228660283677422, +0.22260178229275707), (+1.7471037459420233, +0.46733792347245040), (+1.3882076118059681, +0.90798778026744920), (+1.2194091974981038, +0.34818569454913462), (+1.7618925914663901, +0.77658259583735900), (+1.2947229620636294, +0.65439201039058192), (+1.2515211944231015, +0.60569937646692995), (+1.0771827833496026, +0.86225966645817287), (+1.7625067278658555, +0.89009516576836378), (+1.3363277919208767, +0.15005830604862280), (+1.3255498968694168, +0.24828334970129506), (+1.7975253086295564, +0.38373807619377098), (+1.6451396954194806, +0.15640704577638054), (+1.7373955840511861, +0.39074378738001903), (+1.4252871169350971, +0.84392373174063362), (+1.7891132656285964, +0.79560630444444524), (+1.9360745108649871, +0.59499906994579155), (+1.2721929439079465, +0.98981911352668384), (+1.6939096033489986, +0.65757818612911023), (+1.3784134180805676, +0.69703311835130854), (+1.0819922022107931, +0.72267219631812618), (+1.1874735845885347, +0.56319042501041838), (+1.9688098577456721, +0.56192263098297746), (+1.5672235114096198, +0.18404106579691415), (+1.0952982857104787, +0.82100227270859805), (+1.6477163957112368, +0.79005806493612718), (+1.9774395842698120, +0.53738751161012288), (+1.1383449231919203, +0.18497244926894940), (+1.0041400708140249, +0.38798651538197637), (+1.7826821199925980, +0.83183235945780465), (+1.3901603118797203, +0.80218003645689684), (+1.5250111154770261, +0.57800053928558559), (+1.1007649964516348, +0.80882066409467246), (+1.1033197248531907, +0.56986926131588955E-1), (+1.7011007001182779, +0.15332967420897481), (+1.2963008789448049, +0.45531306933359439), (+1.2267327696359036, +0.41690168544825901), (+1.0480907530522667, +0.28660611511971790), (+1.9142342925911056, +0.77978029996738008), (+1.2440674133001828, +0.93746392502009690), (+1.4265838380074023, +0.44244978724274564), (+1.5937735303527281, +0.30396045030739438), (+1.4384003367138256, +0.11240515605586487), (+1.8800545928117969, +0.68489470571304667), (+1.3510269709083860, +0.70298631723341676), (+1.4416758390582043, +0.35529010142399953E-2), (+1.1834843598947791, +0.23006577209037948), (+1.7000864043992281, +0.30998740374167233), (+1.1994359568382351, +0.83474286734694314), (+1.3055958902657636, +0.90340124034552527), (+1.7309041932360334, +0.38261711690287370), (+1.0431791723552122, +0.70785346391969750), (+1.1387294450188037, +0.52641978475778839), (+1.1740551644392296, +0.12700517873786132), (+1.6140359202737002, +0.56282254734991488), (+1.0055078782608129, +0.49124821399253504), (+1.3415114911109631, +0.64647679532535562), (+1.6511883697639689, +0.24533539566986762), (+1.8450559793620172, +0.44299123343322022)
330
331adat = getFFTI(getFFTF(data))
332adat
333(+1.6804177228342221, +0.28558808949384940), (+1.0021711845100869, +0.88952079494154268), (+1.9469270355910451, +0.33696037002674456), (+1.1256348174935391, +0.84366341636307862), (+1.3843751240745228, +0.16223903479699728), (+1.2228660283677428, +0.22260178229275707), (+1.7471037459420231, +0.46733792347245040), (+1.3882076118059683, +0.90798778026744920), (+1.2194091974981038, +0.34818569454913451), (+1.7618925914663905, +0.77658259583735934), (+1.2947229620636289, +0.65439201039058192), (+1.2515211944231013, +0.60569937646692984), (+1.0771827833496026, +0.86225966645817276), (+1.7625067278658557, +0.89009516576836378), (+1.3363277919208763, +0.15005830604862286), (+1.3255498968694170, +0.24828334970129498), (+1.7975253086295564, +0.38373807619377076), (+1.6451396954194808, +0.15640704577638082), (+1.7373955840511863, +0.39074378738001914), (+1.4252871169350969, +0.84392373174063362), (+1.7891132656285964, +0.79560630444444524), (+1.9360745108649875, +0.59499906994579166), (+1.2721929439079462, +0.98981911352668395), (+1.6939096033489986, +0.65757818612911012), (+1.3784134180805674, +0.69703311835130843), (+1.0819922022107933, +0.72267219631812640), (+1.1874735845885342, +0.56319042501041849), (+1.9688098577456721, +0.56192263098297746), (+1.5672235114096198, +0.18404106579691401), (+1.0952982857104789, +0.82100227270859827), (+1.6477163957112366, +0.79005806493612707), (+1.9774395842698120, +0.53738751161012299), (+1.1383449231919203, +0.18497244926894929), (+1.0041400708140253, +0.38798651538197682), (+1.7826821199925977, +0.83183235945780476), (+1.3901603118797199, +0.80218003645689684), (+1.5250111154770261, +0.57800053928558548), (+1.1007649964516355, +0.80882066409467268), (+1.1033197248531905, +0.56986926131588955E-1), (+1.7011007001182781, +0.15332967420897470), (+1.2963008789448049, +0.45531306933359417), (+1.2267327696359041, +0.41690168544825928), (+1.0480907530522665, +0.28660611511971801), (+1.9142342925911053, +0.77978029996738019), (+1.2440674133001828, +0.93746392502009668), (+1.4265838380074025, +0.44244978724274570), (+1.5937735303527276, +0.30396045030739427), (+1.4384003367138258, +0.11240515605586485), (+1.8800545928117969, +0.68489470571304656), (+1.3510269709083864, +0.70298631723341698), (+1.4416758390582043, +0.35529010142400785E-2), (+1.1834843598947786, +0.23006577209037943), (+1.7000864043992281, +0.30998740374167233), (+1.1994359568382353, +0.83474286734694325), (+1.3055958902657634, +0.90340124034552549), (+1.7309041932360334, +0.38261711690287359), (+1.0431791723552120, +0.70785346391969728), (+1.1387294450188039, +0.52641978475778872), (+1.1740551644392294, +0.12700517873786127), (+1.6140359202737002, +0.56282254734991488), (+1.0055078782608131, +0.49124821399253493), (+1.3415114911109636, +0.64647679532535574), (+1.6511883697639687, +0.24533539566986740), (+1.8450559793620172, +0.44299123343322022)
334reltol = sqrt(epsilon(1._TKG))
335reltol
336+0.14901161193847656E-7
337isClose(data, adat, reltol = reltol)
338T, 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
339call setAsserted(all(isClose(data, adat, reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+81
344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
345data
346(+1.06518711127294384833246114081862524, +0.390108444717890841086781211730879144), (+1.73674745534260606997081829511842100, +0.196898392389183220583656994841939018), (+1.54039036822604449035830799138629713, +0.890795877084730779877270378340252988), (+1.57156380975802628135607926805426179, +0.307604407141788506652487016054830597), (+1.78415731515751671398058542856436782, +0.173472936818032335290912302768885598), (+1.66939174415580947719964629026753568, +0.261035700281481860855888384440118015E-1), (+1.41290399306511257161097074437753270, +0.919903483051283679516434997059010237), (+1.61645519555568640831049377277267013, +0.549799754199630276719639772810500007), (+1.71071163968119821691860289058430160, +0.326344165827122986975989719478063592), (+1.89288865401761037878701277798400944, +0.755186351038684206433042213210681836), (+1.58300177566195137047153942991875528, +0.440788541970307521516046073704178463), (+1.13847242671814281803059566957515421, +0.444604436515071231684561285597097334), (+1.29654758605804735413445451074127204, +0.520249799633476319921094488408706514), (+1.31008213810323592053800672243353576, +0.478021403805628976073487361319790337), (+1.70252500381399531518284247476759456, +0.769013985359515963609570291685387076), (+1.70918901865437715706569856487943543, +0.899109637541783151583360161675122690), (+1.81927028375600655214167741297560387, +0.968274548207451375832858408050264539), (+1.87617865969870564875489295048370604, +0.758024761843277674308459406471549786), (+1.73704968230433370811456155614460241, +0.381437805825992502292893682649077619), (+1.26526829417187707933452648114729807, +0.142735115249546366939275769065948468E-1), (+1.65713499929259489747960582190347778, +0.657034780966212611934500190043448048), (+1.94136051879274486190906731905954550, +0.653683687064990226910548517693178436), (+1.81446992182982289208736911098566388, +0.401183279801132445604466973253338485E-1), (+1.03310352314198557646605370084220905, +0.715036706486878286783231842320949348), (+1.63114194552556543543683488884145117, +0.675863317510914814968157664128327715), (+1.29458046973895133458976322655507678, +0.207054309997041787841775815352669365E-1), (+1.06569607031437447325758681292361625, +0.445544619097002844553319141533235350), (+1.47051569837223444834786329867276908, +0.711154151837944320642690845427548351E-1), (+1.56224339963222623444133370241055199, +0.899358033710140573834758804969863427), (+1.47736886286413573370826697803856990, +0.387511594883494674917806885165177008), (+1.63929937750677645067891590717460113, +0.671868108341296939608636434078498510), (+1.38034878169887482849197463272073872, +0.832761276078870203576347176779063706), (+1.77118262116959527672952974754654750, +0.334595667451169787111330206987091967), (+1.28443349188677473304829446103820159, +0.469041712159042703111760570030925869), (+1.98559551974645745638099559443863222, +0.247772650328985165294128612293336297), (+1.39399314701776900990979372477293679, +0.223985154657596074970462739098024437), (+1.30402401452047727821962169259029667, +0.786833885751972557541537937140275391), (+1.75476140120314132032696448212836308, +0.777869747678785758737843810668416059), (+1.38616578600732553387091769484621754, +0.453379683727494372766166676521040204E-1), (+1.72923154112845113281189917583699087, +0.775026450994767531807320065297686348), (+1.02640600496636548409653911707065917, +0.514554619196043071553981067369754350), (+1.18013795237559800131634363051915393, +0.770271423905023888912410932863754240), (+1.02953572913249182791800433456302001, +0.654639861101664848291037813757254012), (+1.72588596946813786379713844731728753, +0.260738310614076708465144766814571875), (+1.97902788316989894188246664190069545, +0.356507181454184244930610517766868719), (+1.52776664267998411835898335844695690, +0.493783882982425184566901716992631502), (+1.67089944536162409066360536792862336, +0.343630729927792901195205077503669338), (+1.58645428737508080334829531171698121, +0.162558248304423519218654798988145772), (+1.58242960473004365327039527107650216, +0.271547928153995537981031758644272104), (+1.18231050859938236049796891146285175, +0.362719380199354118719020318918659125), (+1.82274321095365045259460236596162232, +0.556742457898219370657309917347227668), (+1.28579870702851809530882672622246433, +0.480831144401386149972335178297705671), (+1.16082450632412447627417642701159977, +0.873074754272097470652016448387517907), (+1.95271751271282267159948622804291311, +0.870669967142129880749646472873737551), (+1.04044958909966545506167863643339517, +0.734624941264885865468024506159993090), (+1.56486239454355485306768046417128959, +0.187409610000736730977136407410695736E-2), (+1.32409433395004047033258863952201302, +0.483247315363234110154430006238848543), (+1.94419502622655209846764296277603913, +0.531319686858448534543796508596821723), (+1.48132626278161973072238405074543371, +0.469399206675559646675588603560634916E-1), (+1.10727181505351999580687988256515496, +0.639745559102242565173044036523237785), (+1.58866751372124923682906692437905188, +0.776794953783349490149257668079161303), (+1.06896896819313896771654664077348175, +0.623045660618376262889169856827991098), (+1.34411422065135519329896437102961618, +0.301620356915588343635321836696167404), (+1.33830946256964936809859743594683908, +0.847412005467264345771445760322496506), (+1.03282210242186369144783851056689427, +0.847666393483979619804605625382319629), (+1.50509970613831315666599904253035604, +0.231838552614303471911298686005105414E-1), (+1.14880843624313097424707280468047717, +0.206902718946916639617992832458636090E-1), (+1.17813879696850847779210740383398333, +0.318320344736195403874391883108387042), (+1.11866805139647123959010569326610301, +0.876367292667509170646685771464684744), (+1.15921804527942515227501558131580976, +0.511543389529473603793937826465399293), (+1.04668315101697678599955218525666706, +0.410723176436009473600288143851419004), (+1.24739359596616210983774736850688739, +0.114497149097635858589280427712883259E-1), (+1.82866079705828636982130882487044152, +0.931717347145535193327226512570687885), (+1.72944765483186164510110053625896872, +0.117629772381046150719297098984086615), (+1.25900060826564001601828755136209841, +0.692425206841924051215861660963847915E-1), (+1.33247202828588447967880693309411930, +0.866450351299791505575540336224135234), (+1.50933939501632170353689845208443825, +0.690805104010131397959546725886498372), (+1.29341900606101452535194847043723482, +0.520528755242965124337736472199577198), (+1.82987252545883230847477021153711357, +0.520324567370803574686422264370525442), (+1.34566817560780699732347359283068848, +0.188596150864307105194994527092851794E-2), (+1.62583278465692224977437745715552693, +0.652889890231908171481856974065475802)
347
348adat = getFFTI(getFFTF(data))
349adat
350(+1.06518711127294384833246114081862505, +0.390108444717890841086781211730879096), (+1.73674745534260606997081829511842100, +0.196898392389183220583656994841939042), (+1.54039036822604449035830799138629732, +0.890795877084730779877270378340252795), (+1.57156380975802628135607926805426141, +0.307604407141788506652487016054830597), (+1.78415731515751671398058542856436802, +0.173472936818032335290912302768885501), (+1.66939174415580947719964629026753626, +0.261035700281481860855888384440119459E-1), (+1.41290399306511257161097074437753250, +0.919903483051283679516434997059010141), (+1.61645519555568640831049377277267013, +0.549799754199630276719639772810500104), (+1.71071163968119821691860289058430160, +0.326344165827122986975989719478063688), (+1.89288865401761037878701277798400925, +0.755186351038684206433042213210681932), (+1.58300177566195137047153942991875547, +0.440788541970307521516046073704178414), (+1.13847242671814281803059566957515440, +0.444604436515071231684561285597097383), (+1.29654758605804735413445451074127204, +0.520249799633476319921094488408706418), (+1.31008213810323592053800672243353596, +0.478021403805628976073487361319790385), (+1.70252500381399531518284247476759475, +0.769013985359515963609570291685387268), (+1.70918901865437715706569856487943504, +0.899109637541783151583360161675122594), (+1.81927028375600655214167741297560368, +0.968274548207451375832858408050264154), (+1.87617865969870564875489295048370623, +0.758024761843277674308459406471549882), (+1.73704968230433370811456155614460241, +0.381437805825992502292893682649077523), (+1.26526829417187707933452648114729826, +0.142735115249546366939275769065948513E-1), (+1.65713499929259489747960582190347778, +0.657034780966212611934500190043448144), (+1.94136051879274486190906731905954512, +0.653683687064990226910548517693178436), (+1.81446992182982289208736911098566388, +0.401183279801132445604466973253339027E-1), (+1.03310352314198557646605370084220963, +0.715036706486878286783231842320949541), (+1.63114194552556543543683488884145079, +0.675863317510914814968157664128327811), (+1.29458046973895133458976322655507678, +0.207054309997041787841775815352670268E-1), (+1.06569607031437447325758681292361644, +0.445544619097002844553319141533235639), (+1.47051569837223444834786329867276889, +0.711154151837944320642690845427549194E-1), (+1.56224339963222623444133370241055179, +0.899358033710140573834758804969863330), (+1.47736886286413573370826697803857010, +0.387511594883494674917806885165177056), (+1.63929937750677645067891590717460074, +0.671868108341296939608636434078498606), (+1.38034878169887482849197463272073892, +0.832761276078870203576347176779063802), (+1.77118262116959527672952974754654827, +0.334595667451169787111330206987092256), (+1.28443349188677473304829446103820139, +0.469041712159042703111760570030925917), (+1.98559551974645745638099559443863222, +0.247772650328985165294128612293336225), (+1.39399314701776900990979372477293717, +0.223985154657596074970462739098024629), (+1.30402401452047727821962169259029667, +0.786833885751972557541537937140275583), (+1.75476140120314132032696448212836347, +0.777869747678785758737843810668415770), (+1.38616578600732553387091769484621773, +0.453379683727494372766166676521042491E-1), (+1.72923154112845113281189917583699087, +0.775026450994767531807320065297686348), (+1.02640600496636548409653911707065936, +0.514554619196043071553981067369754350), (+1.18013795237559800131634363051915412, +0.770271423905023888912410932863754529), (+1.02953572913249182791800433456301962, +0.654639861101664848291037813757254012), (+1.72588596946813786379713844731728753, +0.260738310614076708465144766814571971), (+1.97902788316989894188246664190069583, +0.356507181454184244930610517766868767), (+1.52776664267998411835898335844695690, +0.493783882982425184566901716992631454), (+1.67089944536162409066360536792862336, +0.343630729927792901195205077503669434), (+1.58645428737508080334829531171698121, +0.162558248304423519218654798988145844), (+1.58242960473004365327039527107650197, +0.271547928153995537981031758644272055), (+1.18231050859938236049796891146285175, +0.362719380199354118719020318918659173), (+1.82274321095365045259460236596162271, +0.556742457898219370657309917347227957), (+1.28579870702851809530882672622246395, +0.480831144401386149972335178297705671), (+1.16082450632412447627417642701159977, +0.873074754272097470652016448387517714), (+1.95271751271282267159948622804291350, +0.870669967142129880749646472873737551), (+1.04044958909966545506167863643339498, +0.734624941264885865468024506159992993), (+1.56486239454355485306768046417128940, +0.187409610000736730977136407410696450E-2), (+1.32409433395004047033258863952201341, +0.483247315363234110154430006238848591), (+1.94419502622655209846764296277603874, +0.531319686858448534543796508596821531), (+1.48132626278161973072238405074543391, +0.469399206675559646675588603560636421E-1), (+1.10727181505351999580687988256515554, +0.639745559102242565173044036523238074), (+1.58866751372124923682906692437905169, +0.776794953783349490149257668079161303), (+1.06896896819313896771654664077348195, +0.623045660618376262889169856827991001), (+1.34411422065135519329896437102961656, +0.301620356915588343635321836696167452), (+1.33830946256964936809859743594683927, +0.847412005467264345771445760322496603), (+1.03282210242186369144783851056689466, +0.847666393483979619804605625382319436), (+1.50509970613831315666599904253035604, +0.231838552614303471911298686005106167E-1), (+1.14880843624313097424707280468047717, +0.206902718946916639617992832458636661E-1), (+1.17813879696850847779210740383398352, +0.318320344736195403874391883108386993), (+1.11866805139647123959010569326610339, +0.876367292667509170646685771464685033), (+1.15921804527942515227501558131580938, +0.511543389529473603793937826465399293), (+1.04668315101697678599955218525666764, +0.410723176436009473600288143851419052), (+1.24739359596616210983774736850688778, +0.114497149097635858589280427712883425E-1), (+1.82866079705828636982130882487044152, +0.931717347145535193327226512570687788), (+1.72944765483186164510110053625896891, +0.117629772381046150719297098984086615), (+1.25900060826564001601828755136209841, +0.692425206841924051215861660963848758E-1), (+1.33247202828588447967880693309411910, +0.866450351299791505575540336224135041), (+1.50933939501632170353689845208443844, +0.690805104010131397959546725886498275), (+1.29341900606101452535194847043723540, +0.520528755242965124337736472199577487), (+1.82987252545883230847477021153711299, +0.520324567370803574686422264370525442), (+1.34566817560780699732347359283068848, +0.188596150864307105194994527092859035E-2), (+1.62583278465692224977437745715552712, +0.652889890231908171481856974065475706)
351reltol = sqrt(epsilon(1._TKG))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, adat, reltol = reltol)
355T, 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, T, T, T, T
356call setAsserted(all(isClose(data, adat, reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+95
361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
362data
363+1.78157830, +1.04372156, +1.37921643, +1.48628938, +1.88814139, +1.85415673, +1.64437258, +1.83734512, +1.47606027, +1.29095411, +1.54616022, +1.36412764, +1.29656696, +1.83001995, +1.58507752, +1.64715981, +1.46378577, +1.98089528, +1.08966136, +1.51222944, +1.71073341, +1.80792141, +1.10497820, +1.53203988, +1.24084842, +1.27718198, +1.58349383, +1.32390165, +1.09234536, +1.54725051, +1.08985519, +1.57346570, +1.14560509, +1.33173120, +1.63661826, +1.99502397, +1.83581781, +1.30264378, +1.91514266, +1.65959358, +1.38239264, +1.17681766, +1.63872409, +1.21349812, +1.67045808, +1.30511212, +1.27385330, +1.71986198, +1.07820356, +1.31363583, +1.75738192, +1.82209897, +1.23983049, +1.76561284, +1.66213167, +1.80664623, +1.13083553, +1.38152552, +1.07600784, +1.03161597, +1.69225729, +1.67677271, +1.01465869, +1.98017919, +1.11829305, +1.89969659, +1.65637803, +1.78990078, +1.92030406, +1.52548575, +1.58571541, +1.88000488, +1.99240708, +1.80874538, +1.77785170, +1.20404518, +1.20093071, +1.82800937, +1.84153557, +1.32494962, +1.66375160, +1.77912724, +1.68754184, +1.78865075, +1.69551444, +1.27493083, +1.51518679, +1.18256044, +1.36634350, +1.20654178, +1.00329554, +1.15598798, +1.09194958, +1.40513468, +1.38654518
364
365adat = getFFTI(getFFTF(data))
366adat
367+1.78157866, +1.04372203, +1.37921643, +1.48628914, +1.88814187, +1.85415673, +1.64437258, +1.83734512, +1.47606003, +1.29095459, +1.54615998, +1.36412776, +1.29656696, +1.83001971, +1.58507764, +1.64715958, +1.46378601, +1.98089480, +1.08966136, +1.51223004, +1.71073329, +1.80792153, +1.10497844, +1.53203952, +1.24084890, +1.27718210, +1.58349419, +1.32390177, +1.09234524, +1.54725063, +1.08985555, +1.57346594, +1.14560509, +1.33173132, +1.63661861, +1.99502313, +1.83581758, +1.30264390, +1.91514158, +1.65959370, +1.38239264, +1.17681825, +1.63872397, +1.21349835, +1.67045808, +1.30511200, +1.27385366, +1.71986198, +1.07820356, +1.31363606, +1.75738144, +1.82209897, +1.23983085, +1.76561224, +1.66213167, +1.80664611, +1.13083613, +1.38152540, +1.07600820, +1.03161621, +1.69225693, +1.67677283, +1.01465905, +1.98017848, +1.11829340, +1.89969635, +1.65637803, +1.78990054, +1.92030394, +1.52548611, +1.58571541, +1.88000500, +1.99240696, +1.80874515, +1.77785170, +1.20404530, +1.20093095, +1.82800925, +1.84153533, +1.32494998, +1.66375113, +1.77912736, +1.68754148, +1.78865039, +1.69551480, +1.27493072, +1.51518691, +1.18256044, +1.36634362, +1.20654202, +1.00329578, +1.15598822, +1.09194970, +1.40513420, +1.38654566
368reltol = sqrt(epsilon(1._TKG))
369reltol
370+0.345266977E-3
371isClose(data, adat, reltol = reltol)
372T, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, adat, reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+88
378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
379data
380+1.9543718506181529, +1.2804689649051153, +1.7783193824627022, +1.2484643414407750, +1.9834093526086163, +1.9541126612248365, +1.7276062917028319, +1.4905358841903804, +1.8135194792296865, +1.4448864768441743, +1.2863768326699025, +1.6925055344012816, +1.1433513981445289, +1.9311037255169774, +1.4812294483353794, +1.5860457462126880, +1.7848947496273302, +1.0448213120498537, +1.4885601812589124, +1.2564201138013118, +1.5561375183367143, +1.8223917655403523, +1.7789531452584788, +1.6790400803361349, +1.2390876591936082, +1.8277502128869685, +1.7365005110209570, +1.0158711098551239, +1.5193762410081630, +1.7767915173944591, +1.1295678269614693, +1.9543046472477665, +1.5318533764871300, +1.5872359759751600, +1.8668647838727324, +1.6930807506025012, +1.3123868997704822, +1.4185016497679195, +1.7214375386222387, +1.7145487899328224, +1.0791892992836964, +1.9861303897673583, +1.0555864242603958, +1.6789674857809640, +1.9874460921556665, +1.0284607769864693, +1.3914849288098541, +1.0741976400407591, +1.8775236839995042, +1.8453247630764216, +1.1174413864896380, +1.2470120192859269, +1.9555788896279682, +1.3214242308437272, +1.5661597940261287, +1.1244002284787684, +1.9547972372347879, +1.0168304102125365, +1.1335683230533080, +1.6362149143177849, +1.9509781651765274, +1.8650957886376891, +1.3942842411207479, +1.4663777907753073, +1.0378744510084843, +1.8370561827185190, +1.9671323671884324, +1.1762517018266609, +1.6076858452407385, +1.7128253324524132, +1.9417156754821203, +1.5976919799492546, +1.0370013055337250, +1.1446212208639572, +1.3955727618442080, +1.2506109192586925, +1.4409924363690010, +1.6771811156943457, +1.4893630500208777, +1.7246375426923353, +1.9570126049685048, +1.8759222340817618, +1.9511060965444518, +1.5648048295709944, +1.2213684309157533, +1.5609206777827975, +1.7412962847971569, +1.5806555218044958
381
382adat = getFFTI(getFFTF(data))
383adat
384+1.9543718506181542, +1.2804689649051162, +1.7783193824627024, +1.2484643414407757, +1.9834093526086169, +1.9541126612248370, +1.7276062917028325, +1.4905358841903813, +1.8135194792296871, +1.4448864768441745, +1.2863768326699025, +1.6925055344012823, +1.1433513981445296, +1.9311037255169772, +1.4812294483353794, +1.5860457462126882, +1.7848947496273309, +1.0448213120498542, +1.4885601812589129, +1.2564201138013118, +1.5561375183367148, +1.8223917655403530, +1.7789531452584797, +1.6790400803361356, +1.2390876591936089, +1.8277502128869683, +1.7365005110209573, +1.0158711098551241, +1.5193762410081633, +1.7767915173944593, +1.1295678269614691, +1.9543046472477668, +1.5318533764871303, +1.5872359759751609, +1.8668647838727324, +1.6930807506025016, +1.3123868997704833, +1.4185016497679197, +1.7214375386222385, +1.7145487899328229, +1.0791892992836969, +1.9861303897673570, +1.0555864242603954, +1.6789674857809638, +1.9874460921556660, +1.0284607769864691, +1.3914849288098539, +1.0741976400407591, +1.8775236839995044, +1.8453247630764202, +1.1174413864896375, +1.2470120192859269, +1.9555788896279678, +1.3214242308437270, +1.5661597940261285, +1.1244002284787684, +1.9547972372347877, +1.0168304102125376, +1.1335683230533085, +1.6362149143177851, +1.9509781651765281, +1.8650957886376891, +1.3942842411207479, +1.4663777907753077, +1.0378744510084852, +1.8370561827185190, +1.9671323671884324, +1.1762517018266612, +1.6076858452407390, +1.7128253324524136, +1.9417156754821203, +1.5976919799492550, +1.0370013055337253, +1.1446212208639577, +1.3955727618442084, +1.2506109192586925, +1.4409924363690014, +1.6771811156943461, +1.4893630500208783, +1.7246375426923362, +1.9570126049685055, +1.8759222340817616, +1.9511060965444520, +1.5648048295709949, +1.2213684309157538, +1.5609206777827971, +1.7412962847971571, +1.5806555218044962
385reltol = sqrt(epsilon(1._TKG))
386reltol
387+0.14901161193847656E-7
388isClose(data, adat, reltol = reltol)
389T, 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, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, adat, reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+66
395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
396data
397+1.49769764833614763156016379074128876, +1.21846294937554228610721277962217182, +1.35655638942282847707776731059562885, +1.80264806925028673379880757270464404, +1.67468313657682945888897544779460124, +1.95487057211905727291992990087280723, +1.86389394677965083656365395917085882, +1.41757884345615099282123569756419891, +1.35475908717691986129176022622798098, +1.11782832436075712867048116108189404, +1.22645165601066743740383231203275915, +1.60611911124369063999317712425143167, +1.63983068171759829836278127865052740, +1.72603102180977019638821734914275177, +1.98511799470636752925311842637741902, +1.61960892145871536226328030654528879, +1.31065947448492229734150904026260389, +1.87850230483683440359979339976570296, +1.61339843832729836389472522733200553, +1.35278517899211989486296827501733283, +1.59654568157188583957985081604312466, +1.72213436190781213720533167172713206, +1.34880869566088185019978642124590740, +1.34896173605094168685095003498410279, +1.84159703933678201622846405202161141, +1.36584035930323874164627400261470495, +1.16358769595029952333532564461445881, +1.69560698872823549100684277594312142, +1.19578968734118346236786008463398955, +1.01639780627691722849075633943425388, +1.35783950791161297002150444989165977, +1.03313522413567535721340405863996586, +1.72367696458905913370452860027891395, +1.75166858597222166245313493159121863, +1.13136734868283295681451219928608649, +1.58664682387774054901001340027684763, +1.57886827090953957570632065175661597, +1.57731641352624284585860175906863598, +1.43445438175105505271720973990805030, +1.43175879015777692181982882093691611, +1.45684666339987793394400843445704761, +1.93501836441038140734587992309501247, +1.09324410705775527418659476548691644, +1.54585057620336683208632894096256235, +1.41742173154972051183629943339718828, +1.65421442537605968267341868555083580, +1.74402667252065288965475276505457077, +1.96762907099187427496092243609010791, +1.71481807560570400199632611962355670, +1.68465593299587577125658504059120264, +1.41111110258628403879178793353192886, +1.59722781777339249370079704750051343, +1.09705969473183186587870055726411908, +1.04764842292588324514521494908072270, +1.87723122877545179052982831042793926, +1.61017918100204657300242546087435891, +1.39246409892723456417628060211397365, +1.91380084619783375803894282224849286, +1.23422981021938779042713558446070901, +1.46410492356415079603887259507823132, +1.03078274767642827862826867296622013, +1.36158626223085334283943095851132162, +1.29807047750403247763662673013082093, +1.50928658965332197362519066896065365, +1.96011916967973678425591338532208037, +1.15306150236406585854716212819400931
398
399adat = getFFTI(getFFTF(data))
400adat
401+1.49769764833614763156016379074128915, +1.21846294937554228610721277962217240, +1.35655638942282847707776731059562923, +1.80264806925028673379880757270464461, +1.67468313657682945888897544779460201, +1.95487057211905727291992990087280761, +1.86389394677965083656365395917085882, +1.41757884345615099282123569756419911, +1.35475908717691986129176022622798098, +1.11782832436075712867048116108189442, +1.22645165601066743740383231203275934, +1.60611911124369063999317712425143186, +1.63983068171759829836278127865052779, +1.72603102180977019638821734914275254, +1.98511799470636752925311842637741960, +1.61960892145871536226328030654528937, +1.31065947448492229734150904026260447, +1.87850230483683440359979339976570373, +1.61339843832729836389472522733200553, +1.35278517899211989486296827501733283, +1.59654568157188583957985081604312466, +1.72213436190781213720533167172713187, +1.34880869566088185019978642124590740, +1.34896173605094168685095003498410298, +1.84159703933678201622846405202161160, +1.36584035930323874164627400261470515, +1.16358769595029952333532564461445958, +1.69560698872823549100684277594312200, +1.19578968734118346236786008463398993, +1.01639780627691722849075633943425427, +1.35783950791161297002150444989165920, +1.03313522413567535721340405863996509, +1.72367696458905913370452860027891357, +1.75166858597222166245313493159121825, +1.13136734868283295681451219928608610, +1.58664682387774054901001340027684705, +1.57886827090953957570632065175661558, +1.57731641352624284585860175906863559, +1.43445438175105505271720973990804972, +1.43175879015777692181982882093691573, +1.45684666339987793394400843445704742, +1.93501836441038140734587992309501208, +1.09324410705775527418659476548691663, +1.54585057620336683208632894096256255, +1.41742173154972051183629943339718905, +1.65421442537605968267341868555083657, +1.74402667252065288965475276505457077, +1.96762907099187427496092243609010868, +1.71481807560570400199632611962355690, +1.68465593299587577125658504059120283, +1.41111110258628403879178793353192867, +1.59722781777339249370079704750051305, +1.09705969473183186587870055726411908, +1.04764842292588324514521494908072270, +1.87723122877545179052982831042793964, +1.61017918100204657300242546087435949, +1.39246409892723456417628060211397422, +1.91380084619783375803894282224849363, +1.23422981021938779042713558446070978, +1.46410492356415079603887259507823190, +1.03078274767642827862826867296622013, +1.36158626223085334283943095851132201, +1.29807047750403247763662673013082093, +1.50928658965332197362519066896065404, +1.96011916967973678425591338532208037, +1.15306150236406585854716212819400931
402reltol = sqrt(epsilon(1._TKG))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, adat, reltol = reltol)
406T, 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
407call setAsserted(all(isClose(data, adat, reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+94
412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
413data
414(+1.77205670, +0.676635921), (+1.02280533, +0.931335568), (+1.39537907, +0.534153581E-1), (+1.12087691, +0.717145205), (+1.59097743, +0.305527568), (+1.35539663, +0.389813781E-1), (+1.08567631, +0.517437816), (+1.99974227, +0.985805869), (+1.72474444, +0.690878570), (+1.80300641, +0.223631382), (+1.31281650, +0.341635287), (+1.88801122, +0.775024891E-1), (+1.54970598, +0.524496853), (+1.91453683, +0.831079483E-2), (+1.03565454, +0.925178885), (+1.70834184, +0.289422035), (+1.12294960, +0.925514042), (+1.62910008, +0.560994208), (+1.55796123, +0.875675678), (+1.46831036, +0.316635966), (+1.19271338, +0.659587383E-1), (+1.93397117, +0.739373922), (+1.09841311, +0.576902032), (+1.91895175, +0.736065984), (+1.44474936, +0.886660218E-1), (+1.15964210, +0.896922290), (+1.13665080, +0.721182823), (+1.24494851, +0.934677839), (+1.22578621, +0.732412338), (+1.22896469, +0.953534782), (+1.42685699, +0.898945093), (+1.62909985, +0.115121901), (+1.84046483, +0.278293729), (+1.46045649, +0.660346210), (+1.78979731, +0.530353308), (+1.59385443, +0.869927943), (+1.50841951, +0.946181476), (+1.20837879, +0.611569762), (+1.00911129, +0.235215306), (+1.34319651, +0.844366491), (+1.06131005, +0.662228286), (+1.06728745, +0.963862777), (+1.51142073, +0.199752092), (+1.10318685, +0.493969023), (+1.92007685, +0.653523445), (+1.73533762, +0.652243316), (+1.83737469, +0.942193568), (+1.89155698, +0.583972692), (+1.75406528, +0.799560726), (+1.27773941, +0.884864390), (+1.68064904, +0.273943186), (+1.87454152, +0.558685660), (+1.21177852, +0.943452001), (+1.84225094, +0.970856190), (+1.01355433, +0.862602770), (+1.72899854, +0.326047778), (+1.49289393, +0.572973490), (+1.19258332, +0.551685631), (+1.68991280, +0.723219693), (+1.53880692, +0.461624861E-1), (+1.87534821, +0.344044864), (+1.01947904, +0.886419892), (+1.19977808, +0.961131215), (+1.71629047, +0.650990605), (+1.31943226, +0.347607195), (+1.76139784, +0.307895541), (+1.52987885, +0.108534813), (+1.29054677, +0.472683430), (+1.10600543, +0.666555762), (+1.25574708, +0.338752031), (+1.41358113, +0.818183482), (+1.72164226, +0.960918903), (+1.08661747, +0.804875314), (+1.05204988, +0.931636930), (+1.45573401, +0.100566745), (+1.88280106, +0.939858675), (+1.61144447, +0.482452393), (+1.27184439, +0.890086174), (+1.63829398, +0.345868766), (+1.09310627, +0.711897552), (+1.22704887, +0.976503611), (+1.12760985, +0.931044579), (+1.73623633, +0.366515100), (+1.01277673, +0.252104402E-1), (+1.06096435, +0.656198800), (+1.16758490, +0.950124562), (+1.81918478, +0.641907036), (+1.58149910, +0.985510170), (+1.28187740, +0.267877698), (+1.05706000, +0.877469897), (+1.57533646, +0.712789893), (+1.48612618, +0.569924116E-1), (+1.19326782, +0.331043720), (+1.01686502, +0.732257128)
415
416adat = getFFTI(getFFTF(data))
417adat
418(+1.77205813, +0.676636517), (+1.02280486, +0.931335330), (+1.39537871, +0.534152165E-1), (+1.12087655, +0.717145026), (+1.59097695, +0.305527508), (+1.35539663, +0.389812142E-1), (+1.08567631, +0.517437637), (+1.99974167, +0.985805988), (+1.72474456, +0.690878570), (+1.80300641, +0.223631337), (+1.31281638, +0.341635197), (+1.88801062, +0.775024742E-1), (+1.54970574, +0.524496913), (+1.91453671, +0.831081532E-2), (+1.03565419, +0.925178766), (+1.70834088, +0.289421976), (+1.12294996, +0.925514042), (+1.62909985, +0.560994208), (+1.55796099, +0.875675559), (+1.46830988, +0.316636026), (+1.19271314, +0.659587532E-1), (+1.93397105, +0.739373863), (+1.09841359, +0.576902151), (+1.91895187, +0.736065924), (+1.44474971, +0.886663049E-1), (+1.15964246, +0.896922469), (+1.13665068, +0.721182764), (+1.24494827, +0.934677958), (+1.22578585, +0.732412219), (+1.22896445, +0.953534663), (+1.42685711, +0.898944974), (+1.62909973, +0.115121968), (+1.84046459, +0.278293639), (+1.46045613, +0.660346329), (+1.78979743, +0.530353367), (+1.59385371, +0.869928062), (+1.50841939, +0.946181238), (+1.20837843, +0.611569583), (+1.00911105, +0.235215396), (+1.34319639, +0.844366491), (+1.06130993, +0.662228286), (+1.06728721, +0.963862479), (+1.51142037, +0.199752033), (+1.10318637, +0.493969113), (+1.92007673, +0.653523326), (+1.73533702, +0.652243137), (+1.83737421, +0.942193329), (+1.89155865, +0.583973527), (+1.75406480, +0.799560666), (+1.27773917, +0.884864271), (+1.68064880, +0.273943096), (+1.87454069, +0.558685541), (+1.21177816, +0.943452060), (+1.84225070, +0.970856249), (+1.01355433, +0.862602949), (+1.72899806, +0.326047689), (+1.49289370, +0.572973371), (+1.19258320, +0.551685691), (+1.68991268, +0.723219693), (+1.53880668, +0.461626053E-1), (+1.87534833, +0.344044864), (+1.01947808, +0.886419713), (+1.19977796, +0.961130977), (+1.71629047, +0.650990903), (+1.31943238, +0.347607225), (+1.76139724, +0.307895452), (+1.52987862, +0.108534887), (+1.29054689, +0.472683519), (+1.10600531, +0.666555643), (+1.25574708, +0.338751912), (+1.41358149, +0.818183720), (+1.72164249, +0.960919142), (+1.08661783, +0.804875433), (+1.05204976, +0.931636512), (+1.45573401, +0.100566670), (+1.88280094, +0.939858735), (+1.61144435, +0.482452363), (+1.27184427, +0.890086293), (+1.63829446, +0.345868886), (+1.09310567, +0.711897671), (+1.22704852, +0.976503491), (+1.12760925, +0.931044638), (+1.73623598, +0.366515130), (+1.01277649, +0.252104104E-1), (+1.06096435, +0.656198740), (+1.16758454, +0.950124443), (+1.81918478, +0.641906977), (+1.58149910, +0.985510051), (+1.28187740, +0.267877460), (+1.05705953, +0.877470016), (+1.57533598, +0.712789655), (+1.48612618, +0.569922738E-1), (+1.19326746, +0.331043571), (+1.01686430, +0.732257068)
419reltol = sqrt(epsilon(1._TKG))
420reltol
421+0.345266977E-3
422isClose(data, adat, reltol = reltol)
423T, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, adat, reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+82
429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
430data
431(+1.9207955075810008, +0.42851704399919543), (+1.2215113718434898, +0.62848640694613256), (+1.0216265493736354, +0.53048245505783298), (+1.3151548955428209, +0.59082514349309434), (+1.3908452383790766, +0.50605139771290242), (+1.2464460344727832, +0.10395377681604634), (+1.3011690424520275, +0.73429046307397283), (+1.6648470787106229, +0.71382229048000367), (+1.1525752490894352, +0.48668324212669445), (+1.9206380939846164, +0.75278143844799028), (+1.9998704059113948, +0.71815265520554716), (+1.9139165476646207, +0.18472222100118763), (+1.2128602381390041, +0.42745839693598409), (+1.2240391205345644, +0.34978631641235725), (+1.3334170859335246, +0.84122393723676991), (+1.9790490333754371, +0.40724016833188525), (+1.4189641819948642, +0.37501506220183789), (+1.8738847560039180, +0.51548401239902442), (+1.8000213543880133, +0.31100610592374667), (+1.2255963754548014, +0.58822334441778079), (+1.9484927873702440, +0.37978512858879365), (+1.9852545398885264, +0.99653229562596102), (+1.3279709805523900, +0.89449702419689758), (+1.3388707580640224, +0.20952009957802853), (+1.0096849084530060, +0.86567777462288920), (+1.4879631648896003, +0.93528056812849070), (+1.6097102558967411, +0.41730509145133998), (+1.5914961062929953, +0.98547064971741960), (+1.0637832103171010, +0.80715903533166711E-1), (+1.0335888288934496, +0.21829117933208741E-1), (+1.7979704078614844, +0.95614288029657879E-1), (+1.4819512639604477, +0.46415158036999171), (+1.3324896329014566, +0.37374408895629885), (+1.9530391288576330, +0.86817594700160516), (+1.6361834545708065, +0.19708760693641014), (+1.6229779619479547, +0.16229764036589545), (+1.2210502276694304, +0.29135598347834546), (+1.4859702334169440, +0.53316102852751823), (+1.3965487256097155, +0.54987213898993526), (+1.1863045942329924, +0.55521982292363992), (+1.8153821621870594, +0.20225589195287419), (+1.3343204165344984, +0.80729922907036211), (+1.2423956271657020, +0.98386022442694587), (+1.6593919552146419, +0.50481961971564815), (+1.2326225611405213, +0.21351772948748160), (+1.3883567596223756, +0.84119698850028546), (+1.4823819102750844, +0.76848316968217034), (+1.9557529521685433, +0.93312665040888609), (+1.0720057120012545, +0.86115020432451583), (+1.5459954521032335, +0.98745642851310933), (+1.1751898213290630, +0.61474320932464188E-1), (+1.8114282431499211, +0.10592405479714018), (+1.3331353770285250, +0.37278861548720976), (+1.7919284151806627, +0.73444806057215062), (+1.1707422298310037, +0.45779497766681987), (+1.9846762179480015, +0.96044569750249553), (+1.9910790928815820, +0.33005359780928345), (+1.0094760522198056, +0.31905757817562863), (+1.7663656436333359, +0.95462473266122194), (+1.4548022215659231, +0.49131747239996371), (+1.3573445391076988, +0.25216341424128563), (+1.9547235236374596, +0.92299225563361209), (+1.2760676119670658, +0.48156992359684525), (+1.5141087418727586, +0.66265826405903205), (+1.9018292367276399, +0.96947669590813779), (+1.9671570274926000, +0.56378404510126234), (+1.3681026665017391, +0.13394732765315487), (+1.6524443368040451, +0.45020932776356770), (+1.0722855751721929, +0.17783306154289547), (+1.3831370324487031, +0.13500827799728865), (+1.7479046807746754, +0.35060756941532056), (+1.1502742369793286, +0.47861881741668078), (+1.4133869058613240, +0.31744455433690255), (+1.9829656521119472, +0.91963803896831786E-1), (+1.5385850268592189, +0.91837006153588119), (+1.2229894983070171, +0.93427366611589158), (+1.8777347565445748, +0.50026992864523168), (+1.4519162410221220, +0.43992964978176707), (+1.0193274639167951, +0.59356618469169042), (+1.2047809299948096, +0.66675476801064670E-1), (+1.7234783335870663, +0.42441297289684199), (+1.1576886142852447, +0.59679140692484844)
432
433adat = getFFTI(getFFTF(data))
434adat
435(+1.9207955075810021, +0.42851704399919605), (+1.2215113718434893, +0.62848640694613245), (+1.0216265493736347, +0.53048245505783309), (+1.3151548955428209, +0.59082514349309445), (+1.3908452383790764, +0.50605139771290264), (+1.2464460344727832, +0.10395377681604667), (+1.3011690424520268, +0.73429046307397317), (+1.6648470787106227, +0.71382229048000367), (+1.1525752490894350, +0.48668324212669473), (+1.9206380939846157, +0.75278143844799017), (+1.9998704059113948, +0.71815265520554739), (+1.9139165476646205, +0.18472222100118793), (+1.2128602381390048, +0.42745839693598453), (+1.2240391205345647, +0.34978631641235719), (+1.3334170859335253, +0.84122393723677014), (+1.9790490333754376, +0.40724016833188575), (+1.4189641819948644, +0.37501506220183806), (+1.8738847560039187, +0.51548401239902464), (+1.8000213543880139, +0.31100610592374706), (+1.2255963754548016, +0.58822334441778079), (+1.9484927873702440, +0.37978512858879393), (+1.9852545398885271, +0.99653229562596146), (+1.3279709805523898, +0.89449702419689803), (+1.3388707580640224, +0.20952009957802875), (+1.0096849084530064, +0.86567777462288953), (+1.4879631648896008, +0.93528056812849059), (+1.6097102558967418, +0.41730509145134020), (+1.5914961062929958, +0.98547064971741960), (+1.0637832103171012, +0.80715903533166725E-1), (+1.0335888288934496, +0.21829117933208669E-1), (+1.7979704078614842, +0.95614288029658170E-1), (+1.4819512639604473, +0.46415158036999188), (+1.3324896329014562, +0.37374408895629907), (+1.9530391288576321, +0.86817594700160539), (+1.6361834545708058, +0.19708760693640995), (+1.6229779619479536, +0.16229764036589558), (+1.2210502276694306, +0.29135598347834568), (+1.4859702334169433, +0.53316102852751834), (+1.3965487256097158, +0.54987213898993548), (+1.1863045942329924, +0.55521982292363992), (+1.8153821621870594, +0.20225589195287419), (+1.3343204165345000, +0.80729922907036256), (+1.2423956271657017, +0.98386022442694565), (+1.6593919552146414, +0.50481961971564815), (+1.2326225611405217, +0.21351772948748163), (+1.3883567596223754, +0.84119698850028524), (+1.4823819102750846, +0.76848316968217056), (+1.9557529521685428, +0.93312665040888632), (+1.0720057120012541, +0.86115020432451572), (+1.5459954521032329, +0.98745642851310966), (+1.1751898213290624, +0.61474320932464431E-1), (+1.8114282431499202, +0.10592405479714040), (+1.3331353770285248, +0.37278861548720987), (+1.7919284151806627, +0.73444806057215062), (+1.1707422298310037, +0.45779497766682020), (+1.9846762179480009, +0.96044569750249587), (+1.9910790928815827, +0.33005359780928378), (+1.0094760522198067, +0.31905757817562841), (+1.7663656436333366, +0.95462473266122227), (+1.4548022215659231, +0.49131747239996387), (+1.3573445391076984, +0.25216341424128613), (+1.9547235236374596, +0.92299225563361231), (+1.2760676119670658, +0.48156992359684564), (+1.5141087418727590, +0.66265826405903250), (+1.9018292367276408, +0.96947669590813823), (+1.9671570274926009, +0.56378404510126257), (+1.3681026665017388, +0.13394732765315515), (+1.6524443368040458, +0.45020932776356792), (+1.0722855751721931, +0.17783306154289538), (+1.3831370324487033, +0.13500827799728873), (+1.7479046807746761, +0.35060756941532106), (+1.1502742369793282, +0.47861881741668100), (+1.4133869058613238, +0.31744455433690261), (+1.9829656521119470, +0.91963803896832064E-1), (+1.5385850268592185, +0.91837006153588152), (+1.2229894983070166, +0.93427366611589113), (+1.8777347565445743, +0.50026992864523201), (+1.4519162410221227, +0.43992964978176746), (+1.0193274639167942, +0.59356618469169053), (+1.2047809299948096, +0.66675476801065073E-1), (+1.7234783335870656, +0.42441297289684199), (+1.1576886142852445, +0.59679140692484822)
436reltol = sqrt(epsilon(1._TKG))
437reltol
438+0.14901161193847656E-7
439isClose(data, adat, reltol = reltol)
440T, 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, T, T, T, T, T
441call setAsserted(all(isClose(data, adat, reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+17
446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
447data
448(+1.83870460452520516179147049125938399, +0.847424002850135050753982698665213915), (+1.64394320728804797801289222556023161, +0.726220027740655367492548648672422639), (+1.38671080724030720309746820702330070, +0.379271859433002079731268060386788787), (+1.75262718075968033735773950869451835, +0.119366336154727887819979920781755286), (+1.61012607620160547863444711256531178, +0.669246917322523772014013892275934125), (+1.12605833337871345818929572002371059, +0.616121477954657615989727016841357910), (+1.25746816353343195199922930425411307, +0.426010119148863020500391778831380047), (+1.64277440497484286627590260582149274, +0.599883737526202785076330095456555163), (+1.38130129222178921897247609895124754, +0.999883839649827072455773320793831291), (+1.02020558762239709407631062836597723, +0.422308723853513759914126158063704681), (+1.70061566507505116128410027072503553, +0.992605252469486369933306620609407085), (+1.91520842230522921003125248142727010, +0.139270027135018955097191987979866208), (+1.51567708809007608459230927624785498, +0.899135451967049935086277326275496224), (+1.41978671217887874036450349466398837, +0.284821825036611475614384502176786185), (+1.24432986323996599893088940238620903, +0.987230757882623391866144954374740536), (+1.46489877382191044613938224669852424, +0.626891408052754058255756691074835012), (+1.61454557778430422940488419455925714, +0.675725217867089978027162578864977650)
449
450adat = getFFTI(getFFTF(data))
451adat
452(+1.83870460452520516179147049125938418, +0.847424002850135050753982698665214108), (+1.64394320728804797801289222556023122, +0.726220027740655367492548648672422639), (+1.38671080724030720309746820702330050, +0.379271859433002079731268060386788787), (+1.75262718075968033735773950869451816, +0.119366336154727887819979920781755310), (+1.61012607620160547863444711256531217, +0.669246917322523772014013892275934125), (+1.12605833337871345818929572002371002, +0.616121477954657615989727016841357814), (+1.25746816353343195199922930425411307, +0.426010119148863020500391778831380144), (+1.64277440497484286627590260582149274, +0.599883737526202785076330095456555259), (+1.38130129222178921897247609895124715, +0.999883839649827072455773320793831387), (+1.02020558762239709407631062836597704, +0.422308723853513759914126158063704777), (+1.70061566507505116128410027072503553, +0.992605252469486369933306620609407085), (+1.91520842230522921003125248142727010, +0.139270027135018955097191987979866232), (+1.51567708809007608459230927624785440, +0.899135451967049935086277326275496224), (+1.41978671217887874036450349466398857, +0.284821825036611475614384502176786330), (+1.24432986323996599893088940238620903, +0.987230757882623391866144954374740439), (+1.46489877382191044613938224669852405, +0.626891408052754058255756691074834915), (+1.61454557778430422940488419455925676, +0.675725217867089978027162578864977554)
453reltol = sqrt(epsilon(1._TKG))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, adat, reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, adat, reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+48
463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
464data
465+1.78852654, +1.70794892, +1.46242857, +1.81873631, +1.02912855, +1.17756093, +1.21332240, +1.83772397, +1.52344966, +1.70307302, +1.64408207, +1.31132674, +1.69439530, +1.55925238, +1.78819847, +1.91763568, +1.65134215, +1.39733028, +1.85554326, +1.24501395, +1.53973091, +1.36456561, +1.65224981, +1.95337594, +1.02797580, +1.84615374, +1.47544146, +1.91196144, +1.52108026, +1.87121058, +1.60860825, +1.49132097, +1.95800996, +1.75532699, +1.37844467, +1.70000887, +1.53067672, +1.89365935, +1.93113232, +1.57307768, +1.38568044, +1.75794339, +1.42886901, +1.70099962, +1.33655250, +1.39331079, +1.20534325, +1.69064689
466
467adat = getFFTI(getFFTF(data))
468adat
469+1.78852677, +1.70794868, +1.46242845, +1.81873643, +1.02912855, +1.17756081, +1.21332216, +1.83772409, +1.52344990, +1.70307279, +1.64408207, +1.31132674, +1.69439530, +1.55925226, +1.78819835, +1.91763580, +1.65134239, +1.39733016, +1.85554302, +1.24501419, +1.53973091, +1.36456537, +1.65224969, +1.95337605, +1.02797604, +1.84615362, +1.47544134, +1.91196156, +1.52108002, +1.87121058, +1.60860813, +1.49132109, +1.95801008, +1.75532675, +1.37844455, +1.70000911, +1.53067672, +1.89365911, +1.93113208, +1.57307768, +1.38568068, +1.75794315, +1.42886901, +1.70099962, +1.33655238, +1.39331079, +1.20534313, +1.69064701
470reltol = sqrt(epsilon(1._TKG))
471reltol
472+0.345266977E-3
473isClose(data, adat, reltol = reltol)
474T, 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
475call setAsserted(all(isClose(data, adat, reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+19
480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
481data
482+1.6437093994820267, +1.7204340920738963, +1.5417478727904808, +1.5535575160549606, +1.6884589279383486, +1.2413749632527984, +1.5615752690338125, +1.3175323401383490, +1.3049030325197228, +1.8282001767960867, +1.8364678827771808, +1.6866163436975756, +1.6345675153544637, +1.1625062927166350, +1.6248971627454276, +1.9867544128006416, +1.1666584688341084, +1.9995260490527063, +1.5861769575928075
483
484adat = getFFTI(getFFTF(data))
485adat
486+1.6437093994820273, +1.7204340920738961, +1.5417478727904812, +1.5535575160549606, +1.6884589279383486, +1.2413749632527988, +1.5615752690338127, +1.3175323401383492, +1.3049030325197251, +1.8282001767960818, +1.8364678827771757, +1.6866163436975770, +1.6345675153544630, +1.1625062927166367, +1.6248971627454272, +1.9867544128006409, +1.1666584688341093, +1.9995260490527058, +1.5861769575928075
487reltol = sqrt(epsilon(1._TKG))
488reltol
489+0.14901161193847656E-7
490isClose(data, adat, reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, adat, reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+97
497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
498data
499+1.02037371079692724089090146965871319, +1.27634050936485559221959147144321523, +1.24451247276497308071882917113615832, +1.13364697752773125966736174496837441, +1.83728964751196399479841125577033800, +1.18895735304130707320440869051886721, +1.77466361283387476125254652448217398, +1.32755204285270918388798121213622362, +1.53376249448755302217096616143413697, +1.87621578163058932581158701180976407, +1.61081284028455555396422971781302176, +1.94052725626906468054370252688480942, +1.57146681181296875174997147724771722, +1.96383549541010128732551818868381046, +1.09647023359138849575593861478882541, +1.79615427298207253716890712008274929, +1.69508515685707582504806957107039383, +1.62495811441204184201433768079374750, +1.81094361251282822401721068565428493, +1.02123155057080604724857963272471310, +1.77926056926041289926213376491434547, +1.88206427624834214419124253663230662, +1.05668599398632903640353128200811968, +1.54769152367220942774769527473493241, +1.32075568706489110086602020595254400, +1.70296503051256155191237963460630788, +1.03447913371571582119651945041553772, +1.16016409362953169536842131749247826, +1.93211434701571483838525661023044079, +1.26135944906940329859642874840718539, +1.91082006641945802439601394982223399, +1.65091948350471432979481919836000839, +1.71985381474448217901814123117750548, +1.22507038856952884185439657618298627, +1.31561397416135651403501882727257624, +1.69525207823130463188025549757428289, +1.28576512855980209604547719921403258, +1.74640327957490311053255910990863698, +1.45202524127237823717885311149714924, +1.44753139720831624591213392395041028, +1.71841639007681885498763563308982186, +1.60707778952956309667281813186501031, +1.79427058056252366465431553806401291, +1.64919667392932495437940183911477425, +1.10399287587796822735728121445187319, +1.66662763792784761257865338825818141, +1.30120472288483928082944523705512957, +1.99851196533975700250364973422390869, +1.46065261762979968649556531191723360, +1.90525790091242225588357799647242522, +1.90720197137306222728206443640438181, +1.09055532731713511823565544828538623, +1.21280682418730119611338234275038734, +1.43852239950735081053061445556682268, +1.33800881796500592542510738468566865, +1.78263481514677906164471860406660703, +1.97791286094972240709231806967647019, +1.00902595299341216568892882978784202, +1.58701437319969556731926064624654585, +1.10189436266104124434021294076938000, +1.20047976356153721136930979828151520, +1.35479540131244154244461949871497520, +1.40343001865361230583849255205873059, +1.53990619888791092834009814909343334, +1.38616034271306368516555873348164388, +1.05153737406786049231189042499073778, +1.40326789410567568490550106660783399, +1.65449811238748024712064704852413475, +1.44411282695033444594694826216714867, +1.44521768255997597588472012162208267, +1.54620651657868956313621841961025965, +1.96888560284740435373702193458397710, +1.18256190566250669153488192450169230, +1.51875581270322127364438469976557921, +1.39281218625809871416776028021108992, +1.11083637597063548635572961632033562, +1.85188815101367031847648973216575506, +1.48903380394761659862750172258450568, +1.15124447237242104410001236262628234, +1.66445507380698845308752951545795939, +1.17827515293625472463162643273346693, +1.68950001370128188768499854407755202, +1.07836340652894533296991723711193197, +1.03603008188894955670814423915247693, +1.80802891413654316828517724752059034, +1.72322040370373118292082627110395102, +1.01287509091158911136840765212841027, +1.97682239532155604211546912619555594, +1.18106507889159685141665494779830822, +1.28566678001029558891825071296063238, +1.56351165851292233144008449968557022, +1.61914371016994238736402652454957267, +1.07085321503599533121326321846479958, +1.74656146098936044019533643138454445, +1.41125215418104364244816162604703042, +1.86843558709211091686859945511099857, +1.70550434202697760957824712980010884
500
501adat = getFFTI(getFFTF(data))
502adat
503+1.02037371079692724089090146965871704, +1.27634050936485559221959147144321832, +1.24451247276497308071882917113615928, +1.13364697752773125966736174496837845, +1.83728964751196399479841125577033473, +1.18895735304130707320440869051887453, +1.77466361283387476125254652448216955, +1.32755204285270918388798121213622882, +1.53376249448755302217096616143413832, +1.87621578163058932581158701180975714, +1.61081284028455555396422971781302715, +1.94052725626906468054370252688479864, +1.57146681181296875174997147724772608, +1.96383549541010128732551818868379313, +1.09647023359138849575593861478884755, +1.79615427298207253716890712008273850, +1.69508515685707582504806957107039075, +1.62495811441204184201433768079375038, +1.81094361251282822401721068565426990, +1.02123155057080604724857963272474083, +1.77926056926041289926213376491433353, +1.88206427624834214419124253663228582, +1.05668599398632903640353128200814683, +1.54769152367220942774769527473491951, +1.32075568706489110086602020595255690, +1.70296503051256155191237963460628457, +1.03447913371571582119651945041555967, +1.16016409362953169536842131749249636, +1.93211434701571483838525661023040497, +1.26135944906940329859642874840721370, +1.91082006641945802439601394982220664, +1.65091948350471432979481919836001321, +1.71985381474448217901814123117748718, +1.22507038856952884185439657618300669, +1.31561397416135651403501882727258741, +1.69525207823130463188025549757426074, +1.28576512855980209604547719921405723, +1.74640327957490311053255910990861367, +1.45202524127237823717885311149715695, +1.44753139720831624591213392395041798, +1.71841639007681885498763563308980626, +1.60707778952956309667281813186501551, +1.79427058056252366465431553806399616, +1.64919667392932495437940183911475768, +1.10399287587796822735728121445191961, +1.66662763792784761257865338825814713, +1.30120472288483928082944523705516693, +1.99851196533975700250364973422385746, +1.46065261762979968649556531191726730, +1.90525790091242225588357799647239633, +1.90720197137306222728206443640434810, +1.09055532731713511823565544828542186, +1.21280682418730119611338234275039620, +1.43852239950735081053061445556681748, +1.33800881796500592542510738468568444, +1.78263481514677906164471860406659104, +1.97791286094972240709231806967642166, +1.00902595299341216568892882978789151, +1.58701437319969556731926064624651330, +1.10189436266104124434021294076940234, +1.20047976356153721136930979828152213, +1.35479540131244154244461949871497520, +1.40343001865361230583849255205873059, +1.53990619888791092834009814909342352, +1.38616034271306368516555873348164118, +1.05153737406786049231189042499075762, +1.40326789410567568490550106660783283, +1.65449811238748024712064704852412165, +1.44411282695033444594694826216715252, +1.44521768255997597588472012162208287, +1.54620651657868956313621841961026369, +1.96888560284740435373702193458394551, +1.18256190566250669153488192450171580, +1.51875581270322127364438469976556958, +1.39281218625809871416776028021109031, +1.11083637597063548635572961632035488, +1.85188815101367031847648973216573272, +1.48903380394761659862750172258450588, +1.15124447237242104410001236262629697, +1.66445507380698845308752951545794495, +1.17827515293625472463162643273348234, +1.68950001370128188768499854407753411, +1.07836340652894533296991723711194526, +1.03603008188894955670814423915248713, +1.80802891413654316828517724752057840, +1.72322040370373118292082627110394274, +1.01287509091158911136840765212842722, +1.97682239532155604211546912619553687, +1.18106507889159685141665494779831785, +1.28566678001029558891825071296063199, +1.56351165851292233144008449968556868, +1.61914371016994238736402652454957075, +1.07085321503599533121326321846480670, +1.74656146098936044019533643138454253, +1.41125215418104364244816162604703331, +1.86843558709211091686859945511099703, +1.70550434202697760957824712980011153
504reltol = sqrt(epsilon(1._TKG))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, adat, reltol = reltol)
508T, 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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, adat, reltol = reltol)))
510
511
Test:
test_pm_fftpack


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright
Computational Data Science Lab
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file: