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

Detailed Description

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

See the documentation of setFFTR for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
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: getFFTR

fft = getFFTR(data(:))

pm_fftpack::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftpack.F90:1156

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, getFFTR

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 = getFFTR(getFFTF(data)) / size(data)")

33 adat = getFFTR(getFFTF(data)) / size(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 = getFFTR(getFFTF(data)) / size(data)")

61 adat = getFFTR(getFFTF(data)) / size(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 = getFFTR(getFFTF(data)) / size(data)")

89 adat = getFFTR(getFFTF(data)) / size(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 = getFFTR(getFFTF(data)) / size(data)")

117 adat = getFFTR(getFFTF(data)) / size(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 = getFFTR(getFFTF(data)) / size(data)")

145 adat = getFFTR(getFFTF(data)) / size(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 = getFFTR(getFFTF(data)) / size(data)")

173 adat = getFFTR(getFFTF(data)) / size(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+48

4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

5data

6(+1.83719468, +0.935649991), (+1.91284013, +0.693424225), (+1.18567133, +0.746827245), (+1.35168576, +0.361450493), (+1.92244661, +0.412725270), (+1.52726150, +0.636518240), (+1.40996027, +0.251710951), (+1.34755850, +0.918309093), (+1.86492240, +0.658204675), (+1.52131677, +0.812076211), (+1.23281848, +0.518088818), (+1.40212297, +0.357622266), (+1.16836834, +0.372808754), (+1.40701663, +0.518859386), (+1.25343227, +0.934510648), (+1.50160182, +0.482045829), (+1.98324132, +0.539687574), (+1.49129295, +0.561405540), (+1.53848577, +0.901723921), (+1.58410406, +0.444841504), (+1.55019867, +0.116710663), (+1.48429799, +0.412141085E-1), (+1.61867237, +0.244556665E-1), (+1.19456995, +0.119547963), (+1.93225455, +0.357810616), (+1.63091159, +0.669239998), (+1.53193498, +0.130191445E-1), (+1.67407727, +0.304346979), (+1.52108908, +0.371732175), (+1.28778732, +0.260682940), (+1.37766469, +0.407529831), (+1.75715876, +0.401259184), (+1.67933440, +0.658601105), (+1.42944229, +0.917047322), (+1.97725093, +0.316229701), (+1.12960064, +0.792021751), (+1.43669391, +0.855375230), (+1.24489641, +0.151778340), (+1.29138303, +0.802504659), (+1.43518138, +0.631146967), (+1.01441240, +0.584574103), (+1.92844939, +0.763677120), (+1.45020056, +0.283448279), (+1.80106163, +0.603923500), (+1.92349029, +0.532629251), (+1.60244882, +0.909925342), (+1.01910830, +0.127346635), (+1.52612162, +0.247730434)

7

8adat = getFFTR(getFFTF(data)) / size(data)

9adat

10(+1.83719480, +0.935649931), (+1.91283989, +0.693424225), (+1.18567169, +0.746827126), (+1.35168564, +0.361450464), (+1.92244673, +0.412725210), (+1.52726173, +0.636518240), (+1.40996039, +0.251710892), (+1.34755850, +0.918308973), (+1.86492252, +0.658204615), (+1.52131665, +0.812076092), (+1.23281848, +0.518088758), (+1.40212309, +0.357622236), (+1.16836834, +0.372808695), (+1.40701640, +0.518859386), (+1.25343251, +0.934510708), (+1.50160182, +0.482045799), (+1.98324120, +0.539687574), (+1.49129295, +0.561405480), (+1.53848565, +0.901723921), (+1.58410394, +0.444841474), (+1.55019903, +0.116710745), (+1.48429775, +0.412140675E-1), (+1.61867237, +0.244556069E-1), (+1.19456995, +0.119547941), (+1.93225443, +0.357810497), (+1.63091147, +0.669239998), (+1.53193521, +0.130191250E-1), (+1.67407715, +0.304346949), (+1.52108908, +0.371732086), (+1.28778744, +0.260682911), (+1.37766457, +0.407529712), (+1.75715876, +0.401259094), (+1.67933428, +0.658601046), (+1.42944193, +0.917047203), (+1.97725093, +0.316229731), (+1.12960064, +0.792021692), (+1.43669415, +0.855375111), (+1.24489629, +0.151778296), (+1.29138339, +0.802504718), (+1.43518126, +0.631146908), (+1.01441240, +0.584574044), (+1.92844927, +0.763677061), (+1.45020056, +0.283448309), (+1.80106163, +0.603923500), (+1.92349041, +0.532629251), (+1.60244846, +0.909925222), (+1.01910818, +0.127346620), (+1.52612174, +0.247730434)

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

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+70

21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

22data

23(+1.2360094187627975, +0.90207047826160869), (+1.6298367256694051, +0.10831547838226552), (+1.1925873396561848, +0.34692228965798866), (+1.8951872765072981, +0.17775735270182402), (+1.1503001648322000, +0.33023477853845884), (+1.9603313828217275, +0.88668209125627417), (+1.2220372005316231, +0.60683075455547164), (+1.1401134957896069, +0.56395667296367347), (+1.8566113511732676, +0.67696697639286152), (+1.3370460972707479, +0.13773194133469346), (+1.6421686370928867, +0.38045712294554013), (+1.8781698281231596, +0.45255426233933937), (+1.6482259565757507, +0.15162287574519429), (+1.2508082434121393, +0.93387360182862533), (+1.5591507918177880, +0.29253871876032944), (+1.9976189172840024, +0.77571416065278354), (+1.8371982603748016, +0.93537905181654735), (+1.2225351648905529, +0.37192744982654524), (+1.8416601773409544, +0.16537574037969072E-1), (+1.7569704226570071, +0.12668361836656783), (+1.2436688272470326, +0.99918387588259661), (+1.1864181378025900, +0.85838038192957344), (+1.9711099220244743, +0.79471681096649316), (+1.9256537153205653, +0.94919708056027852), (+1.0442041485368299, +0.59238730321306410), (+1.5579027283152582, +0.86804254678064230), (+1.9424541234910175, +0.28965051571493383), (+1.8113023419374883, +0.30904936446805897), (+1.2343847307587519, +0.19519088989388289), (+1.6492093613160899, +0.30992951458656315), (+1.4787062511213569, +0.86854060378480069), (+1.4297452236666119, +0.98926368522474961), (+1.7593322080858220, +0.74453125752721727), (+1.8524684792070247, +0.92192221731491220), (+1.1976860936689553, +0.30588821185244386), (+1.1701714392973404, +0.20687890613119253), (+1.6467418816354864, +0.93522425721708780), (+1.6129810918728920, +0.16936292169649092E-1), (+1.0075107828901391, +0.32389017707337375), (+1.7140003982047793, +0.18754920539232933), (+1.0575665640166538, +0.25969441400007864), (+1.6589841295247838, +0.87330691774044289E-1), (+1.2737120112715155, +0.99341544301864437), (+1.4801851043003533, +0.75405780828744051), (+1.4976977108306202, +0.92635913943949499), (+1.6282444813815649, +0.91942960078089597), (+1.5325095698665905, +0.46716399150548638), (+1.4307844472534117, +0.53744747937147463), (+1.3352788764865866, +0.36248729841836669), (+1.2644029931063816, +0.86913027539772436), (+1.5193922105172533, +0.28161677743989699E-1), (+1.3638233168357141, +0.13555368882890995), (+1.5965876667148891, +0.31544585865517427), (+1.6652518963922747, +0.42658891713519098), (+1.4422161891123821, +0.23908017173551444), (+1.3065525800110740, +0.78351117226175182), (+1.0779701029170856, +0.49450517552773576), (+1.5089039685890668, +0.17860747640016184), (+1.8091439993405674, +0.12148777096272134), (+1.7699213377698508, +0.99479679291170076E-3), (+1.3674726911183404, +0.82046644654730572), (+1.5779079175426645, +0.94526781180627584), (+1.4321390682700843, +0.64098863671789108), (+1.5365512046613283, +0.95759365386161033E-1), (+1.1255285102911075, +0.79220724576424129), (+1.5857615248097803, +0.52640719829526383), (+1.1290689390127211, +0.74045172020557048), (+1.0989164695946885, +0.57215190485885736), (+1.2788747194516881, +0.61292663984399198), (+1.0104969304618232, +0.27715937872550456)

24

25adat = getFFTR(getFFTF(data)) / size(data)

26adat

27(+1.2360094187627981, +0.90207047826160847), (+1.6298367256694053, +0.10831547838226574), (+1.1925873396561852, +0.34692228965798894), (+1.8951872765072981, +0.17775735270182405), (+1.1503001648321995, +0.33023477853845884), (+1.9603313828217275, +0.88668209125627406), (+1.2220372005316236, +0.60683075455547208), (+1.1401134957896066, +0.56395667296367336), (+1.8566113511732676, +0.67696697639286152), (+1.3370460972707476, +0.13773194133469349), (+1.6421686370928863, +0.38045712294554029), (+1.8781698281231591, +0.45255426233933937), (+1.6482259565757507, +0.15162287574519420), (+1.2508082434121393, +0.93387360182862555), (+1.5591507918177880, +0.29253871876032944), (+1.9976189172840024, +0.77571416065278342), (+1.8371982603748016, +0.93537905181654757), (+1.2225351648905527, +0.37192744982654530), (+1.8416601773409538, +0.16537574037969044E-1), (+1.7569704226570064, +0.12668361836656769), (+1.2436688272470331, +0.99918387588259672), (+1.1864181378025900, +0.85838038192957367), (+1.9711099220244745, +0.79471681096649327), (+1.9256537153205651, +0.94919708056027863), (+1.0442041485368296, +0.59238730321306399), (+1.5579027283152580, +0.86804254678064230), (+1.9424541234910171, +0.28965051571493383), (+1.8113023419374885, +0.30904936446805903), (+1.2343847307587514, +0.19519088989388281), (+1.6492093613160896, +0.30992951458656320), (+1.4787062511213569, +0.86854060378480091), (+1.4297452236666115, +0.98926368522474961), (+1.7593322080858218, +0.74453125752721716), (+1.8524684792070243, +0.92192221731491220), (+1.1976860936689551, +0.30588821185244375), (+1.1701714392973410, +0.20687890613119292), (+1.6467418816354866, +0.93522425721708824), (+1.6129810918728922, +0.16936292169649189E-1), (+1.0075107828901391, +0.32389017707337381), (+1.7140003982047793, +0.18754920539232925), (+1.0575665640166543, +0.25969441400007864), (+1.6589841295247840, +0.87330691774044358E-1), (+1.2737120112715152, +0.99341544301864448), (+1.4801851043003531, +0.75405780828744051), (+1.4976977108306204, +0.92635913943949522), (+1.6282444813815649, +0.91942960078089619), (+1.5325095698665903, +0.46716399150548621), (+1.4307844472534115, +0.53744747937147452), (+1.3352788764865864, +0.36248729841836685), (+1.2644029931063816, +0.86913027539772414), (+1.5193922105172539, +0.28161677743989852E-1), (+1.3638233168357143, +0.13555368882890992), (+1.5965876667148888, +0.31544585865517433), (+1.6652518963922742, +0.42658891713519076), (+1.4422161891123815, +0.23908017173551435), (+1.3065525800110744, +0.78351117226175193), (+1.0779701029170856, +0.49450517552773587), (+1.5089039685890671, +0.17860747640016192), (+1.8091439993405669, +0.12148777096272144), (+1.7699213377698506, +0.99479679291147546E-3), (+1.3674726911183401, +0.82046644654730549), (+1.5779079175426640, +0.94526781180627595), (+1.4321390682700843, +0.64098863671789130), (+1.5365512046613283, +0.95759365386160963E-1), (+1.1255285102911072, +0.79220724576424129), (+1.5857615248097805, +0.52640719829526395), (+1.1290689390127209, +0.74045172020557060), (+1.0989164695946878, +0.57215190485885736), (+1.2788747194516878, +0.61292663984399187), (+1.0104969304618230, +0.27715937872550450)

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

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+26

38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

39data

40(+1.00073895421167402399956479097318763, +0.167280995271012770829856199766284415), (+1.40845787616605490673777408648228726, +0.160128684268632851574963072403195687), (+1.86328173430520035306355060190861215, +0.741951508602736771736390848348397592E-1), (+1.10837806368356350463512485493971441, +0.856825662052900780481589986583962407E-1), (+1.32991441796581519389871149328124386, +0.425514826248847255179387756551222001), (+1.84782377954847948695394615323731029, +0.654507350788667171708940701777273633), (+1.78601988922527162657058312734603977, +0.784809908664298538714001613682548167), (+1.67549282496231914935447276790029759, +0.406270693158230735347493034692256836), (+1.67317869846473658859260002014532915, +0.835698341495408411153267221569167637), (+1.14905513760915209051325163133705439, +0.461666239860066384199935134419478608), (+1.04649291572862307702837701213260908, +0.276607862519708296543618814384704239), (+1.23797560445448016394645937749133656, +0.371307447873029583795360631420488150), (+1.84968179094869061508101227727148566, +0.422132849742281527421126611558115327), (+1.80379965672510956574038742093116003, +0.521249737123956691654400512395165822), (+1.73401260300158583022545890949868880, +0.126029267150784124531981396489632965), (+1.80472309388525486687718503520061833, +0.980297513160456643545699979883007157), (+1.62977332536869075851325131419246934, +0.848646283254949587037093291437902657), (+1.89249538951155685564325411704692392, +0.928352190522537745883152969842582537), (+1.50389913750481936581617569166168530, +0.541155425005029167353532805725075338), (+1.57213374603348766319952469692420068, +0.517867314243025988449938026722358682), (+1.54036768628399370352607469433919164, +0.394818345752598999361655233445968830), (+1.79045622379217154959888539595229092, +0.892546474483604789323950550330297271), (+1.38061665330217334699116611678552659, +0.580637927225271060827091526293064152E-1), (+1.04284336687140448086180112782080873, +0.231151790155295093802588484776162740), (+1.36063176687238983181302144924382491, +0.248642413882618372376904281473283144), (+1.09180968396671301675806658477361015, +0.924125353986254308620397806170795978)

41

42adat = getFFTR(getFFTF(data)) / size(data)

43adat

44(+1.00073895421167402399956479097318686, +0.167280995271012770829856199766284223), (+1.40845787616605490673777408648228822, +0.160128684268632851574963072403195807), (+1.86328173430520035306355060190861215, +0.741951508602736771736390848348398675E-1), (+1.10837806368356350463512485493971461, +0.856825662052900780481589986583964574E-1), (+1.32991441796581519389871149328124425, +0.425514826248847255179387756551221905), (+1.84782377954847948695394615323731087, +0.654507350788667171708940701777273825), (+1.78601988922527162657058312734603919, +0.784809908664298538714001613682547974), (+1.67549282496231914935447276790029721, +0.406270693158230735347493034692256499), (+1.67317869846473658859260002014533011, +0.835698341495408411153267221569167637), (+1.14905513760915209051325163133705439, +0.461666239860066384199935134419478656), (+1.04649291572862307702837701213260928, +0.276607862519708296543618814384704480), (+1.23797560445448016394645937749133695, +0.371307447873029583795360631420488198), (+1.84968179094869061508101227727148605, +0.422132849742281527421126611558115616), (+1.80379965672510956574038742093115887, +0.521249737123956691654400512395165630), (+1.73401260300158583022545890949868957, +0.126029267150784124531981396489633278), (+1.80472309388525486687718503520061833, +0.980297513160456643545699979883007543), (+1.62977332536869075851325131419246934, +0.848646283254949587037093291437902849), (+1.89249538951155685564325411704692411, +0.928352190522537745883152969842582537), (+1.50389913750481936581617569166168607, +0.541155425005029167353532805725075145), (+1.57213374603348766319952469692419991, +0.517867314243025988449938026722358489), (+1.54036768628399370352607469433919087, +0.394818345752598999361655233445968733), (+1.79045622379217154959888539595229188, +0.892546474483604789323950550330297464), (+1.38061665330217334699116611678552659, +0.580637927225271060827091526293064272E-1), (+1.04284336687140448086180112782080892, +0.231151790155295093802588484776163005), (+1.36063176687238983181302144924382491, +0.248642413882618372376904281473283119), (+1.09180968396671301675806658477361092, +0.924125353986254308620397806170796267)

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

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+58

55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

56data

57+1.96858478, +1.00004077, +1.77630460, +1.63580215, +1.50905824, +1.27244115, +1.32288432, +1.43930817, +1.72195244, +1.04336119, +1.47769487, +1.77794600, +1.75463486, +1.84996319, +1.71346784, +1.53105855, +1.65452862, +1.41523874, +1.65859306, +1.61526322, +1.91727948, +1.34336758, +1.81996894, +1.42398751, +1.02179790, +1.41331315, +1.97655749, +1.20782089, +1.13489556, +1.00318480, +1.87424088, +1.32062125, +1.51965368, +1.77511263, +1.80157018, +1.26825070, +1.08352947, +1.05774331, +1.05781174, +1.03337574, +1.71836662, +1.92444253, +1.78094125, +1.89121652, +1.24754024, +1.16722488, +1.75170469, +1.90654421, +1.84048557, +1.00795770, +1.19734788, +1.74239135, +1.02156353, +1.26242733, +1.47907662, +1.12866604, +1.44846904, +1.85045934

58

59adat = getFFTR(getFFTF(data)) / size(data)

60adat

61+1.96858525, +1.00004113, +1.77630365, +1.63580203, +1.50905848, +1.27244103, +1.32288408, +1.43930805, +1.72195256, +1.04336143, +1.47769439, +1.77794576, +1.75463474, +1.84996283, +1.71346748, +1.53105843, +1.65452886, +1.41523874, +1.65859258, +1.61526263, +1.91727948, +1.34336817, +1.81996751, +1.42398703, +1.02180016, +1.41331327, +1.97655439, +1.20782053, +1.13489997, +1.00318694, +1.87424088, +1.32062256, +1.51965356, +1.77511179, +1.80156922, +1.26825106, +1.08352959, +1.05774331, +1.05781233, +1.03337657, +1.71836579, +1.92444181, +1.78094113, +1.89121592, +1.24754035, +1.16722560, +1.75170445, +1.90654349, +1.84048498, +1.00795782, +1.19734824, +1.74239099, +1.02156353, +1.26242757, +1.47907650, +1.12866616, +1.44846833, +1.85045922

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

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+74

72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

73data

74+1.3127765798938724, +1.9563111196425986, +1.6114824276946060, +1.8216798025943421, +1.7528653752518402, +1.4455604044319903, +1.5638557141048259, +1.9005156127101270, +1.7499937765047646, +1.6666055044977910, +1.2801483012988271, +1.6296905046139507, +1.1033469079375176, +1.1502330673765280, +1.3700455631750503, +1.5115024658837619, +1.0044231777948234, +1.9769118923571782, +1.0299816911533617, +1.6279496668507252, +1.2671146745758599, +1.7497182506564239, +1.7212451424180188, +1.0709235726733959, +1.4426193207455800, +1.1789549590518540, +1.1079012790434906, +1.6579241290897051, +1.0847302389663525, +1.5069912313775766, +1.9233457850217501, +1.7917330994469585, +1.4514664605739109, +1.9304534266175346, +1.6871334592452172, +1.7934162967305971, +1.9102007102742495, +1.1314981906530033, +1.8099249183975505, +1.8500455653660617, +1.7883598726267222, +1.7819600518269827, +1.1252962923844385, +1.8354188593045653, +1.8230220303209963, +1.5318687239172299, +1.7311325360647818, +1.9289951490217960, +1.4669188078610866, +1.5181497104179180, +1.0119457205268207, +1.7038967601454056, +1.1833754480091963, +1.5227367652837973, +1.0209614276862031, +1.7034743142219204, +1.9252519952360481, +1.1130540201078913, +1.8505227593828490, +1.1899979227179267, +1.2890317853313160, +1.9921173928408358, +1.3281632216066348, +1.9782932831171549, +1.7577301620994206, +1.5768271385555328, +1.9221057167874982, +1.2433990990511847, +1.9483469385846290, +1.7745155017478376, +1.6852450814366544, +1.8809294999616886, +1.0727589398735056, +1.9192423782643027

75

76adat = getFFTR(getFFTF(data)) / size(data)

77adat

78+1.3127765798938722, +1.9563111196425980, +1.6114824276946056, +1.8216798025943430, +1.7528653752518402, +1.4455604044319899, +1.5638557141048259, +1.9005156127101279, +1.7499937765047651, +1.6666055044977921, +1.2801483012988275, +1.6296905046139512, +1.1033469079375182, +1.1502330673765291, +1.3700455631750506, +1.5115024658837619, +1.0044231777948234, +1.9769118923571773, +1.0299816911533615, +1.6279496668507256, +1.2671146745758595, +1.7497182506564233, +1.7212451424180184, +1.0709235726733972, +1.4426193207455809, +1.1789549590518542, +1.1079012790434914, +1.6579241290897047, +1.0847302389663547, +1.5069912313775766, +1.9233457850217477, +1.7917330994469574, +1.4514664605739127, +1.9304534266175346, +1.6871334592452170, +1.7934162967305958, +1.9102007102742491, +1.1314981906530051, +1.8099249183975510, +1.8500455653660599, +1.7883598726267211, +1.7819600518269831, +1.1252962923844414, +1.8354188593045651, +1.8230220303209941, +1.5318687239172299, +1.7311325360647825, +1.9289951490217947, +1.4669188078610873, +1.5181497104179194, +1.0119457205268225, +1.7038967601454054, +1.1833754480091963, +1.5227367652837978, +1.0209614276862033, +1.7034743142219202, +1.9252519952360476, +1.1130540201078913, +1.8505227593828486, +1.1899979227179263, +1.2890317853313162, +1.9921173928408362, +1.3281632216066348, +1.9782932831171562, +1.7577301620994206, +1.5768271385555335, +1.9221057167874989, +1.2433990990511856, +1.9483469385846290, +1.7745155017478382, +1.6852450814366544, +1.8809294999616883, +1.0727589398735053, +1.9192423782643040

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, 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+98

89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

90data

91+1.17094381458138634905554013772581322, +1.29135785466070033178798779972958544, +1.83500499322283121084294903450242975, +1.34870860628200653753765672357651241, +1.86290497579990569322252816858026492, +1.50852101624853902953591753952064629, +1.85005853502532573813179196708146167, +1.62516301913500084054157617486970811, +1.59598627619862107586684564469761836, +1.94956641949010011215058280248853135, +1.24611247072989255107341411264456535, +1.55351788232853227389348172519111800, +1.16292395423309078126799546159951735, +1.93692281601881681206723580591654200, +1.17960656848424408820318120148173904, +1.02183122512893767571757859484541115, +1.47195174837292157567735268796443893, +1.83777885714056642021887499656809340, +1.07094242436408620681276229245934283, +1.27865045875421055650464580917869524, +1.72861824279126419607527999156129235, +1.67055717805090873638846995595741185, +1.34066116138661791668043478363448724, +1.01373348469719221912809459455751058, +1.64440927537624616590687304226728672, +1.66257415887062720703057449749052377, +1.82549785983686919699080305801746970, +1.91472720004862693841855499065614464, +1.02805652141172310650947052198908200, +1.47543158758933932562875229589748444, +1.61411799158779207103270579537151744, +1.70938806151411214380881177106762087, +1.45309221501607797690282007708139886, +1.29567525132876996061082656881598610, +1.24317894459161998397215980116958294, +1.71763059060274156671820502181214939, +1.28589345318605121283499736893172368, +1.89802773134617040185699454193144957, +1.91936462789522025180080335968345722, +1.75423631736092352126366285116468053, +1.56767179322682930707740487336665461, +1.97737555250389562624383212409445925, +1.82846708958899398084992469103490859, +1.27212024980526358825403814521777488, +1.10122805483003329312644470851126933, +1.05081160167787002472672933619207607, +1.78195909414943533018232074998133508, +1.12163756598189171322181799299251547, +1.75394563320936833884683568068772269, +1.97651557308763264331444900043453326, +1.09342633520585702206204982819767252, +1.03400251057845249182374005839980734, +1.81389880941904159343260010707287878, +1.32357252739446574711989523904283124, +1.92696806014990730671955818679539976, +1.01986749562727854755918079680352062, +1.08923288904536129386443496284342936, +1.68846718218217502759724910801165325, +1.99346935060886068008933342504780104, +1.12939126183475079089018084624642410, +1.91023262012327648577545276742576216, +1.81758617726423531353209692532141346, +1.33874749923151634934450634564169089, +1.38968519723006308650216547761946673, +1.32233403896331029680497408044575544, +1.05377740738532079513876413051742360, +1.26176178206680026899925427645042625, +1.28299135830427170072876214980298902, +1.22313579469187529284086886349422972, +1.04661188787253850173728945053920667, +1.18202751890417000365784889076793046, +1.75108590035159299906117867611015562, +1.87609628069951685413216582401413637, +1.39676180506330861409712577409259298, +1.74793323485489661772241210775756515, +1.44277356787513646304055135646547953, +1.90565098807690933355665799647717994, +1.43445553382241759968186573890986481, +1.87545957097296348218226680424463603, +1.17532576720882326223199102082700188, +1.52637033273289020453667324919953400, +1.41089761024328861814512004181010664, +1.86412197742558928833866109660454434, +1.35620371353985935397874398953579976, +1.11871340463280701571846353006215643, +1.53484512533118219647824228642704974, +1.95242605483123181028946692516651945, +1.63316355230121352552993259562122761, +1.74865108823592402654143679525325137, +1.49485477817631116414124179451480412, +1.22508338524716711781145654023208437, +1.18526108674841747037420306265779141, +1.29721408052083501860563342808685847, +1.26434718776172234219281853461457680, +1.36749370020676288331575964710322257, +1.52408766220690085013109180589088540, +1.19468940733056430661329031800273096, +1.88845130727758514453944553544126843

92

93adat = getFFTR(getFFTF(data)) / size(data)

94adat

95+1.17094381458138634905554013772581303, +1.29135785466070033178798779972958582, +1.83500499322283121084294903450242937, +1.34870860628200653753765672357651260, +1.86290497579990569322252816858026549, +1.50852101624853902953591753952064667, +1.85005853502532573813179196708146167, +1.62516301913500084054157617486970811, +1.59598627619862107586684564469761836, +1.94956641949010011215058280248853173, +1.24611247072989255107341411264456535, +1.55351788232853227389348172519111800, +1.16292395423309078126799546159951735, +1.93692281601881681206723580591654200, +1.17960656848424408820318120148173923, +1.02183122512893767571757859484541095, +1.47195174837292157567735268796443854, +1.83777885714056642021887499656809379, +1.07094242436408620681276229245934321, +1.27865045875421055650464580917869562, +1.72861824279126419607527999156129273, +1.67055717805090873638846995595741242, +1.34066116138661791668043478363448743, +1.01373348469719221912809459455751097, +1.64440927537624616590687304226728672, +1.66257415887062720703057449749052416, +1.82549785983686919699080305801746989, +1.91472720004862693841855499065614521, +1.02805652141172310650947052198908200, +1.47543158758933932562875229589748482, +1.61411799158779207103270579537151706, +1.70938806151411214380881177106762164, +1.45309221501607797690282007708139944, +1.29567525132876996061082656881598610, +1.24317894459161998397215980116958275, +1.71763059060274156671820502181214997, +1.28589345318605121283499736893172406, +1.89802773134617040185699454193145015, +1.91936462789522025180080335968345741, +1.75423631736092352126366285116468033, +1.56767179322682930707740487336665442, +1.97737555250389562624383212409446002, +1.82846708958899398084992469103490859, +1.27212024980526358825403814521777488, +1.10122805483003329312644470851126875, +1.05081160167787002472672933619207607, +1.78195909414943533018232074998133566, +1.12163756598189171322181799299251566, +1.75394563320936833884683568068772308, +1.97651557308763264331444900043453384, +1.09342633520585702206204982819767252, +1.03400251057845249182374005839980754, +1.81389880941904159343260010707287916, +1.32357252739446574711989523904283162, +1.92696806014990730671955818679540034, +1.01986749562727854755918079680352062, +1.08923288904536129386443496284342897, +1.68846718218217502759724910801165325, +1.99346935060886068008933342504780085, +1.12939126183475079089018084624642410, +1.91023262012327648577545276742576293, +1.81758617726423531353209692532141423, +1.33874749923151634934450634564169050, +1.38968519723006308650216547761946692, +1.32233403896331029680497408044575544, +1.05377740738532079513876413051742399, +1.26176178206680026899925427645042644, +1.28299135830427170072876214980298940, +1.22313579469187529284086886349422972, +1.04661188787253850173728945053920687, +1.18202751890417000365784889076793085, +1.75108590035159299906117867611015620, +1.87609628069951685413216582401413618, +1.39676180506330861409712577409259356, +1.74793323485489661772241210775756534, +1.44277356787513646304055135646547953, +1.90565098807690933355665799647718013, +1.43445553382241759968186573890986519, +1.87545957097296348218226680424463661, +1.17532576720882326223199102082700208, +1.52637033273289020453667324919953439, +1.41089761024328861814512004181010684, +1.86412197742558928833866109660454453, +1.35620371353985935397874398953580015, +1.11871340463280701571846353006215643, +1.53484512533118219647824228642704954, +1.95242605483123181028946692516651906, +1.63316355230121352552993259562122780, +1.74865108823592402654143679525325195, +1.49485477817631116414124179451480469, +1.22508338524716711781145654023208437, +1.18526108674841747037420306265779179, +1.29721408052083501860563342808685886, +1.26434718776172234219281853461457757, +1.36749370020676288331575964710322238, +1.52408766220690085013109180589088559, +1.19468940733056430661329031800273077, +1.88845130727758514453944553544126920

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, T, T, T, 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+60

106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

107data

108(+1.68074477, +0.446552932), (+1.12722516, +0.827514946), (+1.97528648, +0.159940958), (+1.31817317, +0.727585137), (+1.11310995, +0.616334081E-1), (+1.10815477, +0.808451593), (+1.83491302, +0.797894061), (+1.88710809, +0.249871433), (+1.57859898, +0.354296148), (+1.96867752, +0.505576074), (+1.42100239, +0.451303363), (+1.49215627, +0.215169847), (+1.16219974, +0.963052571), (+1.44360161, +0.390746474), (+1.40854132, +0.699285090), (+1.63762641, +0.797819912), (+1.01054263, +0.544005036E-1), (+1.66235626, +0.384854317), (+1.45731568, +0.523547649), (+1.63980985, +0.743232608), (+1.53199160, +0.903292656), (+1.84635234, +0.995037138), (+1.10047889, +0.508323550), (+1.36646080, +0.951670647), (+1.71254766, +0.758033514), (+1.15680420, +0.540198088), (+1.10828686, +0.130935907E-1), (+1.65273809, +0.721846044), (+1.90240252, +0.468280852), (+1.01466596, +0.552305162), (+1.19020104, +0.519409537), (+1.48290336, +0.365308821), (+1.01108074, +0.371270180E-1), (+1.17872405, +0.477706850), (+1.47036588, +0.343450189), (+1.90948915, +0.943658352E-1), (+1.99295473, +0.206027150), (+1.09057248, +0.112915277), (+1.35169315, +0.838955164), (+1.03792012, +0.591441214), (+1.48325753, +0.414210260), (+1.86778784, +0.900498450), (+1.57515454, +0.926058829), (+1.85219884, +0.102140188), (+1.34290242, +0.618836582), (+1.96217966, +0.709460378E-1), (+1.82942891, +0.864706218), (+1.62388527, +0.669188976), (+1.39818978, +0.217974067), (+1.55249715, +0.830776274), (+1.96033740, +0.884231269), (+1.69185817, +0.286035180), (+1.67757475, +0.412681937), (+1.76708007, +0.978097618), (+1.94203758, +0.810162425), (+1.55529237, +0.817744613), (+1.77155685, +0.784977794), (+1.43186045, +0.418493986), (+1.82605577, +0.564355433), (+1.29124427, +0.113521814)

109

110adat = getFFTR(getFFTF(data)) / size(data)

111adat

112(+1.68074429, +0.446552873), (+1.12722528, +0.827515006), (+1.97528660, +0.159941033), (+1.31817317, +0.727585137), (+1.11311018, +0.616334900E-1), (+1.10815430, +0.808451533), (+1.83491325, +0.797894180), (+1.88710809, +0.249871507), (+1.57859886, +0.354296118), (+1.96867764, +0.505576193), (+1.42100203, +0.451303184), (+1.49215639, +0.215169847), (+1.16219974, +0.963052750), (+1.44360173, +0.390746564), (+1.40854120, +0.699285209), (+1.63762617, +0.797819793), (+1.01054263, +0.544005409E-1), (+1.66235626, +0.384854257), (+1.45731568, +0.523547709), (+1.63980997, +0.743232608), (+1.53199124, +0.903292596), (+1.84635246, +0.995037258), (+1.10047901, +0.508323610), (+1.36646092, +0.951670706), (+1.71254766, +0.758033514), (+1.15680385, +0.540198147), (+1.10828674, +0.130936624E-1), (+1.65273809, +0.721846163), (+1.90240276, +0.468280822), (+1.01466608, +0.552305281), (+1.19020081, +0.519409478), (+1.48290336, +0.365308881), (+1.01108062, +0.371269546E-1), (+1.17872405, +0.477706879), (+1.47036600, +0.343450099), (+1.90948880, +0.943658203E-1), (+1.99295461, +0.206027284), (+1.09057260, +0.112915263), (+1.35169291, +0.838955164), (+1.03792024, +0.591441333), (+1.48325729, +0.414210230), (+1.86778784, +0.900498509), (+1.57515466, +0.926058888), (+1.85219896, +0.102140173), (+1.34290242, +0.618836582), (+1.96217918, +0.709460229E-1), (+1.82942879, +0.864706218), (+1.62388527, +0.669189095), (+1.39818966, +0.217974097), (+1.55249739, +0.830776334), (+1.96033692, +0.884231269), (+1.69185817, +0.286035120), (+1.67757487, +0.412681967), (+1.76708019, +0.978097677), (+1.94203782, +0.810162425), (+1.55529201, +0.817744553), (+1.77155674, +0.784977853), (+1.43186045, +0.418493956), (+1.82605577, +0.564355433), (+1.29124451, +0.113521926)

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, T, 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+23

123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

124data

125(+1.5672244344100048, +0.18663408498159528), (+1.0416102507045939, +0.44656340444555676), (+1.8848656080978312, +0.87288910358173610), (+1.2419970010919448, +0.56269958626921557), (+1.0853942922390836, +0.97846639313699746), (+1.5187939475716790, +0.19516712015179871), (+1.7492654217861718, +0.60858922937001247), (+1.8190810249778080, +0.63208826494446146), (+1.0815683797164779, +0.39974855636271123E-2), (+1.0084347895417269, +0.20889119690530866), (+1.6505123614171526, +0.92276329765614684), (+1.3944042913054473, +0.10586026153542760), (+1.7354787670819223, +0.16791629311917633), (+1.4478681709099366, +0.60215802948695141), (+1.1866015581448404, +0.99818473135405150E-1), (+1.1141726046676022, +0.69722076522879906), (+1.3168102356760314, +0.43748986793779732), (+1.2272985002442043, +0.32095090563398565), (+1.8432485034065524, +0.90187408501319744), (+1.4353859680937600, +0.54508171643724745), (+1.9712947241181105, +0.41824693270395674), (+1.6512227312614463, +0.18011140250532454), (+1.9054950248553191, +0.83915256340130329)

126

127adat = getFFTR(getFFTF(data)) / size(data)

128adat

129(+1.5672244344100033, +0.18663408498159467), (+1.0416102507045948, +0.44656340444555687), (+1.8848656080978317, +0.87288910358173621), (+1.2419970010919454, +0.56269958626921590), (+1.0853942922390838, +0.97846639313699757), (+1.5187939475716790, +0.19516712015179866), (+1.7492654217861721, +0.60858922937001259), (+1.8190810249778078, +0.63208826494446146), (+1.0815683797164777, +0.39974855636270542E-2), (+1.0084347895417272, +0.20889119690530880), (+1.6505123614171529, +0.92276329765614651), (+1.3944042913054464, +0.10586026153542756), (+1.7354787670819218, +0.16791629311917627), (+1.4478681709099364, +0.60215802948695130), (+1.1866015581448406, +0.99818473135405178E-1), (+1.1141726046676019, +0.69722076522879917), (+1.3168102356760314, +0.43748986793779721), (+1.2272985002442041, +0.32095090563398565), (+1.8432485034065527, +0.90187408501319766), (+1.4353859680937602, +0.54508171643724757), (+1.9712947241181114, +0.41824693270395702), (+1.6512227312614467, +0.18011140250532467), (+1.9054950248553200, +0.83915256340130362)

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, 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.48881513138823274189611822908862937, +0.412655884214544047427543947946750774), (+1.67812857657442248812434125847778415, +0.981689100276905791412225868807103405), (+1.36423602652961706999245567057232027, +0.215766963872892050435410677461813016), (+1.55993273048505331668556494991749841, +0.849852182219972529921569494656068430), (+1.39606386106010025623548723628088231, +0.268148539625462996957629980222237318), (+1.48127311680159746181169678107549290, +0.142436784205445645308501600019394037), (+1.00479701198407115675432212965980328, +0.860113797093994608589852157227035676), (+1.12740275190536061476633711721150781, +0.181958510184160125967237072203447288), (+1.23884575305651138071803596641191101, +0.780035396853150133631118029463332670), (+1.18677454446346585287986493563622526, +0.492042490199713685053682286968204463), (+1.21964998509521443169449688458138426, +0.410446462581479627317092098455228039E-1), (+1.96989599068146147795265059280382671, +0.484251098069222031100186393282320892), (+1.38003448291545863740027272621333951, +0.780910362950802004404078590846436014), (+1.42496860613146655230329448730974489, +0.865446870785961663281733551331924895), (+1.00359537986119146318113130134496834, +0.826254207218302915977549935510793732), (+1.41892774797630106567345893468988720, +0.119012335907360829723978315271909062), (+1.42638383383093895747531911790216362, +0.832611185999646494114813566070542311), (+1.10544715562190353323329487217532097, +0.734934584201229594558437256373209264), (+1.34399146988801192547235023327143339, +0.814627722128811216319347551273880138), (+1.85087928493805557804743326047581461, +0.926883970056601165830354335177383775), (+1.98642768384919834417682986061237148, +0.766992584033906716932146347497185263), (+1.67460828855301027793114679115674548, +0.880514255607039737544466482354789610), (+1.01004015830095230932962055248711511, +0.484760557284346301338969386384777270E-1), (+1.97962799753201616495065777877256688, +0.764053104622475421124304256048042503), (+1.87615284421119180847896283911925691, +0.521801124081575522317931163150307914), (+1.93836037470971428045539694488422489, +0.474665146688871373176987573082589193), (+1.37224041394205926779745864691139794, +0.500438704476398103899091392654917860), (+1.34589205142480662742987388328362373, +0.351207076327881840282835456103676685), (+1.22309369352045351686473240374474395, +0.620444641581324616896682057196135176), (+1.36128090367009986898963190467497483, +0.769488895847511692502239255924147176E-1), (+1.92015690883242102451946155014117158, +0.510930842625842271255657868115771751), (+1.60084577603219157835937434814461703, +0.405552827926554241018091234388897531), (+1.44528548317287122284427706899780245, +0.544338873536685214848439609085160401), (+1.14695656402128522421280497438655799, +0.799055661629170840065146057963407246E-1), (+1.69702482023652785644451425752350514, +0.284598181873256793586495441738205415), (+1.58747230942643872239975674702333044, +0.724483239194845184567962766272691726), (+1.20106116749318123449592943622279710, +0.644736130702189227105227017950055391), (+1.33711644253659754277063305053890186, +0.215632445011479303091668050050963908), (+1.62753284595027581272183109918781873, +0.613947124479497132127411523068972866E-1), (+1.53974449580962752506447028913780875, +0.641376650104358250539871716600216724), (+1.42049163296442018804842897089442453, +0.936723985940586927209923024222414660), (+1.09354061817535691433008739655213271, +0.186263903193970042293412289440345150), (+1.07249746729527772672845537903811686, +0.624921887578605356182045723371712061), (+1.41918042219970153002919973530249580, +0.612969501624385902833308667254251231), (+1.49648141477660839188976470304301851, +0.113423406469908877546934665458967856E-1), (+1.92929627533140475112672647297989191, +0.372143911477482426686848707677004516E-1), (+1.34023716058046178114803845330165465, +0.490144744377244531336454169583458268), (+1.43085962061876039612004370891792124, +0.676679486629068112156989714546475967), (+1.75306561618299989573317269281381807, +0.479428595590221488239493751458891116E-1), (+1.13726068901240425967908661369853681, +0.949293328736145552100713343407839582), (+1.42065526410381792912777775531436382, +0.127713844295933317732784775460710062), (+1.88800018117009399495093863080081706, +0.869793537353928652052187027411865552), (+1.16303589803221496553376777222302749, +0.779424130075126534940137473352686126), (+1.78060802618935914476996472145115698, +0.271523651947838815168132201307927216E-1), (+1.34118498754103612592024448239543828, +0.615774041815332723525799643741146410), (+1.69415421186926851940822026603661474, +0.237074342518940676244573979897755163), (+1.77753641436143256335292264275165046, +0.480259149803355034556092273081043106E-1), (+1.02402130209772784499537308149433996, +0.402263535791625870363121962567126349), (+1.44474153326628535471652599312435580, +0.585780753989308027643691216504670077), (+1.54755360917619758690771171701808556, +0.209502960314365263810392090134363911), (+1.73621911090391285113286812250249897, +0.387861465975705717715731967641156670), (+1.58967020149098108000638867158897410, +0.174895093000493564062245360479164870), (+1.80155982906191143073980187459656565, +0.455351207742771407648257276289355684), (+1.26102368382113235967946924758937751, +0.451885026304187705227899675130003924), (+1.56768447039732767238104887001143126, +0.499057887840002088633028967626672505), (+1.96157116562913931696678904723985770, +0.496266975415233827619616426631809018), (+1.51870518141432417396637364933987488, +0.843992942151384934161130477891753156), (+1.55222043026078249222227992450950451, +0.883607504211524853747718606016980414), (+1.94304932564125833199722287465246046, +0.301467308746501922735230271478803208), (+1.00435228206848661499596997687623806, +0.764397101373963737670112115576406885E-1), (+1.86620938494091964503925256810169108, +0.618466614537521483355255249238526906), (+1.52536274730310496672619159227056812, +0.245815501702152585791682913353688110), (+1.69914276077015516427390352463792581, +0.805306379592203530396655751884919771), (+1.15814515964271271786125557457721619, +0.968795394602061318230407143285145688), (+1.62646222411680891980493489033894376, +0.824108212477464268271885873925582840), (+1.77673318889359639192942068018505949, +0.446786470797073821823786048973553910), (+1.11746322097701327253817050568616742, +0.590682488705628210174737161619524794), (+1.61517931421878503681083722560430361, +0.268963900660775001667760631286378839)

143

144adat = getFFTR(getFFTF(data)) / size(data)

145adat

146(+1.48881513138823274189611822908862975, +0.412655884214544047427543947946750822), (+1.67812857657442248812434125847778415, +0.981689100276905791412225868807103598), (+1.36423602652961706999245567057232065, +0.215766963872892050435410677461813088), (+1.55993273048505331668556494991749822, +0.849852182219972529921569494656068526), (+1.39606386106010025623548723628088154, +0.268148539625462996957629980222237318), (+1.48127311680159746181169678107549271, +0.142436784205445645308501600019393965), (+1.00479701198407115675432212965980308, +0.860113797093994608589852157227036157), (+1.12740275190536061476633711721150762, +0.181958510184160125967237072203447360), (+1.23884575305651138071803596641191082, +0.780035396853150133631118029463332766), (+1.18677454446346585287986493563622487, +0.492042490199713685053682286968204463), (+1.21964998509521443169449688458138369, +0.410446462581479627317092098455227617E-1), (+1.96989599068146147795265059280382748, +0.484251098069222031100186393282320748), (+1.38003448291545863740027272621333912, +0.780910362950802004404078590846436014), (+1.42496860613146655230329448730974528, +0.865446870785961663281733551331925184), (+1.00359537986119146318113130134496795, +0.826254207218302915977549935510793732), (+1.41892774797630106567345893468988759, +0.119012335907360829723978315271909195), (+1.42638383383093895747531911790216362, +0.832611185999646494114813566070542407), (+1.10544715562190353323329487217532059, +0.734934584201229594558437256373209264), (+1.34399146988801192547235023327143339, +0.814627722128811216319347551273880235), (+1.85087928493805557804743326047581461, +0.926883970056601165830354335177383967), (+1.98642768384919834417682986061237128, +0.766992584033906716932146347497185456), (+1.67460828855301027793114679115674587, +0.880514255607039737544466482354789514), (+1.01004015830095230932962055248711454, +0.484760557284346301338969386384775043E-1), (+1.97962799753201616495065777877256727, +0.764053104622475421124304256048042503), (+1.87615284421119180847896283911925710, +0.521801124081575522317931163150307914), (+1.93836037470971428045539694488422470, +0.474665146688871373176987573082589242), (+1.37224041394205926779745864691139852, +0.500438704476398103899091392654918245), (+1.34589205142480662742987388328362354, +0.351207076327881840282835456103676541), (+1.22309369352045351686473240374474395, +0.620444641581324616896682057196135273), (+1.36128090367009986898963190467497502, +0.769488895847511692502239255924148861E-1), (+1.92015690883242102451946155014117100, +0.510930842625842271255657868115771462), (+1.60084577603219157835937434814461683, +0.405552827926554241018091234388897627), (+1.44528548317287122284427706899780226, +0.544338873536685214848439609085160304), (+1.14695656402128522421280497438655818, +0.799055661629170840065146057963407126E-1), (+1.69702482023652785644451425752350514, +0.284598181873256793586495441738205319), (+1.58747230942643872239975674702333005, +0.724483239194845184567962766272691533), (+1.20106116749318123449592943622279690, +0.644736130702189227105227017950055295), (+1.33711644253659754277063305053890206, +0.215632445011479303091668050050964173), (+1.62753284595027581272183109918781835, +0.613947124479497132127411523068972926E-1), (+1.53974449580962752506447028913780914, +0.641376650104358250539871716600216724), (+1.42049163296442018804842897089442453, +0.936723985940586927209923024222414852), (+1.09354061817535691433008739655213310, +0.186263903193970042293412289440345247), (+1.07249746729527772672845537903811666, +0.624921887578605356182045723371712061), (+1.41918042219970153002919973530249522, +0.612969501624385902833308667254251038), (+1.49648141477660839188976470304301831, +0.113423406469908877546934665458968744E-1), (+1.92929627533140475112672647297989172, +0.372143911477482426686848707677005178E-1), (+1.34023716058046178114803845330165465, +0.490144744377244531336454169583458461), (+1.43085962061876039612004370891792124, +0.676679486629068112156989714546476064), (+1.75306561618299989573317269281381730, +0.479428595590221488239493751458888287E-1), (+1.13726068901240425967908661369853681, +0.949293328736145552100713343407839486), (+1.42065526410381792912777775531436402, +0.127713844295933317732784775460710038), (+1.88800018117009399495093863080081725, +0.869793537353928652052187027411865359), (+1.16303589803221496553376777222302788, +0.779424130075126534940137473352686222), (+1.78060802618935914476996472145115659, +0.271523651947838815168132201307927005E-1), (+1.34118498754103612592024448239543847, +0.615774041815332723525799643741146314), (+1.69415421186926851940822026603661532, +0.237074342518940676244573979897755115), (+1.77753641436143256335292264275164988, +0.480259149803355034556092273081044250E-1), (+1.02402130209772784499537308149433996, +0.402263535791625870363121962567126397), (+1.44474153326628535471652599312435560, +0.585780753989308027643691216504670077), (+1.54755360917619758690771171701808575, +0.209502960314365263810392090134363959), (+1.73621911090391285113286812250249878, +0.387861465975705717715731967641156718), (+1.58967020149098108000638867158897371, +0.174895093000493564062245360479164894), (+1.80155982906191143073980187459656526, +0.455351207742771407648257276289355539), (+1.26102368382113235967946924758937848, +0.451885026304187705227899675130004068), (+1.56768447039732767238104887001143106, +0.499057887840002088633028967626672360), (+1.96157116562913931696678904723985847, +0.496266975415233827619616426631809114), (+1.51870518141432417396637364933987468, +0.843992942151384934161130477891753156), (+1.55222043026078249222227992450950470, +0.883607504211524853747718606016980606), (+1.94304932564125833199722287465246046, +0.301467308746501922735230271478803160), (+1.00435228206848661499596997687623749, +0.764397101373963737670112115576407126E-1), (+1.86620938494091964503925256810169127, +0.618466614537521483355255249238526810), (+1.52536274730310496672619159227056832, +0.245815501702152585791682913353688110), (+1.69914276077015516427390352463792581, +0.805306379592203530396655751884920059), (+1.15814515964271271786125557457721599, +0.968795394602061318230407143285145495), (+1.62646222411680891980493489033894318, +0.824108212477464268271885873925582937), (+1.77673318889359639192942068018505949, +0.446786470797073821823786048973553814), (+1.11746322097701327253817050568616761, +0.590682488705628210174737161619524890), (+1.61517931421878503681083722560430341, +0.268963900660775001667760631286378791)

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+40

157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

158data

159+1.34287763, +1.21029544, +1.85758400, +1.45956182, +1.11685336, +1.69638157, +1.76930904, +1.58021784, +1.76411939, +1.51239324, +1.44801331, +1.97638535, +1.23548341, +1.93894553, +1.49416566, +1.40053487, +1.68883967, +1.69632638, +1.23880339, +1.56671596, +1.33572030, +1.22802806, +1.16262722, +1.78515744, +1.24167669, +1.04354692, +1.06756163, +1.21891165, +1.40029240, +1.68582642, +1.78618240, +1.68171144, +1.82381892, +1.07405722, +1.32366180, +1.17038012, +1.94242716, +1.56710696, +1.10085845, +1.64472675

160

161adat = getFFTR(getFFTF(data)) / size(data)

162adat

163+1.34287739, +1.21029520, +1.85758400, +1.45956159, +1.11685324, +1.69638157, +1.76930881, +1.58021760, +1.76411939, +1.51239324, +1.44801354, +1.97638535, +1.23548365, +1.93894553, +1.49416578, +1.40053499, +1.68883967, +1.69632649, +1.23880339, +1.56671584, +1.33572042, +1.22802806, +1.16262734, +1.78515756, +1.24167657, +1.04354692, +1.06756163, +1.21891153, +1.40029263, +1.68582654, +1.78618240, +1.68171144, +1.82381892, +1.07405734, +1.32366204, +1.17038023, +1.94242740, +1.56710708, +1.10085869, +1.64472675

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

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+87

174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

175data

176+1.0068377080638975, +1.8518111651451403, +1.3324301477288374, +1.7136238055205326, +1.1933633013760705, +1.0357104700561626, +1.8546123158168080, +1.1234377148941965, +1.5255209445712001, +1.5138975810973969, +1.9973541546910676, +1.7048597678642539, +1.4623332164829508, +1.0235245008850504, +1.6641524006718988, +1.4142552357295564, +1.2930222349495524, +1.3608909875212047, +1.3140693007614874, +1.3884007778873109, +1.9549857643997928, +1.2202389526840083, +1.7898532545060530, +1.5396872579655847, +1.4962620034636904, +1.9983805319608567, +1.9809957937730811, +1.5961497103376348, +1.6600414999601014, +1.0993565505883967, +1.4821180028088263, +1.6553648501828691, +1.5706489667716172, +1.8495657226566427, +1.3016491142633568, +1.8570017150133498, +1.0700774056372913, +1.0428000514615339, +1.4424952117411864, +1.9475026239442621, +1.8459873691004585, +1.0990544648135487, +1.4079520503304017, +1.8291820209186018, +1.8654386741413913, +1.2517007719109237, +1.5996799939655071, +1.5662569465185381, +1.9531240497619677, +1.7079940473505577, +1.3229367585334360, +1.0600443837806082, +1.7191160745270739, +1.0107841652746246, +1.1253961951655991, +1.4749947727511916, +1.9653631745857052, +1.6562053500733813, +1.9540615785648847, +1.6957995528814798, +1.1089069243753218, +1.9047361795783377, +1.6403552015346461, +1.5692658043133036, +1.5187428050090110, +1.7540380403700582, +1.9320241883963005, +1.4745719334162466, +1.6142913316481458, +1.4190719978178945, +1.3999513399615433, +1.7822926035019295, +1.0739001076751422, +1.2762508642604002, +1.8844446325120934, +1.5387758537062250, +1.6515848092690599, +1.7767453059378413, +1.7231981688286919, +1.5606598139398824, +1.5506908306379241, +1.1108933929742846, +1.7905764473592258, +1.7409082939740732, +1.6767487983014715, +1.9074168447545290, +1.3199338463103205

177

178adat = getFFTR(getFFTF(data)) / size(data)

179adat

180+1.0068377080638979, +1.8518111651451410, +1.3324301477288378, +1.7136238055205328, +1.1933633013760703, +1.0357104700561626, +1.8546123158168084, +1.1234377148941974, +1.5255209445712001, +1.5138975810973976, +1.9973541546910645, +1.7048597678642539, +1.4623332164829510, +1.0235245008850518, +1.6641524006718988, +1.4142552357295561, +1.2930222349495519, +1.3608909875212067, +1.3140693007614874, +1.3884007778873104, +1.9549857643997905, +1.2202389526840089, +1.7898532545060521, +1.5396872579655849, +1.4962620034636900, +1.9983805319608543, +1.9809957937730773, +1.5961497103376334, +1.6600414999600999, +1.0993565505883989, +1.4821180028088268, +1.6553648501828684, +1.5706489667716168, +1.8495657226566389, +1.3016491142633559, +1.8570017150133467, +1.0700774056372955, +1.0428000514615372, +1.4424952117411869, +1.9475026239442568, +1.8459873691004538, +1.0990544648135516, +1.4079520503304028, +1.8291820209186014, +1.8654386741413880, +1.2517007719109261, +1.5996799939655089, +1.5662569465185403, +1.9531240497619620, +1.7079940473505553, +1.3229367585334342, +1.0600443837806102, +1.7191160745270728, +1.0107841652746297, +1.1253961951656004, +1.4749947727511921, +1.9653631745856996, +1.6562053500733784, +1.9540615785648829, +1.6957995528814804, +1.1089069243753238, +1.9047361795783355, +1.6403552015346450, +1.5692658043133021, +1.5187428050090108, +1.7540380403700571, +1.9320241883962979, +1.4745719334162468, +1.6142913316481444, +1.4190719978178947, +1.3999513399615422, +1.7822926035019295, +1.0739001076751433, +1.2762508642604002, +1.8844446325120927, +1.5387758537062253, +1.6515848092690590, +1.7767453059378415, +1.7231981688286917, +1.5606598139398811, +1.5506908306379248, +1.1108933929742852, +1.7905764473592258, +1.7409082939740732, +1.6767487983014717, +1.9074168447545288, +1.3199338463103205

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

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+24

191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

192data

193+1.02079995939842834305682322401063662, +1.78287624241270226547584225333436096, +1.02695597696370284393649277179677071, +1.65026646397307233533177208399201201, +1.08133842325284090714802895367249952, +1.32138392688965876637563074809685421, +1.68635884365753643396256412296537155, +1.78653260579634936499765373893268767, +1.82211436736737450944258981214213743, +1.17281491784333436403529072508229740, +1.18207285906896115698097363247189101, +1.94236947329049724776444856399111601, +1.41278604321844630725379795729820989, +1.37292332368559935765720017711424924, +1.90139301498670218690414998088288894, +1.34064764296740674134670595255753222, +1.95407685252874695138279807067088491, +1.40725372507515803442943180662729803, +1.68424718346045520101752573487769109, +1.31171688595025802040012339341144181, +1.47532674338164282816965416796978429, +1.85130550120914012057648445282136178, +1.54228424883257314651255507257510555, +1.16934360658350500541308699660132877

194

195adat = getFFTR(getFFTF(data)) / size(data)

196adat

197+1.02079995939842834305682322401063662, +1.78287624241270226547584225333436076, +1.02695597696370284393649277179677032, +1.65026646397307233533177208399201163, +1.08133842325284090714802895367249971, +1.32138392688965876637563074809685401, +1.68635884365753643396256412296537116, +1.78653260579634936499765373893268767, +1.82211436736737450944258981214213724, +1.17281491784333436403529072508229740, +1.18207285906896115698097363247189063, +1.94236947329049724776444856399111601, +1.41278604321844630725379795729821008, +1.37292332368559935765720017711424905, +1.90139301498670218690414998088288875, +1.34064764296740674134670595255753222, +1.95407685252874695138279807067088472, +1.40725372507515803442943180662729803, +1.68424718346045520101752573487769051, +1.31171688595025802040012339341144161, +1.47532674338164282816965416796978448, +1.85130550120914012057648445282136159, +1.54228424883257314651255507257510516, +1.16934360658350500541308699660132857

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

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+94

208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

209data

210(+1.24894810, +0.601810098), (+1.99422336, +0.257058203), (+1.93771374, +0.596150398), (+1.10639727, +0.304755449), (+1.05248630, +0.285764277), (+1.56419218, +0.373081923), (+1.22427297, +0.403691888), (+1.43763280, +0.871889114), (+1.93282461, +0.785482824), (+1.00306356, +0.391741395), (+1.83594084, +0.605498552E-1), (+1.98529136, +0.570350885E-1), (+1.77268243, +0.395764172), (+1.25049543, +0.354408681), (+1.69586110, +0.901922464), (+1.58300710, +0.284838617), (+1.58995652, +0.980104804), (+1.50318336, +0.235177636), (+1.36358500, +0.742577910), (+1.85132635, +0.398745537), (+1.64863276, +0.248778105), (+1.58679533, +0.994606435), (+1.77186680, +0.821046293), (+1.97337103, +0.102226138), (+1.46202481, +0.191514373), (+1.45890903, +0.497561693E-2), (+1.81917000, +0.106321275), (+1.66565931, +0.584694445), (+1.67144012, +0.592624366), (+1.73400271, +0.207878411), (+1.09999084, +0.700839162E-1), (+1.25692248, +0.679914296), (+1.41863179, +0.830820322), (+1.79145157, +0.990530789), (+1.46752274, +0.819150388), (+1.35227227, +0.942218304E-2), (+1.49062729, +0.493348062), (+1.78860295, +0.356968224), (+1.70045638, +0.911557019), (+1.38504577, +0.732755482), (+1.32805276, +0.992763221), (+1.09268689, +0.105447710), (+1.07193923, +0.743452787), (+1.77020407, +0.532590926), (+1.39646649, +0.319785178), (+1.30104375, +0.889880478), (+1.22442579, +0.224937737), (+1.52803147, +0.493321538), (+1.60143077, +0.202483654), (+1.20560765, +0.756618977E-1), (+1.81162035, +0.335268855), (+1.09573472, +0.574972034E-1), (+1.14827967, +0.955564797), (+1.69921064, +0.558750868), (+1.31239021, +0.671405196E-1), (+1.78802371, +0.478565156), (+1.47117710, +0.497452080), (+1.24787843, +0.710257828), (+1.50589228, +0.134903789), (+1.55997837, +0.274729073), (+1.17796898, +0.383781791E-1), (+1.96921659, +0.257350504), (+1.31674600, +0.772923827), (+1.21125889, +0.765037000), (+1.50256109, +0.136757493E-1), (+1.85988021, +0.632256031), (+1.35351050, +0.994801402), (+1.43876052, +0.537104905), (+1.53215790, +0.625644922), (+1.02972806, +0.417745113E-2), (+1.36929822, +0.786714733), (+1.66106057, +0.796890259E-1), (+1.16430235, +0.172217488), (+1.43810129, +0.639734924), (+1.38012528, +0.869235098), (+1.67255735, +0.881898701), (+1.48185778, +0.882758141), (+1.45081568, +0.406147778), (+1.17485154, +0.552591085), (+1.05500650, +0.319532752), (+1.68775225, +0.866616011), (+1.11415052, +0.909557998), (+1.91720581, +0.933513641E-1), (+1.82710922, +0.972929299), (+1.19859350, +0.423223317), (+1.39299822, +0.761152625), (+1.23405242, +0.335915387), (+1.97569740, +0.902790606), (+1.91370678, +0.803435266), (+1.15858448, +0.440429866), (+1.68202519, +0.993004858), (+1.92807436, +0.946391642), (+1.92088699, +0.457800031E-1), (+1.66440010, +0.293895602E-1)

211

212adat = getFFTR(getFFTF(data)) / size(data)

213adat

214(+1.24895000, +0.601810515), (+1.99422264, +0.257058024), (+1.93771374, +0.596150100), (+1.10639691, +0.304755300), (+1.05248630, +0.285764098), (+1.56419194, +0.373081893), (+1.22427309, +0.403691769), (+1.43763244, +0.871889055), (+1.93282413, +0.785482705), (+1.00306356, +0.391741335), (+1.83594060, +0.605498366E-1), (+1.98529136, +0.570353232E-1), (+1.77268207, +0.395764142), (+1.25049567, +0.354408681), (+1.69586122, +0.901922345), (+1.58300698, +0.284838527), (+1.58995652, +0.980104804), (+1.50318384, +0.235177591), (+1.36358511, +0.742577910), (+1.85132635, +0.398745567), (+1.64863288, +0.248778194), (+1.58679593, +0.994606495), (+1.77186704, +0.821046293), (+1.97337162, +0.102226362), (+1.46202576, +0.191514224), (+1.45890927, +0.497562857E-2), (+1.81917036, +0.106321298), (+1.66565979, +0.584694505), (+1.67144001, +0.592624366), (+1.73400259, +0.207878336), (+1.09999108, +0.700839609E-1), (+1.25692272, +0.679914415), (+1.41863191, +0.830820203), (+1.79145145, +0.990530789), (+1.46752250, +0.819150090), (+1.35227215, +0.942228176E-2), (+1.49062705, +0.493348062), (+1.78860331, +0.356968254), (+1.70045650, +0.911557078), (+1.38504529, +0.732755542), (+1.32805264, +0.992763221), (+1.09268641, +0.105447687), (+1.07193899, +0.743452489), (+1.77020395, +0.532590687), (+1.39646614, +0.319785029), (+1.30104375, +0.889880240), (+1.22442544, +0.224937677), (+1.52803314, +0.493322134), (+1.60143018, +0.202483609), (+1.20560753, +0.756618828E-1), (+1.81162024, +0.335268766), (+1.09573495, +0.574970245E-1), (+1.14827943, +0.955564439), (+1.69921064, +0.558750868), (+1.31239021, +0.671406984E-1), (+1.78802323, +0.478565097), (+1.47117734, +0.497452021), (+1.24787819, +0.710257769), (+1.50589204, +0.134903759), (+1.55997860, +0.274729162), (+1.17796886, +0.383780859E-1), (+1.96921659, +0.257350296), (+1.31674600, +0.772923470), (+1.21125913, +0.765036881), (+1.50256121, +0.136757735E-1), (+1.85988021, +0.632255971), (+1.35351038, +0.994801223), (+1.43876064, +0.537104964), (+1.53215837, +0.625644922), (+1.02972853, +0.417739805E-2), (+1.36929905, +0.786714673), (+1.66106093, +0.796891227E-1), (+1.16430259, +0.172217444), (+1.43810141, +0.639734983), (+1.38012564, +0.869235277), (+1.67255771, +0.881898940), (+1.48185790, +0.882758141), (+1.45081592, +0.406147867), (+1.17485166, +0.552591205), (+1.05500650, +0.319532633), (+1.68775225, +0.866616130), (+1.11415040, +0.909557760), (+1.91720545, +0.933513120E-1), (+1.82710910, +0.972929358), (+1.19859326, +0.423223168), (+1.39299810, +0.761152625), (+1.23405218, +0.335915238), (+1.97569776, +0.902790666), (+1.91370702, +0.803435147), (+1.15858400, +0.440429777), (+1.68202519, +0.993004680), (+1.92807412, +0.946391463), (+1.92088687, +0.457797162E-1), (+1.66439950, +0.293895546E-1)

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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+42

225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

226data

227(+1.4785407078045225, +0.28460983245170024), (+1.2309877202429331, +0.81959517939107385), (+1.9607993354266644, +0.31868423315311833), (+1.5167692962675279, +0.30866322352539644), (+1.2397924065145334, +0.35848622909639793), (+1.7960221667208298, +0.78826040458554114), (+1.9458823404333745, +0.28028105291094119E-1), (+1.6443639145427134, +0.10904269902393926), (+1.9548751255468799, +0.52273662156117706), (+1.9670218264865347, +0.40939225979773552), (+1.3200895357848839, +0.15810802486525699), (+1.7127123278442564, +0.43044678084846455), (+1.6496324463160519, +0.75977074583644433), (+1.4315789822369014, +0.84805678314518218), (+1.8073397058958462, +0.55319721414759027), (+1.6148352655973899, +0.44966115225409053E-1), (+1.1132993482372062, +0.33878472300499762), (+1.1041482962375619, +0.63355618206128994), (+1.9136664771889349, +0.92551897011679363), (+1.2817550061096177, +0.14988923531230447), (+1.1885592926926996, +0.76446640766648544), (+1.6879740401901371, +0.51399437149873906), (+1.5284594999889949, +0.14474330773216249E-1), (+1.7693295814562688, +0.49291939886216196), (+1.6614544430257150, +0.40198382099571384), (+1.2006692110303845, +0.49245666330979987), (+1.1149719694483309, +0.21831261565479454), (+1.4325116404378306, +0.54287417534523696), (+1.3462205259866424, +0.29713713076451220), (+1.5199915275227212, +0.55854142079505231E-1), (+1.3336180534071187, +0.61565366203910843), (+1.5661272913044082, +0.99131717820253007), (+1.9488465246309055, +0.24318696018355002), (+1.5378953605511141, +0.72142464375397430), (+1.7033335072043787, +0.79258031612043578), (+1.3700025008221139, +0.23303193264869082), (+1.5824407187436922, +0.41309660293310091), (+1.5498275900526850, +0.84194800982554407), (+1.3587713131297785, +0.27580400318135534), (+1.4812859910851031, +0.16104094992379325), (+1.2238508941605106, +0.21417243692987442), (+1.1903261411440451, +0.78124774895881000)

228

229adat = getFFTR(getFFTF(data)) / size(data)

230adat

231(+1.4785407078045223, +0.28460983245170013), (+1.2309877202429333, +0.81959517939107385), (+1.9607993354266644, +0.31868423315311833), (+1.5167692962675272, +0.30866322352539644), (+1.2397924065145329, +0.35848622909639793), (+1.7960221667208298, +0.78826040458554114), (+1.9458823404333747, +0.28028105291094178E-1), (+1.6443639145427136, +0.10904269902393919), (+1.9548751255468799, +0.52273662156117706), (+1.9670218264865345, +0.40939225979773558), (+1.3200895357848834, +0.15810802486525694), (+1.7127123278442558, +0.43044678084846455), (+1.6496324463160521, +0.75977074583644411), (+1.4315789822369016, +0.84805678314518240), (+1.8073397058958465, +0.55319721414759004), (+1.6148352655973899, +0.44966115225409234E-1), (+1.1132993482372064, +0.33878472300499768), (+1.1041482962375615, +0.63355618206128961), (+1.9136664771889342, +0.92551897011679363), (+1.2817550061096177, +0.14988923531230464), (+1.1885592926926998, +0.76446640766648533), (+1.6879740401901369, +0.51399437149873894), (+1.5284594999889951, +0.14474330773216290E-1), (+1.7693295814562693, +0.49291939886216196), (+1.6614544430257139, +0.40198382099571361), (+1.2006692110303843, +0.49245666330980004), (+1.1149719694483311, +0.21831261565479446), (+1.4325116404378304, +0.54287417534523696), (+1.3462205259866427, +0.29713713076451209), (+1.5199915275227214, +0.55854142079505308E-1), (+1.3336180534071189, +0.61565366203910843), (+1.5661272913044078, +0.99131717820252996), (+1.9488465246309046, +0.24318696018354988), (+1.5378953605511141, +0.72142464375397430), (+1.7033335072043789, +0.79258031612043567), (+1.3700025008221144, +0.23303193264869093), (+1.5824407187436922, +0.41309660293310085), (+1.5498275900526852, +0.84194800982554407), (+1.3587713131297776, +0.27580400318135517), (+1.4812859910851024, +0.16104094992379331), (+1.2238508941605106, +0.21417243692987442), (+1.1903261411440451, +0.78124774895880988)

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, T, T, T, 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+63

242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

243data

244(+1.15710640368120450351957807261594361, +0.124624455092058584161630519303340168), (+1.27937688974763943364405651800537281, +0.726886912534466908065610292589164477), (+1.55392523757084154455465067431100832, +0.757573642769461267953175722159791637), (+1.31156358070695943963073485301218573, +0.201144432558937816112377043250583157), (+1.48358863137837298679598193868448048, +0.721139429695078437613858813806863873E-1), (+1.42990024958871527333765083276562074, +0.418335115457042215765773631143551066), (+1.43369746509047381616611678803453819, +0.169170988702867854841373327190857095), (+1.63366891269594797679847411250447290, +0.642976535918668218890376466613331195), (+1.97619623764109498859359997336257415, +0.890553410654928862654103315516828381), (+1.24811048866855643935939258717109945, +0.888339748690111033125943902038478076), (+1.97822529476766247663137735691519888, +0.569301200062664811551989862859457889), (+1.51750555450502628145443999709033098, +0.204213306487661232307702285452343434E-1), (+1.16973277243761971249586544766790743, +0.411535202869237501419440436418852580), (+1.66303267059400460570050905987975099, +0.946629418112053716007134687764846605), (+1.47961767107863243913144782407532013, +0.136991848806764520649913856586661110), (+1.41898227631775037826316114019629966, +0.530573795464896515555241562572530003), (+1.22059632340424438740932261783449711, +0.141967051410096034966193078784652820E-1), (+1.81326987179718334162359862499746258, +0.526269437461711245015894986598651612), (+1.00124399087743165106968126865093735, +0.501051422363505309638223191675025001), (+1.04279419792971324399350097426805552, +0.529842186237072643954575492075991939), (+1.36054284553505598432830406607404085, +0.547843540917129795489436199033974690), (+1.92738650340572504912602550651971970, +0.996294297518590210410043049263722291), (+1.19242450126505937613962193152329822, +0.346700351200751053363188903070882589), (+1.39877034776128597541225686465572593, +0.727074040253040820361938079348167073), (+1.42942905967543552510371363378424583, +0.657732501534192620981519803456788773), (+1.21469586766409345379388475087921850, +0.731931307168668821549729501938932483), (+1.66142444038956232233528467567645191, +0.241498892373411609197132598353526129), (+1.92580634020540128113934018518696043, +0.357386436455609408322086993415147849), (+1.74329547460307386821240231765638899, +0.124784443627870351388012382927993330), (+1.63214521102083595394207526657616524, +0.145806250633027285659390942203328805), (+1.95493418988015597508507342521051985, +0.503211259393885296613979007818042205), (+1.35190329650116481718702406968899876, +0.872362476646786343770668582530002249), (+1.55394600466722915799113194704806464, +0.837176930619859633163947874195649100), (+1.07277124555357402991681301868136073, +0.692306196045648394857900190058726652), (+1.11525765391268231375736111656359510, +0.613854192557327066329724751079157031), (+1.70879107154532010553870665025446338, +0.669851376156982848989589445460637036), (+1.20949667214107712487466693580342411, +0.778587003358543932707503870735324967), (+1.72805334792579898043040064048666816, +0.744455194621072456013567017883513705), (+1.15843745027029695767685955236488498, +0.164897699393712164144806939407427965), (+1.75019519658146170873059799107861017, +0.720896744309510472032307612895398352), (+1.27408288918017464354574036340386899, +0.712037084613691196289506514249703990), (+1.49453318787829055597295183375236280, +0.786979582793680478254583963900446283), (+1.72336808195816994401143448187984189, +0.109445735428643711195326347804352130), (+1.80946815964058855172765208598984281, +0.198095432447344930441668820043270779), (+1.96142867721383565963189477466945169, +0.313278777429602485207997446541414998), (+1.89350206031783667162623937110554366, +0.213869336458403197948403151185230641), (+1.47994803023561263848637784839106976, +0.555427004132929157997426649527944337), (+1.72570829600470243030932578735483492, +0.866380998594819988130296583502306788E-1), (+1.49823871657593198886981056655292630, +0.595974469802579566397558529647847584), (+1.32979317772219188346616899285617558, +0.787193140287870086279544278019172020), (+1.23547711372670363038618346821813889, +0.488786472770172313831338521951253833), (+1.88449421934429628293045069935763996, +0.666798987938902940341555012603684041), (+1.17410131184683676033006497637358348, +0.134743895079917571829273455303072067), (+1.57516498198188722968077529666864204, +0.548245318668616511026502888921675323), (+1.41462876105108965731294367575153349, +0.919877133443623420356623949331437526), (+1.42178724484214986369841732936285473, +0.943530471449825626882125937568733761), (+1.47593009390214343166234299191194748, +0.627571899068890679886651769075585400), (+1.69504268443871880078157189567655561, +0.739484556384613035158409754966022551), (+1.87699852494945618282047834361126814, +0.339047390433273453741699235160377268E-1), (+1.74704937428327749168747587430839403, +0.844383304296043103839129001538645705), (+1.76419379712416124943497113648788872, +0.751151313717974966929646037558795623), (+1.98359949450915195606681064720631645, +0.411820724140629976711406351136859792), (+1.65244419928731561157231802726103495, +0.857804689272011206572687079302710826)

245

246adat = getFFTR(getFFTF(data)) / size(data)

247adat

248(+1.15710640368120450351957807261594399, +0.124624455092058584161630519303340276), (+1.27937688974763943364405651800537300, +0.726886912534466908065610292589164573), (+1.55392523757084154455465067431100871, +0.757573642769461267953175722159791637), (+1.31156358070695943963073485301218573, +0.201144432558937816112377043250583205), (+1.48358863137837298679598193868448048, +0.721139429695078437613858813806866160E-1), (+1.42990024958871527333765083276562132, +0.418335115457042215765773631143551162), (+1.43369746509047381616611678803453857, +0.169170988702867854841373327190857143), (+1.63366891269594797679847411250447290, +0.642976535918668218890376466613331292), (+1.97619623764109498859359997336257473, +0.890553410654928862654103315516828477), (+1.24811048866855643935939258717109984, +0.888339748690111033125943902038478076), (+1.97822529476766247663137735691519849, +0.569301200062664811551989862859457985), (+1.51750555450502628145443999709033079, +0.204213306487661232307702285452342411E-1), (+1.16973277243761971249586544766790801, +0.411535202869237501419440436418852628), (+1.66303267059400460570050905987975157, +0.946629418112053716007134687764846605), (+1.47961767107863243913144782407532052, +0.136991848806764520649913856586661303), (+1.41898227631775037826316114019630024, +0.530573795464896515555241562572530003), (+1.22059632340424438740932261783449750, +0.141967051410096034966193078784654189E-1), (+1.81326987179718334162359862499746258, +0.526269437461711245015894986598651804), (+1.00124399087743165106968126865093735, +0.501051422363505309638223191675024808), (+1.04279419792971324399350097426805571, +0.529842186237072643954575492075991939), (+1.36054284553505598432830406607404142, +0.547843540917129795489436199033974979), (+1.92738650340572504912602550651972008, +0.996294297518590210410043049263722387), (+1.19242450126505937613962193152329841, +0.346700351200751053363188903070882734), (+1.39877034776128597541225686465572632, +0.727074040253040820361938079348167073), (+1.42942905967543552510371363378424564, +0.657732501534192620981519803456788677), (+1.21469586766409345379388475087921869, +0.731931307168668821549729501938932387), (+1.66142444038956232233528467567645210, +0.241498892373411609197132598353526345), (+1.92580634020540128113934018518696120, +0.357386436455609408322086993415147753), (+1.74329547460307386821240231765638899, +0.124784443627870351388012382927993427), (+1.63214521102083595394207526657616582, +0.145806250633027285659390942203328805), (+1.95493418988015597508507342521052004, +0.503211259393885296613979007818042494), (+1.35190329650116481718702406968899876, +0.872362476646786343770668582530002249), (+1.55394600466722915799113194704806464, +0.837176930619859633163947874195649100), (+1.07277124555357402991681301868136092, +0.692306196045648394857900190058726652), (+1.11525765391268231375736111656359568, +0.613854192557327066329724751079157224), (+1.70879107154532010553870665025446357, +0.669851376156982848989589445460637228), (+1.20949667214107712487466693580342527, +0.778587003358543932707503870735324871), (+1.72805334792579898043040064048666854, +0.744455194621072456013567017883513705), (+1.15843745027029695767685955236488518, +0.164897699393712164144806939407427868), (+1.75019519658146170873059799107861017, +0.720896744309510472032307612895398448), (+1.27408288918017464354574036340386919, +0.712037084613691196289506514249704086), (+1.49453318787829055597295183375236338, +0.786979582793680478254583963900446380), (+1.72336808195816994401143448187984228, +0.109445735428643711195326347804352070), (+1.80946815964058855172765208598984281, +0.198095432447344930441668820043270755), (+1.96142867721383565963189477466945207, +0.313278777429602485207997446541415094), (+1.89350206031783667162623937110554385, +0.213869336458403197948403151185230785), (+1.47994803023561263848637784839106957, +0.555427004132929157997426649527944434), (+1.72570829600470243030932578735483530, +0.866380998594819988130296583502308232E-1), (+1.49823871657593198886981056655292707, +0.595974469802579566397558529647847584), (+1.32979317772219188346616899285617558, +0.787193140287870086279544278019172116), (+1.23547711372670363038618346821813927, +0.488786472770172313831338521951253881), (+1.88449421934429628293045069935764015, +0.666798987938902940341555012603684138), (+1.17410131184683676033006497637358348, +0.134743895079917571829273455303072284), (+1.57516498198188722968077529666864165, +0.548245318668616511026502888921675515), (+1.41462876105108965731294367575153368, +0.919877133443623420356623949331437623), (+1.42178724484214986369841732936285493, +0.943530471449825626882125937568733857), (+1.47593009390214343166234299191194787, +0.627571899068890679886651769075585496), (+1.69504268443871880078157189567655619, +0.739484556384613035158409754966022454), (+1.87699852494945618282047834361126872, +0.339047390433273453741699235160378170E-1), (+1.74704937428327749168747587430839423, +0.844383304296043103839129001538645705), (+1.76419379712416124943497113648788853, +0.751151313717974966929646037558795527), (+1.98359949450915195606681064720631683, +0.411820724140629976711406351136860032), (+1.65244419928731561157231802726103552, +0.857804689272011206572687079302711018)

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, T, 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+81

259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

260data

261+1.91545677, +1.31813288, +1.10001731, +1.56871784, +1.62347221, +1.06344712, +1.09471059, +1.47986674, +1.52093625, +1.68612313, +1.14434409, +1.66004539, +1.80703950, +1.60479677, +1.91323018, +1.01090229, +1.59564662, +1.29738057, +1.52373576, +1.81318831, +1.84298420, +1.49532843, +1.27746773, +1.31296647, +1.28975248, +1.86717916, +1.03184509, +1.59036124, +1.67844248, +1.67325783, +1.11928320, +1.10603046, +1.25005889, +1.71696663, +1.22871590, +1.90477991, +1.32643080, +1.83957100, +1.42899108, +1.75499499, +1.35440922, +1.57439756, +1.91005850, +1.09089422, +1.94862914, +1.26268482, +1.89954400, +1.62017810, +1.22668672, +1.12941265, +1.01660466, +1.82747769, +1.39155722, +1.90156460, +1.26782894, +1.61574471, +1.92718792, +1.15643752, +1.60367393, +1.76046562, +1.00518107, +1.17906237, +1.39138269, +1.15326738, +1.80313909, +1.61238670, +1.51897848, +1.37589216, +1.49194729, +1.39643121, +1.27294779, +1.44392729, +1.80596626, +1.33538985, +1.41875982, +1.80443513, +1.80203629, +1.56862044, +1.93855548, +1.20137334, +1.33704138

262

263adat = getFFTR(getFFTF(data)) / size(data)

264adat

265+1.91545653, +1.31813300, +1.10001755, +1.56871784, +1.62347221, +1.06344712, +1.09471047, +1.47986674, +1.52093613, +1.68612289, +1.14434397, +1.66004562, +1.80703926, +1.60479701, +1.91323018, +1.01090217, +1.59564686, +1.29738057, +1.52373576, +1.81318855, +1.84298444, +1.49532831, +1.27746785, +1.31296647, +1.28975248, +1.86717916, +1.03184509, +1.59036088, +1.67844248, +1.67325807, +1.11928308, +1.10603058, +1.25005901, +1.71696639, +1.22871602, +1.90477991, +1.32643056, +1.83957100, +1.42899132, +1.75499475, +1.35440934, +1.57439756, +1.91005826, +1.09089434, +1.94862926, +1.26268482, +1.89954400, +1.62017846, +1.22668660, +1.12941265, +1.01660478, +1.82747769, +1.39155746, +1.90156460, +1.26782858, +1.61574471, +1.92718804, +1.15643740, +1.60367405, +1.76046562, +1.00518107, +1.17906249, +1.39138269, +1.15326715, +1.80313897, +1.61238706, +1.51897812, +1.37589240, +1.49194717, +1.39643121, +1.27294791, +1.44392729, +1.80596626, +1.33538997, +1.41876018, +1.80443501, +1.80203629, +1.56862044, +1.93855536, +1.20137346, +1.33704138

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

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+32

276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

277data

278+1.6819156030108038, +1.1635544416855508, +1.6308333032539073, +1.1351783660111072, +1.5580168444939264, +1.3540664189503140, +1.7082326607690450, +1.7809056007641444, +1.2551317524482284, +1.9857564370699907, +1.4005015520449362, +1.6982485528120956, +1.4220183259887453, +1.3716964912424481, +1.2763018225916680, +1.7680518827331611, +1.5452483545509446, +1.0207007466370821, +1.0750277205480070, +1.9676373334771973, +1.2465671234268081, +1.0419995686651511, +1.6861131198600550, +1.6697663103301377, +1.1406889129475821, +1.5938319771134482, +1.1539451494439241, +1.3589384072339417, +1.9212779552609267, +1.6882353482136079, +1.4625712658088199, +1.6220807437461748

279

280adat = getFFTR(getFFTF(data)) / size(data)

281adat

282+1.6819156030108036, +1.1635544416855506, +1.6308333032539073, +1.1351783660111074, +1.5580168444939266, +1.3540664189503140, +1.7082326607690452, +1.7809056007641444, +1.2551317524482282, +1.9857564370699907, +1.4005015520449364, +1.6982485528120956, +1.4220183259887456, +1.3716964912424479, +1.2763018225916678, +1.7680518827331611, +1.5452483545509446, +1.0207007466370819, +1.0750277205480070, +1.9676373334771973, +1.2465671234268085, +1.0419995686651511, +1.6861131198600552, +1.6697663103301377, +1.1406889129475819, +1.5938319771134482, +1.1539451494439243, +1.3589384072339419, +1.9212779552609269, +1.6882353482136077, +1.4625712658088199, +1.6220807437461748

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

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+20

293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

294data

295+1.81613917744673194555127900108272959, +1.11566533573534817368933624357170606, +1.37859182184860027786352788085899662, +1.03171522869552646935571917141344875, +1.92979658116360835174744337552176719, +1.71113015577387120196156520904823647, +1.12588142343470113138855009417137988, +1.57121024225476993796358663661411375, +1.86848637097342684564306139252513783, +1.23344443191021813357639108875697689, +1.82679601121074285155690951769721321, +1.55642054064884452994030130628739919, +1.94774873958598269831963303108117756, +1.13876057184197097260255755047705809, +1.71745860620008043316208771395964607, +1.11518597071624551736432889249413240, +1.24639486964030604538754119081266454, +1.25655772126634886010173065520677726, +1.75710086880736944462624984709236081, +1.67526618909204078826949736081612875

296

297adat = getFFTR(getFFTF(data)) / size(data)

298adat

299+1.81613917744673194555127900108272959, +1.11566533573534817368933624357170568, +1.37859182184860027786352788085899623, +1.03171522869552646935571917141344856, +1.92979658116360835174744337552176719, +1.71113015577387120196156520904823647, +1.12588142343470113138855009417137988, +1.57121024225476993796358663661411394, +1.86848637097342684564306139252513783, +1.23344443191021813357639108875697708, +1.82679601121074285155690951769721321, +1.55642054064884452994030130628739919, +1.94774873958598269831963303108117756, +1.13876057184197097260255755047705809, +1.71745860620008043316208771395964607, +1.11518597071624551736432889249413240, +1.24639486964030604538754119081266454, +1.25655772126634886010173065520677726, +1.75710086880736944462624984709236081, +1.67526618909204078826949736081612894

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, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+95

310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

311data

312(+1.09274137, +0.898877621), (+1.31773877, +0.952246368), (+1.62102056, +0.793890417), (+1.81844234, +0.815390885), (+1.18054986, +0.215276480E-1), (+1.40229511, +0.703980088), (+1.89229870, +0.438737690), (+1.13132167, +0.514651299), (+1.86051774, +0.324435115), (+1.44866347, +0.150817156), (+1.30364227, +0.372285008), (+1.27231300, +0.210183382), (+1.28546739, +0.437583387), (+1.25165892, +0.730127454), (+1.69222462, +0.420828640), (+1.84550428, +0.616441250), (+1.62010050, +0.447381079), (+1.74487579, +0.375691056), (+1.06744695, +0.537617803E-1), (+1.42305386, +0.495354235), (+1.56269169, +0.903399229), (+1.36209559, +0.804077506), (+1.37233567, +0.354930520), (+1.92659366, +0.713851452E-1), (+1.47637236, +0.394812346), (+1.06477928, +0.204717100), (+1.83905602, +0.700549901), (+1.22077692, +0.411787212), (+1.41118443, +0.530514836), (+1.05336308, +0.797829032E-1), (+1.44774175, +0.450490713), (+1.87713504, +0.800724506), (+1.36204314, +0.176467299E-1), (+1.12071884, +0.912863195), (+1.18014121, +0.342762828), (+1.70040846, +0.576901317), (+1.89491284, +0.200067937), (+1.73386049, +0.671331644), (+1.61142850, +0.522097349), (+1.35491705, +0.311758935), (+1.80878901, +0.822193384), (+1.36278749, +0.369492769E-1), (+1.27219057, +0.172548354), (+1.52206230, +0.354557216), (+1.41165829, +0.806327581), (+1.41317463, +0.156862080), (+1.28214157, +0.392647743), (+1.74037218, +0.806945741), (+1.37939930, +0.417617977), (+1.54452527, +0.497724116), (+1.15907753, +0.686497629), (+1.35754931, +0.594559073), (+1.03841925, +0.586646974), (+1.25476742, +0.368618488), (+1.21345305, +0.900004566), (+1.04890478, +0.487516999), (+1.88017941, +0.508885145), (+1.75633025, +0.944937885), (+1.29728270, +0.199962854E-1), (+1.16884518, +0.550259113), (+1.59271002, +0.584222674), (+1.19506907, +0.208009362), (+1.80948985, +0.245550752), (+1.72368610, +0.694328964), (+1.03808761, +0.950738847), (+1.27319241, +0.127570212), (+1.88091922, +0.768038273), (+1.51107740, +0.697204173), (+1.73896480, +0.373213410), (+1.35044432, +0.783074856), (+1.75692344, +0.481950223), (+1.65047300, +0.919276893), (+1.38003564, +0.773099184), (+1.55864859, +0.411422253), (+1.41311049, +0.206923127), (+1.09761429, +0.837561548), (+1.49526536, +0.582132101), (+1.44646907, +0.281437814), (+1.62459230, +0.416403055), (+1.69576859, +0.458097458), (+1.71218681, +0.360265553), (+1.34400558, +0.894124210), (+1.76794147, +0.610368788), (+1.38385940, +0.816580892), (+1.86277747, +0.352060676), (+1.22722673, +0.774672031), (+1.56548190, +0.325689316), (+1.11119127, +0.717664242), (+1.65680861, +0.571062207), (+1.83910084, +0.104501367), (+1.56280255, +0.810433626E-1), (+1.17335582, +0.531123281), (+1.09205747, +0.715194523), (+1.91625261, +0.488090396), (+1.64763105, +0.201381922)

313

314adat = getFFTR(getFFTF(data)) / size(data)

315adat

316(+1.09274209, +0.898877859), (+1.31773806, +0.952246070), (+1.62102020, +0.793890059), (+1.81844211, +0.815390885), (+1.18054950, +0.215275418E-1), (+1.40229475, +0.703979969), (+1.89229870, +0.438737482), (+1.13132167, +0.514651120), (+1.86051786, +0.324435234), (+1.44866395, +0.150817171), (+1.30364239, +0.372285098), (+1.27231264, +0.210183367), (+1.28546762, +0.437583387), (+1.25165832, +0.730127454), (+1.69222462, +0.420828521), (+1.84550393, +0.616441190), (+1.62010014, +0.447380841), (+1.74487579, +0.375690907), (+1.06744647, +0.537614524E-1), (+1.42305493, +0.495354474), (+1.56269109, +0.903398991), (+1.36209524, +0.804077566), (+1.37233555, +0.354930669), (+1.92659354, +0.713851154E-1), (+1.47637236, +0.394812346), (+1.06477928, +0.204717070), (+1.83905578, +0.700549960), (+1.22077715, +0.411787421), (+1.41118503, +0.530515015), (+1.05336368, +0.797830448E-1), (+1.44774222, +0.450490922), (+1.87713492, +0.800724387), (+1.36204302, +0.176467896E-1), (+1.12071884, +0.912863135), (+1.18014109, +0.342762709), (+1.70040846, +0.576901376), (+1.89491284, +0.200067654), (+1.73385990, +0.671331584), (+1.61142933, +0.522097647), (+1.35491669, +0.311758995), (+1.80878878, +0.822193325), (+1.36278713, +0.369492583E-1), (+1.27219057, +0.172548279), (+1.52206230, +0.354557037), (+1.41165817, +0.806327641), (+1.41317463, +0.156862155), (+1.28214180, +0.392647952), (+1.74037278, +0.806946039), (+1.37939978, +0.417618066), (+1.54452550, +0.497724384), (+1.15907776, +0.686497748), (+1.35754907, +0.594559073), (+1.03841937, +0.586646855), (+1.25476706, +0.368618578), (+1.21345282, +0.900004685), (+1.04890454, +0.487516999), (+1.88017905, +0.508885026), (+1.75633109, +0.944938242), (+1.29728258, +0.199962016E-1), (+1.16884494, +0.550258994), (+1.59271002, +0.584222794), (+1.19506872, +0.208009213), (+1.80948985, +0.245550811), (+1.72368610, +0.694328785), (+1.03808749, +0.950738907), (+1.27319252, +0.127570376), (+1.88091946, +0.768038452), (+1.51107800, +0.697204173), (+1.73896515, +0.373213559), (+1.35044444, +0.783075094), (+1.75692368, +0.481950223), (+1.65047288, +0.919277012), (+1.38003552, +0.773099065), (+1.55864847, +0.411422163), (+1.41311014, +0.206923112), (+1.09761393, +0.837561488), (+1.49526620, +0.582132339), (+1.44646883, +0.281437755), (+1.62459219, +0.416402876), (+1.69576836, +0.458097607), (+1.71218646, +0.360265315), (+1.34400535, +0.894124091), (+1.76794195, +0.610368669), (+1.38385940, +0.816580832), (+1.86277759, +0.352060854), (+1.22722709, +0.774672508), (+1.56548190, +0.325689465), (+1.11119199, +0.717664361), (+1.65680861, +0.571062207), (+1.83910084, +0.104501434), (+1.56280243, +0.810432658E-1), (+1.17335570, +0.531123221), (+1.09205770, +0.715194523), (+1.91625285, +0.488090247), (+1.64763093, +0.201381862)

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, 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+95

327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

328data

329(+1.1856945086351929, +0.99672888402028803), (+1.9180690674161132, +0.85405326341601873), (+1.7217996040675079, +0.98828288023977995), (+1.2637285126600530, +0.95696803569009881), (+1.6941210284570107, +0.64927865574409838), (+1.7509918165842584, +0.62512742749479666), (+1.9146368802285307, +0.57483180774413767), (+1.6813390653322069, +0.24983833265590727), (+1.8955168810961498, +0.87854380270390930), (+1.5136285064194945, +0.30095932873958375), (+1.7500732692732739, +0.33362901816206847), (+1.1128171956214397, +0.98993941639483574), (+1.4423116669972278, +0.84171414180779403), (+1.4002091147550186, +0.78968687837213003E-1), (+1.1223811654193172, +0.14034326632763672), (+1.5840917542663473, +0.60914937591149376), (+1.8063545088760651, +0.59913847930841302), (+1.2330534609206734, +0.74402127803366513), (+1.9086617397516643, +0.38820205546164166), (+1.4238207720981113, +0.47535897295651897), (+1.5953829324422801, +0.25583017931343133), (+1.8331910829429545, +0.91775177588257695), (+1.8037056231625468, +0.30280827526411047), (+1.5638826512672770, +0.69270985003756780), (+1.2622746170804147, +0.27566351728208038), (+1.0679663992090660, +0.93936608556270984), (+1.5518533864098241, +0.16404421972620942), (+1.4136998351550965, +0.95351824549996633), (+1.1820594449216948, +0.51585460001080552), (+1.6075185741239131, +0.57222087932786325), (+1.8914418304372496, +0.37835319455673422), (+1.5179405345311294, +0.71882293291727795), (+1.0530042466135545, +0.25048350079359016E-1), (+1.9298587167449179, +0.99469111407759958), (+1.3597903691405797, +0.73165141195315231), (+1.8248865216852095, +0.63293284641448544), (+1.8224095715646520, +0.65826563554813866E-2), (+1.8618739097911989, +0.42781389617917764), (+1.4452994145661311, +0.79488704289906287), (+1.5172968815182211, +0.62490058175844776), (+1.4622698702218500, +0.90540785710941041E-1), (+1.3370912282529543, +0.32016284423431129), (+1.8170827003884324, +0.83118249356031182), (+1.9479278327950513, +0.49044397760866265), (+1.4896344290704238, +0.93886464324212004), (+1.8915718865838076, +0.12463815994733329), (+1.0611063935979164, +0.61555291486285180), (+1.4573582860367060, +0.77859624276164641), (+1.7453124492759073, +0.64230311912343907), (+1.3649536013991783, +0.43357191279117768), (+1.8420237279473026, +0.90045717288506733), (+1.5294265080712570, +0.86417963012098231), (+1.9230543799662292, +0.24446248181503749), (+1.9061520599566801, +0.24635130699802033), (+1.9946302792628292, +0.21329395003879448), (+1.8206849937333489, +0.53921703445886837), (+1.5739333632681312, +0.34197185817725728), (+1.5421483676321186, +0.30586084921590329), (+1.1117904859872207, +0.48649055858846380E-1), (+1.9813898529358638, +0.20767707872716779), (+1.7357909029166971, +0.49400350050832564), (+1.0191772144336746, +0.37405739197047749), (+1.0749269792556495, +0.63787978202287399), (+1.2296753763948860, +0.90913568703209235), (+1.0612378672456253, +0.91343738046402834E-1), (+1.4987065084707396, +0.34398470480447163), (+1.4563477203813326, +0.54199910546009278), (+1.5232277701960673, +0.15258697441917524), (+1.8910108376825483, +0.80573021793472066), (+1.6346515197867886, +0.26244331718110381), (+1.0865588981873566, +0.24364946139954324), (+1.0154201897531987, +0.44373046298696828), (+1.4538507282499302, +0.61364243174570576), (+1.4099899562653657, +0.16667172861293522), (+1.6726381634345178, +0.79741766038175743), (+1.9147288279828218, +0.51677069520616870), (+1.8182319366971214, +0.32298247211887599), (+1.7398703606504371, +0.67304994172190902), (+1.0370658067447533, +0.68139858255401720), (+1.3704802735465216, +0.43061450268216672), (+1.3244496266758703, +0.97064984283121558), (+1.6311135567374386, +0.19501970278892666), (+1.8103641011768006, +0.64450311712443809), (+1.8066982652124530, +0.61505672279037649), (+1.5532101932065221, +0.69175413896364835), (+1.0115581095096013, +0.67484312325719453), (+1.2104836438496531, +0.98056539681903321), (+1.5721191615697323, +0.69075469433787873), (+1.8056824368440467, +0.90188119606414374E-1), (+1.3981185698414691, +0.91183385657389759), (+1.8574375826657106, +0.36193918696047833), (+1.7582419784903576, +0.73907581182257953), (+1.8693050491324292, +0.87196602928931244), (+1.0426713275153228, +0.93522028262755685), (+1.8757564091881433, +0.87161798263274315)

330

331adat = getFFTR(getFFTF(data)) / size(data)

332adat

333(+1.1856945086351949, +0.99672888402028881), (+1.9180690674161123, +0.85405326341601806), (+1.7217996040675074, +0.98828288023977973), (+1.2637285126600524, +0.95696803569009858), (+1.6941210284570107, +0.64927865574409849), (+1.7509918165842586, +0.62512742749479655), (+1.9146368802285310, +0.57483180774413789), (+1.6813390653322073, +0.24983833265590724), (+1.8955168810961502, +0.87854380270390897), (+1.5136285064194956, +0.30095932873958414), (+1.7500732692732741, +0.33362901816206886), (+1.1128171956214399, +0.98993941639483585), (+1.4423116669972282, +0.84171414180779347), (+1.4002091147550184, +0.78968687837212809E-1), (+1.1223811654193181, +0.14034326632763661), (+1.5840917542663473, +0.60914937591149398), (+1.8063545088760646, +0.59913847930841269), (+1.2330534609206738, +0.74402127803366480), (+1.9086617397516636, +0.38820205546164122), (+1.4238207720981124, +0.47535897295651963), (+1.5953829324422788, +0.25583017931343105), (+1.8331910829429543, +0.91775177588257661), (+1.8037056231625461, +0.30280827526411047), (+1.5638826512672763, +0.69270985003756780), (+1.2622746170804149, +0.27566351728208011), (+1.0679663992090660, +0.93936608556270984), (+1.5518533864098236, +0.16404421972620911), (+1.4136998351550967, +0.95351824549996600), (+1.1820594449216957, +0.51585460001080574), (+1.6075185741239140, +0.57222087932786347), (+1.8914418304372496, +0.37835319455673427), (+1.5179405345311292, +0.71882293291727783), (+1.0530042466135543, +0.25048350079358753E-1), (+1.9298587167449179, +0.99469111407759969), (+1.3597903691405788, +0.73165141195315198), (+1.8248865216852082, +0.63293284641448511), (+1.8224095715646518, +0.65826563554810640E-2), (+1.8618739097911978, +0.42781389617917759), (+1.4452994145661329, +0.79488704289906320), (+1.5172968815182200, +0.62490058175844776), (+1.4622698702218491, +0.90540785710940958E-1), (+1.3370912282529532, +0.32016284423431102), (+1.8170827003884322, +0.83118249356031160), (+1.9479278327950516, +0.49044397760866210), (+1.4896344290704231, +0.93886464324211982), (+1.8915718865838078, +0.12463815994733372), (+1.0611063935979166, +0.61555291486285169), (+1.4573582860367067, +0.77859624276164641), (+1.7453124492759082, +0.64230311912343918), (+1.3649536013991785, +0.43357191279117729), (+1.8420237279473031, +0.90045717288506744), (+1.5294265080712570, +0.86417963012098231), (+1.9230543799662294, +0.24446248181503755), (+1.9061520599566804, +0.24635130699802027), (+1.9946302792628283, +0.21329395003879467), (+1.8206849937333482, +0.53921703445886826), (+1.5739333632681300, +0.34197185817725717), (+1.5421483676321210, +0.30586084921590395), (+1.1117904859872201, +0.48649055858845748E-1), (+1.9813898529358629, +0.20767707872716765), (+1.7357909029166962, +0.49400350050832542), (+1.0191772144336753, +0.37405739197047710), (+1.0749269792556493, +0.63787978202287365), (+1.2296753763948853, +0.90913568703209213), (+1.0612378672456253, +0.91343738046402584E-1), (+1.4987065084707396, +0.34398470480447169), (+1.4563477203813333, +0.54199910546009289), (+1.5232277701960679, +0.15258697441917546), (+1.8910108376825483, +0.80573021793472077), (+1.6346515197867884, +0.26244331718110314), (+1.0865588981873562, +0.24364946139954341), (+1.0154201897531980, +0.44373046298696811), (+1.4538507282499300, +0.61364243174570565), (+1.4099899562653653, +0.16667172861293514), (+1.6726381634345171, +0.79741766038175732), (+1.9147288279828207, +0.51677069520616814), (+1.8182319366971229, +0.32298247211887682), (+1.7398703606504360, +0.67304994172190846), (+1.0370658067447527, +0.68139858255401697), (+1.3704802735465211, +0.43061450268216639), (+1.3244496266758699, +0.97064984283121558), (+1.6311135567374382, +0.19501970278892622), (+1.8103641011768015, +0.64450311712443786), (+1.8066982652124532, +0.61505672279037638), (+1.5532101932065221, +0.69175413896364801), (+1.0115581095096013, +0.67484312325719475), (+1.2104836438496536, +0.98056539681903354), (+1.5721191615697323, +0.69075469433787784), (+1.8056824368440474, +0.90188119606414138E-1), (+1.3981185698414691, +0.91183385657389759), (+1.8574375826657104, +0.36193918696047817), (+1.7582419784903571, +0.73907581182257942), (+1.8693050491324281, +0.87196602928931222), (+1.0426713275153221, +0.93522028262755652), (+1.8757564091881418, +0.87161798263274293)

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, T, T, T, T, T, T, T, 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+27

344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

345data

346(+1.18075567239080085750959572120082330, +0.803090985895762925351094257795882858), (+1.53020322755472657281455912745437991, +0.723688113551025782811063470026057890), (+1.21076091478848556999391624154728226, +0.910477297342464376074066795975627976), (+1.09333083758672425265056632184975791, +0.485690063504371775103947385158798797), (+1.50832772705478625914113785340925030, +0.270658143580221176711729086778032225), (+1.79354728087342339495203584964285027, +0.470867996603828559317812453358407130), (+1.13226717413583385024666403658904981, +0.991687423600047142690061146211152484), (+1.21124540067785682354672705755491051, +0.612924485163994110016660885946259422), (+1.20178843673794084552541721498565279, +0.691526537496643306761708163493030566), (+1.10440390714451974149548876481325119, +0.280531301133932564161431737742149926), (+1.49853646725889323297295129000296725, +0.521645028768026405436972204358408521E-1), (+1.12071639381486909876776215703635863, +0.581438410867182504971165424848247976), (+1.22092538246870431186682576194836527, +0.576182527095380856134803549462501615), (+1.46566313691921265036281462402160255, +0.315621024949665194410255760837403633), (+1.90419493067808680452815546381377810, +0.264283424548916245593482558443869697), (+1.08791044984173157080521122996677685, +0.436021005647462891634290927955306601), (+1.85234520999097505218406716247728742, +0.701563905030582843727560685520893574), (+1.61154988042992234982453412398266362, +0.440980293133287663962648252780415226), (+1.28773827440625511391398795286908016, +0.780828107664892002648403293581063222), (+1.91855614901348463773939133370570180, +0.127709593286262776759575470638785827), (+1.12145591518038109125705679953937011, +0.466851670594588549087681590360260760E-2), (+1.59946174615554078628626283893189543, +0.597811615018919959661019683016882104), (+1.89612439854540200820886415312874597, +0.337537491080452840625564074020124410E-1), (+1.11270139939046985431709338644957444, +0.157360172049520460344203568796276091), (+1.15382205216704279496776272113235572, +0.107653803911311683725469151589570915), (+1.25180185824323838254608520647797594, +0.191781114723639718748141020021636855), (+1.09510721883503608325528869508879733, +0.121374558446279143801918611454095598)

347

348adat = getFFTR(getFFTF(data)) / size(data)

349adat

350(+1.18075567239080085750959572120082330, +0.803090985895762925351094257795882954), (+1.53020322755472657281455912745438010, +0.723688113551025782811063470026057794), (+1.21076091478848556999391624154728226, +0.910477297342464376074066795975627976), (+1.09333083758672425265056632184975791, +0.485690063504371775103947385158798845), (+1.50832772705478625914113785340925049, +0.270658143580221176711729086778032370), (+1.79354728087342339495203584964285027, +0.470867996603828559317812453358407130), (+1.13226717413583385024666403658904981, +0.991687423600047142690061146211152484), (+1.21124540067785682354672705755491070, +0.612924485163994110016660885946259325), (+1.20178843673794084552541721498565279, +0.691526537496643306761708163493030566), (+1.10440390714451974149548876481325138, +0.280531301133932564161431737742149926), (+1.49853646725889323297295129000296725, +0.521645028768026405436972204358408641E-1), (+1.12071639381486909876776215703635863, +0.581438410867182504971165424848247880), (+1.22092538246870431186682576194836527, +0.576182527095380856134803549462501615), (+1.46566313691921265036281462402160255, +0.315621024949665194410255760837403440), (+1.90419493067808680452815546381377791, +0.264283424548916245593482558443869649), (+1.08791044984173157080521122996677685, +0.436021005647462891634290927955306649), (+1.85234520999097505218406716247728762, +0.701563905030582843727560685520893478), (+1.61154988042992234982453412398266343, +0.440980293133287663962648252780415274), (+1.28773827440625511391398795286908016, +0.780828107664892002648403293581063222), (+1.91855614901348463773939133370570199, +0.127709593286262776759575470638785900), (+1.12145591518038109125705679953937011, +0.466851670594588549087681590360262566E-2), (+1.59946174615554078628626283893189524, +0.597811615018919959661019683016882008), (+1.89612439854540200820886415312874577, +0.337537491080452840625564074020124591E-1), (+1.11270139939046985431709338644957425, +0.157360172049520460344203568796276018), (+1.15382205216704279496776272113235572, +0.107653803911311683725469151589570963), (+1.25180185824323838254608520647797594, +0.191781114723639718748141020021636903), (+1.09510721883503608325528869508879714, +0.121374558446279143801918611454095610)

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

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+35

361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

362data

363+1.13114727, +1.12849593, +1.43519378, +1.80173349, +1.21109748, +1.75040996, +1.63489079, +1.37985182, +1.72882724, +1.23562014, +1.92719054, +1.78658152, +1.17570877, +1.94255793, +1.01965892, +1.24649537, +1.60326552, +1.16477776, +1.10584366, +1.55223751, +1.43246889, +1.20097578, +1.16778052, +1.39776492, +1.04499316, +1.41173673, +1.58116555, +1.16130304, +1.76444578, +1.36964154, +1.28160977, +1.46623302, +1.30842793, +1.56097305, +1.59184527

364

365adat = getFFTR(getFFTF(data)) / size(data)

366adat

367+1.13114715, +1.12849605, +1.43519354, +1.80173349, +1.21109748, +1.75040984, +1.63489079, +1.37985170, +1.72882724, +1.23562014, +1.92719054, +1.78658164, +1.17570865, +1.94255769, +1.01965904, +1.24649501, +1.60326552, +1.16477776, +1.10584378, +1.55223763, +1.43246853, +1.20097578, +1.16778040, +1.39776492, +1.04499340, +1.41173661, +1.58116567, +1.16130280, +1.76444566, +1.36964154, +1.28160965, +1.46623313, +1.30842781, +1.56097293, +1.59184551

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

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+8

378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

379data

380+1.3423037431784723, +1.5640996484969418, +1.2477779878292086, +1.3682829771105065, +1.0177767125352348, +1.1008876535878334, +1.9588275208947610, +1.3054905645916577

381

382adat = getFFTR(getFFTF(data)) / size(data)

383adat

384+1.3423037431784721, +1.5640996484969416, +1.2477779878292083, +1.3682829771105067, +1.0177767125352346, +1.1008876535878334, +1.9588275208947610, +1.3054905645916579

385reltol = sqrt(epsilon(1._TKG))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+44

395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

396data

397+1.33550350922150117084241262281088719, +1.54000810792477154800721542639867724, +1.22861085115987315105487703568820467, +1.99017262898497235491599089960657669, +1.08649385780228853814576798971507618, +1.20885808565556850094161200622484428, +1.78037713474139044155681536604589123, +1.19460471417417980792254267748563819, +1.61130394739435663977757477016446897, +1.47593458109967723705165251477594275, +1.75764467069102935901054876789115825, +1.18399071111471771428950123639478078, +1.30387050252848867135541966279182072, +1.73212910881603349748286801092987156, +1.32220764013280809803416826364306633, +1.25577202441549016323622107806857868, +1.27684939139171098696686157532013633, +1.97951004117343006138325281924533498, +1.20389824242834941864765067619026828, +1.46691885224272159751191571231061366, +1.79845641001481563190033962676870865, +1.86860104867660958186846155285037664, +1.23756220007347185293333173944870324, +1.01277017307129895075053498644927962, +1.25476874433133095596868451724072453, +1.49429792209740243959577117026647197, +1.81799987669925058084207390052149726, +1.98071605812726765794262118062364122, +1.67871933401251726468888674613833605, +1.12971963576044520422188892358803794, +1.39659400738992183464788531974443055, +1.19624952969324695202501639535404467, +1.94011876202763246875356981284774052, +1.26757157176968770167804308697655934, +1.73699808502871231402112460452452942, +1.10675881768751145825561682416329039, +1.72758002878532357705310831311684393, +1.73139890377443098251466667928421158, +1.49242318265677148894335477386947590, +1.39483604325930916349670784767175479, +1.36996791277390940793900224412229426, +1.54795089701670502837149323673555949, +1.58868917152185638116753973452125772, +1.67192897801524764052189200324796325

398

399adat = getFFTR(getFFTF(data)) / size(data)

400adat

401+1.33550350922150117084241262281088738, +1.54000810792477154800721542639867763, +1.22861085115987315105487703568820506, +1.99017262898497235491599089960657688, +1.08649385780228853814576798971507579, +1.20885808565556850094161200622484370, +1.78037713474139044155681536604589046, +1.19460471417417980792254267748563742, +1.61130394739435663977757477016446897, +1.47593458109967723705165251477594314, +1.75764467069102935901054876789115805, +1.18399071111471771428950123639478116, +1.30387050252848867135541966279182033, +1.73212910881603349748286801092987098, +1.32220764013280809803416826364306575, +1.25577202441549016323622107806857829, +1.27684939139171098696686157532013671, +1.97951004117343006138325281924533517, +1.20389824242834941864765067619026867, +1.46691885224272159751191571231061424, +1.79845641001481563190033962676870808, +1.86860104867660958186846155285037607, +1.23756220007347185293333173944870170, +1.01277017307129895075053498644927846, +1.25476874433133095596868451724072376, +1.49429792209740243959577117026647101, +1.81799987669925058084207390052149611, +1.98071605812726765794262118062364083, +1.67871933401251726468888674613833624, +1.12971963576044520422188892358803813, +1.39659400738992183464788531974443074, +1.19624952969324695202501639535404506, +1.94011876202763246875356981284774014, +1.26757157176968770167804308697655857, +1.73699808502871231402112460452452923, +1.10675881768751145825561682416329019, +1.72758002878532357705310831311684393, +1.73139890377443098251466667928421178, +1.49242318265677148894335477386947571, +1.39483604325930916349670784767175498, +1.36996791277390940793900224412229368, +1.54795089701670502837149323673555910, +1.58868917152185638116753973452125694, +1.67192897801524764052189200324796267

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

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+65

412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

413data

414(+1.49616313, +0.430419803), (+1.17029476, +0.363396525), (+1.02496302, +0.127978921), (+1.72773623, +0.742062509), (+1.62564373, +0.708907902), (+1.57068741, +0.187481165), (+1.03570676, +0.916154146), (+1.66768420, +0.990357399), (+1.19793212, +0.179355025), (+1.85431170, +0.688554823), (+1.26074100, +0.975754440), (+1.50357938, +0.276545405), (+1.93389153, +0.641781747), (+1.64824367, +0.824433088), (+1.02348995, +0.285011411), (+1.89423525, +0.750545740), (+1.89671946, +0.546838462), (+1.43530273, +0.385606229), (+1.61882210, +0.799985945), (+1.93281698, +0.797511101), (+1.30366421, +0.956237137), (+1.14304018, +0.509647071), (+1.75866628, +0.574341238), (+1.54895353, +0.441392183), (+1.49257529, +0.212126195), (+1.14600992, +0.516182184E-1), (+1.73940766, +0.192092478), (+1.78195310, +0.594519258), (+1.52358055, +0.846003473), (+1.53909135, +0.408479333), (+1.97966325, +0.452513754), (+1.66327143, +0.521300495), (+1.72966003, +0.410431325), (+1.41282225, +0.661331177), (+1.16976976, +0.253915012), (+1.47619259, +0.255097687), (+1.27006316, +0.608937442), (+1.82465649, +0.329958975), (+1.65658116, +0.303049207), (+1.97576761, +0.643149614), (+1.03537703, +0.355841458), (+1.55315471, +0.355435491), (+1.45481730, +0.632031679), (+1.71591341, +0.905715823E-1), (+1.62308371, +0.966474771), (+1.76137614, +0.354006290E-1), (+1.43068147, +0.194612086), (+1.42843544, +0.448814452), (+1.24929690, +0.616682887), (+1.19756699, +0.131439805), (+1.40207839, +0.245382190E-1), (+1.18232441, +0.756368279), (+1.62085795, +0.657238305), (+1.51783419, +0.411824763), (+1.59812069, +0.383748412E-1), (+1.24459040, +0.214403868E-1), (+1.71517932, +0.934011221), (+1.48671389, +0.755124927), (+1.43416429, +0.368417203), (+1.68552852, +0.942202628), (+1.28171062, +0.670759797), (+1.86390281, +0.413252711E-1), (+1.64218104, +0.637063503), (+1.91410780, +0.244503021E-1), (+1.82276714, +0.247566342)

415

416adat = getFFTR(getFFTF(data)) / size(data)

417adat

418(+1.49616289, +0.430419743), (+1.17029428, +0.363396436), (+1.02496290, +0.127978921), (+1.72773600, +0.742062509), (+1.62564325, +0.708907902), (+1.57068670, +0.187481046), (+1.03570676, +0.916154146), (+1.66768420, +0.990357518), (+1.19793189, +0.179354981), (+1.85431147, +0.688554823), (+1.26074088, +0.975754380), (+1.50357902, +0.276545435), (+1.93389118, +0.641781867), (+1.64824355, +0.824433208), (+1.02348948, +0.285011202), (+1.89423537, +0.750545740), (+1.89671934, +0.546838522), (+1.43530273, +0.385606289), (+1.61882186, +0.799986005), (+1.93281734, +0.797511280), (+1.30366445, +0.956237257), (+1.14303982, +0.509646952), (+1.75866628, +0.574341357), (+1.54895401, +0.441392332), (+1.49257493, +0.212126136), (+1.14600992, +0.516182110E-1), (+1.73940754, +0.192092448), (+1.78195286, +0.594519377), (+1.52358043, +0.846003592), (+1.53909147, +0.408479422), (+1.97966313, +0.452513754), (+1.66327095, +0.521300554), (+1.72966063, +0.410431504), (+1.41282272, +0.661331296), (+1.16976953, +0.253914922), (+1.47619259, +0.255097836), (+1.27006316, +0.608937562), (+1.82465672, +0.329958975), (+1.65658128, +0.303049266), (+1.97576737, +0.643149495), (+1.03537691, +0.355841428), (+1.55315459, +0.355435550), (+1.45481730, +0.632031858), (+1.71591330, +0.905716494E-1), (+1.62308359, +0.966474771), (+1.76137650, +0.354006849E-1), (+1.43068147, +0.194612071), (+1.42843509, +0.448814571), (+1.24929714, +0.616683066), (+1.19756699, +0.131439969), (+1.40207839, +0.245381873E-1), (+1.18232417, +0.756368339), (+1.62085783, +0.657238543), (+1.51783395, +0.411824763), (+1.59812069, +0.383749157E-1), (+1.24459052, +0.214403886E-1), (+1.71517920, +0.934011340), (+1.48671353, +0.755125046), (+1.43416464, +0.368417263), (+1.68552864, +0.942202628), (+1.28171039, +0.670759678), (+1.86390269, +0.413254090E-1), (+1.64218116, +0.637063742), (+1.91410780, +0.244503394E-1), (+1.82276702, +0.247566372)

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

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+99

429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

430data

431(+1.5844971650081303, +0.61598753946189833), (+1.0577013534092075, +0.91894259031839975), (+1.3586139072612990, +0.99276616828102515E-1), (+1.8492443531111777, +0.95954030011795655), (+1.6774831116723856, +0.59994991262460318), (+1.5098957499547745, +0.56970141499063798), (+1.2979411925461481, +0.75572828310340079), (+1.8613243735113023, +0.81019974459719513), (+1.9506760241672134, +0.47091824397218651), (+1.9421258262994692, +0.83406936218547811), (+1.7023063453725173, +0.79816873606645911), (+1.2080589767116987, +0.58465914325756008), (+1.5740426703254744, +0.84222320776826354), (+1.2870571636767565, +0.87700185762808991), (+1.9468844228925484, +0.10489869760010462), (+1.2165255548092160, +0.51597800848845610), (+1.4333305874226903, +0.68559875849154428), (+1.1554191049661655, +0.41242176837445232), (+1.4569188767737473, +0.47001200345126937), (+1.8451680217698456, +0.98184763429049571), (+1.5725374026763661, +0.74430479834888252), (+1.4551540752377936, +0.41150931625139409), (+1.2451693103792820, +0.64298119968579526), (+1.5985688629558394, +0.58934705228172002), (+1.1859526208545779, +0.19927690333368708), (+1.9928541701490561, +0.59334561570230315), (+1.0535657673986176, +0.54123511650338962), (+1.5092533301926041, +0.95840206116082904), (+1.6610782206507371, +0.51259883560170305), (+1.7842048275121944, +0.86119553342932975), (+1.3613261974795132, +0.24437384827493358E-1), (+1.4302006692998304, +0.21369965722319118), (+1.8002923873762708, +0.88797439499026365), (+1.6712845475872715, +0.44048461442692255E-1), (+1.8540354642039922, +0.66622090485254493), (+1.0923447717027683, +0.99345959396401951), (+1.5577210831581585, +0.31298314888423651), (+1.9934066426350296, +0.93297994482503988), (+1.2927767836052815, +0.12101275002772416), (+1.7224885084919126, +0.67465987088633661), (+1.9670564291837718, +0.52429318417763171), (+1.0318917029739230, +0.96446988762273256), (+1.9143973618051129, +0.80013866082795038), (+1.8776125760405371, +0.14530794062703556), (+1.0944464105376168, +0.73984053192648858), (+1.6302533594113542, +0.16305052268432907), (+1.4669043376089153, +0.59368704800247551), (+1.3781204217519472, +0.54684430831426467), (+1.0652882196186566, +0.75159657654538892), (+1.2261044182849625, +0.57198995727565238), (+1.4126987380411360, +0.67503279123173809), (+1.3352649695982197, +0.71444807502746044), (+1.7118939265224777, +0.28026838058194603), (+1.3599940313660364, +0.36580324545022103), (+1.9357996763868974, +0.95358345060360272), (+1.0387739597400640, +0.58112267412873420), (+1.5927013761332969, +0.60128901967761283), (+1.3543603417849868, +0.10009446577826819), (+1.7312694374553717, +0.74534600355288250), (+1.3787666361260520, +0.11806601938025452), (+1.2657515960988794, +0.63176285134567778), (+1.3975750485161682, +0.91688998886212769), (+1.0984765935814296, +0.95403290982356637), (+1.6941038528510277, +0.35922052576768537), (+1.9494356151384293, +0.89648700974167872), (+1.4087973878570950, +0.39495232993418261), (+1.4828160873552305, +0.55169026973504787E-1), (+1.0931534131875105, +0.60763635019239515), (+1.6225300560576819, +0.58141523759768199), (+1.3837607822547575, +0.29974390264715245), (+1.1590697689138376, +0.66252848957688959), (+1.6052286202261041, +0.30979451225713950), (+1.5625579351056533, +0.23980040857140639), (+1.0154408622278885, +0.12908653369935141), (+1.2015277682885852, +0.92522512994246342), (+1.9008790920499219, +0.88243683766559511), (+1.8443794484415257, +0.90822657591357869), (+1.3326617415824309, +0.72904161710199344), (+1.5427236048186690, +0.48493498172061222), (+1.6349418816201009, +0.67124785533620535), (+1.4744049966149615, +0.26637802436592084), (+1.7371719610397927, +0.32044295317086258), (+1.0999454197473479, +0.49992891424327168), (+1.4565913373917549, +0.80523929136225136), (+1.9884328555636461, +0.24650816813266740), (+1.4669334561159140, +0.95719291958832908), (+1.3407871659105419, +0.85582879881200180), (+1.8629659411109589, +0.38388732280106297), (+1.2567636345954158, +0.89349897719284921), (+1.1004392782894463, +0.49831503432883273), (+1.0955609621328648, +0.53192712781490559), (+1.9615519441903402, +0.27559305947026647), (+1.4450212424549638, +0.75335477789286487), (+1.5534972236725748, +0.93515868544613900), (+1.8386513532102473, +0.60829162654725755), (+1.2139705739580389, +0.95191855048853735), (+1.5980197452640592, +0.79923634422671097), (+1.3707608179616058, +0.35867141685736925), (+1.4483740438522439, +0.92316133818382395)

432

433adat = getFFTR(getFFTF(data)) / size(data)

434adat

435(+1.5844971650081310, +0.61598753946189866), (+1.0577013534092070, +0.91894259031839987), (+1.3586139072612990, +0.99276616828102668E-1), (+1.8492443531111782, +0.95954030011795677), (+1.6774831116723861, +0.59994991262460329), (+1.5098957499547743, +0.56970141499063787), (+1.2979411925461486, +0.75572828310340068), (+1.8613243735113025, +0.81019974459719513), (+1.9506760241672136, +0.47091824397218673), (+1.9421258262994692, +0.83406936218547800), (+1.7023063453725167, +0.79816873606645911), (+1.2080589767116992, +0.58465914325756041), (+1.5740426703254740, +0.84222320776826343), (+1.2870571636767569, +0.87700185762809002), (+1.9468844228925484, +0.10489869760010470), (+1.2165255548092160, +0.51597800848845621), (+1.4333305874226903, +0.68559875849154417), (+1.1554191049661651, +0.41242176837445238), (+1.4569188767737469, +0.47001200345126948), (+1.8451680217698458, +0.98184763429049593), (+1.5725374026763659, +0.74430479834888263), (+1.4551540752377925, +0.41150931625139420), (+1.2451693103792831, +0.64298119968579559), (+1.5985688629558388, +0.58934705228172013), (+1.1859526208545781, +0.19927690333368733), (+1.9928541701490567, +0.59334561570230338), (+1.0535657673986174, +0.54123511650338973), (+1.5092533301926034, +0.95840206116082904), (+1.6610782206507373, +0.51259883560170305), (+1.7842048275121940, +0.86119553342932953), (+1.3613261974795130, +0.24437384827493677E-1), (+1.4302006692998313, +0.21369965722319112), (+1.8002923873762702, +0.88797439499026354), (+1.6712845475872722, +0.44048461442692720E-1), (+1.8540354642039913, +0.66622090485254470), (+1.0923447717027688, +0.99345959396401951), (+1.5577210831581580, +0.31298314888423651), (+1.9934066426350294, +0.93297994482504010), (+1.2927767836052813, +0.12101275002772405), (+1.7224885084919126, +0.67465987088633661), (+1.9670564291837720, +0.52429318417763193), (+1.0318917029739227, +0.96446988762273267), (+1.9143973618051131, +0.80013866082795049), (+1.8776125760405367, +0.14530794062703564), (+1.0944464105376173, +0.73984053192648869), (+1.6302533594113540, +0.16305052268432896), (+1.4669043376089157, +0.59368704800247551), (+1.3781204217519476, +0.54684430831426489), (+1.0652882196186566, +0.75159657654538914), (+1.2261044182849625, +0.57198995727565227), (+1.4126987380411360, +0.67503279123173787), (+1.3352649695982199, +0.71444807502746044), (+1.7118939265224784, +0.28026838058194620), (+1.3599940313660364, +0.36580324545022119), (+1.9357996763868965, +0.95358345060360261), (+1.0387739597400654, +0.58112267412873420), (+1.5927013761332962, +0.60128901967761295), (+1.3543603417849868, +0.10009446577826855), (+1.7312694374553719, +0.74534600355288250), (+1.3787666361260520, +0.11806601938025470), (+1.2657515960988792, +0.63176285134567789), (+1.3975750485161684, +0.91688998886212747), (+1.0984765935814296, +0.95403290982356626), (+1.6941038528510275, +0.35922052576768548), (+1.9494356151384291, +0.89648700974167883), (+1.4087973878570945, +0.39495232993418267), (+1.4828160873552310, +0.55169026973505203E-1), (+1.0931534131875100, +0.60763635019239515), (+1.6225300560576814, +0.58141523759768199), (+1.3837607822547582, +0.29974390264715250), (+1.1590697689138376, +0.66252848957688970), (+1.6052286202261037, +0.30979451225713933), (+1.5625579351056527, +0.23980040857140644), (+1.0154408622278888, +0.12908653369935183), (+1.2015277682885850, +0.92522512994246353), (+1.9008790920499217, +0.88243683766559500), (+1.8443794484415255, +0.90822657591357858), (+1.3326617415824316, +0.72904161710199367), (+1.5427236048186683, +0.48493498172061228), (+1.6349418816201013, +0.67124785533620535), (+1.4744049966149617, +0.26637802436592117), (+1.7371719610397924, +0.32044295317086269), (+1.0999454197473479, +0.49992891424327185), (+1.4565913373917545, +0.80523929136225136), (+1.9884328555636461, +0.24650816813266777), (+1.4669334561159142, +0.95719291958832908), (+1.3407871659105417, +0.85582879881200191), (+1.8629659411109583, +0.38388732280106314), (+1.2567636345954174, +0.89349897719284910), (+1.1004392782894457, +0.49831503432883262), (+1.0955609621328648, +0.53192712781490570), (+1.9615519441903406, +0.27559305947026674), (+1.4450212424549636, +0.75335477789286498), (+1.5534972236725741, +0.93515868544613912), (+1.8386513532102478, +0.60829162654725755), (+1.2139705739580386, +0.95191855048853746), (+1.5980197452640594, +0.79923634422671086), (+1.3707608179616064, +0.35867141685736920), (+1.4483740438522430, +0.92316133818382373)

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, 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+93

446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

447data

448(+1.35312836239905228689227580627292894, +0.980434029703561354062892193434360709E-1), (+1.74713153855519103114682384725289577, +0.270334930940423992351886606004880656), (+1.92992579255095612630358484241448558, +0.204768650579716724629734123780604710), (+1.34062675092298943580310307126177844, +0.496946945435860138313539053111576126), (+1.28675955847457159456419197246234641, +0.588433371829569462030907842829330493), (+1.69268221259666294672321076855415746, +0.128781217449884685298650181330204706), (+1.95744625662155387697146438346168930, +0.365441081076949816016520575743727253), (+1.20159639075665290238796587281256680, +0.221973898823938935800440712511893984), (+1.52263312712071436810033871577200839, +0.276036979204371174225921204585223263), (+1.37251934721670038750086137930084014, +0.103816429553182933716584633503865156), (+1.38887652664815363305065996752452049, +0.656067652735704814547480114804713124), (+1.85711160705389233335332335327085233, +0.342788806422415586282010585175082723), (+1.18912937239596807516072383096844397, +0.885767292763194115870266744465354296), (+1.96011556364175712629597755995488351, +0.920200756145732310762858032496313904), (+1.90785132039146390377527900023291184, +0.618178708492119167346657449100376367), (+1.45161887156147901419987960134282377, +0.676689613114741415865142307998697851E-1), (+1.46760523865112744219255379850225163, +0.320653275384480288063436412956746478), (+1.89557987014933397260939372441959136, +0.644507326400802636304326053703265370), (+1.82339966891494550377960153887435026, +0.612936831751822624877368921461915959), (+1.45186376610930133972863963726709809, +0.733086944971098810151831277063300148), (+1.58217420170822117337571896105367564, +0.396412003836671410928859907985973880), (+1.99939950840919114038571302134026709, +0.715500616271399320401388409309261820), (+1.65262520513547263897482355430919651, +0.974045612098894125736698998857002305), (+1.84695966344461935181043237141622218, +0.229137210755535393049550324908969946), (+1.66887479592358457150718669999909422, +0.187059789334636775847363072001782750), (+1.86081677486712025575964515584620192, +0.963641320089571711447169153719385574), (+1.46110066813141807693770158353002177, +0.255742016383401945058951009291300526), (+1.34538640443976886122643099347972602, +0.927948710611617374580806264742542236), (+1.88425518942575141765861437068232900, +0.925141071230349445753159032548880613), (+1.67426597608059611686428049483569854, +0.473770723968750829474751348104285640E-1), (+1.15668818946749481116070805681840498, +0.249530901495120182399502465685052445), (+1.52312686716179726737376754581556956, +0.731524806829822329525070133493167624), (+1.03075365439087153372810136434911455, +0.325202474670497330782757872119687969), (+1.81296686698155042715126643422258366, +0.276771950221644031824364329367979661), (+1.82712150138340293871187497861413006, +0.702407945738893839937522614180262468), (+1.20124151399624210667066798650174032, +0.441159424365941019501345753147553803), (+1.64822773205075349305770440038980371, +0.514457858239573923733567906334419369), (+1.74870362996645787031266364779817709, +0.484659455966622252477220060555518013), (+1.14611751344104775851412966316945401, +0.480266461684979531312038721535675547), (+1.38647655009595391344634177077149479, +0.641059456574971864362529889539858200), (+1.93916115188161199080121647783076319, +0.415727011315060013111334759605117088), (+1.17184267586052483599656971471368815, +0.357971215161837087205360256773580698E-1), (+1.54391966057465745629388865128016983, +0.524523093951257245049431800279107258), (+1.92913518922398789790992415170333010, +0.921555345894235427821602060984460300), (+1.88321825883454481383259816795335535, +0.853143271723623901885885663316729249), (+1.75045335625815844183375461728183089, +0.833810838935792707398623726231928840), (+1.72524122725006661994030683597043565, +0.401774966728003691004055949270410466), (+1.13081266406820964801212152322484166, +0.423540097724725813099658680577093545), (+1.14719681675000701828247663967277976, +0.910563391101011485192643790952316921), (+1.11453257341407905218880123022597895, +0.719874773816610287920102292951805839), (+1.32075192108090102420954801499853746, +0.413500609235139550392499116056824532), (+1.77089462356983104940735990937112148, +0.856235658638550113466082154969737461), (+1.54421644925992716491883896998726985, +0.950189095187474824131387299994140992), (+1.23371678050144580747355923933120500, +0.229841894997744066283365288136799553), (+1.01769142938044342465773475905423707, +0.814758000649864360481417886634475378), (+1.19997179966092800813553587290098772, +0.680905529197344784488020802458883088), (+1.09070309067651694552808462028671581, +0.242029175059104076711890370075962423), (+1.98300417612593427873293744688688259, +0.670055191491810574984037915874300797), (+1.97846577426762117543133439753636876, +0.353124154032612878265076460333773449E-1), (+1.91595164841046097495230381590031450, +0.992418578445736977602666416869109112), (+1.05099154908321269401067980324339337, +0.540990381004985034140273791916404164), (+1.19218479340962106205571305884679402, +0.682371803703325731479336134464020376), (+1.96120539471994459346301292456452293, +0.709356008299094632019636945769324803), (+1.73606272173998421075529054390258811, +0.902948501448557845540421523117860706), (+1.17809846218978883664905198656584381, +0.380875534620763199819242551315608159), (+1.50100753211568074149156056139719458, +0.799040018929347471344929893980164803), (+1.27287373695825455198679704608416104, +0.568126413176471980614540511968126255), (+1.87969972787875211502325109494638223, +0.688315502803989815918702859945449640E-1), (+1.07121476891745998932020349824723144, +0.612728233057155855792743254939575318), (+1.57942442713607470269877774899240110, +0.792700239436603550552616202548593828), (+1.17701712251902774124903814415898097, +0.517581675631715349886373529667142901), (+1.69015954518431864282254429505425196, +0.577044514118914116196649632997608974), (+1.70735539218260669393769899636169112, +0.867408954527516836634105524806297099), (+1.45787057257820774047924748547244479, +0.910640991620331495469514740048703726), (+1.89445136515148948377446590209042282, +0.616445933762375249449994824109377117E-1), (+1.37462454896266814596906139552768683, +0.686422737015385034302821052226038095), (+1.96664205324508260947148440262995471, +0.832228844127022397786283176591305729), (+1.15650890431378336159379103056188070, +0.348448440327841344286837163068908652), (+1.78789397687817090051156605227412409, +0.387713825587425522955908718087310874E-1), (+1.07321534125226994938716229897312741, +0.404523608651170434735660100522746058), (+1.91433976265305210986377920486146819, +0.545848932688758090503299870866761865), (+1.07754754119616295960568452498058159, +0.550150052739631375792992923906145682), (+1.92899270458092641022393600587224646, +0.834385857680630763615915976653916769), (+1.11366851085569128315506327277321675, +0.368010976409689193479957301496086457), (+1.08371420003282005043832588773019032, +0.319960149216373464602207670167286400), (+1.22813609621316080925093618508752141, +0.640072081278997099912099170191952380), (+1.22358135162943578463247985251506391, +0.363956180982261410901184561922121331), (+1.47631770408401736531034089667441386, +0.581787349753228950936868156231478675), (+1.45547792490576528360912354225692543, +0.214659860067973239718450115594510210), (+1.17659546378401689048111331337479261, +0.692110222599981915387812106246280193), (+1.30319047561753145814649517598763404, +0.761071642852112218190975639007730748), (+1.25016636868633198456494785763096329, +0.865816619745079981446225578733105449), (+1.25682572487054587667254135957502957, +0.629811892300240760355545265372201995)

449

450adat = getFFTR(getFFTF(data)) / size(data)

451adat

452(+1.35312836239905228689227580627292894, +0.980434029703561354062892193434363598E-1), (+1.74713153855519103114682384725289499, +0.270334930940423992351886606004880752), (+1.92992579255095612630358484241448558, +0.204768650579716724629734123780604758), (+1.34062675092298943580310307126177786, +0.496946945435860138313539053111575838), (+1.28675955847457159456419197246234622, +0.588433371829569462030907842829330590), (+1.69268221259666294672321076855415707, +0.128781217449884685298650181330204802), (+1.95744625662155387697146438346168930, +0.365441081076949816016520575743727397), (+1.20159639075665290238796587281256699, +0.221973898823938935800440712511893960), (+1.52263312712071436810033871577200839, +0.276036979204371174225921204585223408), (+1.37251934721670038750086137930083995, +0.103816429553182933716584633503864963), (+1.38887652664815363305065996752452107, +0.656067652735704814547480114804713221), (+1.85711160705389233335332335327085252, +0.342788806422415586282010585175082771), (+1.18912937239596807516072383096844436, +0.885767292763194115870266744465354392), (+1.96011556364175712629597755995488409, +0.920200756145732310762858032496314001), (+1.90785132039146390377527900023291203, +0.618178708492119167346657449100376656), (+1.45161887156147901419987960134282396, +0.676689613114741415865142307998699295E-1), (+1.46760523865112744219255379850225183, +0.320653275384480288063436412956746478), (+1.89557987014933397260939372441959213, +0.644507326400802636304326053703265659), (+1.82339966891494550377960153887435103, +0.612936831751822624877368921461916152), (+1.45186376610930133972863963726709847, +0.733086944971098810151831277063300340), (+1.58217420170822117337571896105367545, +0.396412003836671410928859907985973735), (+1.99939950840919114038571302134026689, +0.715500616271399320401388409309261724), (+1.65262520513547263897482355430919689, +0.974045612098894125736698998857002498), (+1.84695966344461935181043237141622257, +0.229137210755535393049550324908969850), (+1.66887479592358457150718669999909460, +0.187059789334636775847363072001782726), (+1.86081677486712025575964515584620192, +0.963641320089571711447169153719385767), (+1.46110066813141807693770158353002138, +0.255742016383401945058951009291300622), (+1.34538640443976886122643099347972544, +0.927948710611617374580806264742542139), (+1.88425518942575141765861437068232881, +0.925141071230349445753159032548880517), (+1.67426597608059611686428049483569797, +0.473770723968750829474751348104285880E-1), (+1.15668818946749481116070805681840441, +0.249530901495120182399502465685052710), (+1.52312686716179726737376754581556975, +0.731524806829822329525070133493167913), (+1.03075365439087153372810136434911398, +0.325202474670497330782757872119687969), (+1.81296686698155042715126643422258404, +0.276771950221644031824364329367979661), (+1.82712150138340293871187497861412968, +0.702407945738893839937522614180262468), (+1.20124151399624210667066798650174051, +0.441159424365941019501345753147553658), (+1.64822773205075349305770440038980352, +0.514457858239573923733567906334419369), (+1.74870362996645787031266364779817728, +0.484659455966622252477220060555518013), (+1.14611751344104775851412966316945458, +0.480266461684979531312038721535675596), (+1.38647655009595391344634177077149518, +0.641059456574971864362529889539858681), (+1.93916115188161199080121647783076300, +0.415727011315060013111334759605117233), (+1.17184267586052483599656971471368854, +0.357971215161837087205360256773580217E-1), (+1.54391966057465745629388865128016964, +0.524523093951257245049431800279107065), (+1.92913518922398789790992415170332991, +0.921555345894235427821602060984460396), (+1.88321825883454481383259816795335554, +0.853143271723623901885885663316729442), (+1.75045335625815844183375461728183166, +0.833810838935792707398623726231928743), (+1.72524122725006661994030683597043584, +0.401774966728003691004055949270410755), (+1.13081266406820964801212152322484223, +0.423540097724725813099658680577093738), (+1.14719681675000701828247663967278054, +0.910563391101011485192643790952316728), (+1.11453257341407905218880123022597895, +0.719874773816610287920102292951806320), (+1.32075192108090102420954801499853823, +0.413500609235139550392499116056824773), (+1.77089462356983104940735990937112148, +0.856235658638550113466082154969737173), (+1.54421644925992716491883896998726947, +0.950189095187474824131387299994141184), (+1.23371678050144580747355923933120481, +0.229841894997744066283365288136799289), (+1.01769142938044342465773475905423746, +0.814758000649864360481417886634475763), (+1.19997179966092800813553587290098772, +0.680905529197344784488020802458883088), (+1.09070309067651694552808462028671581, +0.242029175059104076711890370075962495), (+1.98300417612593427873293744688688240, +0.670055191491810574984037915874300701), (+1.97846577426762117543133439753636857, +0.353124154032612878265076460333773148E-1), (+1.91595164841046097495230381590031431, +0.992418578445736977602666416869109016), (+1.05099154908321269401067980324339357, +0.540990381004985034140273791916404164), (+1.19218479340962106205571305884679345, +0.682371803703325731479336134464020376), (+1.96120539471994459346301292456452351, +0.709356008299094632019636945769324995), (+1.73606272173998421075529054390258734, +0.902948501448557845540421523117860995), (+1.17809846218978883664905198656584342, +0.380875534620763199819242551315608304), (+1.50100753211568074149156056139719438, +0.799040018929347471344929893980164610), (+1.27287373695825455198679704608416104, +0.568126413176471980614540511968126351), (+1.87969972787875211502325109494638280, +0.688315502803989815918702859945450001E-1), (+1.07121476891745998932020349824723144, +0.612728233057155855792743254939575414), (+1.57942442713607470269877774899240129, +0.792700239436603550552616202548593924), (+1.17701712251902774124903814415898136, +0.517581675631715349886373529667143093), (+1.69015954518431864282254429505425177, +0.577044514118914116196649632997608974), (+1.70735539218260669393769899636169131, +0.867408954527516836634105524806297099), (+1.45787057257820774047924748547244498, +0.910640991620331495469514740048704112), (+1.89445136515148948377446590209042301, +0.616445933762375249449994824109377598E-1), (+1.37462454896266814596906139552768721, +0.686422737015385034302821052226038191), (+1.96664205324508260947148440262995509, +0.832228844127022397786283176591305922), (+1.15650890431378336159379103056188070, +0.348448440327841344286837163068908796), (+1.78789397687817090051156605227412448, +0.387713825587425522955908718087312981E-1), (+1.07321534125226994938716229897312760, +0.404523608651170434735660100522746058), (+1.91433976265305210986377920486146896, +0.545848932688758090503299870866762154), (+1.07754754119616295960568452498058198, +0.550150052739631375792992923906145778), (+1.92899270458092641022393600587224723, +0.834385857680630763615915976653916865), (+1.11366851085569128315506327277321695, +0.368010976409689193479957301496086505), (+1.08371420003282005043832588773019012, +0.319960149216373464602207670167286400), (+1.22813609621316080925093618508752199, +0.640072081278997099912099170191952573), (+1.22358135162943578463247985251506410, +0.363956180982261410901184561922121379), (+1.47631770408401736531034089667441367, +0.581787349753228950936868156231478867), (+1.45547792490576528360912354225692505, +0.214659860067973239718450115594510114), (+1.17659546378401689048111331337479222, +0.692110222599981915387812106246280096), (+1.30319047561753145814649517598763365, +0.761071642852112218190975639007730459), (+1.25016636868633198456494785763096310, +0.865816619745079981446225578733105353), (+1.25682572487054587667254135957502900, +0.629811892300240760355545265372201995)

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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+90

463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

464data

465+1.09379756, +1.26649237, +1.11223245, +1.23265886, +1.37575674, +1.23045850, +1.11966431, +1.99220347, +1.65234828, +1.14561105, +1.39067495, +1.74195170, +1.82271552, +1.15804935, +1.96474159, +1.56742263, +1.30010140, +1.44431055, +1.65225506, +1.01901793, +1.60079432, +1.91468477, +1.39578032, +1.09817255, +1.70839083, +1.29889810, +1.07806373, +1.64627349, +1.84664488, +1.67301500, +1.58105767, +1.32682848, +1.91828501, +1.52893925, +1.96534276, +1.97433758, +1.50056624, +1.71010399, +1.23688567, +1.39507246, +1.58224857, +1.30140924, +1.98193264, +1.26016378, +1.77414334, +1.62893724, +1.07033944, +1.03419244, +1.70288920, +1.85012579, +1.98350310, +1.82989097, +1.93124413, +1.17859256, +1.39914227, +1.07194829, +1.30971193, +1.36228943, +1.85025001, +1.33499384, +1.98478758, +1.18985975, +1.75512123, +1.70881772, +1.81643367, +1.89270687, +1.92744219, +1.17469573, +1.50280368, +1.32395506, +1.20591879, +1.36322272, +1.56283462, +1.65710187, +1.20708036, +1.02584267, +1.05150223, +1.94513524, +1.74485469, +1.28057790, +1.28584361, +1.85900545, +1.52091789, +1.31709623, +1.00535905, +1.02030838, +1.55058634, +1.85453606, +1.48057008, +1.69934177

466

467adat = getFFTR(getFFTF(data)) / size(data)

468adat

469+1.09379745, +1.26649225, +1.11223209, +1.23265886, +1.37575638, +1.23045862, +1.11966395, +1.99220324, +1.65234780, +1.14561093, +1.39067447, +1.74195182, +1.82271528, +1.15804923, +1.96474099, +1.56742251, +1.30010092, +1.44431055, +1.65225542, +1.01901805, +1.60079432, +1.91468489, +1.39578032, +1.09817290, +1.70839083, +1.29889786, +1.07806349, +1.64627385, +1.84664476, +1.67301536, +1.58105755, +1.32682848, +1.91828477, +1.52893949, +1.96534252, +1.97433794, +1.50056648, +1.71010399, +1.23688555, +1.39507270, +1.58224845, +1.30140960, +1.98193252, +1.26016390, +1.77414274, +1.62893748, +1.07033944, +1.03419256, +1.70288920, +1.85012579, +1.98350275, +1.82989132, +1.93124390, +1.17859280, +1.39914238, +1.07194829, +1.30971181, +1.36228967, +1.85024977, +1.33499420, +1.98478770, +1.18985987, +1.75512087, +1.70881784, +1.81643355, +1.89270699, +1.92744231, +1.17469573, +1.50280333, +1.32395542, +1.20591867, +1.36322296, +1.56283486, +1.65710199, +1.20708036, +1.02584279, +1.05150211, +1.94513571, +1.74485457, +1.28057754, +1.28584337, +1.85900569, +1.52091777, +1.31709659, +1.00535905, +1.02030838, +1.55058622, +1.85453629, +1.48056984, +1.69934201

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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+92

480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

481data

482+1.7135011982902066, +1.2897674372209746, +1.8687235277095684, +1.2867260953047550, +1.2676906060776276, +1.6206617828147420, +1.9925921119037766, +1.2644811322533549, +1.9886977608150365, +1.7477873217526558, +1.9719061432085845, +1.9769071210219056, +1.1939571940626537, +1.9598678064857851, +1.9513118579934172, +1.7273501559456854, +1.2180859115146414, +1.4065711609117646, +1.8179257380156955, +1.6878185029287511, +1.7186531105397886, +1.9949260412008649, +1.1872446477839036, +1.8833876170021799, +1.7475094469461823, +1.4186512756032128, +1.1894912954974117, +1.2269087023700116, +1.5899818137401089, +1.7897337329597871, +1.0817113639264644, +1.1876817007153511, +1.4082093312929334, +1.4289157167919564, +1.2536474185883906, +1.1475674594247078, +1.9347816130696738, +1.8001993337881639, +1.8085327237726287, +1.9238457631411681, +1.2631168128756749, +1.3151415947881109, +1.8514998197339736, +1.9136240565474609, +1.2879380792715223, +1.0720608357908048, +1.7874299282827781, +1.4634043196717554, +1.7907229019251465, +1.2025332837688116, +1.2824152023909996, +1.4647096650070686, +1.9037219658118321, +1.0267520344658863, +1.0100072836823291, +1.5365858193682131, +1.6039278046826559, +1.8006725687453184, +1.6020424978437136, +1.5197466649422831, +1.9487276246053054, +1.0480235651934584, +1.3520180403184563, +1.8428588195955879, +1.1742993282276430, +1.5371810245278466, +1.1888009938583930, +1.9140518319208972, +1.1933834068477180, +1.6155417206973930, +1.4370079979391228, +1.4673630162919746, +1.1238192160774148, +1.8719103767787428, +1.3744524677888548, +1.9399399201090151, +1.0799839887652016, +1.0205347633496777, +1.4656504940765454, +1.0993235886953423, +1.5638653741875954, +1.7123073775970075, +1.4364565792655504, +1.4541858884192960, +1.9950987905568973, +1.2636275982630212, +1.8051347585241007, +1.4799702617119426, +1.0571605532697803, +1.6014052625950248, +1.3500396887017820, +1.1308495004530119

483

484adat = getFFTR(getFFTF(data)) / size(data)

485adat

486+1.7135011982902075, +1.2897674372209751, +1.8687235277095686, +1.2867260953047557, +1.2676906060776283, +1.6206617828147427, +1.9925921119037768, +1.2644811322533560, +1.9886977608150354, +1.7477873217526565, +1.9719061432085836, +1.9769071210219054, +1.1939571940626541, +1.9598678064857844, +1.9513118579934166, +1.7273501559456859, +1.2180859115146412, +1.4065711609117648, +1.8179257380156939, +1.6878185029287507, +1.7186531105397880, +1.9949260412008636, +1.1872446477839036, +1.8833876170021788, +1.7475094469461809, +1.4186512756032139, +1.1894912954974108, +1.2269087023700120, +1.5899818137401076, +1.7897337329597860, +1.0817113639264646, +1.1876817007153513, +1.4082093312929342, +1.4289157167919568, +1.2536474185883908, +1.1475674594247105, +1.9347816130696696, +1.8001993337881619, +1.8085327237726261, +1.9238457631411665, +1.2631168128756758, +1.3151415947881102, +1.8514998197339705, +1.9136240565474589, +1.2879380792715238, +1.0720608357908079, +1.7874299282827761, +1.4634043196717574, +1.7907229019251454, +1.2025332837688121, +1.2824152023910003, +1.4647096650070695, +1.9037219658118294, +1.0267520344658880, +1.0100072836823291, +1.5365858193682120, +1.6039278046826568, +1.8006725687453149, +1.6020424978437098, +1.5197466649422844, +1.9487276246053014, +1.0480235651934604, +1.3520180403184556, +1.8428588195955873, +1.1742993282276442, +1.5371810245278461, +1.1888009938583934, +1.9140518319208961, +1.1933834068477172, +1.6155417206973930, +1.4370079979391215, +1.4673630162919755, +1.1238192160774145, +1.8719103767787417, +1.3744524677888543, +1.9399399201090135, +1.0799839887652014, +1.0205347633496791, +1.4656504940765447, +1.0993235886953427, +1.5638653741875959, +1.7123073775970061, +1.4364565792655501, +1.4541858884192962, +1.9950987905568967, +1.2636275982630223, +1.8051347585240993, +1.4799702617119426, +1.0571605532697814, +1.6014052625950252, +1.3500396887017827, +1.1308495004530126

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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+95

497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

498data

499+1.62891454250082219880148301021001950, +1.94191087669725026796920821695149354, +1.46592056148655543801351858397694432, +1.08418641201693361504480585640115716, +1.82111266961649174821442945443605396, +1.87490843652320074862280603711372737, +1.73976194375397271412980196768237231, +1.31112411994081233849679118626355710, +1.01510693576179282803535429857695295, +1.59040323385884256306533581334296703, +1.21347573779951327733734694786647175, +1.71390308100531843063156426834773912, +1.28487532519059327059171601468139661, +1.27587582960169981449917244821054993, +1.60020331064555285535628359108248987, +1.26813698966232810775228108721980649, +1.66899083207233199961257116027962318, +1.57369639365618735196740451394403639, +1.37360133498382582426852423138363044, +1.28153299794248325252824302587858635, +1.18192721705663968827720287609515049, +1.69642429755796282911033231957775621, +1.73592372586027918083120171955162140, +1.41584400213772009910409124551304221, +1.09277462641398589433511842806066361, +1.54374007595384784541038157758602955, +1.30101607440605373223363259264780819, +1.14331057464679281258904993203468390, +1.24066748355474700704440850862375338, +1.67026778674090059661297354483178947, +1.95811427598479965787180927930905266, +1.36872021515454876733394510635977164, +1.81397092643550338670866078045594536, +1.40169055011205998430438670586908087, +1.83994450344330038973954146548118462, +1.76606835188399364044856826224463030, +1.84593890193857680808004915197472408, +1.72972294978269988177635040740310737, +1.65601424271907768133673852645088623, +1.24841070539496513353266192924435956, +1.58854174429101594537007327174123714, +1.41147211318885336706038959612161604, +1.70314603717125745999665274379327717, +1.77711874149708890379851645082295965, +1.89171129531657602146977529722988952, +1.66107565914077828156786561998657474, +1.25422065056872266067179146849028172, +1.17573370722463232463568462796693091, +1.97243920903465644957518795951689840, +1.68231906746378117136436883622855643, +1.29148807302875219144498063268746041, +1.43552730795303407363214450520825978, +1.31664112767561061944820257473609668, +1.64896080009711010276239853016653631, +1.44247640142308191391854803283939397, +1.86942592633967620881194387950697686, +1.07086314384794298503011270972304487, +1.74597210812311618438893573852911034, +1.68781801381369760163923087891711109, +1.67678122282635803520366869069812603, +1.24208375773413434930623058205768711, +1.93798927924149052366889265275256840, +1.88320627410266447576787426669175641, +1.32593984902060415597842330455731794, +1.10057735876527904781910594371871790, +1.34723218216289844577644987624781244, +1.89897316198561025764674484621011236, +1.11042511764037879491653716743502491, +1.97001763556855228013380617522072697, +1.71644067733354586774875811681470480, +1.58593438148269257047768113838739094, +1.85359053423542588259465586368342763, +1.85862106234207205191016818373258050, +1.82803240743821990774332382768125133, +1.48031819154139373214621515628442677, +1.36782199626718328563109238033690442, +1.13896214819807836766086464678079184, +1.09312556443016919033402274335705168, +1.54103510398842358744912688258871702, +1.03913801495505970492785372998830139, +1.63238709631372538540786224347766820, +1.34289429467444762901250297798985951, +1.85969331400236177676026171406220654, +1.00695697002081461695648825648684480, +1.41282478056040580326253485869077497, +1.36239801620368428396785705837807689, +1.18789789776374468848556371604950859, +1.94239793543375573826657431584333670, +1.53030478790379111172903964942417435, +1.68802109720704171933946356908002745, +1.73441808506710474443587668124572445, +1.50184586816166166249390877976677127, +1.42727573930001363033153469752419450, +1.35017614456658609435286630118001753, +1.55585031897616558742383900900272375

500

501adat = getFFTR(getFFTF(data)) / size(data)

502adat

503+1.62891454250082219880148301021001873, +1.94191087669725026796920821695149374, +1.46592056148655543801351858397694316, +1.08418641201693361504480585640115658, +1.82111266961649174821442945443605319, +1.87490843652320074862280603711372756, +1.73976194375397271412980196768237154, +1.31112411994081233849679118626355594, +1.01510693576179282803535429857695237, +1.59040323385884256306533581334296626, +1.21347573779951327733734694786647252, +1.71390308100531843063156426834773970, +1.28487532519059327059171601468139642, +1.27587582960169981449917244821055032, +1.60020331064555285535628359108248968, +1.26813698966232810775228108721980611, +1.66899083207233199961257116027962241, +1.57369639365618735196740451394403639, +1.37360133498382582426852423138363025, +1.28153299794248325252824302587858577, +1.18192721705663968827720287609515068, +1.69642429755796282911033231957775814, +1.73592372586027918083120171955162333, +1.41584400213772009910409124551304318, +1.09277462641398589433511842806066303, +1.54374007595384784541038157758602917, +1.30101607440605373223363259264780742, +1.14331057464679281258904993203468236, +1.24066748355474700704440850862375319, +1.67026778674090059661297354483179024, +1.95811427598479965787180927930905420, +1.36872021515454876733394510635977222, +1.81397092643550338670866078045594670, +1.40169055011205998430438670586908145, +1.83994450344330038973954146548118597, +1.76606835188399364044856826224463030, +1.84593890193857680808004915197472446, +1.72972294978269988177635040740310699, +1.65601424271907768133673852645088642, +1.24841070539496513353266192924435763, +1.58854174429101594537007327174123810, +1.41147211318885336706038959612161758, +1.70314603717125745999665274379327948, +1.77711874149708890379851645082296119, +1.89171129531657602146977529722989067, +1.66107565914077828156786561998657301, +1.25422065056872266067179146849027749, +1.17573370722463232463568462796692706, +1.97243920903465644957518795951689705, +1.68231906746378117136436883622855432, +1.29148807302875219144498063268745579, +1.43552730795303407363214450520825747, +1.31664112767561061944820257473609456, +1.64896080009711010276239853016653246, +1.44247640142308191391854803283939051, +1.86942592633967620881194387950698033, +1.07086314384794298503011270972304448, +1.74597210812311618438893573852911150, +1.68781801381369760163923087891711341, +1.67678122282635803520366869069812718, +1.24208375773413434930623058205768595, +1.93798927924149052366889265275256860, +1.88320627410266447576787426669175776, +1.32593984902060415597842330455731621, +1.10057735876527904781910594371871598, +1.34723218216289844577644987624781321, +1.89897316198561025764674484621011371, +1.11042511764037879491653716743502395, +1.97001763556855228013380617522072928, +1.71644067733354586774875811681470595, +1.58593438148269257047768113838739075, +1.85359053423542588259465586368342860, +1.85862106234207205191016818373258185, +1.82803240743821990774332382768125172, +1.48031819154139373214621515628442715, +1.36782199626718328563109238033690519, +1.13896214819807836766086464678079242, +1.09312556443016919033402274335705129, +1.54103510398842358744912688258871798, +1.03913801495505970492785372998830081, +1.63238709631372538540786224347766820, +1.34289429467444762901250297798985893, +1.85969331400236177676026171406220692, +1.00695697002081461695648825648684403, +1.41282478056040580326253485869077459, +1.36239801620368428396785705837807766, +1.18789789776374468848556371604950897, +1.94239793543375573826657431584333651, +1.53030478790379111172903964942417493, +1.68802109720704171933946356908002765, +1.73441808506710474443587668124572426, +1.50184586816166166249390877976677089, +1.42727573930001363033153469752419354, +1.35017614456658609435286630118001715, +1.55585031897616558742383900900272317

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

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.

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.
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 1156 of file pm_fftpack.F90.

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

src/fortran/main/pm_fftpack.F90