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

Detailed Description

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

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

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: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKG => CKS

21 real(TKG) :: reltol

22 complex(TKG), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

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

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKG => CKD

49 real(TKG) :: reltol

50 complex(TKG), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

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

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKG => CKH

77 real(TKG) :: reltol

78 complex(TKG), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

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

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKG => RKS

105 real(TKG) :: reltol

106 real(TKG), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

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

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKG => RKD

133 real(TKG) :: reltol

134 real(TKG), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

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

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKG => RKH

161 real(TKG) :: reltol

162 real(TKG), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

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

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKG))")

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

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

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

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+5

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

5data

6(+1.66288781, +0.262730598), (+1.03290176, +0.281278372), (+1.33537710, +0.695909858), (+1.96134686, +0.769668043), (+1.09550834, +0.364162505)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.66288757, +0.262730479), (+1.03290176, +0.281278372), (+1.33537710, +0.695909917), (+1.96134686, +0.769668102), (+1.09550846, +0.364162505)

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

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T

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

17

18lenData = getUnifRand(5, 100)

19lenData

20+93

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

22data

23(+1.5565575884694811, +0.43599394553555881E-1), (+1.9244122267545203, +0.76428761933690681), (+1.2931650466887876, +0.29018435761704497), (+1.1698606259412223, +0.10984991289194146), (+1.1401927432319545, +0.34445668119871564), (+1.0377128230431132, +0.68870161147987319), (+1.6883661817626670, +0.46070113589499639E-1), (+1.9122768151981320, +0.13895945699602508), (+1.6289342526680535, +0.69405554391545632), (+1.7194362589001198, +0.36683049116144206), (+1.0402462957946694, +0.74402000484789466), (+1.8682889294378136, +0.28565559780085203), (+1.9893088506039542, +0.92634463997939731E-1), (+1.4657464836918046, +0.19474759442902256), (+1.6154892377367160, +0.26206327437154009), (+1.7754127398529445, +0.53950928843426205), (+1.2377451376751298, +0.77447349004264510), (+1.9471219014651351, +0.87848273638066798), (+1.1485998203052472, +0.30804796639292142), (+1.5867249749381742, +0.23461698704871248E-1), (+1.9696214049022231, +0.18665022880775572), (+1.3058260120291152, +0.54700651440639070E-1), (+1.0380800295887971, +0.97070446877915340), (+1.5264086777295081, +0.22044092522811731), (+1.0776375904406954, +0.96191475110368874), (+1.2596698101673041, +0.21601780557609240), (+1.1310439200980502, +0.72688787475849725), (+1.1872734773941587, +0.73386619678987131), (+1.5198830601533213, +0.98524609408353059E-1), (+1.5543958121499566, +0.39312687763603316), (+1.0829035511381973, +0.46254853245160210E-1), (+1.3655538362375128, +0.93770611693797079), (+1.5280315399187290, +0.14926280372064593), (+1.7854369976715474, +0.79185376993336165E-1), (+1.7941710981970691, +0.80574328845089060), (+1.5018836118547456, +0.47672424320145779), (+1.7226847384204871, +0.89281431111154286), (+1.3786689564065622, +0.31193137254630787), (+1.0024885028053152, +0.48617472124212724), (+1.9392432980366658, +0.83738364484767858), (+1.6169441871560801, +0.43719671145131977E-1), (+1.1180619439411024, +0.14972127276054825), (+1.4596124730930562, +0.23245487906950746), (+1.4174312390063168, +0.74167126523960980), (+1.8736172023981712, +0.27525552643389650), (+1.8701423613029839, +0.98624950399652467), (+1.9797551040041155, +0.22677479687718771), (+1.9512347134833181, +0.34270086621970841), (+1.8686610495066680, +0.25875183815499869), (+1.7288604714404117, +0.48584709887875455), (+1.4211753580842941, +0.21040902611059298), (+1.7243693883289808, +0.59269804256334579), (+1.6300309339493007, +0.34766286869498408), (+1.8347680220896343, +0.39192697904834717), (+1.5920050422317671, +0.58746452920584669E-1), (+1.0058228102723219, +0.40004743026832068), (+1.4033393823939107, +0.55441945165682405), (+1.6894569929114596, +0.69481169765866113), (+1.7570976610691216, +0.84225233333934635), (+1.0682785239328716, +0.64349235201260668), (+1.3921735072750541, +0.52109701776349093), (+1.1591673596308194, +0.37040619316122780), (+1.7317826843400339, +0.21828520263601781), (+1.5545873578957230, +0.86528573575987833), (+1.4495613636559939, +0.89665934271328518E-1), (+1.0896302891766458, +0.81961762505067370), (+1.4405550528939945, +0.30037743221757962), (+1.3148254871436416, +0.13473754098642055), (+1.7677101208706163, +0.31216807099498756), (+1.8259991238236459, +0.47849487135431656), (+1.5069240558039223, +0.97396108976315299), (+1.9758728961534944, +0.11259631598602904), (+1.1954941210964127, +0.19347265581897255E-1), (+1.4528361583938854, +0.81854430818343693), (+1.6971881120539298, +0.30679345529588198), (+1.3221236046374782, +0.30055813255774810), (+1.0549884027081204, +0.93729825065761330), (+1.1982201549675602, +0.38693423072173150), (+1.3857034735051803, +0.74210944118510924), (+1.8510235059173115, +0.70750460964294049), (+1.9827355732167544, +0.60496102723445722), (+1.2450013932772102, +0.65748564986366742), (+1.0030253428695972, +0.27755023050867267), (+1.1418874375238168, +0.83070680151274945E-1), (+1.0261296091439989, +0.53828692992149529), (+1.0903797286845986, +0.78272486776192396), (+1.1112265542608450, +0.79938909537531078), (+1.7008499944593063, +0.38553843629678375), (+1.4337870034366320, +0.58649272971914035), (+1.4642628633015784, +0.55401636377310592), (+1.2719568577404552, +0.30080654720716415E-1), (+1.8447642212566335, +0.97924344352680381), (+1.5226834997436836, +0.91894039032877450)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.5565575884694807, +0.43599394553555736E-1), (+1.9244122267545212, +0.76428761933690659), (+1.2931650466887883, +0.29018435761704514), (+1.1698606259412230, +0.10984991289194149), (+1.1401927432319543, +0.34445668119871559), (+1.0377128230431132, +0.68870161147987308), (+1.6883661817626670, +0.46070113589499702E-1), (+1.9122768151981313, +0.13895945699602527), (+1.6289342526680533, +0.69405554391545643), (+1.7194362589001202, +0.36683049116144201), (+1.0402462957946694, +0.74402000484789499), (+1.8682889294378131, +0.28565559780085203), (+1.9893088506039542, +0.92634463997939606E-1), (+1.4657464836918048, +0.19474759442902251), (+1.6154892377367156, +0.26206327437154003), (+1.7754127398529451, +0.53950928843426227), (+1.2377451376751301, +0.77447349004264521), (+1.9471219014651351, +0.87848273638066798), (+1.1485998203052479, +0.30804796639292154), (+1.5867249749381738, +0.23461698704871334E-1), (+1.9696214049022229, +0.18665022880775572), (+1.3058260120291152, +0.54700651440639084E-1), (+1.0380800295887973, +0.97070446877915373), (+1.5264086777295074, +0.22044092522811753), (+1.0776375904406950, +0.96191475110368863), (+1.2596698101673041, +0.21601780557609254), (+1.1310439200980498, +0.72688787475849737), (+1.1872734773941587, +0.73386619678987119), (+1.5198830601533211, +0.98524609408353100E-1), (+1.5543958121499570, +0.39312687763603321), (+1.0829035511381973, +0.46254853245160210E-1), (+1.3655538362375128, +0.93770611693797079), (+1.5280315399187288, +0.14926280372064613), (+1.7854369976715470, +0.79185376993336193E-1), (+1.7941710981970689, +0.80574328845089049), (+1.5018836118547454, +0.47672424320145768), (+1.7226847384204871, +0.89281431111154275), (+1.3786689564065620, +0.31193137254630826), (+1.0024885028053152, +0.48617472124212757), (+1.9392432980366661, +0.83738364484767913), (+1.6169441871560808, +0.43719671145131971E-1), (+1.1180619439411019, +0.14972127276054847), (+1.4596124730930564, +0.23245487906950749), (+1.4174312390063168, +0.74167126523960980), (+1.8736172023981710, +0.27525552643389672), (+1.8701423613029839, +0.98624950399652478), (+1.9797551040041164, +0.22677479687718780), (+1.9512347134833181, +0.34270086621970858), (+1.8686610495066680, +0.25875183815499869), (+1.7288604714404121, +0.48584709887875460), (+1.4211753580842936, +0.21040902611059298), (+1.7243693883289810, +0.59269804256334568), (+1.6300309339493009, +0.34766286869498431), (+1.8347680220896343, +0.39192697904834761), (+1.5920050422317675, +0.58746452920584925E-1), (+1.0058228102723221, +0.40004743026832085), (+1.4033393823939104, +0.55441945165682416), (+1.6894569929114593, +0.69481169765866124), (+1.7570976610691209, +0.84225233333934679), (+1.0682785239328711, +0.64349235201260679), (+1.3921735072750534, +0.52109701776349115), (+1.1591673596308194, +0.37040619316122769), (+1.7317826843400330, +0.21828520263601767), (+1.5545873578957237, +0.86528573575987833), (+1.4495613636559945, +0.89665934271328573E-1), (+1.0896302891766456, +0.81961762505067370), (+1.4405550528939945, +0.30037743221757934), (+1.3148254871436416, +0.13473754098642068), (+1.7677101208706163, +0.31216807099498756), (+1.8259991238236453, +0.47849487135431662), (+1.5069240558039223, +0.97396108976315332), (+1.9758728961534942, +0.11259631598602907), (+1.1954941210964127, +0.19347265581897376E-1), (+1.4528361583938847, +0.81854430818343704), (+1.6971881120539287, +0.30679345529588198), (+1.3221236046374787, +0.30055813255774833), (+1.0549884027081207, +0.93729825065761330), (+1.1982201549675606, +0.38693423072173161), (+1.3857034735051805, +0.74210944118510946), (+1.8510235059173117, +0.70750460964294049), (+1.9827355732167549, +0.60496102723445755), (+1.2450013932772097, +0.65748564986366742), (+1.0030253428695970, +0.27755023050867267), (+1.1418874375238159, +0.83070680151275000E-1), (+1.0261296091439991, +0.53828692992149518), (+1.0903797286845993, +0.78272486776192396), (+1.1112265542608448, +0.79938909537531078), (+1.7008499944593063, +0.38553843629678392), (+1.4337870034366318, +0.58649272971914046), (+1.4642628633015775, +0.55401636377310592), (+1.2719568577404554, +0.30080654720716228E-1), (+1.8447642212566340, +0.97924344352680415), (+1.5226834997436838, +0.91894039032877428)

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

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

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

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

34

35lenData = getUnifRand(5, 100)

36lenData

37+58

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

39data

40(+1.79354899403864592348394184683517962, +0.880452448379464472836070872361223211), (+1.13901374039163045965980910262249209, +0.906573690166341005761981303343837368), (+1.96577463229469703470878889583761083, +0.721555723975734335224297841105900625E-1), (+1.69428774709576944544382759060877972, +0.212474000550053756043801916499601279), (+1.89515446450844160731004687129959263, +0.893684620143185303777219040109922935), (+1.90255009798144521256696133806139510, +0.544475584461798927726740565142681455), (+1.24980938129750431933397364978555065, +0.979109588012180375536010764663313080), (+1.55002635228309971888305610917527946, +0.741137081385978636984570320747595625), (+1.04364771146709732517916154774543273, +0.535685152527708367766437990363931016), (+1.48592496867927959972117636940468761, +0.151566424931846493289068042364615705), (+1.50820475178904301404286175475147674, +0.919012195153541941496778595140315865), (+1.79951024676378708781000216519078937, +0.735061340255389892053459990633426746), (+1.07740250932402414177354461024861598, +0.984477928798202668510442820343718495), (+1.15233883387067027830619957094610264, +0.651825884795517038954268852355954474), (+1.97895016672907439941465509768338952, +0.897322647520892966040739823265955256E-1), (+1.16995537700949924189255154638627204, +0.314208757568358760336498288881834914), (+1.95945877712782937608309867888630737, +0.807375992897852663465893951953783984), (+1.43094413924976764261670245704071908, +0.502331306495531939611839855595112969), (+1.04584330651608189214358421272517560, +0.266808809650417945978750846966071619E-2), (+1.57603172179941096382855429698694039, +0.421222473260049225083525881013375814), (+1.45033244600693631482224980268448975, +0.310209761586270922345474408406924305), (+1.74269561469788054210756545793820524, +0.675386384432569760109841810617334206), (+1.90711757924188990206208307100049048, +0.944824772292282749479461909689915419), (+1.13214521949468914265492527673970336, +0.853468647973223566575129909195317961E-1), (+1.79031829233213992705513977220975596, +0.514469532489506649502517942780294950), (+1.06596832961948819069861042063508856, +0.773558361744301447339421075981825914), (+1.34957746714582085251452068375754151, +0.264254225844292864774125989708423053), (+1.31999387137955352343159150591310487, +0.833848935652943410644625870020887446), (+1.19643338895157428246631002448964830, +0.660537276506860389392166623849828459E-1), (+1.05079143777086486404164602723008855, +0.797498370706873392080732313487280061), (+1.32904261979757368444161905292272367, +0.928789762852288023864281533382405008), (+1.11758773320709670306093704869370778, +0.739087992212385298407713119115149370), (+1.17358613487262987941456429290476171, +0.612810666155709046722732971106824510), (+1.44226773747579471109689888800178499, +0.300757195680553820077218816580068190), (+1.92282868983990479861967028362641666, +0.653922619109077281586985814803059417), (+1.47353938635555356962484478366699684, +0.502987399414003395154713528493139809), (+1.26033964099250672552533616263084798, +0.134823567531605063894087741106647336E-2), (+1.36495686366897559148429809881565930, +0.128989657487999988050311135894773755), (+1.36454352327376412765962933776760665, +0.963963133997647390453583028024443201), (+1.04629364269067205812514139699388394, +0.118455626772991794755214648487771389), (+1.90914477657538116218644977722849562, +0.394905458012355655811701631789862655), (+1.75997240359852785024949899862078898, +0.609890224159712971349151395050182657), (+1.38964269174955624238887247844953327, +0.491278452659509025547102582927997330), (+1.72504201539533201798778933259583679, +0.430776596035412504279205783970315518), (+1.26031113279996785818679880212354013, +0.251792634337666183815246649895966105), (+1.90059710231469870121315689042778160, +0.990391058310969657232910410912597715), (+1.88138748220238259893567313903185540, +0.978599025714040219062752714593396792), (+1.70320237488445079709221928042069240, +0.336360508368681051730038406352779952), (+1.28851648056789274323744842006177686, +0.256353860604401592697895298038881854), (+1.05264159504363449941293569862265978, +0.777950821887797298852468811404864749E-1), (+1.76178146274558173609819635192649462, +0.730613118731988587730208290874193155), (+1.31809318615938953719517459812365763, +0.548096479886796440217228550623801152), (+1.13079757507734377581839880413093153, +0.562071686860624039064461319382020587), (+1.82525782097112143478237162062367514, +0.746593007093828012629347080241121954), (+1.71513971031361159281147530940639007, +0.695081077179894517743990129051146322), (+1.01726560842444874530084603217088108, +0.734163801792451491033399010821053923), (+1.63254228922101524477710808068036795, +0.736325623505952204345717852675767089), (+1.66927767808885742911353439643421314, +0.787801259585482338050247311771059901E-1)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.79354899403864592348394184683518000, +0.880452448379464472836070872361223115), (+1.13901374039163045965980910262249306, +0.906573690166341005761981303343837368), (+1.96577463229469703470878889583761103, +0.721555723975734335224297841105897615E-1), (+1.69428774709576944544382759060878087, +0.212474000550053756043801916499601520), (+1.89515446450844160731004687129959244, +0.893684620143185303777219040109922839), (+1.90255009798144521256696133806139510, +0.544475584461798927726740565142681648), (+1.24980938129750431933397364978555122, +0.979109588012180375536010764663313465), (+1.55002635228309971888305610917527927, +0.741137081385978636984570320747595433), (+1.04364771146709732517916154774543292, +0.535685152527708367766437990363931016), (+1.48592496867927959972117636940468781, +0.151566424931846493289068042364615777), (+1.50820475178904301404286175475147693, +0.919012195153541941496778595140315865), (+1.79951024676378708781000216519078918, +0.735061340255389892053459990633426650), (+1.07740250932402414177354461024861579, +0.984477928798202668510442820343718302), (+1.15233883387067027830619957094610283, +0.651825884795517038954268852355954474), (+1.97895016672907439941465509768338972, +0.897322647520892966040739823265955376E-1), (+1.16995537700949924189255154638627224, +0.314208757568358760336498288881834674), (+1.95945877712782937608309867888630737, +0.807375992897852663465893951953783888), (+1.43094413924976764261670245704071928, +0.502331306495531939611839855595112969), (+1.04584330651608189214358421272517502, +0.266808809650417945978750846966065300E-2), (+1.57603172179941096382855429698694019, +0.421222473260049225083525881013375669), (+1.45033244600693631482224980268449014, +0.310209761586270922345474408406924257), (+1.74269561469788054210756545793820563, +0.675386384432569760109841810617334302), (+1.90711757924188990206208307100049048, +0.944824772292282749479461909689915419), (+1.13214521949468914265492527673970374, +0.853468647973223566575129909195319526E-1), (+1.79031829233213992705513977220975596, +0.514469532489506649502517942780294758), (+1.06596832961948819069861042063508856, +0.773558361744301447339421075981825625), (+1.34957746714582085251452068375754208, +0.264254225844292864774125989708423197), (+1.31999387137955352343159150591310525, +0.833848935652943410644625870020887350), (+1.19643338895157428246631002448964868, +0.660537276506860389392166623849827977E-1), (+1.05079143777086486404164602723008913, +0.797498370706873392080732313487280253), (+1.32904261979757368444161905292272387, +0.928789762852288023864281533382405008), (+1.11758773320709670306093704869370836, +0.739087992212385298407713119115149274), (+1.17358613487262987941456429290476228, +0.612810666155709046722732971106824702), (+1.44226773747579471109689888800178557, +0.300757195680553820077218816580067853), (+1.92282868983990479861967028362641666, +0.653922619109077281586985814803059513), (+1.47353938635555356962484478366699723, +0.502987399414003395154713528493139809), (+1.26033964099250672552533616263084817, +0.134823567531605063894087741106626741E-2), (+1.36495686366897559148429809881565949, +0.128989657487999988050311135894774092), (+1.36454352327376412765962933776760723, +0.963963133997647390453583028024443201), (+1.04629364269067205812514139699388394, +0.118455626772991794755214648487771269), (+1.90914477657538116218644977722849504, +0.394905458012355655811701631789862414), (+1.75997240359852785024949899862078917, +0.609890224159712971349151395050182753), (+1.38964269174955624238887247844953308, +0.491278452659509025547102582927997330), (+1.72504201539533201798778933259583717, +0.430776596035412504279205783970315518), (+1.26031113279996785818679880212353994, +0.251792634337666183815246649895966298), (+1.90059710231469870121315689042778218, +0.990391058310969657232910410912597522), (+1.88138748220238259893567313903185521, +0.978599025714040219062752714593396600), (+1.70320237488445079709221928042069221, +0.336360508368681051730038406352779759), (+1.28851648056789274323744842006177686, +0.256353860604401592697895298038881709), (+1.05264159504363449941293569862265997, +0.777950821887797298852468811404866194E-1), (+1.76178146274558173609819635192649481, +0.730613118731988587730208290874193251), (+1.31809318615938953719517459812365744, +0.548096479886796440217228550623801344), (+1.13079757507734377581839880413093211, +0.562071686860624039064461319382020876), (+1.82525782097112143478237162062367533, +0.746593007093828012629347080241121665), (+1.71513971031361159281147530940639007, +0.695081077179894517743990129051146418), (+1.01726560842444874530084603217088146, +0.734163801792451491033399010821054116), (+1.63254228922101524477710808068036776, +0.736325623505952204345717852675766800), (+1.66927767808885742911353439643421372, +0.787801259585482338050247311771060021E-1)

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

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

51

52lenData = getUnifRand(5, 100)

53lenData

54+16

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

56data

57+1.70749331, +1.70436335, +1.24648476, +1.69660687, +1.32990718, +1.69858146, +1.10141444, +1.17035270, +1.15047288, +1.31767344, +1.22730923, +1.38464653, +1.77675629, +1.82676375, +1.07667482, +1.92907476

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.70749319, +1.70436347, +1.24648476, +1.69660699, +1.32990706, +1.69858158, +1.10141432, +1.17035270, +1.15047276, +1.31767356, +1.22730923, +1.38464677, +1.77675617, +1.82676375, +1.07667482, +1.92907476

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

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

68

69lenData = getUnifRand(5, 100)

70lenData

71+16

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

73data

74+1.1006413673425919, +1.7869221902930195, +1.3509094090787688, +1.3473876837195973, +1.8612563974078424, +1.4249535689296828, +1.9468583682130927, +1.3810258593965570, +1.8080358144172426, +1.3782924300410495, +1.6791831459335895, +1.3747590249180488, +1.5178196302337734, +1.1604544132767312, +1.6760719199177971, +1.1819539765753762

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.1006413673425919, +1.7869221902930199, +1.3509094090787688, +1.3473876837195975, +1.8612563974078422, +1.4249535689296831, +1.9468583682130927, +1.3810258593965570, +1.8080358144172428, +1.3782924300410497, +1.6791831459335897, +1.3747590249180488, +1.5178196302337734, +1.1604544132767314, +1.6760719199177974, +1.1819539765753764

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

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

85

86lenData = getUnifRand(5, 100)

87lenData

88+100

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

90data

91+1.58300635353785787223601679303946126, +1.62848014403485921217133980472511335, +1.91387024174984063097165255672012996, +1.71542037813637367561511709800130504, +1.35932500034425020065285881812035428, +1.67825267168179276914094305282848329, +1.25868214647483940240574389503657092, +1.07608581890707413291413576287984962, +1.46522315900027175841675554156394429, +1.58014097373138378262746427618047767, +1.80322296910288946183297433793789903, +1.53829820837444345515524201372259347, +1.52434126643667237232457472426808919, +1.36810935048425458265057508928035527, +1.06462200280175457966527028131355214, +1.81911366729050479674813519002237158, +1.28318123688725072691550042297963315, +1.31612497090107007309006205144887926, +1.98307108756701290672835651103284876, +1.00725524625967009135565337912095121, +1.32028177551751825075742936824887134, +1.70780413505032849708898846320302822, +1.57698278210138979835742344671840624, +1.00704962574363930886717451931992494, +1.26038780826684678755985528599548926, +1.44386912683731844344817326512715439, +1.84789068908099326267796670876310853, +1.87662326009958771777683497306115027, +1.16703351126034437112759630794847915, +1.37769755860648531241547152905656533, +1.10183230073590445788830235976116702, +1.62809684130320480742907401039930954, +1.54149050701538664489431988804951208, +1.34812751968247690532069789274483790, +1.01565494737659387851079189780334612, +1.64312853448533069030605960857822311, +1.95992562027208869106933616771301413, +1.66165174199141546047293839519271890, +1.84697360620880839036873088887404859, +1.16091443470766085032159877264042853, +1.35372210751988643548067870689845671, +1.50320393871874808999109304797034260, +1.78163599685750797001674865845121056, +1.21177692030789491950254576800727838, +1.72575496857766388108003048738467496, +1.14705453397540495639833958478910113, +1.19368060031735228980641550240220689, +1.82081547216720752837658312090697105, +1.94834555636708670463330842420727823, +1.03778758699703675573917516441522083, +1.61404704455455816735224011021468286, +1.48269233077155777491927883899540407, +1.73406489590381675700966469682739622, +1.76421767888406997174781940632351255, +1.68718519951601404020712818145290996, +1.23128309499726447448919853242609417, +1.05723984653983871948619868535485090, +1.74819699478894248195577210187033423, +1.21183184312575302028906199317939959, +1.45069484519110067991053010714911200, +1.18653179638867374947940924151986372, +1.84327137501473025381493315742003131, +1.49004936385429936101992124547674675, +1.65136267615005574722425143433312134, +1.65024311385840869798131026795542373, +1.32435288689472051589837813509283177, +1.70533402994859105740427081971862079, +1.44498110384180282491128706919549866, +1.38710990469267659392777559575125846, +1.91141621763469228840158166295090476, +1.07134865582630729758310632404416525, +1.95133469240258291987630907125387941, +1.08473192484383968230172678064604292, +1.96648736981837514610666899949721969, +1.81163466856728926859172833429666337, +1.62044918689066273413332475953638866, +1.29690673132255018231996955549865847, +1.53518531411701100378941033368500448, +1.55789938121733075135775810325173486, +1.63912839109136509332277470469201295, +1.51189171834964824835770527514342092, +1.38306660483987000869701950105891607, +1.13279491114752694703268589273693201, +1.79037067595772690133761509396681749, +1.30109958846469011762066415035154073, +1.70299815159139743196778517086841285, +1.50242404585761739020967778708272835, +1.65104059707230222316588921644435625, +1.81508387240872288587478619764326807, +1.45516617639645961232119114683072214, +1.80032507866589058948931921717567331, +1.66722307881923253864132608729350651, +1.96895204712337872992296282211689624, +1.91169515705017287536296755621859261, +1.89981233179994573022548406253633239, +1.24483155362366472526576343548700251, +1.36229748430739654367180702901490765, +1.24833908593499580234768729616925541, +1.27884109895263064444141794252731552, +1.71755668852783341742453198307424823

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.58300635353785787223601679303946049, +1.62848014403485921217133980472511315, +1.91387024174984063097165255672012976, +1.71542037813637367561511709800130504, +1.35932500034425020065285881812035409, +1.67825267168179276914094305282848329, +1.25868214647483940240574389503657054, +1.07608581890707413291413576287984943, +1.46522315900027175841675554156394410, +1.58014097373138378262746427618047767, +1.80322296910288946183297433793789865, +1.53829820837444345515524201372259347, +1.52434126643667237232457472426808899, +1.36810935048425458265057508928035546, +1.06462200280175457966527028131355195, +1.81911366729050479674813519002237120, +1.28318123688725072691550042297963296, +1.31612497090107007309006205144887926, +1.98307108756701290672835651103284857, +1.00725524625967009135565337912095121, +1.32028177551751825075742936824887095, +1.70780413505032849708898846320302783, +1.57698278210138979835742344671840605, +1.00704962574363930886717451931992474, +1.26038780826684678755985528599548907, +1.44386912683731844344817326512715420, +1.84789068908099326267796670876310853, +1.87662326009958771777683497306115046, +1.16703351126034437112759630794847915, +1.37769755860648531241547152905656572, +1.10183230073590445788830235976116683, +1.62809684130320480742907401039930954, +1.54149050701538664489431988804951208, +1.34812751968247690532069789274483810, +1.01565494737659387851079189780334612, +1.64312853448533069030605960857822330, +1.95992562027208869106933616771301413, +1.66165174199141546047293839519271909, +1.84697360620880839036873088887404878, +1.16091443470766085032159877264042853, +1.35372210751988643548067870689845613, +1.50320393871874808999109304797034222, +1.78163599685750797001674865845121036, +1.21177692030789491950254576800727838, +1.72575496857766388108003048738467496, +1.14705453397540495639833958478910113, +1.19368060031735228980641550240220669, +1.82081547216720752837658312090697086, +1.94834555636708670463330842420727804, +1.03778758699703675573917516441522083, +1.61404704455455816735224011021468286, +1.48269233077155777491927883899540388, +1.73406489590381675700966469682739603, +1.76421767888406997174781940632351274, +1.68718519951601404020712818145290996, +1.23128309499726447448919853242609436, +1.05723984653983871948619868535485109, +1.74819699478894248195577210187033461, +1.21183184312575302028906199317939978, +1.45069484519110067991053010714911219, +1.18653179638867374947940924151986314, +1.84327137501473025381493315742003093, +1.49004936385429936101992124547674656, +1.65136267615005574722425143433312096, +1.65024311385840869798131026795542353, +1.32435288689472051589837813509283196, +1.70533402994859105740427081971862079, +1.44498110384180282491128706919549847, +1.38710990469267659392777559575125846, +1.91141621763469228840158166295090495, +1.07134865582630729758310632404416525, +1.95133469240258291987630907125387941, +1.08473192484383968230172678064604312, +1.96648736981837514610666899949721988, +1.81163466856728926859172833429666318, +1.62044918689066273413332475953638886, +1.29690673132255018231996955549865866, +1.53518531411701100378941033368500486, +1.55789938121733075135775810325173506, +1.63912839109136509332277470469201314, +1.51189171834964824835770527514342034, +1.38306660483987000869701950105891588, +1.13279491114752694703268589273693182, +1.79037067595772690133761509396681729, +1.30109958846469011762066415035154034, +1.70299815159139743196778517086841265, +1.50242404585761739020967778708272816, +1.65104059707230222316588921644435645, +1.81508387240872288587478619764326788, +1.45516617639645961232119114683072233, +1.80032507866589058948931921717567311, +1.66722307881923253864132608729350670, +1.96895204712337872992296282211689605, +1.91169515705017287536296755621859281, +1.89981233179994573022548406253633239, +1.24483155362366472526576343548700270, +1.36229748430739654367180702901490765, +1.24833908593499580234768729616925561, +1.27884109895263064444141794252731571, +1.71755668852783341742453198307424804

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

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

102

103lenData = getUnifRand(5, 100)

104lenData

105+8

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

107data

108(+1.04260349, +0.411531985), (+1.61929977, +0.250604928), (+1.43330479, +0.511495411), (+1.13228726, +0.629137576), (+1.28754616, +0.475500166), (+1.04850495, +0.818633854), (+1.18930149, +0.279028773), (+1.92756248, +0.534699202)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.04260349, +0.411531985), (+1.61929977, +0.250604928), (+1.43330479, +0.511495352), (+1.13228726, +0.629137576), (+1.28754616, +0.475500166), (+1.04850495, +0.818633854), (+1.18930149, +0.279028744), (+1.92756248, +0.534699261)

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

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T

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

119

120lenData = getUnifRand(5, 100)

121lenData

122+64

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

124data

125(+1.5444710324127793, +0.78254328015870533), (+1.6695215206389518, +0.67228266538213621), (+1.1733671701345996, +0.80094747045726666), (+1.0690876041767305, +0.20776535004444607), (+1.9148103422708234, +0.45345582330916745), (+1.2778929987321450, +0.63742416200303398), (+1.9626797577241446, +0.14931933316061519), (+1.3319606177148224, +0.89355410545864600), (+1.3135926057804026, +0.48274757352984954), (+1.5829298764284054, +0.14489207741738963), (+1.8019622733249454, +0.40635122445003846), (+1.5386419467641750, +0.37028416376717233), (+1.9130463982543078, +0.97658910481887062), (+1.1763410691908884, +0.54911822093582696E-1), (+1.9530646170667132, +0.21174056575240463), (+1.2997375445575414, +0.19250146213456587), (+1.7380049044709707, +0.67126543710061881E-1), (+1.4026524386017365, +0.71223380419722726), (+1.6730918849399958, +0.34737180926549382), (+1.3773736430475072, +0.89289126724777768), (+1.2611774857383375, +0.15863977615437896), (+1.8726550878185644, +0.96385243327464343E-1), (+1.4159123961391420, +0.95644177596543867), (+1.2795103913088730, +0.52630124363373942), (+1.7668667356697274, +0.80284153617057052), (+1.6413113804016375, +0.47048128598770500E-1), (+1.2976203833628515, +0.89808201420569456), (+1.5371172850121044, +0.68086454030667931), (+1.1298167765236480, +0.96657712188153455), (+1.2982358285141329, +0.78492473295245668), (+1.6644909757020818, +0.98401454786561682), (+1.4979851251212346, +0.65462682987233312), (+1.0472322626548238, +0.68916879366266570), (+1.3261438829451042, +0.24855436439310452), (+1.4233570992380065, +0.37387578051565373), (+1.3175757484616790, +0.86897280738672966), (+1.3372769926721904, +0.91997365841390988), (+1.7013994709092684, +0.14328601229483429), (+1.2051541359003601, +0.66781024862973981), (+1.0045494470507792, +0.78022382199766593), (+1.4019135253229011, +0.28038370982402050), (+1.5701131477961545, +0.74475147656283014), (+1.6724592867664185, +0.31423624146959184), (+1.4835223248942784, +0.22932328483269815), (+1.1398727379381963, +0.30967028586274703), (+1.2813440318514921, +0.79399219180024028), (+1.7465107121059638, +0.95636711004810193E-1), (+1.5358216897822685, +0.20900601577746158), (+1.4154090693082391, +0.19989631131921504), (+1.7698703687728299, +0.20324702740154221), (+1.0904874104809605, +0.93747474722619883), (+1.4819758300988353, +0.74440236055924891), (+1.5991219352568498, +0.80680225970787556), (+1.6901335244814275, +0.62665219787132398), (+1.1411257277571183, +0.96372901212587203), (+1.4741434413058572, +0.87989426451728359E-1), (+1.0645295899601108, +0.13048946477287604E-2), (+1.0930277354278268, +0.21194808479423533), (+1.4768299267808302, +0.92810681673642381), (+1.4918448842473149, +0.76031794693139465), (+1.5349936143975138, +0.99151307928324894), (+1.6749345593836731, +0.70263997822068336), (+1.0223652233723040, +0.24474613128377842), (+1.7124581830077790, +0.84641886998239202)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.5444710324127791, +0.78254328015870533), (+1.6695215206389513, +0.67228266538213621), (+1.1733671701345993, +0.80094747045726666), (+1.0690876041767305, +0.20776535004444618), (+1.9148103422708234, +0.45345582330916739), (+1.2778929987321448, +0.63742416200303398), (+1.9626797577241444, +0.14931933316061508), (+1.3319606177148220, +0.89355410545864600), (+1.3135926057804024, +0.48274757352984954), (+1.5829298764284052, +0.14489207741738963), (+1.8019622733249454, +0.40635122445003868), (+1.5386419467641748, +0.37028416376717233), (+1.9130463982543076, +0.97658910481887062), (+1.1763410691908882, +0.54911822093582641E-1), (+1.9530646170667134, +0.21174056575240457), (+1.2997375445575414, +0.19250146213456582), (+1.7380049044709704, +0.67126543710061978E-1), (+1.4026524386017361, +0.71223380419722715), (+1.6730918849399954, +0.34737180926549399), (+1.3773736430475072, +0.89289126724777734), (+1.2611774857383378, +0.15863977615437919), (+1.8726550878185642, +0.96385243327464287E-1), (+1.4159123961391420, +0.95644177596543845), (+1.2795103913088726, +0.52630124363373931), (+1.7668667356697272, +0.80284153617057052), (+1.6413113804016370, +0.47048128598770417E-1), (+1.2976203833628517, +0.89808201420569478), (+1.5371172850121042, +0.68086454030667931), (+1.1298167765236478, +0.96657712188153444), (+1.2982358285141327, +0.78492473295245668), (+1.6644909757020820, +0.98401454786561660), (+1.4979851251212346, +0.65462682987233312), (+1.0472322626548236, +0.68916879366266559), (+1.3261438829451040, +0.24855436439310452), (+1.4233570992380062, +0.37387578051565395), (+1.3175757484616790, +0.86897280738672966), (+1.3372769926721904, +0.91997365841390977), (+1.7013994709092681, +0.14328601229483426), (+1.2051541359003601, +0.66781024862973970), (+1.0045494470507790, +0.78022382199766604), (+1.4019135253229009, +0.28038370982402061), (+1.5701131477961543, +0.74475147656283014), (+1.6724592867664185, +0.31423624146959195), (+1.4835223248942784, +0.22932328483269807), (+1.1398727379381961, +0.30967028586274692), (+1.2813440318514917, +0.79399219180024039), (+1.7465107121059640, +0.95636711004810082E-1), (+1.5358216897822683, +0.20900601577746153), (+1.4154090693082388, +0.19989631131921515), (+1.7698703687728297, +0.20324702740154216), (+1.0904874104809603, +0.93747474722619906), (+1.4819758300988353, +0.74440236055924869), (+1.5991219352568502, +0.80680225970787567), (+1.6901335244814273, +0.62665219787132398), (+1.1411257277571183, +0.96372901212587192), (+1.4741434413058569, +0.87989426451728248E-1), (+1.0645295899601108, +0.13048946477287604E-2), (+1.0930277354278266, +0.21194808479423541), (+1.4768299267808305, +0.92810681673642403), (+1.4918448842473147, +0.76031794693139454), (+1.5349936143975136, +0.99151307928324894), (+1.6749345593836729, +0.70263997822068314), (+1.0223652233723044, +0.24474613128377848), (+1.7124581830077790, +0.84641886998239213)

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

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

136

137lenData = getUnifRand(5, 100)

138lenData

139+76

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

141data

142(+1.93644078349080034529875000753797392, +0.975716539691287796719607796901850157), (+1.45914781894286133804905964535202160, +0.611016395957636256556167856474572752), (+1.38928255262548811813256618799738772, +0.201991247515262394321949150806665459), (+1.00793938420117062869884755018252379, +0.196831406044535210228383174085544137), (+1.23925809055817205142329762236934049, +0.664957614777667328807513842673063537), (+1.80247845482683881780890977631542499, +0.665433840019365072687575556426397624), (+1.17207294335552672180350461243963939, +0.484254378679679534231435109616014648), (+1.08988346351125711091048862862928861, +0.557309870409423139300542208896114710E-1), (+1.06286144286269307506582402703854147, +0.851649536994482577414078214319209928), (+1.91134302495631556401601610685768156, +0.631546269917718193632123839583645212), (+1.48320761868042591863210743008175769, +0.147768020636670072075719244415995152), (+1.97172838654367016409965977820983683, +0.735615733236210328784730477490453711), (+1.74626736737436848308920611765198662, +0.189286792620094177961885400276165400), (+1.72937613580148436731602102073847798, +0.407420876551505049050919950920557616E-1), (+1.19554596050550758309102843714970673, +0.968699976290811242098677445286181615), (+1.26920083743084163511628924143347164, +0.336924324112841696812240246322708132), (+1.77799247581761382233883227628920836, +0.550560863091127634939341288547481221), (+1.20313082626964734613097695217685908, +0.549728530207259037612174344257802051), (+1.78494989230965596790270159945753641, +0.584551669151306783121602255504599416), (+1.02174641825390600072028863982563971, +0.502884895972766113984054213884462265), (+1.31857049001035034246928353350639631, +0.581694216889355316650990284256012505E-1), (+1.43607796375382737785888500916708551, +0.958260313014262082247733843981634472), (+1.46478309574989397727898533307800353, +0.633283387519197042228064150210984822), (+1.32459746546981332719046252564409005, +0.876754464263630185693396972191587146), (+1.70320826982056053612745068556119236, +0.975428606785240485603547102828583930), (+1.50613391608833132040448244981509314, +0.867189682947339935195818510392768158), (+1.67151182830523663163793121303658426, +0.501982166426953745845357776036432887), (+1.32605630526418443091144638604631499, +0.661507926842591666808674638098240843), (+1.38191195049517677893606359219275911, +0.179923609413997557752378561596082831), (+1.31805100625442883238385229716388134, +0.873664112037921531948842563987120795), (+1.99627199699405789437775759908259759, +0.478346554310613752332083033309742665), (+1.96439764511742162640807436752961716, +0.339038213833223566700814074598465350), (+1.29317256745421416012166004123886165, +0.443607982497934334819751949632946044), (+1.54634307629807855326964136902038634, +0.212490168101684999283135549194246953), (+1.20461798699527292454984932837665221, +0.458053921912300616303539015787121359), (+1.42038404971707917255005140808883359, +0.597897341675440953768076598719867045), (+1.78608802417195552280903577026072977, +0.309269695379966717458458381790362262), (+1.28667416401838513908468609444397761, +0.717659121354098596176840606262243443), (+1.28846358183624193076836806949120885, +0.601987920179987831579994079053980503), (+1.86632705279752916552517079970780727, +0.456063417265013858851473287686639898), (+1.97895606915912278920914493911104205, +0.534744737629661486167477687343260111), (+1.83086313405398221378731932565127674, +0.361345369848561333636182621888841662), (+1.48441533959873131349134874360992562, +0.324302592456025212976916767659761108E-1), (+1.00805100918173008961774142799218450, +0.397621388946876786495657748156202156), (+1.92471662112390907409714373386514187, +0.864786958025260103961292641396009571), (+1.13664783525331390675927568183771417, +0.494432674477265772846059103625694654), (+1.08427205122788536017904158604998726, +0.625549430059504765878821872470778115), (+1.25931019859106406981410706413647529, +0.426102992630288068492729785858902707), (+1.74240265008576656465028638328117721, +0.295095982516167501296220303726685937), (+1.67549167429851297113668122139242227, +0.711757565243312317107753945365952816), (+1.74287665312651125313042729256875459, +0.263137543414258793201128260450944946), (+1.38294596176934955050172237222959864, +0.984478900128562163287763481145204208), (+1.24786397574545999570474314376981748, +0.474713576336984314213460370025557059), (+1.72400152967961156036671712190196764, +0.285426882877264148789484743342085199), (+1.09244036323348422690774770279134950, +0.208449757086028855208526488986779602), (+1.82018280591592957219687574852611810, +0.744874986354850845135374849945197444), (+1.24619799011096356677744041601675469, +0.986178017761729073611470838969050477), (+1.06514054699482017684431445848518885, +0.187085519918683029627591381628885784), (+1.40462307919355322401489408491389253, +0.247372560797098766446667777473194362), (+1.32490579096189632919256304167167564, +0.128264402017961544361242423766070843), (+1.28474070147280751898538281977010070, +0.214429337470767771296910530512952688), (+1.88310752191553961698410312175469444, +0.292199985645853949137307493841784580), (+1.75343411527663272986467394284048259, +0.189491198787028441757257068145507592E-1), (+1.78154458321418559314910664760184036, +0.484490270118036828421364322047402366), (+1.72213809428449830732224578170268733, +0.385313720231173460609522551244325360), (+1.24196184935460041740192214408749290, +0.615715630195269070852799927323115071), (+1.01788563899556975900202672939167047, +0.722344044442313311108603494574137549E-1), (+1.30340965827525028904627551952241500, +0.156960807046958335484534504638414976), (+1.08432489029390992941292836590460398, +0.130684419925087993105430317086450298), (+1.32732577526493674970219006670931312, +0.239984569689292729920219758256128319), (+1.65465979869767849055125381787769406, +0.189416873142330658656792389443764264), (+1.08726708510084004183865832312213441, +0.395824695255061816209985568849142066E-1), (+1.38624017504128435624788742461114012, +0.501821832006213048924295275912489536), (+1.51776854963558324433056532042555921, +0.119133124447183712999445962441961213), (+1.59656974730451987142753334524990314, +0.498021810020179364350221474460796442), (+1.89121291446571893633947219555323098, +0.853788933741079198642613200142581213)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.93644078349080034529875000753797315, +0.975716539691287796719607796901850349), (+1.45914781894286133804905964535202199, +0.611016395957636256556167856474572849), (+1.38928255262548811813256618799738752, +0.201991247515262394321949150806665339), (+1.00793938420117062869884755018252379, +0.196831406044535210228383174085544353), (+1.23925809055817205142329762236934049, +0.664957614777667328807513842673063729), (+1.80247845482683881780890977631542461, +0.665433840019365072687575556426397721), (+1.17207294335552672180350461243963958, +0.484254378679679534231435109616014648), (+1.08988346351125711091048862862928823, +0.557309870409423139300542208896115974E-1), (+1.06286144286269307506582402703854070, +0.851649536994482577414078214319210217), (+1.91134302495631556401601610685768117, +0.631546269917718193632123839583645404), (+1.48320761868042591863210743008175731, +0.147768020636670072075719244415995032), (+1.97172838654367016409965977820983645, +0.735615733236210328784730477490453711), (+1.74626736737436848308920611765198585, +0.189286792620094177961885400276165231), (+1.72937613580148436731602102073847817, +0.407420876551505049050919950920556172E-1), (+1.19554596050550758309102843714970692, +0.968699976290811242098677445286181615), (+1.26920083743084163511628924143347183, +0.336924324112841696812240246322708277), (+1.77799247581761382233883227628920836, +0.550560863091127634939341288547481317), (+1.20313082626964734613097695217685927, +0.549728530207259037612174344257802147), (+1.78494989230965596790270159945753699, +0.584551669151306783121602255504599609), (+1.02174641825390600072028863982563913, +0.502884895972766113984054213884462169), (+1.31857049001035034246928353350639689, +0.581694216889355316650990284256014732E-1), (+1.43607796375382737785888500916708628, +0.958260313014262082247733843981634665), (+1.46478309574989397727898533307800373, +0.633283387519197042228064150210985014), (+1.32459746546981332719046252564409005, +0.876754464263630185693396972191587434), (+1.70320826982056053612745068556119178, +0.975428606785240485603547102828583737), (+1.50613391608833132040448244981509353, +0.867189682947339935195818510392768062), (+1.67151182830523663163793121303658349, +0.501982166426953745845357776036432598), (+1.32605630526418443091144638604631460, +0.661507926842591666808674638098240939), (+1.38191195049517677893606359219275891, +0.179923609413997557752378561596082879), (+1.31805100625442883238385229716388115, +0.873664112037921531948842563987120795), (+1.99627199699405789437775759908259759, +0.478346554310613752332083033309742761), (+1.96439764511742162640807436752961678, +0.339038213833223566700814074598465254), (+1.29317256745421416012166004123886165, +0.443607982497934334819751949632945900), (+1.54634307629807855326964136902038577, +0.212490168101684999283135549194246905), (+1.20461798699527292454984932837665221, +0.458053921912300616303539015787121359), (+1.42038404971707917255005140808883379, +0.597897341675440953768076598719867142), (+1.78608802417195552280903577026072977, +0.309269695379966717458458381790362358), (+1.28667416401838513908468609444397819, +0.717659121354098596176840606262243539), (+1.28846358183624193076836806949120789, +0.601987920179987831579994079053980503), (+1.86632705279752916552517079970780766, +0.456063417265013858851473287686639850), (+1.97895606915912278920914493911104186, +0.534744737629661486167477687343260207), (+1.83086313405398221378731932565127674, +0.361345369848561333636182621888841662), (+1.48441533959873131349134874360992524, +0.324302592456025212976916767659761048E-1), (+1.00805100918173008961774142799218411, +0.397621388946876786495657748156202107), (+1.92471662112390907409714373386514187, +0.864786958025260103961292641396009378), (+1.13664783525331390675927568183771379, +0.494432674477265772846059103625694654), (+1.08427205122788536017904158604998687, +0.625549430059504765878821872470778308), (+1.25931019859106406981410706413647548, +0.426102992630288068492729785858902755), (+1.74240265008576656465028638328117682, +0.295095982516167501296220303726685744), (+1.67549167429851297113668122139242227, +0.711757565243312317107753945365952720), (+1.74287665312651125313042729256875421, +0.263137543414258793201128260450944850), (+1.38294596176934955050172237222959883, +0.984478900128562163287763481145204208), (+1.24786397574545999570474314376981691, +0.474713576336984314213460370025557204), (+1.72400152967961156036671712190196802, +0.285426882877264148789484743342085199), (+1.09244036323348422690774770279134911, +0.208449757086028855208526488986779650), (+1.82018280591592957219687574852611887, +0.744874986354850845135374849945197251), (+1.24619799011096356677744041601675527, +0.986178017761729073611470838969050573), (+1.06514054699482017684431445848518866, +0.187085519918683029627591381628885591), (+1.40462307919355322401489408491389330, +0.247372560797098766446667777473194458), (+1.32490579096189632919256304167167603, +0.128264402017961544361242423766070627), (+1.28474070147280751898538281977010070, +0.214429337470767771296910530512952832), (+1.88310752191553961698410312175469463, +0.292199985645853949137307493841784628), (+1.75343411527663272986467394284048221, +0.189491198787028441757257068145506719E-1), (+1.78154458321418559314910664760184036, +0.484490270118036828421364322047402510), (+1.72213809428449830732224578170268637, +0.385313720231173460609522551244325360), (+1.24196184935460041740192214408749213, +0.615715630195269070852799927323115168), (+1.01788563899556975900202672939167047, +0.722344044442313311108603494574135142E-1), (+1.30340965827525028904627551952241481, +0.156960807046958335484534504638414856), (+1.08432489029390992941292836590460359, +0.130684419925087993105430317086450274), (+1.32732577526493674970219006670931235, +0.239984569689292729920219758256128175), (+1.65465979869767849055125381787769406, +0.189416873142330658656792389443764529), (+1.08726708510084004183865832312213383, +0.395824695255061816209985568849141584E-1), (+1.38624017504128435624788742461114012, +0.501821832006213048924295275912489729), (+1.51776854963558324433056532042555960, +0.119133124447183712999445962441961478), (+1.59656974730451987142753334524990334, +0.498021810020179364350221474460796490), (+1.89121291446571893633947219555323156, +0.853788933741079198642613200142581309)

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

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

153

154lenData = getUnifRand(5, 100)

155lenData

156+9

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

158data

159+1.72056079, +1.95407438, +1.75361621, +1.82119370, +1.81071305, +1.63388014, +1.45241678, +1.09842694, +1.03600907

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.72056067, +1.95407450, +1.75361633, +1.82119370, +1.81071329, +1.63388026, +1.45241678, +1.09842706, +1.03600907

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

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T

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

170

171lenData = getUnifRand(5, 100)

172lenData

173+60

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

175data

176+1.6635721818936533, +1.5337144846256048, +1.8645222815274409, +1.3647011435633929, +1.2962576681063642, +1.5101296799669526, +1.2768242182137812, +1.2106259979338181, +1.8745278575051632, +1.5927989158261424, +1.9944090399131009, +1.4089730661218050, +1.0584448579394177, +1.9772698199352750, +1.2053075457978115, +1.4243724084546412, +1.2172910810632533, +1.2512427735687410, +1.4769205652282147, +1.5007391223344611, +1.1975805472269814, +1.7381298301097150, +1.7238443462981961, +1.3671788381979826, +1.3353611206495326, +1.9929963369269044, +1.2245924351852064, +1.6333697992803333, +1.8396183039961880, +1.3408883361679877, +1.9580721583593317, +1.4679712490837384, +1.2572343456389330, +1.0756538915767386, +1.7320132215496886, +1.8910235102520447, +1.7078428094934450, +1.0398038245329184, +1.1597243415710410, +1.1961276843976609, +1.0945993225000943, +1.4149198243460976, +1.7485572425075180, +1.9439453609880732, +1.7406802822872236, +1.1600351537505849, +1.4860095223463494, +1.8783729868632801, +1.4287069466933668, +1.6418374908560023, +1.5048455228976279, +1.2403370684173247, +1.2671446565674307, +1.4002876725477904, +1.3489366179940707, +1.5845864914502745, +1.2848706415313464, +1.6619981458245143, +1.5942565708501770, +1.5801580116250722

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.6635721818936535, +1.5337144846256052, +1.8645222815274414, +1.3647011435633931, +1.2962576681063647, +1.5101296799669528, +1.2768242182137819, +1.2106259979338183, +1.8745278575051632, +1.5927989158261429, +1.9944090399131014, +1.4089730661218052, +1.0584448579394177, +1.9772698199352750, +1.2053075457978115, +1.4243724084546414, +1.2172910810632533, +1.2512427735687413, +1.4769205652282151, +1.5007391223344611, +1.1975805472269814, +1.7381298301097150, +1.7238443462981965, +1.3671788381979826, +1.3353611206495328, +1.9929963369269046, +1.2245924351852064, +1.6333697992803338, +1.8396183039961880, +1.3408883361679882, +1.9580721583593317, +1.4679712490837380, +1.2572343456389325, +1.0756538915767389, +1.7320132215496888, +1.8910235102520450, +1.7078428094934455, +1.0398038245329189, +1.1597243415710412, +1.1961276843976609, +1.0945993225000945, +1.4149198243460979, +1.7485572425075180, +1.9439453609880728, +1.7406802822872234, +1.1600351537505849, +1.4860095223463494, +1.8783729868632804, +1.4287069466933668, +1.6418374908560025, +1.5048455228976281, +1.2403370684173249, +1.2671446565674311, +1.4002876725477906, +1.3489366179940709, +1.5845864914502743, +1.2848706415313464, +1.6619981458245146, +1.5942565708501772, +1.5801580116250722

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

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

187

188lenData = getUnifRand(5, 100)

189lenData

190+73

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

192data

193+1.60645062213035504974378491944118108, +1.48479481349020321610007007460698162, +1.97533277839886367123129722510951510, +1.10408577410552667629388669879336485, +1.28109217558262041500573080295104355, +1.63361762910592135463140849808615593, +1.99289569588740755346051837879173188, +1.80897562161545169756381174025175733, +1.26580036762322919354328456033527832, +1.33205933573229359594207369199525939, +1.31884381393168800351145680563827695, +1.00517756464964787306220131870221621, +1.07364488122371485725969440434043098, +1.22842849349355796118478567463492819, +1.47844111593740028276463228324159431, +1.51485688297099134401457807728524326, +1.98698980814677643335480825543614057, +1.56288638219775541090023594715122242, +1.04285162276321355692355787517195930, +1.59779535260393640548699706080738286, +1.86138137930022965821795322988056326, +1.06406773448041465188620154596052785, +1.00993216362090976688516410182516085, +1.42754203810321578974317272945597881, +1.87239362529288783590763062453593303, +1.23298001682517592553257678569921518, +1.99544269814326122386570442688938687, +1.78932102349449925179081636295110458, +1.76820543433460021438559156076768053, +1.53484488618804108160279850653852658, +1.51451458717439246787420451851671280, +1.08387231081698431704418616977170603, +1.34549081553636355483922454763608923, +1.03493299088644786002099923037520138, +1.30518224600634294200042542416148997, +1.76483398670952718194294531023144445, +1.97561936202657353177154242274377451, +1.92185894660734652616779191308849701, +1.06124950075344195130237533251100579, +1.68194585729629766673380268807273932, +1.44333174750988304669488939096480251, +1.44337267396174821785456492734981736, +1.43469416180132525848583565869988286, +1.95578505620771367395919200852715512, +1.22541180241062348178273706585810452, +1.40042247356178484847344141326656753, +1.47263805218858774640625576304671499, +1.15959725648736903484042870277277023, +1.51082736153557298392175825169633619, +1.89167662053436151964271030679711622, +1.05938462617677599384758222469286746, +1.07973760949343285279376318481074332, +1.05158606855432282855648069490533014, +1.73741016216318149112144514140579304, +1.06422909107269499003600693979101509, +1.27034205523405783741028425222133320, +1.23453360966835296498164189590496298, +1.21774840273849087335150799370442892, +1.25369534397761126236300534949046047, +1.78551834841445371763773719528469844, +1.05903622310064978615470025248076389, +1.05840348950569058746774840979090883, +1.83040566464582214759498340171105841, +1.27318048911819229852754366589306719, +1.11593921252619803516550247719654150, +1.27451843034252271939083825824325672, +1.76621068873087131440814415819554731, +1.85194471773961193886414687762239583, +1.91265666084990250211785836913165404, +1.52346063318448082522658101052403712, +1.99771681480817450135119708190203338, +1.97207557933763540032851048582265412, +1.37746307655919904281065248633597157

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.60645062213035504974378491944118358, +1.48479481349020321610007007460698412, +1.97533277839886367123129722510951298, +1.10408577410552667629388669879336928, +1.28109217558262041500573080295104567, +1.63361762910592135463140849808615785, +1.99289569588740755346051837879172899, +1.80897562161545169756381174025175540, +1.26580036762322919354328456033528237, +1.33205933573229359594207369199526113, +1.31884381393168800351145680563827580, +1.00517756464964787306220131870222179, +1.07364488122371485725969440434043349, +1.22842849349355796118478567463493050, +1.47844111593740028276463228324159162, +1.51485688297099134401457807728524769, +1.98698980814677643335480825543612728, +1.56288638219775541090023594715122126, +1.04285162276321355692355787517197393, +1.59779535260393640548699706080737978, +1.86138137930022965821795322988054612, +1.06406773448041465188620154596054191, +1.00993216362090976688516410182517105, +1.42754203810321578974317272945598208, +1.87239362529288783590763062453591300, +1.23298001682517592553257678569923963, +1.99544269814326122386570442688936511, +1.78932102349449925179081636295110477, +1.76820543433460021438559156076767013, +1.53484488618804108160279850653853005, +1.51451458717439246787420451851670356, +1.08387231081698431704418616977172548, +1.34549081553636355483922454763607844, +1.03493299088644786002099923037522045, +1.30518224600634294200042542416149190, +1.76483398670952718194294531023143424, +1.97561936202657353177154242274375622, +1.92185894660734652616779191308846735, +1.06124950075344195130237533251104354, +1.68194585729629766673380268807271525, +1.44333174750988304669488939096480983, +1.44337267396174821785456492734981485, +1.43469416180132525848583565869989480, +1.95578505620771367395919200852712488, +1.22541180241062348178273706585812263, +1.40042247356178484847344141326656368, +1.47263805218858774640625576304670863, +1.15959725648736903484042870277278236, +1.51082736153557298392175825169633561, +1.89167662053436151964271030679709311, +1.05938462617677599384758222469288383, +1.07973760949343285279376318481074505, +1.05158606855432282855648069490534400, +1.73741016216318149112144514140577186, +1.06422909107269499003600693979102915, +1.27034205523405783741028425222133050, +1.23453360966835296498164189590496510, +1.21774840273849087335150799370442950, +1.25369534397761126236300534949046702, +1.78551834841445371763773719528468381, +1.05903622310064978615470025248077237, +1.05840348950569058746774840979091595, +1.83040566464582214759498340171104744, +1.27318048911819229852754366589307123, +1.11593921252619803516550247719654651, +1.27451843034252271939083825824325999, +1.76621068873087131440814415819554499, +1.85194471773961193886414687762239506, +1.91265666084990250211785836913165385, +1.52346063318448082522658101052403982, +1.99771681480817450135119708190203280, +1.97207557933763540032851048582265354, +1.37746307655919904281065248633597427

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

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+73

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

209data

210(+1.59586275, +0.297150791), (+1.05954576, +0.780150533), (+1.78449130, +0.988911033), (+1.08732057, +0.268762708E-1), (+1.04792249, +0.779146612), (+1.57105863, +0.304853797), (+1.51018977, +0.912334085), (+1.70533121, +0.917949617), (+1.08518267, +0.143807054), (+1.96122265, +0.300946355), (+1.38724947, +0.985498607), (+1.86624908, +0.269311965), (+1.54220259, +0.242914736), (+1.14798141, +0.139076710), (+1.48227262, +0.119592965), (+1.56041312, +0.398050129), (+1.94224775, +0.302976727), (+1.11521780, +0.540801227), (+1.54196990, +0.777208805E-1), (+1.03200233, +0.193519533), (+1.01722610, +0.742816925), (+1.42300820, +0.793621778), (+1.71249604, +0.938869357), (+1.89571643, +0.851532519), (+1.47699285, +0.155971527), (+1.69753122, +0.946097970), (+1.53865767, +0.170086801), (+1.78031111, +0.424680769), (+1.40257001, +0.965449691), (+1.33676910, +0.105751753), (+1.72954679, +0.156568766), (+1.90754819, +0.118343115), (+1.59360433, +0.928683460), (+1.02592373, +0.866564572), (+1.88874376, +0.838813245), (+1.97970915, +0.242082715), (+1.05822563, +0.720501065), (+1.85072327, +0.148469806E-1), (+1.42480171, +0.185322642), (+1.75330448, +0.638097525), (+1.43411040, +0.376459360), (+1.73026538, +0.143945396), (+1.86958683, +0.482517421), (+1.13426304, +0.180138350), (+1.03111053, +0.212471247), (+1.45230436, +0.606149793), (+1.97198284, +0.441591263), (+1.05703318, +0.768083930E-1), (+1.71836114, +0.847783685), (+1.02720046, +0.557996809), (+1.92403328, +0.265352547), (+1.23123908, +0.154351294), (+1.91241205, +0.197266936E-1), (+1.49378777, +0.609970212), (+1.18616092, +0.342050612), (+1.56407523, +0.136244118), (+1.98769474, +0.240091085), (+1.30463636, +0.585836768), (+1.37797976, +0.640235722), (+1.63385105, +0.508022010), (+1.27480459, +0.514590740E-1), (+1.52221310, +0.308093905), (+1.14689326, +0.915375352), (+1.41019297, +0.923554957), (+1.63666940, +0.340757787), (+1.39294362, +0.877566278), (+1.56357360, +0.367846489), (+1.05741429, +0.358628035E-1), (+1.98736429, +0.744375169), (+1.76265788, +0.585311055E-1), (+1.13720000, +0.207890153), (+1.34970760, +0.717679083), (+1.93967438, +0.923659742)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.59586859, +0.297152460), (+1.05954492, +0.780150294), (+1.78449106, +0.988910854), (+1.08732057, +0.268760119E-1), (+1.04792225, +0.779146373), (+1.57105839, +0.304853678), (+1.51018953, +0.912333965), (+1.70533133, +0.917949736), (+1.08518267, +0.143806845), (+1.96122193, +0.300946176), (+1.38724971, +0.985498488), (+1.86624873, +0.269311666), (+1.54220259, +0.242914617), (+1.14798117, +0.139076620), (+1.48227298, +0.119592950), (+1.56041300, +0.398050070), (+1.94224751, +0.302976638), (+1.11521780, +0.540801048), (+1.54197025, +0.777208954E-1), (+1.03200221, +0.193519488), (+1.01722574, +0.742816865), (+1.42300808, +0.793621659), (+1.71249592, +0.938869536), (+1.89571643, +0.851532280), (+1.47699285, +0.155971378), (+1.69753146, +0.946098030), (+1.53865767, +0.170086682), (+1.78031147, +0.424680620), (+1.40256977, +0.965449691), (+1.33676922, +0.105751723), (+1.72954714, +0.156568766), (+1.90754867, +0.118343197), (+1.59360456, +0.928683460), (+1.02592397, +0.866564572), (+1.88874435, +0.838813543), (+1.97970974, +0.242082983), (+1.05822611, +0.720501125), (+1.85072362, +0.148473242E-1), (+1.42480230, +0.185322925), (+1.75330496, +0.638097823), (+1.43411052, +0.376459330), (+1.73026586, +0.143945456), (+1.86958730, +0.482517511), (+1.13426328, +0.180138335), (+1.03111053, +0.212471142), (+1.45230424, +0.606149852), (+1.97198319, +0.441591084), (+1.05703318, +0.768082365E-1), (+1.71836138, +0.847783685), (+1.02720058, +0.557996690), (+1.92403340, +0.265352339), (+1.23123920, +0.154351383), (+1.91241181, +0.197266098E-1), (+1.49378717, +0.609970093), (+1.18616068, +0.342050463), (+1.56407559, +0.136244208), (+1.98769450, +0.240090936), (+1.30463612, +0.585836768), (+1.37797952, +0.640235603), (+1.63385129, +0.508021951), (+1.27480435, +0.514588840E-1), (+1.52221310, +0.308093935), (+1.14689302, +0.915375054), (+1.41019320, +0.923554897), (+1.63666880, +0.340757608), (+1.39294350, +0.877566159), (+1.56357360, +0.367846608), (+1.05741405, +0.358626470E-1), (+1.98736405, +0.744375050), (+1.76265752, +0.585307814E-1), (+1.13719988, +0.207889840), (+1.34970737, +0.717678964), (+1.93967342, +0.923659444)

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

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

221

222lenData = getUnifRand(5, 100)

223lenData

224+76

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

226data

227(+1.3024466999160995, +0.93939899216045641), (+1.0971594978780241, +0.17725671109412411), (+1.7760438268977978, +0.78824102842942612E-1), (+1.0924274213110163, +0.63858326821555589), (+1.0215108296465296, +0.27758855738858812), (+1.9900888417551217, +0.36471538677231574), (+1.4948746818603116, +0.71337160443597392E-1), (+1.3896952129361075, +0.56176522680430974), (+1.2312455065166947, +0.79394529657236990), (+1.9063918149475196, +0.82419724206157696), (+1.3536185293252145, +0.15275268719125201), (+1.2382738588013606, +0.97157778429022257), (+1.7755066262156891, +0.84396588266496020), (+1.5901286528219747, +0.20674765529921313), (+1.0254458310766461, +0.83896357793970489), (+1.7083381463729306, +0.40822061244050745E-1), (+1.4321864915369598, +0.21756235009964553), (+1.6676850826892444, +0.74983914741190760), (+1.3282202265565686, +0.76842668820046056), (+1.0368253165374348, +0.87341708472248036), (+1.9856937736489120, +0.59834798383422660), (+1.8282166580289334, +0.92797656196859413), (+1.7631665907214096, +0.35646807893633004), (+1.1098624803091877, +0.13054751276859267), (+1.2452038251010735, +0.74156058371063838), (+1.0353066435868441, +0.23885933147053595), (+1.3139229664541201, +0.45703969466305772), (+1.1733537300703385, +0.99736576496798413), (+1.7984920657382348, +0.55493862684783213), (+1.8047080012539185, +0.98384944249545236), (+1.4831851897136852, +0.40514238092757426), (+1.4542902771148594, +0.82212654552994080), (+1.4234502574936272, +0.80055806353725278), (+1.0665752597604823, +0.58954567036252692), (+1.1452943513680682, +0.77085684897201723), (+1.1982724278379844, +0.70507402767367811), (+1.7711270732669151, +0.71693573025323187), (+1.4808564652399709, +0.70108455679545123), (+1.6399621236834221, +0.39706051578961565), (+1.4554407846661985, +0.81805727837179454), (+1.9763108099398747, +0.69820877863817499), (+1.8916712340411745, +0.60880060411982051), (+1.7871168676865423, +0.44659478947965003), (+1.8031247772224235, +0.61124123837456157), (+1.7913976914702783, +0.70016629633583194), (+1.3650196965909505, +0.60847657674729450), (+1.2645897171236278, +0.71506953983248855), (+1.2483721437896262, +0.68287867811899094), (+1.3699949853439222, +0.38655777348153975), (+1.0831291539830556, +0.83538507049977673E-1), (+1.9951531707500072, +0.58960453987820960), (+1.0619675735393534, +0.18994317116790638), (+1.5770839956953537, +0.72423216865628048), (+1.7521514241410423, +0.86136401410582741), (+1.2887440945725088, +0.16969451683841608), (+1.3809858642053152, +0.68685426118693083), (+1.6989678046000214, +0.41943213580294714), (+1.4749797889599785, +0.92930242313836053), (+1.5718543163186016, +0.54742317328091650), (+1.7331821291851406, +0.40111934504807345), (+1.4721522816010064, +0.87664201736978264), (+1.6521083327527468, +0.34597726395008932), (+1.7507047780329659, +0.84272314242614310), (+1.3401674932253673, +0.50166813146004874), (+1.4097383975418749, +0.14693719060099364), (+1.3426062619896619, +0.40046750005052711), (+1.2698203788375095, +0.71810385600021220), (+1.7569874711014539, +0.82047581469694397), (+1.4342288603766609, +0.14389041974467065), (+1.7941793133385768, +0.63345218667422698), (+1.1372597786835925, +0.22625022844594012), (+1.9424229532499999, +0.82281757067057093E-1), (+1.7704477731572279, +0.80993572792813362), (+1.7028747787092420, +0.77231710555964095), (+1.4450111849224054, +0.69552500618844004), (+1.7406423519569145, +0.67185788103941202)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.3024466999160977, +0.93939899216045630), (+1.0971594978780244, +0.17725671109412403), (+1.7760438268977981, +0.78824102842942764E-1), (+1.0924274213110166, +0.63858326821555589), (+1.0215108296465298, +0.27758855738858812), (+1.9900888417551217, +0.36471538677231530), (+1.4948746818603118, +0.71337160443597530E-1), (+1.3896952129361075, +0.56176522680430974), (+1.2312455065166947, +0.79394529657236967), (+1.9063918149475185, +0.82419724206157663), (+1.3536185293252134, +0.15275268719125176), (+1.2382738588013604, +0.97157778429022268), (+1.7755066262156884, +0.84396588266496031), (+1.5901286528219745, +0.20674765529921310), (+1.0254458310766466, +0.83896357793970455), (+1.7083381463729312, +0.40822061244050793E-1), (+1.4321864915369602, +0.21756235009964553), (+1.6676850826892451, +0.74983914741190738), (+1.3282202265565688, +0.76842668820046056), (+1.0368253165374339, +0.87341708472248014), (+1.9856937736489122, +0.59834798383422638), (+1.8282166580289336, +0.92797656196859402), (+1.7631665907214098, +0.35646807893633009), (+1.1098624803091874, +0.13054751276859278), (+1.2452038251010733, +0.74156058371063827), (+1.0353066435868441, +0.23885933147053595), (+1.3139229664541199, +0.45703969466305788), (+1.1733537300703383, +0.99736576496798390), (+1.7984920657382337, +0.55493862684783180), (+1.8047080012539174, +0.98384944249545203), (+1.4831851897136852, +0.40514238092757449), (+1.4542902771148594, +0.82212654552994058), (+1.4234502574936267, +0.80055806353725301), (+1.0665752597604821, +0.58954567036252670), (+1.1452943513680682, +0.77085684897201712), (+1.1982724278379853, +0.70507402767367788), (+1.7711270732669153, +0.71693573025323221), (+1.4808564652399714, +0.70108455679545112), (+1.6399621236834208, +0.39706051578961499), (+1.4554407846661990, +0.81805727837179443), (+1.9763108099398752, +0.69820877863817499), (+1.8916712340411750, +0.60880060411982051), (+1.7871168676865425, +0.44659478947964992), (+1.8031247772224237, +0.61124123837456135), (+1.7913976914702781, +0.70016629633583216), (+1.3650196965909498, +0.60847657674729438), (+1.2645897171236273, +0.71506953983248867), (+1.2483721437896256, +0.68287867811899039), (+1.3699949853439211, +0.38655777348153947), (+1.0831291539830556, +0.83538507049977895E-1), (+1.9951531707500068, +0.58960453987820949), (+1.0619675735393541, +0.18994317116790618), (+1.5770839956953533, +0.72423216865628026), (+1.7521514241410423, +0.86136401410582775), (+1.2887440945725093, +0.16969451683841616), (+1.3809858642053159, +0.68685426118693071), (+1.6989678046000212, +0.41943213580294714), (+1.4749797889599772, +0.92930242313835976), (+1.5718543163186014, +0.54742317328091661), (+1.7331821291851408, +0.40111934504807345), (+1.4721522816010066, +0.87664201736978253), (+1.6521083327527475, +0.34597726395008904), (+1.7507047780329661, +0.84272314242614321), (+1.3401674932253678, +0.50166813146004907), (+1.4097383975418745, +0.14693719060099344), (+1.3426062619896617, +0.40046750005052734), (+1.2698203788375084, +0.71810385600021165), (+1.7569874711014535, +0.82047581469694342), (+1.4342288603766606, +0.14389041974467082), (+1.7941793133385768, +0.63345218667422676), (+1.1372597786835927, +0.22625022844594023), (+1.9424229532499997, +0.82281757067056857E-1), (+1.7704477731572281, +0.80993572792813384), (+1.7028747787092422, +0.77231710555964073), (+1.4450111849224061, +0.69552500618844004), (+1.7406423519569147, +0.67185788103941191)

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

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

238

239lenData = getUnifRand(5, 100)

240lenData

241+23

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

243data

244(+1.80903180753474365917151393550062196, +0.268753187047608049817244263661432972), (+1.13178097253115141266568018107672225, +0.828752637737578833782380896761297114E-2), (+1.53400637543585039234053056617658427, +0.161515102984574954404560795587332694E-1), (+1.01919657657059751864706331460790774, +0.222306222146945330985048065371219985), (+1.03719931415701447127247062571299387, +0.511164219154535941007158085622529368), (+1.17088341069621700712066129257019310, +0.837716081415738783646081191365780958), (+1.62784599750700676267035209239438444, +0.821703266402381738263456827884463457), (+1.84161588367395880626952149978194945, +0.732047625385724493601346331732787736), (+1.68813632783280631862512469356761420, +0.705761463860802874303070072197896281), (+1.11323175549587377068035866007498918, +0.658497449948204353420711216922662423), (+1.63828748022431339123440654154140612, +0.481515852354253752922271972609824512), (+1.72537583099918662690942277247063234, +0.841661050259605192177339525679236128), (+1.86474174102649735678973219142801159, +0.805618654494016542599312174305507292), (+1.79361780117755086996144013302613712, +0.577061648493086772843590564763782477), (+1.34078041989764303843257938293547201, +0.454612326017501154050411893149045795), (+1.12089592288091575755875347684823439, +0.697005370133260895026179432036562636), (+1.93162000321922342910705891321115744, +0.690319012311926669060085635800474114E-2), (+1.08476541275128534629737034394344073, +0.652149896744906771680656332229898926), (+1.18604359612132279059826149283189950, +0.813927761251532810818353312476837012), (+1.76825168959018341695982040185222945, +0.259123115994880690092371140502007617), (+1.90900776528701578887719272707949699, +0.153295216165824067948319240196567322E-1), (+1.71458172162896508406897308539085730, +0.976378473469217763729552698099770701), (+1.02471020467322492227590103039787568, +0.869828983981376391093398489931342346)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.80903180753474365917151393550062138, +0.268753187047608049817244263661432828), (+1.13178097253115141266568018107672263, +0.828752637737578833782380896761295459E-2), (+1.53400637543585039234053056617658466, +0.161515102984574954404560795587333115E-1), (+1.01919657657059751864706331460790774, +0.222306222146945330985048065371219817), (+1.03719931415701447127247062571299387, +0.511164219154535941007158085622529271), (+1.17088341069621700712066129257019291, +0.837716081415738783646081191365781055), (+1.62784599750700676267035209239438425, +0.821703266402381738263456827884463457), (+1.84161588367395880626952149978194926, +0.732047625385724493601346331732787832), (+1.68813632783280631862512469356761458, +0.705761463860802874303070072197896570), (+1.11323175549587377068035866007498957, +0.658497449948204353420711216922662231), (+1.63828748022431339123440654154140574, +0.481515852354253752922271972609824657), (+1.72537583099918662690942277247063157, +0.841661050259605192177339525679236032), (+1.86474174102649735678973219142801062, +0.805618654494016542599312174305507388), (+1.79361780117755086996144013302613674, +0.577061648493086772843590564763782573), (+1.34078041989764303843257938293547240, +0.454612326017501154050411893149045843), (+1.12089592288091575755875347684823497, +0.697005370133260895026179432036562829), (+1.93162000321922342910705891321115725, +0.690319012311926669060085635800475844E-2), (+1.08476541275128534629737034394344054, +0.652149896744906771680656332229898829), (+1.18604359612132279059826149283189911, +0.813927761251532810818353312476836819), (+1.76825168959018341695982040185222945, +0.259123115994880690092371140502007761), (+1.90900776528701578887719272707949699, +0.153295216165824067948319240196567201E-1), (+1.71458172162896508406897308539085807, +0.976378473469217763729552698099771086), (+1.02471020467322492227590103039787626, +0.869828983981376391093398489931342539)

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

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

255

256lenData = getUnifRand(5, 100)

257lenData

258+39

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

260data

261+1.78814220, +1.08151221, +1.22148764, +1.48920727, +1.58039379, +1.80685663, +1.88210249, +1.58922648, +1.72287893, +1.48063636, +1.48205900, +1.10716581, +1.61116576, +1.49903703, +1.76889837, +1.69546759, +1.93985939, +1.85117459, +1.02615273, +1.38832355, +1.39596152, +1.61595130, +1.74567914, +1.42200887, +1.17554414, +1.35589933, +1.69415855, +1.56651545, +1.38299942, +1.23977733, +1.05172539, +1.54899549, +1.86240482, +1.79607975, +1.61000419, +1.15712452, +1.46915436, +1.44759881, +1.10077047

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.78814244, +1.08151245, +1.22148776, +1.48920679, +1.58039379, +1.80685663, +1.88210285, +1.58922660, +1.72287893, +1.48063600, +1.48205876, +1.10716558, +1.61116624, +1.49903738, +1.76889837, +1.69546688, +1.93985903, +1.85117435, +1.02615416, +1.38832462, +1.39596200, +1.61595190, +1.74567986, +1.42200947, +1.17554379, +1.35589933, +1.69415832, +1.56651568, +1.38299966, +1.23977745, +1.05172515, +1.54899526, +1.86240447, +1.79607999, +1.61000431, +1.15712452, +1.46915400, +1.44759893, +1.10077047

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

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

272

273lenData = getUnifRand(5, 100)

274lenData

275+99

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

277data

278+1.7030828950175527, +1.8862487183433165, +1.2028335610227527, +1.3190282349119342, +1.8637628571397187, +1.3395748016782885, +1.2624611353721416, +1.8486254726620768, +1.2714271858746318, +1.1577115786731431, +1.0855567219398397, +1.0417995503080828, +1.5750885796681362, +1.6432443484793930, +1.1556470928191036, +1.8851137908110649, +1.1614867305244205, +1.3306198635132109, +1.6001321953489041, +1.9894603145058478, +1.6500837757844169, +1.7033903113282673, +1.6389944828509637, +1.7505063115675055, +1.1074926258218425, +1.1461774265338200, +1.3005187218566663, +1.4307357807648113, +1.6151596062310896, +1.0367910264202640, +1.2694138582196961, +1.0187652720729674, +1.4775161108457711, +1.0985474948988250, +1.1143218588629558, +1.2371588239443652, +1.0520734049477798, +1.1865408760596696, +1.9822074663780511, +1.0605020288238474, +1.5930513252793292, +1.6351515473753102, +1.0570584689236884, +1.2896687353920409, +1.9452018003902323, +1.9210025012975651, +1.8961036437688676, +1.0657791574019932, +1.5283081353274519, +1.9016494373012880, +1.3185910197449457, +1.4916437154363904, +1.4677204153265726, +1.1874883443644872, +1.8103694867985771, +1.8444782100172172, +1.6055036337106352, +1.5190912611439069, +1.1142308880074756, +1.9786013884911262, +1.3720458033039795, +1.4338659595029080, +1.3489601746320341, +1.8846046268690646, +1.7649785096436874, +1.9125058312065473, +1.9349694289919115, +1.0813225703546141, +1.0635291323982461, +1.3209399828484139, +1.9681978612143838, +1.3853561258781926, +1.3008833110035645, +1.4559835213730468, +1.1867955996760915, +1.1085983989304422, +1.4398787389978529, +1.1377542571617374, +1.4206825580998599, +1.7620378776585763, +1.3959955492476337, +1.2850364647542381, +1.7245298764103580, +1.9481485189256740, +1.3066875859782163, +1.6669841292720720, +1.5234480660333736, +1.8969444640692918, +1.6309311082378244, +1.3505817500663095, +1.1610535688819281, +1.7347866123166718, +1.1946863853288106, +1.7074592589964390, +1.3921196707197379, +1.1792160332365165, +1.0291353696092020, +1.5500692965325511, +1.1826489433464022

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.7030828950175536, +1.8862487183433172, +1.2028335610227527, +1.3190282349119353, +1.8637628571397196, +1.3395748016782889, +1.2624611353721424, +1.8486254726620774, +1.2714271858746322, +1.1577115786731438, +1.0855567219398401, +1.0417995503080828, +1.5750885796681362, +1.6432443484793935, +1.1556470928191034, +1.8851137908110649, +1.1614867305244212, +1.3306198635132109, +1.6001321953489047, +1.9894603145058480, +1.6500837757844173, +1.7033903113282678, +1.6389944828509644, +1.7505063115675055, +1.1074926258218432, +1.1461774265338207, +1.3005187218566665, +1.4307357807648113, +1.6151596062310896, +1.0367910264202640, +1.2694138582196965, +1.0187652720729681, +1.4775161108457706, +1.0985474948988252, +1.1143218588629564, +1.2371588239443652, +1.0520734049477811, +1.1865408760596703, +1.9822074663780507, +1.0605020288238474, +1.5930513252793297, +1.6351515473753102, +1.0570584689236893, +1.2896687353920413, +1.9452018003902323, +1.9210025012975647, +1.8961036437688672, +1.0657791574019930, +1.5283081353274519, +1.9016494373012878, +1.3185910197449449, +1.4916437154363900, +1.4677204153265728, +1.1874883443644868, +1.8103694867985767, +1.8444782100172168, +1.6055036337106348, +1.5190912611439067, +1.1142308880074756, +1.9786013884911247, +1.3720458033039791, +1.4338659595029080, +1.3489601746320337, +1.8846046268690657, +1.7649785096436879, +1.9125058312065470, +1.9349694289919113, +1.0813225703546148, +1.0635291323982463, +1.3209399828484147, +1.9681978612143842, +1.3853561258781928, +1.3008833110035645, +1.4559835213730470, +1.1867955996760917, +1.1085983989304429, +1.4398787389978531, +1.1377542571617374, +1.4206825580998601, +1.7620378776585772, +1.3959955492476339, +1.2850364647542389, +1.7245298764103587, +1.9481485189256744, +1.3066875859782168, +1.6669841292720728, +1.5234480660333733, +1.8969444640692923, +1.6309311082378253, +1.3505817500663098, +1.1610535688819283, +1.7347866123166720, +1.1946863853288108, +1.7074592589964390, +1.3921196707197385, +1.1792160332365162, +1.0291353696092023, +1.5500692965325518, +1.1826489433464020

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

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+12

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

294data

295+1.99490759676648374445168134503837069, +1.16312391947481551156939936225359275, +1.37038019641916183630552175172632859, +1.77248417282663696295518471803139256, +1.41071073177340424441666307875115284, +1.70944393077736061829348594119316412, +1.76387954391325704619401622115088241, +1.46737680169840823884562134865393564, +1.84671023337586632339746069728050636, +1.41281399462207534877115036868812779, +1.78916006371597023226187880953140892, +1.30160420444967262867548926055283271

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.99490759676648374445168134503837088, +1.16312391947481551156939936225359256, +1.37038019641916183630552175172632840, +1.77248417282663696295518471803139237, +1.41071073177340424441666307875115303, +1.70944393077736061829348594119316373, +1.76387954391325704619401622115088241, +1.46737680169840823884562134865393564, +1.84671023337586632339746069728050674, +1.41281399462207534877115036868812760, +1.78916006371597023226187880953140854, +1.30160420444967262867548926055283271

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

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

306

307lenData = getUnifRand(5, 100)

308lenData

309+100

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

311data

312(+1.18484592, +0.275048196), (+1.54446447, +0.392908454), (+1.30556643, +0.328703523), (+1.34929967, +0.655654848), (+1.75362718, +0.769117713), (+1.65976191, +0.799840033), (+1.52686071, +0.939426064), (+1.39398551, +0.976833165), (+1.99860334, +0.950146854), (+1.24018145, +0.996778846), (+1.41968811, +0.227135777), (+1.99232101, +0.673273087), (+1.17074394, +0.264059842), (+1.12549567, +0.474953651), (+1.70010114, +0.702255785), (+1.64511371, +0.419623852), (+1.02569067, +0.361157954), (+1.31763053, +0.848863900), (+1.03150463, +0.595459282), (+1.53358519, +0.610508859), (+1.21005166, +0.539045155), (+1.50447679, +0.353696644), (+1.79833627, +0.808358610), (+1.59638143, +0.338729918), (+1.41797853, +0.586372018), (+1.29426312, +0.524033368), (+1.00096810, +0.171120107), (+1.96324050, +0.302460790), (+1.53355730, +0.261904001), (+1.99520350, +0.271621227), (+1.82105780, +0.810131907), (+1.66926193, +0.920103669), (+1.02253914, +0.901503801), (+1.75840855, +0.263666987), (+1.75231004, +0.273530483E-1), (+1.86113632, +0.652987361), (+1.39372134, +0.922973454), (+1.12650776, +0.870560288), (+1.41615558, +0.801896572), (+1.73909807, +0.145991683), (+1.18058085, +0.392616689), (+1.59487247, +0.311917067E-2), (+1.24269795, +0.542653084), (+1.27799499, +0.499331594), (+1.04396999, +0.819646418), (+1.40817249, +0.448364615), (+1.26164854, +0.513397217), (+1.37735176, +0.641470075), (+1.58047116, +0.691176951), (+1.18046987, +0.993222594), (+1.22989917, +0.735466480E-1), (+1.82767177, +0.818045497), (+1.18570161, +0.817328870), (+1.53665376, +0.448929548), (+1.23760724, +0.729601979), (+1.16470838, +0.284351408), (+1.68447638, +0.186962366), (+1.52891362, +0.697255731), (+1.36459696, +0.495534539), (+1.92490685, +0.445194721), (+1.59580231, +0.640497625), (+1.36162233, +0.361878455), (+1.52135086, +0.394673884), (+1.77716398, +0.217795372), (+1.08442819, +0.836433172), (+1.03462529, +0.449870527), (+1.94704509, +0.112386346), (+1.67989612, +0.551533103), (+1.04138541, +0.725005805), (+1.09003770, +0.216201842), (+1.46528482, +0.619173288), (+1.69922590, +0.783820808), (+1.91433740, +0.285748959), (+1.38370371, +0.861451209), (+1.42024112, +0.658810139E-2), (+1.89577651, +0.263457716), (+1.30258310, +0.878133178E-1), (+1.92724943, +0.449967206), (+1.00639915, +0.505192637), (+1.06328988, +0.898445845E-1), (+1.12140322, +0.601074338), (+1.53859913, +0.118644774), (+1.81794429, +0.102481544), (+1.68877053, +0.413060725), (+1.77351165, +0.953573644), (+1.41226864, +0.640154243), (+1.07979870, +0.532100677), (+1.67416871, +0.653604686), (+1.06347847, +0.116567135), (+1.81413293, +0.984362960), (+1.96479201, +0.979038060), (+1.98211074, +0.376479805), (+1.17055678, +0.794208646), (+1.93646932, +0.472050965), (+1.72345221, +0.728553534E-1), (+1.40444851, +0.385594845), (+1.15907359, +0.507987797), (+1.00819111, +0.759759367), (+1.65820837, +0.905681789), (+1.39397573, +0.498401165)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.18484545, +0.275047988), (+1.54446411, +0.392908365), (+1.30556619, +0.328703463), (+1.34929955, +0.655654728), (+1.75362682, +0.769117713), (+1.65976179, +0.799839914), (+1.52686095, +0.939426243), (+1.39398575, +0.976833165), (+1.99860346, +0.950146794), (+1.24018157, +0.996778905), (+1.41968775, +0.227135614), (+1.99232125, +0.673273146), (+1.17074394, +0.264060020), (+1.12549555, +0.474953681), (+1.70010066, +0.702255845), (+1.64511347, +0.419623703), (+1.02569079, +0.361157984), (+1.31763077, +0.848863959), (+1.03150475, +0.595459402), (+1.53358519, +0.610508859), (+1.21005130, +0.539045036), (+1.50447702, +0.353696704), (+1.79833663, +0.808358610), (+1.59638155, +0.338729888), (+1.41797853, +0.586372018), (+1.29426301, +0.524033129), (+1.00096786, +0.171120048), (+1.96324050, +0.302460670), (+1.53355742, +0.261903971), (+1.99520338, +0.271621197), (+1.82105720, +0.810131788), (+1.66926217, +0.920103490), (+1.02253914, +0.901503980), (+1.75840867, +0.263666958), (+1.75230980, +0.273531526E-1), (+1.86113596, +0.652987421), (+1.39372122, +0.922973454), (+1.12650776, +0.870560229), (+1.41615582, +0.801896632), (+1.73909831, +0.145991802), (+1.18058038, +0.392616659), (+1.59487236, +0.311920163E-2), (+1.24269807, +0.542653024), (+1.27799511, +0.499331743), (+1.04396999, +0.819646657), (+1.40817237, +0.448364556), (+1.26164854, +0.513397336), (+1.37735200, +0.641469955), (+1.58047116, +0.691176951), (+1.18047023, +0.993222654), (+1.22989845, +0.735465214E-1), (+1.82767165, +0.818045557), (+1.18570137, +0.817328930), (+1.53665352, +0.448929429), (+1.23760664, +0.729601860), (+1.16470826, +0.284351140), (+1.68447661, +0.186962411), (+1.52891386, +0.697255671), (+1.36459696, +0.495534569), (+1.92490673, +0.445194840), (+1.59580195, +0.640497506), (+1.36162233, +0.361878455), (+1.52135098, +0.394673973), (+1.77716410, +0.217795342), (+1.08442807, +0.836433291), (+1.03462517, +0.449870437), (+1.94704521, +0.112386495), (+1.67989647, +0.551533103), (+1.04138577, +0.725005984), (+1.09003782, +0.216201782), (+1.46528423, +0.619173169), (+1.69922614, +0.783820868), (+1.91433740, +0.285749078), (+1.38370371, +0.861451089), (+1.42024088, +0.658813445E-2), (+1.89577627, +0.263457745), (+1.30258298, +0.878132954E-1), (+1.92724943, +0.449967235), (+1.00639915, +0.505192578), (+1.06328988, +0.898444951E-1), (+1.12140298, +0.601074219), (+1.53859937, +0.118644781), (+1.81794441, +0.102481574), (+1.68877077, +0.413060725), (+1.77351165, +0.953573763), (+1.41226864, +0.640154004), (+1.07979870, +0.532100677), (+1.67416883, +0.653604388), (+1.06347835, +0.116567172), (+1.81413305, +0.984362900), (+1.96479142, +0.979038060), (+1.98211098, +0.376479715), (+1.17055690, +0.794208884), (+1.93646955, +0.472050875), (+1.72345209, +0.728554353E-1), (+1.40444839, +0.385594547), (+1.15907371, +0.507987797), (+1.00819111, +0.759759247), (+1.65820837, +0.905681908), (+1.39397597, +0.498401105)

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

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

323

324lenData = getUnifRand(5, 100)

325lenData

326+84

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

328data

329(+1.4747361531292742, +0.97931175987939489), (+1.4957262081375244, +0.13031091994827548E-1), (+1.1375663451863098, +0.61883969287814633), (+1.2939262018529640, +0.62372962743262961), (+1.1529896554770809, +0.65671179230955545), (+1.7717519149309187, +0.58060179356323816), (+1.5356836753349816, +0.39392802349140665), (+1.1327015843209933, +0.88316806491939448), (+1.2110910933778607, +0.17576600514411533), (+1.4012712864058814, +0.54573917350036705), (+1.1601213933612500, +0.61426696036361550), (+1.2581223588823756, +0.74356310049644203), (+1.4749688522541284, +0.66293487518881533E-1), (+1.9507640369194279, +0.32980826719350564), (+1.7361454563013501, +0.16859237920229919), (+1.7228938746816371, +0.97984084229255197E-1), (+1.2261454888378744, +0.84344045655620925E-1), (+1.1335184543843346, +0.57215299288960542), (+1.2634630511940681, +0.77854670170588325), (+1.8726230541144671, +0.99302488959340285), (+1.3294996117171682, +0.38104083184508120), (+1.1428278952086131, +0.69961300818157013), (+1.9007045549601680, +0.30114997674211630), (+1.8099169708697938, +0.56248387615092943), (+1.3645914498884584, +0.28049737668471220), (+1.1714877181329313, +0.62846273103928185), (+1.7167081133653117, +0.92584303017129377), (+1.9732283151064878, +0.74017404587610380), (+1.8853976978994282, +0.96535443631840678), (+1.0943918293541346, +0.23180104861903772), (+1.5676648848427266, +0.80370640465947796), (+1.9431416684456848, +0.31969180234050354), (+1.7405050161084634, +0.29929016753274917), (+1.4496860481726386, +0.39835788810566386), (+1.1142832959604410, +0.17594686868301690), (+1.2218993479226459, +0.22748111422800066), (+1.9819013824939926, +0.83536346024559949), (+1.0094656157942099, +0.48672208860348343), (+1.7461645572006068, +0.86766296068785986), (+1.5107859613810928, +0.17015733823416046), (+1.6243028501678785, +0.76574396185789784), (+1.2951621747476874, +0.84530503972858217E-1), (+1.4576914930501390, +0.30018124376651867), (+1.8329485562831280, +0.77333065681300039), (+1.3233606875041062, +0.75454606652873191), (+1.9125874636332694, +0.34341800270543310), (+1.0802574156911280, +0.80102321428080747), (+1.3766299323927669, +0.35303732223481998), (+1.0314672661182618, +0.51784145134439818), (+1.3165110371462998, +0.14764313946791452), (+1.0256086299765599, +0.66437999394154423), (+1.8795202970670544, +0.83535582843291656E-1), (+1.3830272719200274, +0.41022126499421552), (+1.3278744338185553, +0.70370014642135381), (+1.3148314777044117, +0.12049567102305625), (+1.2686493150228593, +0.26159415757487281), (+1.1903090992599703, +0.10166500823098423), (+1.5962467929117055, +0.22059502735796577), (+1.9221406636448792, +0.38525792242483625), (+1.7541099524162869, +0.64243945947542191), (+1.5115000470452311, +0.12053348169629841), (+1.8403405863797011, +0.60418290323588597), (+1.4146796600955316, +0.21006107839569266), (+1.9477601442216601, +0.31377940468359922), (+1.8707462142713212, +0.18810457425948435), (+1.0890259341178246, +0.63274609297600759E-1), (+1.5235810388033795, +0.91241193354718919E-1), (+1.8913308027062818, +0.59757369997070120), (+1.4007382432009101, +0.18716297669624904), (+1.1386408637785148, +0.56649190247698367), (+1.9268702035660152, +0.68444242062616234E-1), (+1.2320888781344728, +0.76371087432987605), (+1.8486097230692420, +0.33866154892520728), (+1.5166976446587512, +0.12182154547417068), (+1.6074730649878295, +0.79577839819815055), (+1.5785488417250546, +0.78439029892020795), (+1.1864629210914370, +0.86083273717766251), (+1.9691807196709510, +0.58884676115127876), (+1.3170789499317435, +0.24196845838672987), (+1.9754082463859350, +0.74160765453987987), (+1.9142565913384997, +0.81350932745460625), (+1.7101981296325048, +0.92704099682339436), (+1.2825127460758243, +0.93298278970473736), (+1.1496558151492748, +0.99118590996215572)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.4747361531292742, +0.97931175987939478), (+1.4957262081375244, +0.13031091994827696E-1), (+1.1375663451863092, +0.61883969287814633), (+1.2939262018529640, +0.62372962743262939), (+1.1529896554770807, +0.65671179230955545), (+1.7717519149309182, +0.58060179356323816), (+1.5356836753349818, +0.39392802349140688), (+1.1327015843209929, +0.88316806491939448), (+1.2110910933778605, +0.17576600514411553), (+1.4012712864058812, +0.54573917350036738), (+1.1601213933612493, +0.61426696036361561), (+1.2581223588823753, +0.74356310049644203), (+1.4749688522541282, +0.66293487518881700E-1), (+1.9507640369194277, +0.32980826719350576), (+1.7361454563013499, +0.16859237920229911), (+1.7228938746816371, +0.97984084229255308E-1), (+1.2261454888378740, +0.84344045655621175E-1), (+1.1335184543843344, +0.57215299288960542), (+1.2634630511940681, +0.77854670170588314), (+1.8726230541144664, +0.99302488959340307), (+1.3294996117171678, +0.38104083184508131), (+1.1428278952086131, +0.69961300818157024), (+1.9007045549601678, +0.30114997674211630), (+1.8099169708697931, +0.56248387615092954), (+1.3645914498884579, +0.28049737668471220), (+1.1714877181329311, +0.62846273103928174), (+1.7167081133653113, +0.92584303017129377), (+1.9732283151064882, +0.74017404587610414), (+1.8853976978994278, +0.96535443631840678), (+1.0943918293541346, +0.23180104861903772), (+1.5676648848427264, +0.80370640465947785), (+1.9431416684456844, +0.31969180234050337), (+1.7405050161084623, +0.29929016753274934), (+1.4496860481726381, +0.39835788810566386), (+1.1142832959604412, +0.17594686868301707), (+1.2218993479226454, +0.22748111422800069), (+1.9819013824939926, +0.83536346024559949), (+1.0094656157942097, +0.48672208860348354), (+1.7461645572006059, +0.86766296068785986), (+1.5107859613810928, +0.17015733823416038), (+1.6243028501678778, +0.76574396185789795), (+1.2951621747476871, +0.84530503972858231E-1), (+1.4576914930501388, +0.30018124376651878), (+1.8329485562831276, +0.77333065681300039), (+1.3233606875041057, +0.75454606652873202), (+1.9125874636332696, +0.34341800270543293), (+1.0802574156911278, +0.80102321428080725), (+1.3766299323927662, +0.35303732223482032), (+1.0314672661182618, +0.51784145134439830), (+1.3165110371462994, +0.14764313946791480), (+1.0256086299765597, +0.66437999394154412), (+1.8795202970670539, +0.83535582843291781E-1), (+1.3830272719200267, +0.41022126499421563), (+1.3278744338185549, +0.70370014642135359), (+1.3148314777044112, +0.12049567102305626), (+1.2686493150228593, +0.26159415757487287), (+1.1903090992599696, +0.10166500823098427), (+1.5962467929117057, +0.22059502735796579), (+1.9221406636448788, +0.38525792242483631), (+1.7541099524162860, +0.64243945947542191), (+1.5115000470452304, +0.12053348169629834), (+1.8403405863797004, +0.60418290323588586), (+1.4146796600955318, +0.21006107839569266), (+1.9477601442216599, +0.31377940468359922), (+1.8707462142713212, +0.18810457425948449), (+1.0890259341178241, +0.63274609297600828E-1), (+1.5235810388033786, +0.91241193354718808E-1), (+1.8913308027062816, +0.59757369997070109), (+1.4007382432009094, +0.18716297669624946), (+1.1386408637785150, +0.56649190247698378), (+1.9268702035660146, +0.68444242062616401E-1), (+1.2320888781344725, +0.76371087432987605), (+1.8486097230692413, +0.33866154892520728), (+1.5166976446587506, +0.12182154547417046), (+1.6074730649878290, +0.79577839819815055), (+1.5785488417250546, +0.78439029892020817), (+1.1864629210914373, +0.86083273717766262), (+1.9691807196709508, +0.58884676115127876), (+1.3170789499317437, +0.24196845838673001), (+1.9754082463859346, +0.74160765453987987), (+1.9142565913384990, +0.81350932745460636), (+1.7101981296325044, +0.92704099682339425), (+1.2825127460758239, +0.93298278970473725), (+1.1496558151492748, +0.99118590996215583)

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

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

340

341lenData = getUnifRand(5, 100)

342lenData

343+60

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

345data

346(+1.78981814644054212312755971497722395, +0.250415658351735433361204808367788617), (+1.56585301462622308664147685562664873, +0.970675922543416426786591507080536603), (+1.87908059915931418660722822271586113, +0.519208576698785063991043887725020582), (+1.84810618923135727889664585824677752, +0.794021345575781732540395299091081831), (+1.92212552908862699365725620458144366, +0.584276730539350406694074790997269884), (+1.27829654573751520144433839512814811, +0.800410341000962597820490587603995887), (+1.69526965550879220619284730234453394, +0.373165134885707858351256173561142845), (+1.68299861184909883775857341825766951, +0.720036321301933676475444194171732361), (+1.68314051803513128216083639381194318, +0.400121334514445088285101178044623663), (+1.86654227320324786767597359055132179, +0.913682009606816405627024333819609324), (+1.70816944100138702908504669719760624, +0.611937473612399766953843520522357169), (+1.32326146022073375611303710916952902, +0.805368203526313253784424358818258546), (+1.38574852271722865464507388920932597, +0.890643900197675450744163390296466057), (+1.61779662741654751326952219546470510, +0.797838719623540759889922615016980776), (+1.68401049810821199252096897668178712, +0.837230616580708452654153197663559506), (+1.55917123561279124903471683135225277, +0.787584353137168740455543408296427909), (+1.06580001617526428558232984940926490, +0.204553687662708928183511151362419706), (+1.77429321236504059348015801439558842, +0.408786196834170885307250797733571770), (+1.26134539231890927600365744850324645, +0.629771102660944941065808458234338081), (+1.15546051719851704251557903891927394, +0.313619988151525294957599168412015650), (+1.41795808090725160259435483463652757, +0.952810768136882651078874733120136355E-1), (+1.81432723464277248801454841026719625, +0.904949577882460591890697543913533204), (+1.83331451353612912845604407306059525, +0.606032896653514546610449046931951503), (+1.98962634615187366308853554474730542, +0.814289248812484732753177423650184938), (+1.50626138437616215212919613528892069, +0.407128721213579451706349776410396289), (+1.09454035017587243485609205999737987, +0.139317573813920984687023867726422827), (+1.97026628372215263280881894654856697, +0.326159522614015523527602112438208698), (+1.32665816654798363902207181795826186, +0.999656094707598541040748125038498110), (+1.98262570079530917357359722535060915, +0.150233925193056769825138753305632732), (+1.48120859396830393969145597089749499, +0.551055029776351493491737082337410465), (+1.09064904677275186466028972806927376, +0.861093028275912837213655479691699076), (+1.34479412806995876055775830235975876, +0.661565468106256568342847702532547257), (+1.62520439344362971748931124104809404, +0.322118774590072246164444999705402326), (+1.13559386829776054119181079383769344, +0.723566303398012981684853337236268490), (+1.07471519816674801629531636512575043, +0.863539764542580432251569762852630086), (+1.52485539396422769426975836440787527, +0.620598853325462833349895217154186342), (+1.63549615198383059130111643582644868, +0.575572584630463921052718847558942567), (+1.06780389793566331359234845796232394, +0.159184035026393702591804682677678115), (+1.54654072434072203520230229725165778, +0.303405123210630772493620253642309440), (+1.69480720091290982818546645198364216, +0.358576690069198470357309110938801068), (+1.02677670410244861153354663307033940, +0.829858401074189801744243411582230007), (+1.79223246216217735865266610354721048, +0.345184423216501982665139451382397340), (+1.11273635906855791777211059723572538, +0.557673837739215501826916066803116624), (+1.28408094797479066742060634764357106, +0.266138794842568810397027350201281799), (+1.12146344056366087005712666097784606, +0.330231853475677233910027435396311943E-1), (+1.07019195503000287879758834798030335, +0.643808840882294967623820578889738221), (+1.84518636043357212354252185360933596, +0.673817938761015625150068536135794255), (+1.79522753207170817101185625989750088, +0.642213000927750514398205703897633744), (+1.75396148884256072275778577134612379, +0.841567473039643042554641717514851242), (+1.88212307632052408367786485685524404, +0.230596034130106378986693878907719429), (+1.81724300734010615928202558846456729, +0.710339369885866206671224561107443747), (+1.76693423467993372202220837359111671, +0.280622222125241669124660665619865602), (+1.24696520294298933053498687766954197, +0.259417548405911146882547435017578329), (+1.11237535409946165806634176001891117, +0.656527260111390932878219047209729924), (+1.75652945559327039544161516186852088, +0.171349510538430244987225069404635170), (+1.11475541338256393971212207518935696, +0.506033259788059841102849548759770875), (+1.72820547695251001125080372673321436, +0.631185677824105266304728976186259588), (+1.21074012354212979714847394412157205, +0.209817222134851735650451571405391249), (+1.19454710168224084615443169092072082, +0.759494372443078637832527431204987286), (+1.58253228556574373533498661676103450, +0.893039102491996566145676197867801231)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.78981814644054212312755971497722395, +0.250415658351735433361204808367788472), (+1.56585301462622308664147685562664873, +0.970675922543416426786591507080536507), (+1.87908059915931418660722822271586132, +0.519208576698785063991043887725020871), (+1.84810618923135727889664585824677809, +0.794021345575781732540395299091081734), (+1.92212552908862699365725620458144405, +0.584276730539350406694074790997269884), (+1.27829654573751520144433839512814792, +0.800410341000962597820490587603995694), (+1.69526965550879220619284730234453375, +0.373165134885707858351256173561142748), (+1.68299861184909883775857341825766971, +0.720036321301933676475444194171732361), (+1.68314051803513128216083639381194337, +0.400121334514445088285101178044623951), (+1.86654227320324786767597359055132179, +0.913682009606816405627024333819609324), (+1.70816944100138702908504669719760624, +0.611937473612399766953843520522356880), (+1.32326146022073375611303710916952902, +0.805368203526313253784424358818258738), (+1.38574852271722865464507388920932616, +0.890643900197675450744163390296466057), (+1.61779662741654751326952219546470510, +0.797838719623540759889922615016980872), (+1.68401049810821199252096897668178712, +0.837230616580708452654153197663559602), (+1.55917123561279124903471683135225296, +0.787584353137168740455543408296427812), (+1.06580001617526428558232984940926490, +0.204553687662708928183511151362419658), (+1.77429321236504059348015801439558862, +0.408786196834170885307250797733571625), (+1.26134539231890927600365744850324625, +0.629771102660944941065808458234338178), (+1.15546051719851704251557903891927375, +0.313619988151525294957599168412015601), (+1.41795808090725160259435483463652719, +0.952810768136882651078874733120135031E-1), (+1.81432723464277248801454841026719645, +0.904949577882460591890697543913533396), (+1.83331451353612912845604407306059544, +0.606032896653514546610449046931951407), (+1.98962634615187366308853554474730561, +0.814289248812484732753177423650184938), (+1.50626138437616215212919613528892088, +0.407128721213579451706349776410396337), (+1.09454035017587243485609205999737968, +0.139317573813920984687023867726422683), (+1.97026628372215263280881894654856639, +0.326159522614015523527602112438208698), (+1.32665816654798363902207181795826205, +0.999656094707598541040748125038498110), (+1.98262570079530917357359722535060934, +0.150233925193056769825138753305632852), (+1.48120859396830393969145597089749480, +0.551055029776351493491737082337410272), (+1.09064904677275186466028972806927357, +0.861093028275912837213655479691698980), (+1.34479412806995876055775830235975895, +0.661565468106256568342847702532547257), (+1.62520439344362971748931124104809404, +0.322118774590072246164444999705402519), (+1.13559386829776054119181079383769383, +0.723566303398012981684853337236268683), (+1.07471519816674801629531636512575082, +0.863539764542580432251569762852630086), (+1.52485539396422769426975836440787508, +0.620598853325462833349895217154186150), (+1.63549615198383059130111643582644868, +0.575572584630463921052718847558942567), (+1.06780389793566331359234845796232413, +0.159184035026393702591804682677678115), (+1.54654072434072203520230229725165759, +0.303405123210630772493620253642309681), (+1.69480720091290982818546645198364196, +0.358576690069198470357309110938801116), (+1.02677670410244861153354663307033940, +0.829858401074189801744243411582229910), (+1.79223246216217735865266610354721029, +0.345184423216501982665139451382397292), (+1.11273635906855791777211059723572557, +0.557673837739215501826916066803116720), (+1.28408094797479066742060634764357144, +0.266138794842568810397027350201281799), (+1.12146344056366087005712666097784606, +0.330231853475677233910027435396312545E-1), (+1.07019195503000287879758834798030335, +0.643808840882294967623820578889738221), (+1.84518636043357212354252185360933596, +0.673817938761015625150068536135794255), (+1.79522753207170817101185625989750088, +0.642213000927750514398205703897633744), (+1.75396148884256072275778577134612418, +0.841567473039643042554641717514851145), (+1.88212307632052408367786485685524385, +0.230596034130106378986693878907719477), (+1.81724300734010615928202558846456710, +0.710339369885866206671224561107443650), (+1.76693423467993372202220837359111709, +0.280622222125241669124660665619865602), (+1.24696520294298933053498687766954197, +0.259417548405911146882547435017578473), (+1.11237535409946165806634176001891117, +0.656527260111390932878219047209729731), (+1.75652945559327039544161516186852107, +0.171349510538430244987225069404635315), (+1.11475541338256393971212207518935677, +0.506033259788059841102849548759770683), (+1.72820547695251001125080372673321398, +0.631185677824105266304728976186259781), (+1.21074012354212979714847394412157224, +0.209817222134851735650451571405391322), (+1.19454710168224084615443169092072121, +0.759494372443078637832527431204987383), (+1.58253228556574373533498661676103411, +0.893039102491996566145676197867801327)

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

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

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

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

357

358lenData = getUnifRand(5, 100)

359lenData

360+49

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

362data

363+1.00143623, +1.91425705, +1.78841805, +1.66670084, +1.25270426, +1.65505266, +1.43477821, +1.95832634, +1.54304433, +1.48954606, +1.52138054, +1.59964192, +1.22282147, +1.52529311, +1.60741103, +1.22680116, +1.83360410, +1.49298573, +1.90453434, +1.00322866, +1.06843853, +1.35300303, +1.61949253, +1.39862382, +1.41488659, +1.77528954, +1.17947245, +1.26669407, +1.30938733, +1.52526665, +1.14267290, +1.00746322, +1.11666012, +1.56092441, +1.95583463, +1.18480110, +1.29359841, +1.05149364, +1.31950927, +1.24545455, +1.09727049, +1.72213221, +1.35581517, +1.69880462, +1.96997023, +1.03809714, +1.59453905, +1.76186275, +1.82445073

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.00143611, +1.91425681, +1.78841770, +1.66670084, +1.25270438, +1.65505266, +1.43477798, +1.95832622, +1.54304409, +1.48954582, +1.52138078, +1.59964204, +1.22282147, +1.52529311, +1.60741079, +1.22680092, +1.83360386, +1.49298596, +1.90453410, +1.00322843, +1.06843829, +1.35300291, +1.61949217, +1.39862370, +1.41488671, +1.77528942, +1.17947257, +1.26669407, +1.30938733, +1.52526629, +1.14267266, +1.00746346, +1.11666024, +1.56092429, +1.95583451, +1.18480086, +1.29359818, +1.05149341, +1.31950939, +1.24545443, +1.09727037, +1.72213197, +1.35581517, +1.69880450, +1.96996999, +1.03809762, +1.59453905, +1.76186264, +1.82445073

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

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

374

375lenData = getUnifRand(5, 100)

376lenData

377+82

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

379data

380+1.3878111401191355, +1.8720679615272247, +1.5650585751300554, +1.4427895423699919, +1.2351614554431118, +1.8651199214687195, +1.0468033101518044, +1.7848190963252550, +1.3282838678540552, +1.1890055993713706, +1.5928599633820988, +1.6206687704470304, +1.3942846978980179, +1.2720306884669204, +1.9277233618164458, +1.7913023655741149, +1.5697531645975458, +1.8988853531358738, +1.7991581485792940, +1.2722869011108955, +1.2244332334045271, +1.0595809502776441, +1.1745727232754422, +1.6975399894867713, +1.1096549042058532, +1.1349814298459775, +1.6691964740720953, +1.2519586025199034, +1.7031420656611829, +1.7008754350477420, +1.0197059819818000, +1.9032281569238649, +1.9569396044888969, +1.0118466251895231, +1.9490488213635100, +1.6580439941448299, +1.8236182600880750, +1.6590966550133124, +1.7105604521962197, +1.0791845507590536, +1.1877382537159347, +1.4422813338276712, +1.9316363054020749, +1.0281189938754474, +1.9310883762676847, +1.6981642297688817, +1.4630356612131985, +1.9925124531137639, +1.9613399205111004, +1.6132350679952405, +1.2083196440167523, +1.5202790027094824, +1.5224629019887335, +1.8845375306476826, +1.1140736349981437, +1.9464977495168174, +1.1084152006561023, +1.1970585758354244, +1.2636285365219146, +1.8153074978680444, +1.0076204020740491, +1.8896259397268473, +1.9912405592249187, +1.0288732730832886, +1.7543913435010672, +1.7366461795932517, +1.8929007574163166, +1.3214239312102865, +1.0802210723600036, +1.2831363331627208, +1.8553809959386967, +1.1187591635332095, +1.4682411329703062, +1.3458274416322205, +1.9521041984082073, +1.9130527161638997, +1.6458322242227010, +1.5033348709324499, +1.5297746474783758, +1.4900053247390357, +1.9383163100924343, +1.5609346001226858

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.3878111401191355, +1.8720679615272247, +1.5650585751300561, +1.4427895423699919, +1.2351614554431125, +1.8651199214687197, +1.0468033101518042, +1.7848190963252566, +1.3282838678540547, +1.1890055993713693, +1.5928599633820997, +1.6206687704470311, +1.3942846978980175, +1.2720306884669188, +1.9277233618164480, +1.7913023655741160, +1.5697531645975455, +1.8988853531358751, +1.7991581485792967, +1.2722869011108944, +1.2244332334045265, +1.0595809502776423, +1.1745727232754415, +1.6975399894867738, +1.1096549042058521, +1.1349814298459757, +1.6691964740720973, +1.2519586025199037, +1.7031420656611844, +1.7008754350477433, +1.0197059819817975, +1.9032281569238678, +1.9569396044888985, +1.0118466251895213, +1.9490488213635120, +1.6580439941448313, +1.8236182600880748, +1.6590966550133137, +1.7105604521962192, +1.0791845507590516, +1.1877382537159276, +1.4422813338276701, +1.9316363054020742, +1.0281189938754416, +1.9310883762676858, +1.6981642297688833, +1.4630356612131963, +1.9925124531137659, +1.9613399205111028, +1.6132350679952405, +1.2083196440167507, +1.5202790027094824, +1.5224629019887348, +1.8845375306476846, +1.1140736349981430, +1.9464977495168194, +1.1084152006561028, +1.1970585758354231, +1.2636285365219146, +1.8153074978680452, +1.0076204020740469, +1.8896259397268500, +1.9912405592249225, +1.0288732730832855, +1.7543913435010681, +1.7366461795932526, +1.8929007574163184, +1.3214239312102856, +1.0802210723600019, +1.2831363331627208, +1.8553809959386984, +1.1187591635332081, +1.4682411329703062, +1.3458274416322202, +1.9521041984082081, +1.9130527161639006, +1.6458322242227010, +1.5033348709324497, +1.5297746474783769, +1.4900053247390357, +1.9383163100924350, +1.5609346001226854

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

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

391

392lenData = getUnifRand(5, 100)

393lenData

394+93

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

396data

397+1.35548348369968452258951499577046078, +1.56654015847624225767225836223635411, +1.32979878373206269135654614980642094, +1.50258523014304247054686281717120310, +1.61284859921904478120676541128506710, +1.97361494592516219491443217977491066, +1.00976301952506813913431982597210527, +1.81434492110271468604145914256751436, +1.99811797359081365496406136781492497, +1.08121961177175012737260754819671574, +1.28526178757518746945113209586891012, +1.97814036653406575315796913094559486, +1.37704874709499055265023510406126529, +1.19346986948699084898786613972485771, +1.45546460389698209753979537806613725, +1.96823054851742463032544713209422326, +1.49180424260046749342828557710028545, +1.48462075855885460697242256686287142, +1.66121227233796510972874005179603799, +1.84342542741113876980899827095867653, +1.23970679098282612689116446652496875, +1.13934785918766343310135732677411009, +1.92829273815175569186339748106776989, +1.67700559999678590888171850601600094, +1.63430170039689964402499074814515728, +1.70380473388656447458513363825991972, +1.95238972868043325368720742813500660, +1.07515424238630216137850977284829942, +1.22779519089314527625071791436145256, +1.10191889095851690213712921027097765, +1.29273383390343921757806440990268090, +1.45793314809433699361221456145035549, +1.01163079353069118898421372421811263, +1.69798128564134242545045990588730130, +1.17614128339171569936998668972634232, +1.41474297769537066826142412834105957, +1.49511286115965077843592593241798665, +1.27266788782429892991840323949960657, +1.36998247149164038900789861906864846, +1.65578429680619819245182951960910985, +1.95309513982577519475170097539451930, +1.92717215372140206382232866133902431, +1.94110155686875086128772440001120976, +1.00248899523897282423881182056694898, +1.19858939194743058584443264456216611, +1.70890879659638655126899342045523721, +1.27215597298366644027904951029823989, +1.83895287273002838781228861933983188, +1.60836543695259339151291219838756016, +1.32924406221681388860697494563462779, +1.14312287270416475019795741013752289, +1.92811485458440756867469520217381363, +1.40796558475616331306178665320654951, +1.65853518610863756482049316553868489, +1.74447461294304058912400398705842495, +1.39319849030319828751968898057726162, +1.99880649112142514886053957440158139, +1.50340830115514491754457699561059463, +1.72645503752970201612496330225730867, +1.61720329454765109252244936341891130, +1.01910872308694136183024853546080430, +1.68377550508330283630535023348739646, +1.54171098300802698211644733689642017, +1.78309969909473028806670434290182059, +1.39423653184062286051323720024601848, +1.02836532141942778267787550529013373, +1.70185172026809935348833138610138609, +1.29289639497914940843149283013008448, +1.07410393468320667878452257137711192, +1.22647939256916833899436821391079971, +1.40104024007955506270861367668669724, +1.28383346314627961677647497620671174, +1.55863196237826228999012235818275932, +1.12158728301701235821913023042951126, +1.51052761841694707418354205357792986, +1.70808371155191612517662115148403555, +1.17875415301780581260606682656045192, +1.36992657734145401264189193288769115, +1.21318106366117869070321282848535066, +1.38273408349148977246512491058119013, +1.24663431714710787423894153484110382, +1.54364631893152010357952600785330113, +1.38427288800244796174047721428225938, +1.97048718934611777144398414673797068, +1.34867921022415850968023225552581225, +1.26897395012584938512201198432424288, +1.10785053323078615009954296248839658, +1.89897991386140167166124674918986477, +1.04363283462282408079642488483177150, +1.72248610074303619262391254592843381, +1.18240364528049480454105771034487171, +1.44427915530939838736129146791966137, +1.63927021128681528323223330892920699

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.35548348369968452258951499577046040, +1.56654015847624225767225836223635430, +1.32979878373206269135654614980642055, +1.50258523014304247054686281717120368, +1.61284859921904478120676541128506729, +1.97361494592516219491443217977491104, +1.00976301952506813913431982597210508, +1.81434492110271468604145914256751552, +1.99811797359081365496406136781492613, +1.08121961177175012737260754819671555, +1.28526178757518746945113209586890955, +1.97814036653406575315796913094559563, +1.37704874709499055265023510406126510, +1.19346986948699084898786613972485713, +1.45546460389698209753979537806613744, +1.96823054851742463032544713209422480, +1.49180424260046749342828557710028564, +1.48462075855885460697242256686287142, +1.66121227233796510972874005179603953, +1.84342542741113876980899827095867788, +1.23970679098282612689116446652496875, +1.13934785918766343310135732677410932, +1.92829273815175569186339748106777085, +1.67700559999678590888171850601600210, +1.63430170039689964402499074814515882, +1.70380473388656447458513363825992087, +1.95238972868043325368720742813500872, +1.07515424238630216137850977284829845, +1.22779519089314527625071791436145198, +1.10191889095851690213712921027097746, +1.29273383390343921757806440990268051, +1.45793314809433699361221456145035530, +1.01163079353069118898421372421811167, +1.69798128564134242545045990588730284, +1.17614128339171569936998668972634174, +1.41474297769537066826142412834106073, +1.49511286115965077843592593241798607, +1.27266788782429892991840323949960657, +1.36998247149164038900789861906864826, +1.65578429680619819245182951960911062, +1.95309513982577519475170097539452238, +1.92717215372140206382232866133902816, +1.94110155686875086128772440001121303, +1.00248899523897282423881182056694667, +1.19858939194743058584443264456216419, +1.70890879659638655126899342045523355, +1.27215597298366644027904951029823700, +1.83895287273002838781228861933983246, +1.60836543695259339151291219838755496, +1.32924406221681388860697494563462317, +1.14312287270416475019795741013751345, +1.92811485458440756867469520217381728, +1.40796558475616331306178665320655143, +1.65853518610863756482049316553868739, +1.74447461294304058912400398705842572, +1.39319849030319828751968898057726066, +1.99880649112142514886053957440158351, +1.50340830115514491754457699561059502, +1.72645503752970201612496330225731098, +1.61720329454765109252244936341891342, +1.01910872308694136183024853546080199, +1.68377550508330283630535023348739703, +1.54171098300802698211644733689642114, +1.78309969909473028806670434290182232, +1.39423653184062286051323720024601886, +1.02836532141942778267787550529013354, +1.70185172026809935348833138610138666, +1.29289639497914940843149283013008409, +1.07410393468320667878452257137711134, +1.22647939256916833899436821391079952, +1.40104024007955506270861367668669820, +1.28383346314627961677647497620671251, +1.55863196237826228999012235818276009, +1.12158728301701235821913023042951049, +1.51052761841694707418354205357793082, +1.70808371155191612517662115148403690, +1.17875415301780581260606682656045231, +1.36992657734145401264189193288769211, +1.21318106366117869070321282848534970, +1.38273408349148977246512491058119032, +1.24663431714710787423894153484110286, +1.54364631893152010357952600785330171, +1.38427288800244796174047721428225977, +1.97048718934611777144398414673797299, +1.34867921022415850968023225552581225, +1.26897395012584938512201198432424269, +1.10785053323078615009954296248839523, +1.89897991386140167166124674918986593, +1.04363283462282408079642488483177112, +1.72248610074303619262391254592843516, +1.18240364528049480454105771034487210, +1.44427915530939838736129146791966156, +1.63927021128681528323223330892920737

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

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

413data

414(+1.12333488, +0.931367576), (+1.66444921, +0.806138635), (+1.65095448, +0.559132159), (+1.13940585, +0.557298064), (+1.68871963, +0.599860191), (+1.82573700, +0.246730447E-1), (+1.60519242, +0.582438052), (+1.09994984, +0.874686241), (+1.65301585, +0.566450775), (+1.89678085, +0.255325437), (+1.73685706, +0.190540016), (+1.01138747, +0.581103265), (+1.56305051, +0.380899251), (+1.64588583, +0.538680732), (+1.67927027, +0.733522832), (+1.53528392, +0.199961126), (+1.00866795, +0.147493422), (+1.24365413, +0.998865068), (+1.49049067, +0.853661656), (+1.91859841, +0.359071016), (+1.20733905, +0.848741472), (+1.96821237, +0.567580402), (+1.08950675, +0.534959078), (+1.88066292, +0.216171682), (+1.46089232, +0.679244041), (+1.22237742, +0.602206588)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.12333548, +0.931367755), (+1.66444898, +0.806138575), (+1.65095437, +0.559132099), (+1.13940561, +0.557297885), (+1.68871963, +0.599860430), (+1.82573712, +0.246730410E-1), (+1.60519254, +0.582438350), (+1.09994984, +0.874686360), (+1.65301609, +0.566450655), (+1.89678097, +0.255325347), (+1.73685634, +0.190539956), (+1.01138711, +0.581103325), (+1.56305027, +0.380899191), (+1.64588642, +0.538680971), (+1.67927003, +0.733522713), (+1.53528368, +0.199961081), (+1.00866759, +0.147493362), (+1.24365401, +0.998865187), (+1.49049056, +0.853661716), (+1.91859841, +0.359071225), (+1.20733929, +0.848741651), (+1.96821249, +0.567580462), (+1.08950686, +0.534959197), (+1.88066316, +0.216171622), (+1.46089208, +0.679243982), (+1.22237706, +0.602206588)

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

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

425

426lenData = getUnifRand(5, 100)

427lenData

428+82

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

430data

431(+1.7876930998224030, +0.71386387261172779), (+1.6297456293292472, +0.82471974919069702), (+1.3242033686507995, +0.76674518923420387), (+1.0090901986031615, +0.37649850345573332), (+1.2590645406217242, +0.76206554991138031), (+1.9147567029217751, +0.32398621418030638), (+1.5874559856584674, +0.79164991733332135E-1), (+1.6504054954156657, +0.81096344921485086), (+1.2140083844426464, +0.55437621371960011), (+1.1900770112483325, +0.78485888051437125), (+1.2467420207223856, +0.51972295114878209), (+1.0328582461986813, +0.47306331520035572), (+1.9906860414734893, +0.81494752808141446E-1), (+1.9346606747929389, +0.54893339140672281), (+1.5774418510202275, +0.91829111264166807), (+1.5082974116824421, +0.11662319242675023), (+1.5891034987837687, +0.75147824363961191), (+1.8972165292764243, +0.99529604619803902), (+1.2860114137838718, +0.65143399577136574), (+1.4970911080681777, +0.49725812616178577), (+1.0990753188122055, +0.57884464966360982), (+1.4850833300146185, +0.82683368440600435), (+1.1170133859916360, +0.83231545777371074), (+1.2261232227997696, +0.51094775386713431), (+1.3241791706003494, +0.78408226791867652E-1), (+1.8535396242690554, +0.21384737556742894), (+1.1059997621432687, +0.76099769869367928), (+1.8637479675386039, +0.38609924476917146), (+1.0860997043686291, +0.47258233443943243), (+1.4803200967262375, +0.10309304535269903E-1), (+1.1880998393786322, +0.46200874608067266), (+1.9209842897631402, +0.81771227016573911E-1), (+1.2934708501740522, +0.53712896873784299), (+1.5042028364985582, +0.78170895808206597), (+1.8795767468478894, +0.46835904702563291), (+1.5252950579578102, +0.11752521099513247), (+1.2019964050864536, +0.49155097050738172E-1), (+1.9408630325802245, +0.48695082599090034), (+1.1749818788072919, +0.73067876751969252), (+1.5416598618916382, +0.19511881379990414), (+1.3651447077138203, +0.57568242040530027), (+1.3959632841643506, +0.50124896179154033), (+1.6919256907905087, +0.81231926470209193), (+1.4953081498802101, +0.43449587665122813), (+1.6600346603421916, +0.45302731950144892E-1), (+1.1232594866157752, +0.27632137522457245), (+1.4132326757200535, +0.31703478539188512), (+1.4667011237472902, +0.68404153444862925), (+1.9219193163797228, +0.25683008327665913), (+1.5880930727281388, +0.88058220225298112), (+1.2405815168818775, +0.53957859658806939), (+1.2303897280725953, +0.89367880902359942), (+1.1045697941503558, +0.95384598253469144), (+1.5544172780172343, +0.35294404622532993), (+1.5648240777359022, +0.46132063705983684), (+1.2264843050551768, +0.17760207334903821), (+1.2880831924869529, +0.28022672174883301E-2), (+1.6047163247219540, +0.95580293192872534), (+1.3265338821449566, +0.75103649278386109), (+1.5562253357464173, +0.46990915968102553), (+1.2884021494409450, +0.97833475582045193), (+1.2548488141699692, +0.89262190919626416), (+1.6366388970512684, +0.33493887791447585), (+1.9702990921357082, +0.65128836263470780), (+1.8455765720468260, +0.20473024015384023), (+1.6127512954533796, +0.70027731305414354), (+1.4833251664953919, +0.49382136430523405), (+1.7211541515315836, +0.10962180434614943E-4), (+1.4309638916474592, +0.47792700387903619), (+1.9831956278784075, +0.15208130923104690), (+1.8146759857337371, +0.71024859677449781), (+1.3079524560264311, +0.21528751073328656), (+1.0295407363743228, +0.65841004998073460), (+1.1156555600849800, +0.95027553766214024), (+1.5947692969439990, +0.46779219263970762), (+1.3601105728706206, +0.97102357691766295), (+1.4036142893100787, +0.13016817767891875E-1), (+1.9560510392004518, +0.81707090838044660), (+1.1607704733267239, +0.49579703044552426), (+1.7247539926600552, +0.11977276343662835), (+1.6278659240845816, +0.16265283643358930), (+1.6723476860040642, +0.61771857469026292)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.7876930998224041, +0.71386387261172835), (+1.6297456293292472, +0.82471974919069690), (+1.3242033686507990, +0.76674518923420365), (+1.0090901986031615, +0.37649850345573299), (+1.2590645406217242, +0.76206554991138009), (+1.9147567029217749, +0.32398621418030654), (+1.5874559856584667, +0.79164991733331885E-1), (+1.6504054954156648, +0.81096344921485053), (+1.2140083844426461, +0.55437621371959978), (+1.1900770112483317, +0.78485888051437114), (+1.2467420207223854, +0.51972295114878209), (+1.0328582461986811, +0.47306331520035527), (+1.9906860414734899, +0.81494752808141321E-1), (+1.9346606747929393, +0.54893339140672248), (+1.5774418510202275, +0.91829111264166807), (+1.5082974116824424, +0.11662319242675018), (+1.5891034987837693, +0.75147824363961158), (+1.8972165292764245, +0.99529604619803891), (+1.2860114137838725, +0.65143399577136551), (+1.4970911080681779, +0.49725812616178544), (+1.0990753188122058, +0.57884464966361016), (+1.4850833300146189, +0.82683368440600435), (+1.1170133859916369, +0.83231545777371052), (+1.2261232227997705, +0.51094775386713431), (+1.3241791706003507, +0.78408226791867486E-1), (+1.8535396242690554, +0.21384737556742897), (+1.1059997621432687, +0.76099769869367928), (+1.8637479675386039, +0.38609924476917135), (+1.0860997043686296, +0.47258233443943259), (+1.4803200967262375, +0.10309304535269598E-1), (+1.1880998393786328, +0.46200874608067255), (+1.9209842897631402, +0.81771227016574077E-1), (+1.2934708501740515, +0.53712896873784299), (+1.5042028364985582, +0.78170895808206620), (+1.8795767468478890, +0.46835904702563247), (+1.5252950579578093, +0.11752521099513198), (+1.2019964050864536, +0.49155097050738082E-1), (+1.9408630325802236, +0.48695082599090017), (+1.1749818788072917, +0.73067876751969263), (+1.5416598618916380, +0.19511881379990409), (+1.3651447077138201, +0.57568242040530027), (+1.3959632841643523, +0.50124896179154077), (+1.6919256907905089, +0.81231926470209159), (+1.4953081498802101, +0.43449587665122774), (+1.6600346603421916, +0.45302731950144885E-1), (+1.1232594866157750, +0.27632137522457212), (+1.4132326757200533, +0.31703478539188484), (+1.4667011237472891, +0.68404153444862892), (+1.9219193163797224, +0.25683008327665879), (+1.5880930727281386, +0.88058220225298101), (+1.2405815168818770, +0.53957859658806917), (+1.2303897280725955, +0.89367880902359942), (+1.1045697941503561, +0.95384598253469133), (+1.5544172780172345, +0.35294404622532988), (+1.5648240777359026, +0.46132063705983678), (+1.2264843050551761, +0.17760207334903794), (+1.2880831924869529, +0.28022672174883249E-2), (+1.6047163247219547, +0.95580293192872501), (+1.3265338821449575, +0.75103649278386075), (+1.5562253357464180, +0.46990915968102542), (+1.2884021494409457, +0.97833475582045193), (+1.2548488141699701, +0.89262190919626416), (+1.6366388970512689, +0.33493887791447607), (+1.9702990921357084, +0.65128836263470768), (+1.8455765720468267, +0.20473024015383995), (+1.6127512954533798, +0.70027731305414365), (+1.4833251664953928, +0.49382136430523399), (+1.7211541515315829, +0.10962180434287292E-4), (+1.4309638916474590, +0.47792700387903603), (+1.9831956278784073, +0.15208130923104671), (+1.8146759857337373, +0.71024859677449781), (+1.3079524560264317, +0.21528751073328609), (+1.0295407363743223, +0.65841004998073482), (+1.1156555600849796, +0.95027553766213957), (+1.5947692969439988, +0.46779219263970756), (+1.3601105728706200, +0.97102357691766272), (+1.4036142893100783, +0.13016817767891813E-1), (+1.9560510392004513, +0.81707090838044638), (+1.1607704733267239, +0.49579703044552409), (+1.7247539926600552, +0.11977276343662821), (+1.6278659240845810, +0.16265283643358938), (+1.6723476860040638, +0.61771857469026259)

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

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

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

442

443lenData = getUnifRand(5, 100)

444lenData

445+73

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

447data

448(+1.50140023794928835819924025004007270, +0.671636561847259750711721394375263965), (+1.37588818368617993874562093063795018, +0.708616855606955729174224743886169704), (+1.72072591134570966013423179027771669, +0.248037812572236125526622603477954831), (+1.38495656979840085710259266838318532, +0.573029931635717252714498579241913714E-1), (+1.44158592689514495926563734371873167, +0.685708358542712254506183648524135228), (+1.39271732555309051862807919381427356, +0.893809027815140659777995912834396657E-1), (+1.88419312599829749831780759961724695, +0.530524218762325254768888891311580270E-1), (+1.96916791084069062044990708445695850, +0.390723915680774471929106945854931795), (+1.03799455203869149017246026132484219, +0.327608925144787580476015653103983874), (+1.44563787015193096700277341206928914, +0.561710608310155032208930800203658838), (+1.06259898270932040242960705549288821, +0.363733356403499349198949769647014217), (+1.24726914697539870593364111985025294, +0.733421675744134212203769959708960238), (+1.38893805415290654392509859150968307, +0.256862489803917780313907923178324623), (+1.28514298653109343726371021437391335, +0.599017635046134607649836481446319543), (+1.05364084976252737964718706066309239, +0.797549184039596103539299495254597409), (+1.70160180596258584905439186581275467, +0.482800181812551582266519381384025637), (+1.28973710694297345508405338166262476, +0.419958218783341912934321765894575575), (+1.94554254539439422220903190339173986, +0.585437590177943822457037553015468660E-1), (+1.96803176212406820880468780640344962, +0.133972473443120312551111167598793610), (+1.00691410933783990604129450875399874, +0.839973233298908265266299338745814770), (+1.89271055630058094329564908804823760, +0.153043600538941033560433518228725478), (+1.40402744508958464388946001151477477, +0.827192598376092014635461241452881511), (+1.24648088136960367539018314275032764, +0.295119996217740078337808610658782447), (+1.32916660103049961811791046108582843, +0.645658822567628711259677260395648513E-1), (+1.47120057441507479477353135008689416, +0.753351933173251279194930153500668140E-1), (+1.70014960214581134844303440435506872, +0.190234342327558858979615663673562739), (+1.16341405718529360923244411930235536, +0.777596396490017875417872789377786239), (+1.46998313641712762361290797433486377, +0.393333422299950608390872064790998964E-1), (+1.27478207233590133553018131381218775, +0.198217282435768134030068546454696823E-1), (+1.46555356066198864848169949445910525, +0.338966105882037536332917052264658738), (+1.14875215550295742779133759111043836, +0.315930301561221705477460920296650899E-1), (+1.50248181807862074585823162442598092, +0.228263624624900736787105558600412989), (+1.58461046544111794373252208179618857, +0.566750704099626951539346179917136418), (+1.79332060013416243302205614811154641, +0.154657479460188144584221083038743080), (+1.65311947847530403721335468929028277, +0.982920471228239288926237839931750416), (+1.57631653027813457163402049636179874, +0.822793870165757711552320145696550271), (+1.38932959536888939102038898212460328, +0.764783086002210080911257223555131676), (+1.19413064355924822840417413564367765, +0.497042939608787129941044741665453873), (+1.20169273338774745315226739037464105, +0.423831914196388431404615123825718234), (+1.89926899295613868521108569629416697, +0.924521658124085233963891043923727127), (+1.64861048429977262817438762467630856, +0.742297877739673366842549653881281028), (+1.16371850949730881481244524142194720, +0.436607158244353984496192023697511496), (+1.63096726350220900030557352792126969, +0.298410231275298109197164564747220672), (+1.45975755406477182634699655201477979, +0.418184825842925745621351035761570028), (+1.06487155612874595619421614104198457, +0.288166453001830579968966030613162728), (+1.04361760859822448516996001264972514, +0.206888972807530297393732453863646255), (+1.30318391330238826282155090030320846, +0.614360226110861929132010200609111429), (+1.80202403307268943325302812032624446, +0.614578904462095089745324999979336444), (+1.01130925613012465872574789951770218, +0.449794525866847068396914033939229716), (+1.39593195627659116617573562248775691, +0.896351507751185301786702488031483333), (+1.33894907513842737462857381113535945, +0.641295295480894096052460357032238145), (+1.95256935858223093509091715339556380, +0.711870765483697361181087835929846068), (+1.29839692278404490406853908925512661, +0.554746800188229603062548161200226385), (+1.33816934764610326668243592156668656, +0.609059326377229061427439416791158048), (+1.91705941748352230824426510207507241, +0.292645388881620514284519303383245859), (+1.68885216270642834780728031427368106, +0.439377011106504478468665377662082268), (+1.93091313089364357646655048910008287, +0.378939628933516611676522066740736563), (+1.73213213155868098753351744224798493, +0.336280439674031798469585053677740143), (+1.23645117779686900666644725716803971, +0.121384517122627333922216713614347184), (+1.04797739350025664065322720561666986, +0.707645640528455420629260237300817727), (+1.53963526588754436284602874927986106, +0.217926964694716047142736665475812660), (+1.08578706260190961604360565416550592, +0.994618984337300080811941073848234486), (+1.17808860817806966291013694566005878, +0.494558145476329913624540672138668344E-1), (+1.42486553483800194086182633324280249, +0.159838106884986351699679817458893808), (+1.56387849188015802690760274490202426, +0.367627195482643352253255870733902143), (+1.87208933565244930698841264598863058, +0.892556210015752394224780421201000322), (+1.28245192448145333135265506285852054, +0.841243733920497066398965260710594189), (+1.37540256291563429777606068162277455, +0.587006482366146753733334905954211523), (+1.39924503192137057738130129600711671, +0.745696862586107491038139393001087397E-1), (+1.31915153031000380364168748868555953, +0.466443818637608710620989606867353943E-1), (+1.08755481964928405211847141777230889, +0.111343720342080022938538441243285422E-1), (+1.25583558795657154040297656625732351, +0.913568767637144186172486963244236867), (+1.45102196705131196755853044446470555, +0.660084819783497292117964595116422556)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.50140023794928835819924025004006480, +0.671636561847259750711721394375261846), (+1.37588818368617993874562093063795133, +0.708616855606955729174224743886170186), (+1.72072591134570966013423179027771727, +0.248037812572236125526622603477955096), (+1.38495656979840085710259266838318590, +0.573029931635717252714498579241917686E-1), (+1.44158592689514495926563734371873129, +0.685708358542712254506183648524135228), (+1.39271732555309051862807919381427453, +0.893809027815140659777995912834397379E-1), (+1.88419312599829749831780759961724714, +0.530524218762325254768888891311579789E-1), (+1.96916791084069062044990708445695888, +0.390723915680774471929106945854932036), (+1.03799455203869149017246026132484180, +0.327608925144787580476015653103983730), (+1.44563787015193096700277341206928875, +0.561710608310155032208930800203658934), (+1.06259898270932040242960705549288821, +0.363733356403499349198949769647014169), (+1.24726914697539870593364111985025313, +0.733421675744134212203769959708960431), (+1.38893805415290654392509859150968345, +0.256862489803917780313907923178324334), (+1.28514298653109343726371021437391373, +0.599017635046134607649836481446319543), (+1.05364084976252737964718706066309259, +0.797549184039596103539299495254597217), (+1.70160180596258584905439186581275467, +0.482800181812551582266519381384025589), (+1.28973710694297345508405338166262419, +0.419958218783341912934321765894575623), (+1.94554254539439422220903190339174082, +0.585437590177943822457037553015469623E-1), (+1.96803176212406820880468780640344905, +0.133972473443120312551111167598793417), (+1.00691410933783990604129450875399893, +0.839973233298908265266299338745814674), (+1.89271055630058094329564908804823703, +0.153043600538941033560433518228725478), (+1.40402744508958464388946001151477458, +0.827192598376092014635461241452881222), (+1.24648088136960367539018314275032764, +0.295119996217740078337808610658782062), (+1.32916660103049961811791046108582862, +0.645658822567628711259677260395649235E-1), (+1.47120057441507479477353135008689474, +0.753351933173251279194930153500664047E-1), (+1.70014960214581134844303440435506853, +0.190234342327558858979615663673562811), (+1.16341405718529360923244411930235555, +0.777596396490017875417872789377786528), (+1.46998313641712762361290797433486339, +0.393333422299950608390872064790996075E-1), (+1.27478207233590133553018131381218756, +0.198217282435768134030068546454698839E-1), (+1.46555356066198864848169949445910525, +0.338966105882037536332917052264658690), (+1.14875215550295742779133759111043855, +0.315930301561221705477460920296649996E-1), (+1.50248181807862074585823162442598053, +0.228263624624900736787105558600413061), (+1.58461046544111794373252208179618837, +0.566750704099626951539346179917136129), (+1.79332060013416243302205614811154641, +0.154657479460188144584221083038742887), (+1.65311947847530403721335468929028200, +0.982920471228239288926237839931750416), (+1.57631653027813457163402049636179932, +0.822793870165757711552320145696550174), (+1.38932959536888939102038898212460289, +0.764783086002210080911257223555131098), (+1.19413064355924822840417413564367688, +0.497042939608787129941044741665453439), (+1.20169273338774745315226739037464125, +0.423831914196388431404615123825718234), (+1.89926899295613868521108569629416640, +0.924521658124085233963891043923727031), (+1.64861048429977262817438762467630837, +0.742297877739673366842549653881280739), (+1.16371850949730881481244524142194701, +0.436607158244353984496192023697511207), (+1.63096726350220900030557352792126969, +0.298410231275298109197164564747220720), (+1.45975755406477182634699655201477959, +0.418184825842925745621351035761570076), (+1.06487155612874595619421614104198438, +0.288166453001830579968966030613162680), (+1.04361760859822448516996001264972514, +0.206888972807530297393732453863646158), (+1.30318391330238826282155090030320788, +0.614360226110861929132010200609111140), (+1.80202403307268943325302812032624446, +0.614578904462095089745324999979336444), (+1.01130925613012465872574789951770180, +0.449794525866847068396914033939229764), (+1.39593195627659116617573562248775768, +0.896351507751185301786702488031483141), (+1.33894907513842737462857381113535964, +0.641295295480894096052460357032238338), (+1.95256935858223093509091715339556419, +0.711870765483697361181087835929845779), (+1.29839692278404490406853908925512622, +0.554746800188229603062548161200226096), (+1.33816934764610326668243592156668637, +0.609059326377229061427439416791158144), (+1.91705941748352230824426510207507260, +0.292645388881620514284519303383245811), (+1.68885216270642834780728031427368029, +0.439377011106504478468665377662082076), (+1.93091313089364357646655048910008383, +0.378939628933516611676522066740736611), (+1.73213213155868098753351744224798455, +0.336280439674031798469585053677740480), (+1.23645117779686900666644725716803971, +0.121384517122627333922216713614347112), (+1.04797739350025664065322720561666986, +0.707645640528455420629260237300817631), (+1.53963526588754436284602874927986125, +0.217926964694716047142736665475812588), (+1.08578706260190961604360565416550631, +0.994618984337300080811941073848234486), (+1.17808860817806966291013694566005898, +0.494558145476329913624540672138668946E-1), (+1.42486553483800194086182633324280229, +0.159838106884986351699679817458893928), (+1.56387849188015802690760274490202369, +0.367627195482643352253255870733902432), (+1.87208933565244930698841264598863001, +0.892556210015752394224780421201000322), (+1.28245192448145333135265506285852093, +0.841243733920497066398965260710594189), (+1.37540256291563429777606068162277455, +0.587006482366146753733334905954211908), (+1.39924503192137057738130129600711767, +0.745696862586107491038139393001088481E-1), (+1.31915153031000380364168748868555895, +0.466443818637608710620989606867357674E-1), (+1.08755481964928405211847141777230947, +0.111343720342080022938538441243290207E-1), (+1.25583558795657154040297656625732409, +0.913568767637144186172486963244237252), (+1.45102196705131196755853044446470671, +0.660084819783497292117964595116422652)

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

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

459

460lenData = getUnifRand(5, 100)

461lenData

462+40

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

464data

465+1.22540617, +1.28306437, +1.80691159, +1.82835019, +1.10362768, +1.98781228, +1.24934316, +1.08963251, +1.32387161, +1.94341993, +1.00308001, +1.38217640, +1.94232512, +1.93435121, +1.38110733, +1.63641024, +1.28408265, +1.55816209, +1.82531118, +1.25557721, +1.59615874, +1.73556209, +1.20943856, +1.89736128, +1.99058247, +1.58475280, +1.42604995, +1.61997628, +1.16972518, +1.91366529, +1.53188932, +1.44722068, +1.49912453, +1.38655138, +1.47103071, +1.77640057, +1.65075207, +1.67281270, +1.24660885, +1.29855609

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.22540605, +1.28306425, +1.80691147, +1.82834995, +1.10362756, +1.98781204, +1.24934328, +1.08963227, +1.32387185, +1.94342005, +1.00308001, +1.38217628, +1.94232523, +1.93435133, +1.38110745, +1.63641036, +1.28408289, +1.55816221, +1.82531106, +1.25557721, +1.59615886, +1.73556221, +1.20943868, +1.89736140, +1.99058270, +1.58475292, +1.42604995, +1.61997628, +1.16972530, +1.91366541, +1.53188944, +1.44722068, +1.49912477, +1.38655162, +1.47103083, +1.77640045, +1.65075231, +1.67281270, +1.24660909, +1.29855621

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

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

476

477lenData = getUnifRand(5, 100)

478lenData

479+33

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

481data

482+1.7682062080595609, +1.7853069260689733, +1.9688653435061156, +1.5626387563775763, +1.0134710463929879, +1.3474793127155755, +1.9404601604918139, +1.0214345569032686, +1.1498415071213735, +1.8595795731242784, +1.5215801269812019, +1.9266701987947199, +1.7252299860132516, +1.2259310803967352, +1.4434940546338280, +1.3736324109355345, +1.3359183541779198, +1.0694099747919497, +1.7633519074505992, +1.3795383741814990, +1.9408347870662155, +1.7894192540041058, +1.4285066986085115, +1.1505255623752952, +1.4561526210221354, +1.9950153316885535, +1.0772003791752423, +1.1471466846098113, +1.7738963854690624, +1.2186996955084253, +1.9292273580317687, +1.2426211197239181, +1.9897609381155688

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.7682062080595615, +1.7853069260689738, +1.9688653435061159, +1.5626387563775768, +1.0134710463929879, +1.3474793127155753, +1.9404601604918144, +1.0214345569032688, +1.1498415071213737, +1.8595795731242784, +1.5215801269812015, +1.9266701987947197, +1.7252299860132518, +1.2259310803967358, +1.4434940546338284, +1.3736324109355336, +1.3359183541779192, +1.0694099747919494, +1.7633519074505983, +1.3795383741814984, +1.9408347870662144, +1.7894192540041061, +1.4285066986085120, +1.1505255623752959, +1.4561526210221352, +1.9950153316885531, +1.0772003791752423, +1.1471466846098113, +1.7738963854690626, +1.2186996955084251, +1.9292273580317689, +1.2426211197239183, +1.9897609381155683

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

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

493

494lenData = getUnifRand(5, 100)

495lenData

496+41

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

498data

499+1.74819755895842856964121987601120414, +1.77544579775795206273835747715838565, +1.75282798258835236593775117172440707, +1.23439408549720127741595767275903137, +1.40495326383844299429357248377887816, +1.69301800947080547546492106582514625, +1.99017097637131060270884566526743318, +1.77738130832129186624956790814852238, +1.79417533493906833433666730329112690, +1.77275769121055218358094806208237538, +1.18394147742022680784973951387237585, +1.12398720456826426986258579403241163, +1.84693360981039894130547497514145576, +1.32975174602899187233750059445003774, +1.29643165251269855365700206941351604, +1.62760873429661992830270776725026655, +1.05352323621629822083522727432923884, +1.49331944908019067368146255234838157, +1.48472445283201009408422119962111000, +1.79142734730784157698143949490039950, +1.86278129331615354114525436708669071, +1.53124659869825951666279364530975503, +1.20686041092386049525369214785300435, +1.58613119824064054291756688604351044, +1.92328100451136451418400497851268185, +1.02999316115500375301912845207579182, +1.64708495250024304827521289937844984, +1.18944273207864636300719347760210704, +1.72198518519859208500499682253219099, +1.51864594107952512635874781121682784, +1.69354764043955913371112868063385699, +1.25153689070340686322222510705185475, +1.08506118907515450257962758904426356, +1.71546351255921088674228874012953241, +1.35479660740226835847219121916471525, +1.92438400761702926683235803887939444, +1.45317095207013014807426667812668562, +1.58715486960709412624414888154586322, +1.85092411285106655679589741658251493, +1.88757627028583924875683535547289779, +1.60840179359357437962202826468062053

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.74819755895842856964121987601120260, +1.77544579775795206273835747715838411, +1.75282798258835236593775117172440688, +1.23439408549720127741595767275903060, +1.40495326383844299429357248377887816, +1.69301800947080547546492106582514702, +1.99017097637131060270884566526743433, +1.77738130832129186624956790814852141, +1.79417533493906833433666730329112709, +1.77275769121055218358094806208237654, +1.18394147742022680784973951387237354, +1.12398720456826426986258579403240912, +1.84693360981039894130547497514146193, +1.32975174602899187233750059445003600, +1.29643165251269855365700206941351353, +1.62760873429661992830270776725027059, +1.05352323621629822083522727432923326, +1.49331944908019067368146255234838407, +1.48472445283201009408422119962111000, +1.79142734730784157698143949490040219, +1.86278129331615354114525436708669630, +1.53124659869825951666279364530975696, +1.20686041092386049525369214785300011, +1.58613119824064054291756688604351217, +1.92328100451136451418400497851268936, +1.02999316115500375301912845207578392, +1.64708495250024304827521289937845504, +1.18944273207864636300719347760210184, +1.72198518519859208500499682253219465, +1.51864594107952512635874781121682726, +1.69354764043955913371112868063386026, +1.25153689070340686322222510705185340, +1.08506118907515450257962758904426106, +1.71546351255921088674228874012953414, +1.35479660740226835847219121916471294, +1.92438400761702926683235803887939656, +1.45317095207013014807426667812668543, +1.58715486960709412624414888154586360, +1.85092411285106655679589741658251551, +1.88757627028583924875683535547289818, +1.60840179359357437962202826468061899

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

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

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

src/fortran/main/pm_fftpack.F90