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

Detailed Description

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

See the documentation of pm_fftnr 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 size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftnr, only: getFFTI

type_of(data) :: fft(1 : getExpNext(size(data)))

fft(:) = getFFTI(data(:))

pm_fftnr::getFFTI
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428

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

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_fftnr, only: getFFTF, getFFTI

6 use pm_distUnif, only: getUnifRand

7 use pm_mathCompare, only: isClose

8 use pm_err, only: setAsserted

9

10 implicit none

11

12 integer(IK) :: i

13 integer(IK) :: lenData

14 type(display_type) :: disp

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

16

17 do i = 1, 5

18 block

19 use pm_kind, only: TKG => CKS

20 real(TKG) :: reltol

21 complex(TKG), allocatable :: data(:), atad(:)

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

23 lenData = getUnifRand(5, 100)

24 call disp%show("lenData")

25 call disp%show( lenData )

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

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

28 call disp%show("data")

29 call disp%show( data )

30 call disp%skip()

31 call disp%show("atad = getFFTI(getFFTF(data))")

32 atad = getFFTI(getFFTF(data))

33 call disp%show("atad")

34 call disp%show( atad )

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

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

37 call disp%show("reltol")

38 call disp%show( reltol )

39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

43 call disp%skip()

44 end block

45

46 block

47 use pm_kind, only: TKG => CKD

48 real(TKG) :: reltol

49 complex(TKG), allocatable :: data(:), atad(:)

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

51 lenData = getUnifRand(5, 100)

52 call disp%show("lenData")

53 call disp%show( lenData )

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

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

56 call disp%show("data")

57 call disp%show( data )

58 call disp%skip()

59 call disp%show("atad = getFFTI(getFFTF(data))")

60 atad = getFFTI(getFFTF(data))

61 call disp%show("atad")

62 call disp%show( atad )

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

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

65 call disp%show("reltol")

66 call disp%show( reltol )

67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

71 call disp%skip()

72 end block

73

74 block

75 use pm_kind, only: TKG => CKH

76 real(TKG) :: reltol

77 complex(TKG), allocatable :: data(:), atad(:)

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

79 lenData = getUnifRand(5, 100)

80 call disp%show("lenData")

81 call disp%show( lenData )

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

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

84 call disp%show("data")

85 call disp%show( data )

86 call disp%skip()

87 call disp%show("atad = getFFTI(getFFTF(data))")

88 atad = getFFTI(getFFTF(data))

89 call disp%show("atad")

90 call disp%show( atad )

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

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

93 call disp%show("reltol")

94 call disp%show( reltol )

95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

99 call disp%skip()

100 end block

101

102 block

103 use pm_kind, only: TKG => RKS

104 real(TKG) :: reltol

105 real(TKG), allocatable :: data(:), atad(:)

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

107 lenData = getUnifRand(5, 100)

108 call disp%show("lenData")

109 call disp%show( lenData )

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

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

112 call disp%show("data")

113 call disp%show( data )

114 call disp%skip()

115 call disp%show("atad = getFFTI(getFFTF(data))")

116 atad = getFFTI(getFFTF(data))

117 call disp%show("atad")

118 call disp%show( atad )

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

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

121 call disp%show("reltol")

122 call disp%show( reltol )

123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

127 call disp%skip()

128 end block

129

130 block

131 use pm_kind, only: TKG => RKD

132 real(TKG) :: reltol

133 real(TKG), allocatable :: data(:), atad(:)

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

135 lenData = getUnifRand(5, 100)

136 call disp%show("lenData")

137 call disp%show( lenData )

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

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

140 call disp%show("data")

141 call disp%show( data )

142 call disp%skip()

143 call disp%show("atad = getFFTI(getFFTF(data))")

144 atad = getFFTI(getFFTF(data))

145 call disp%show("atad")

146 call disp%show( atad )

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

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

149 call disp%show("reltol")

150 call disp%show( reltol )

151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

155 call disp%skip()

156 end block

157

158 block

159 use pm_kind, only: TKG => RKH

160 real(TKG) :: reltol

161 real(TKG), allocatable :: data(:), atad(:)

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

163 lenData = getUnifRand(5, 100)

164 call disp%show("lenData")

165 call disp%show( lenData )

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

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

168 call disp%show("data")

169 call disp%show( data )

170 call disp%skip()

171 call disp%show("atad = getFFTI(getFFTF(data))")

172 atad = getFFTI(getFFTF(data))

173 call disp%show("atad")

174 call disp%show( atad )

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

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

177 call disp%show("reltol")

178 call disp%show( reltol )

179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

183 call disp%skip()

184 end block

185 end do

186

187end 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_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2rm main.exe

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

4./main.exe

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

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

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

4main.exe

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

2rm main.exe

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

4./main.exe

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

2lenData

3+53

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

5data

6(+1.02572465, +0.591770411E-1), (+1.07301378, +0.759416401), (+1.33520830, +0.359227180), (+1.53787553, +0.503769696), (+1.54760253, +0.863607585), (+1.25502622, +0.108105242), (+1.91077447, +0.573912144), (+1.41018319, +0.273361683), (+1.39016092, +0.422546327), (+1.55075026, +0.264450431), (+1.79836321, +0.102977812), (+1.15375876, +0.270012915), (+1.78339946, +0.876646936), (+1.92874908, +0.366616428), (+1.14612603, +0.851019382), (+1.35376763, +0.939173281), (+1.54249072, +0.647561550), (+1.98694384, +0.685981989), (+1.70524287, +0.382121027), (+1.66740012, +0.671411037), (+1.25067806, +0.685464084), (+1.17657161, +0.937848687E-1), (+1.80467677, +0.931773067), (+1.61255646, +0.471041262), (+1.89542532, +0.740630686), (+1.92095351, +0.987565815), (+1.93519878, +0.338315547), (+1.65292418, +0.359893203), (+1.76482964, +0.270510316), (+1.35589433, +0.663165271), (+1.22664142, +0.248404741), (+1.81178069, +0.600441039), (+1.80942094, +0.513441563), (+1.99852419, +0.812224567), (+1.59131670, +0.943656445), (+1.23485756, +0.616149604), (+1.27860689, +0.608283639), (+1.09259367, +0.936765850), (+1.84683728, +0.527432621), (+1.97415018, +0.297272265), (+1.61873031, +0.185137868), (+1.61128902, +0.148687482), (+1.90815520, +0.713372946), (+1.49570084, +0.540531218), (+1.67353344, +0.622675419E-1), (+1.47312784, +0.801861644), (+1.07479286, +0.421960056), (+1.69062376, +0.830332518), (+1.97466302, +0.613969743), (+1.62173069, +0.480439901), (+1.64875627, +0.967499375), (+1.00284731, +0.472520292), (+1.00407910, +0.108649969)

7

8atad = getFFTI(getFFTF(data))

9atad

10(+1.02572441, +0.591771305E-1), (+1.07301366, +0.759416461), (+1.33520806, +0.359227240), (+1.53787529, +0.503769636), (+1.54760253, +0.863607526), (+1.25502622, +0.108105302), (+1.91077447, +0.573912024), (+1.41018319, +0.273361593), (+1.39016068, +0.422546417), (+1.55075002, +0.264450490), (+1.79836297, +0.102977842), (+1.15375900, +0.270012945), (+1.78339922, +0.876646936), (+1.92874897, +0.366616726), (+1.14612591, +0.851019382), (+1.35376751, +0.939173281), (+1.54249060, +0.647561550), (+1.98694372, +0.685981870), (+1.70524263, +0.382120997), (+1.66740012, +0.671410918), (+1.25067806, +0.685464025), (+1.17657149, +0.937849879E-1), (+1.80467653, +0.931772947), (+1.61255646, +0.471041262), (+1.89542496, +0.740630746), (+1.92095304, +0.987565696), (+1.93519843, +0.338315547), (+1.65292406, +0.359893173), (+1.76482940, +0.270510375), (+1.35589409, +0.663165271), (+1.22664142, +0.248404771), (+1.81178045, +0.600440860), (+1.80942082, +0.513441563), (+1.99852407, +0.812224507), (+1.59131682, +0.943656385), (+1.23485768, +0.616149545), (+1.27860677, +0.608283639), (+1.09259379, +0.936765909), (+1.84683728, +0.527432680), (+1.97415018, +0.297272235), (+1.61873019, +0.185137838), (+1.61128879, +0.148687437), (+1.90815496, +0.713372827), (+1.49570084, +0.540531039), (+1.67353332, +0.622676015E-1), (+1.47312772, +0.801861525), (+1.07479298, +0.421960205), (+1.69062364, +0.830332458), (+1.97466290, +0.613969803), (+1.62173057, +0.480439782), (+1.64875627, +0.967499137), (+1.00284767, +0.472520351), (+1.00407910, +0.108650088), (-0.119209290E-6, -0.596046448E-7), (+0.596046448E-7, +0.894069672E-7), (+0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, +0.00000000), (-0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.134110451E-6), (+0.417232513E-6, +0.208616257E-6), (+0.596046448E-7, -0.208616257E-6), (+0.238418579E-6, -0.119209290E-6), (+0.596046448E-7, +0.894069672E-7), (-0.596046448E-7, -0.894069672E-7)

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

12reltol

13+0.345266977E-3

14isClose(data, atad(1:size(data)), reltol = reltol)

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

16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+92

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

22data

23(+1.5801800448281633, +0.86333840780380089E-1), (+1.7105708151278911, +0.97813835014502482), (+1.7286206054587134, +0.40946725358254565), (+1.5727964981073217, +0.61442689410874785), (+1.2166651418564514, +0.65071227137638599), (+1.6950376970312053, +0.61332172525938666), (+1.4014964706648787, +0.86807779056279455), (+1.3663791286489222, +0.44980736723733261E-1), (+1.1271140172101051, +0.84492409909773747), (+1.8284528673056626, +0.59274282404361056E-1), (+1.2076600058990912, +0.74436715461574066), (+1.4904804433627508, +0.54294284511084656), (+1.7406820572811474, +0.61844830128416461), (+1.5239582599056871, +0.99356042784597132), (+1.3754540261611914, +0.98783343748728736), (+1.9573094006548364, +0.36262951082687711), (+1.7124921439399594, +0.70621470643637940), (+1.8935400932181263, +0.91529753646345990), (+1.7221073516869718, +0.71082302123949692), (+1.6806900995618441, +0.62216472065135597), (+1.3927468724039620, +0.47564534868391140), (+1.7537831667795092, +0.63988646036483299), (+1.6861510665232748, +0.90886765757157262), (+1.7252359495220595, +0.63246680029065261), (+1.2769352864362176, +0.26855050890773746), (+1.2708452502232830, +0.79858784735107435E-1), (+1.6243557921682403, +0.34796520185331881), (+1.6763125227770819, +0.89153413222193800), (+1.2160643254747430, +0.96604757850328249), (+1.5795844093835734, +0.85071770413616288), (+1.9549566813007968, +0.38121114219484098), (+1.7791563991582247, +0.58552641972346942), (+1.5865750140463577, +0.32682724830832577), (+1.3349692924367966, +0.68837707661459857), (+1.5072521449700802, +0.89595415743879969), (+1.9674381626312245, +0.35886725182317170), (+1.5109342880536549, +0.84478577664372601), (+1.0984591191355071, +0.24946867601382028), (+1.7361853313757263, +0.20875824978788204), (+1.5586580088882995, +0.40338256151297658), (+1.8413219517125681, +0.10775097872607442), (+1.8044680793335557, +0.75278672797468060), (+1.2006139667998852, +0.45131014703457939), (+1.1043327066559336, +0.68723114060843860E-1), (+1.4896044927696823, +0.37099680061827600), (+1.6838765794369746, +0.97867044943731274), (+1.5213738987567822, +0.80849918134359144), (+1.6570631606234378, +0.55869763742377820), (+1.6765456393503979, +0.46464128445137076), (+1.8590438133001448, +0.94178303513053585), (+1.7171142611336108, +0.57715725452763078), (+1.9611888067721210, +0.51968314685425365), (+1.3323503078185572, +0.78746858477592629), (+1.1198088164405640, +0.80569740227174391), (+1.9523190398096948, +0.54853144728942871E-1), (+1.5896710985511580, +0.46970726018261721), (+1.8628102488920271, +0.36794861469756590), (+1.0423785079116688, +0.42611892897096793), (+1.4370147664802138, +0.70662486472884511), (+1.9393634094841010, +0.57814339882044874E-1), (+1.3339228951616571, +0.31309111900446074), (+1.5387839459573729, +0.59741195114931400), (+1.0854151100352860, +0.95959134913672695), (+1.1290811672002419, +0.83138642196480050), (+1.5423465763816147, +0.52992571854192927E-1), (+1.5633061049239738, +0.65527041280220255), (+1.6414601355744090, +0.30523995503457702), (+1.5526597583003157, +0.98071190656220253), (+1.7189462964310018, +0.74817927280748764E-1), (+1.3102451701708961, +0.50363011455151385), (+1.4614760250373584, +0.84698458459840131), (+1.4670871224287021, +0.53376204117673909), (+1.9409951599449005, +0.75342187955641171), (+1.2781138293818084, +0.81474133440073215), (+1.9433008592647711, +0.48912038519577328), (+1.9478470024821921, +0.19447348768729589), (+1.1485068589989500, +0.33328398481658084), (+1.2631531124812125, +0.98536159570237114), (+1.2520046846888500, +0.87813035142967477), (+1.9061625994497560, +0.73175828880514049), (+1.9695699200409147, +0.15424727577928754), (+1.9331996222227181, +0.90670458943994070), (+1.3552292206241670, +0.85625730505338704), (+1.0850043933738678, +0.24526572396627810), (+1.4482345659833746, +0.49069163686731743), (+1.6354934961028629, +0.97973668348155341), (+1.4401124015181241, +0.68535183636039609E-1), (+1.8261546994368709, +0.91767892190910838), (+1.4978986684887543, +0.27263628777132753), (+1.3965468769643121, +0.53215227387611275), (+1.2154348258569978, +0.92757224733310273E-1), (+1.6729196791083398, +0.32643309514277019)

24

25atad = getFFTI(getFFTF(data))

26atad

27(+1.5801800448281635, +0.86333840780380214E-1), (+1.7105708151278916, +0.97813835014502493), (+1.7286206054587132, +0.40946725358254571), (+1.5727964981073221, +0.61442689410874796), (+1.2166651418564518, +0.65071227137638621), (+1.6950376970312053, +0.61332172525938689), (+1.4014964706648783, +0.86807779056279455), (+1.3663791286489220, +0.44980736723733344E-1), (+1.1271140172101055, +0.84492409909773769), (+1.8284528673056630, +0.59274282404361278E-1), (+1.2076600058990909, +0.74436715461574066), (+1.4904804433627514, +0.54294284511084689), (+1.7406820572811470, +0.61844830128416484), (+1.5239582599056869, +0.99356042784597154), (+1.3754540261611909, +0.98783343748728802), (+1.9573094006548362, +0.36262951082687778), (+1.7124921439399594, +0.70621470643637940), (+1.8935400932181263, +0.91529753646345979), (+1.7221073516869714, +0.71082302123949703), (+1.6806900995618441, +0.62216472065135631), (+1.3927468724039620, +0.47564534868391134), (+1.7537831667795090, +0.63988646036483288), (+1.6861510665232744, +0.90886765757157262), (+1.7252359495220593, +0.63246680029065239), (+1.2769352864362180, +0.26855050890773752), (+1.2708452502232830, +0.79858784735107630E-1), (+1.6243557921682403, +0.34796520185331903), (+1.6763125227770821, +0.89153413222193789), (+1.2160643254747430, +0.96604757850328249), (+1.5795844093835731, +0.85071770413616266), (+1.9549566813007961, +0.38121114219484109), (+1.7791563991582242, +0.58552641972346930), (+1.5865750140463581, +0.32682724830832555), (+1.3349692924367971, +0.68837707661459846), (+1.5072521449700802, +0.89595415743879969), (+1.9674381626312250, +0.35886725182317136), (+1.5109342880536554, +0.84478577664372612), (+1.0984591191355069, +0.24946867601382022), (+1.7361853313757258, +0.20875824978788177), (+1.5586580088882998, +0.40338256151297602), (+1.8413219517125685, +0.10775097872607414), (+1.8044680793335557, +0.75278672797468049), (+1.2006139667998847, +0.45131014703457950), (+1.1043327066559341, +0.68723114060843249E-1), (+1.4896044927696823, +0.37099680061827583), (+1.6838765794369746, +0.97867044943731241), (+1.5213738987567815, +0.80849918134359156), (+1.6570631606234381, +0.55869763742377798), (+1.6765456393503981, +0.46464128445137065), (+1.8590438133001455, +0.94178303513053563), (+1.7171142611336105, +0.57715725452763089), (+1.9611888067721215, +0.51968314685425321), (+1.3323503078185575, +0.78746858477592607), (+1.1198088164405644, +0.80569740227174358), (+1.9523190398096941, +0.54853144728942455E-1), (+1.5896710985511580, +0.46970726018261644), (+1.8628102488920266, +0.36794861469756579), (+1.0423785079116688, +0.42611892897096765), (+1.4370147664802138, +0.70662486472884511), (+1.9393634094841010, +0.57814339882044347E-1), (+1.3339228951616571, +0.31309111900446052), (+1.5387839459573729, +0.59741195114931356), (+1.0854151100352858, +0.95959134913672672), (+1.1290811672002414, +0.83138642196479962), (+1.5423465763816149, +0.52992571854193052E-1), (+1.5633061049239738, +0.65527041280220244), (+1.6414601355744085, +0.30523995503457707), (+1.5526597583003154, +0.98071190656220242), (+1.7189462964310023, +0.74817927280748653E-1), (+1.3102451701708961, +0.50363011455151374), (+1.4614760250373584, +0.84698458459840142), (+1.4670871224287021, +0.53376204117673898), (+1.9409951599449005, +0.75342187955641216), (+1.2781138293818082, +0.81474133440073215), (+1.9433008592647709, +0.48912038519577344), (+1.9478470024821923, +0.19447348768729600), (+1.1485068589989500, +0.33328398481658095), (+1.2631531124812121, +0.98536159570237092), (+1.2520046846888500, +0.87813035142967466), (+1.9061625994497555, +0.73175828880514038), (+1.9695699200409147, +0.15424727577928754), (+1.9331996222227179, +0.90670458943994092), (+1.3552292206241665, +0.85625730505338704), (+1.0850043933738676, +0.24526572396627794), (+1.4482345659833744, +0.49069163686731737), (+1.6354934961028624, +0.97973668348155329), (+1.4401124015181244, +0.68535183636039498E-1), (+1.8261546994368714, +0.91767892190910816), (+1.4978986684887545, +0.27263628777132748), (+1.3965468769643112, +0.53215227387611252), (+1.2154348258569976, +0.92757224733310273E-1), (+1.6729196791083398, +0.32643309514277030), (+0.55511151231257827E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.38857805861880479E-15), (+0.66613381477509392E-15, -0.83266726846886741E-16), (+0.88817841970012523E-15, -0.38857805861880479E-15), (+0.33306690738754696E-15, +0.24980018054066022E-15), (-0.33306690738754696E-15, +0.16653345369377348E-15), (-0.44408920985006262E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.30531133177191805E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.30531133177191805E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.0000000000000000, -0.16653345369377348E-15), (-0.44408920985006262E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (+0.77715611723760958E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.30531133177191805E-15), (+0.66613381477509392E-15, +0.0000000000000000), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.69388939039072284E-15), (+0.55511151231257827E-15, +0.77715611723760958E-15), (+0.33306690738754696E-15, +0.41633363423443370E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.77715611723760958E-15, +0.19428902930940239E-15), (+0.55511151231257827E-15, +0.58286708792820718E-15), (+0.55511151231257827E-15, +0.66613381477509392E-15), (-0.22204460492503131E-15, +0.94368957093138306E-15), (+0.77715611723760958E-15, +0.99920072216264089E-15)

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

29reltol

30+0.14901161193847656E-7

31isClose(data, atad(1:size(data)), reltol = reltol)

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

33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+39

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

39data

40(+1.28076668706151555786757015292691520, +0.692858986231322775531862814480503765), (+1.08903838019510445925291718914709064, +0.334523673470393963493516762377240089), (+1.00767874560636026903111371659947732, +0.719143044109450943030096220457383891), (+1.57254471908829347650751342178507933, +0.892747705876616376017672646127767034), (+1.14959922578344147768360705386357851, +0.119850082864921705403930360809382261), (+1.17409243018958925136786588064938767, +0.774331886713126471029874448381246948), (+1.10368189374483205151810717967783257, +0.292914307631206350717382579164905050), (+1.27167232116203922224403906407946580, +0.701533388367852196424422510370429487), (+1.01153077840057924747455259212258996, +0.371687203989450218000634037901295133), (+1.85264091076401652397551057638941112, +0.393157395628136813527528752598601304), (+1.81981764623931419626200714934142135, +0.516102298570750790113971228928852131), (+1.27006087199977981542172059223375205, +0.771274900958174013836826294355839120E-2), (+1.83270485635084041248107199976258069, +0.806019760439395287693092676341483421), (+1.72875011227879187373199274850279447, +0.890032140156596401066871364177324090), (+1.47343928754940773743130030319819024, +0.572503130474895323457076837841199119), (+1.28294255615334005527271071428760621, +0.164360302482456491471614561346785067), (+1.41845074106119712420031440649894453, +0.956440754876810139282043706047002760), (+1.23997551191033445350725885240287943, +0.582842613311241450592895578218820903), (+1.52169267940439231390701945619210374, +0.376025108769223730538092889269490242), (+1.98017989763493730674337412913385607, +0.178597215510988187336985370170078082), (+1.13836678509161499150285400329704353, +0.710730810233700555017657821166503937), (+1.18182948422392316668243753279769519, +0.149320410862016416561625177698266502), (+1.09862329471295249181612358088071824, +0.949313017526286234210476378317707208), (+1.62226713693899658940329292016064626, +0.780913005512358083745510598350392441), (+1.20416311254859660050773796936566624, +0.439073099448510774420719069399729345E-2), (+1.78379173378208848267459109036445922, +0.347686225372848356094887139831438084), (+1.00783191555697119089232971744191463, +0.256233446910925685400104698006979467), (+1.72128305338204585077841681868011552, +0.223027599127619928450530404489466336), (+1.22592963632630346144996406337651372, +0.830194680787438353241379533258369117E-1), (+1.92773621736687601075635817090621857, +0.723224829116108053611778479917802044), (+1.56318685310146057688199829608078428, +0.275058227055331865950569590781468788), (+1.70362026065894560884044688627952562, +0.773120206253921982142678388277482389), (+1.59685875403468905773204692188715909, +0.834369478589637876001691077454207273), (+1.77757415474345213515331479170587880, +0.132509534841192209181013233151138137), (+1.41921078817704730405938062998919695, +0.759532779147256401890331683744670015), (+1.90259947342450722243653481332267213, +0.259241703986781871644371167077105609), (+1.43519858846442545646700520511060067, +0.266668248795307988354129434337438870), (+1.06145191416628558894359836525758045, +0.627527621001782215123354399585239499), (+1.74423113024353417264665739013919911, +0.367112160465264971047836457975800897E-1)

41

42atad = getFFTI(getFFTF(data))

43atad

44(+1.28076668706151555786757015292691520, +0.692858986231322775531862814480503958), (+1.08903838019510445925291718914709083, +0.334523673470393963493516762377240186), (+1.00767874560636026903111371659947751, +0.719143044109450943030096220457383794), (+1.57254471908829347650751342178507952, +0.892747705876616376017672646127766938), (+1.14959922578344147768360705386357870, +0.119850082864921705403930360809381948), (+1.17409243018958925136786588064938787, +0.774331886713126471029874448381246755), (+1.10368189374483205151810717967783276, +0.292914307631206350717382579164904665), (+1.27167232116203922224403906407946619, +0.701533388367852196424422510370429295), (+1.01153077840057924747455259212259015, +0.371687203989450218000634037901295229), (+1.85264091076401652397551057638941112, +0.393157395628136813527528752598601497), (+1.81981764623931419626200714934142135, +0.516102298570750790113971228928852131), (+1.27006087199977981542172059223375205, +0.771274900958174013836826294355858379E-2), (+1.83270485635084041248107199976258069, +0.806019760439395287693092676341483613), (+1.72875011227879187373199274850279427, +0.890032140156596401066871364177324379), (+1.47343928754940773743130030319819043, +0.572503130474895323457076837841199216), (+1.28294255615334005527271071428760660, +0.164360302482456491471614561346785164), (+1.41845074106119712420031440649894453, +0.956440754876810139282043706047002760), (+1.23997551191033445350725885240287981, +0.582842613311241450592895578218820903), (+1.52169267940439231390701945619210374, +0.376025108769223730538092889269490242), (+1.98017989763493730674337412913385626, +0.178597215510988187336985370170077938), (+1.13836678509161499150285400329704334, +0.710730810233700555017657821166504033), (+1.18182948422392316668243753279769539, +0.149320410862016416561625177698266334), (+1.09862329471295249181612358088071844, +0.949313017526286234210476378317707304), (+1.62226713693899658940329292016064645, +0.780913005512358083745510598350392248), (+1.20416311254859660050773796936566644, +0.439073099448510774420719069399713697E-2), (+1.78379173378208848267459109036445903, +0.347686225372848356094887139831437843), (+1.00783191555697119089232971744191463, +0.256233446910925685400104698006979178), (+1.72128305338204585077841681868011532, +0.223027599127619928450530404489466095), (+1.22592963632630346144996406337651372, +0.830194680787438353241379533258367432E-1), (+1.92773621736687601075635817090621837, +0.723224829116108053611778479917801948), (+1.56318685310146057688199829608078428, +0.275058227055331865950569590781468402), (+1.70362026065894560884044688627952543, +0.773120206253921982142678388277482582), (+1.59685875403468905773204692188715909, +0.834369478589637876001691077454207273), (+1.77757415474345213515331479170587880, +0.132509534841192209181013233151138064), (+1.41921078817704730405938062998919714, +0.759532779147256401890331683744670015), (+1.90259947342450722243653481332267232, +0.259241703986781871644371167077105658), (+1.43519858846442545646700520511060087, +0.266668248795307988354129434337439062), (+1.06145191416628558894359836525758007, +0.627527621001782215123354399585239884), (+1.74423113024353417264665739013919968, +0.367112160465264971047836457975801860E-1), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.349074802420186498366396002093518076E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.288889491658085377958396691387739098E-33, +0.216667118743564033468797518540804323E-33), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.120370621524202240815998621411557957E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.228704180895984257550397380681960119E-33), (-0.962964972193617926527988971292463659E-34, +0.337037740267766274284796139952362281E-33), (+0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34)

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

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, atad(1:size(data)), reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+44

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

56data

57+1.57901740, +1.88775897, +1.47015750, +1.81583178, +1.53425717, +1.85203600, +1.29790533, +1.41206360, +1.01236391, +1.59509706, +1.03898430, +1.67719686, +1.18680859, +1.04767156, +1.04295731, +1.56793213, +1.62944341, +1.08880270, +1.15382814, +1.71209645, +1.61668849, +1.89698458, +1.02709532, +1.06406689, +1.86914015, +1.39781344, +1.09659576, +1.79631948, +1.48952830, +1.12715173, +1.61231172, +1.84072781, +1.52772784, +1.53440356, +1.40021765, +1.92412138, +1.85531449, +1.40001965, +1.80088186, +1.89398241, +1.14443588, +1.65195596, +1.87361479, +1.40681732

58

59atad = getFFTI(getFFTF(data))

60atad

61+1.57901740, +1.88775885, +1.47015738, +1.81583142, +1.53425694, +1.85203600, +1.29790521, +1.41206360, +1.01236379, +1.59509695, +1.03898406, +1.67719686, +1.18680835, +1.04767179, +1.04295731, +1.56793237, +1.62944341, +1.08880293, +1.15382814, +1.71209645, +1.61668849, +1.89698458, +1.02709532, +1.06406701, +1.86914015, +1.39781332, +1.09659553, +1.79631948, +1.48952818, +1.12715149, +1.61231160, +1.84072769, +1.52772808, +1.53440344, +1.40021777, +1.92412114, +1.85531449, +1.40001917, +1.80088210, +1.89398217, +1.14443600, +1.65195572, +1.87361479, +1.40681732, +0.596046448E-7, -0.178813934E-6, +0.298023224E-6, +0.298023224E-6, +0.00000000, +0.119209290E-6, +0.00000000, +0.238418579E-6, +0.596046448E-7, +0.00000000, +0.596046448E-7, +0.119209290E-6, +0.178813934E-6, -0.119209290E-6, +0.00000000, +0.238418579E-6, +0.596046448E-7, +0.596046448E-7, +0.178813934E-6, +0.119209290E-6

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

63reltol

64+0.345266977E-3

65isClose(data, atad(1:size(data)), reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+10

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

73data

74+1.1439968534239320, +1.4548843224596726, +1.3731235688848891, +1.6778473094168487, +1.6212637084408279, +1.4045167047485974, +1.8774897912581485, +1.2073986952363842, +1.8761736271096758, +1.8558745321442283

75

76atad = getFFTI(getFFTF(data))

77atad

78+1.1439968534239318, +1.4548843224596726, +1.3731235688848888, +1.6778473094168487, +1.6212637084408279, +1.4045167047485974, +1.8774897912581481, +1.2073986952363835, +1.8761736271096756, +1.8558745321442283, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.88817841970012523E-15

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

80reltol

81+0.14901161193847656E-7

82isClose(data, atad(1:size(data)), reltol = reltol)

83T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+71

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

90data

91+1.75577071106829546858929066628894712, +1.31905439365824356920488504557238430, +1.22346353472756560788961102840247472, +1.17786657613310120531540458031752568, +1.07569369938998426666253108512737465, +1.37102236411376831641910482018285514, +1.24895232854468853907478712639622072, +1.42751842051884264123263626066016481, +1.44042000030203188561248058543531761, +1.25200356720324960784315555544263552, +1.26792982389893117633220012894370069, +1.06473386532109959227811849952228817, +1.35940939823860327466317104365180078, +1.65277735968490454769055752062271169, +1.34717690687844248277414678090537315, +1.65951903838718387858269186644990788, +1.32147354254886152888107731869484658, +1.10204607476834246513936552759743178, +1.97611453559922097124475327452104645, +1.30711578558772540100001453078389707, +1.24935440018415540846715035267144227, +1.27657531198109052915355749043219143, +1.78768757516818287885335683851997534, +1.78185732207161280697948003132741797, +1.69824586151636606812915256473641674, +1.65575297750580469178903150316038221, +1.28244272085657844665455740446533603, +1.68539166914178994626955489506616311, +1.47849603463576157496718185924414330, +1.73129195045713683982290448743640798, +1.91490939843900505160689200282837949, +1.25540282084984876153433298479625401, +1.60101111213730917892484592800785141, +1.72601214743563577619449761378418862, +1.42211702162967670911706107254752631, +1.67353546657524119470645935584156542, +1.76465235348606668205845198015318009, +1.23817765459237586985632993177146922, +1.05955993642374825419569286728495827, +1.73921154644274399994411493756018575, +1.25217185297715914297636539785763285, +1.69091787477039128728399855824746489, +1.69452182515660155495080892047893552, +1.55094283316210357380325213839844401, +1.67000629715606157590899080215403739, +1.09047238169373234683639500346048495, +1.81082448502720455304413360549985279, +1.65147512126912776187617194715703849, +1.26587634225537947277739263481691667, +1.12905989777592923559435014716451431, +1.34199739005511237237501747326485473, +1.52899996037896055462019728502467407, +1.31710428425358006656017201308841941, +1.60824992965002919882786694481384339, +1.38550176081510708839001033669713837, +1.24161856887231059353746486198444662, +1.56235857898283451396391987634698538, +1.04281717020769160521579518341099121, +1.82450661305884660781463731263830121, +1.78088745209336280974240380263245002, +1.75384116959166415083812139878148039, +1.69530034932744117035601630123634389, +1.24114183505343095131189660657726821, +1.72373373777991962503787972952425104, +1.62292275166883264886214887617730366, +1.66498073270852635887236325510215775, +1.29414057750947819212650552477712754, +1.61378099430779502838973192186692826, +1.27569880682432943721431358911186673, +1.56889670097316468360010400864537769, +1.36038040204206454497001346378655277

92

93atad = getFFTI(getFFTF(data))

94atad

95+1.75577071106829546858929066628894693, +1.31905439365824356920488504557238449, +1.22346353472756560788961102840247491, +1.17786657613310120531540458031752588, +1.07569369938998426666253108512737446, +1.37102236411376831641910482018285495, +1.24895232854468853907478712639622072, +1.42751842051884264123263626066016501, +1.44042000030203188561248058543531800, +1.25200356720324960784315555544263552, +1.26792982389893117633220012894370146, +1.06473386532109959227811849952228817, +1.35940939823860327466317104365180136, +1.65277735968490454769055752062271169, +1.34717690687844248277414678090537372, +1.65951903838718387858269186644990807, +1.32147354254886152888107731869484658, +1.10204607476834246513936552759743178, +1.97611453559922097124475327452104665, +1.30711578558772540100001453078389745, +1.24935440018415540846715035267144227, +1.27657531198109052915355749043219143, +1.78768757516818287885335683851997534, +1.78185732207161280697948003132741855, +1.69824586151636606812915256473641655, +1.65575297750580469178903150316038279, +1.28244272085657844665455740446533641, +1.68539166914178994626955489506616349, +1.47849603463576157496718185924414349, +1.73129195045713683982290448743640856, +1.91490939843900505160689200282837988, +1.25540282084984876153433298479625440, +1.60101111213730917892484592800785160, +1.72601214743563577619449761378418862, +1.42211702162967670911706107254752631, +1.67353546657524119470645935584156580, +1.76465235348606668205845198015318047, +1.23817765459237586985632993177146942, +1.05955993642374825419569286728495827, +1.73921154644274399994411493756018614, +1.25217185297715914297636539785763304, +1.69091787477039128728399855824746566, +1.69452182515660155495080892047893591, +1.55094283316210357380325213839844478, +1.67000629715606157590899080215403759, +1.09047238169373234683639500346048476, +1.81082448502720455304413360549985317, +1.65147512126912776187617194715703926, +1.26587634225537947277739263481691667, +1.12905989777592923559435014716451412, +1.34199739005511237237501747326485473, +1.52899996037896055462019728502467407, +1.31710428425358006656017201308841979, +1.60824992965002919882786694481384358, +1.38550176081510708839001033669713857, +1.24161856887231059353746486198444662, +1.56235857898283451396391987634698538, +1.04281717020769160521579518341099160, +1.82450661305884660781463731263830160, +1.78088745209336280974240380263245079, +1.75384116959166415083812139878148039, +1.69530034932744117035601630123634428, +1.24114183505343095131189660657726821, +1.72373373777991962503787972952425142, +1.62292275166883264886214887617730347, +1.66498073270852635887236325510215794, +1.29414057750947819212650552477712754, +1.61378099430779502838973192186692826, +1.27569880682432943721431358911186711, +1.56889670097316468360010400864537807, +1.36038040204206454497001346378655277, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33

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

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, atad(1:size(data)), reltol = reltol)

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

101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+14

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

107data

108(+1.63023520, +0.500866652), (+1.43912935, +0.832936168E-1), (+1.13516259, +0.679748297), (+1.55201697, +0.486521184), (+1.39956427, +0.870550394), (+1.16651154, +0.262443125), (+1.56511581, +0.891238511), (+1.00980818, +0.777447104), (+1.01899076, +0.247896373), (+1.43333972, +0.240574241), (+1.09033227, +0.396696329), (+1.80401421, +0.161298752), (+1.40634406, +0.572995961), (+1.30569279, +0.550551713)

109

110atad = getFFTI(getFFTF(data))

111atad

112(+1.63023531, +0.500866592), (+1.43912935, +0.832937062E-1), (+1.13516247, +0.679748297), (+1.55201674, +0.486521244), (+1.39956427, +0.870550275), (+1.16651154, +0.262443215), (+1.56511569, +0.891238332), (+1.00980830, +0.777446926), (+1.01899087, +0.247896373), (+1.43333960, +0.240574300), (+1.09033215, +0.396696180), (+1.80401397, +0.161298826), (+1.40634394, +0.572995901), (+1.30569267, +0.550551772), (+0.596046448E-7, +0.149011612E-6), (+0.596046448E-7, +0.00000000)

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

114reltol

115+0.345266977E-3

116isClose(data, atad(1:size(data)), reltol = reltol)

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

118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+60

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

124data

125(+1.9656229907662062, +0.94404173186993645), (+1.8096785428721280, +0.46577866481267871), (+1.7097883119491430, +0.14534282861077663), (+1.8730084559652571, +0.32639837943987937), (+1.7737124377672120, +0.51635945935685357), (+1.2815831770100634, +0.10021950700132876), (+1.5316168837926230, +0.18449237713787237), (+1.9117400431859517, +0.72922808921846527), (+1.4100524920009847, +0.44778317200028772), (+1.2575997772742631, +0.97083531471650875), (+1.3429456278280605, +0.83607867045622697), (+1.0533084913255477, +0.38946534783897657), (+1.4739156551240951, +0.14273666219443859), (+1.7022455456029055, +0.30229459963442573), (+1.5749225923384267, +0.66560727199927905), (+1.4779452810537925, +0.87650466449592990), (+1.6160104296499540, +0.29086526287094705), (+1.5327517033709337, +0.27033266345284657), (+1.5196237761847970, +0.56424750362457399), (+1.9893375545176077, +0.46371276625328361), (+1.3317921831894366, +0.90375851170547961), (+1.2060798851395147, +0.20098490236005073E-1), (+1.1551551751831011, +0.38800483024021737), (+1.2415855295060603, +0.83531512427636034), (+1.2625287170895576, +0.61564539345279001), (+1.5263291825718910, +0.70183972191552624), (+1.6151563190108655, +0.91720587589511482), (+1.1256596485395352, +0.37974652021911193E-1), (+1.7849203652806911, +0.62705076601076870), (+1.6802885975244697, +0.84168655380925961), (+1.5238156408062506, +0.43537050928979082), (+1.6766960219509282, +0.89180876031179934), (+1.2600331721169007, +0.19683944224840721), (+1.7169240962068377, +0.59601253502686180), (+1.3591777235288824, +0.96554690532855147E-1), (+1.4787309121844454, +0.34445694708535357), (+1.8546191866628474, +0.49954733184121325), (+1.0695192877704671, +0.98053464828797177), (+1.4217838670395659, +0.78504582113431587), (+1.1608523436015106, +0.37475656553075232), (+1.3092154454281144, +0.54175150180751308), (+1.8859878585427503, +0.74574671577820517), (+1.9617939755360168, +0.38071772959734651), (+1.2256356196209297, +0.68355178202822575), (+1.2196999703993567, +0.28226488736400457), (+1.0657588294480140, +0.65134123223162343), (+1.7463189489314455, +0.35656004139207587), (+1.6504391449752027, +0.65504363741755556), (+1.0575386789256138, +0.49763590445237427), (+1.3597085550889290, +0.11741609959407939), (+1.4199772239545490, +0.81257075408335577), (+1.5726953599428417, +0.54492789148361942), (+1.1019147001869602, +0.32724182112719613), (+1.9243046295895316, +0.54254588904571033), (+1.9037647762759651, +0.49150796397131113), (+1.4570738223377564, +0.52943145329585217), (+1.2462473681670680, +0.46721503842505019), (+1.4148509838033116, +0.58128805196575795), (+1.7298105464693525, +0.34381041881909602E-1), (+1.6814543597322471, +0.86300894461818134)

126

127atad = getFFTI(getFFTF(data))

128atad

129(+1.9656229907662062, +0.94404173186993645), (+1.8096785428721280, +0.46577866481267877), (+1.7097883119491428, +0.14534282861077691), (+1.8730084559652569, +0.32639837943987982), (+1.7737124377672122, +0.51635945935685357), (+1.2815831770100634, +0.10021950700132848), (+1.5316168837926225, +0.18449237713787214), (+1.9117400431859517, +0.72922808921846527), (+1.4100524920009849, +0.44778317200028767), (+1.2575997772742626, +0.97083531471650863), (+1.3429456278280600, +0.83607867045622664), (+1.0533084913255477, +0.38946534783897652), (+1.4739156551240953, +0.14273666219443884), (+1.7022455456029058, +0.30229459963442612), (+1.5749225923384262, +0.66560727199927938), (+1.4779452810537925, +0.87650466449593023), (+1.6160104296499540, +0.29086526287094694), (+1.5327517033709337, +0.27033266345284646), (+1.5196237761847968, +0.56424750362457377), (+1.9893375545176077, +0.46371276625328356), (+1.3317921831894366, +0.90375851170547961), (+1.2060798851395147, +0.20098490236005129E-1), (+1.1551551751831011, +0.38800483024021748), (+1.2415855295060605, +0.83531512427636023), (+1.2625287170895581, +0.61564539345278990), (+1.5263291825718908, +0.70183972191552646), (+1.6151563190108655, +0.91720587589511471), (+1.1256596485395352, +0.37974652021911581E-1), (+1.7849203652806911, +0.62705076601076826), (+1.6802885975244699, +0.84168655380925927), (+1.5238156408062511, +0.43537050928979071), (+1.6766960219509284, +0.89180876031179912), (+1.2600331721169007, +0.19683944224840710), (+1.7169240962068377, +0.59601253502686158), (+1.3591777235288822, +0.96554690532855314E-1), (+1.4787309121844456, +0.34445694708535357), (+1.8546191866628476, +0.49954733184121325), (+1.0695192877704671, +0.98053464828797177), (+1.4217838670395657, +0.78504582113431609), (+1.1608523436015106, +0.37475656553075237), (+1.3092154454281146, +0.54175150180751297), (+1.8859878585427503, +0.74574671577820506), (+1.9617939755360165, +0.38071772959734651), (+1.2256356196209297, +0.68355178202822597), (+1.2196999703993572, +0.28226488736400435), (+1.0657588294480143, +0.65134123223162321), (+1.7463189489314450, +0.35656004139207575), (+1.6504391449752027, +0.65504363741755545), (+1.0575386789256136, +0.49763590445237438), (+1.3597085550889290, +0.11741609959407932), (+1.4199772239545487, +0.81257075408335555), (+1.5726953599428417, +0.54492789148361953), (+1.1019147001869602, +0.32724182112719585), (+1.9243046295895316, +0.54254588904571044), (+1.9037647762759651, +0.49150796397131091), (+1.4570738223377564, +0.52943145329585228), (+1.2462473681670683, +0.46721503842505013), (+1.4148509838033114, +0.58128805196575783), (+1.7298105464693521, +0.34381041881909491E-1), (+1.6814543597322471, +0.86300894461818101), (+0.77715611723760958E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.55511151231257827E-15, +0.44408920985006262E-15), (+0.88817841970012523E-15, +0.33306690738754696E-15)

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

131reltol

132+0.14901161193847656E-7

133isClose(data, atad(1:size(data)), 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

135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+83

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

141data

142(+1.91634963237971298303683368001541599, +0.392424964674961040695718352919356389), (+1.90747194792201048251819518597369698, +0.376530603108860986309171587670102676), (+1.34621502168027954217616651814729940, +0.558887287298981303178668963731171234), (+1.94788652115844286912375739880930621, +0.722335980625148081929123090467638376), (+1.47034115214508320784565727279882710, +0.930291718364614893875912082066369142), (+1.00499106217792550254401070581456189, +0.170465204647508537999061689455771433), (+1.30870462472793900686806462127044901, +0.447311714263261610163124079029903651), (+1.77041407462475996665343745265578316, +0.611556389618613470558607805099797932), (+1.11822262373852031673917368881604408, +0.696246375469043430450971294688269501), (+1.01020843359827402319703201097164366, +0.902177637393707319357711782025021878), (+1.59664973635363399543681814325036360, +0.205382101443585597169372982420366496), (+1.12819202831091808467103441755619741, +0.156614431045922046728641850086420431), (+1.55752627659719375869492485361968257, +0.287425581812199119958467482973978460), (+1.39697000795154933859500821883456122, +0.767592807932963798239797557042967326E-1), (+1.88695241101823311484866160913910216, +0.388835081381287761177471528768021561), (+1.66535608459169021953849802552422408, +0.664997255597466085842745718856337437), (+1.92224787152821143562822650945507959, +0.686481222348062501196467301165532482), (+1.76026683001914604094033781400751135, +0.614146768741038830144089800896339902), (+1.35891343818011373310026533887758865, +0.673931874784569030796363245569494430), (+1.15855961855104524842375230542776907, +0.494595523096445293897059812290917205), (+1.35149417248281866875161207018998008, +0.212134743730886950171802001195231381), (+1.55833661270705194661934912120613991, +0.105931861734678663124945930077854924), (+1.79342968807479839970286176399674108, +0.645953000277530882048490082350672482), (+1.61731601505251652763431015371775126, +0.783748014172855502855191865956951876), (+1.95720453512280021667853763826283018, +0.366612263179884909445460267317597962), (+1.68358147705091936174101266725543627, +0.294501365885730112936774152086213834), (+1.01403231664795591902826644512780389, +0.177577087414058613998872849993523239), (+1.79598570641035981866863127300988785, +0.758907885067481113315820954546249391), (+1.80695069346702777586491318885670379, +0.211924829622983458862739328402824934), (+1.21548413706015755422595167942744950, +0.748465558353011023908514240867405376), (+1.49737586361478806406879014561631999, +0.935351746228504602479403790498594810E-1), (+1.68540139642632590675606901799013525, +0.234654966709673892707095666757891715), (+1.87558940484315917350019250979862814, +0.840067666508704891292688419386454863), (+1.64826731507994855928040972866148189, +0.634246216179998200303883380187742468), (+1.22911666554667302869504519826013221, +0.442395742010849865403018879717549305), (+1.82093766051813742123062032893984800, +0.229538109851322975257539350391841280), (+1.91382599807986643013678493341287113, +0.699132501400820723474526464826235880), (+1.68701484559308263519152255894471226, +0.914433435052165067102980641180599732), (+1.93622929649105145588195226538632417, +0.946951991403481075205176189606484147), (+1.22073904504369802759862755795583140, +0.328855506428431510297229632247761787), (+1.83492637507101846282978330910070733, +0.218498749188134594810525502405913037), (+1.17748146331837361620119002749275740, +0.516800533765702909974619284108818891), (+1.80333034837923898294664997469226914, +0.832668450635964052322532855321771593E-1), (+1.45159742319154391150433915144886234, +0.356444178823148777942559646269674572), (+1.67269082934795326556326211187159481, +0.793841233941069688797583374716015103), (+1.53606726483786282007739110610670690, +0.600362628256940726224056918800671182), (+1.09836396357572630731005492633663189, +0.935928052282615866796852621317051543), (+1.10611630152969660846285578049815718, +0.579130697249928052316196320747050541), (+1.44984498196314420558207816997377974, +0.153907253638686742454125873326567778), (+1.51617606174446281206045791318422579, +0.417566208162264239792316601601049566), (+1.61502223238766594695068848515837532, +0.584419365848857748295818021027008224), (+1.12555354511805754460486005989134554, +0.253237062946721239844962650332387454), (+1.94367200239361067066179076380610578, +0.290162782112948476789464480417117449), (+1.68344437040018624219290419710678224, +0.329390770631802944184230141157229985E-2), (+1.27192846489211920667494642005909837, +0.964441073114607149957550878209811603), (+1.01150421297846230908142366765080343, +0.386248112040665907459916363928713241), (+1.15567422385270920807163776443511192, +0.599255965678091316399379819269885996), (+1.37415959080915833083314230802030148, +0.888133931753311193104832327476713914), (+1.10531630749656229813838060942048585, +0.208222516683622127386117553134911046), (+1.05872934251822781173465452246295556, +0.472329084049029480408652031976745045), (+1.64783992650989132971015622031145375, +0.333732578655493222791956169650726166), (+1.43116992963697920281019180291674795, +0.546629619720301963928944503534293755), (+1.15870903244492331405034719794974149, +0.717955998946739778242989989154948004), (+1.03274267557368724266985541887161477, +0.290852192749314593958894403554918559), (+1.77227726525452480005805282714520125, +0.646428922192065875835130189218151556), (+1.63713632278843208406690564360224352, +0.494876683779688007967222163963099480), (+1.82565269077191198683286664131666475, +0.612794210496839839541545572545762987), (+1.23477368801870853286662822962620221, +0.878542343732287615815289344484979872), (+1.66695578880023731194174465710344486, +0.346795142941818578669244322862716688), (+1.78097409944596973960643114548168340, +0.629171442076184137825639469736557043), (+1.94704407419169820428352604009152247, +0.803634349468098373588786675077129109), (+1.31735092712775364783520881547442399, +0.523604227575903312000626284170382971), (+1.37944934957487962808686681389107957, +0.777336764495540091981327009962654717), (+1.18017771499337490732685472513694602, +0.236252268973329948516978966484507810), (+1.51670881833032126683039317002990603, +0.171377706906661927380517803895210139), (+1.02118168043693409411838345499908791, +0.359245295844176703265260271649215640), (+1.25796725077224228282426851793598274, +0.144334957225218172725032060319192269), (+1.90778842442151767000259022107181304, +0.252451353780012918855857149253507644E-1), (+1.55987369690064847352838066077853338, +0.368855850375745600665084193321191804), (+1.23872813110435481004048165620039719, +0.381942331284682925533962768191587753), (+1.84389779001391621969360249302864585, +0.977812864745920911048659965212354666), (+1.29716626422477816112886812777540881, +0.304703855612259563013681019158464418), (+1.78109399941546530724701908106924680, +0.444650510698267380413200705581753803)

143

144atad = getFFTI(getFFTF(data))

145atad

146(+1.91634963237971298303683368001541580, +0.392424964674961040695718352919356293), (+1.90747194792201048251819518597369679, +0.376530603108860986309171587670102387), (+1.34621502168027954217616651814729978, +0.558887287298981303178668963731171234), (+1.94788652115844286912375739880930660, +0.722335980625148081929123090467638184), (+1.47034115214508320784565727279882748, +0.930291718364614893875912082066368950), (+1.00499106217792550254401070581456170, +0.170465204647508537999061689455771024), (+1.30870462472793900686806462127044901, +0.447311714263261610163124079029903699), (+1.77041407462475996665343745265578297, +0.611556389618613470558607805099797451), (+1.11822262373852031673917368881604408, +0.696246375469043430450971294688269404), (+1.01020843359827402319703201097164366, +0.902177637393707319357711782025022071), (+1.59664973635363399543681814325036399, +0.205382101443585597169372982420366641), (+1.12819202831091808467103441755619760, +0.156614431045922046728641850086420335), (+1.55752627659719375869492485361968257, +0.287425581812199119958467482973978460), (+1.39697000795154933859500821883456141, +0.767592807932963798239797557042965641E-1), (+1.88695241101823311484866160913910235, +0.388835081381287761177471528768021561), (+1.66535608459169021953849802552422466, +0.664997255597466085842745718856337534), (+1.92224787152821143562822650945507940, +0.686481222348062501196467301165532385), (+1.76026683001914604094033781400751135, +0.614146768741038830144089800896339902), (+1.35891343818011373310026533887758865, +0.673931874784569030796363245569494430), (+1.15855961855104524842375230542776926, +0.494595523096445293897059812290917205), (+1.35149417248281866875161207018998008, +0.212134743730886950171802001195231116), (+1.55833661270705194661934912120614010, +0.105931861734678663124945930077854828), (+1.79342968807479839970286176399674108, +0.645953000277530882048490082350672578), (+1.61731601505251652763431015371775146, +0.783748014172855502855191865956951876), (+1.95720453512280021667853763826283056, +0.366612263179884909445460267317598058), (+1.68358147705091936174101266725543646, +0.294501365885730112936774152086213930), (+1.01403231664795591902826644512780408, +0.177577087414058613998872849993523311), (+1.79598570641035981866863127300988824, +0.758907885067481113315820954546249583), (+1.80695069346702777586491318885670398, +0.211924829622983458862739328402824982), (+1.21548413706015755422595167942744969, +0.748465558353011023908514240867405761), (+1.49737586361478806406879014561632038, +0.935351746228504602479403790498595894E-1), (+1.68540139642632590675606901799013563, +0.234654966709673892707095666757891643), (+1.87558940484315917350019250979862814, +0.840067666508704891292688419386454863), (+1.64826731507994855928040972866148228, +0.634246216179998200303883380187742661), (+1.22911666554667302869504519826013241, +0.442395742010849865403018879717549498), (+1.82093766051813742123062032893984858, +0.229538109851322975257539350391841328), (+1.91382599807986643013678493341287190, +0.699132501400820723474526464826235880), (+1.68701484559308263519152255894471303, +0.914433435052165067102980641180600021), (+1.93622929649105145588195226538632455, +0.946951991403481075205176189606484243), (+1.22073904504369802759862755795583178, +0.328855506428431510297229632247761883), (+1.83492637507101846282978330910070752, +0.218498749188134594810525502405913326), (+1.17748146331837361620119002749275797, +0.516800533765702909974619284108819180), (+1.80333034837923898294664997469226933, +0.832668450635964052322532855321772917E-1), (+1.45159742319154391150433915144886292, +0.356444178823148777942559646269674861), (+1.67269082934795326556326211187159500, +0.793841233941069688797583374716015584), (+1.53606726483786282007739110610670748, +0.600362628256940726224056918800671567), (+1.09836396357572630731005492633663209, +0.935928052282615866796852621317052120), (+1.10611630152969660846285578049815737, +0.579130697249928052316196320747050830), (+1.44984498196314420558207816997377974, +0.153907253638686742454125873326567874), (+1.51617606174446281206045791318422618, +0.417566208162264239792316601601049759), (+1.61502223238766594695068848515837552, +0.584419365848857748295818021027008321), (+1.12555354511805754460486005989134573, +0.253237062946721239844962650332387550), (+1.94367200239361067066179076380610616, +0.290162782112948476789464480417117352), (+1.68344437040018624219290419710678281, +0.329390770631802944184230141157214939E-2), (+1.27192846489211920667494642005909856, +0.964441073114607149957550878209811603), (+1.01150421297846230908142366765080343, +0.386248112040665907459916363928713338), (+1.15567422385270920807163776443511192, +0.599255965678091316399379819269886188), (+1.37415959080915833083314230802030186, +0.888133931753311193104832327476714492), (+1.10531630749656229813838060942048605, +0.208222516683622127386117553134911094), (+1.05872934251822781173465452246295556, +0.472329084049029480408652031976745189), (+1.64783992650989132971015622031145395, +0.333732578655493222791956169650726310), (+1.43116992963697920281019180291674853, +0.546629619720301963928944503534293948), (+1.15870903244492331405034719794974188, +0.717955998946739778242989989154948292), (+1.03274267557368724266985541887161477, +0.290852192749314593958894403554918655), (+1.77227726525452480005805282714520106, +0.646428922192065875835130189218151556), (+1.63713632278843208406690564360224352, +0.494876683779688007967222163963099576), (+1.82565269077191198683286664131666494, +0.612794210496839839541545572545763083), (+1.23477368801870853286662822962620221, +0.878542343732287615815289344484980065), (+1.66695578880023731194174465710344544, +0.346795142941818578669244322862716495), (+1.78097409944596973960643114548168398, +0.629171442076184137825639469736557043), (+1.94704407419169820428352604009152286, +0.803634349468098373588786675077128916), (+1.31735092712775364783520881547442399, +0.523604227575903312000626284170382971), (+1.37944934957487962808686681389107938, +0.777336764495540091981327009962654814), (+1.18017771499337490732685472513694602, +0.236252268973329948516978966484507713), (+1.51670881833032126683039317002990603, +0.171377706906661927380517803895210379), (+1.02118168043693409411838345499908772, +0.359245295844176703265260271649215929), (+1.25796725077224228282426851793598255, +0.144334957225218172725032060319192341), (+1.90778842442151767000259022107181343, +0.252451353780012918855857149253507885E-1), (+1.55987369690064847352838066077853358, +0.368855850375745600665084193321191997), (+1.23872813110435481004048165620039739, +0.381942331284682925533962768191588139), (+1.84389779001391621969360249302864604, +0.977812864745920911048659965212354570), (+1.29716626422477816112886812777540939, +0.304703855612259563013681019158464418), (+1.78109399941546530724701908106924699, +0.444650510698267380413200705581753900), (-0.385185988877447170611195588516985464E-33, +0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, +0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, +0.601853107621011204079993107057789787E-35), (+0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-33), (-0.385185988877447170611195588516985464E-33, -0.264815367353244929795196967105427506E-33), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-34), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.601853107621011204079993107057789787E-34), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, -0.156481807981462913060798207835025345E-33), (-0.481482486096808963263994485646231830E-33, -0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (+0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, -0.252778305200824705713597104964271711E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, +0.120370621524202240815998621411557957E-33), (-0.770371977754894341222391177033970927E-33, +0.138426214752832576938398414623291651E-33), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.674075480535532548569592279904724561E-33, -0.433334237487128066937595037081608647E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.770371977754894341222391177033970927E-33, -0.481482486096808963263994485646231830E-33), (-0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.674075480535532548569592279904724561E-33, -0.361111864572606722447995864234673872E-33)

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

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, atad(1:size(data)), reltol = reltol)

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

152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+8

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

158data

159+1.72113276, +1.00202167, +1.62050951, +1.24622440, +1.70034313, +1.68653738, +1.85491288, +1.11796212

160

161atad = getFFTI(getFFTF(data))

162atad

163+1.72113276, +1.00202167, +1.62050951, +1.24622452, +1.70034313, +1.68653738, +1.85491288, +1.11796224

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

165reltol

166+0.345266977E-3

167isClose(data, atad(1:size(data)), reltol = reltol)

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

169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+70

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

175data

176+1.2928371655069362, +1.4333469845943765, +1.9698424331565207, +1.1011991907373351, +1.8609070626229238, +1.3450235268348349, +1.2005248019288561, +1.9294737685986059, +1.1676753070572741, +1.2510646206403622, +1.6012273998960267, +1.1638974960984219, +1.8889503094925888, +1.3619230902710711, +1.8184550170284215, +1.0066655260791091, +1.4955991198234506, +1.9990491728063000, +1.4598673002503810, +1.6137993618519635, +1.9018062359490098, +1.4431089371214805, +1.2743459534622055, +1.1163626920269532, +1.0692358535297684, +1.1441887038044634, +1.2537609931989111, +1.1308391585403208, +1.3359008846976828, +1.9074801673247317, +1.5679069324758017, +1.9587831425975710, +1.8279453264607315, +1.7826671064862984, +1.3603312262824152, +1.6216187211439141, +1.8897197528836762, +1.8271375868579973, +1.4118848351663060, +1.7193529401753893, +1.6337917925277208, +1.0574339938213870, +1.4676872248796937, +1.7676795375226431, +1.4602677956398089, +1.9258004931063681, +1.6015719485802098, +1.0284047722392000, +1.8767430794829094, +1.2918473401730586, +1.3579173509260554, +1.0821165387831062, +1.9024657236105413, +1.5784917584284974, +1.9626272878327571, +1.4061383278455795, +1.3283703735345025, +1.6725817058934032, +1.3623624270433010, +1.3116172470202447, +1.6811523698901425, +1.4461614389142032, +1.5315939973585078, +1.2524050861303873, +1.0066419518142733, +1.5266362050553828, +1.0549077022979980, +1.7270267140252238, +1.8581225187338062, +1.1041359710653289

177

178atad = getFFTI(getFFTF(data))

179atad

180+1.2928371655069357, +1.4333469845943765, +1.9698424331565212, +1.1011991907373355, +1.8609070626229229, +1.3450235268348349, +1.2005248019288555, +1.9294737685986063, +1.1676753070572738, +1.2510646206403622, +1.6012273998960269, +1.1638974960984221, +1.8889503094925884, +1.3619230902710708, +1.8184550170284211, +1.0066655260791091, +1.4955991198234502, +1.9990491728063002, +1.4598673002503806, +1.6137993618519637, +1.9018062359490084, +1.4431089371214803, +1.2743459534622048, +1.1163626920269527, +1.0692358535297679, +1.1441887038044638, +1.2537609931989109, +1.1308391585403208, +1.3359008846976823, +1.9074801673247315, +1.5679069324758008, +1.9587831425975710, +1.8279453264607313, +1.7826671064862982, +1.3603312262824150, +1.6216187211439141, +1.8897197528836762, +1.8271375868579969, +1.4118848351663060, +1.7193529401753889, +1.6337917925277210, +1.0574339938213870, +1.4676872248796937, +1.7676795375226431, +1.4602677956398091, +1.9258004931063679, +1.6015719485802098, +1.0284047722391998, +1.8767430794829094, +1.2918473401730586, +1.3579173509260554, +1.0821165387831062, +1.9024657236105411, +1.5784917584284965, +1.9626272878327571, +1.4061383278455786, +1.3283703735345023, +1.6725817058934029, +1.3623624270433008, +1.3116172470202443, +1.6811523698901429, +1.4461614389142030, +1.5315939973585082, +1.2524050861303859, +1.0066419518142729, +1.5266362050553832, +1.0549077022979976, +1.7270267140252242, +1.8581225187338068, +1.1041359710653287, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.11102230246251565E-14, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.12212453270876722E-14, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.33306690738754696E-15, +0.11102230246251565E-14, -0.11102230246251565E-15, +0.14432899320127035E-14

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

182reltol

183+0.14901161193847656E-7

184isClose(data, atad(1:size(data)), reltol = reltol)

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

186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+45

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

192data

193+1.27140288598568967257477627977183487, +1.03311383833664769094453663897275442, +1.80169403451341589503252765007309857, +1.72382868171322473314424087963748118, +1.52058726062886515966100980554377010, +1.30291924269859508570569447522172848, +1.86298672967481343027509006067869596, +1.23498926186540448470722566238081476, +1.76462272694142689874973367371517397, +1.69731177605240299512682133996983443, +1.06329086060846003483746857355617426, +1.26032484884704519297312351282361527, +1.67053582849990333925228271273276298, +1.87660266903683651308292663097684368, +1.88149850419254288364033018617301345, +1.56111258762681245915893958318148149, +1.72631434606657271036935597638119558, +1.48424610485074104905372060602985984, +1.12803142765308763753231828476056735, +1.86755606374430953279283296714333183, +1.63888061234177675970811140749622237, +1.79209533110821327641375084663871652, +1.33278286843896725434554015912110024, +1.23158511337920710608144148568689929, +1.18699604643473765609038870203316228, +1.88233861075631895869772531748321222, +1.54578130736233653914068198496657708, +1.09135328356198923053274549008807881, +1.76052901605575544489048026547382781, +1.92866538545195880502510762291035123, +1.19548265226250877669792828781645364, +1.24497427967407895653711542446953741, +1.79815664884059871784057817972462496, +1.21276411237826977380061229648189038, +1.57841034806950820657360574893948047, +1.17379680872623027033285735922985566, +1.98255837186509535947793206279225592, +1.68354281916578423939558767730171857, +1.62220311270767666854342039009044485, +1.16797367876319853474648910198178219, +1.36804429246162660005775944025313036, +1.97458547145151148799329406865595598, +1.42305451381371149789567362599717031, +1.24342528756282056615773973509758856, +1.56583016142334273950781197707674428

194

195atad = getFFTI(getFFTF(data))

196atad

197+1.27140288598568967257477627977183487, +1.03311383833664769094453663897275442, +1.80169403451341589503252765007309818, +1.72382868171322473314424087963748118, +1.52058726062886515966100980554377029, +1.30291924269859508570569447522172887, +1.86298672967481343027509006067869577, +1.23498926186540448470722566238081495, +1.76462272694142689874973367371517397, +1.69731177605240299512682133996983405, +1.06329086060846003483746857355617407, +1.26032484884704519297312351282361488, +1.67053582849990333925228271273276317, +1.87660266903683651308292663097684349, +1.88149850419254288364033018617301384, +1.56111258762681245915893958318148130, +1.72631434606657271036935597638119578, +1.48424610485074104905372060602985946, +1.12803142765308763753231828476056716, +1.86755606374430953279283296714333125, +1.63888061234177675970811140749622218, +1.79209533110821327641375084663871652, +1.33278286843896725434554015912110004, +1.23158511337920710608144148568689891, +1.18699604643473765609038870203316209, +1.88233861075631895869772531748321145, +1.54578130736233653914068198496657669, +1.09135328356198923053274549008807823, +1.76052901605575544489048026547382723, +1.92866538545195880502510762291035162, +1.19548265226250877669792828781645345, +1.24497427967407895653711542446953741, +1.79815664884059871784057817972462534, +1.21276411237826977380061229648189000, +1.57841034806950820657360574893948047, +1.17379680872623027033285735922985527, +1.98255837186509535947793206279225573, +1.68354281916578423939558767730171877, +1.62220311270767666854342039009044485, +1.16797367876319853474648910198178200, +1.36804429246162660005775944025313036, +1.97458547145151148799329406865595560, +1.42305451381371149789567362599717012, +1.24342528756282056615773973509758836, +1.56583016142334273950781197707674370, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33

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

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, atad(1:size(data)), 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

203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+13

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

209data

210(+1.58130145, +0.546961010), (+1.31331658, +0.297971427), (+1.96550798, +0.252982974), (+1.13081920, +0.171745420E-1), (+1.65789747, +0.393407702), (+1.78318989, +0.263149619), (+1.32487893, +0.539120197), (+1.64900661, +0.876007318), (+1.47594476, +0.390052795E-3), (+1.49911594, +0.172644258E-1), (+1.04685402, +0.518261790), (+1.67822170, +0.688061714E-1), (+1.55634499, +0.736548126)

211

212atad = getFFTI(getFFTF(data))

213atad

214(+1.58130157, +0.546961069), (+1.31331682, +0.297971487), (+1.96550798, +0.252982974), (+1.13081932, +0.171746388E-1), (+1.65789759, +0.393407643), (+1.78319001, +0.263149530), (+1.32487905, +0.539120078), (+1.64900661, +0.876007080), (+1.47594488, +0.390052795E-3), (+1.49911594, +0.172644109E-1), (+1.04685402, +0.518261731), (+1.67822170, +0.688063130E-1), (+1.55634511, +0.736548126), (+0.596046448E-7, +0.149011612E-6), (+0.238418579E-6, +0.208616257E-6), (+0.178813934E-6, +0.596046448E-7)

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

216reltol

217+0.345266977E-3

218isClose(data, atad(1:size(data)), reltol = reltol)

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

220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+14

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

226data

227(+1.8139488854576356, +0.54659545696882594), (+1.6064678178305321, +0.37473480619928146), (+1.1014394684499758, +0.16408781717140397), (+1.9263471576187376, +0.10798030283026605), (+1.1752804116345095, +0.82366569376895349E-1), (+1.1315040699573125, +0.32983583875799216), (+1.7432571391826406, +0.21504790937839457), (+1.5976589950453208, +0.80695761520855935), (+1.1322653721726019, +0.49854705726885939), (+1.0535428058844887, +0.34755106353024334), (+1.4061585681658957, +0.58001122309042275), (+1.0460473366474794, +0.69583868025564488), (+1.6393706832879067, +0.37254568951611644), (+1.3644622196483400, +0.90014586751320791E-1)

228

229atad = getFFTI(getFFTF(data))

230atad

231(+1.8139488854576356, +0.54659545696882605), (+1.6064678178305325, +0.37473480619928157), (+1.1014394684499758, +0.16408781717140400), (+1.9263471576187374, +0.10798030283026649), (+1.1752804116345095, +0.82366569376895571E-1), (+1.1315040699573127, +0.32983583875799222), (+1.7432571391826406, +0.21504790937839433), (+1.5976589950453208, +0.80695761520855902), (+1.1322653721726019, +0.49854705726885951), (+1.0535428058844887, +0.34755106353024323), (+1.4061585681658957, +0.58001122309042263), (+1.0460473366474794, +0.69583868025564455), (+1.6393706832879067, +0.37254568951611644), (+1.3644622196483402, +0.90014586751320638E-1), (+0.22204460492503131E-15, +0.41633363423443370E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15)

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

233reltol

234+0.14901161193847656E-7

235isClose(data, atad(1:size(data)), reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+59

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

243data

244(+1.33974908292225397782692255801986711, +0.930810536248247400593960672187817707), (+1.49799421564515989156515004227943748, +0.534311889600640180852678340255078059), (+1.07711687497622154323885281057948561, +0.104476209127800785242964914501947139), (+1.95534601322490597893249671580929299, +0.496804332082160363685087442609684413E-1), (+1.23861001531532723020102533277677316, +0.278731610943076442492227734560709113), (+1.50758507734413916612350767246994415, +0.369928417464090730268721363620009544), (+1.61029260672796959046463706163767403, +0.332065355755720793212442835481139018), (+1.79518126306034090038628735339139026, +0.430174985227276882632378594670761629E-1), (+1.44897730940761633522725209758589561, +0.240653455682293040972649635998102532), (+1.08148074788876826709925510675887771, +0.937394872046863272204913182312509242), (+1.12914723024174959560474344615183308, +0.882431894768944035230132632726199933E-1), (+1.70752782955737696918922293334130042, +0.660038089409623292012274348181689574), (+1.43154003908321259729201707064618940, +0.784516800037842091387535052136448956), (+1.92027510396422285280766096620333781, +0.174745910391351844461185499003047995), (+1.74937930588514551980279289687228397, +0.460095804471996328054688051739221023), (+1.94175620166124107491676326123569153, +0.900562997990618454406087123547769328), (+1.42133641159561866104192113290556395, +0.342351285823900827452290156862646218), (+1.70738208916861602222886087149291699, +0.197961264103221150942187394437520751), (+1.40156030604852200308973606408583401, +0.713867760026857311192394928608077167), (+1.44505071242384892300571400007407664, +0.147293182181200835836039016911388228E-1), (+1.57189622447736875529219102642570844, +0.497089189509792654487230086424903235E-1), (+1.04930245225573400722529808856873049, +0.683627227581345609965013870583620617), (+1.82209148780193010347343469088168227, +0.197049836155426734439598857919500275), (+1.21951269335635195220700356246174025, +0.986193084788822252427016265567281255), (+1.22420970506995077529895862826778976, +0.347433489256813196597158450919412650), (+1.20294715680364446030083410521519725, +0.585023748433602115132323576106145599), (+1.20033322327021419347391960334718692, +0.777803220792051288648884284247974201), (+1.25457625845047934646976062641610832, +0.590971182976079589727907168702752421E-1), (+1.28866602344047242889523410089536496, +0.109098905871061418507180314808252069), (+1.17692933133347820985581657661502818, +0.909463841417352412061280759358318290), (+1.37787288780179775463881000913049728, +0.540254095259813768371046210793377015), (+1.57178171309137835698147039112539848, +0.324896956240382257015707951075056215), (+1.76530485645672533611004266724326413, +0.733001007029116064444566361676242891E-1), (+1.68800827710437239653530841757954114, +0.632394631706634755262325966967314220), (+1.44964066078405096369958968774340770, +0.905263557604376291463432661864036880), (+1.35653410129536520258072331431270742, +0.348815345324299044148973144396712784), (+1.76030280967431251605323828234693136, +0.983330924764173668399912095967102048), (+1.02633425957273081165992340262727435, +0.312775189409646201873327118174786135), (+1.17383052608363549399446741451764736, +0.547148783833864122180420363083916121), (+1.59664976457616034806069048871698063, +0.813716687279570272395384111513199237), (+1.06591999261994382125995594002935007, +0.375893486732774280595773561574637320), (+1.25976761706547110975432655187020258, +0.411330832198952603686504765984313445E-1), (+1.82558733223653265272896128990995520, +0.101899275726492217025625216934509698), (+1.35222313167143762523726335580757165, +0.207466955521400757565072577585377659), (+1.66166545906477683228551343433056023, +0.674624042502868998554903240893818352), (+1.91151977806319522767877566990258337, +0.508289069780139943307198656223484362), (+1.83793236468284292794056192355932346, +0.857065747047069558793426361685875030E-1), (+1.34585872654374639083382295560693789, +0.433173291302156921452589452067783946), (+1.71959321145995804337694862530554053, +0.215792265442383416096068664159652252), (+1.64681269470795042753568462977686658, +0.155801022127562780500200829380537786), (+1.73781984309910674564302235767788177, +0.600096275728197741212199966482767549), (+1.57413885349327593178782006027264110, +0.209692300223602822872920078254159384), (+1.48143995299406516421933973433676833, +0.879020792483322320903366715227500349), (+1.48528626334312074639880800788554559, +0.958779741264470763174037497653929522), (+1.97180543303733599163806321263465831, +0.980548407018393252681293365902873035), (+1.82740855474280150756523407648243342, +0.383215829449834336956053282139283610E-1), (+1.91870843662900552335691898952194208, +0.416034731186838485320791734060794705E-1), (+1.24255935387723072155823043941682196, +0.520513678363670148308093620928598851), (+1.50539722951503137412733147610483103, +0.212109096390971777253848172633914624)

245

246atad = getFFTI(getFFTF(data))

247atad

248(+1.33974908292225397782692255801986730, +0.930810536248247400593960672187817707), (+1.49799421564515989156515004227943748, +0.534311889600640180852678340255078059), (+1.07711687497622154323885281057948581, +0.104476209127800785242964914501947284), (+1.95534601322490597893249671580929299, +0.496804332082160363685087442609684895E-1), (+1.23861001531532723020102533277677354, +0.278731610943076442492227734560708824), (+1.50758507734413916612350767246994434, +0.369928417464090730268721363620009352), (+1.61029260672796959046463706163767442, +0.332065355755720793212442835481138873), (+1.79518126306034090038628735339139045, +0.430174985227276882632378594670755851E-1), (+1.44897730940761633522725209758589600, +0.240653455682293040972649635998102436), (+1.08148074788876826709925510675887752, +0.937394872046863272204913182312509145), (+1.12914723024174959560474344615183328, +0.882431894768944035230132632726200174E-1), (+1.70752782955737696918922293334130022, +0.660038089409623292012274348181689670), (+1.43154003908321259729201707064618940, +0.784516800037842091387535052136448956), (+1.92027510396422285280766096620333800, +0.174745910391351844461185499003048260), (+1.74937930588514551980279289687228377, +0.460095804471996328054688051739221264), (+1.94175620166124107491676326123569192, +0.900562997990618454406087123547769424), (+1.42133641159561866104192113290556395, +0.342351285823900827452290156862646170), (+1.70738208916861602222886087149291679, +0.197961264103221150942187394437520751), (+1.40156030604852200308973606408583401, +0.713867760026857311192394928608077167), (+1.44505071242384892300571400007407645, +0.147293182181200835836039016911388107E-1), (+1.57189622447736875529219102642570863, +0.497089189509792654487230086424901309E-1), (+1.04930245225573400722529808856873068, +0.683627227581345609965013870583620713), (+1.82209148780193010347343469088168247, +0.197049836155426734439598857919500179), (+1.21951269335635195220700356246174044, +0.986193084788822252427016265567281448), (+1.22420970506995077529895862826778995, +0.347433489256813196597158450919412602), (+1.20294715680364446030083410521519725, +0.585023748433602115132323576106145599), (+1.20033322327021419347391960334718692, +0.777803220792051288648884284247974201), (+1.25457625845047934646976062641610851, +0.590971182976079589727907168702751940E-1), (+1.28866602344047242889523410089536515, +0.109098905871061418507180314808252021), (+1.17692933133347820985581657661502818, +0.909463841417352412061280759358318194), (+1.37787288780179775463881000913049728, +0.540254095259813768371046210793376918), (+1.57178171309137835698147039112539829, +0.324896956240382257015707951075055830), (+1.76530485645672533611004266724326432, +0.733001007029116064444566361676242891E-1), (+1.68800827710437239653530841757954094, +0.632394631706634755262325966967314124), (+1.44964066078405096369958968774340790, +0.905263557604376291463432661864036880), (+1.35653410129536520258072331431270742, +0.348815345324299044148973144396712688), (+1.76030280967431251605323828234693174, +0.983330924764173668399912095967102144), (+1.02633425957273081165992340262727454, +0.312775189409646201873327118174786039), (+1.17383052608363549399446741451764736, +0.547148783833864122180420363083916314), (+1.59664976457616034806069048871698121, +0.813716687279570272395384111513199237), (+1.06591999261994382125995594002935045, +0.375893486732774280595773561574637223), (+1.25976761706547110975432655187020258, +0.411330832198952603686504765984314889E-1), (+1.82558733223653265272896128990995540, +0.101899275726492217025625216934509819), (+1.35222313167143762523726335580757145, +0.207466955521400757565072577585377708), (+1.66166545906477683228551343433056004, +0.674624042502868998554903240893818449), (+1.91151977806319522767877566990258356, +0.508289069780139943307198656223484362), (+1.83793236468284292794056192355932326, +0.857065747047069558793426361685873586E-1), (+1.34585872654374639083382295560693750, +0.433173291302156921452589452067783946), (+1.71959321145995804337694862530554053, +0.215792265442383416096068664159652204), (+1.64681269470795042753568462977686658, +0.155801022127562780500200829380537737), (+1.73781984309910674564302235767788177, +0.600096275728197741212199966482767452), (+1.57413885349327593178782006027264110, +0.209692300223602822872920078254159432), (+1.48143995299406516421933973433676852, +0.879020792483322320903366715227500638), (+1.48528626334312074639880800788554578, +0.958779741264470763174037497653929715), (+1.97180543303733599163806321263465870, +0.980548407018393252681293365902873420), (+1.82740855474280150756523407648243381, +0.383215829449834336956053282139282647E-1), (+1.91870843662900552335691898952194228, +0.416034731186838485320791734060794224E-1), (+1.24255935387723072155823043941682196, +0.520513678363670148308093620928598755), (+1.50539722951503137412733147610483122, +0.212109096390971777253848172633914624), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.264815367353244929795196967105427506E-33)

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

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, atad(1:size(data)), reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+35

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

260data

261+1.02326441, +1.94294405, +1.43460119, +1.10425460, +1.15314245, +1.75197303, +1.39303970, +1.68317783, +1.16585410, +1.87082422, +1.45891666, +1.90212727, +1.61291099, +1.87787628, +1.39586473, +1.43048739, +1.19289076, +1.48824930, +1.80512500, +1.83456564, +1.97793281, +1.08243775, +1.24548674, +1.51225328, +1.78802311, +1.19995236, +1.34161758, +1.25395381, +1.39315677, +1.64962888, +1.35288823, +1.05476213, +1.52298617, +1.83545518, +1.04459167

262

263atad = getFFTI(getFFTF(data))

264atad

265+1.02326441, +1.94294381, +1.43460107, +1.10425448, +1.15314245, +1.75197315, +1.39303970, +1.68317771, +1.16585398, +1.87082398, +1.45891666, +1.90212703, +1.61291075, +1.87787604, +1.39586473, +1.43048728, +1.19289088, +1.48824918, +1.80512524, +1.83456540, +1.97793281, +1.08243752, +1.24548650, +1.51225305, +1.78802276, +1.19995236, +1.34161747, +1.25395370, +1.39315653, +1.64962864, +1.35288799, +1.05476213, +1.52298617, +1.83545518, +1.04459167, -0.596046448E-7, +0.00000000, -0.178813934E-6, -0.596046448E-7, -0.596046448E-7, +0.596046448E-7, +0.357627869E-6, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.119209290E-6, +0.00000000, +0.119209290E-6, +0.00000000, +0.238418579E-6, -0.119209290E-6, +0.238418579E-6, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.238418579E-6, -0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.596046448E-7

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

267reltol

268+0.345266977E-3

269isClose(data, atad(1:size(data)), 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

271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+31

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

277data

278+1.8182836417004959, +1.0922943566190422, +1.4145690176814982, +1.9394932790442478, +1.6102846181101875, +1.8344557315506336, +1.5455113509276961, +1.5170048370310767, +1.1539415577378627, +1.1376247620698638, +1.6485782416940622, +1.4988992362447648, +1.4996880911009860, +1.0710393894693968, +1.7305251519409208, +1.1614990112690204, +1.2240507716948126, +1.5922148899858075, +1.9031602099924947, +1.3085913030746015, +1.2359409528739842, +1.0355758762629943, +1.5523321794313234, +1.5910841264754432, +1.2887584057209072, +1.9522138133027158, +1.3178450221676794, +1.2449976638793783, +1.5095656871136844, +1.0581401825603374, +1.7777558601076817

279

280atad = getFFTI(getFFTF(data))

281atad

282+1.8182836417004957, +1.0922943566190422, +1.4145690176814978, +1.9394932790442483, +1.6102846181101871, +1.8344557315506334, +1.5455113509276961, +1.5170048370310762, +1.1539415577378622, +1.1376247620698636, +1.6485782416940620, +1.4988992362447648, +1.4996880911009860, +1.0710393894693968, +1.7305251519409210, +1.1614990112690204, +1.2240507716948124, +1.5922148899858075, +1.9031602099924947, +1.3085913030746017, +1.2359409528739840, +1.0355758762629945, +1.5523321794313234, +1.5910841264754427, +1.2887584057209072, +1.9522138133027156, +1.3178450221676792, +1.2449976638793783, +1.5095656871136842, +1.0581401825603376, +1.7777558601076817, +0.44408920985006262E-15

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

284reltol

285+0.14901161193847656E-7

286isClose(data, atad(1:size(data)), 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

288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+40

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

294data

295+1.57182831345897870961551689210908609, +1.53939214789365913301043226209212569, +1.61055399906952085859793474726992399, +1.61565581231106154060823964236309945, +1.47757631545756495163796567298909266, +1.06595285337022033983690836430958610, +1.64731256641450927645675512208509143, +1.91545012520675324431698069113943501, +1.05629160300979128859615070113022361, +1.92877888964352261978600201132624711, +1.60463990932662688809725120795792787, +1.34569129326463069844530413588438483, +1.58304367630472387167725136386898613, +1.14015587286551184508232535124031577, +1.74252827513278703221116297870116830, +1.32780754183682382797132064120242553, +1.61074472605156032813462455557043599, +1.27838238701657265569254880497795134, +1.77905589383503154117468966408824142, +1.46088872777143638224069193434729850, +1.96611638975525451891153787940952258, +1.45575641101381628402432145800340852, +1.74983307766830181978884465207373906, +1.22664315048158026943856838860253017, +1.65817633231779232179699170046259350, +1.22795637412578184067762376506521431, +1.35725885155555481346460938073121618, +1.27954719487471586788121458413482029, +1.32023617296171295604250841971484067, +1.57651878704468218951622879752831820, +1.88494409144166493015542000042060400, +1.83304194617499481134097461789142132, +1.53891966555603622024211195885236280, +1.90757455640212872179814907844493004, +1.00894577000013982874423048184650473, +1.88010111714249716778856802847836049, +1.40580748910411186749909250896275249, +1.47081250562401528581972161953642546, +1.69388042488718144518177383657670052, +1.69125115182384232823600373861098661

296

297atad = getFFTI(getFFTF(data))

298atad

299+1.57182831345897870961551689210908628, +1.53939214789365913301043226209212588, +1.61055399906952085859793474726992342, +1.61565581231106154060823964236309964, +1.47757631545756495163796567298909305, +1.06595285337022033983690836430958630, +1.64731256641450927645675512208509162, +1.91545012520675324431698069113943521, +1.05629160300979128859615070113022380, +1.92877888964352261978600201132624750, +1.60463990932662688809725120795792787, +1.34569129326463069844530413588438483, +1.58304367630472387167725136386898632, +1.14015587286551184508232535124031577, +1.74252827513278703221116297870116869, +1.32780754183682382797132064120242553, +1.61074472605156032813462455557043561, +1.27838238701657265569254880497795134, +1.77905589383503154117468966408824103, +1.46088872777143638224069193434729831, +1.96611638975525451891153787940952258, +1.45575641101381628402432145800340890, +1.74983307766830181978884465207373906, +1.22664315048158026943856838860252998, +1.65817633231779232179699170046259350, +1.22795637412578184067762376506521431, +1.35725885155555481346460938073121618, +1.27954719487471586788121458413482009, +1.32023617296171295604250841971484029, +1.57651878704468218951622879752831820, +1.88494409144166493015542000042060400, +1.83304194617499481134097461789142113, +1.53891966555603622024211195885236242, +1.90757455640212872179814907844492985, +1.00894577000013982874423048184650473, +1.88010111714249716778856802847836030, +1.40580748910411186749909250896275211, +1.47081250562401528581972161953642546, +1.69388042488718144518177383657670071, +1.69125115182384232823600373861098681, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33

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

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, atad(1:size(data)), reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, atad(1:size(data)), 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.66048002, +0.389050841E-1), (+1.21011281, +0.884206176), (+1.96049213, +0.758467257), (+1.31788564, +0.108593941), (+1.53267574, +0.499189436), (+1.68477130, +0.411624610), (+1.02506781, +0.897424757), (+1.01047325, +0.572886646), (+1.18919921, +0.486283779), (+1.59689009, +0.119646907), (+1.58623195, +0.365483999), (+1.65351295, +0.613879144), (+1.12180948, +0.242230237), (+1.37181997, +0.648045123), (+1.78946161, +0.620761096), (+1.90594709, +0.942729473), (+1.35846055, +0.510905504), (+1.75353491, +0.432395458), (+1.37741232, +0.205890119), (+1.52907944, +0.840859830), (+1.74006855, +0.532385468), (+1.47671604, +0.490199924), (+1.64622104, +0.138092697), (+1.56567502, +0.322915018), (+1.27262044, +0.883424103), (+1.48467350, +0.985329807), (+1.34434605, +0.545512557), (+1.44084930, +0.709155202E-1), (+1.63989389, +0.697647095), (+1.28236115, +0.949820876E-1), (+1.76943016, +0.584284008), (+1.05755353, +0.513926268), (+1.11739945, +0.712149918), (+1.00236893, +0.239223242), (+1.25979030, +0.436099887), (+1.12262869, +0.871720612), (+1.22231376, +0.527432561E-1), (+1.29747272, +0.734467268), (+1.87546110, +0.509937525), (+1.56463695, +0.801747203), (+1.25472522, +0.346563101), (+1.38068283, +0.214198589), (+1.70377600, +0.318059027), (+1.28565526, +0.287544668), (+1.06457615, +0.262491643), (+1.10343146, +0.363353670), (+1.99090314, +0.393226326), (+1.86135554, +0.949553370), (+1.96784115, +0.634938538), (+1.74978447, +0.159485996), (+1.71525216, +0.500094235), (+1.33053577, +0.795831263), (+1.16974902, +0.227525592), (+1.68059802, +0.318847895), (+1.39059126, +0.638713121), (+1.62425053, +0.813707292), (+1.20479846, +0.853924930), (+1.35630488, +0.408720970E-2), (+1.24526024, +0.236643314), (+1.77398014, +0.892878354), (+1.58823049, +0.894117355), (+1.60212636, +0.202450931), (+1.40392232, +0.886248469), (+1.98322797, +0.319630742), (+1.81381643, +0.714524925), (+1.17545247, +0.174487889), (+1.41768861, +0.360256553), (+1.22823191, +0.659884155), (+1.22473407, +0.647566020), (+1.27326202, +0.395507753), (+1.04788756, +0.190120995), (+1.22958446, +0.882319570), (+1.74320877, +0.681850016), (+1.09903240, +0.438708723), (+1.07526779, +0.340863645), (+1.35151255, +0.528248191), (+1.34525418, +0.239245892), (+1.04748261, +0.341111898), (+1.84695542, +0.448626280), (+1.31327605, +0.552800894), (+1.89518404, +0.272459567), (+1.20085716, +0.362390876E-1), (+1.10168171, +0.889022529), (+1.23017573, +0.471706927), (+1.70010900, +0.466285825), (+1.61223698, +0.802210033), (+1.65032864, +0.290430069), (+1.24494696, +0.218327880), (+1.04717731, +0.723219573), (+1.03910661, +0.284477890), (+1.63319969, +0.885603130), (+1.15994537, +0.812611878), (+1.93014252, +0.380733013), (+1.11546266, +0.276901901), (+1.63772225, +0.400441170), (+1.77379405, +0.405880213E-1), (+1.46926689, +0.132726431E-1), (+1.68025064, +0.119710982), (+1.49706674, +0.255204976), (+1.12230062, +0.444327652)

313

314atad = getFFTI(getFFTF(data))

315atad

316(+1.66048002, +0.389050841E-1), (+1.21011293, +0.884206176), (+1.96049178, +0.758467197), (+1.31788552, +0.108593971), (+1.53267550, +0.499189198), (+1.68477106, +0.411624581), (+1.02506757, +0.897424579), (+1.01047277, +0.572886527), (+1.18919921, +0.486283839), (+1.59689045, +0.119647026), (+1.58623195, +0.365484148), (+1.65351284, +0.613879323), (+1.12180948, +0.242230207), (+1.37181997, +0.648045123), (+1.78946137, +0.620761037), (+1.90594673, +0.942729473), (+1.35846055, +0.510905504), (+1.75353491, +0.432395369), (+1.37741232, +0.205890238), (+1.52907944, +0.840859890), (+1.74006832, +0.532385349), (+1.47671604, +0.490200043), (+1.64622068, +0.138092697), (+1.56567490, +0.322915286), (+1.27262044, +0.883424044), (+1.48467326, +0.985329986), (+1.34434593, +0.545512676), (+1.44084942, +0.709156990E-1), (+1.63989389, +0.697647333), (+1.28236115, +0.949821621E-1), (+1.76943004, +0.584284008), (+1.05755341, +0.513926387), (+1.11739945, +0.712149918), (+1.00236928, +0.239223272), (+1.25979030, +0.436099827), (+1.12262905, +0.871720552), (+1.22231388, +0.527431220E-1), (+1.29747272, +0.734467030), (+1.87546086, +0.509937346), (+1.56463683, +0.801746845), (+1.25472534, +0.346562922), (+1.38068295, +0.214198381), (+1.70377600, +0.318058938), (+1.28565538, +0.287544668), (+1.06457627, +0.262491554), (+1.10343146, +0.363353550), (+1.99090314, +0.393226296), (+1.86135554, +0.949553132), (+1.96784115, +0.634938359), (+1.74978447, +0.159485832), (+1.71525216, +0.500094056), (+1.33053613, +0.795831084), (+1.16974890, +0.227525532), (+1.68059790, +0.318847805), (+1.39059138, +0.638712883), (+1.62425041, +0.813707113), (+1.20479846, +0.853924870), (+1.35630524, +0.408720970E-2), (+1.24526024, +0.236643419), (+1.77397990, +0.892878294), (+1.58823061, +0.894117236), (+1.60212636, +0.202450857), (+1.40392244, +0.886248350), (+1.98322785, +0.319630682), (+1.81381631, +0.714524865), (+1.17545283, +0.174487948), (+1.41768873, +0.360256672), (+1.22823226, +0.659884095), (+1.22473407, +0.647566020), (+1.27326202, +0.395507663), (+1.04788756, +0.190121055), (+1.22958469, +0.882319391), (+1.74320865, +0.681850016), (+1.09903240, +0.438708782), (+1.07526779, +0.340863556), (+1.35151255, +0.528248191), (+1.34525418, +0.239245981), (+1.04748249, +0.341111839), (+1.84695530, +0.448626161), (+1.31327605, +0.552800775), (+1.89518392, +0.272459567), (+1.20085704, +0.362390280E-1), (+1.10168171, +0.889022291), (+1.23017597, +0.471706867), (+1.70010865, +0.466285706), (+1.61223698, +0.802209735), (+1.65032864, +0.290429980), (+1.24494684, +0.218327671), (+1.04717731, +0.723219514), (+1.03910661, +0.284477741), (+1.63319933, +0.885602951), (+1.15994537, +0.812611580), (+1.93014252, +0.380733013), (+1.11546266, +0.276901841), (+1.63772213, +0.400441110), (+1.77379358, +0.405878574E-1), (+1.46926689, +0.132726431E-1), (+1.68025076, +0.119710796), (+1.49706662, +0.255204737), (+1.12230074, +0.444327474), (+0.596046448E-7, +0.193715096E-6), (-0.119209290E-6, +0.119209290E-6), (+0.298023224E-6, +0.238418579E-6), (+0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, -0.447034836E-7), (+0.119209290E-6, -0.819563866E-7), (+0.119209290E-6, +0.298023224E-7), (+0.119209290E-6, -0.163912773E-6), (+0.119209290E-6, -0.298023224E-7), (+0.00000000, -0.447034836E-7), (-0.596046448E-7, +0.298023224E-7), (+0.00000000, +0.00000000), (+0.357627869E-6, +0.298023224E-7), (+0.298023224E-6, +0.745058060E-7), (+0.238418579E-6, +0.208616257E-6), (+0.298023224E-6, +0.178813934E-6), (-0.119209290E-6, +0.894069672E-7), (+0.238418579E-6, +0.894069672E-7), (+0.178813934E-6, +0.894069672E-7), (+0.596046448E-7, +0.387430191E-6), (+0.476837158E-6, +0.00000000), (+0.357627869E-6, -0.119209290E-6), (+0.119209290E-6, -0.104308128E-6), (+0.298023224E-6, +0.00000000), (+0.596046448E-7, -0.894069672E-7), (+0.119209290E-6, -0.745058060E-7), (+0.119209290E-6, -0.119209290E-6), (-0.119209290E-6, +0.104308128E-6)

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

318reltol

319+0.345266977E-3

320isClose(data, atad(1:size(data)), 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, atad(1:size(data)), reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+13

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

328data

329(+1.4525581011120936, +0.83468096800683678), (+1.0675505263212992, +0.19799944139280445), (+1.4049159658144448, +0.83503579861967547), (+1.7286061513444326, +0.18738645849023361), (+1.8307240383010068, +0.76431661713671728), (+1.3036293192898196, +0.54002212784785986), (+1.5436843738247650, +0.40151253131710740), (+1.4555299346274313, +0.16081968765269772), (+1.1571035199316488, +0.47268861997139977), (+1.3583686620113649, +0.56572935925402446), (+1.7096316759380796, +0.11834807977085393), (+1.0670699830463000, +0.30001510741292037), (+1.1183860245771038, +0.92885081463840380)

330

331atad = getFFTI(getFFTF(data))

332atad

333(+1.4525581011120936, +0.83468096800683667), (+1.0675505263212997, +0.19799944139280445), (+1.4049159658144446, +0.83503579861967536), (+1.7286061513444324, +0.18738645849023400), (+1.8307240383010068, +0.76431661713671739), (+1.3036293192898198, +0.54002212784785963), (+1.5436843738247652, +0.40151253131710718), (+1.4555299346274311, +0.16081968765269761), (+1.1571035199316491, +0.47268861997139966), (+1.3583686620113649, +0.56572935925402457), (+1.7096316759380794, +0.11834807977085393), (+1.0670699830462997, +0.30001510741292009), (+1.1183860245771040, +0.92885081463840391), (-0.11102230246251565E-15, +0.0000000000000000), (+0.44408920985006262E-15, +0.41633363423443370E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15)

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

335reltol

336+0.14901161193847656E-7

337isClose(data, atad(1:size(data)), reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+37

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

345data

346(+1.17634838123773863932174778912235312, +0.903333656440849728702361365944296697), (+1.71891927697392367155088178788678897, +0.964097796547259553455649556720092410), (+1.27137277158048919622771637457229392, +0.364726477894095004530507028155320907), (+1.74984253301060532549514625670147271, +0.293574040761178389618933397998457055), (+1.72041235644659777610513791316091321, +0.104522869480332034031352099378242894), (+1.92010405085924469759146456672655249, +0.964443355542207066459469572895927294), (+1.31774254904628256517880492753256851, +0.782173866908259852237417136621427825), (+1.90083756639075836654349778173005544, +0.676866198782197636288872612955356159), (+1.69629629358814675548512361795925714, +0.285076764504672227626744773968712123), (+1.36945489824833349449485063150898873, +0.499433694517130502835398652806779282E-1), (+1.96185952276251006024024328566239165, +0.348093131517964490220319203148428348), (+1.94022643030866410230269239628739539, +0.660179277033398791542406783187356279), (+1.26034347606961170530145932480890571, +0.659295508851495909182665044874952418), (+1.18932757045202365262294017832734271, +0.558755074937402038676863614466889719), (+1.41829526703219721812236997088831661, +0.366256630062083904946884853108260097), (+1.08078656616581920997804589266126014, +0.811310157133219889174840834271166601), (+1.65704051488607549084278934027516120, +0.661979060128503837776688733352556472), (+1.09277627603515707100679726665659143, +0.859276433914886119232734712208042790E-1), (+1.86090048936875164217047777898388443, +0.915269042659858409309886112017490152), (+1.71518308553357501123077609008647348, +0.166016282226058838864081957272721992), (+1.18197273133373648398016178630841105, +0.326992240222185732215768979514073217), (+1.73205953680444905110099922866371632, +0.382613782262387893843525749818946015), (+1.29343171002794683229595458356330392, +0.791758672127695586140529729404064587), (+1.11655658112858917686792514924410245, +0.585828347460046255341775566299854529), (+1.83023215357785046304388528576790871, +0.656775871895662372581993455267390897), (+1.52447104648516588906999328830370229, +0.501422909003558183393546648283787343), (+1.53817918603457900433839621254337410, +0.609215238207898758467988970541620153), (+1.94855108051506961159269540807679014, +0.227896081712177637149248467176273393), (+1.11504090285233286561075472061406355, +0.494804297202615890109420332360962521), (+1.03226425155177231869154103480252035, +0.817392152291047674727631388975449328), (+1.27513082045714022014912074247011278, +0.482107072660949484697597399343825111), (+1.13688261098650781361987546395908266, +0.964899594259507247512458392065927285), (+1.89923586627082822687653800982847422, +0.449868073311933975533854318996524650), (+1.78663171304571919179633123226458486, +0.658781377609217649108568577930932324), (+1.14532913719561402647086909303866403, +0.641842111699673994688868031027057318), (+1.81594829069141566454870382993654659, +0.321401736074456480962019424580481339), (+1.58367357781896003304159585723074798, +0.316727268561705201209721459974663936)

347

348atad = getFFTI(getFFTF(data))

349atad

350(+1.17634838123773863932174778912235293, +0.903333656440849728702361365944296793), (+1.71891927697392367155088178788678897, +0.964097796547259553455649556720092218), (+1.27137277158048919622771637457229372, +0.364726477894095004530507028155320715), (+1.74984253301060532549514625670147233, +0.293574040761178389618933397998457151), (+1.72041235644659777610513791316091379, +0.104522869480332034031352099378242665), (+1.92010405085924469759146456672655288, +0.964443355542207066459469572895927583), (+1.31774254904628256517880492753256889, +0.782173866908259852237417136621427728), (+1.90083756639075836654349778173005583, +0.676866198782197636288872612955355966), (+1.69629629358814675548512361795925733, +0.285076764504672227626744773968712123), (+1.36945489824833349449485063150898892, +0.499433694517130502835398652806777958E-1), (+1.96185952276251006024024328566239146, +0.348093131517964490220319203148428251), (+1.94022643030866410230269239628739520, +0.660179277033398791542406783187356279), (+1.26034347606961170530145932480890590, +0.659295508851495909182665044874952611), (+1.18932757045202365262294017832734271, +0.558755074937402038676863614466889911), (+1.41829526703219721812236997088831699, +0.366256630062083904946884853108260097), (+1.08078656616581920997804589266126014, +0.811310157133219889174840834271166890), (+1.65704051488607549084278934027516120, +0.661979060128503837776688733352556375), (+1.09277627603515707100679726665659143, +0.859276433914886119232734712208042670E-1), (+1.86090048936875164217047777898388443, +0.915269042659858409309886112017489959), (+1.71518308553357501123077609008647348, +0.166016282226058838864081957272721992), (+1.18197273133373648398016178630841124, +0.326992240222185732215768979514073314), (+1.73205953680444905110099922866371671, +0.382613782262387893843525749818946015), (+1.29343171002794683229595458356330411, +0.791758672127695586140529729404064587), (+1.11655658112858917686792514924410245, +0.585828347460046255341775566299854529), (+1.83023215357785046304388528576790909, +0.656775871895662372581993455267390897), (+1.52447104648516588906999328830370229, +0.501422909003558183393546648283787440), (+1.53817918603457900433839621254337410, +0.609215238207898758467988970541619575), (+1.94855108051506961159269540807679014, +0.227896081712177637149248467176273393), (+1.11504090285233286561075472061406375, +0.494804297202615890109420332360962713), (+1.03226425155177231869154103480252035, +0.817392152291047674727631388975449713), (+1.27513082045714022014912074247011317, +0.482107072660949484697597399343825014), (+1.13688261098650781361987546395908266, +0.964899594259507247512458392065927285), (+1.89923586627082822687653800982847422, +0.449868073311933975533854318996524650), (+1.78663171304571919179633123226458466, +0.658781377609217649108568577930932324), (+1.14532913719561402647086909303866384, +0.641842111699673994688868031027057415), (+1.81594829069141566454870382993654621, +0.321401736074456480962019424580481146), (+1.58367357781896003304159585723074817, +0.316727268561705201209721459974664466), (-0.674075480535532548569592279904724561E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (+0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.156481807981462913060798207835025345E-33), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.842594350669415685711990349880905702E-34), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.264815367353244929795196967105427506E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.216667118743564033468797518540804323E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34)

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

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, atad(1:size(data)), 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

356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+72

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

362data

363+1.82985282, +1.80840325, +1.31128716, +1.35290003, +1.07339025, +1.57099533, +1.25284815, +1.60981584, +1.30859137, +1.49591124, +1.36846375, +1.23300195, +1.47922111, +1.18412948, +1.39237118, +1.46470451, +1.65435338, +1.66735303, +1.66106915, +1.39385951, +1.29824185, +1.67683816, +1.15516019, +1.75550961, +1.23314607, +1.07547283, +1.71139860, +1.39977956, +1.27516127, +1.07821882, +1.78406119, +1.33405161, +1.32909930, +1.65587187, +1.63623488, +1.73262954, +1.40503120, +1.01836574, +1.01606345, +1.80565858, +1.59295177, +1.16627336, +1.51204491, +1.08279693, +1.61487865, +1.81991029, +1.70754349, +1.48625815, +1.55497336, +1.69053078, +1.79672623, +1.70118046, +1.03613305, +1.58169544, +1.35069203, +1.55112958, +1.14092314, +1.81061172, +1.68966937, +1.39650679, +1.98450160, +1.41298985, +1.89445734, +1.57017791, +1.74544525, +1.92569375, +1.85801530, +1.85724115, +1.41384125, +1.92274427, +1.14382863, +1.75202465

364

365atad = getFFTI(getFFTF(data))

366atad

367+1.82985282, +1.80840325, +1.31128705, +1.35290003, +1.07339013, +1.57099497, +1.25284779, +1.60981560, +1.30859149, +1.49591112, +1.36846375, +1.23300195, +1.47922122, +1.18412924, +1.39237106, +1.46470451, +1.65435314, +1.66735315, +1.66106880, +1.39385962, +1.29824173, +1.67683780, +1.15516007, +1.75550961, +1.23314595, +1.07547307, +1.71139836, +1.39977992, +1.27516127, +1.07821870, +1.78406096, +1.33405185, +1.32909942, +1.65587187, +1.63623500, +1.73262954, +1.40503144, +1.01836562, +1.01606357, +1.80565846, +1.59295166, +1.16627336, +1.51204491, +1.08279705, +1.61487877, +1.81991029, +1.70754337, +1.48625803, +1.55497313, +1.69053042, +1.79672599, +1.70118022, +1.03613305, +1.58169496, +1.35069203, +1.55112934, +1.14092267, +1.81061149, +1.68966901, +1.39650679, +1.98450112, +1.41298974, +1.89445686, +1.57017779, +1.74544525, +1.92569375, +1.85801518, +1.85724115, +1.41384161, +1.92274415, +1.14382899, +1.75202465, -0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.238418579E-6, +0.119209290E-6, +0.298023224E-6, +0.119209290E-6, +0.357627869E-6, +0.596046448E-7, +0.00000000, +0.238418579E-6, -0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.119209290E-6, +0.178813934E-6, +0.00000000, -0.238418579E-6, +0.178813934E-6, -0.119209290E-6, +0.00000000, -0.119209290E-6, +0.178813934E-6, -0.178813934E-6, -0.596046448E-7, +0.596046448E-7, -0.596046448E-7, +0.178813934E-6, -0.178813934E-6, +0.238418579E-6, -0.119209290E-6, +0.357627869E-6, -0.119209290E-6, +0.596046448E-7, -0.238418579E-6, +0.178813934E-6, -0.119209290E-6, +0.119209290E-6, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.119209290E-6, +0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.119209290E-6, +0.596046448E-7, +0.417232513E-6, +0.357627869E-6, +0.238418579E-6, +0.238418579E-6, +0.178813934E-6, +0.238418579E-6, +0.00000000, +0.238418579E-6, +0.298023224E-6

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

369reltol

370+0.345266977E-3

371isClose(data, atad(1:size(data)), reltol = reltol)

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

373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+85

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

379data

380+1.3768710979927288, +1.6906409761305903, +1.5512611200702269, +1.9760681148693657, +1.3299977131811014, +1.8542240822176330, +1.4962577392899359, +1.8721803238800176, +1.0025737974048310, +1.2953299791754227, +1.1246709306973366, +1.3240276924697207, +1.6841684541907260, +1.7892186699019037, +1.2000169764282211, +1.1862873446886599, +1.2855535801336750, +1.7212820220316587, +1.0435485906548441, +1.8189962613872910, +1.5028887372913311, +1.8895618102987113, +1.2950235227414313, +1.9993999521775243, +1.4613413566743390, +1.0112922482968201, +1.5015229936779346, +1.4083372513271577, +1.4026957797576567, +1.1337126374684932, +1.3977027439242968, +1.1374051679291286, +1.1925652174881207, +1.7831624215882758, +1.5986052471314252, +1.2471353134502765, +1.0296098298993031, +1.8493430572072302, +1.9269969100205744, +1.2063473585867246, +1.8694874992930171, +1.7308006298962808, +1.5375811461790154, +1.6140905064094597, +1.4119302269758836, +1.0930558004937716, +1.4590133255092477, +1.4651557602895395, +1.5459509977088848, +1.0074080242840018, +1.8254849430785010, +1.5771188271907202, +1.2256243975298606, +1.3550275094535928, +1.7664455140758393, +1.0716908044740159, +1.4947299681183999, +1.4239967768613804, +1.8864898144184563, +1.6807198890175905, +1.8835475343259929, +1.9624573992531373, +1.6693503152135425, +1.8840282133511268, +1.5718937027183273, +1.6134060618601604, +1.0421430421011744, +1.1641986865028184, +1.7974111856061321, +1.0733211520930197, +1.6039319995761603, +1.5198642475605921, +1.6935711641593882, +1.8514920445074448, +1.5897932639112060, +1.8890888161338022, +1.4558926309242282, +1.0666216596615929, +1.7368934662432505, +1.7670493584112856, +1.8695590265472761, +1.8030539434769430, +1.9153224252266072, +1.7922690921114843, +1.4722809152683696

381

382atad = getFFTI(getFFTF(data))

383atad

384+1.3768710979927286, +1.6906409761305903, +1.5512611200702273, +1.9760681148693662, +1.3299977131811009, +1.8542240822176328, +1.4962577392899354, +1.8721803238800179, +1.0025737974048305, +1.2953299791754227, +1.1246709306973366, +1.3240276924697207, +1.6841684541907256, +1.7892186699019035, +1.2000169764282207, +1.1862873446886602, +1.2855535801336744, +1.7212820220316589, +1.0435485906548436, +1.8189962613872912, +1.5028887372913304, +1.8895618102987106, +1.2950235227414306, +1.9993999521775241, +1.4613413566743385, +1.0112922482968201, +1.5015229936779342, +1.4083372513271579, +1.4026957797576562, +1.1337126374684932, +1.3977027439242962, +1.1374051679291290, +1.1925652174881209, +1.7831624215882762, +1.5986052471314260, +1.2471353134502763, +1.0296098298993035, +1.8493430572072298, +1.9269969100205744, +1.2063473585867246, +1.8694874992930171, +1.7308006298962810, +1.5375811461790159, +1.6140905064094597, +1.4119302269758836, +1.0930558004937714, +1.4590133255092477, +1.4651557602895395, +1.5459509977088850, +1.0074080242840020, +1.8254849430785012, +1.5771188271907204, +1.2256243975298609, +1.3550275094535922, +1.7664455140758393, +1.0716908044740157, +1.4947299681183996, +1.4239967768613804, +1.8864898144184563, +1.6807198890175903, +1.8835475343259929, +1.9624573992531367, +1.6693503152135418, +1.8840282133511259, +1.5718937027183273, +1.6134060618601604, +1.0421430421011744, +1.1641986865028184, +1.7974111856061321, +1.0733211520930193, +1.6039319995761603, +1.5198642475605919, +1.6935711641593878, +1.8514920445074448, +1.5897932639112056, +1.8890888161338024, +1.4558926309242284, +1.0666216596615927, +1.7368934662432505, +1.7670493584112854, +1.8695590265472755, +1.8030539434769428, +1.9153224252266070, +1.7922690921114843, +1.4722809152683694, -0.22204460492503131E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.66613381477509392E-15, +0.88817841970012523E-15, -0.33306690738754696E-15, +0.77715611723760958E-15, +0.0000000000000000, -0.44408920985006262E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, -0.44408920985006262E-15, +0.0000000000000000, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.88817841970012523E-15, -0.22204460492503131E-15, +0.14432899320127035E-14

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

386reltol

387+0.14901161193847656E-7

388isClose(data, atad(1:size(data)), reltol = reltol)

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

390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+96

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

396data

397+1.11032615862689866414749504538150211, +1.44007770319537156399997310601445617, +1.24414310913464183821603181157427617, +1.09598386268297240094712535679737581, +1.48937687713941795602176974877828170, +1.71272121949748201130302837926721940, +1.74716378484670052983706298880748088, +1.68955398202358109989147048142718075, +1.23828099400786942381536087630995085, +1.17521302873263329915810941473911232, +1.23432808785283103333853170626450517, +1.33214140357939443693170421808421568, +1.19420535208495037187208299236061946, +1.36287128388056920438209148436885067, +1.25447302808051540478065625012674495, +1.40466854356960192689262111593820234, +1.73048047999112956369958845375467344, +1.92865231759671792251191160060090364, +1.05813750433470072996018881990439972, +1.52235513637556076199009793139787728, +1.14617618611506901503951450281274296, +1.62841847093176026331873895808256443, +1.41831165561530849884191699033935680, +1.30418440487747657306690780529049659, +1.50131598524405722053567658506512014, +1.76108262693768266378660585941328389, +1.04282151607681979353339231441513813, +1.42229782441587700367211899467387770, +1.23395747390291625222680477518110210, +1.74037273435008500640335891069352229, +1.90939904241717692442336864501367109, +1.69491759322199266156112602886607475, +1.60895834447283892066098933980423526, +1.73466909284947650995009692424292839, +1.61992632410520320292302857300434981, +1.41429543028450689471744955162337323, +1.59720916588791707420058434179122778, +1.35443782515875624487486610821954815, +1.09942662677354075943000738026616787, +1.33950713625098682114137610209804766, +1.68496062991535832581207834998934525, +1.15973531936065096867404874145484386, +1.36853891256751957772370891001661486, +1.30602014381513338807658474407138772, +1.60035135142776954721972757413886514, +1.45833289846745252258754553918965395, +1.25600948915627546577964152376284030, +1.54347525632870427096465088656978694, +1.88053710443027920227259966896903333, +1.06434742306169612484650140221240129, +1.59454479752844065070775824270142918, +1.49621728682041238465197307052855034, +1.69271267548029205822515421428141163, +1.15949957472397710930103251810849752, +1.65365372062833575394560866265634156, +1.74483966202980160619315461006014833, +1.57951822244988219118782785524781950, +1.37525339963257577932247031680567532, +1.61109288394684134932352788291810351, +1.82960076575112226587901950878587797, +1.07480161589767965672070534267907227, +1.66567486661179721965296277167493001, +1.40531765016383899373413482075125204, +1.69860646931893287373849994535015395, +1.69591221681686287700630546368565250, +1.19325374851847372730307575445194765, +1.62689726886671661308457263002161683, +1.34506861619002312608920091502115427, +1.50069409013393407872837908569719144, +1.35058682474171613136948580262036396, +1.76726986650302938020719863921007088, +1.30816249749038143973987824600150868, +1.58070993086888138084107071307765243, +1.77553070112397549447833169281334923, +1.61966246131951705057425506728969301, +1.03502562846049061505519980176526594, +1.16317300146853814445521855352922953, +1.11607518765825599642059319237916925, +1.40725298888953675176408081944190566, +1.09938754816851404784858865040998714, +1.10594430262737596779392392752811194, +1.06560767303642525790084263004541298, +1.78049645525815260194034205039042219, +1.67582501840731786212325272481099303, +1.87580092887105585758667492800894808, +1.69374115562428013366527411231765488, +1.79698897753812064231265107641024246, +1.41209324188233763529293705201850348, +1.29167946916755817530745453052886314, +1.93445003180565167097803048011551141, +1.42904807968563302327859772832370542, +1.19557260183649351091715958810450707, +1.18502121844302405461681606851310928, +1.75006254598083617503429476070634428, +1.59543198577917115546134657517694303, +1.34653737796146052806002219885869304

398

399atad = getFFTI(getFFTF(data))

400atad

401+1.11032615862689866414749504538150211, +1.44007770319537156399997310601445636, +1.24414310913464183821603181157427597, +1.09598386268297240094712535679737601, +1.48937687713941795602176974877828170, +1.71272121949748201130302837926721959, +1.74716378484670052983706298880748069, +1.68955398202358109989147048142718113, +1.23828099400786942381536087630995104, +1.17521302873263329915810941473911212, +1.23432808785283103333853170626450517, +1.33214140357939443693170421808421568, +1.19420535208495037187208299236061946, +1.36287128388056920438209148436885048, +1.25447302808051540478065625012674515, +1.40466854356960192689262111593820253, +1.73048047999112956369958845375467324, +1.92865231759671792251191160060090422, +1.05813750433470072996018881990439953, +1.52235513637556076199009793139787728, +1.14617618611506901503951450281274258, +1.62841847093176026331873895808256443, +1.41831165561530849884191699033935661, +1.30418440487747657306690780529049698, +1.50131598524405722053567658506512014, +1.76108262693768266378660585941328409, +1.04282151607681979353339231441513813, +1.42229782441587700367211899467387789, +1.23395747390291625222680477518110171, +1.74037273435008500640335891069352248, +1.90939904241717692442336864501367109, +1.69491759322199266156112602886607571, +1.60895834447283892066098933980423565, +1.73466909284947650995009692424292858, +1.61992632410520320292302857300434981, +1.41429543028450689471744955162337323, +1.59720916588791707420058434179122778, +1.35443782515875624487486610821954796, +1.09942662677354075943000738026616806, +1.33950713625098682114137610209804766, +1.68496062991535832581207834998934583, +1.15973531936065096867404874145484386, +1.36853891256751957772370891001661486, +1.30602014381513338807658474407138752, +1.60035135142776954721972757413886514, +1.45833289846745252258754553918965395, +1.25600948915627546577964152376284088, +1.54347525632870427096465088656978752, +1.88053710443027920227259966896903352, +1.06434742306169612484650140221240129, +1.59454479752844065070775824270142918, +1.49621728682041238465197307052855054, +1.69271267548029205822515421428141163, +1.15949957472397710930103251810849733, +1.65365372062833575394560866265634175, +1.74483966202980160619315461006014813, +1.57951822244988219118782785524781969, +1.37525339963257577932247031680567571, +1.61109288394684134932352788291810389, +1.82960076575112226587901950878587835, +1.07480161589767965672070534267907208, +1.66567486661179721965296277167493020, +1.40531765016383899373413482075125262, +1.69860646931893287373849994535015414, +1.69591221681686287700630546368565250, +1.19325374851847372730307575445194726, +1.62689726886671661308457263002161683, +1.34506861619002312608920091502115407, +1.50069409013393407872837908569719144, +1.35058682474171613136948580262036377, +1.76726986650302938020719863921007126, +1.30816249749038143973987824600150849, +1.58070993086888138084107071307765204, +1.77553070112397549447833169281335000, +1.61966246131951705057425506728969301, +1.03502562846049061505519980176526594, +1.16317300146853814445521855352922934, +1.11607518765825599642059319237916887, +1.40725298888953675176408081944190585, +1.09938754816851404784858865040998734, +1.10594430262737596779392392752811194, +1.06560767303642525790084263004541279, +1.78049645525815260194034205039042200, +1.67582501840731786212325272481099303, +1.87580092887105585758667492800894789, +1.69374115562428013366527411231765450, +1.79698897753812064231265107641024265, +1.41209324188233763529293705201850290, +1.29167946916755817530745453052886256, +1.93445003180565167097803048011551160, +1.42904807968563302327859772832370542, +1.19557260183649351091715958810450687, +1.18502121844302405461681606851310928, +1.75006254598083617503429476070634447, +1.59543198577917115546134657517694341, +1.34653737796146052806002219885869285, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.866668474974256133875190074163217293E-33, -0.577778983316170755916793382775478196E-33, -0.770371977754894341222391177033970927E-33, -0.577778983316170755916793382775478196E-33, -0.770371977754894341222391177033970927E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34

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

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, atad(1:size(data)), 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, T, T, T

407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+40

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

413data

414(+1.45197666, +0.635520637), (+1.50622654, +0.593533099), (+1.49038005, +0.723739028), (+1.57452965, +0.436267495), (+1.57641029, +0.465305209), (+1.28142309, +0.417906821), (+1.66346669, +0.265004098), (+1.22762489, +0.360351086), (+1.01820898, +0.883251429), (+1.96458602, +0.484904826), (+1.70250845, +0.999642611E-1), (+1.34226823, +0.891260803), (+1.84901762, +0.775517583), (+1.78353429, +0.920334995), (+1.62560987, +0.869530618), (+1.56349039, +0.704280198), (+1.63487267, +0.900610209), (+1.69808412, +0.548260570), (+1.94131708, +0.836210191), (+1.20282960, +0.180175006), (+1.79721570, +0.587763906), (+1.13621175, +0.420080900), (+1.65596652, +0.423052132), (+1.95374489, +0.920988679), (+1.52645040, +0.102292180), (+1.47150159, +0.684351802), (+1.15995622, +0.495808780), (+1.77891779, +0.314385235), (+1.05274844, +0.610157728), (+1.73416471, +0.465677977), (+1.97949982, +0.482257724), (+1.62387097, +0.147317410), (+1.32412374, +0.559269786E-1), (+1.63207638, +0.208054781E-1), (+1.08206344, +0.311032534E-1), (+1.82468736, +0.280060828), (+1.44945931, +0.434216797), (+1.62957621, +0.739961863E-2), (+1.80870295, +0.634499252), (+1.26537478, +0.772651196)

415

416atad = getFFTI(getFFTF(data))

417atad

418(+1.45197666, +0.635520518), (+1.50622630, +0.593533039), (+1.49037981, +0.723738968), (+1.57452965, +0.436267436), (+1.57641053, +0.465305120), (+1.28142321, +0.417906761), (+1.66346657, +0.265003979), (+1.22762477, +0.360350907), (+1.01820898, +0.883251429), (+1.96458578, +0.484904945), (+1.70250821, +0.999643207E-1), (+1.34226823, +0.891260922), (+1.84901762, +0.775517821), (+1.78353429, +0.920335114), (+1.62560964, +0.869530678), (+1.56349027, +0.704280257), (+1.63487267, +0.900610149), (+1.69808412, +0.548260391), (+1.94131684, +0.836209893), (+1.20282960, +0.180174962), (+1.79721570, +0.587763906), (+1.13621187, +0.420080870), (+1.65596652, +0.423052043), (+1.95374465, +0.920988560), (+1.52645040, +0.102292210), (+1.47150135, +0.684351742), (+1.15995622, +0.495808691), (+1.77891779, +0.314385235), (+1.05274820, +0.610157728), (+1.73416460, +0.465678036), (+1.97949958, +0.482257694), (+1.62387085, +0.147317454), (+1.32412374, +0.559270978E-1), (+1.63207626, +0.208054483E-1), (+1.08206367, +0.311031938E-1), (+1.82468748, +0.280060709), (+1.44945931, +0.434216946), (+1.62957609, +0.739970803E-2), (+1.80870283, +0.634499311), (+1.26537502, +0.772651017), (+0.596046448E-7, +0.298023224E-7), (+0.178813934E-6, -0.223517418E-6), (+0.178813934E-6, -0.596046448E-7), (+0.417232513E-6, -0.596046448E-7), (+0.596046448E-7, -0.149011612E-6), (-0.596046448E-7, -0.178813934E-6), (+0.00000000, -0.894069672E-7), (+0.119209290E-6, -0.298023224E-7), (+0.00000000, +0.596046448E-7), (+0.00000000, +0.596046448E-7), (+0.178813934E-6, +0.238418579E-6), (+0.238418579E-6, +0.163912773E-6), (+0.238418579E-6, -0.119209290E-6), (-0.596046448E-7, -0.596046448E-7), (-0.238418579E-6, -0.298023224E-7), (+0.298023224E-6, -0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.298023224E-6, +0.596046448E-7), (+0.178813934E-6, +0.894069672E-7), (+0.238418579E-6, +0.208616257E-6), (+0.417232513E-6, -0.149011612E-6), (+0.357627869E-6, +0.149011612E-7), (-0.596046448E-7, -0.298023224E-7), (+0.596046448E-7, +0.149011612E-7)

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

420reltol

421+0.345266977E-3

422isClose(data, atad(1:size(data)), reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+12

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

430data

431(+1.1490341671392330, +0.55626851255927301), (+1.5499475650888221, +0.78130237139877534), (+1.8301196503031960, +0.78915422158502724), (+1.8863457359515969, +0.97586601788678362), (+1.4002538697415408, +0.15985954351983822), (+1.4064165015878212, +0.81199938174640351), (+1.7348526121671279, +0.85429528570240698), (+1.5226166659635521, +0.55163624390349997), (+1.6762952522157812, +0.86308543495863155), (+1.1005378993279886, +0.60502142553857075), (+1.2249818598335454, +0.10072973960019971), (+1.0349172578854176, +0.44216181685964018)

432

433atad = getFFTI(getFFTF(data))

434atad

435(+1.1490341671392330, +0.55626851255927301), (+1.5499475650888221, +0.78130237139877545), (+1.8301196503031953, +0.78915422158502735), (+1.8863457359515969, +0.97586601788678373), (+1.4002538697415408, +0.15985954351983805), (+1.4064165015878212, +0.81199938174640329), (+1.7348526121671277, +0.85429528570240643), (+1.5226166659635525, +0.55163624390349963), (+1.6762952522157812, +0.86308543495863166), (+1.1005378993279884, +0.60502142553857086), (+1.2249818598335451, +0.10072973960019954), (+1.0349172578854180, +0.44216181685963996), (+0.0000000000000000, +0.29143354396410359E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.61062266354383610E-15), (+0.66613381477509392E-15, +0.44408920985006262E-15)

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

437reltol

438+0.14901161193847656E-7

439isClose(data, atad(1:size(data)), reltol = reltol)

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

441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+19

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

447data

448(+1.40046726044971607233422108216343119, +0.792954001439113262237440199562630357), (+1.05225170854036956810863313916247504, +0.204334915564592966524949433620411956), (+1.26253206078911327749653480849743738, +0.467134147897232022345726874150722795), (+1.36936391232421597631596607610186754, +0.181665941078537340876143148463449066), (+1.16940183887740221014461147488252874, +0.856417776618400382177333554367470963), (+1.57404644728687283254223097820248436, +0.490684705471763882906996637431283219), (+1.36994162039776885274446734760526026, +0.630133733477628182123068576907294610), (+1.71988916050534948012088447072680523, +0.438344640113614776054997711413115951E-1), (+1.00737280374476055310583600773068088, +0.589732276868676559626088025015541500E-1), (+1.29301015903239314846100641174638208, +0.544153171213661354532610268731128516), (+1.29604284952715880186082970397032478, +0.491424886213073970388604941911661896), (+1.17077251811649228475805426834057680, +0.926205522355784460886357017555002761), (+1.72652502652040629818317080359148460, +0.938651783961228857344802658448768498), (+1.84249357622985901835324257375791368, +0.123187900144780443328800997610357967), (+1.89417107364948538609459697990313296, +0.841187400182005251825161903056839973), (+1.08813726077382972936579201813846070, +0.976886211819623874615304178454153079), (+1.37356591181858064590465618914364289, +0.740227448400957320002606634928723785), (+1.87162031880597894097452313033542316, +0.925680150242783095705988542108047508E-1), (+1.10766956158792877324973035980161279, +0.936369362813539155031905042991316614)

449

450atad = getFFTI(getFFTF(data))

451atad

452(+1.40046726044971607233422108216343119, +0.792954001439113262237440199562630357), (+1.05225170854036956810863313916247485, +0.204334915564592966524949433620412148), (+1.26253206078911327749653480849743777, +0.467134147897232022345726874150722891), (+1.36936391232421597631596607610186774, +0.181665941078537340876143148463448897), (+1.16940183887740221014461147488252874, +0.856417776618400382177333554367470963), (+1.57404644728687283254223097820248397, +0.490684705471763882906996637431283075), (+1.36994162039776885274446734760526045, +0.630133733477628182123068576907294514), (+1.71988916050534948012088447072680543, +0.438344640113614776054997711413113303E-1), (+1.00737280374476055310583600773068088, +0.589732276868676559626088025015541861E-1), (+1.29301015903239314846100641174638189, +0.544153171213661354532610268731128324), (+1.29604284952715880186082970397032497, +0.491424886213073970388604941911661896), (+1.17077251811649228475805426834057680, +0.926205522355784460886357017555002954), (+1.72652502652040629818317080359148479, +0.938651783961228857344802658448768594), (+1.84249357622985901835324257375791349, +0.123187900144780443328800997610357847), (+1.89417107364948538609459697990313296, +0.841187400182005251825161903056840166), (+1.08813726077382972936579201813846070, +0.976886211819623874615304178454153272), (+1.37356591181858064590465618914364309, +0.740227448400957320002606634928723881), (+1.87162031880597894097452313033542316, +0.925680150242783095705988542108044619E-1), (+1.10766956158792877324973035980161260, +0.936369362813539155031905042991316807), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-34), (+0.192592994438723585305597794258492732E-33, -0.331019209191556162243996208881784383E-34), (+0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-34), (+0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34)

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

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, atad(1:size(data)), reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+6

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

464data

465+1.33610034, +1.76940393, +1.85505247, +1.58185816, +1.80914593, +1.44888401

466

467atad = getFFTI(getFFTF(data))

468atad

469+1.33610022, +1.76940382, +1.85505223, +1.58185792, +1.80914581, +1.44888413, +0.119209290E-6, +0.178813934E-6

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

471reltol

472+0.345266977E-3

473isClose(data, atad(1:size(data)), reltol = reltol)

474T, T, T, T, T, T

475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+11

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

481data

482+1.5640449040452169, +1.3221399463800101, +1.9808581215893213, +1.6074156345497805, +1.5233808687571941, +1.8135395508291190, +1.8902232070234950, +1.9434934765566783, +1.9496630100292127, +1.0454214370404951, +1.5999057453871521

483

484atad = getFFTI(getFFTF(data))

485atad

486+1.5640449040452169, +1.3221399463800103, +1.9808581215893208, +1.6074156345497808, +1.5233808687571941, +1.8135395508291188, +1.8902232070234948, +1.9434934765566778, +1.9496630100292132, +1.0454214370404951, +1.5999057453871521, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.77715611723760958E-15

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

488reltol

489+0.14901161193847656E-7

490isClose(data, atad(1:size(data)), reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+40

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

498data

499+1.10222252909651250886616515466081188, +1.64323407334207815260781531663815044, +1.92792360908004759824539114692434635, +1.71203618696134572438379467173886641, +1.82183532662860104070401513324370266, +1.31602883100470157687193719448724554, +1.66591173417679631992395840444777385, +1.30436687943776296942093423383086515, +1.21863292027649998923910269942497383, +1.25579916694705148659378850240947587, +1.12244668424898692254223420583211759, +1.62757444679656648040706919714908676, +1.27453386702178335910971642103636809, +1.62901699550306611945613149315088377, +1.71724580276115649628067120036724801, +1.86468120413264330300010086444178708, +1.15592939213224424127125538751180823, +1.47262000277775541612441832639554824, +1.78764865297246802594079085726068396, +1.56441586734188557281920421494051925, +1.81664395567980532852902470168034362, +1.70921601260708958141304687311805698, +1.60277560939409019529658583383900639, +1.85290751441825178988608487806321534, +1.21200822845481125084993476249867791, +1.41898444254881157511515011857982421, +1.55977362864078181210983662880899778, +1.30521555176729306410223394129762584, +1.02597099844158486163561456381530516, +1.29676650076237592163964190885922652, +1.99539171033856698684791488297087339, +1.50287965195519855018200872226937126, +1.02537563026113673595197618844471485, +1.59279565905231628140467117717156434, +1.52813383552078837701721403030266139, +1.35835568182740890756119060779214582, +1.11154012122213864996777530091368081, +1.64157951805803658575132653912345717, +1.92738845979102848969471514065793074, +1.31887219588572823453355221276611653

500

501atad = getFFTI(getFFTF(data))

502atad

503+1.10222252909651250886616515466081169, +1.64323407334207815260781531663815063, +1.92792360908004759824539114692434615, +1.71203618696134572438379467173886679, +1.82183532662860104070401513324370305, +1.31602883100470157687193719448724573, +1.66591173417679631992395840444777385, +1.30436687943776296942093423383086535, +1.21863292027649998923910269942497364, +1.25579916694705148659378850240947587, +1.12244668424898692254223420583211759, +1.62757444679656648040706919714908676, +1.27453386702178335910971642103636847, +1.62901699550306611945613149315088377, +1.71724580276115649628067120036724820, +1.86468120413264330300010086444178670, +1.15592939213224424127125538751180784, +1.47262000277775541612441832639554824, +1.78764865297246802594079085726068377, +1.56441586734188557281920421494051925, +1.81664395567980532852902470168034362, +1.70921601260708958141304687311805717, +1.60277560939409019529658583383900601, +1.85290751441825178988608487806321554, +1.21200822845481125084993476249867772, +1.41898444254881157511515011857982441, +1.55977362864078181210983662880899759, +1.30521555176729306410223394129762584, +1.02597099844158486163561456381530496, +1.29676650076237592163964190885922709, +1.99539171033856698684791488297087339, +1.50287965195519855018200872226937145, +1.02537563026113673595197618844471466, +1.59279565905231628140467117717156434, +1.52813383552078837701721403030266158, +1.35835568182740890756119060779214602, +1.11154012122213864996777530091368042, +1.64157951805803658575132653912345736, +1.92738845979102848969471514065793113, +1.31887219588572823453355221276611672, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000

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

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, atad(1:size(data)), 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

509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

510

511

Test:: test_pm_fftnr

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 428 of file pm_fftnr.F90.

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

src/fortran/main/pm_fftnr.F90