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

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

5data

6(+1.78137290, +0.306073785), (+1.53670907, +0.385100782), (+1.81445122, +0.585945547), (+1.10873389, +0.172220945), (+1.90537548, +0.799761474), (+1.23514676, +0.640592098), (+1.79716611, +0.980209231), (+1.40215147, +0.950236320), (+1.23775864, +0.256238639), (+1.86949754, +0.193507433), (+1.40364647, +0.361944556), (+1.40156829, +0.393245578), (+1.03227437, +0.256308556), (+1.00710678, +0.321561635), (+1.03045177, +0.550856829), (+1.18729448, +0.665383935), (+1.44319427, +0.413870275), (+1.19882011, +0.906723142E-1), (+1.81361222, +0.414839566), (+1.39504302, +0.947797477), (+1.37350452, +0.707157314), (+1.99403381, +0.235118091), (+1.79113984, +0.890463591), (+1.80087304, +0.315618336), (+1.89481997, +0.901872814), (+1.62285435, +0.787594795), (+1.06588769, +0.724198997), (+1.97749496, +0.409626067), (+1.23957026, +0.751858354), (+1.81333423, +0.152878761E-1), (+1.74103999, +0.729766607), (+1.58840287, +0.262137115), (+1.03054357, +0.577110469), (+1.93966985, +0.793894231), (+1.21714878, +0.942922235E-1), (+1.97049785, +0.386180282E-1), (+1.16493845, +0.504271865), (+1.42094707, +0.535684466), (+1.08268988, +0.293312490), (+1.99340165, +0.808410048E-1), (+1.46874166, +0.461734533), (+1.95837796, +0.180088639), (+1.13858461, +0.794159472), (+1.92122126, +0.622599721), (+1.41277766, +0.244922459), (+1.68627691, +0.671816468), (+1.99973738, +0.279168427), (+1.00404596, +0.931607723), (+1.01484728, +0.550975263), (+1.34334779, +0.927981973), (+1.59467399, +0.621767938), (+1.16416430, +0.917440474), (+1.25773597, +0.300512373), (+1.88314891, +0.137458265)

7

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

9adat

10(+1.78137290, +0.306073785), (+1.53670907, +0.385100693), (+1.81445146, +0.585945547), (+1.10873377, +0.172220901), (+1.90537572, +0.799761593), (+1.23514652, +0.640592098), (+1.79716623, +0.980209231), (+1.40215158, +0.950236201), (+1.23775864, +0.256238669), (+1.86949742, +0.193507403), (+1.40364659, +0.361944586), (+1.40156841, +0.393245548), (+1.03227448, +0.256308585), (+1.00710690, +0.321561635), (+1.03045166, +0.550856888), (+1.18729460, +0.665383935), (+1.44319451, +0.413870245), (+1.19881999, +0.906723514E-1), (+1.81361222, +0.414839566), (+1.39504290, +0.947797418), (+1.37350464, +0.707157254), (+1.99403369, +0.235118046), (+1.79114008, +0.890463591), (+1.80087280, +0.315618336), (+1.89482009, +0.901872873), (+1.62285447, +0.787594676), (+1.06588793, +0.724198937), (+1.97749472, +0.409626007), (+1.23957050, +0.751858294), (+1.81333411, +0.152878230E-1), (+1.74103999, +0.729766607), (+1.58840275, +0.262137204), (+1.03054345, +0.577110529), (+1.93966985, +0.793894291), (+1.21714890, +0.942922011E-1), (+1.97049773, +0.386180095E-1), (+1.16493845, +0.504271805), (+1.42094696, +0.535684347), (+1.08268988, +0.293312490), (+1.99340153, +0.808410943E-1), (+1.46874189, +0.461734563), (+1.95837772, +0.180088639), (+1.13858485, +0.794159472), (+1.92122138, +0.622599721), (+1.41277778, +0.244922459), (+1.68627679, +0.671816528), (+1.99973738, +0.279168427), (+1.00404584, +0.931607723), (+1.01484740, +0.550975323), (+1.34334779, +0.927981913), (+1.59467387, +0.621767938), (+1.16416419, +0.917440474), (+1.25773621, +0.300512373), (+1.88314879, +0.137458339)

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

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

17

18lenData = getUnifRand(5, 100)

19lenData

20+78

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

22data

23(+1.8514881740389719, +0.25788180153786477E-1), (+1.0747683864024788, +0.80614345218657768), (+1.2267977632675273, +0.87527523084874881E-2), (+1.3533697646349887, +0.47367813874814313), (+1.5240568432432378, +0.18624497230086345), (+1.7904561194139852, +0.37696902571799940), (+1.4868645522424879, +0.38613583194126944), (+1.4812209321359255, +0.30680076437936510), (+1.6156778330908774, +0.34454620100107503), (+1.7676533776394148, +0.46140078364854131), (+1.4672967076440979, +0.96135270136608286), (+1.2076973420553734, +0.13868330578602917), (+1.5711469418161386, +0.60250050037179426E-2), (+1.4668515287880748, +0.80160176271922290E-1), (+1.0448858771319403, +0.85432298158912079), (+1.5257568490694489, +0.67086954062989346), (+1.2677190425103886, +0.85986554979692376), (+1.0860696472606455, +0.75100762917959007), (+1.2077218371636702, +0.47523464632750878), (+1.1844129947662720, +0.13503514699381591), (+1.5329456920898934, +0.69472071878192154E-1), (+1.8493079624326065, +0.90550283850183821E-1), (+1.5639164381478952, +0.79291154298041300), (+1.2251794580256519, +0.81826660220750003), (+1.7571179490635678, +0.89700799004683451), (+1.6077314284799513, +0.11430177509162254), (+1.2949302581195339, +0.32812206354236217), (+1.4720721090121140, +0.66502305637920311), (+1.4665541189614193, +0.74774804717911425), (+1.4910000314700738, +0.53704639914272312), (+1.0482290231861822, +0.14938587697783001E-1), (+1.5817710023667448, +0.92250967210123458), (+1.7506355200341392, +0.26641957889795487), (+1.9348601008107329, +0.39170496650240649), (+1.2131409820684946, +0.50433991937792777), (+1.4119198090182752, +0.92872256399573694), (+1.2105289607781229, +0.10729412563084384), (+1.4099482177573468, +0.76434293831398270), (+1.3900899169387659, +0.39239578573191136), (+1.7625166381666357, +0.43752966558947859), (+1.7804061733360323, +0.82312696140167718), (+1.6852988847480399, +0.73099638799646860), (+1.7719796155773180, +0.80363479310595809), (+1.8275180984128490, +0.11722060235020204E-1), (+1.1368301273409469, +0.76887249265764113), (+1.2106762865084781, +0.25522449236963340), (+1.9418217630331069, +0.33063669021079134), (+1.5904139300526006, +0.36577435719013551), (+1.5928473172805901, +0.46397377551829211), (+1.1921202119543866, +0.54039498636825589), (+1.7317075327040643, +0.51723265427312537E-1), (+1.6378263382095839, +0.55386274007440417), (+1.8048460298543314, +0.10077335691560974), (+1.2996707378855281, +0.50673215919602210), (+1.7828503426733935, +0.64949677564925179), (+1.4664350077690451, +0.53321114107525946), (+1.7024895334696000, +0.83856612466784097), (+1.8636649545880231, +0.41292476974546299), (+1.4387697050898622, +0.50914130077197184), (+1.0892852802316191, +0.97615976410926075), (+1.8265139834737325, +0.41018445603667886), (+1.5150089101951645, +0.28316052506152789), (+1.0564742903333821, +0.43891556915237606), (+1.5793933803878200, +0.49790007656639101), (+1.0304349331691181, +0.78681608226500632), (+1.8972481415659501, +0.73169229162016380), (+1.2512017111886968, +0.44074175044563213), (+1.8570083700121662, +0.92097036312114178), (+1.9162675646942697, +0.20087409268038015), (+1.7570047733409280, +0.42559118665980977), (+1.0645390068616454, +0.12110324403646233), (+1.8384823548305571, +0.19684145728775182), (+1.3292468946145233, +0.51412464433760452), (+1.6889546238708142, +0.97324283940825351), (+1.2314797493722782, +0.18833761954454276), (+1.8590622766435518, +0.64349258172383050), (+1.4435778422612220, +0.29843952313138422), (+1.2378696188141589, +0.55369538161125764)

24

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

26adat

27(+1.8514881740389713, +0.25788180153786477E-1), (+1.0747683864024797, +0.80614345218657768), (+1.2267977632675278, +0.87527523084875939E-2), (+1.3533697646349889, +0.47367813874814318), (+1.5240568432432382, +0.18624497230086343), (+1.7904561194139852, +0.37696902571799940), (+1.4868645522424870, +0.38613583194126921), (+1.4812209321359242, +0.30680076437936488), (+1.6156778330908774, +0.34454620100107491), (+1.7676533776394148, +0.46140078364854120), (+1.4672967076440986, +0.96135270136608308), (+1.2076973420553738, +0.13868330578602950), (+1.5711469418161397, +0.60250050037183381E-2), (+1.4668515287880741, +0.80160176271921943E-1), (+1.0448858771319409, +0.85432298158912123), (+1.5257568490694489, +0.67086954062989357), (+1.2677190425103888, +0.85986554979692409), (+1.0860696472606455, +0.75100762917959007), (+1.2077218371636700, +0.47523464632750817), (+1.1844129947662709, +0.13503514699381591), (+1.5329456920898927, +0.69472071878192196E-1), (+1.8493079624326061, +0.90550283850183641E-1), (+1.5639164381478956, +0.79291154298041278), (+1.2251794580256516, +0.81826660220750014), (+1.7571179490635676, +0.89700799004683496), (+1.6077314284799520, +0.11430177509162280), (+1.2949302581195334, +0.32812206354236179), (+1.4720721090121147, +0.66502305637920311), (+1.4665541189614204, +0.74774804717911425), (+1.4910000314700740, +0.53704639914272312), (+1.0482290231861826, +0.14938587697783235E-1), (+1.5817710023667448, +0.92250967210123436), (+1.7506355200341381, +0.26641957889795481), (+1.9348601008107313, +0.39170496650240622), (+1.2131409820684944, +0.50433991937792766), (+1.4119198090182750, +0.92872256399573749), (+1.2105289607781233, +0.10729412563084395), (+1.4099482177573468, +0.76434293831398270), (+1.3900899169387673, +0.39239578573191136), (+1.7625166381666351, +0.43752966558947820), (+1.7804061733360332, +0.82312696140167763), (+1.6852988847480406, +0.73099638799646871), (+1.7719796155773189, +0.80363479310595831), (+1.8275180984128485, +0.11722060235019928E-1), (+1.1368301273409469, +0.76887249265764090), (+1.2106762865084773, +0.25522449236963307), (+1.9418217630331054, +0.33063669021079095), (+1.5904139300526003, +0.36577435719013535), (+1.5928473172805904, +0.46397377551829233), (+1.1921202119543868, +0.54039498636825622), (+1.7317075327040647, +0.51723265427312752E-1), (+1.6378263382095848, +0.55386274007440428), (+1.8048460298543303, +0.10077335691560947), (+1.2996707378855290, +0.50673215919602277), (+1.7828503426733937, +0.64949677564925168), (+1.4664350077690453, +0.53321114107525969), (+1.7024895334696002, +0.83856612466784120), (+1.8636649545880222, +0.41292476974546288), (+1.4387697050898614, +0.50914130077197173), (+1.0892852802316180, +0.97615976410926042), (+1.8265139834737323, +0.41018445603667880), (+1.5150089101951645, +0.28316052506152795), (+1.0564742903333826, +0.43891556915237590), (+1.5793933803878200, +0.49790007656639107), (+1.0304349331691189, +0.78681608226500632), (+1.8972481415659495, +0.73169229162016314), (+1.2512017111886979, +0.44074175044563252), (+1.8570083700121667, +0.92097036312114178), (+1.9162675646942704, +0.20087409268038017), (+1.7570047733409280, +0.42559118665980977), (+1.0645390068616454, +0.12110324403646175), (+1.8384823548305558, +0.19684145728775171), (+1.3292468946145222, +0.51412464433760385), (+1.6889546238708135, +0.97324283940825351), (+1.2314797493722787, +0.18833761954454295), (+1.8590622766435512, +0.64349258172383073), (+1.4435778422612227, +0.29843952313138467), (+1.2378696188141598, +0.55369538161125798)

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

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

34

35lenData = getUnifRand(5, 100)

36lenData

37+98

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

39data

40(+1.70162478638221898693887548211869266, +0.343619024502905463104591072687321872), (+1.77140562878565018275252045086321267, +0.932547103083190981927172687876433254), (+1.15316959321710488887866367601382688, +0.769092883009433020842590252353456239E-1), (+1.29782523344635581124732111586967465, +0.821675204419809652338519718258949809), (+1.69775733001151600755841673079183323, +0.359106731695261456802300146629693768), (+1.55320461525906707567640924380264911, +0.970107048111845192182349260456144275), (+1.27029683623515492858029836776543844, +0.174682704613886064035563014127780315), (+1.77264802799251317234752499979952144, +0.803362178663776976598373163598801684E-1), (+1.35666177854783767973651671837831935, +0.514268613313143426429241367543722931), (+1.88018404525939775262881335049065422, +0.677320031345494002691461506621021012), (+1.73822343213048029559164780986526959, +0.898624966767127275373178894855605372), (+1.53353519599920792699968427817295639, +0.940528719716353650022674609104852273), (+1.25551582747482270139858181459421102, +0.174373534763409220346962166471130048), (+1.86123649843532867400095357202603186, +0.408498107541445321531919292727378478), (+1.28764844934722280097013720327278445, +0.150285600653943345485769663059516964), (+1.36875047042775495614050693655423295, +0.991432204409470074627123275861425607), (+1.29983391906003103013391339465790782, +0.497243783932317603224583127017917417), (+1.49454349001010213733403605407817783, +0.173181992767083474536906430162233693), (+1.87301540439246981029370056625195547, +0.275137917481994213128404888195827929), (+1.07352335913992294862917113614274318, +0.155760424868083807938590989200589019), (+1.35717187663327257899719087649513947, +0.570516364277231588183820593578700087), (+1.15821954673528152742556810381480430, +0.172042705735748534529845365287515684), (+1.51265228050324370006997498922371920, +0.345842613629037272597490352417259387), (+1.05703916072636031359527697666960217, +0.197504672189085087963891258450999407), (+1.03271659782050502688962931348488419, +0.671412125297575949174757483192523716), (+1.84914053097336581550796566656257297, +0.741416231217398367568089893137030759), (+1.63943916674046740884021350616282936, +0.155348779507459431200576752531515705), (+1.61105820773125392127442440157730284, +0.589471152827003204606511593143349185), (+1.03574243686551862331578062078731957, +0.322333619310480818520863136404168664), (+1.15149211024712958062385299682943698, +0.712786390494684662576310344252078283E-1), (+1.38431033704230043860511976518121451, +0.894870300695772815508298562096925289), (+1.18911863647178041926259800207144511, +0.290264944266458985802242189841647607), (+1.22783108706165663792675696498228853, +0.330378455045815619954281664569358465), (+1.58749485104651169957676089078581856, +0.411063880439744520029744764314688039), (+1.33332357167291238191839993693474054, +0.760116412333253954463860045640034569), (+1.66259181692535937277028294992847013, +0.852691812795767116672361108175012326), (+1.74191661963137959771362994670492335, +0.799626470602478833151526482511509033), (+1.79136016108724758307557529987578561, +0.857347516297825198645432057717321305E-2), (+1.19859017229948308868362646601474500, +0.788817236564232254731439413394999339), (+1.53461969148260312230112020709014993, +0.389409935120722239095204614188384096E-1), (+1.71962721281140406414755030510351323, +0.121945136950244792966488469174978580), (+1.56303478244518232087839396903756790, +0.766367820681588531703138456600737980), (+1.41520418957029289149788606026268269, +0.595926020045197779020407712845990924), (+1.35936895801404507108043389691089084, +0.524190941000739490806546792770635930), (+1.79576676671399641966427883203928546, +0.774202992994274960551646598640841177), (+1.14422120386932465866548338056874753, +0.718007602692999812368547274531879295), (+1.70529960753174534955035196739864312, +0.714316483144876850226731333838642932), (+1.69289348620248757422755413070191053, +0.205876612599883404321842458037224600E-1), (+1.25000263366477943435422102704054221, +0.793438861418137768027985518881662087E-1), (+1.97510237997561496918135618543829090, +0.682891633335137341612046321508048195), (+1.17862004986979753148322631265692911, +0.387692889052419482037142855269698989), (+1.24596530982240785969237763026568075, +0.324005139664460995552975400905608724), (+1.87824008833355621742133542052842512, +0.279295814459076208971435412347954670), (+1.44360099775085851574330656161632509, +0.661198347050182105853957013528996219), (+1.09151490899688431480041765871579276, +0.541447707127034369818449542054942922), (+1.50514664197245600393721358509637883, +0.991962129666670755528709866484230492E-1), (+1.12350068314917229205060902982859410, +0.707857852346333726216481610474080961), (+1.74229497086244927365479000171411084, +0.386847887928349265857338171717878032), (+1.94220672469003238403241580463977859, +0.676295747809340503408156205850172036), (+1.24932722502663734713547232786821022, +0.205746589666605277188531395620945699), (+1.67853271177907399449270059854018823, +0.575165501639433150972616443579538160E-1), (+1.99414510827693007101307338629794655, +0.901223496834082992069685298470676359), (+1.99683045541113652844617974277744592, +0.524762195983478468294231771141472721), (+1.92633008975621326614364307614746003, +0.129899980514264372558674673489217223), (+1.81033370300240115842617004721482894, +0.521726250283124577080354772475797941), (+1.71294297002903459620350690762930774, +0.548892897063927532414628425208995071), (+1.59760467959592891366643616347020933, +0.174698065823017434044234098688497766), (+1.57599017783458034508249106067483375, +0.285990918043175246112053107521568661), (+1.09955703820419928581634062568504513, +0.872086822021588932363343921326378587), (+1.14692869419159283352333799302271947, +0.649115185376116705736739575739376481), (+1.08132393847208158812161313678260929, +0.616657079026790157163364860593784262), (+1.07862083062105202756453882391729692, +0.270839336034844017793262566471228476), (+1.39617336344466822982268392641073521, +0.274986104805335810637686952608626922), (+1.66430208118547389586309736081189804, +0.395440054700645784208181783560304233), (+1.57536991757826361394454126752547133, +0.631728155595047236978598871525005720E-1), (+1.34017989321173170961891835962803789, +0.702559217664708774764014777906863523E-1), (+1.10637173176182844733526635362729792, +0.182342499274539092419543598171296952), (+1.45885531460144072680061989267919123, +0.829513552263334295677969014813146510), (+1.24571816657895886095750367797395623, +0.440381571758666293015021436730011567), (+1.05108149489142529262922055389302818, +0.237377681719348295022771291648238801), (+1.14365693769962482212164156617863441, +0.132375265876440413929810155779450737), (+1.12350742102386612276269424294527606, +0.468900448959075360496760652344994184), (+1.96704121698378756534401000808846020, +0.954326264602301696188179418955048847), (+1.85721534043155762694395162292916828, +0.219715566189752090071655491091359154), (+1.64291881119331845645986454773228799, +0.155082950226034241667597664010506861), (+1.45847227357585899747392928928592734, +0.148682594496347877052912638501100702), (+1.43116723183220646253380899443256108, +0.909855127426059983579262167060271875), (+1.06609630743356555784217599371713210, +0.830996019141269693699201279976893885), (+1.09137860249110913985176338909461316, +0.959106383465177750142308881301999548), (+1.16094504751104321256398357349271468, +0.681508562204637766510571555642512608), (+1.26274549333974720813603528391570228, +0.932650549848883253793621168609451425), (+1.37948638493889122853091238069740466, +0.184337852189261135057214347893485415), (+1.78103713652882432546765114001243453, +0.422668986777271109068848309975032046E-1), (+1.64379339874572157006525018840304827, +0.705376466991249714415429692333558049E-1), (+1.74614080161055928593602693739232992, +0.188248819511028473686878122161253664), (+1.48432577574698784073203741220891962, +0.491226080586174577801874851738161759), (+1.68022040249453978861564052647251318, +0.814341848563126382789899809506942777), (+1.30568050060150431637448984375746446, +0.648954139692935102209992779329463087)

41

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

43adat

44(+1.70162478638221898693887548211869247, +0.343619024502905463104591072687321920), (+1.77140562878565018275252045086321344, +0.932547103083190981927172687876433447), (+1.15316959321710488887866367601382630, +0.769092883009433020842590252353455758E-1), (+1.29782523344635581124732111586967503, +0.821675204419809652338519718258949906), (+1.69775733001151600755841673079183304, +0.359106731695261456802300146629693768), (+1.55320461525906707567640924380264930, +0.970107048111845192182349260456144371), (+1.27029683623515492858029836776543883, +0.174682704613886064035563014127780243), (+1.77264802799251317234752499979952144, +0.803362178663776976598373163598803249E-1), (+1.35666177854783767973651671837831954, +0.514268613313143426429241367543723123), (+1.88018404525939775262881335049065460, +0.677320031345494002691461506621021301), (+1.73822343213048029559164780986526978, +0.898624966767127275373178894855605372), (+1.53353519599920792699968427817295658, +0.940528719716353650022674609104852370), (+1.25551582747482270139858181459421063, +0.174373534763409220346962166471130072), (+1.86123649843532867400095357202603244, +0.408498107541445321531919292727378670), (+1.28764844934722280097013720327278406, +0.150285600653943345485769663059516868), (+1.36875047042775495614050693655423314, +0.991432204409470074627123275861425607), (+1.29983391906003103013391339465790762, +0.497243783932317603224583127017917224), (+1.49454349001010213733403605407817822, +0.173181992767083474536906430162233766), (+1.87301540439246981029370056625195547, +0.275137917481994213128404888195827929), (+1.07352335913992294862917113614274337, +0.155760424868083807938590989200588899), (+1.35717187663327257899719087649513985, +0.570516364277231588183820593578699991), (+1.15821954673528152742556810381480449, +0.172042705735748534529845365287515757), (+1.51265228050324370006997498922371901, +0.345842613629037272597490352417259339), (+1.05703916072636031359527697666960236, +0.197504672189085087963891258450999503), (+1.03271659782050502688962931348488458, +0.671412125297575949174757483192523813), (+1.84914053097336581550796566656257297, +0.741416231217398367568089893137030855), (+1.63943916674046740884021350616282897, +0.155348779507459431200576752531515874), (+1.61105820773125392127442440157730303, +0.589471152827003204606511593143349089), (+1.03574243686551862331578062078731938, +0.322333619310480818520863136404168713), (+1.15149211024712958062385299682943718, +0.712786390494684662576310344252078042E-1), (+1.38431033704230043860511976518121393, +0.894870300695772815508298562096925385), (+1.18911863647178041926259800207144549, +0.290264944266458985802242189841647415), (+1.22783108706165663792675696498228815, +0.330378455045815619954281664569358561), (+1.58749485104651169957676089078581856, +0.411063880439744520029744764314688039), (+1.33332357167291238191839993693474035, +0.760116412333253954463860045640034376), (+1.66259181692535937277028294992847013, +0.852691812795767116672361108175012326), (+1.74191661963137959771362994670492355, +0.799626470602478833151526482511508840), (+1.79136016108724758307557529987578580, +0.857347516297825198645432057717326571E-2), (+1.19859017229948308868362646601474519, +0.788817236564232254731439413394999242), (+1.53461969148260312230112020709014993, +0.389409935120722239095204614188384999E-1), (+1.71962721281140406414755030510351343, +0.121945136950244792966488469174978568), (+1.56303478244518232087839396903756810, +0.766367820681588531703138456600738076), (+1.41520418957029289149788606026268250, +0.595926020045197779020407712845990827), (+1.35936895801404507108043389691089142, +0.524190941000739490806546792770635930), (+1.79576676671399641966427883203928469, +0.774202992994274960551646598640841177), (+1.14422120386932465866548338056874830, +0.718007602692999812368547274531879102), (+1.70529960753174534955035196739864312, +0.714316483144876850226731333838643028), (+1.69289348620248757422755413070191053, +0.205876612599883404321842458037225714E-1), (+1.25000263366477943435422102704054260, +0.793438861418137768027985518881663411E-1), (+1.97510237997561496918135618543829071, +0.682891633335137341612046321508048292), (+1.17862004986979753148322631265692911, +0.387692889052419482037142855269699181), (+1.24596530982240785969237763026568094, +0.324005139664460995552975400905608724), (+1.87824008833355621742133542052842512, +0.279295814459076208971435412347954767), (+1.44360099775085851574330656161632509, +0.661198347050182105853957013528996219), (+1.09151490899688431480041765871579237, +0.541447707127034369818449542054942922), (+1.50514664197245600393721358509637960, +0.991962129666670755528709866484229649E-1), (+1.12350068314917229205060902982859430, +0.707857852346333726216481610474080865), (+1.74229497086244927365479000171411142, +0.386847887928349265857338171717877983), (+1.94220672469003238403241580463977801, +0.676295747809340503408156205850172133), (+1.24932722502663734713547232786821080, +0.205746589666605277188531395620945867), (+1.67853271177907399449270059854018804, +0.575165501639433150972616443579538100E-1), (+1.99414510827693007101307338629794616, +0.901223496834082992069685298470676455), (+1.99683045541113652844617974277744650, +0.524762195983478468294231771141472625), (+1.92633008975621326614364307614745946, +0.129899980514264372558674673489217368), (+1.81033370300240115842617004721482894, +0.521726250283124577080354772475797941), (+1.71294297002903459620350690762930794, +0.548892897063927532414628425208995167), (+1.59760467959592891366643616347020952, +0.174698065823017434044234098688497718), (+1.57599017783458034508249106067483414, +0.285990918043175246112053107521568517), (+1.09955703820419928581634062568504494, +0.872086822021588932363343921326378490), (+1.14692869419159283352333799302271985, +0.649115185376116705736739575739376866), (+1.08132393847208158812161313678260929, +0.616657079026790157163364860593784262), (+1.07862083062105202756453882391729692, +0.270839336034844017793262566471228380), (+1.39617336344466822982268392641073482, +0.274986104805335810637686952608626970), (+1.66430208118547389586309736081189862, +0.395440054700645784208181783560304329), (+1.57536991757826361394454126752547114, +0.631728155595047236978598871525007165E-1), (+1.34017989321173170961891835962803750, +0.702559217664708774764014777906861717E-1), (+1.10637173176182844733526635362729773, +0.182342499274539092419543598171296784), (+1.45885531460144072680061989267919161, +0.829513552263334295677969014813146510), (+1.24571816657895886095750367797395585, +0.440381571758666293015021436730011374), (+1.05108149489142529262922055389302799, +0.237377681719348295022771291648238777), (+1.14365693769962482212164156617863460, +0.132375265876440413929810155779450641), (+1.12350742102386612276269424294527587, +0.468900448959075360496760652344994232), (+1.96704121698378756534401000808845962, +0.954326264602301696188179418955048654), (+1.85721534043155762694395162292916866, +0.219715566189752090071655491091358985), (+1.64291881119331845645986454773228780, +0.155082950226034241667597664010506861), (+1.45847227357585899747392928928592773, +0.148682594496347877052912638501100847), (+1.43116723183220646253380899443256089, +0.909855127426059983579262167060271875), (+1.06609630743356555784217599371713248, +0.830996019141269693699201279976893788), (+1.09137860249110913985176338909461316, +0.959106383465177750142308881301999452), (+1.16094504751104321256398357349271448, +0.681508562204637766510571555642512994), (+1.26274549333974720813603528391570247, +0.932650549848883253793621168609451425), (+1.37948638493889122853091238069740466, +0.184337852189261135057214347893485463), (+1.78103713652882432546765114001243472, +0.422668986777271109068848309975031926E-1), (+1.64379339874572157006525018840304866, +0.705376466991249714415429692333560215E-1), (+1.74614080161055928593602693739233031, +0.188248819511028473686878122161253832), (+1.48432577574698784073203741220892001, +0.491226080586174577801874851738161856), (+1.68022040249453978861564052647251279, +0.814341848563126382789899809506942680), (+1.30568050060150431637448984375746523, +0.648954139692935102209992779329463280)

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

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+37

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

56data

57+1.17863297, +1.36979246, +1.67144203, +1.42164040, +1.86597955, +1.28479457, +1.08738208, +1.91391873, +1.91243446, +1.29479361, +1.75493050, +1.98872542, +1.09943819, +1.21414161, +1.73564982, +1.53379321, +1.89630795, +1.98559809, +1.82977057, +1.88424754, +1.05848503, +1.31554985, +1.87183607, +1.52974045, +1.82002425, +1.73721373, +1.82477534, +1.79326642, +1.62614012, +1.15277207, +1.17834806, +1.66905546, +1.94152820, +1.80067647, +1.59659183, +1.51695204, +1.64652729

58

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

60adat

61+1.17863238, +1.36979234, +1.67144179, +1.42164040, +1.86597955, +1.28479421, +1.08738148, +1.91391897, +1.91243494, +1.29479313, +1.75493026, +1.98872602, +1.09943664, +1.21414065, +1.73564994, +1.53379321, +1.89630806, +1.98559940, +1.82976842, +1.88424647, +1.05848610, +1.31554985, +1.87183714, +1.52973974, +1.82002401, +1.73721313, +1.82477486, +1.79326606, +1.62614024, +1.15277135, +1.17834806, +1.66905546, +1.94152796, +1.80067647, +1.59659183, +1.51695168, +1.64652717

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

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

68

69lenData = getUnifRand(5, 100)

70lenData

71+43

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

73data

74+1.6948995197145464, +1.9530706300092926, +1.1722791435102526, +1.8282958014916708, +1.6239043416132577, +1.9484276640967082, +1.1325286338442275, +1.3244994953494260, +1.3386836208037640, +1.0866249465625293, +1.7803711253392200, +1.7682715890273908, +1.0296302987427359, +1.7725805249729087, +1.2192619802957481, +1.7783928624400036, +1.5470336360473012, +1.7144045666615397, +1.4983269510667823, +1.2357329567771242, +1.4704836223671371, +1.8832209854919304, +1.3453591917154366, +1.9665818620530193, +1.9891772537533297, +1.8694577822059419, +1.5197820076952742, +1.5787576281865416, +1.4382100154091551, +1.1284893604683930, +1.5906566659125398, +1.8465119233316325, +1.2476896493196037, +1.3776228196199389, +1.7554001040327745, +1.1125561852209809, +1.0671084133427275, +1.5845715752553167, +1.8850500644633894, +1.0566568115688422, +1.0503877676684990, +1.2740004600882378, +1.7336540501336688

75

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

77adat

78+1.6948995197145442, +1.9530706300092917, +1.1722791435102511, +1.8282958014916724, +1.6239043416132573, +1.9484276640967102, +1.1325286338442244, +1.3244994953494253, +1.3386836208037658, +1.0866249465625244, +1.7803711253392247, +1.7682715890273955, +1.0296302987427262, +1.7725805249729167, +1.2192619802957403, +1.7783928624400080, +1.5470336360472985, +1.7144045666615442, +1.4983269510667845, +1.2357329567771200, +1.4704836223671378, +1.8832209854919388, +1.3453591917154157, +1.9665818620530329, +1.9891772537533330, +1.8694577822059502, +1.5197820076952697, +1.5787576281865452, +1.4382100154091526, +1.1284893604683877, +1.5906566659125398, +1.8465119233316392, +1.2476896493195975, +1.3776228196199387, +1.7554001040327787, +1.1125561852209791, +1.0671084133427244, +1.5845715752553178, +1.8850500644633903, +1.0566568115688404, +1.0503877676684976, +1.2740004600882373, +1.7336540501336677

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

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

85

86lenData = getUnifRand(5, 100)

87lenData

88+61

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

90data

91+1.66916043529709712928121145371470279, +1.70353152510175079932742702728925897, +1.30105181707591509520239532310337984, +1.79626858532901852732210906142960251, +1.54265201561280001210894914865397028, +1.16504020540748155186695638304444479, +1.58119608596715485993884999923493235, +1.21007752136620133862829692643045239, +1.44608838721122894836759004472568093, +1.05212105671599362994192572383638818, +1.26302283787976083822327399957779785, +1.68230322241460522975424967824406869, +1.82601606973843750341425067584362691, +1.17877398260229698225413342133992021, +1.78529918639327945626326058490957720, +1.82834384000617479921448561609407140, +1.45203332709567898660592335601416177, +1.85756023468142015562027222387580088, +1.98825506427194019046846678883695201, +1.52489454678047660516339195600638147, +1.21424980789187548760300103182951945, +1.37729093099000089043737905482776879, +1.66417897920609605280116344700087457, +1.93003190726740381439804152449363282, +1.23244535311787638465042161521503283, +1.37342064007275689818032058059480185, +1.95146767786417587096237578427115355, +1.54953552762143687556953154110357713, +1.63097900610831334449644485319549786, +1.17488667395686896105706537247803227, +1.19794161595857520927608503148064955, +1.76610187235266479772422329560461711, +1.10568861317277246055940315115792410, +1.51414478410675601715179651841213323, +1.46882081387750672016341601093687531, +1.48489860666548620711943139636625148, +1.14154175411896984622069908697158294, +1.18169724632053854718944456841786298, +1.53843659861252848262553070597855840, +1.82750900543576904927158391799777595, +1.18903448975843094314461889148868059, +1.10548206875309934746962405492933512, +1.11709077830557921158619843927146886, +1.76826728128054811179228891447481999, +1.26495548924722914517901728857393883, +1.11907900620937194207366762179229624, +1.80918080227303237353977868804837395, +1.57326615241434289519224671510477649, +1.61671234637175422111190946185629106, +1.00050861953892952376644369768555278, +1.04962354665211635506487086247586721, +1.88229126586039275101761792633040660, +1.04158249723259360447584366292493915, +1.06159195225395811916332486410443973, +1.88535799747988315262528821467882261, +1.85792372383137884039319954217565783, +1.13469728698400877399927993505858108, +1.94212983498726517710884233301607252, +1.18078621752920553909441920293514374, +1.05120613753663747216412653422442832, +1.34557899461651564181354334358257221

92

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

94adat

95+1.66916043529709712928121145371470453, +1.70353152510175079932742702728925819, +1.30105181707591509520239532310338042, +1.79626858532901852732210906142960135, +1.54265201561280001210894914865397144, +1.16504020540748155186695638304444440, +1.58119608596715485993884999923493254, +1.21007752136620133862829692643045239, +1.44608838721122894836759004472568151, +1.05212105671599362994192572383638779, +1.26302283787976083822327399957779920, +1.68230322241460522975424967824406715, +1.82601606973843750341425067584362594, +1.17877398260229698225413342133992272, +1.78529918639327945626326058490957758, +1.82834384000617479921448561609407024, +1.45203332709567898660592335601416447, +1.85756023468142015562027222387579876, +1.98825506427194019046846678883695162, +1.52489454678047660516339195600638108, +1.21424980789187548760300103182952254, +1.37729093099000089043737905482776764, +1.66417897920609605280116344700087688, +1.93003190726740381439804152449362647, +1.23244535311787638465042161521503938, +1.37342064007275689818032058059480262, +1.95146767786417587096237578427115124, +1.54953552762143687556953154110357462, +1.63097900610831334449644485319549824, +1.17488667395686896105706537247802803, +1.19794161595857520927608503148066341, +1.76610187235266479772422329560461461, +1.10568861317277246055940315115792719, +1.51414478410675601715179651841213169, +1.46882081387750672016341601093687280, +1.48489860666548620711943139636625225, +1.14154175411896984622069908697158448, +1.18169724632053854718944456841786664, +1.53843659861252848262553070597855686, +1.82750900543576904927158391799777248, +1.18903448975843094314461889148868213, +1.10548206875309934746962405492933686, +1.11709077830557921158619843927147078, +1.76826728128054811179228891447481845, +1.26495548924722914517901728857393844, +1.11907900620937194207366762179229952, +1.80918080227303237353977868804837087, +1.57326615241434289519224671510477861, +1.61671234637175422111190946185628914, +1.00050861953892952376644369768555547, +1.04962354665211635506487086247586837, +1.88229126586039275101761792633040410, +1.04158249723259360447584366292494031, +1.06159195225395811916332486410444224, +1.88535799747988315262528821467882203, +1.85792372383137884039319954217565744, +1.13469728698400877399927993505858146, +1.94212983498726517710884233301607291, +1.18078621752920553909441920293514258, +1.05120613753663747216412653422442890, +1.34557899461651564181354334358257182

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

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

102

103lenData = getUnifRand(5, 100)

104lenData

105+50

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

107data

108(+1.36838865, +0.133914590), (+1.20367837, +0.592806458), (+1.31326282, +0.344204962), (+1.06681180, +0.216404974), (+1.58347285, +0.731375515), (+1.86045194, +0.900012970), (+1.68873620, +0.509119093), (+1.34410000, +0.465533435), (+1.64210057, +0.787750721), (+1.94689131, +0.461115897), (+1.40807617, +0.205009222), (+1.40844405, +0.400506854E-1), (+1.70756721, +0.796750605), (+1.73429513, +0.377668738E-1), (+1.39113152, +0.680292666), (+1.71824574, +0.703007102), (+1.42233312, +0.330729723), (+1.33400166, +0.764205277), (+1.29834294, +0.269350410), (+1.42756152, +0.474646032), (+1.68221545, +0.522979856), (+1.63643193, +0.337713122), (+1.60789239, +0.730633736), (+1.88537204, +0.251691461), (+1.16807508, +0.434654117), (+1.19559932, +0.559882879), (+1.34786940, +0.118276477E-1), (+1.98833025, +0.621444225), (+1.71307206, +0.634965599), (+1.35862207, +0.846579671), (+1.75813723, +0.401602685), (+1.32957160, +0.449861765), (+1.30478406, +0.579445302), (+1.63488150, +0.301364720), (+1.31521845, +0.940678596), (+1.71932971, +0.172736585), (+1.83821774, +0.170986533), (+1.40867496, +0.696671605E-1), (+1.42939115, +0.927875757), (+1.66187835, +0.315261602), (+1.93275476, +0.295495331), (+1.92127550, +0.801753163), (+1.66063285, +0.318041086), (+1.06146216, +0.612120032E-1), (+1.84303892, +0.888358533), (+1.94150400, +0.530696034), (+1.79332352, +0.217251778), (+1.46481514, +0.194309592), (+1.63811970, +0.846028507), (+1.56232786, +0.450405240)

109

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

111adat

112(+1.36838806, +0.133914411), (+1.20367825, +0.592806399), (+1.31326246, +0.344204992), (+1.06681168, +0.216404915), (+1.58347261, +0.731375515), (+1.86045182, +0.900013030), (+1.68873608, +0.509119093), (+1.34410048, +0.465533525), (+1.64210081, +0.787750840), (+1.94689131, +0.461115867), (+1.40807569, +0.205009237), (+1.40844417, +0.400508493E-1), (+1.70756733, +0.796750665), (+1.73429537, +0.377669223E-1), (+1.39113164, +0.680292845), (+1.71824539, +0.703007102), (+1.42233312, +0.330729783), (+1.33400202, +0.764205396), (+1.29834318, +0.269350439), (+1.42756152, +0.474646002), (+1.68221521, +0.522979915), (+1.63643217, +0.337713152), (+1.60789275, +0.730633795), (+1.88537228, +0.251691520), (+1.16807508, +0.434654236), (+1.19559872, +0.559882700), (+1.34786928, +0.118275499E-1), (+1.98833025, +0.621444285), (+1.71307194, +0.634965599), (+1.35862184, +0.846579671), (+1.75813687, +0.401602715), (+1.32957184, +0.449861825), (+1.30478430, +0.579445422), (+1.63488162, +0.301364839), (+1.31521845, +0.940678537), (+1.71932948, +0.172736555), (+1.83821774, +0.170986593), (+1.40867543, +0.696673170E-1), (+1.42939115, +0.927875757), (+1.66187871, +0.315261602), (+1.93275440, +0.295495272), (+1.92127562, +0.801753223), (+1.66063273, +0.318041146), (+1.06146240, +0.612120517E-1), (+1.84303892, +0.888358593), (+1.94150376, +0.530696034), (+1.79332364, +0.217251778), (+1.46481562, +0.194309637), (+1.63812017, +0.846028566), (+1.56232798, +0.450405210)

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

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

119

120lenData = getUnifRand(5, 100)

121lenData

122+58

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

124data

125(+1.5174421299451182, +0.79536337656036660), (+1.5448061036345464, +0.21080482223938701), (+1.7316729162284086, +0.34767341394167373E-2), (+1.2570792413941869, +0.29933594118944840), (+1.5604974464094901, +0.88441131133879769), (+1.4495048995074891, +0.99587723754415947), (+1.5340418301382250, +0.17370881147163919), (+1.9237054213377891, +0.20732423017553347), (+1.9551528038616071, +0.50776230978900716), (+1.8843503426366732, +0.74514983570375881), (+1.7375340580686869, +0.65684497648871409E-1), (+1.1201669700389996, +0.45840146240482993), (+1.5977494770564160, +0.95933613464487000), (+1.1302737828137293, +0.18639328636920671), (+1.2407518990152715, +0.74304661547324236), (+1.9231420725127162, +0.12092229911483288E-1), (+1.3720410429542396, +0.42902308429196434), (+1.1768718884423806, +0.22535585152492743), (+1.5468407157323512, +0.45009581829315393), (+1.3813496741105649, +0.99431693389901143), (+1.0031970630979912, +0.24237618147475792), (+1.8811734186018767, +0.20939943808255601), (+1.2610966825659711, +0.16693639453241926), (+1.3090002567937975, +0.55821186141101498), (+1.4779433132703308, +0.14291860264826983E-1), (+1.9187977270974821, +0.70798680065706887E-1), (+1.9488366547870821, +0.73772338151759953), (+1.5212266711734355, +0.60560551387319483), (+1.6982650988245513, +0.86661670168990412), (+1.2298571913095260, +0.96801227716023419), (+1.5568534852492513, +0.65895035476390529E-1), (+1.2252249995721991, +0.24018918059239946), (+1.4336341428550408, +0.44942675987065950), (+1.7056303520420568, +0.58643265677197787), (+1.5540103484848808, +0.55218652350924491), (+1.0215858114511969, +0.74912895360499565), (+1.1855774651316899, +0.32301661715398677), (+1.9764643220053941, +0.64177801528073508), (+1.3872739306961761, +0.57225904051730192), (+1.5956440390200997, +0.69886268820847186), (+1.5303264933329259, +0.59728059477907325), (+1.4171628870371276, +0.84914237351755906), (+1.5539589822918329, +0.54254956037426760), (+1.6350617264106622, +0.32309009503702468), (+1.8400976254285519, +0.68714746735272769), (+1.2946165778928451, +0.96983011064830726), (+1.7570348106533045, +0.16296260033066390), (+1.8411135160155374, +0.64624291121840405), (+1.3434352013700801, +0.79595298415338478), (+1.4461943878801296, +0.89441932653589029), (+1.0623092092420803, +0.12152607948842553), (+1.8704652141781910, +0.33717802867951363), (+1.4240541030199843, +0.79330708048328047), (+1.8456545524875390, +0.31339353870135223), (+1.4593374066584426, +0.47676621444599876), (+1.0036542676285909, +0.54759552567257364), (+1.7866466033256936, +0.34111567711671587), (+1.0808101031992488, +0.69766014748861460)

126

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

128adat

129(+1.5174421299451188, +0.79536337656036682), (+1.5448061036345464, +0.21080482223938704), (+1.7316729162284090, +0.34767341394166952E-2), (+1.2570792413941869, +0.29933594118944812), (+1.5604974464094896, +0.88441131133879758), (+1.4495048995074891, +0.99587723754415947), (+1.5340418301382248, +0.17370881147163897), (+1.9237054213377891, +0.20732423017553334), (+1.9551528038616066, +0.50776230978900694), (+1.8843503426366732, +0.74514983570375892), (+1.7375340580686871, +0.65684497648871368E-1), (+1.1201669700389998, +0.45840146240482998), (+1.5977494770564156, +0.95933613464487022), (+1.1302737828137290, +0.18639328636920632), (+1.2407518990152717, +0.74304661547324202), (+1.9231420725127164, +0.12092229911483284E-1), (+1.3720410429542398, +0.42902308429196451), (+1.1768718884423810, +0.22535585152492743), (+1.5468407157323512, +0.45009581829315393), (+1.3813496741105649, +0.99431693389901110), (+1.0031970630979912, +0.24237618147475809), (+1.8811734186018769, +0.20939943808255576), (+1.2610966825659704, +0.16693639453241921), (+1.3090002567937975, +0.55821186141101509), (+1.4779433132703310, +0.14291860264826907E-1), (+1.9187977270974825, +0.70798680065707137E-1), (+1.9488366547870819, +0.73772338151759942), (+1.5212266711734364, +0.60560551387319483), (+1.6982650988245511, +0.86661670168990379), (+1.2298571913095273, +0.96801227716023397), (+1.5568534852492510, +0.65895035476390362E-1), (+1.2252249995721998, +0.24018918059239922), (+1.4336341428550408, +0.44942675987065939), (+1.7056303520420573, +0.58643265677197765), (+1.5540103484848813, +0.55218652350924458), (+1.0215858114511973, +0.74912895360499587), (+1.1855774651316893, +0.32301661715398639), (+1.9764643220053941, +0.64177801528073519), (+1.3872739306961757, +0.57225904051730192), (+1.5956440390201001, +0.69886268820847164), (+1.5303264933329264, +0.59728059477907314), (+1.4171628870371278, +0.84914237351755895), (+1.5539589822918332, +0.54254956037426749), (+1.6350617264106631, +0.32309009503702479), (+1.8400976254285519, +0.68714746735272758), (+1.2946165778928458, +0.96983011064830726), (+1.7570348106533040, +0.16296260033066404), (+1.8411135160155367, +0.64624291121840405), (+1.3434352013700805, +0.79595298415338478), (+1.4461943878801302, +0.89441932653589018), (+1.0623092092420801, +0.12152607948842543), (+1.8704652141781908, +0.33717802867951363), (+1.4240541030199840, +0.79330708048328025), (+1.8456545524875390, +0.31339353870135211), (+1.4593374066584424, +0.47676621444599854), (+1.0036542676285909, +0.54759552567257375), (+1.7866466033256940, +0.34111567711671559), (+1.0808101031992488, +0.69766014748861438)

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

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

141data

142(+1.51921181413283724714291775383297135, +0.326992714616663170672490002163013801), (+1.29881777332659292076563938282676208, +0.430706828635656021967711180564879730), (+1.57646521094035227232210872030042689, +0.597789111370219494117891373171797684), (+1.21773490235416559847946791643790022, +0.113363531171239075624938672130533580), (+1.11788766722452206260327094971530496, +0.702488839669273774268149638615743183), (+1.02130482749279502041740361409563793, +0.833007500483263675582909396914223933), (+1.28532577922987186191048353218868423, +0.963061471149941064530736200388783473), (+1.00588751578808898070753956787620641, +0.467589157194741741731843881408848251), (+1.24666208039618532687046082662464024, +0.351664224943171240551566681455905157), (+1.32392385686337057918750635925121809, +0.997962763309327738201067641996526066E-1), (+1.66325079826357291323371611415253002, +0.361646779373363884306723023809179119), (+1.16586526780495987709617793040284240, +0.615767317526170056020195921061443189), (+1.20180997364365656297280153312557708, +0.168762090015078317162798578709225408), (+1.70370098367360079194187861150684609, +0.998027680135706915892987046095019919), (+1.99011552678460681286267773977977563, +0.771452931856997641210719078039194415), (+1.99138054843603510507375060134726199, +0.993579068144558430385785155258050739), (+1.42346028988041735135836036922416087, +0.403230775130385318986699246259504870), (+1.20870379200659072179306602910171586, +0.946237256437747854354648722609446835), (+1.62343285145591644843991604390608561, +0.147436102036896775134040650919613387E-1), (+1.15621146754603850444165294495979350, +0.796201638459869040034533421996869466), (+1.38464540084815134450652371883694451, +0.792645615169840350861180418059113498), (+1.36855652707835990375216370748420797, +0.260300884891632589643306186086310409), (+1.95167604233086139100757182806656645, +0.970349210497553836242882009054672184), (+1.09007844588879099021324762145668923, +0.311325261569751466188938793370026204E-1), (+1.19989988140413581150501937404998807, +0.100080854801462289674713362663591854), (+1.07688294615475438618460233757006477, +0.913755682759689019275652889900161059), (+1.69064893330726866495542274385034759, +0.583228828573455896392528063001005319), (+1.52044797310817372133450387226013242, +0.821099180747462213247936823885933805), (+1.97765113103658015212166732285667047, +0.408265247923412072741789733028979795), (+1.10716691321370747512803437777296418, +0.502123515355549814327411084006684144), (+1.68450090842145649476026991895918861, +0.954353061903705129305193337940979596E-1), (+1.72605905421964264675410659625994485, +0.622203117366131985775456404664005890E-1), (+1.53383623859016911245481098510502153, +0.566741442855326111779948369289169705), (+1.28761635750866833723073732723147246, +0.687238834298588028365026104580227684), (+1.40622479891443445608104628012070775, +0.286088227630838339389573402153881820), (+1.32063083932052521362955600023962887, +0.247879372626932391403507130564283929), (+1.40108743836662447821362706487888108, +0.469503623024674411216566226654328991), (+1.14500583541620923002597291831931004, +0.660626382703343517933392305695777164), (+1.92955386105729426954818388999192723, +0.808233644847278854466820409052343044), (+1.46342684578632100007556543804483467, +0.179763822100714209376967642719925603), (+1.63445906336339826987279126695290697, +0.266422155924686165887214264058223483), (+1.70402528821463150030717529363093400, +0.835564000756384597373962852075699227), (+1.43022440526806623076963404630360484, +0.208440179895264481961356109900142551), (+1.78360645828283056371451616807569375, +0.997261009512104733719660053264123250), (+1.77961050407026909763012532362425746, +0.154460380440329345802945137609966726), (+1.92163035104906601266109409625188944, +0.258173353181443574848347824710604781)

143

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

145adat

146(+1.51921181413283724714291775383297154, +0.326992714616663170672490002163013561), (+1.29881777332659292076563938282676227, +0.430706828635656021967711180564879971), (+1.57646521094035227232210872030042746, +0.597789111370219494117891373171797877), (+1.21773490235416559847946791643790003, +0.113363531171239075624938672130533568), (+1.11788766722452206260327094971530553, +0.702488839669273774268149638615743375), (+1.02130482749279502041740361409563735, +0.833007500483263675582909396914223933), (+1.28532577922987186191048353218868385, +0.963061471149941064530736200388783376), (+1.00588751578808898070753956787620622, +0.467589157194741741731843881408848300), (+1.24666208039618532687046082662464120, +0.351664224943171240551566681455905398), (+1.32392385686337057918750635925121809, +0.997962763309327738201067641996527510E-1), (+1.66325079826357291323371611415252944, +0.361646779373363884306723023809179263), (+1.16586526780495987709617793040284240, +0.615767317526170056020195921061443189), (+1.20180997364365656297280153312557689, +0.168762090015078317162798578709225071), (+1.70370098367360079194187861150684590, +0.998027680135706915892987046095020015), (+1.99011552678460681286267773977977582, +0.771452931856997641210719078039194415), (+1.99138054843603510507375060134726199, +0.993579068144558430385785155258051028), (+1.42346028988041735135836036922416106, +0.403230775130385318986699246259504774), (+1.20870379200659072179306602910171547, +0.946237256437747854354648722609446739), (+1.62343285145591644843991604390608580, +0.147436102036896775134040650919614259E-1), (+1.15621146754603850444165294495979369, +0.796201638459869040034533421996869563), (+1.38464540084815134450652371883694451, +0.792645615169840350861180418059113305), (+1.36855652707835990375216370748420855, +0.260300884891632589643306186086310553), (+1.95167604233086139100757182806656702, +0.970349210497553836242882009054672473), (+1.09007844588879099021324762145668866, +0.311325261569751466188938793370023947E-1), (+1.19989988140413581150501937404998865, +0.100080854801462289674713362663592155), (+1.07688294615475438618460233757006535, +0.913755682759689019275652889900161252), (+1.69064893330726866495542274385034759, +0.583228828573455896392528063001005030), (+1.52044797310817372133450387226013242, +0.821099180747462213247936823885933901), (+1.97765113103658015212166732285667047, +0.408265247923412072741789733028979940), (+1.10716691321370747512803437777296399, +0.502123515355549814327411084006684048), (+1.68450090842145649476026991895918880, +0.954353061903705129305193337940980318E-1), (+1.72605905421964264675410659625994543, +0.622203117366131985775456404664006792E-1), (+1.53383623859016911245481098510502134, +0.566741442855326111779948369289169705), (+1.28761635750866833723073732723147189, +0.687238834298588028365026104580227684), (+1.40622479891443445608104628012070756, +0.286088227630838339389573402153881724), (+1.32063083932052521362955600023962849, +0.247879372626932391403507130564283905), (+1.40108743836662447821362706487888069, +0.469503623024674411216566226654329135), (+1.14500583541620923002597291831930984, +0.660626382703343517933392305695777164), (+1.92955386105729426954818388999192820, +0.808233644847278854466820409052343140), (+1.46342684578632100007556543804483486, +0.179763822100714209376967642719925724), (+1.63445906336339826987279126695290659, +0.266422155924686165887214264058223434), (+1.70402528821463150030717529363093381, +0.835564000756384597373962852075699227), (+1.43022440526806623076963404630360561, +0.208440179895264481961356109900142479), (+1.78360645828283056371451616807569317, +0.997261009512104733719660053264123057), (+1.77961050407026909763012532362425842, +0.154460380440329345802945137609966847), (+1.92163035104906601266109409625188982, +0.258173353181443574848347824710605022)

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

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

153

154lenData = getUnifRand(5, 100)

155lenData

156+19

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

158data

159+1.66642165, +1.41646039, +1.33380294, +1.00707018, +1.49248672, +1.32938409, +1.65652609, +1.35613084, +1.97219896, +1.28398132, +1.90867996, +1.84064674, +1.98326993, +1.86723018, +1.49858451, +1.88614953, +1.30523777, +1.11170661, +1.79660141

160

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

162adat

163+1.66642201, +1.41646039, +1.33380282, +1.00707006, +1.49248648, +1.32938457, +1.65652633, +1.35613108, +1.97219884, +1.28398168, +1.90867972, +1.84064686, +1.98326993, +1.86723042, +1.49858510, +1.88614917, +1.30523765, +1.11170673, +1.79660153

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

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

170

171lenData = getUnifRand(5, 100)

172lenData

173+23

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

175data

176+1.1279064690948497, +1.5143654026150966, +1.5896721012443917, +1.2307412327678140, +1.1473294969949905, +1.3415670192149884, +1.7055623415930095, +1.4226821519814905, +1.6065021390696175, +1.7179876740856130, +1.7887733312621141, +1.9118413332732758, +1.2403731122462984, +1.2736229333306257, +1.7027414576761304, +1.7865895678813262, +1.0370797624691361, +1.1449964858508699, +1.9865596323836385, +1.7953263912983015, +1.9680472853978563, +1.4922025118891966, +1.5329680564307950

177

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

179adat

180+1.1279064690948508, +1.5143654026150977, +1.5896721012443915, +1.2307412327678144, +1.1473294969949910, +1.3415670192149887, +1.7055623415930079, +1.4226821519814918, +1.6065021390696173, +1.7179876740856133, +1.7887733312621137, +1.9118413332732735, +1.2403731122463015, +1.2736229333306262, +1.7027414576761297, +1.7865895678813246, +1.0370797624691386, +1.1449964858508705, +1.9865596323836370, +1.7953263912983015, +1.9680472853978563, +1.4922025118891968, +1.5329680564307961

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

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

187

188lenData = getUnifRand(5, 100)

189lenData

190+25

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

192data

193+1.84578560715343981368937359382301219, +1.08833785145581335328876068418360933, +1.00077114490808838773877718771454031, +1.22255497408533316126828003603479396, +1.31117229480540808204794129343027167, +1.49070770032196198977126716191967797, +1.88761387253931982509596160159927063, +1.20236785556538118609846249188809178, +1.71174077054410849860901664927133605, +1.72454114932871605308702923494320224, +1.00383494672638943191856659932741240, +1.74973009139835996457228020915375007, +1.90846171860368260105774232722789903, +1.43443239914258737468066625569442486, +1.60106261933396108738972095882632209, +1.23711747596493330417886281900367162, +1.86577756044124298026113811637557906, +1.46002557691896150555364428552690517, +1.57743698070714742911283735381305541, +1.60271878756455556515088224282963881, +1.88259025747618149356550385120092851, +1.30256321538467902056712403024788483, +1.58253263989124855976291549863391001, +1.77792631622232221624706186960393690, +1.10315413842524283478475975117929016

194

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

196adat

197+1.84578560715343981368937359382301200, +1.08833785145581335328876068418360895, +1.00077114490808838773877718771454012, +1.22255497408533316126828003603479377, +1.31117229480540808204794129343027167, +1.49070770032196198977126716191967778, +1.88761387253931982509596160159927043, +1.20236785556538118609846249188809178, +1.71174077054410849860901664927133585, +1.72454114932871605308702923494320224, +1.00383494672638943191856659932741221, +1.74973009139835996457228020915374968, +1.90846171860368260105774232722789903, +1.43443239914258737468066625569442506, +1.60106261933396108738972095882632228, +1.23711747596493330417886281900367143, +1.86577756044124298026113811637557848, +1.46002557691896150555364428552690537, +1.57743698070714742911283735381305541, +1.60271878756455556515088224282963881, +1.88259025747618149356550385120092851, +1.30256321538467902056712403024788463, +1.58253263989124855976291549863391001, +1.77792631622232221624706186960393671, +1.10315413842524283478475975117928996

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

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

204

205lenData = getUnifRand(5, 100)

206lenData

207+21

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

209data

210(+1.72813678, +0.116143584), (+1.72975874, +0.899791121), (+1.04242206, +0.652405858), (+1.93859923, +0.551353276), (+1.35650992, +0.215387940), (+1.95470881, +0.702708423), (+1.60663223, +0.696922541), (+1.37168121, +0.536352217), (+1.83216691, +0.759480119), (+1.91729236, +0.770554006), (+1.93361533, +0.441412628), (+1.00303936, +0.771487355), (+1.31564987, +0.307912529), (+1.73245060, +0.789462805), (+1.93890393, +0.186818361), (+1.39629781, +0.558630824E-1), (+1.07253516, +0.628033996), (+1.19206977, +0.426721156), (+1.62620652, +0.716737628), (+1.39294493, +0.498714268), (+1.31397152, +0.686812043)

211

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

213adat

214(+1.72813702, +0.116143748), (+1.72975850, +0.899791181), (+1.04242182, +0.652405918), (+1.93859899, +0.551353335), (+1.35651004, +0.215387985), (+1.95470870, +0.702708423), (+1.60663188, +0.696922421), (+1.37168181, +0.536352336), (+1.83216655, +0.759480000), (+1.91729212, +0.770553946), (+1.93361533, +0.441412747), (+1.00303948, +0.771487296), (+1.31564963, +0.307912678), (+1.73245037, +0.789462686), (+1.93890417, +0.186818674), (+1.39629745, +0.558630414E-1), (+1.07253504, +0.628033936), (+1.19207001, +0.426721215), (+1.62620652, +0.716737628), (+1.39294457, +0.498714298), (+1.31397128, +0.686811924)

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

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

221

222lenData = getUnifRand(5, 100)

223lenData

224+97

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

226data

227(+1.1236997758405491, +0.54336846260983906), (+1.9361721105325331, +0.24036741514517301), (+1.5689661022973298, +0.88696471496871521), (+1.2709782449600959, +0.45382712780679479), (+1.3103116376004058, +0.13243940133729681), (+1.8027942602305220, +0.72337233817216040), (+1.8748870346129558, +0.44860334320128503), (+1.5807291507889891, +0.74185694217012266), (+1.9009297272444363, +0.79086264307643417), (+1.5744455016570513, +0.53935242629592639), (+1.4314312450201219, +0.73154404947383811), (+1.4147822973385697, +0.59360444061668871), (+1.0535197453127072, +0.85582930895291198), (+1.9731618566913423, +0.17530093337547870), (+1.3233762096758426, +0.72645661191565292), (+1.8093382548733103, +0.89433465578560456), (+1.7774823809613198, +0.31398018435910702), (+1.4432983485869544, +0.32481034454380264), (+1.4364065515396240, +0.52806819563048979), (+1.7641906617747809, +0.83130040031995245), (+1.6936005757137029, +0.15870415052247955), (+1.4379716031877952, +0.14732385874783782), (+1.3467725618499435, +0.96973703582380477), (+1.4305874718145595, +0.20410552145958549E-1), (+1.3242399562932476, +0.69411534966083599), (+1.0621811622270911, +0.63064462031427759), (+1.8930478209702453, +0.56629838460251880), (+1.0842120968613624, +0.42801504625839759), (+1.7436467540801686, +0.42292543782083025), (+1.6401800823694612, +0.65738896613993480), (+1.7987679149120432, +0.14630439366734238), (+1.1422009851069461, +0.72732350313619543), (+1.5871216681556253, +0.57505012297386215), (+1.0316292676658994, +0.46470559694448166), (+1.2373969697236578, +0.43513249117931352), (+1.5576760690005664, +0.59193959204858282), (+1.2911714679399005, +0.62222771282392075), (+1.8486965505940636, +0.43063508862899358), (+1.6424977529162472, +0.65067812585999829), (+1.8784479873316910, +0.16629282794673550), (+1.7937145939787005, +0.25771794568695083), (+1.3734299852534224, +0.63120254696634659), (+1.4002934734605121, +0.82006997697098849), (+1.2997999322723492, +0.67884683625487274), (+1.4598279986649201, +0.63778274651978628), (+1.4257357118706135, +0.95651163066250300), (+1.3411642004731528, +0.54598483594884684), (+1.8474486079454082, +0.76827539347821516), (+1.7999670141140403, +0.44801036955021389), (+1.4144563086339397, +0.86257712448396051), (+1.6976309911694041, +0.19702347403115428), (+1.6622333613464217, +0.25126013068987452), (+1.0046922767788049, +0.56794410555911679), (+1.1852423877820759, +0.72480199821608404), (+1.5406763756371438, +0.50192460126798888), (+1.9644681824265748, +0.56725060286638151), (+1.6769722153073723, +0.81608221374418921), (+1.5212269736291608, +0.15714217580157996), (+1.1701036472330362, +0.96778558733043785), (+1.6651699995064697, +0.25755894974234939), (+1.6549801570163458, +0.67348531558945102), (+1.5097172126789404, +0.13640621123360641), (+1.0809763668404933, +0.52360145989350604), (+1.0545085296912826, +0.33966537560669807E-1), (+1.0689887027518830, +0.67975444760455217), (+1.5912276783675880, +0.65834435441705419), (+1.2003739314836186, +0.67231523110054869E-1), (+1.8596687133904797, +0.20483997781801333), (+1.4470241799177415, +0.43356066850095532), (+1.1742080860609323, +0.52949105090268045), (+1.9892056337862571, +0.53799016735544214E-1), (+1.2802977787642384, +0.85667181586246399), (+1.2056537901535238, +0.89702249368096931), (+1.5694834603589034, +0.24053954230110985), (+1.9014108173062243, +0.41742238737928161), (+1.5871619257662162, +0.49756047510111856), (+1.8126358059052912, +0.23527575472973017), (+1.5201942890192872, +0.45621659723099495), (+1.0841857876415326, +0.35661319105208300), (+1.7153331910424707, +0.18780553442075820), (+1.3515507467230234, +0.19318673096957095), (+1.6863393641213564, +0.37236564405602568), (+1.4061878610183274, +0.72050776883400813), (+1.6986494916584813, +0.63861465042558629E-1), (+1.3073144108692671, +0.16563380576976727), (+1.3463620615710563, +0.19598871135752238), (+1.0548135978577453, +0.30953710691901015), (+1.9302837207187655, +0.82456641524921503), (+1.0823018627385399, +0.19399144104278054), (+1.3349283605326832, +0.94916428743791481), (+1.0168862298509316, +0.32084972555006630), (+1.8266326109530793, +0.63268136840107203), (+1.4907767349092309, +0.41575771579787246), (+1.1042775507635816, +0.58994260142659205), (+1.6170167102770829, +0.14251884424597805), (+1.3916493560864698, +0.64315516958978014), (+1.8599041975774915, +0.68306340163990509)

228

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

230adat

231(+1.1236997758405578, +0.54336846260984151), (+1.9361721105325325, +0.24036741514517265), (+1.5689661022973302, +0.88696471496871487), (+1.2709782449600961, +0.45382712780679457), (+1.3103116376004060, +0.13243940133729679), (+1.8027942602305211, +0.72337233817216007), (+1.8748870346129565, +0.44860334320128509), (+1.5807291507889902, +0.74185694217012244), (+1.9009297272444372, +0.79086264307643406), (+1.5744455016570515, +0.53935242629592595), (+1.4314312450201216, +0.73154404947383789), (+1.4147822973385704, +0.59360444061668816), (+1.0535197453127081, +0.85582930895291232), (+1.9731618566913420, +0.17530093337547839), (+1.3233762096758446, +0.72645661191565292), (+1.8093382548733106, +0.89433465578560445), (+1.7774823809613201, +0.31398018435910674), (+1.4432983485869539, +0.32481034454380225), (+1.4364065515396238, +0.52806819563048990), (+1.7641906617747798, +0.83130040031995234), (+1.6936005757137034, +0.15870415052247905), (+1.4379716031877949, +0.14732385874783757), (+1.3467725618499429, +0.96973703582380488), (+1.4305874718145608, +0.20410552145958282E-1), (+1.3242399562932476, +0.69411534966083599), (+1.0621811622270918, +0.63064462031427770), (+1.8930478209702453, +0.56629838460251891), (+1.0842120968613624, +0.42801504625839720), (+1.7436467540801688, +0.42292543782082997), (+1.6401800823694601, +0.65738896613993469), (+1.7987679149120441, +0.14630439366734210), (+1.1422009851069477, +0.72732350313619520), (+1.5871216681556266, +0.57505012297386171), (+1.0316292676658998, +0.46470559694448166), (+1.2373969697236582, +0.43513249117931324), (+1.5576760690005669, +0.59193959204858271), (+1.2911714679399020, +0.62222771282392031), (+1.8486965505940636, +0.43063508862899325), (+1.6424977529162468, +0.65067812585999829), (+1.8784479873316915, +0.16629282794673569), (+1.7937145939787014, +0.25771794568695078), (+1.3734299852534224, +0.63120254696634626), (+1.4002934734605121, +0.82006997697098871), (+1.2997999322723504, +0.67884683625487285), (+1.4598279986649199, +0.63778274651978650), (+1.4257357118706142, +0.95651163066250289), (+1.3411642004731541, +0.54598483594884684), (+1.8474486079454093, +0.76827539347821527), (+1.7999670141140414, +0.44801036955021389), (+1.4144563086339410, +0.86257712448396062), (+1.6976309911694056, +0.19702347403115472), (+1.6622333613464229, +0.25126013068987441), (+1.0046922767788058, +0.56794410555911679), (+1.1852423877820759, +0.72480199821608449), (+1.5406763756371451, +0.50192460126798888), (+1.9644681824265751, +0.56725060286638185), (+1.6769722153073725, +0.81608221374418888), (+1.5212269736291617, +0.15714217580157980), (+1.1701036472330366, +0.96778558733043774), (+1.6651699995064693, +0.25755894974234950), (+1.6549801570163456, +0.67348531558945091), (+1.5097172126789418, +0.13640621123360624), (+1.0809763668404937, +0.52360145989350604), (+1.0545085296912831, +0.33966537560669689E-1), (+1.0689887027518836, +0.67975444760455206), (+1.5912276783675894, +0.65834435441705408), (+1.2003739314836201, +0.67231523110054772E-1), (+1.8596687133904801, +0.20483997781801308), (+1.4470241799177406, +0.43356066850095537), (+1.1742080860609325, +0.52949105090268045), (+1.9892056337862569, +0.53799016735544158E-1), (+1.2802977787642384, +0.85667181586246388), (+1.2056537901535243, +0.89702249368096920), (+1.5694834603589032, +0.24053954230111008), (+1.9014108173062252, +0.41742238737928150), (+1.5871619257662153, +0.49756047510111867), (+1.8126358059052909, +0.23527575472972981), (+1.5201942890192879, +0.45621659723099428), (+1.0841857876415313, +0.35661319105208311), (+1.7153331910424707, +0.18780553442075837), (+1.3515507467230232, +0.19318673096957048), (+1.6863393641213569, +0.37236564405602529), (+1.4061878610183276, +0.72050776883400791), (+1.6986494916584838, +0.63861465042558532E-1), (+1.3073144108692671, +0.16563380576976669), (+1.3463620615710570, +0.19598871135752249), (+1.0548135978577460, +0.30953710691900976), (+1.9302837207187655, +0.82456641524921470), (+1.0823018627385403, +0.19399144104278013), (+1.3349283605326840, +0.94916428743791470), (+1.0168862298509329, +0.32084972555006613), (+1.8266326109530799, +0.63268136840107214), (+1.4907767349092300, +0.41575771579787213), (+1.1042775507635816, +0.58994260142659194), (+1.6170167102770832, +0.14251884424597783), (+1.3916493560864702, +0.64315516958977970), (+1.8599041975774906, +0.68306340163990453)

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

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

243data

244(+1.02695424675617010827135145938300221, +0.282935219173699539826520499560393987), (+1.56080221562307382049207519899773577, +0.823943749297366320672789525200083856), (+1.39442192973146358855295013697858907, +0.494630164230031894807320676566953428), (+1.09737172107859449088652625436633810, +0.129990102917213864252506590914199317), (+1.02240735166823940336507665465055235, +0.208471028729119398989087612363551548), (+1.85286773639007114770481216864203288, +0.960159256244929635168541854708273822), (+1.12879898474211830842822133340858976, +0.380017266293575255981643768145085083), (+1.29758389290491224807837277921881199, +0.467889409543155434314775052756291470), (+1.41831942160265219581792535876388363, +0.630005623809231523228210406401459123), (+1.62567179795451252787221975328314334, +0.273132813456808206891790303075037133), (+1.05614879420611344943190694674732357, +0.244643615014664381660664210769005966), (+1.39755315895446437518976926989521348, +0.967636396610505078120320543967821298), (+1.69687016007728465498526146013057446, +0.393606753902436942572704263183341446), (+1.41661519511567851802606761227664451, +0.836637663351808477149459906642674825), (+1.65828819898093904042307914094695588, +0.114255155377303286735547756239949662), (+1.37337946134999877990257664023979170, +0.460847952042775307239915821024679451), (+1.01573250811220962169520275174623650, +0.749080324678019578518866420002021356), (+1.15730058624600591203105028978123220, +0.248484131827040770667089921975345822), (+1.42117205925060901990683100770083222, +0.280381946257269149110798978076445057), (+1.87495017757838598506179740356376992, +0.665584515337670613159288597767142563), (+1.98170881727935665443637109641324697, +0.449737295235507655094606837212512172), (+1.29696764826619104877853135401032204, +0.499350791812409369767817206878102745), (+1.52433449266673167100231305914726496, +0.197115880850289326498068026795710594), (+1.48237432603974579495743270297474525, +0.185876690253598104752107981987119942), (+1.80610787390617087600706091014184610, +0.325278851973163439652307327235997692), (+1.51039014362871459320080958146627610, +0.496805618980313067793040037172848018), (+1.96609985965692274394779154207391966, +0.404493787956762140421308622952519445), (+1.07079857936808155556131189427239822, +0.632301681658388390208289101379197293), (+1.51630045114771167522447023687530881, +0.771118815974485565743557457022702224), (+1.68000947881455907902441375994602927, +0.430363303832861183496802639258264183), (+1.55438693657562545895188530051679228, +0.139349057841646869601115782332717588), (+1.57753604048081595319316532170016226, +0.844015003920189550673309478488515784), (+1.83077800351025053654379657824620801, +0.902414458585167012991322287583412275), (+1.75644171841170130156867717983581413, +0.351957705975542735753560202375440113), (+1.05187373823159482232606690333723904, +0.391515330281452065481064397974791474), (+1.16820459914621512542071563877814425, +0.899320277692004301367726256182211749), (+1.62488222672117045683643948611025506, +0.305439327733503027316064324934985620), (+1.49567511470114088889883203165269867, +0.643039494650873119931361331196326651), (+1.69347132387406023159307956080831412, +0.274342118362457610562729933132341920), (+1.45276463858187025292160778259675303, +0.244884440910770048678839078905912769), (+1.61816374592669704694892353850920858, +0.548820363809111258483749533028250677), (+1.31053783301914679278835524958064329, +0.690538171516205735774724703459719357), (+1.98101235059093760553539926626507503, +0.145222076187213024298567289372544533), (+1.80491728745933116175537999453094363, +0.977911192614552236210842323249128118), (+1.23998415852139085230056896724350480, +0.240264312548889478268392725865975469), (+1.58762121941087073153999292922687362, +0.712896672015300586399460628422343319), (+1.07179931421468691562692520172869665, +0.137454907571071126474048957383896381), (+1.29882592211144038231531681857243427, +0.922061756860123773247761204186653649), (+1.21651827680539737847946723659664382, +0.596707580539450467290692871626902824), (+1.35054500836302549724090200335511498, +0.465578955349539157318194705238462039), (+1.96408947138504843948496429790180999, +0.928433277179043542687572737841325231), (+1.58475005699708252227563207944946247, +0.370872325616137321857048192706759204), (+1.32215570950795955716693204980688976, +0.739364346623591657875893665075576505), (+1.56819282588325923251050046902610636, +0.839933485702090322845534394124932798), (+1.27565361918548810152915674174260517, +0.422372363897510266573449318872262487), (+1.03056077886369702111806937521901616, +0.693606259094816364613516985762500035), (+1.99808108444988479552325527878585806, +0.797182991698592308911163862216033659), (+1.48251515064451455599419647106983730, +0.867340537606446435279977368906168813), (+1.89117433507483891063677295471898765, +0.636536719191632577594641062298659612), (+1.70508305356787875589425492245761435, +0.403724198726982263099057271982034781), (+1.96625864577393104566411238893857129, +0.624944535015796459875065955793205156), (+1.24331033404576786874312262247095410, +0.992125639604134130883449105328523633), (+1.10159481807379162577512438063263113, +0.424961387874013920389838625052857864), (+1.00990750647174352125423497598236662, +0.642889932520057307948419575930061083), (+1.94430888198180662819768762569564056, +0.509239719069838992238893824412431351), (+1.13133931740059406428543164630634026, +0.946025659419992440411096258642567258), (+1.55038414417139281411742091505878936, +0.718567767487692259567518181587109625), (+1.91383548743230582962340749771118988, +0.928719770613940045209372140453361085), (+1.41766004837572137610883130200796389, +0.437728326515486624253410850683858325E-1), (+1.24083549345119181001993718580957927, +0.658817408690021934066806395275620455), (+1.09007051686959283178016540874858496, +0.388255638757582562954887662277920566), (+1.67958957381344755808617555088913333, +0.758716227716496915753644194811425605), (+1.69038333403453331826160740199020573, +0.486037454122564266735575534831966492), (+1.50983090507681660242053723796539092, +0.862952102679911537737296032316340461), (+1.50599871331312624090050503879400324, +0.884682945110827748074095039075441069), (+1.41897981986198586657259557567837171, +0.124759901823038393839867525218957523), (+1.10514047928650688898702003800091919, +0.289360910857925251888012543041215685), (+1.08576211672213431272902188122224143, +0.245449181413071516610662793904450573), (+1.24549109511912059106550692324597170, +0.207643736265503429111476981972280334), (+1.95838677380374697718099102133185125, +0.864283744580500969614712771767174890), (+1.59302513973212879232342430430119478, +0.252852146266783683301049164184727094), (+1.33769972078661961893721171211858783, +0.686839166507393852444155944254235248), (+1.74327942123662543677283373764938963, +0.771913361911448458649750416444587080E-1), (+1.57311778147012147684759020564469752, +0.644296405036788254568213934898470444), (+1.85140722430731566127805380615632400, +0.173757004743225837793155917195381214), (+1.93589760016064582955567608258850128, +0.768671470250026459839721512673917925), (+1.79334993219223482100237380181125041, +0.863201430618618177557531042635291581), (+1.33394115165111529220274491938489257, +0.570694128264416131207654079435256781)

245

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

247adat

248(+1.02695424675617010827135145938300202, +0.282935219173699539826520499560393939), (+1.56080221562307382049207519899773577, +0.823943749297366320672789525200083856), (+1.39442192973146358855295013697858946, +0.494630164230031894807320676566953380), (+1.09737172107859449088652625436633830, +0.129990102917213864252506590914199220), (+1.02240735166823940336507665465055215, +0.208471028729119398989087612363551669), (+1.85286773639007114770481216864203230, +0.960159256244929635168541854708273918), (+1.12879898474211830842822133340858938, +0.380017266293575255981643768145085083), (+1.29758389290491224807837277921881219, +0.467889409543155434314775052756291422), (+1.41831942160265219581792535876388363, +0.630005623809231523228210406401459026), (+1.62567179795451252787221975328314334, +0.273132813456808206891790303075037230), (+1.05614879420611344943190694674732395, +0.244643615014664381660664210769006014), (+1.39755315895446437518976926989521329, +0.967636396610505078120320543967821202), (+1.69687016007728465498526146013057446, +0.393606753902436942572704263183341446), (+1.41661519511567851802606761227664431, +0.836637663351808477149459906642674825), (+1.65828819898093904042307914094695588, +0.114255155377303286735547756239949638), (+1.37337946134999877990257664023979189, +0.460847952042775307239915821024679451), (+1.01573250811220962169520275174623611, +0.749080324678019578518866420002021260), (+1.15730058624600591203105028978123162, +0.248484131827040770667089921975345485), (+1.42117205925060901990683100770083222, +0.280381946257269149110798978076445057), (+1.87495017757838598506179740356377011, +0.665584515337670613159288597767142563), (+1.98170881727935665443637109641324755, +0.449737295235507655094606837212512124), (+1.29696764826619104877853135401032185, +0.499350791812409369767817206878102890), (+1.52433449266673167100231305914726439, +0.197115880850289326498068026795710619), (+1.48237432603974579495743270297474525, +0.185876690253598104752107981987119894), (+1.80610787390617087600706091014184591, +0.325278851973163439652307327235997740), (+1.51039014362871459320080958146627591, +0.496805618980313067793040037172847970), (+1.96609985965692274394779154207391966, +0.404493787956762140421308622952519493), (+1.07079857936808155556131189427239783, +0.632301681658388390208289101379197100), (+1.51630045114771167522447023687530823, +0.771118815974485565743557457022702320), (+1.68000947881455907902441375994602927, +0.430363303832861183496802639258264231), (+1.55438693657562545895188530051679247, +0.139349057841646869601115782332717660), (+1.57753604048081595319316532170016246, +0.844015003920189550673309478488515881), (+1.83077800351025053654379657824620821, +0.902414458585167012991322287583412371), (+1.75644171841170130156867717983581374, +0.351957705975542735753560202375439969), (+1.05187373823159482232606690333723943, +0.391515330281452065481064397974791667), (+1.16820459914621512542071563877814444, +0.899320277692004301367726256182211653), (+1.62488222672117045683643948611025506, +0.305439327733503027316064324934985668), (+1.49567511470114088889883203165269809, +0.643039494650873119931361331196326651), (+1.69347132387406023159307956080831412, +0.274342118362457610562729933132342160), (+1.45276463858187025292160778259675264, +0.244884440910770048678839078905912625), (+1.61816374592669704694892353850920858, +0.548820363809111258483749533028250677), (+1.31053783301914679278835524958064329, +0.690538171516205735774724703459719454), (+1.98101235059093760553539926626507541, +0.145222076187213024298567289372544605), (+1.80491728745933116175537999453094402, +0.977911192614552236210842323249128407), (+1.23998415852139085230056896724350461, +0.240264312548889478268392725865975421), (+1.58762121941087073153999292922687342, +0.712896672015300586399460628422343319), (+1.07179931421468691562692520172869684, +0.137454907571071126474048957383896429), (+1.29882592211144038231531681857243446, +0.922061756860123773247761204186653649), (+1.21651827680539737847946723659664363, +0.596707580539450467290692871626902920), (+1.35054500836302549724090200335511459, +0.465578955349539157318194705238462183), (+1.96408947138504843948496429790180942, +0.928433277179043542687572737841325520), (+1.58475005699708252227563207944946285, +0.370872325616137321857048192706759204), (+1.32215570950795955716693204980689015, +0.739364346623591657875893665075576408), (+1.56819282588325923251050046902610636, +0.839933485702090322845534394124932798), (+1.27565361918548810152915674174260575, +0.422372363897510266573449318872262584), (+1.03056077886369702111806937521901578, +0.693606259094816364613516985762500035), (+1.99808108444988479552325527878585863, +0.797182991698592308911163862216033852), (+1.48251515064451455599419647106983691, +0.867340537606446435279977368906168813), (+1.89117433507483891063677295471898823, +0.636536719191632577594641062298659515), (+1.70508305356787875589425492245761493, +0.403724198726982263099057271982034733), (+1.96625864577393104566411238893857071, +0.624944535015796459875065955793204963), (+1.24331033404576786874312262247095314, +0.992125639604134130883449105328523633), (+1.10159481807379162577512438063263132, +0.424961387874013920389838625052858057), (+1.00990750647174352125423497598236681, +0.642889932520057307948419575930061083), (+1.94430888198180662819768762569564075, +0.509239719069838992238893824412431448), (+1.13133931740059406428543164630634007, +0.946025659419992440411096258642567258), (+1.55038414417139281411742091505878917, +0.718567767487692259567518181587109625), (+1.91383548743230582962340749771118988, +0.928719770613940045209372140453361085), (+1.41766004837572137610883130200796408, +0.437728326515486624253410850683857362E-1), (+1.24083549345119181001993718580957927, +0.658817408690021934066806395275620358), (+1.09007051686959283178016540874858496, +0.388255638757582562954887662277920662), (+1.67958957381344755808617555088913295, +0.758716227716496915753644194811425605), (+1.69038333403453331826160740199020515, +0.486037454122564266735575534831966348), (+1.50983090507681660242053723796539092, +0.862952102679911537737296032316340461), (+1.50599871331312624090050503879400343, +0.884682945110827748074095039075441165), (+1.41897981986198586657259557567837171, +0.124759901823038393839867525218957499), (+1.10514047928650688898702003800091977, +0.289360910857925251888012543041215733), (+1.08576211672213431272902188122224085, +0.245449181413071516610662793904450525), (+1.24549109511912059106550692324597170, +0.207643736265503429111476981972280623), (+1.95838677380374697718099102133185125, +0.864283744580500969614712771767174698), (+1.59302513973212879232342430430119497, +0.252852146266783683301049164184726998), (+1.33769972078661961893721171211858745, +0.686839166507393852444155944254235152), (+1.74327942123662543677283373764938905, +0.771913361911448458649750416444587923E-1), (+1.57311778147012147684759020564469714, +0.644296405036788254568213934898470540), (+1.85140722430731566127805380615632400, +0.173757004743225837793155917195381310), (+1.93589760016064582955567608258850148, +0.768671470250026459839721512673917925), (+1.79334993219223482100237380181125060, +0.863201430618618177557531042635291581), (+1.33394115165111529220274491938489295, +0.570694128264416131207654079435256877)

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

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

260data

261+1.23390484, +1.91632998, +1.99351525, +1.72996688, +1.92601550, +1.14845586, +1.35257912, +1.64039540, +1.81321228, +1.21401167, +1.21872604, +1.57779479, +1.02134156, +1.37078094, +1.29055142, +1.11402953, +1.43578160, +1.08438587, +1.08574069, +1.44571221, +1.32323468, +1.39352393, +1.23181760, +1.20900106, +1.22698593, +1.10965228, +1.48513341, +1.92693591, +1.68446851, +1.44749141, +1.72765005, +1.95815885, +1.99628878, +1.56161726, +1.97775769, +1.75017023, +1.09181714, +1.03981161, +1.05145597, +1.06830549, +1.41472125, +1.49426556, +1.69675696, +1.86364198, +1.32952738, +1.82275462, +1.29709744, +1.31326914, +1.34695554, +1.22808504, +1.31512403, +1.77768755, +1.82519436, +1.49000096, +1.76465297, +1.55532670, +1.82459474, +1.98794317, +1.90265083, +1.88090539, +1.00335765, +1.93256426, +1.27014041, +1.12533498, +1.73583174, +1.74389863, +1.14198375, +1.09729362, +1.57349491, +1.15439355, +1.02409387, +1.68265426, +1.60025048, +1.92785382, +1.79166484, +1.63376880, +1.66088200, +1.43944001, +1.66343331, +1.64945590, +1.74176252, +1.28670919, +1.45804620, +1.70125675, +1.91216743, +1.60334420, +1.91844463, +1.66429758, +1.03715897, +1.56180608, +1.52210283, +1.94768500, +1.68740630, +1.25989008, +1.01059294, +1.21731234, +1.59895802, +1.19003367, +1.56970000, +1.62354958

262

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

264adat

265+1.23390436, +1.91632938, +1.99351513, +1.72996616, +1.92601514, +1.14845550, +1.35257924, +1.64039505, +1.81321168, +1.21401167, +1.21872580, +1.57779455, +1.02134120, +1.37078083, +1.29055119, +1.11402941, +1.43578160, +1.08438551, +1.08574069, +1.44571209, +1.32323444, +1.39352369, +1.23181748, +1.20900059, +1.22698593, +1.10965204, +1.48513353, +1.92693591, +1.68446827, +1.44749165, +1.72765028, +1.95815897, +1.99628878, +1.56161737, +1.97775757, +1.75017023, +1.09181738, +1.03981161, +1.05145609, +1.06830537, +1.41472101, +1.49426544, +1.69675708, +1.86364150, +1.32952726, +1.82275462, +1.29709768, +1.31326902, +1.34695530, +1.22808528, +1.31512415, +1.77768779, +1.82519436, +1.49000096, +1.76465285, +1.55532682, +1.82459486, +1.98794317, +1.90265095, +1.88090551, +1.00335753, +1.93256414, +1.27014053, +1.12533462, +1.73583162, +1.74389875, +1.14198399, +1.09729350, +1.57349455, +1.15439367, +1.02409410, +1.68265462, +1.60025060, +1.92785406, +1.79166484, +1.63376892, +1.66088212, +1.43944001, +1.66343343, +1.64945590, +1.74176228, +1.28670883, +1.45804608, +1.70125639, +1.91216755, +1.60334408, +1.91844499, +1.66429758, +1.03715861, +1.56180620, +1.52210307, +1.94768512, +1.68740630, +1.25989020, +1.01059294, +1.21731234, +1.59895813, +1.19003356, +1.56970012, +1.62354946

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

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+25

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

277data

278+1.7363653132501415, +1.0911476873791681, +1.1287084127101144, +1.3585239294453926, +1.4955963963005821, +1.4021596356571675, +1.5443023774204485, +1.9904857073433369, +1.6242595181816721, +1.3247168735287747, +1.3678281073593934, +1.6202938785175314, +1.4625626311974347, +1.4414893495671872, +1.5017100390831020, +1.1388515406610389, +1.5086383751348973, +1.3280368375555653, +1.3973373780349179, +1.5507774948192892, +1.8938242099694658, +1.5535017353310774, +1.0472917253793559, +1.0882452803468272, +1.1492767049974635

279

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

281adat

282+1.7363653132501424, +1.0911476873791688, +1.1287084127101144, +1.3585239294453928, +1.4955963963005821, +1.4021596356571677, +1.5443023774204485, +1.9904857073433362, +1.6242595181816719, +1.3247168735287747, +1.3678281073593936, +1.6202938785175318, +1.4625626311974347, +1.4414893495671868, +1.5017100390831017, +1.1388515406610391, +1.5086383751348975, +1.3280368375555653, +1.3973373780349174, +1.5507774948192889, +1.8938242099694662, +1.5535017353310772, +1.0472917253793554, +1.0882452803468270, +1.1492767049974635

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

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

289

290lenData = getUnifRand(5, 100)

291lenData

292+51

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

294data

295+1.77704488181721434779639292413485320, +1.92440538498204055829248496179408900, +1.87651709177841013872765450763008474, +1.58450274901691227215270512982778097, +1.87482108233295576444777174031921329, +1.27541983808653573625512626302441389, +1.47246545495414782306697029061448542, +1.52280349435784546817146743663692897, +1.96943454952056606127405296501851087, +1.28203509292768761127072607801099430, +1.14900552222933489131098296821682852, +1.33618592221827904368348402115252789, +1.03760510494574465044431239001938499, +1.55153757865498145220888001294977705, +1.65757469498846487180042076094789841, +1.50117111294339264478333403783074915, +1.38646985806617587135431159255406243, +1.53088170278116761623195904244830229, +1.20776821488822776341802395105824517, +1.84480137094659754901731301385351263, +1.60776807900122019526809297641376274, +1.23486767882673138438098258022529215, +1.67326913007702052273651762923373101, +1.43184296682973926534695175611356461, +1.56204628003074676693776054621908318, +1.99949243919171394980317093353318451, +1.94141667801505451650381973598398248, +1.16395519233831996233760377811143757, +1.22050134370361790418748074258900634, +1.31454283301328324967824777938438099, +1.87842652079688258711642233998866402, +1.39603225387238050493300918709790656, +1.97383672616552134411662096905661725, +1.70581581722632583610140204726802531, +1.01734263264302558781272953443100758, +1.16823473493219482491190599271237985, +1.03184120034102358103057864313769464, +1.65839706110925116626277035776980279, +1.60152276317537042849646848942144016, +1.26989507619907304903177897524467265, +1.13212229781050820984001568916714377, +1.65608659851020971544713089919878246, +1.22155893705235900503435688513148377, +1.02291555857295107048594244816371667, +1.73366494290304763848619937606771854, +1.34128258846243829158807432843553600, +1.09907261789056660601021306836783183, +1.59148871145962697641831581267235637, +1.00372858672696798302450762882717347, +1.50153288928442986794565690699920864, +1.72629667540356472046600976726663579

296

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

298adat

299+1.77704488181721434779639292413485358, +1.92440538498204055829248496179408958, +1.87651709177841013872765450763008513, +1.58450274901691227215270512982778097, +1.87482108233295576444777174031921291, +1.27541983808653573625512626302441331, +1.47246545495414782306697029061448600, +1.52280349435784546817146743663692916, +1.96943454952056606127405296501851030, +1.28203509292768761127072607801099410, +1.14900552222933489131098296821682871, +1.33618592221827904368348402115252770, +1.03760510494574465044431239001938557, +1.55153757865498145220888001294977725, +1.65757469498846487180042076094789860, +1.50117111294339264478333403783074799, +1.38646985806617587135431159255406205, +1.53088170278116761623195904244830133, +1.20776821488822776341802395105824594, +1.84480137094659754901731301385351263, +1.60776807900122019526809297641376255, +1.23486767882673138438098258022529177, +1.67326913007702052273651762923373063, +1.43184296682973926534695175611356384, +1.56204628003074676693776054621908453, +1.99949243919171394980317093353318509, +1.94141667801505451650381973598398344, +1.16395519233831996233760377811144066, +1.22050134370361790418748074258900980, +1.31454283301328324967824777938438503, +1.87842652079688258711642233998866248, +1.39603225387238050493300918709790502, +1.97383672616552134411662096905661436, +1.70581581722632583610140204726802570, +1.01734263264302558781272953443100931, +1.16823473493219482491190599271238101, +1.03184120034102358103057864313769406, +1.65839706110925116626277035776980183, +1.60152276317537042849646848942143862, +1.26989507619907304903177897524467285, +1.13212229781050820984001568916714434, +1.65608659851020971544713089919878265, +1.22155893705235900503435688513148357, +1.02291555857295107048594244816371667, +1.73366494290304763848619937606771796, +1.34128258846243829158807432843553678, +1.09907261789056660601021306836783222, +1.59148871145962697641831581267235618, +1.00372858672696798302450762882717347, +1.50153288928442986794565690699920845, +1.72629667540356472046600976726663502

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

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

311data

312(+1.64079130, +0.336838126), (+1.21258676, +0.100598931), (+1.59017169, +0.592905581), (+1.74149013, +0.431009829), (+1.88361096, +0.443869829), (+1.13208067, +0.395405829), (+1.90364861, +0.884818137), (+1.95403910, +0.891506255), (+1.40356374, +0.501670241E-1), (+1.99054909, +0.683733225), (+1.24687350, +0.854887664), (+1.64502358, +0.725183487), (+1.44259524, +0.530586600), (+1.29159069, +0.283755004), (+1.23681223, +0.339512110), (+1.93312156, +0.865632296E-2), (+1.74143410, +0.526829243), (+1.09288716, +0.846617877), (+1.57882535, +0.210560918), (+1.43481016, +0.865322769), (+1.51217389, +0.908340991), (+1.35754967, +0.453256965E-1), (+1.53126216, +0.706365824), (+1.07699490, +0.413936675), (+1.63039303, +0.116748035), (+1.36104357, +0.108294487E-1)

313

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

315adat

316(+1.64079213, +0.336838216), (+1.21258664, +0.100598745), (+1.59017158, +0.592905402), (+1.74148989, +0.431009799), (+1.88361120, +0.443869889), (+1.13208067, +0.395405799), (+1.90364885, +0.884818316), (+1.95403934, +0.891506255), (+1.40356362, +0.501670279E-1), (+1.99054897, +0.683733344), (+1.24687314, +0.854887664), (+1.64502335, +0.725183487), (+1.44259501, +0.530586362), (+1.29159153, +0.283755243), (+1.23681176, +0.339511991), (+1.93312144, +0.865620840E-2), (+1.74143398, +0.526829123), (+1.09288728, +0.846617937), (+1.57882512, +0.210560828), (+1.43481004, +0.865323067), (+1.51217437, +0.908341050), (+1.35754955, +0.453257933E-1), (+1.53126228, +0.706366003), (+1.07699454, +0.413936436), (+1.63039279, +0.116747983), (+1.36104333, +0.108293202E-1)

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

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

323

324lenData = getUnifRand(5, 100)

325lenData

326+86

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

328data

329(+1.8929522136045764, +0.91039014326207757E-1), (+1.9774418647031839, +0.66292597733269176), (+1.5844557147342004, +0.27883097782124922), (+1.1022264977679375, +0.74261687741624927), (+1.4614602410650712, +0.74295216978372902), (+1.1645861561871986, +0.22057144120481753), (+1.7632800663732515, +0.16981230342658504), (+1.1325498700414316, +0.37654993282693061E-2), (+1.5240885273006544, +0.94735781422751186E-2), (+1.8518907047255480, +0.56409928148332744), (+1.4649786467182091, +0.78460586827270995), (+1.3542244969389583, +0.35821533838423958), (+1.8309869849096678, +0.92244046778132471E-1), (+1.2197462733062365, +0.53937245326759053), (+1.0215627583996465, +0.31311326478362178), (+1.7522964350787624, +0.73899113955866769), (+1.5657724410217129, +0.25180991964442789), (+1.8399972424287085, +0.64826920629488671), (+1.8453473757824497, +0.16844743864220180), (+1.8082401853398653, +0.80054924687291584E-1), (+1.6484966867833024, +0.28504298928512906), (+1.3461302824829331, +0.81598447498655258), (+1.4916573796607946, +0.15835489003485459), (+1.7842978832334118, +0.49946163442347580), (+1.7172844710588788, +0.16159798002509607), (+1.4914795136914201, +0.84895556981230780), (+1.6464294540792843, +0.15021185046350860), (+1.2155830153623430, +0.55861433374432845), (+1.0173950201223230, +0.79306285883159033), (+1.0858000848647402, +0.59168586577238780E-1), (+1.0183382660222444, +0.25769747719366454), (+1.4735629883887458, +0.23155503318992221), (+1.1986223205708155, +0.61779682168030770), (+1.5409877249547574, +0.51328462387886209), (+1.3214164342855361, +0.28948552720843357), (+1.4658211209606367, +0.31855691566802735), (+1.1179611180489188, +0.52925950939089839), (+1.1254963182445947, +0.47420522960558387), (+1.4412925718368577, +0.73947909334392592), (+1.4781539351068076, +0.86960992159206019), (+1.1539150175460329, +0.82137865330193471), (+1.6138154624216430, +0.93824771082413583), (+1.0589850528615159, +0.90103379714512488), (+1.9109804935156594, +0.99647561265707285), (+1.5284530577929569, +0.78117335470888716), (+1.1141672633752884, +0.32915083588418981), (+1.7694224774729848, +0.56015469911458715), (+1.3864181375687719, +0.12526830776162456), (+1.7168989133999113, +0.53603883754340220), (+1.4222972270499445, +0.81827316456522858), (+1.3862754353399218, +0.76164277782558920), (+1.8471238932301706, +0.71007737123296921), (+1.7061659979135282, +0.73258327524750566), (+1.1759258489031257, +0.62332671432471731), (+1.2955012564295578, +0.37441713508614571), (+1.7778449042212767, +0.15484935511818598), (+1.3585082224207652, +0.24335938842720706), (+1.6356484437526344, +0.63116627961194638), (+1.8142099133028906, +0.32852984063787682), (+1.3617500948877002, +0.86186396993725667), (+1.1626056285120547, +0.82238375392425966), (+1.2239423576290811, +0.41062994700078570E-1), (+1.7121643182485204, +0.44879065047410904), (+1.9835856678077790, +0.77332602708106157E-1), (+1.5510617993605078, +0.61744579075593220), (+1.1262181801271933, +0.51591879134181140), (+1.9428746174453198, +0.49800648566345329), (+1.4565381578884362, +0.28290902170165910), (+1.6482569366084592, +0.29291619825797577), (+1.3659398827952745, +0.88647813121222974), (+1.1451281918054690, +0.60572455356177390), (+1.2868145761753740, +0.26149049733860630), (+1.5425359387137281, +0.20088275122520816), (+1.4154649157202284, +0.86853275365226446), (+1.9710639374441947, +0.20916188861884977), (+1.3676457673427653, +0.35751121693284460), (+1.7935074653226124, +0.61495445481005573), (+1.6975131390814431, +0.49088119011177922), (+1.6907882496661777, +0.77967215201022888), (+1.3159002441343191, +0.13622892808491494E-1), (+1.2347155638141181, +0.13666176748191972), (+1.8018492932816552, +0.81399695884570300E-1), (+1.7456181414383536, +0.74129009488241870), (+1.3123715965807974, +0.41385445344438565), (+1.2347783772318541, +0.54305780667217296), (+1.6190881982054797, +0.89521434251818521)

330

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

332adat

333(+1.8929522136045773, +0.91039014326207895E-1), (+1.9774418647031835, +0.66292597733269176), (+1.5844557147342004, +0.27883097782124927), (+1.1022264977679375, +0.74261687741624938), (+1.4614602410650710, +0.74295216978372880), (+1.1645861561871980, +0.22057144120481717), (+1.7632800663732517, +0.16981230342658488), (+1.1325498700414320, +0.37654993282691175E-2), (+1.5240885273006552, +0.94735781422754361E-2), (+1.8518907047255475, +0.56409928148332722), (+1.4649786467182091, +0.78460586827270995), (+1.3542244969389592, +0.35821533838423963), (+1.8309869849096665, +0.92244046778132235E-1), (+1.2197462733062374, +0.53937245326759053), (+1.0215627583996474, +0.31311326478362184), (+1.7522964350787618, +0.73899113955866735), (+1.5657724410217126, +0.25180991964442812), (+1.8399972424287094, +0.64826920629488660), (+1.8453473757824503, +0.16844743864220171), (+1.8082401853398651, +0.80054924687291432E-1), (+1.6484966867833022, +0.28504298928512900), (+1.3461302824829338, +0.81598447498655258), (+1.4916573796607937, +0.15835489003485459), (+1.7842978832334115, +0.49946163442347574), (+1.7172844710588790, +0.16159798002509615), (+1.4914795136914201, +0.84895556981230780), (+1.6464294540792843, +0.15021185046350882), (+1.2155830153623435, +0.55861433374432823), (+1.0173950201223230, +0.79306285883158989), (+1.0858000848647402, +0.59168586577238620E-1), (+1.0183382660222444, +0.25769747719366470), (+1.4735629883887458, +0.23155503318992218), (+1.1986223205708157, +0.61779682168030770), (+1.5409877249547570, +0.51328462387886187), (+1.3214164342855361, +0.28948552720843340), (+1.4658211209606364, +0.31855691566802735), (+1.1179611180489191, +0.52925950939089828), (+1.1254963182445950, +0.47420522960558392), (+1.4412925718368577, +0.73947909334392570), (+1.4781539351068069, +0.86960992159205996), (+1.1539150175460333, +0.82137865330193449), (+1.6138154624216432, +0.93824771082413572), (+1.0589850528615155, +0.90103379714512488), (+1.9109804935156594, +0.99647561265707307), (+1.5284530577929565, +0.78117335470888716), (+1.1141672633752879, +0.32915083588418986), (+1.7694224774729848, +0.56015469911458693), (+1.3864181375687721, +0.12526830776162437), (+1.7168989133999115, +0.53603883754340176), (+1.4222972270499445, +0.81827316456522847), (+1.3862754353399220, +0.76164277782558909), (+1.8471238932301710, +0.71007737123296910), (+1.7061659979135284, +0.73258327524750555), (+1.1759258489031255, +0.62332671432471731), (+1.2955012564295580, +0.37441713508614566), (+1.7778449042212761, +0.15484935511818582), (+1.3585082224207652, +0.24335938842720725), (+1.6356484437526346, +0.63116627961194649), (+1.8142099133028906, +0.32852984063787644), (+1.3617500948877002, +0.86186396993725645), (+1.1626056285120547, +0.82238375392425944), (+1.2239423576290815, +0.41062994700078410E-1), (+1.7121643182485209, +0.44879065047410904), (+1.9835856678077788, +0.77332602708105699E-1), (+1.5510617993605067, +0.61744579075593220), (+1.1262181801271931, +0.51591879134181140), (+1.9428746174453198, +0.49800648566345340), (+1.4565381578884373, +0.28290902170165888), (+1.6482569366084596, +0.29291619825797566), (+1.3659398827952740, +0.88647813121222963), (+1.1451281918054688, +0.60572455356177379), (+1.2868145761753744, +0.26149049733860619), (+1.5425359387137285, +0.20088275122520827), (+1.4154649157202284, +0.86853275365226412), (+1.9710639374441936, +0.20916188861884943), (+1.3676457673427656, +0.35751121693284477), (+1.7935074653226126, +0.61495445481005573), (+1.6975131390814437, +0.49088119011177933), (+1.6907882496661786, +0.77967215201022888), (+1.3159002441343188, +0.13622892808491330E-1), (+1.2347155638141181, +0.13666176748191949), (+1.8018492932816552, +0.81399695884570175E-1), (+1.7456181414383531, +0.74129009488241848), (+1.3123715965807976, +0.41385445344438576), (+1.2347783772318541, +0.54305780667217318), (+1.6190881982054790, +0.89521434251818532)

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

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

340

341lenData = getUnifRand(5, 100)

342lenData

343+7

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

345data

346(+1.11426608200423799079640456247824099, +0.558210606489683647348378050183034778), (+1.13543723178622342207845460925177835, +0.310413618706233995186714155025452147), (+1.00915593602661549768783249901934565, +0.492641996532671541964147317397646588), (+1.15839873576663670236604531905531147, +0.399409109179478848635848467209760708), (+1.24362142109027767036673736082337771, +0.527346722854018947179910132690531158), (+1.75684287673731047026364442586085661, +0.712150639232067480570074539546647732), (+1.18204827439011283597911862253453157, +0.977462170707422054564226232772744147)

347

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

349adat

350(+1.11426608200423799079640456247824099, +0.558210606489683647348378050183034778), (+1.13543723178622342207845460925177854, +0.310413618706233995186714155025452099), (+1.00915593602661549768783249901934584, +0.492641996532671541964147317397646684), (+1.15839873576663670236604531905531128, +0.399409109179478848635848467209760708), (+1.24362142109027767036673736082337752, +0.527346722854018947179910132690531158), (+1.75684287673731047026364442586085680, +0.712150639232067480570074539546647924), (+1.18204827439011283597911862253453157, +0.977462170707422054564226232772744051)

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

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T

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

357

358lenData = getUnifRand(5, 100)

359lenData

360+82

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

362data

363+1.61674881, +1.01582909, +1.91323280, +1.81733775, +1.57581794, +1.76248014, +1.07747352, +1.55800724, +1.78275561, +1.67885947, +1.11452222, +1.21594620, +1.49108481, +1.22917128, +1.41486490, +1.79132068, +1.53646159, +1.53074884, +1.20316410, +1.49470448, +1.20146978, +1.32066631, +1.19075584, +1.53700697, +1.66534138, +1.07682395, +1.59326005, +1.70714545, +1.93755078, +1.34413230, +1.11070967, +1.53861213, +1.06054425, +1.58571362, +1.14155817, +1.97627079, +1.50669479, +1.74769092, +1.70949769, +1.87261105, +1.81927931, +1.74505854, +1.56676936, +1.07876086, +1.93979478, +1.26800513, +1.94469190, +1.68363249, +1.87895775, +1.43901753, +1.91488922, +1.15206885, +1.34044623, +1.65286636, +1.43368685, +1.92854810, +1.11476016, +1.05609560, +1.71611977, +1.77977240, +1.95660496, +1.68179774, +1.05961561, +1.05246639, +1.29972553, +1.34148550, +1.06221735, +1.58108735, +1.28349674, +1.23236728, +1.55701113, +1.98248553, +1.98653054, +1.27046752, +1.30843902, +1.68627477, +1.18384087, +1.67593956, +1.44111550, +1.35836124, +1.14827168, +1.54121864

364

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

366adat

367+1.61674869, +1.01582909, +1.91323185, +1.81733739, +1.57581818, +1.76248002, +1.07747316, +1.55800688, +1.78275537, +1.67885923, +1.11452222, +1.21594572, +1.49108529, +1.22917151, +1.41486466, +1.79131973, +1.53646195, +1.53074872, +1.20316327, +1.49470329, +1.20147038, +1.32066667, +1.19075549, +1.53700662, +1.66534162, +1.07682526, +1.59325969, +1.70714498, +1.93755114, +1.34413290, +1.11070931, +1.53861165, +1.06054497, +1.58571303, +1.14155638, +1.97626853, +1.50669503, +1.74769127, +1.70949411, +1.87260830, +1.81928456, +1.74506187, +1.56677687, +1.07876611, +1.93979049, +1.26800323, +1.94469285, +1.68363225, +1.87895465, +1.43901622, +1.91488886, +1.15206850, +1.34044528, +1.65286577, +1.43368804, +1.92854714, +1.11476028, +1.05609620, +1.71612060, +1.77977216, +1.95660341, +1.68179715, +1.05961668, +1.05246699, +1.29972422, +1.34148479, +1.06221819, +1.58108711, +1.28349626, +1.23236728, +1.55701137, +1.98248458, +1.98652971, +1.27046800, +1.30843937, +1.68627429, +1.18384027, +1.67593920, +1.44111562, +1.35836136, +1.14827096, +1.54121804

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

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

374

375lenData = getUnifRand(5, 100)

376lenData

377+83

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

379data

380+1.9302696401485426, +1.6688505100149884, +1.5963724942314164, +1.7576685695583241, +1.5703339789851012, +1.1751729241445488, +1.2047769152598282, +1.3467455039801111, +1.6234807021451312, +1.8178260407762310, +1.4483206273378144, +1.8623790773203162, +1.1353332903661997, +1.7745008677270828, +1.4241166559424387, +1.9138055835369143, +1.2646187155017818, +1.3289348391335780, +1.4817379105768800, +1.5790430558037238, +1.2488267679924145, +1.0140537797765148, +1.6412732908039733, +1.8944024606837748, +1.9132309108512568, +1.6647034074732212, +1.6674604533290944, +1.9975382516640803, +1.0368346193147677, +1.1150593686129904, +1.3124222413009872, +1.8694783703953792, +1.0439717739046417, +1.2486802019520187, +1.5743088286358085, +1.6850012475784510, +1.1538600522302325, +1.3033345576794266, +1.4642783660630851, +1.0175167729547676, +1.5990273705178584, +1.3222992759016297, +1.3647732094943326, +1.7984312450784956, +1.4405272731922245, +1.2465563304084468, +1.5616797540153811, +1.2992849859250029, +1.4499384731880729, +1.1157042425046977, +1.8241947880800269, +1.2182241084253955, +1.4926040713813293, +1.6757135560563139, +1.3150178492695135, +1.9016091933238766, +1.2100808239556518, +1.2663692565261193, +1.9049614954803569, +1.2988487850933370, +1.0340397099650389, +1.5942210425295487, +1.4009333527369068, +1.9900027766770005, +1.8084401927257698, +1.8784807682605060, +1.6477180427303362, +1.1205474812392624, +1.4043693883176265, +1.0250169904809887, +1.3422307073202848, +1.0705193006121485, +1.0879947242032122, +1.0576104031468776, +1.0932811082769187, +1.6386698758789102, +1.7140246599863485, +1.3270297365531223, +1.2074723719740845, +1.7110307791252080, +1.6647563570943431, +1.9904102630441156, +1.7761952157758665

381

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

383adat

384+1.9302696401485429, +1.6688505100149855, +1.5963724942314161, +1.7576685695583221, +1.5703339789851012, +1.1751729241445461, +1.2047769152598276, +1.3467455039801102, +1.6234807021451332, +1.8178260407762317, +1.4483206273378135, +1.8623790773203193, +1.1353332903661957, +1.7745008677270866, +1.4241166559424365, +1.9138055835369192, +1.2646187155017803, +1.3289348391335765, +1.4817379105768804, +1.5790430558037256, +1.2488267679924134, +1.0140537797765103, +1.6412732908039751, +1.8944024606837755, +1.9132309108512611, +1.6647034074732188, +1.6674604533290942, +1.9975382516640898, +1.0368346193147584, +1.1150593686129877, +1.3124222413009810, +1.8694783703953926, +1.0439717739046332, +1.2486802019520138, +1.5743088286358107, +1.6850012475784568, +1.1538600522302256, +1.3033345576794233, +1.4642783660630960, +1.0175167729547507, +1.5990273705178766, +1.3222992759016170, +1.3647732094943221, +1.7984312450785118, +1.4405272731922201, +1.2465563304084442, +1.5616797540153844, +1.2992849859249977, +1.4499384731880762, +1.1157042425046870, +1.8241947880800395, +1.2182241084253869, +1.4926040713813300, +1.6757135560563210, +1.3150178492695024, +1.9016091933238897, +1.2100808239556449, +1.2663692565261133, +1.9049614954803655, +1.2988487850933339, +1.0340397099650307, +1.5942210425295551, +1.4009333527369019, +1.9900027766770063, +1.8084401927257705, +1.8784807682605087, +1.6477180427303366, +1.1205474812392593, +1.4043693883176271, +1.0250169904809863, +1.3422307073202857, +1.0705193006121476, +1.0879947242032113, +1.0576104031468776, +1.0932811082769160, +1.6386698758789124, +1.7140246599863498, +1.3270297365531218, +1.2074723719740816, +1.7110307791252093, +1.6647563570943404, +1.9904102630441165, +1.7761952157758640

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

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

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

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

391

392lenData = getUnifRand(5, 100)

393lenData

394+80

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

396data

397+1.70546036928475999909371034393988114, +1.78466429612293941172776170200023992, +1.52900489915547583838328124365775011, +1.08265962273396730340917999589713353, +1.68846115565307794928074585744109286, +1.94398657227231131851261334400117277, +1.66506708240378253649133193332736018, +1.89088050415395107537026215259797342, +1.09627500950032757474396782566925478, +1.37185504470381871573485009372569224, +1.23292259356697291433754669676522051, +1.97905305546111913324160340609262147, +1.99490889205269953527459480243677899, +1.06759060502825773672414876396067548, +1.41721614565915270559291367591301157, +1.58401952894866824877534704926534868, +1.22347829733907643877533631250359308, +1.99074998374635069810018329861553248, +1.73797553250255647133183506348500015, +1.34453963237969778256958619113900430, +1.52240571718238712459333088240608110, +1.84962841881998464284886720265515046, +1.80414885937079051298443892257214885, +1.63281856594125959334657712210345083, +1.76953464478415789012682515674711702, +1.24556252208363978819905201695324697, +1.27151269878364210771776577868228467, +1.02910005916054472873927147055555147, +1.29531023909409462905321749754106754, +1.18986451838581199660528095472446153, +1.39036312109309499189307100353110663, +1.00363930122688092983314728359630721, +1.65594406433068536796329448384833719, +1.18817302080209738247896004754541398, +1.58098774055181568138312521073086720, +1.49291200593818971115359472171006406, +1.48347001793606376851843278592687809, +1.08022218735047717025009786830537011, +1.28737892393394136242427836620248761, +1.69745848574124556456171105875878674, +1.68179140768524969952358674023112826, +1.12090154218812349077876872526341543, +1.41327341125686846808353743620070502, +1.17653249945697768417861466145234702, +1.67812317448844307522524523301162567, +1.60359325922289801043020674203273145, +1.89985638675335365312430796402268270, +1.05858074573169124180527093988726337, +1.29529709839642921695550017019895923, +1.95390709029537834820284847119203496, +1.61582945409377059727404150515903403, +1.30310609398212746997653158428071185, +1.63784287822439304257303034782023858, +1.51448403134596005212768892762527854, +1.81346933642912859935777143187182013, +1.65211470832390034941255447286170913, +1.97380027482443104471165510631064389, +1.26100018048194376859932408383631768, +1.42567037118395986207902542531635529, +1.17533326730927191498972903506694782, +1.81373479325094734322941910609561658, +1.11954258976636254573744344738224104, +1.37196334631453245994587814531396409, +1.74026232311008339952843162338051025, +1.66859136505472342082204876413544765, +1.50641225844534434390592843400442115, +1.22127602418979387601776055400892300, +1.75527294865765788504851141946067607, +1.19610914246850387326330085627023409, +1.83706367612237894295855084321983610, +1.88170984755385138950999252381082677, +1.27496053324529184622565162371800362, +1.00263934820727750076855368956878831, +1.79719689316810178751496242780782038, +1.65749358562784399548262692675076395, +1.82006549470272093179650931442557663, +1.52692878205913868272199720309728227, +1.64502261815519086073272766076357831, +1.19194392188517140827458748293028193, +1.48160867114795038480848279933590651

398

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

400adat

401+1.70546036928475999909371034393988095, +1.78466429612293941172776170200023992, +1.52900489915547583838328124365774992, +1.08265962273396730340917999589713314, +1.68846115565307794928074585744109267, +1.94398657227231131851261334400117238, +1.66506708240378253649133193332736018, +1.89088050415395107537026215259797304, +1.09627500950032757474396782566925478, +1.37185504470381871573485009372569185, +1.23292259356697291433754669676522051, +1.97905305546111913324160340609262109, +1.99490889205269953527459480243677880, +1.06759060502825773672414876396067510, +1.41721614565915270559291367591301157, +1.58401952894866824877534704926534829, +1.22347829733907643877533631250359308, +1.99074998374635069810018329861553267, +1.73797553250255647133183506348500015, +1.34453963237969778256958619113900411, +1.52240571718238712459333088240608110, +1.84962841881998464284886720265515027, +1.80414885937079051298443892257214885, +1.63281856594125959334657712210345064, +1.76953464478415789012682515674711664, +1.24556252208363978819905201695324658, +1.27151269878364210771776577868228467, +1.02910005916054472873927147055555128, +1.29531023909409462905321749754106735, +1.18986451838581199660528095472446133, +1.39036312109309499189307100353110663, +1.00363930122688092983314728359630721, +1.65594406433068536796329448384833699, +1.18817302080209738247896004754541456, +1.58098774055181568138312521073086720, +1.49291200593818971115359472171006367, +1.48347001793606376851843278592687790, +1.08022218735047717025009786830536954, +1.28737892393394136242427836620248780, +1.69745848574124556456171105875878655, +1.68179140768524969952358674023112807, +1.12090154218812349077876872526341543, +1.41327341125686846808353743620070483, +1.17653249945697768417861466145234663, +1.67812317448844307522524523301162567, +1.60359325922289801043020674203273106, +1.89985638675335365312430796402268270, +1.05858074573169124180527093988726337, +1.29529709839642921695550017019895904, +1.95390709029537834820284847119203534, +1.61582945409377059727404150515903384, +1.30310609398212746997653158428071147, +1.63784287822439304257303034782023820, +1.51448403134596005212768892762527796, +1.81346933642912859935777143187181994, +1.65211470832390034941255447286170894, +1.97380027482443104471165510631064389, +1.26100018048194376859932408383631749, +1.42567037118395986207902542531635510, +1.17533326730927191498972903506694782, +1.81373479325094734322941910609561696, +1.11954258976636254573744344738224065, +1.37196334631453245994587814531396429, +1.74026232311008339952843162338051006, +1.66859136505472342082204876413544765, +1.50641225844534434390592843400442115, +1.22127602418979387601776055400892300, +1.75527294865765788504851141946067607, +1.19610914246850387326330085627023389, +1.83706367612237894295855084321983572, +1.88170984755385138950999252381082658, +1.27496053324529184622565162371800343, +1.00263934820727750076855368956878811, +1.79719689316810178751496242780782000, +1.65749358562784399548262692675076395, +1.82006549470272093179650931442557644, +1.52692878205913868272199720309728227, +1.64502261815519086073272766076357792, +1.19194392188517140827458748293028193, +1.48160867114795038480848279933590632

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

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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.64559865, +0.810270369), (+1.05471110, +0.326457858), (+1.36738622, +0.446828783), (+1.82021356, +0.532860458), (+1.96326566, +0.524032354), (+1.72892320, +0.334262133), (+1.30718195, +0.177365065), (+1.75757039, +0.708238661), (+1.43584704, +0.490274429), (+1.15588689, +0.713338137), (+1.21408463, +0.634188056E-1), (+1.39038658, +0.154683411), (+1.53686857, +0.362590849), (+1.25644708, +0.515261114), (+1.71476412, +0.184107482), (+1.88470292, +0.409870744), (+1.17640471, +0.585154176), (+1.36708236, +0.341870546), (+1.99340951, +0.458266973), (+1.24361372, +0.877514839), (+1.27878714, +0.247831464), (+1.78937244, +0.831125498), (+1.60239601, +0.738431990), (+1.50513124, +0.283129454), (+1.02454853, +0.265971005), (+1.50399184, +0.374822438), (+1.89952469, +0.220234931), (+1.19205320, +0.402526855E-1), (+1.55753112, +0.622331619), (+1.71141040, +0.779952407E-1), (+1.92048526, +0.399235964), (+1.89623642, +0.384128332), (+1.63570356, +0.619570076), (+1.11296034, +0.775389552), (+1.98695278, +0.156841159), (+1.11209488, +0.535456836), (+1.41614914, +0.862960398), (+1.96251059, +0.510213673), (+1.18796885, +0.107860327), (+1.80429363, +0.304119229), (+1.99539566, +0.117612600), (+1.87644839, +0.878307343), (+1.51219821, +0.609939277), (+1.09756184, +0.875412822), (+1.97563815, +0.348069370), (+1.10651410, +0.544662416), (+1.16299582, +0.420201659), (+1.75882435, +0.951325893), (+1.28277779, +0.688031495), (+1.53240776, +0.301690102E-1), (+1.41724944, +0.370314956), (+1.52939153, +0.393736839), (+1.41150117, +0.673236847E-1), (+1.41057801, +0.724733472E-1), (+1.78661275, +0.352838039E-1), (+1.81052566, +0.520497262), (+1.16561353, +0.968593538), (+1.51150227, +0.647021294), (+1.02315438, +0.186372161), (+1.94818294, +0.856015742), (+1.74766409, +0.480973125), (+1.27385998, +0.130993068), (+1.47269177, +0.431747615), (+1.42754161, +0.525027275), (+1.85789204, +0.484903574)

415

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

417adat

418(+1.64559865, +0.810270309), (+1.05471098, +0.326457858), (+1.36738634, +0.446828723), (+1.82021344, +0.532860518), (+1.96326554, +0.524032295), (+1.72892308, +0.334262073), (+1.30718195, +0.177365169), (+1.75757051, +0.708238661), (+1.43584681, +0.490274251), (+1.15588689, +0.713338137), (+1.21408474, +0.634187683E-1), (+1.39038658, +0.154683426), (+1.53686845, +0.362590790), (+1.25644720, +0.515261233), (+1.71476436, +0.184107438), (+1.88470292, +0.409870744), (+1.17640483, +0.585154235), (+1.36708248, +0.341870636), (+1.99340963, +0.458266884), (+1.24361396, +0.877515078), (+1.27878726, +0.247831672), (+1.78937232, +0.831125557), (+1.60239601, +0.738431931), (+1.50513136, +0.283129483), (+1.02454889, +0.265971005), (+1.50399196, +0.374822408), (+1.89952493, +0.220235005), (+1.19205332, +0.402526259E-1), (+1.55753124, +0.622331798), (+1.71141052, +0.779953152E-1), (+1.92048526, +0.399235994), (+1.89623654, +0.384128273), (+1.63570356, +0.619570315), (+1.11296070, +0.775389791), (+1.98695254, +0.156841129), (+1.11209488, +0.535457015), (+1.41614950, +0.862960458), (+1.96251070, +0.510213792), (+1.18796897, +0.107860357), (+1.80429411, +0.304119259), (+1.99539578, +0.117612503), (+1.87644851, +0.878307402), (+1.51219845, +0.609939277), (+1.09756184, +0.875412941), (+1.97563827, +0.348069459), (+1.10651433, +0.544662535), (+1.16299605, +0.420201808), (+1.75882435, +0.951326013), (+1.28277779, +0.688031673), (+1.53240812, +0.301690698E-1), (+1.41724968, +0.370314956), (+1.52939165, +0.393736839), (+1.41150153, +0.673237592E-1), (+1.41057801, +0.724733472E-1), (+1.78661299, +0.352838971E-1), (+1.81052601, +0.520497322), (+1.16561365, +0.968593538), (+1.51150262, +0.647021294), (+1.02315438, +0.186372280), (+1.94818330, +0.856015921), (+1.74766409, +0.480973125), (+1.27385986, +0.130993098), (+1.47269213, +0.431747675), (+1.42754173, +0.525027275), (+1.85789204, +0.484903604)

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

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

430data

431(+1.8012999543924550, +0.10574825214922867), (+1.1289169289520782, +0.30136256515800364), (+1.0048382178444899, +0.35908722027530382), (+1.5576621327096887, +0.13353041539646127), (+1.8032738330993459, +0.69832394409057152), (+1.0561360368000916, +0.75704562361256866), (+1.7832975317887432, +0.27378433793637014), (+1.8209334518081028, +0.76662159661959650), (+1.4159337744474696, +0.14156804111957377), (+1.0681198431472534, +0.73055778484918632), (+1.0321305425251253, +0.19333212863462446), (+1.2400411793765653, +0.77940446906707284), (+1.2564242727080770, +0.78344033004937674), (+1.9670312228765634, +0.59712500423315096), (+1.0108014476887464, +0.46165182416403505), (+1.4387112410907448, +0.50117457181566971), (+1.9685910000019362, +0.61023168329063704), (+1.2423510666320365, +0.11276937995424452), (+1.8885806519396247, +0.24850843084575192), (+1.1825422958927492, +0.21235312495748171), (+1.3471963001456913, +0.83625751522274916E-1), (+1.4911503088133733, +0.57506659175719632), (+1.8690361425232906, +0.51755776281541488E-1), (+1.4222476454735451, +0.91768459745942665), (+1.3726264541301181, +0.76655511539914289), (+1.3372849818439432, +0.81581704817959888), (+1.5373910263748858, +0.33112010756723009), (+1.0871264146784125, +0.16268585870530072), (+1.8367396239790925, +0.21241702792966888E-1), (+1.5666523855661649, +0.54819832650623257), (+1.8064264271025290, +0.70259502688700004), (+1.8726324102094751, +0.75145143907427270), (+1.6304809709057335, +0.28638475923051443), (+1.1373983136423265, +0.46811394472133938), (+1.9464437394262402, +0.15475991719728699), (+1.5068177103470304, +0.56446731513621151), (+1.8853514876322461, +0.79233146460958737), (+1.5890340619325523, +0.73384725782861260), (+1.0294426421943910, +0.43638516699275631), (+1.6841356568489945, +0.59833855245460221), (+1.1155733603837494, +0.95329642495148192E-1), (+1.1750854703328188, +0.28448385900504192), (+1.9282313328280081, +0.92877924277593304), (+1.3206909420385951, +0.30644671009143265), (+1.7657473511085269, +0.80108518853286415), (+1.6826972274326668, +0.62120945337059275), (+1.0919827802051238, +0.89092174267694135), (+1.2577438146543516, +0.61114262239382100E-1), (+1.0069007927811500, +0.15253159354547297), (+1.5489600172116713, +0.61002048897842098), (+1.6052611811055200, +0.39769294607221206)

432

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

434adat

435(+1.8012999543924544, +0.10574825214922828), (+1.1289169289520791, +0.30136256515800386), (+1.0048382178444901, +0.35908722027530388), (+1.5576621327096891, +0.13353041539646129), (+1.8032738330993465, +0.69832394409057175), (+1.0561360368000925, +0.75704562361256877), (+1.7832975317887434, +0.27378433793636980), (+1.8209334518081033, +0.76662159661959661), (+1.4159337744474700, +0.14156804111957358), (+1.0681198431472529, +0.73055778484918610), (+1.0321305425251253, +0.19333212863462432), (+1.2400411793765653, +0.77940446906707250), (+1.2564242727080779, +0.78344033004937697), (+1.9670312228765636, +0.59712500423315107), (+1.0108014476887468, +0.46165182416403522), (+1.4387112410907452, +0.50117457181566960), (+1.9685910000019369, +0.61023168329063715), (+1.2423510666320365, +0.11276937995424414), (+1.8885806519396249, +0.24850843084575205), (+1.1825422958927492, +0.21235312495748182), (+1.3471963001456915, +0.83625751522274999E-1), (+1.4911503088133740, +0.57506659175719654), (+1.8690361425232915, +0.51755776281541599E-1), (+1.4222476454735451, +0.91768459745942654), (+1.3726264541301179, +0.76655511539914301), (+1.3372849818439430, +0.81581704817959888), (+1.5373910263748858, +0.33112010756722982), (+1.0871264146784119, +0.16268585870530095), (+1.8367396239790925, +0.21241702792966846E-1), (+1.5666523855661658, +0.54819832650623268), (+1.8064264271025292, +0.70259502688700026), (+1.8726324102094751, +0.75145143907427270), (+1.6304809709057342, +0.28638475923051443), (+1.1373983136423265, +0.46811394472133955), (+1.9464437394262391, +0.15475991719728666), (+1.5068177103470310, +0.56446731513621162), (+1.8853514876322464, +0.79233146460958725), (+1.5890340619325520, +0.73384725782861260), (+1.0294426421943921, +0.43638516699275642), (+1.6841356568489951, +0.59833855245460232), (+1.1155733603837483, +0.95329642495148081E-1), (+1.1750854703328193, +0.28448385900504203), (+1.9282313328280076, +0.92877924277593304), (+1.3206909420385944, +0.30644671009143226), (+1.7657473511085271, +0.80108518853286403), (+1.6826972274326670, +0.62120945337059241), (+1.0919827802051247, +0.89092174267694169), (+1.2577438146543534, +0.61114262239382336E-1), (+1.0069007927811504, +0.15253159354547285), (+1.5489600172116713, +0.61002048897842076), (+1.6052611811055206, +0.39769294607221217)

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

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

442

443lenData = getUnifRand(5, 100)

444lenData

445+97

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

447data

448(+1.79557755714699262307790164479359186, +0.356656004078955236176516450942304073), (+1.16448542709601100588630782529226113, +0.825733077365257997016074293628814414), (+1.21360831464496048753903742470654944, +0.906815088294279797551002817288939814), (+1.45188899509634999184367610252712456, +0.335458488190561563830311802610586390), (+1.98829517993601542352392711174333249, +0.570488464331427832292619522644155579), (+1.01076690430529346789355722663105300, +0.633088277225652390318532368962699546), (+1.88755548561658481212996350703415849, +0.832090263771997523746336131970165034), (+1.30709805595017515311737180332827354, +0.735572149939827220311840551048248443), (+1.59327377245790841845940965207850017, +0.820203273050735997555703888310133106), (+1.20729243876186793142178065838942637, +0.461716004087833508538110777711927088), (+1.40230480326621512422843489357470879, +0.108506843043799980739666544090773933), (+1.85729669358955373703491590599229612, +0.154650649060997952050106491762384632), (+1.21781704469741791877540916600778674, +0.480244911596198838662928126889762080), (+1.24928061614999848111560295129321809, +0.238740340354909174184865985675914454E-1), (+1.56475763992147075280882192413929609, +0.696028492728588627737283282878798708), (+1.18554053441459448966003354514534316, +0.723673946760763184090931904937663428), (+1.87426208775894748470538933085754903, +0.822727102734917081997615803847198353), (+1.03875090957240123166175491140594843, +0.358636026469229828046532168254284204), (+1.33356180208191540836687996343258268, +0.855307654999044244987455419257836291), (+1.50393644253933557806997668360463496, +0.933760561983893389519725701119842478), (+1.84309376490202753304453898899364363, +0.631593855175514593336568359181997220), (+1.08681076369443930985268376959467846, +0.700907521682841243016366765642810031), (+1.25966396302742415001218058676314998, +0.327322602851567463357084447551159880), (+1.49636823755576727278641729657681763, +0.207835032814693102282507206754292032), (+1.41084954468367171555259023172271842, +0.486156129644645980589251665298416226), (+1.57998560274660352272366875657145413, +0.817879148785557222476498859557235274E-1), (+1.02435476488506759729551940982702020, +0.566204265183663534009736073886226213), (+1.36989673959241037282974245524961638, +0.108959930107931027127484598010306142), (+1.30584098905522740953963331968717796, +0.188895007472560861397815215964807531), (+1.91661467470731797261006922458008123, +0.732089443710650441885337162112912867), (+1.84675007114858731224969648595107884, +0.235098283469463046601634096352713074), (+1.23964656930889281428113836939814840, +0.625661013135527469221705228954044098), (+1.40118533677031224571416704505782501, +0.264995978439456335724678705326488603), (+1.06700217319310535869220753871116106, +0.418943869377943668897719389854671396), (+1.19328176372257154454559019954818414, +0.784244026336740952278141983409052276), (+1.82508651282136950895318364293209212, +0.329071999455424433742000203810956252E-1), (+1.34536962937026701563240282444613866, +0.650561013867212165757230386020124222), (+1.87739907259187836485738180407108416, +0.148219969437459813424104944790607472), (+1.46547471360228119225878994304556570, +0.711799578384281907062174374860227279), (+1.86255614334812304643977077339416007, +0.438985946857458418134616608932643482), (+1.55321923827323728467663186195153371, +0.861934333574934806973806031639286581), (+1.65001160963714546976027854604485074, +0.179827343916361052569001159550540475), (+1.09273094842407549091492395519117381, +0.665415467716853178183441166377363339), (+1.40667071624750845366320322597322124, +0.582506591852376787930885076201504548), (+1.13205141872093498248994165116372110, +0.462814413948035194497100857190678412), (+1.99800621452184921350337707516449854, +0.545977729755249005161769559684736317E-1), (+1.06042952271677631303352923379939958, +0.413503829900329756470105803140193501), (+1.40274269922259202707072438327165045, +0.191339209800324186238883502135580881), (+1.05074891671434186956927925465104566, +0.556174154754288935144415757763911522), (+1.94720294797637616969540671246478354, +0.431253096894737611424655201191015045), (+1.18921645870395335713072595767476317, +0.973165784755349170502876314733206323), (+1.99122623317964950487824052567197232, +0.994520569938090665520612457893353100E-1), (+1.64704870294262835666705454108122617, +0.554934212856723826732911499988160068), (+1.30858184788018681826185365604150951, +0.984098514017583957616495196106981594), (+1.45639679747355563583200785817617991, +0.409190879769869668884399750058455648), (+1.98537000554749356890389596520852194, +0.642689404902039508608661035510147696), (+1.44141383752111539057127936309901746, +0.450317435548597689323551441518235766), (+1.78506984131803192888659567958197801, +0.914359653781454855211231692406430461), (+1.78039617446725963475515334572821185, +0.548201763899363122268514155999108269), (+1.94748349577521999329420763939538826, +0.686725131117067232483992833310672349), (+1.39469856333351048923273841596654200, +0.688569791755305590243563786788961325), (+1.15806868249748072703890114469527556, +0.519900070559961242104792500544936535), (+1.21635231578099356116364420524433295, +0.431781625134462684326739775479822054), (+1.95919519993074706394636116048816790, +0.734959488133714002756460036365406524), (+1.58886550637743098869997986475238350, +0.674870475917273866587136670731479054), (+1.95688776337957036860112234386776065, +0.596978801589584570296973835872102712), (+1.26802480279492450695846342541533051, +0.873536927747601510652092289920418187), (+1.81512533497722490261131262320319932, +0.292774547663087315864177572244986764), (+1.74361512884643529120573620254648703, +0.748761032716150238320457834669252153), (+1.66698646166887005708599253413849286, +0.361648115042208018918595955485079540), (+1.99644160882011458548656751687572141, +0.899890560333197508095192659244855084), (+1.29643891190752266710431661794758221, +0.746537167264242624716656782051666113), (+1.99373906910764786936925465140972303, +0.446214775130389509577951732804205082), (+1.55219386847157275394182855308117927, +0.658567930826411700799845953937355401), (+1.36812947607491959319676619013464438, +0.663254005027580341571038460146991318), (+1.17648617182058177129133746231258234, +0.447965611827240442851181386318950454), (+1.27712754524293258286703613027400172, +0.267818798574433994971921632227147347), (+1.38141471791212699553560794995611390, +0.497461504507748297620512281910867905), (+1.63829616441818994818294360657530528, +0.998980203159806017032468074933782640), (+1.66733881582991411918866243914337269, +0.335841044765640012078837430054970206), (+1.66213794878560778691561278545661237, +0.489119623469490685804747977018139232), (+1.76536605185487657005094956329528205, +0.717698187343596108919379885492024273), (+1.24741211543903362976986032945429705, +0.875774239411426444696752999820960286), (+1.16023334431844779167338719788136349, +0.172526020418020283235192486870766133), (+1.94160691918737027486947625349955049, +0.286211390282088166855549436406319249), (+1.77795403968766327726606588239987711, +0.181881836134186711174740617219871371), (+1.71758906982126213891794916112787056, +0.375781922151018018070576312857289177), (+1.68551538503925292613283218687339751, +0.306156745870702280653515176001245467), (+1.63215552685593880377698786521318130, +0.558835671433756673785321965169935088), (+1.00632966209203122349031062337415669, +0.302990334514674255139883716904922491E-1), (+1.94455618545312428782382851063678144, +0.496508822806783102501289514650769404), (+1.18214444583780448667586122181990267, +0.774054744963541437453396702344295288), (+1.66658035419187356266167764375561021, +0.969294334926766089901444439533890767E-1), (+1.77141642043797808672613349467723656, +0.513626463112722431276379348321450158), (+1.89614915134713837273575620338226133, +0.691685796069524143446575535527608656), (+1.61099824949228564044714990739058511, +0.755940084890787653693033363846074018), (+1.46418368917340222305145742639600773, +0.120764774719413159078783882936490478)

449

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

451adat

452(+1.79557755714699262307790164479358974, +0.356656004078955236176516450942303303), (+1.16448542709601100588630782529226094, +0.825733077365257997016074293628814607), (+1.21360831464496048753903742470654887, +0.906815088294279797551002817288940007), (+1.45188899509634999184367610252712418, +0.335458488190561563830311802610586679), (+1.98829517993601542352392711174333172, +0.570488464331427832292619522644156061), (+1.01076690430529346789355722663105300, +0.633088277225652390318532368962699546), (+1.88755548561658481212996350703415753, +0.832090263771997523746336131970165034), (+1.30709805595017515311737180332827354, +0.735572149939827220311840551048248540), (+1.59327377245790841845940965207849940, +0.820203273050735997555703888310133009), (+1.20729243876186793142178065838942637, +0.461716004087833508538110777711927377), (+1.40230480326621512422843489357470821, +0.108506843043799980739666544090774029), (+1.85729669358955373703491590599229554, +0.154650649060997952050106491762384656), (+1.21781704469741791877540916600778654, +0.480244911596198838662928126889762128), (+1.24928061614999848111560295129321886, +0.238740340354909174184865985675915296E-1), (+1.56475763992147075280882192413929590, +0.696028492728588627737283282878798612), (+1.18554053441459448966003354514534316, +0.723673946760763184090931904937663717), (+1.87426208775894748470538933085754961, +0.822727102734917081997615803847198161), (+1.03875090957240123166175491140594843, +0.358636026469229828046532168254284252), (+1.33356180208191540836687996343258268, +0.855307654999044244987455419257836194), (+1.50393644253933557806997668360463515, +0.933760561983893389519725701119842093), (+1.84309376490202753304453898899364517, +0.631593855175514593336568359181997413), (+1.08681076369443930985268376959467826, +0.700907521682841243016366765642809935), (+1.25966396302742415001218058676315133, +0.327322602851567463357084447551159736), (+1.49636823755576727278641729657681802, +0.207835032814693102282507206754292105), (+1.41084954468367171555259023172271900, +0.486156129644645980589251665298416370), (+1.57998560274660352272366875657145529, +0.817879148785557222476498859557237802E-1), (+1.02435476488506759729551940982702077, +0.566204265183663534009736073886226021), (+1.36989673959241037282974245524961696, +0.108959930107931027127484598010306093), (+1.30584098905522740953963331968717873, +0.188895007472560861397815215964807628), (+1.91661467470731797261006922458008123, +0.732089443710650441885337162112913060), (+1.84675007114858731224969648595107903, +0.235098283469463046601634096352713146), (+1.23964656930889281428113836939814878, +0.625661013135527469221705228954044002), (+1.40118533677031224571416704505782616, +0.264995978439456335724678705326488555), (+1.06700217319310535869220753871116145, +0.418943869377943668897719389854671444), (+1.19328176372257154454559019954818433, +0.784244026336740952278141983409052468), (+1.82508651282136950895318364293209193, +0.329071999455424433742000203810954086E-1), (+1.34536962937026701563240282444613866, +0.650561013867212165757230386020124511), (+1.87739907259187836485738180407108436, +0.148219969437459813424104944790607376), (+1.46547471360228119225878994304556455, +0.711799578384281907062174374860227086), (+1.86255614334812304643977077339416084, +0.438985946857458418134616608932643771), (+1.55321923827323728467663186195153351, +0.861934333574934806973806031639286677), (+1.65001160963714546976027854604485190, +0.179827343916361052569001159550540090), (+1.09273094842407549091492395519117323, +0.665415467716853178183441166377362857), (+1.40667071624750845366320322597322124, +0.582506591852376787930885076201504452), (+1.13205141872093498248994165116372129, +0.462814413948035194497100857190677883), (+1.99800621452184921350337707516449873, +0.545977729755249005161769559684735113E-1), (+1.06042952271677631303352923379939939, +0.413503829900329756470105803140193501), (+1.40274269922259202707072438327164949, +0.191339209800324186238883502135580423), (+1.05074891671434186956927925465104470, +0.556174154754288935144415757763911522), (+1.94720294797637616969540671246478258, +0.431253096894737611424655201191015045), (+1.18921645870395335713072595767476240, +0.973165784755349170502876314733206227), (+1.99122623317964950487824052567197270, +0.994520569938090665520612457893351896E-1), (+1.64704870294262835666705454108122655, +0.554934212856723826732911499988160165), (+1.30858184788018681826185365604150970, +0.984098514017583957616495196106981209), (+1.45639679747355563583200785817617972, +0.409190879769869668884399750058455744), (+1.98537000554749356890389596520852117, +0.642689404902039508608661035510147214), (+1.44141383752111539057127936309901862, +0.450317435548597689323551441518235477), (+1.78506984131803192888659567958197801, +0.914359653781454855211231692406430461), (+1.78039617446725963475515334572821262, +0.548201763899363122268514155999108751), (+1.94748349577521999329420763939538730, +0.686725131117067232483992833310672445), (+1.39469856333351048923273841596654200, +0.688569791755305590243563786788961325), (+1.15806868249748072703890114469527537, +0.519900070559961242104792500544936535), (+1.21635231578099356116364420524433257, +0.431781625134462684326739775479821910), (+1.95919519993074706394636116048816829, +0.734959488133714002756460036365406620), (+1.58886550637743098869997986475238408, +0.674870475917273866587136670731479246), (+1.95688776337957036860112234386776122, +0.596978801589584570296973835872102520), (+1.26802480279492450695846342541533089, +0.873536927747601510652092289920418380), (+1.81512533497722490261131262320319932, +0.292774547663087315864177572244986861), (+1.74361512884643529120573620254648684, +0.748761032716150238320457834669252249), (+1.66698646166887005708599253413849401, +0.361648115042208018918595955485079733), (+1.99644160882011458548656751687572179, +0.899890560333197508095192659244855276), (+1.29643891190752266710431661794758279, +0.746537167264242624716656782051666113), (+1.99373906910764786936925465140972381, +0.446214775130389509577951732804205467), (+1.55219386847157275394182855308117965, +0.658567930826411700799845953937355497), (+1.36812947607491959319676619013464476, +0.663254005027580341571038460146991414), (+1.17648617182058177129133746231258350, +0.447965611827240442851181386318950309), (+1.27712754524293258286703613027400153, +0.267818798574433994971921632227147155), (+1.38141471791212699553560794995611525, +0.497461504507748297620512281910868242), (+1.63829616441818994818294360657530509, +0.998980203159806017032468074933782255), (+1.66733881582991411918866243914337231, +0.335841044765640012078837430054970061), (+1.66213794878560778691561278545661237, +0.489119623469490685804747977018139376), (+1.76536605185487657005094956329528263, +0.717698187343596108919379885492023984), (+1.24741211543903362976986032945429705, +0.875774239411426444696752999820960768), (+1.16023334431844779167338719788136349, +0.172526020418020283235192486870765988), (+1.94160691918737027486947625349955145, +0.286211390282088166855549436406319249), (+1.77795403968766327726606588239987653, +0.181881836134186711174740617219871371), (+1.71758906982126213891794916112787017, +0.375781922151018018070576312857289321), (+1.68551538503925292613283218687339694, +0.306156745870702280653515176001245419), (+1.63215552685593880377698786521318150, +0.558835671433756673785321965169935377), (+1.00632966209203122349031062337415573, +0.302990334514674255139883716904925019E-1), (+1.94455618545312428782382851063678144, +0.496508822806783102501289514650769789), (+1.18214444583780448667586122181990190, +0.774054744963541437453396702344295095), (+1.66658035419187356266167764375561021, +0.969294334926766089901444439533889804E-1), (+1.77141642043797808672613349467723579, +0.513626463112722431276379348321450447), (+1.89614915134713837273575620338226056, +0.691685796069524143446575535527608945), (+1.61099824949228564044714990739058453, +0.755940084890787653693033363846074211), (+1.46418368917340222305145742639600754, +0.120764774719413159078783882936490706)

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

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

459

460lenData = getUnifRand(5, 100)

461lenData

462+64

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

464data

465+1.01449227, +1.06744182, +1.93883014, +1.69782281, +1.25504875, +1.67726254, +1.03130364, +1.25257754, +1.18270135, +1.50838935, +1.11164451, +1.07234061, +1.86895514, +1.31328869, +1.47687268, +1.43937862, +1.02671230, +1.07313704, +1.08324730, +1.39416814, +1.93942261, +1.73452091, +1.53439200, +1.28647208, +1.16966343, +1.66705990, +1.37864947, +1.06143081, +1.11359763, +1.15724313, +1.27013683, +1.48371387, +1.99213481, +1.46119285, +1.10521996, +1.90235496, +1.02487350, +1.75696468, +1.14253950, +1.57832456, +1.67461276, +1.67055786, +1.34374070, +1.03716815, +1.68763590, +1.11621356, +1.60944510, +1.47062302, +1.63245535, +1.07697892, +1.82104778, +1.33016634, +1.06012428, +1.54419410, +1.67349303, +1.09584093, +1.77588463, +1.01180696, +1.47530890, +1.11347926, +1.34029102, +1.12754714, +1.56200218, +1.86354184

466

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

468adat

469+1.01449215, +1.06744170, +1.93883026, +1.69782293, +1.25504887, +1.67726243, +1.03130352, +1.25257742, +1.18270135, +1.50838923, +1.11164451, +1.07234073, +1.86895514, +1.31328869, +1.47687256, +1.43937850, +1.02671218, +1.07313704, +1.08324718, +1.39416814, +1.93942261, +1.73452091, +1.53439188, +1.28647184, +1.16966343, +1.66705966, +1.37864935, +1.06143081, +1.11359775, +1.15724313, +1.27013683, +1.48371375, +1.99213469, +1.46119285, +1.10521996, +1.90235507, +1.02487361, +1.75696456, +1.14253938, +1.57832444, +1.67461276, +1.67055774, +1.34374070, +1.03716826, +1.68763590, +1.11621356, +1.60944498, +1.47062302, +1.63245535, +1.07697892, +1.82104778, +1.33016634, +1.06012440, +1.54419422, +1.67349291, +1.09584069, +1.77588463, +1.01180673, +1.47530878, +1.11347926, +1.34029114, +1.12754714, +1.56200218, +1.86354172

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

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

476

477lenData = getUnifRand(5, 100)

478lenData

479+39

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

481data

482+1.6382945933325863, +1.8229222078334928, +1.1291043665084448, +1.6000035193357147, +1.7826697465567016, +1.4564841202258625, +1.1747340773314789, +1.6096191547212939, +1.9524181857677374, +1.6912666664778226, +1.7992322254636870, +1.1912145417038873, +1.0580046873240376, +1.5328484071758446, +1.9852644214222313, +1.0586264313125187, +1.8815395822571754, +1.0063451612164185, +1.5708934354576072, +1.9480713508299443, +1.8705282590512144, +1.5090478061742378, +1.9953750677060715, +1.6569376622285845, +1.2716399095661823, +1.4428772880941265, +1.1521737807446359, +1.7534069371417778, +1.1287851520156083, +1.2704513348421203, +1.2975739811383578, +1.8049733331356999, +1.1928622668682851, +1.2311991376408229, +1.7571036567608940, +1.9175762151921185, +1.7215568634006031, +1.8951519199662823, +1.2951886782629904

483

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

485adat

486+1.6382945933325861, +1.8229222078334923, +1.1291043665084446, +1.6000035193357149, +1.7826697465567019, +1.4564841202258629, +1.1747340773314789, +1.6096191547212935, +1.9524181857677372, +1.6912666664778231, +1.7992322254636872, +1.1912145417038882, +1.0580046873240374, +1.5328484071758444, +1.9852644214222310, +1.0586264313125191, +1.8815395822571759, +1.0063451612164196, +1.5708934354576056, +1.9480713508299421, +1.8705282590512131, +1.5090478061742365, +1.9953750677060698, +1.6569376622285825, +1.2716399095661830, +1.4428772880941265, +1.1521737807446375, +1.7534069371417775, +1.1287851520156080, +1.2704513348421194, +1.2975739811383582, +1.8049733331357003, +1.1928622668682862, +1.2311991376408229, +1.7571036567608933, +1.9175762151921181, +1.7215568634006031, +1.8951519199662823, +1.2951886782629909

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

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

493

494lenData = getUnifRand(5, 100)

495lenData

496+42

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

498data

499+1.58544872047956418314336769951661347, +1.75850183244236034564667544112674267, +1.74883179729935348976700186162677298, +1.03099985739946863129221767762754487, +1.59274411710348351723602146278376882, +1.08861436704591835024145323554952401, +1.25452156147908264309812815819424653, +1.23612447253700622450454620668337467, +1.42811161742737985879685236616329139, +1.76365726892016244152900832193207585, +1.20767959733016133425298518331877329, +1.66906885069738740559747877650741594, +1.45122274955991787572162181342294838, +1.22131473442496750316723267204414274, +1.89673096622954536530264998273737116, +1.64004752833195445053644538077194360, +1.55031570292171069012784418181109738, +1.95769362065533264821219427741955227, +1.43972374589061566177675161724688850, +1.27719126482277615684043508280096374, +1.06586402335941200529085243424085388, +1.48517644978397825790774175719583973, +1.04300346606204076007867768873000002, +1.24523686276683443490749772796580990, +1.30793852141423080069548339742696401, +1.61637342851539559834711126644588281, +1.96483262904930172493035794840153534, +1.69112250813652174824013033849416034, +1.77996168912322639576514929361184662, +1.59996084215548772652106338977695318, +1.30622056327815996272236612924837483, +1.47612290604507225057671175226840086, +1.05602793982406117778334348760163574, +1.30734022999404204254326723813895002, +1.97315759793356479285199713529430463, +1.79892667141253110618691305030111736, +1.44266789521050577986984036877985178, +1.25101839577591528669170608000673361, +1.72245627116730507806756447788988128, +1.26322187724649395503960877310749913, +1.39418571154067451770479779768948440, +1.47080375481046397934019762647391623

500

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

502adat

503+1.58544872047956418314336769951661347, +1.75850183244236034564667544112674248, +1.74883179729935348976700186162677317, +1.03099985739946863129221767762754487, +1.59274411710348351723602146278376844, +1.08861436704591835024145323554952420, +1.25452156147908264309812815819424653, +1.23612447253700622450454620668337448, +1.42811161742737985879685236616329120, +1.76365726892016244152900832193207604, +1.20767959733016133425298518331877290, +1.66906885069738740559747877650741614, +1.45122274955991787572162181342294819, +1.22131473442496750316723267204414293, +1.89673096622954536530264998273737135, +1.64004752833195445053644538077194379, +1.55031570292171069012784418181109700, +1.95769362065533264821219427741955285, +1.43972374589061566177675161724688850, +1.27719126482277615684043508280096355, +1.06586402335941200529085243424085350, +1.48517644978397825790774175719583954, +1.04300346606204076007867768872999944, +1.24523686276683443490749772796581009, +1.30793852141423080069548339742696401, +1.61637342851539559834711126644588281, +1.96483262904930172493035794840153572, +1.69112250813652174824013033849416034, +1.77996168912322639576514929361184643, +1.59996084215548772652106338977695356, +1.30622056327815996272236612924837483, +1.47612290604507225057671175226840105, +1.05602793982406117778334348760163574, +1.30734022999404204254326723813895040, +1.97315759793356479285199713529430443, +1.79892667141253110618691305030111774, +1.44266789521050577986984036877985159, +1.25101839577591528669170608000673361, +1.72245627116730507806756447788988147, +1.26322187724649395503960877310749952, +1.39418571154067451770479779768948402, +1.47080375481046397934019762647391642

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

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