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

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

Detailed Description

Generate and return the Reverse (unnormalized) 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,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of 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: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
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, getFFTR
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 = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKG))")
38 reltol = sqrt(epsilon(1._TKG))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKG => CKD
50 real(TKG) :: reltol
51 complex(TKG), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
57 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKG))")
68 reltol = sqrt(epsilon(1._TKG))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKG => CKH
80 real(TKG) :: reltol
81 complex(TKG), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
87 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKG))")
98 reltol = sqrt(epsilon(1._TKG))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKG => RKS
110 real(TKG) :: reltol
111 real(TKG), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
117 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKG))")
128 reltol = sqrt(epsilon(1._TKG))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKG => RKD
140 real(TKG) :: reltol
141 real(TKG), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
147 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKG))")
158 reltol = sqrt(epsilon(1._TKG))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKG => RKH
170 real(TKG) :: reltol
171 real(TKG), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
177 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKG))")
188 reltol = sqrt(epsilon(1._TKG))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
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
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
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
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
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
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
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
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
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+33
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.20851099, +0.390509546), (+1.82556295, +0.691176116), (+1.73625684, +0.178346455), (+1.16942096, +0.740947843), (+1.32564282, +0.195901990E-1), (+1.31232381, +0.571609437), (+1.95724738, +0.907332957), (+1.17181385, +0.330809832), (+1.04469705, +0.625606179), (+1.54935765, +0.511854529), (+1.49647474, +0.991618931), (+1.78736186, +0.524338067), (+1.75608420, +0.586957335E-1), (+1.29897392, +0.714546680), (+1.67111969, +0.342770040), (+1.11436224, +0.156483054E-1), (+1.48663521, +0.512499332), (+1.41297615, +0.787274122), (+1.38810408, +0.591257572), (+1.08477831, +0.787761748), (+1.62839961, +0.772823691), (+1.61505246, +0.541290402), (+1.65978646, +0.566754639), (+1.70013869, +0.493856251), (+1.68483591, +0.709862351), (+1.39930809, +0.577266514), (+1.64265013, +0.454530239), (+1.08373046, +0.254330158), (+1.21936488, +0.854564667), (+1.27926731, +0.739197552), (+1.45454144, +0.141522825), (+1.08228469, +0.200173855), (+1.77935529, +0.881350040E-1)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.20851111, +0.390509576), (+1.82556283, +0.691176116), (+1.73625648, +0.178346395), (+1.16942072, +0.740947723), (+1.32564282, +0.195901543E-1), (+1.31232369, +0.571609378), (+1.95724726, +0.907332778), (+1.17181373, +0.330809772), (+1.04469705, +0.625606179), (+1.54935741, +0.511854649), (+1.49647450, +0.991618812), (+1.78736162, +0.524338007), (+1.75608420, +0.586961061E-1), (+1.29897368, +0.714546740), (+1.67111969, +0.342770189), (+1.11436224, +0.156483985E-1), (+1.48663521, +0.512499273), (+1.41297603, +0.787274003), (+1.38810408, +0.591257453), (+1.08477831, +0.787761569), (+1.62839961, +0.772823751), (+1.61505234, +0.541290402), (+1.65978646, +0.566754460), (+1.70013881, +0.493856162), (+1.68483567, +0.709862351), (+1.39930785, +0.577266455), (+1.64264989, +0.454530120), (+1.08373046, +0.254330039), (+1.21936452, +0.854564726), (+1.27926707, +0.739197612), (+1.45454133, +0.141522884), (+1.08228469, +0.200174004), (+1.77935529, +0.881349742E-1), (+0.119209290E-6, +0.596046448E-7), (+0.238418579E-6, +0.968575478E-7), (+0.417232513E-6, +0.208616257E-6), (-0.119209290E-6, +0.447034836E-7), (+0.119209290E-6, +0.298023224E-7), (+0.00000000, +0.149011612E-6), (+0.298023224E-6, +0.134110451E-6), (+0.596046448E-7, +0.00000000), (+0.178813934E-6, -0.298023224E-7), (+0.596046448E-7, +0.00000000), (+0.298023224E-6, +0.00000000), (+0.00000000, -0.283122063E-6), (+0.357627869E-6, -0.119209290E-6), (-0.238418579E-6, -0.119209290E-6), (+0.596046448E-7, -0.782310963E-7), (+0.00000000, +0.596046448E-7), (+0.178813934E-6, +0.119209290E-6), (+0.00000000, +0.119209290E-6), (+0.178813934E-6, +0.208616257E-6), (-0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.00000000), (+0.00000000, +0.894069672E-7), (+0.178813934E-6, +0.894069672E-7), (+0.298023224E-6, +0.00000000), (+0.238418579E-6, +0.894069672E-7), (+0.596046448E-7, +0.447034836E-7), (+0.298023224E-6, +0.119209290E-6), (+0.119209290E-6, -0.178813934E-6), (+0.298023224E-6, -0.298023224E-7), (-0.119209290E-6, -0.894069672E-7), (+0.596046448E-7, -0.111758709E-6)
12reltol = sqrt(epsilon(1._TKG))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+72
22data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
23data
24(+1.1553033620306890, +0.25659520821679116), (+1.2412256352588289, +0.90430129291345074), (+1.2973385226710494, +0.17497869468027705), (+1.5025101474112974, +0.43135564651440295), (+1.9256002220593653, +0.25036358039940432), (+1.2292056811581091, +0.69151390789994771E-1), (+1.1084606553976302, +0.88622313677917175E-1), (+1.8740452415811282, +0.83917161169860677), (+1.5017952904201566, +0.45949012167609082), (+1.0859926294261810, +0.86009548111320278), (+1.8630342669875168, +0.56497949136661274), (+1.1626758485228796, +0.52958680688157433), (+1.3351300301103044, +0.98628295605419025), (+1.5580235848366790, +0.90953034217821427), (+1.1109078373626113, +0.72682840472373145), (+1.2276563268378529, +0.86582142019262809), (+1.2742894017556541, +0.64366086529953070), (+1.2401664769773739, +0.44512028318435815E-1), (+1.0615222498017844, +0.19259613232501249), (+1.5292212761075552, +0.89874440265543309), (+1.7157720453962271, +0.34033355646116958), (+1.8789998851236480, +0.47017638026377329), (+1.6865638541135042, +0.32842680923020129), (+1.0949132173806175, +0.16193704073586590), (+1.1200495851629189, +0.24136737705053524), (+1.0206969322852433, +0.74366702723583455), (+1.4475220616217754, +0.62104553451578548), (+1.5659140990990794, +0.24065493002258898), (+1.4729940135060033, +0.85024167012366547), (+1.5197857008394080, +0.31001562579245145), (+1.8592157860970797, +0.96309545054558521), (+1.0022624323855598, +0.87471433957472744), (+1.7871560805616216, +0.62719920217985847), (+1.1229797582281544, +0.52114716101446801), (+1.9471888756050557, +0.81426912929784490), (+1.3943877288345841, +0.96390584430354531E-1), (+1.7848657611932413, +0.89536720461736274), (+1.5735281475119125, +0.77500917169872452), (+1.3317349015059721, +0.69429295079094855), (+1.3064233900326288, +0.47871745303348034), (+1.0236946410993226, +0.30437694287414885), (+1.3621956136059823, +0.13416330158194523), (+1.7430913387563243, +0.73229318078665695), (+1.2905853766807920, +0.46216442461830820), (+1.2657286773073735, +0.75693672722873306E-1), (+1.4521507109408831, +0.76682964958974575), (+1.7494287746160073, +0.80236901482812650), (+1.9341790662597387, +0.87968852336923575), (+1.7125784291111956, +0.93503435802028501), (+1.2549591531166366, +0.30336172515986837), (+1.1660807618689613, +0.51880842335245136), (+1.3326795493069912, +0.12729646617070023), (+1.4191464678503951, +0.70566604347162787), (+1.8342967551342964, +0.28476581872652751), (+1.5606634770402912, +0.36375027744387056E-1), (+1.6413427317515796, +0.74459266242747768), (+1.4502370967989604, +0.68385007847702217), (+1.4934260243356205, +0.31146213458907523), (+1.5277056121347141, +0.80426731857343980), (+1.5143089987585476, +0.26068853041177897E-2), (+1.2257641376160757, +0.52723640937685157), (+1.3679965911349585, +0.79759348666126073), (+1.7262688510320559, +0.50713795031803677), (+1.9309216404286684, +0.42134047997657620), (+1.4022647514934943, +0.48128059677942392), (+1.6492739857900904, +0.89641680736834206E-1), (+1.4133823824831531, +0.96643198001085251), (+1.8730371948711633, +0.10254299263167321), (+1.4686883337113501, +0.20061911305142255), (+1.0899821017298081, +0.99047859625760193), (+1.1507826878481358, +0.31993627950633574), (+1.7102743807361291, +0.76085655898965376)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.1553033620306887, +0.25659520821679127), (+1.2412256352588289, +0.90430129291345096), (+1.2973385226710492, +0.17497869468027694), (+1.5025101474112974, +0.43135564651440328), (+1.9256002220593644, +0.25036358039940432), (+1.2292056811581094, +0.69151390789994882E-1), (+1.1084606553976297, +0.88622313677917341E-1), (+1.8740452415811280, +0.83917161169860677), (+1.5017952904201568, +0.45949012167609093), (+1.0859926294261808, +0.86009548111320289), (+1.8630342669875166, +0.56497949136661330), (+1.1626758485228796, +0.52958680688157456), (+1.3351300301103040, +0.98628295605419058), (+1.5580235848366786, +0.90953034217821427), (+1.1109078373626113, +0.72682840472373167), (+1.2276563268378526, +0.86582142019262842), (+1.2742894017556536, +0.64366086529953082), (+1.2401664769773739, +0.44512028318435815E-1), (+1.0615222498017842, +0.19259613232501244), (+1.5292212761075550, +0.89874440265543309), (+1.7157720453962262, +0.34033355646116953), (+1.8789998851236478, +0.47017638026377306), (+1.6865638541135040, +0.32842680923020112), (+1.0949132173806175, +0.16193704073586582), (+1.1200495851629189, +0.24136737705053532), (+1.0206969322852433, +0.74366702723583433), (+1.4475220616217750, +0.62104553451578548), (+1.5659140990990790, +0.24065493002258903), (+1.4729940135060029, +0.85024167012366525), (+1.5197857008394076, +0.31001562579245151), (+1.8592157860970793, +0.96309545054558487), (+1.0022624323855598, +0.87471433957472722), (+1.7871560805616213, +0.62719920217985825), (+1.1229797582281544, +0.52114716101446779), (+1.9471888756050562, +0.81426912929784456), (+1.3943877288345843, +0.96390584430354573E-1), (+1.7848657611932413, +0.89536720461736241), (+1.5735281475119129, +0.77500917169872441), (+1.3317349015059725, +0.69429295079094810), (+1.3064233900326283, +0.47871745303348001), (+1.0236946410993226, +0.30437694287414896), (+1.3621956136059823, +0.13416330158194520), (+1.7430913387563238, +0.73229318078665684), (+1.2905853766807918, +0.46216442461830798), (+1.2657286773073730, +0.75693672722873057E-1), (+1.4521507109408827, +0.76682964958974542), (+1.7494287746160073, +0.80236901482812617), (+1.9341790662597385, +0.87968852336923553), (+1.7125784291111956, +0.93503435802028456), (+1.2549591531166364, +0.30336172515986803), (+1.1660807618689608, +0.51880842335245103), (+1.3326795493069910, +0.12729646617069987), (+1.4191464678503949, +0.70566604347162731), (+1.8342967551342959, +0.28476581872652706), (+1.5606634770402907, +0.36375027744386570E-1), (+1.6413427317515796, +0.74459266242747724), (+1.4502370967989604, +0.68385007847702206), (+1.4934260243356201, +0.31146213458907490), (+1.5277056121347137, +0.80426731857343925), (+1.5143089987585472, +0.26068853041175052E-2), (+1.2257641376160755, +0.52723640937685101), (+1.3679965911349585, +0.79759348666125973), (+1.7262688510320552, +0.50713795031803577), (+1.9309216404286680, +0.42134047997657553), (+1.4022647514934941, +0.48128059677942392), (+1.6492739857900902, +0.89641680736834095E-1), (+1.4133823824831528, +0.96643198001085251), (+1.8730371948711633, +0.10254299263167321), (+1.4686883337113494, +0.20061911305142222), (+1.0899821017298081, +0.99047859625760160), (+1.1507826878481355, +0.31993627950633519), (+1.7102743807361291, +0.76085655898965321), (-0.11102230246251565E-15, -0.13877787807814457E-15), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.49960036108132044E-15), (-0.11102230246251565E-15, -0.61062266354383610E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, -0.44408920985006262E-15), (+0.22204460492503131E-15, -0.49960036108132044E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.0000000000000000, -0.33306690738754696E-15), (-0.22204460492503131E-15, -0.97144514654701197E-16), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (-0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, -0.22204460492503131E-15), (-0.33306690738754696E-15, -0.55511151231257827E-16), (+0.22204460492503131E-15, -0.97144514654701197E-16), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.55511151231257827E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (-0.33306690738754696E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (-0.77715611723760958E-15, +0.0000000000000000), (+0.11102230246251565E-15, +0.18041124150158794E-15), (-0.77715611723760958E-15, +0.22204460492503131E-15), (-0.33306690738754696E-15, -0.55511151231257827E-16), (-0.44408920985006262E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.83266726846886741E-16), (+0.0000000000000000, -0.13877787807814457E-15), (+0.0000000000000000, -0.27755575615628914E-16), (-0.22204460492503131E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (+0.0000000000000000, +0.30531133177191805E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.19428902930940239E-15), (-0.22204460492503131E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.51347814888913490E-15), (+0.33306690738754696E-15, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.19428902930940239E-15), (-0.33306690738754696E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.43715031594615539E-15), (-0.44408920985006262E-15, +0.77715611723760958E-15), (+0.11102230246251565E-15, +0.10547118733938987E-14), (-0.11102230246251565E-15, +0.88817841970012523E-15), (+0.11102230246251565E-15, +0.86042284408449632E-15)
30reltol = sqrt(epsilon(1._TKG))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+32
40data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
41data
42(+1.30155470396998178869157060619515257, +0.816590639990098061535033701662906912), (+1.82541832917982320803821308945905706, +0.596219157698109528333671162883235174), (+1.99331191127409122283927508592335804, +0.300652352276714712980031917659146173), (+1.18439707732849230264967562647220825, +0.398116399782322348551844635270996184), (+1.95834112287850543468900193774861708, +0.710556958513604328366225690641930986), (+1.94230428333297089459240911201134438, +0.173754101533530599513840153126293204E-1), (+1.39545472101460423392492319902806595, +0.103447166819245172762149306568839867E-1), (+1.97749504846944486771030640531381011, +0.110509005317104797004198374309131501), (+1.90013588567878724817984633806990449, +0.816119436211507231107016338372066507), (+1.02693943998324993991019746898385974, +0.457462989072865988990040946016497963), (+1.00899607280888819453413305310791711, +0.172265396219724908910732585473356493), (+1.97559408177981133014342597128575011, +0.941822974282966476285783878803264077), (+1.84491481745410716156520626623626507, +0.417884070801480438039561387209224612), (+1.50883966801446114425198200999727811, +0.347361126818256993628567700121510549), (+1.25923855292975826531924190211691838, +0.943669409537294641135288249985298183E-1), (+1.30920619094838059889243142301354902, +0.880423064380532120433056194209580992), (+1.74590791272620259913080768222918796, +0.639586433977650727229025606329131948), (+1.06716007777809328769858685382438135, +0.658970857919822166426897980822465974), (+1.62273716374695846681019849577822107, +0.256509318285274603448002668871639404), (+1.39762003701160684528596280123119058, +0.160200701458105005163222155677801956), (+1.85153361897999120411405541456453619, +0.511559380026324311436361387439385486), (+1.41272796014087940252652163417102521, +0.184345763152488557058074951351783285), (+1.18883664811210626010870358643364025, +0.588650312082015240311657676043113507), (+1.52191732931764563302667976625787570, +0.748540078406247312494252699968185355), (+1.94226676347721424185534858689512779, +0.247432624208405814891601653609561660), (+1.03125205304924164474647309194081690, +0.565477238402437875323123953769625644), (+1.24772064539911121485463018596601709, +0.136034927559691460349130394536208940), (+1.55731989189819941175115999672809448, +0.302780492561773048471787178190215459), (+1.10498303640766478486568944703405538, +0.264971012260778374301638686568070440), (+1.41118996529389981419030848094918036, +0.310173690732797830194722006106771119), (+1.65529029258415192692339156099278441, +0.852285679101331861931147448002656779), (+1.68996561302893605410509875156691369, +0.962549339116967448276955691746410160)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.30155470396998178869157060619515276, +0.816590639990098061535033701662906912), (+1.82541832917982320803821308945905725, +0.596219157698109528333671162883235174), (+1.99331191127409122283927508592335824, +0.300652352276714712980031917659146221), (+1.18439707732849230264967562647220806, +0.398116399782322348551844635270995992), (+1.95834112287850543468900193774861728, +0.710556958513604328366225690641930890), (+1.94230428333297089459240911201134438, +0.173754101533530599513840153126293084E-1), (+1.39545472101460423392492319902806614, +0.103447166819245172762149306568840830E-1), (+1.97749504846944486771030640531381011, +0.110509005317104797004198374309131356), (+1.90013588567878724817984633806990468, +0.816119436211507231107016338372066507), (+1.02693943998324993991019746898385974, +0.457462989072865988990040946016498011), (+1.00899607280888819453413305310791730, +0.172265396219724908910732585473356517), (+1.97559408177981133014342597128574992, +0.941822974282966476285783878803264269), (+1.84491481745410716156520626623626526, +0.417884070801480438039561387209224612), (+1.50883966801446114425198200999727830, +0.347361126818256993628567700121510646), (+1.25923855292975826531924190211691877, +0.943669409537294641135288249985298664E-1), (+1.30920619094838059889243142301354883, +0.880423064380532120433056194209580992), (+1.74590791272620259913080768222918815, +0.639586433977650727229025606329132044), (+1.06716007777809328769858685382438155, +0.658970857919822166426897980822466070), (+1.62273716374695846681019849577822126, +0.256509318285274603448002668871639549), (+1.39762003701160684528596280123119039, +0.160200701458105005163222155677801956), (+1.85153361897999120411405541456453638, +0.511559380026324311436361387439385486), (+1.41272796014087940252652163417102540, +0.184345763152488557058074951351783381), (+1.18883664811210626010870358643364044, +0.588650312082015240311657676043113603), (+1.52191732931764563302667976625787550, +0.748540078406247312494252699968185259), (+1.94226676347721424185534858689512779, +0.247432624208405814891601653609561611), (+1.03125205304924164474647309194081690, +0.565477238402437875323123953769625836), (+1.24772064539911121485463018596601728, +0.136034927559691460349130394536208964), (+1.55731989189819941175115999672809448, +0.302780492561773048471787178190215556), (+1.10498303640766478486568944703405557, +0.264971012260778374301638686568070343), (+1.41118996529389981419030848094918036, +0.310173690732797830194722006106771215), (+1.65529029258415192692339156099278441, +0.852285679101331861931147448002656876), (+1.68996561302893605410509875156691350, +0.962549339116967448276955691746410353)
48reltol = sqrt(epsilon(1._TKG))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+48
58data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
59data
60+1.50447202, +1.49257731, +1.77158666, +1.47607040, +1.26870930, +1.33947396, +1.93359780, +1.97936630, +1.04430676, +1.70526516, +1.46942568, +1.18441653, +1.59642756, +1.47318935, +1.95992386, +1.59579730, +1.13861918, +1.25612617, +1.82718205, +1.29303813, +1.96768522, +1.56606853, +1.38640559, +1.58938575, +1.47580671, +1.54874122, +1.06549239, +1.86837935, +1.80762947, +1.72679329, +1.23125207, +1.14735365, +1.31598163, +1.62750089, +1.35245800, +1.92400455, +1.80844498, +1.19872427, +1.13567650, +1.84499717, +1.97879577, +1.16078401, +1.33892632, +1.85043502, +1.51898289, +1.70402980, +1.77552330, +1.46542609
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.50447202, +1.49257720, +1.77158642, +1.47607017, +1.26870918, +1.33947396, +1.93359768, +1.97936606, +1.04430652, +1.70526505, +1.46942556, +1.18441641, +1.59642756, +1.47318959, +1.95992362, +1.59579730, +1.13861942, +1.25612628, +1.82718205, +1.29303825, +1.96768534, +1.56606865, +1.38640547, +1.58938563, +1.47580671, +1.54874110, +1.06549239, +1.86837924, +1.80762947, +1.72679341, +1.23125184, +1.14735365, +1.31598163, +1.62750089, +1.35245800, +1.92400455, +1.80844474, +1.19872427, +1.13567626, +1.84499717, +1.97879553, +1.16078377, +1.33892643, +1.85043466, +1.51898277, +1.70402956, +1.77552307, +1.46542621, -0.596046448E-7, +0.119209290E-6, -0.238418579E-6, +0.357627869E-6, +0.119209290E-6, +0.178813934E-6, -0.178813934E-6, +0.00000000, +0.238418579E-6, +0.178813934E-6, -0.596046448E-7, +0.238418579E-6, +0.238418579E-6, +0.119209290E-6, -0.357627869E-6, +0.596046448E-7
66reltol = sqrt(epsilon(1._TKG))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+51
76data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
77data
78+1.6696597384435603, +1.2128617725254174, +1.0435209098553380, +1.2450624017697609, +1.6739322039883366, +1.0297372222548127, +1.5983229611713856, +1.2993834943385694, +1.6906835954380039, +1.4908486931980960, +1.3309491494548609, +1.4064546190362939, +1.1386356586527282, +1.0392898041850946, +1.6436508895152238, +1.3899575554603376, +1.8719069240627864, +1.6151292130917390, +1.0335237376347326, +1.6086582445519761, +1.2341837854467022, +1.4174190666578159, +1.2707027878656130, +1.1815518006595758, +1.4266602374999922, +1.9206820167709702, +1.8897030399240831, +1.9510620280501090, +1.3739340645854892, +1.8810658465418486, +1.0921190607538229, +1.1300642728649419, +1.7727391622323685, +1.8715979586990563, +1.9134430558469249, +1.8539815605596741, +1.0434735147910130, +1.0571926655545965, +1.3757688766003220, +1.5631667740958162, +1.6771838673383095, +1.0832492198752286, +1.2932874648607806, +1.8706492013676197, +1.0704701813217279, +1.5304682456924292, +1.9562276966418239, +1.3338888458118696, +1.1881729794574933, +1.8782492570956109, +1.2484563323393782
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.6696597384435601, +1.2128617725254176, +1.0435209098553380, +1.2450624017697609, +1.6739322039883362, +1.0297372222548129, +1.5983229611713854, +1.2993834943385691, +1.6906835954380037, +1.4908486931980962, +1.3309491494548606, +1.4064546190362939, +1.1386356586527282, +1.0392898041850946, +1.6436508895152235, +1.3899575554603374, +1.8719069240627861, +1.6151292130917392, +1.0335237376347330, +1.6086582445519759, +1.2341837854467017, +1.4174190666578157, +1.2707027878656132, +1.1815518006595751, +1.4266602374999922, +1.9206820167709702, +1.8897030399240826, +1.9510620280501083, +1.3739340645854892, +1.8810658465418484, +1.0921190607538229, +1.1300642728649417, +1.7727391622323683, +1.8715979586990565, +1.9134430558469251, +1.8539815605596734, +1.0434735147910130, +1.0571926655545967, +1.3757688766003222, +1.5631667740958159, +1.6771838673383090, +1.0832492198752288, +1.2932874648607811, +1.8706492013676193, +1.0704701813217281, +1.5304682456924290, +1.9562276966418242, +1.3338888458118692, +1.1881729794574938, +1.8782492570956115, +1.2484563323393787, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.77715611723760958E-15, -0.66613381477509392E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.33306690738754696E-15
84reltol = sqrt(epsilon(1._TKG))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+82
94data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
95data
96+1.18256984629137297422859661774302120, +1.29420382611295684647759292320740568, +1.54173936327870430341318789304591600, +1.85195144833551249600489932817354134, +1.29273980420654008308184928978786838, +1.24383805576302773521818700788772499, +1.78426092862019448422106712320819357, +1.44049631255940142970210510053701669, +1.75587073434550009473578007060715293, +1.51217798886133457525260653834733379, +1.24120440167606991813996564954787979, +1.63104808067644898042733994182148323, +1.70480027608420592753741731431096649, +1.63193247095313979498127159141820096, +1.82232104685180408603008124009667170, +1.11741949221321405763219295976936711, +1.39062416456283332401850942926619112, +1.69948531591546144049761040667159354, +1.46291787868311036815389560888165141, +1.54122375262281577514886718653865860, +1.68828783621175078388589844975020222, +1.05573226232571483593056270311165726, +1.77759416398074051162248131811807776, +1.05492276353943463867152255665349308, +1.43811509406047437889660321685161375, +1.80991320926810831549096890383824729, +1.84315099562902163465557832550498084, +1.86239492426635334642730943125889234, +1.48272729558708722242228964438657918, +1.15616937937569065931124444182983837, +1.77150305874150216010665178340793091, +1.45659208740791816359912322917064061, +1.06918589151715049843729439018451264, +1.06229648053188716788110927183882563, +1.16591581575406457996824818099284520, +1.85097773714645587236567632127113715, +1.85620273123027086581706582516865396, +1.31928395288654767963404717192032783, +1.05794779009732613016849249078345701, +1.02573817393517548625047373900102623, +1.63089353004411984273736026074236117, +1.31197215227193326622680054959703660, +1.26392618820469756478904227990570718, +1.87364519626563549699041620094422452, +1.74220899401986807644255004210278612, +1.83886092866586604740187540287992268, +1.85224805119920704240244504048901726, +1.67843985568522358903250709946498048, +1.71667418538687913410612668911330309, +1.45355750951531558753791627697465968, +1.53887962255042900975711927270306963, +1.85872249641605655871763932995317564, +1.91921405002407109812367247162479276, +1.52552910358766518210572622431184123, +1.43538621003964152543777035544077959, +1.86120280173652559118162809669920248, +1.39839816871903447879817442791614050, +1.62848107210853440876743179789267821, +1.40462353018335739962226015973538289, +1.53552416501908319222212501631857434, +1.32922476123467286636426475497957012, +1.50479460577924427390688183947062865, +1.26927519829955780091890056566258857, +1.06409711731200488609841170794104389, +1.47210118250686587845012499738139556, +1.80679869654202369754451778708141737, +1.06874317574293202721252542173128349, +1.65685420347986675158609804631921001, +1.68464687906535842504878050178381717, +1.85731277668551265672250402139294374, +1.25531154027690178236006508881004990, +1.52708582204294796083746370072563535, +1.37663269875615514688615980140574332, +1.69337522241117629164392765329046625, +1.13438982480556100874200371140919404, +1.60839693688620677248011590857786021, +1.92037893925892291796746493365809629, +1.57754887788206924684658600786205986, +1.60326451066674060958251596799194769, +1.50119934042431848316694636387560084, +1.72842814799094330825828062929677733, +1.55075702088267089991192474178115785
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.18256984629137297422859661774302120, +1.29420382611295684647759292320740568, +1.54173936327870430341318789304591600, +1.85195144833551249600489932817354134, +1.29273980420654008308184928978786780, +1.24383805576302773521818700788772461, +1.78426092862019448422106712320819357, +1.44049631255940142970210510053701649, +1.75587073434550009473578007060715351, +1.51217798886133457525260653834733379, +1.24120440167606991813996564954787998, +1.63104808067644898042733994182148304, +1.70480027608420592753741731431096630, +1.63193247095313979498127159141820077, +1.82232104685180408603008124009667189, +1.11741949221321405763219295976936672, +1.39062416456283332401850942926619093, +1.69948531591546144049761040667159335, +1.46291787868311036815389560888165102, +1.54122375262281577514886718653865860, +1.68828783621175078388589844975020145, +1.05573226232571483593056270311165687, +1.77759416398074051162248131811807738, +1.05492276353943463867152255665349308, +1.43811509406047437889660321685161355, +1.80991320926810831549096890383824748, +1.84315099562902163465557832550498045, +1.86239492426635334642730943125889253, +1.48272729558708722242228964438657918, +1.15616937937569065931124444182983818, +1.77150305874150216010665178340793072, +1.45659208740791816359912322917064061, +1.06918589151715049843729439018451245, +1.06229648053188716788110927183882544, +1.16591581575406457996824818099284520, +1.85097773714645587236567632127113715, +1.85620273123027086581706582516865396, +1.31928395288654767963404717192032783, +1.05794779009732613016849249078345701, +1.02573817393517548625047373900102623, +1.63089353004411984273736026074236136, +1.31197215227193326622680054959703622, +1.26392618820469756478904227990570718, +1.87364519626563549699041620094422471, +1.74220899401986807644255004210278651, +1.83886092866586604740187540287992268, +1.85224805119920704240244504048901726, +1.67843985568522358903250709946498067, +1.71667418538687913410612668911330309, +1.45355750951531558753791627697465929, +1.53887962255042900975711927270306943, +1.85872249641605655871763932995317526, +1.91921405002407109812367247162479276, +1.52552910358766518210572622431184046, +1.43538621003964152543777035544077940, +1.86120280173652559118162809669920209, +1.39839816871903447879817442791614050, +1.62848107210853440876743179789267821, +1.40462353018335739962226015973538270, +1.53552416501908319222212501631857395, +1.32922476123467286636426475497956993, +1.50479460577924427390688183947062846, +1.26927519829955780091890056566258819, +1.06409711731200488609841170794104331, +1.47210118250686587845012499738139517, +1.80679869654202369754451778708141737, +1.06874317574293202721252542173128311, +1.65685420347986675158609804631920982, +1.68464687906535842504878050178381698, +1.85731277668551265672250402139294374, +1.25531154027690178236006508881004990, +1.52708582204294796083746370072563535, +1.37663269875615514688615980140574294, +1.69337522241117629164392765329046664, +1.13438982480556100874200371140919346, +1.60839693688620677248011590857786040, +1.92037893925892291796746493365809649, +1.57754887788206924684658600786206005, +1.60326451066674060958251596799194789, +1.50119934042431848316694636387560103, +1.72842814799094330825828062929677733, +1.55075702088267089991192474178115785, +0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, +0.674075480535532548569592279904724561E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33
102reltol = sqrt(epsilon(1._TKG))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+95
112data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
113data
114(+1.43041873, +0.283699512), (+1.77786303, +0.842587531), (+1.85190141, +0.591447234), (+1.51058125, +0.970939517), (+1.34949970, +0.392266929), (+1.49514711, +0.310514569), (+1.11753798, +0.283884048), (+1.34382796, +0.943578303), (+1.84833646, +0.181275904), (+1.35001206, +0.118334234), (+1.03146696, +0.440207124), (+1.50490212, +0.838880658), (+1.09467173, +0.945967793), (+1.30339408, +0.373399496), (+1.93090510, +0.339057624), (+1.67452812, +0.395566881), (+1.79889572, +0.779187381), (+1.53560686, +0.923640132), (+1.06513190, +0.353548825), (+1.91600072, +0.930359900), (+1.36631870, +0.592196643), (+1.77718115, +0.624542236E-1), (+1.42696905, +0.364390016), (+1.36800802, +0.302074730), (+1.77939582, +0.640940666), (+1.31743085, +0.426774204), (+1.64775801, +0.984030247), (+1.18088305, +0.465399146), (+1.79964352, +0.574759066), (+1.20639038, +0.538160264), (+1.31771541, +0.852875888), (+1.01863790, +0.955039859E-1), (+1.32604361, +0.399864256), (+1.29018068, +0.320253909), (+1.98045802, +0.332909584), (+1.77438593, +0.482026517), (+1.22997260, +0.897886753E-1), (+1.16751361, +0.113182664E-1), (+1.46802187, +0.589245379), (+1.78617346, +0.772280276), (+1.66599321, +0.551251233), (+1.28570747, +0.999998927), (+1.10187674, +0.620001078), (+1.77124012, +0.542074978), (+1.83088684, +0.873316765), (+1.26797581, +0.700854421), (+1.21886086, +0.194369972), (+1.94760394, +0.754216611), (+1.96979713, +0.556317151), (+1.37701035, +0.472481966), (+1.57635725, +0.888524830), (+1.49782395, +0.702236891), (+1.62730765, +0.769912422), (+1.97490788, +0.227517486E-1), (+1.06042361, +0.928846419), (+1.16025364, +0.494618058), (+1.77874267, +0.188859940), (+1.75582409, +0.372468710), (+1.20138931, +0.117929101), (+1.30291724, +0.103541553), (+1.60548115, +0.319168210), (+1.59275007, +0.384251773), (+1.98248792, +0.697212458), (+1.10798836, +0.398302972), (+1.14691448, +0.364096642), (+1.32839584, +0.604411066), (+1.26812267, +0.708606422), (+1.47596598, +0.940503597), (+1.87272167, +0.559625626), (+1.01133978, +0.178979635E-1), (+1.05601692, +0.320625365), (+1.51087666, +0.855630100), (+1.13955808, +0.143679857), (+1.98298931, +0.165314913), (+1.97778440, +0.526377439), (+1.33002245, +0.247668445), (+1.17379951, +0.714873791), (+1.20733333, +0.211951733), (+1.67106736, +0.870990753E-1), (+1.90459096, +0.811471939), (+1.81309533, +0.394522250), (+1.66437387, +0.810376883), (+1.01777124, +0.363981724E-1), (+1.25024951, +0.606247246), (+1.69050670, +0.393691659), (+1.61593413, +0.676589012), (+1.02772892, +0.783388019E-1), (+1.34705734, +0.227595031), (+1.90317428, +0.946207345), (+1.68657422, +0.606133938), (+1.64431441, +0.158477426), (+1.52740514, +0.741286457), (+1.10316169, +0.216333747), (+1.66044140, +0.261682689), (+1.94347930, +0.580196381E-1)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.43041861, +0.283699542), (+1.77786291, +0.842587531), (+1.85190129, +0.591447175), (+1.51058090, +0.970939517), (+1.34949958, +0.392266929), (+1.49514711, +0.310514510), (+1.11753774, +0.283883929), (+1.34382772, +0.943578124), (+1.84833646, +0.181275904), (+1.35001206, +0.118334271), (+1.03146720, +0.440207243), (+1.50490201, +0.838880658), (+1.09467185, +0.945967734), (+1.30339408, +0.373399496), (+1.93090510, +0.339057565), (+1.67452800, +0.395566940), (+1.79889572, +0.779187381), (+1.53560662, +0.923640132), (+1.06513202, +0.353548825), (+1.91600013, +0.930359781), (+1.36631882, +0.592196822), (+1.77718103, +0.624542236E-1), (+1.42696881, +0.364390016), (+1.36800778, +0.302074790), (+1.77939570, +0.640940785), (+1.31743073, +0.426774442), (+1.64775801, +0.984030247), (+1.18088293, +0.465399295), (+1.79964375, +0.574759245), (+1.20639026, +0.538160384), (+1.31771564, +0.852875948), (+1.01863790, +0.955040827E-1), (+1.32604361, +0.399864137), (+1.29018056, +0.320253730), (+1.98045802, +0.332909346), (+1.77438545, +0.482026309), (+1.22997260, +0.897885561E-1), (+1.16751361, +0.113180950E-1), (+1.46802187, +0.589245081), (+1.78617334, +0.772279918), (+1.66599321, +0.551251113), (+1.28570735, +0.999998748), (+1.10187662, +0.620000780), (+1.77124000, +0.542074978), (+1.83088684, +0.873316705), (+1.26797581, +0.700854301), (+1.21886086, +0.194369838), (+1.94760370, +0.754216433), (+1.96979702, +0.556316972), (+1.37701035, +0.472481847), (+1.57635713, +0.888524413), (+1.49782372, +0.702236533), (+1.62730765, +0.769912302), (+1.97490764, +0.227517188E-1), (+1.06042361, +0.928846061), (+1.16025352, +0.494617939), (+1.77874255, +0.188859984), (+1.75582409, +0.372468591), (+1.20138955, +0.117928997), (+1.30291700, +0.103541493), (+1.60548115, +0.319168121), (+1.59275007, +0.384251773), (+1.98248792, +0.697212338), (+1.10798812, +0.398302794), (+1.14691436, +0.364096671), (+1.32839572, +0.604411066), (+1.26812291, +0.708606184), (+1.47596586, +0.940503478), (+1.87272179, +0.559625447), (+1.01133978, +0.178979188E-1), (+1.05601692, +0.320625305), (+1.51087666, +0.855630040), (+1.13955808, +0.143679947), (+1.98298907, +0.165314972), (+1.97778440, +0.526377439), (+1.33002222, +0.247668475), (+1.17379940, +0.714873731), (+1.20733333, +0.211951837), (+1.67106748, +0.870990008E-1), (+1.90459049, +0.811472058), (+1.81309521, +0.394522250), (+1.66437364, +0.810376883), (+1.01777136, +0.363981724E-1), (+1.25024915, +0.606247127), (+1.69050682, +0.393691570), (+1.61593378, +0.676589012), (+1.02772880, +0.783388615E-1), (+1.34705722, +0.227595210), (+1.90317380, +0.946207404), (+1.68657374, +0.606133997), (+1.64431429, +0.158477515), (+1.52740479, +0.741286397), (+1.10316181, +0.216333628), (+1.66044128, +0.261682749), (+1.94347930, +0.580195785E-1), (+0.00000000, -0.521540642E-7), (-0.596046448E-7, +0.149011612E-7), (-0.119209290E-6, +0.596046448E-7), (+0.298023224E-6, +0.178813934E-6), (-0.178813934E-6, +0.327825546E-6), (+0.178813934E-6, +0.238418579E-6), (-0.596046448E-7, +0.216066837E-6), (+0.298023224E-6, +0.447034836E-6), (+0.596046448E-7, +0.298023224E-6), (-0.596046448E-7, +0.596046448E-7), (-0.357627869E-6, -0.596046448E-7), (+0.119209290E-6, +0.596046448E-7), (-0.178813934E-6, +0.596046448E-7), (+0.596046448E-7, +0.00000000), (-0.596046448E-7, -0.149011612E-6), (-0.596046448E-7, +0.447034836E-7), (-0.178813934E-6, +0.149011612E-6), (+0.238418579E-6, +0.119209290E-6), (+0.178813934E-6, +0.00000000), (+0.476837158E-6, +0.327825546E-6), (-0.119209290E-6, +0.208616257E-6), (+0.178813934E-6, +0.178813934E-6), (+0.00000000, -0.298023224E-7), (+0.178813934E-6, +0.298023224E-6), (-0.178813934E-6, +0.238418579E-6), (+0.298023224E-6, -0.163912773E-6), (+0.357627869E-6, -0.283122063E-6), (+0.357627869E-6, +0.163912773E-6), (+0.00000000, +0.00000000), (+0.178813934E-6, -0.596046448E-7), (+0.178813934E-6, -0.238418579E-6), (+0.596046448E-7, +0.894069672E-7), (+0.596046448E-7, -0.134110451E-6)
120reltol = sqrt(epsilon(1._TKG))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+69
130data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
131data
132(+1.7659917519609045, +0.28189362102920434), (+1.7380942486347795, +0.42416083556659834), (+1.2831642050155587, +0.16812429961288899), (+1.2865222783819186, +0.77766099900251473), (+1.0742280132848898, +0.69813309505126442), (+1.9206821575497801, +0.73477781375230922), (+1.3965519728946478, +0.41868721818376520), (+1.0019701030695585, +0.90494101985389375), (+1.1362989921486220, +0.34288975134207811), (+1.1278159879868670, +0.51242715769950409), (+1.2493186145559321, +0.18979683352960253), (+1.9971435165728859, +0.84535345422764885), (+1.7110907426352688, +0.92097353631985901E-1), (+1.6136798630848839, +0.51814512517522249), (+1.1802224882524639, +0.95564115474518152E-1), (+1.9031036527916549, +0.51845865434639471), (+1.0854324441673988, +0.24189210729944266), (+1.6462050852878951, +0.59336670314947615), (+1.7313551790417216, +0.73219517509539100), (+1.9139065401849997, +0.54032273083149729), (+1.0486956667956528, +0.86596609862096197), (+1.0261458000769244, +0.29697968399289409), (+1.0946655280397715, +0.75272643725129251), (+1.1551576116425317, +0.45401717806324404), (+1.5055537881996404, +0.52916428037946539), (+1.6965910073803108, +0.19381952894324761E-1), (+1.0982000507543659, +0.22917983994830138E-1), (+1.7505767944468256, +0.66005765136998185), (+1.0171285354946351, +0.29382541160658227), (+1.5587977750076072, +0.56064619689261408), (+1.4927148256611789, +0.20992895937474421), (+1.9479398610836500, +0.97356528277044874), (+1.3481346204972695, +0.94153224966754645), (+1.0787260523809445, +0.77551646253175488), (+1.1343139460643163, +0.90773439121654620), (+1.9024376980800892, +0.13866249871922232), (+1.0959157165197912, +0.62775394085787917), (+1.9029654506848930, +0.76191109097277443E-1), (+1.2048618246019887, +0.22929519078507543), (+1.9192231619932891, +0.66467829842799664), (+1.9400125206877692, +0.17062962548839156), (+1.7079901721253317, +0.96929660549094787), (+1.9167259896606368, +0.61750435674860538), (+1.9759150558995526, +0.52201128649743445), (+1.4618947776503020, +0.28066276114412458), (+1.1305017740991381, +0.57683129789445342), (+1.9128534989425408, +0.14921567548481174), (+1.1163391922373846, +0.23459550488819414), (+1.8756719537559867, +0.17803202486243463), (+1.4943258438766351, +0.73577317055159519), (+1.3814706975122975, +0.45400556251564284), (+1.0612927438463435, +0.73677472778327591E-1), (+1.5137532518715879, +0.75341082358555556), (+1.1644609532651700, +0.66160090793377535), (+1.7062060132617938, +0.60943679401834328), (+1.8834636649522576, +0.62330639007524824), (+1.7225955868895191, +0.10770166274028503), (+1.2483469746738418, +0.15938164357605700), (+1.9838374958235150, +0.41548325035212719), (+1.4271271666871539, +0.76358908148620075), (+1.4790019718406089, +0.51922883547626753), (+1.8968404002459747, +0.84616288296925735), (+1.2522466781871677, +0.32588798879548431), (+1.6875692799888029, +0.97159960932404887), (+1.0828922689838913, +0.83227246332095195), (+1.6838062289120137, +0.11245879571457562), (+1.8442431710895857, +0.91949130431008852), (+1.0472722149594524, +0.60040865454478265), (+1.0975864600023286, +0.29047976981850299)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.7659917519609047, +0.28189362102920423), (+1.7380942486347797, +0.42416083556659878), (+1.2831642050155585, +0.16812429961288916), (+1.2865222783819183, +0.77766099900251551), (+1.0742280132848898, +0.69813309505126442), (+1.9206821575497797, +0.73477781375230944), (+1.3965519728946476, +0.41868721818376520), (+1.0019701030695582, +0.90494101985389408), (+1.1362989921486220, +0.34288975134207811), (+1.1278159879868670, +0.51242715769950409), (+1.2493186145559321, +0.18979683352960253), (+1.9971435165728857, +0.84535345422764951), (+1.7110907426352684, +0.92097353631986054E-1), (+1.6136798630848839, +0.51814512517522271), (+1.1802224882524637, +0.95564115474518527E-1), (+1.9031036527916547, +0.51845865434639515), (+1.0854324441673988, +0.24189210729944244), (+1.6462050852878947, +0.59336670314947648), (+1.7313551790417216, +0.73219517509539100), (+1.9139065401849993, +0.54032273083149751), (+1.0486956667956528, +0.86596609862096174), (+1.0261458000769237, +0.29697968399289387), (+1.0946655280397715, +0.75272643725129229), (+1.1551576116425317, +0.45401717806324404), (+1.5055537881996401, +0.52916428037946550), (+1.6965910073803108, +0.19381952894324858E-1), (+1.0982000507543659, +0.22917983994830457E-1), (+1.7505767944468251, +0.66005765136998207), (+1.0171285354946349, +0.29382541160658204), (+1.5587977750076063, +0.56064619689261419), (+1.4927148256611784, +0.20992895937474432), (+1.9479398610836496, +0.97356528277044863), (+1.3481346204972695, +0.94153224966754623), (+1.0787260523809445, +0.77551646253175455), (+1.1343139460643166, +0.90773439121654609), (+1.9024376980800894, +0.13866249871922215), (+1.0959157165197912, +0.62775394085787894), (+1.9029654506848925, +0.76191109097277415E-1), (+1.2048618246019889, +0.22929519078507521), (+1.9192231619932894, +0.66467829842799642), (+1.9400125206877694, +0.17062962548839131), (+1.7079901721253314, +0.96929660549094798), (+1.9167259896606368, +0.61750435674860560), (+1.9759150558995520, +0.52201128649743445), (+1.4618947776503017, +0.28066276114412453), (+1.1305017740991374, +0.57683129789445342), (+1.9128534989425403, +0.14921567548481157), (+1.1163391922373846, +0.23459550488819378), (+1.8756719537559865, +0.17803202486243458), (+1.4943258438766347, +0.73577317055159486), (+1.3814706975122975, +0.45400556251564261), (+1.0612927438463431, +0.73677472778327244E-1), (+1.5137532518715877, +0.75341082358555500), (+1.1644609532651695, +0.66160090793377502), (+1.7062060132617938, +0.60943679401834272), (+1.8834636649522576, +0.62330639007524735), (+1.7225955868895189, +0.10770166274028485), (+1.2483469746738414, +0.15938164357605678), (+1.9838374958235143, +0.41548325035212674), (+1.4271271666871534, +0.76358908148620031), (+1.4790019718406087, +0.51922883547626697), (+1.8968404002459740, +0.84616288296925646), (+1.2522466781871675, +0.32588798879548359), (+1.6875692799888027, +0.97159960932404776), (+1.0828922689838913, +0.83227246332095195), (+1.6838062289120135, +0.11245879571457537), (+1.8442431710895857, +0.91949130431008830), (+1.0472722149594522, +0.60040865454478209), (+1.0975864600023288, +0.29047976981850276), (-0.11102230246251565E-15, -0.33306690738754696E-15), (+0.44408920985006262E-15, -0.83266726846886741E-16), (+0.33306690738754696E-15, -0.61062266354383610E-15), (-0.44408920985006262E-15, -0.19428902930940239E-15), (-0.11102230246251565E-15, -0.38857805861880479E-15), (+0.0000000000000000, -0.20816681711721685E-15), (+0.0000000000000000, -0.49960036108132044E-15), (+0.11102230246251565E-15, -0.69388939039072284E-16), (-0.11102230246251565E-15, -0.38857805861880479E-15), (+0.22204460492503131E-15, -0.29143354396410359E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.27755575615628914E-16), (-0.11102230246251565E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.13877787807814457E-16), (+0.0000000000000000, -0.69388939039072284E-16), (+0.22204460492503131E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.24980018054066022E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.12490009027033011E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.38857805861880479E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.22204460492503131E-15, +0.22204460492503131E-15), (-0.44408920985006262E-15, -0.55511151231257827E-16), (-0.33306690738754696E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, +0.13877787807814457E-15), (-0.22204460492503131E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.16653345369377348E-15), (-0.22204460492503131E-15, +0.19428902930940239E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.37470027081099033E-15), (+0.33306690738754696E-15, +0.24980018054066022E-15), (+0.0000000000000000, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.26367796834847468E-15), (+0.0000000000000000, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.66613381477509392E-15), (+0.0000000000000000, +0.26367796834847468E-15), (+0.33306690738754696E-15, +0.12490009027033011E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.33306690738754696E-15, +0.72164496600635175E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.94368957093138306E-15), (+0.22204460492503131E-15, +0.83266726846886741E-15), (+0.22204460492503131E-15, +0.10547118733938987E-14)
138reltol = sqrt(epsilon(1._TKG))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+44
148data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
149data
150(+1.86146197524173960270898226990405073, +0.855029228440181501786741428889239392), (+1.16054548908708715226946082263908893, +0.159679790151766439953025192946897138), (+1.60176265070131600630730525806351227, +0.282781546381556844253206414579333930), (+1.16306204521959589791215022367023330, +0.422505916640799749331567323108227053), (+1.82027531849979556092056970994287815, +0.108188400494207656621800351128941315), (+1.16339521580772143903535141991441137, +0.370987429086468428006728737369327108), (+1.01128195284242044666660234616047126, +0.501282895725843197031743480367121476), (+1.56840224392319896303391314076474591, +0.401906533845898418110985519813716031), (+1.81556105014259111908650074541544482, +0.453445155354174967038805737175221976), (+1.86803951043541791334819008405842337, +0.575331986376315896117826603927855876), (+1.19228738506754016359408530477785757, +0.705055432742636533968993798876660676), (+1.68674481498528381301389443373820177, +0.881834859464552124922167496594035714), (+1.80700756757791156013306654544714227, +0.691543504700949102498432999974919674), (+1.67402919397984234116369753976658984, +0.520513861435957526346787454132564931), (+1.39669041505884473020546524457512626, +0.775403949802015360168713657261640232), (+1.65099334911378002660622426309108836, +0.901459883839354417461708198906984502), (+1.01374875331482034003929482113847018, +0.932926911296513374152089159646763438), (+1.13970565543314924854748099580411145, +0.391947852937626677361496774288700619), (+1.25081420946685737810188589379541888, +0.247781636017979657202429605615938056), (+1.52942552546282361411808821453751194, +0.563359919097070999115159034335978247), (+1.78352909866455037844378713600839704, +0.661948498686968402321162113206090671), (+1.96981593992781698921280485928413647, +0.671755863527106603637684256122853663), (+1.35447313168829921456501198799574667, +0.997172980546801566030892354717308526), (+1.08431904144817151965208621339150352, +0.619255952103235034963689173039754920), (+1.56226597369218965408910478042515764, +0.137096908067251490321668222281617829), (+1.25581257046697609794773252680027556, +0.530527071374838647074589999285199887), (+1.12991733226409886634797791330858032, +0.632139302016062335359985658576113455), (+1.07934520158615190532795130075171140, +0.191013117996452862440296116083565293), (+1.76794915553782062519330755525228694, +0.101881024399040008317043561074071790), (+1.92374162338037661509507598221507163, +0.156983858699392112879975973714715610), (+1.30849864979965130325376677567333619, +0.112613813705017963457740825711655993), (+1.93341916014916051165842910995609497, +0.414128348154217780093267625713926410), (+1.98131067679375015786875499320905772, +0.619525081285326932112474681129607537), (+1.16745160944347349839382649978493354, +0.978344872850068983828985443547179348), (+1.90526659880023380730208682313891315, +0.116805998379267741323837149729818872), (+1.46881050756070985269997959349037009, +0.594704204453682551554612109758718178), (+1.64227327855238430520960722669873696, +0.667268887281690799206068722619005832), (+1.41645170141352968927049623966925053, +0.116598919532259475581114273688882029), (+1.67314790042927986472039288528204944, +0.613823768253430947245181641859028479), (+1.40198413018435076583307100356239280, +0.859974028915982985508905643809729081), (+1.93637350668435720625072915655615934, +0.321092913534205115187922500302093694), (+1.93384099436035206716917992553199925, +0.762775701745799706177039244953031369), (+1.91321974958021045914997952927520956, +0.499956312580462527974983096934921700), (+1.92526918591853287945881287823600608, +0.160782260715261013406769963225072812)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.86146197524173960270898226990405073, +0.855029228440181501786741428889239295), (+1.16054548908708715226946082263908893, +0.159679790151766439953025192946896994), (+1.60176265070131600630730525806351188, +0.282781546381556844253206414579334074), (+1.16306204521959589791215022367023330, +0.422505916640799749331567323108227149), (+1.82027531849979556092056970994287853, +0.108188400494207656621800351128940834), (+1.16339521580772143903535141991441137, +0.370987429086468428006728737369326915), (+1.01128195284242044666660234616047126, +0.501282895725843197031743480367120995), (+1.56840224392319896303391314076474610, +0.401906533845898418110985519813715549), (+1.81556105014259111908650074541544501, +0.453445155354174967038805737175222025), (+1.86803951043541791334819008405842318, +0.575331986376315896117826603927856165), (+1.19228738506754016359408530477785718, +0.705055432742636533968993798876660772), (+1.68674481498528381301389443373820177, +0.881834859464552124922167496594035714), (+1.80700756757791156013306654544714227, +0.691543504700949102498432999974919674), (+1.67402919397984234116369753976658984, +0.520513861435957526346787454132564931), (+1.39669041505884473020546524457512626, +0.775403949802015360168713657261640232), (+1.65099334911378002660622426309108855, +0.901459883839354417461708198906984791), (+1.01374875331482034003929482113846999, +0.932926911296513374152089159646763438), (+1.13970565543314924854748099580411145, +0.391947852937626677361496774288700619), (+1.25081420946685737810188589379541849, +0.247781636017979657202429605615938008), (+1.52942552546282361411808821453751156, +0.563359919097070999115159034335978344), (+1.78352909866455037844378713600839704, +0.661948498686968402321162113206090671), (+1.96981593992781698921280485928413647, +0.671755863527106603637684256122853759), (+1.35447313168829921456501198799574667, +0.997172980546801566030892354717308623), (+1.08431904144817151965208621339150332, +0.619255952103235034963689173039755113), (+1.56226597369218965408910478042515783, +0.137096908067251490321668222281617829), (+1.25581257046697609794773252680027575, +0.530527071374838647074589999285199983), (+1.12991733226409886634797791330858032, +0.632139302016062335359985658576113455), (+1.07934520158615190532795130075171159, +0.191013117996452862440296116083565221), (+1.76794915553782062519330755525228675, +0.101881024399040008317043561074071790), (+1.92374162338037661509507598221507144, +0.156983858699392112879975973714715731), (+1.30849864979965130325376677567333580, +0.112613813705017963457740825711655704), (+1.93341916014916051165842910995609497, +0.414128348154217780093267625713926314), (+1.98131067679375015786875499320905772, +0.619525081285326932112474681129607537), (+1.16745160944347349839382649978493354, +0.978344872850068983828985443547179444), (+1.90526659880023380730208682313891276, +0.116805998379267741323837149729818595), (+1.46881050756070985269997959349037009, +0.594704204453682551554612109758717985), (+1.64227327855238430520960722669873696, +0.667268887281690799206068722619006313), (+1.41645170141352968927049623966925053, +0.116598919532259475581114273688882293), (+1.67314790042927986472039288528204924, +0.613823768253430947245181641859028768), (+1.40198413018435076583307100356239280, +0.859974028915982985508905643809729562), (+1.93637350668435720625072915655615934, +0.321092913534205115187922500302093646), (+1.93384099436035206716917992553199906, +0.762775701745799706177039244953031369), (+1.91321974958021045914997952927520975, +0.499956312580462527974983096934921411), (+1.92526918591853287945881287823600608, +0.160782260715261013406769963225072523), (-0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-34), (-0.962964972193617926527988971292463659E-34, +0.108333559371782016734398759270402162E-33), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (+0.288889491658085377958396691387739098E-33, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000)
156reltol = sqrt(epsilon(1._TKG))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+35
166data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
167data
168+1.75996292, +1.59977722, +1.98600972, +1.27405500, +1.93133104, +1.65979862, +1.11892629, +1.57218909, +1.38462377, +1.97642958, +1.12474918, +1.90712333, +1.55039883, +1.29183400, +1.55508399, +1.78541112, +1.94153905, +1.82640266, +1.61328936, +1.87029743, +1.47966623, +1.37638080, +1.39084029, +1.01155519, +1.49616647, +1.85188627, +1.67656112, +1.82470894, +1.95948362, +1.98574162, +1.73292279, +1.19109058, +1.26322138, +1.18482339, +1.50273800
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.75996268, +1.59977734, +1.98600948, +1.27405477, +1.93133068, +1.65979862, +1.11892629, +1.57218885, +1.38462353, +1.97642946, +1.12474895, +1.90712333, +1.55039859, +1.29183412, +1.55508399, +1.78541100, +1.94153929, +1.82640266, +1.61328936, +1.87029743, +1.47966623, +1.37638092, +1.39084017, +1.01155519, +1.49616647, +1.85188603, +1.67656088, +1.82470894, +1.95948362, +1.98574162, +1.73292267, +1.19109058, +1.26322162, +1.18482363, +1.50273788, +0.178813934E-6, +0.417232513E-6, +0.119209290E-6, +0.00000000, +0.238418579E-6, +0.238418579E-6, +0.596046448E-7, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, +0.00000000, +0.178813934E-6, +0.119209290E-6, -0.596046448E-7, +0.238418579E-6, -0.178813934E-6, -0.596046448E-7, +0.178813934E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.596046448E-7, +0.298023224E-6, +0.596046448E-7, +0.178813934E-6, +0.596046448E-7, +0.00000000, +0.00000000, +0.00000000
174reltol = sqrt(epsilon(1._TKG))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+54
184data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
185data
186+1.9178327481716577, +1.0674290861313933, +1.6869510136766972, +1.4918814466261294, +1.3112312599291758, +1.2489276744185309, +1.9206248198352558, +1.3819754524583092, +1.1225248529352527, +1.0326609735150125, +1.3224035438778348, +1.4497485725823578, +1.6573567489469383, +1.5671546992480265, +1.2584638491076703, +1.6998838539893828, +1.5531864801390600, +1.8501703547502741, +1.7253504102886628, +1.7101555052210902, +1.5592020324513740, +1.1561664149979953, +1.2179751543030437, +1.9191420905084031, +1.3432861051103482, +1.6107236216036429, +1.3537958187762753, +1.5377371755753093, +1.4118644994471574, +1.3063815796044991, +1.9814563907245950, +1.9574081559017957, +1.6319312403393638, +1.7032573321512836, +1.3599088678526134, +1.5383034348403093, +1.6877395355920457, +1.0468393365295761, +1.0521158900750689, +1.5957927110024486, +1.4814914048429264, +1.3678476228344549, +1.9482595676621191, +1.1122190728869703, +1.9073100042419431, +1.1321735348481705, +1.8752666475228397, +1.2562631240044666, +1.5179023491788342, +1.7145235570682291, +1.3983578735902502, +1.9491923383043757, +1.3020579569356050, +1.8373332156209989
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.9178327481716575, +1.0674290861313935, +1.6869510136766970, +1.4918814466261299, +1.3112312599291753, +1.2489276744185311, +1.9206248198352551, +1.3819754524583092, +1.1225248529352525, +1.0326609735150125, +1.3224035438778343, +1.4497485725823576, +1.6573567489469381, +1.5671546992480265, +1.2584638491076698, +1.6998838539893824, +1.5531864801390600, +1.8501703547502746, +1.7253504102886628, +1.7101555052210902, +1.5592020324513738, +1.1561664149979953, +1.2179751543030435, +1.9191420905084025, +1.3432861051103480, +1.6107236216036429, +1.3537958187762749, +1.5377371755753091, +1.4118644994471574, +1.3063815796044986, +1.9814563907245943, +1.9574081559017955, +1.6319312403393635, +1.7032573321512838, +1.3599088678526134, +1.5383034348403093, +1.6877395355920455, +1.0468393365295758, +1.0521158900750691, +1.5957927110024488, +1.4814914048429264, +1.3678476228344549, +1.9482595676621188, +1.1122190728869703, +1.9073100042419429, +1.1321735348481705, +1.8752666475228397, +1.2562631240044666, +1.5179023491788339, +1.7145235570682298, +1.3983578735902502, +1.9491923383043752, +1.3020579569356048, +1.8373332156209989, +0.66613381477509392E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.99920072216264089E-15
192reltol = sqrt(epsilon(1._TKG))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+94
202data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
203data
204+1.68179077309882432747700242017215763, +1.40503163895229122687833543810009837, +1.89136798812334299002142149600028240, +1.10276058643363510434014197641803622, +1.47122089766486002895511423436478103, +1.43985170717383187549538807383676981, +1.15279841107385696962924372849552319, +1.45194131007970868390931622920888646, +1.19872831751892604477225638249412094, +1.24436850401228957751698967492439092, +1.95889385022654607721150610140228660, +1.94574067100528008747632797744588113, +1.64408459064840684070127997607717224, +1.94594494580925552502150416576341783, +1.90418899460792567489948086144444994, +1.40528490763221979555866126054381981, +1.23636816928513185412782569063742393, +1.45715258328413366122595771879874060, +1.31081688404389291107986751069198211, +1.41338592877335027578090521591857686, +1.42268880980151566353367519721826371, +1.09038074211566841158704091811666269, +1.75521965611754764780300627465682404, +1.63646348960600071671808014049389569, +1.63042863711117959674851000053242740, +1.08453445519198087663385304080618982, +1.13666130018760512109299814692114372, +1.37374240644076515452574518074262043, +1.35874151284745388463997232998706827, +1.47693123694018520678603632057409199, +1.38570313035134906270348357271147106, +1.40510328088630989306761993545655326, +1.88588908554784163065823949613534175, +1.99865557738620043795917192461865863, +1.74386276376710963279339303232981975, +1.46815103070334906856186808505153609, +1.62028400391469218369414258392518350, +1.20331745982091629229916031594569683, +1.03763216574054768097333221260615858, +1.07319607403354317756693841947509899, +1.85557888586644589796469107819333800, +1.75366127366872588940934970856309231, +1.60149540372464015306409339961652338, +1.84618492244953494378517524934841302, +1.06820087658036460313928978265741775, +1.83255832931694845969329229917184906, +1.41383068775453122482250407343871110, +1.06735702655090258375571770344531210, +1.00567539124251283052121934782307228, +1.66028588130798319924187724153882850, +1.15893590207354019145625569381533832, +1.46435700504026520431471953955878785, +1.13349836033556003247150589745904880, +1.51193026768072337819720474169561747, +1.57228204583580088057137035477487632, +1.47641458883098501639141012538399612, +1.63486251655106692893680579307125821, +1.93704275584663918472860274018799424, +1.31180832196171520702556506346575482, +1.27193044168514920031498346625570296, +1.85115385547996674095127700353219396, +1.13270577845052785845773479363681745, +1.10918091090836170917453915563392873, +1.89377732271286823335937489698779532, +1.23721461937757355190552487360195040, +1.25397054310089363275233124812414959, +1.78224483338476041668896941211644372, +1.82970043605398357120955710829616345, +1.82489325354115520701329116035866140, +1.27680419654576426992755048937566842, +1.00082928650771232296326331884547515, +1.74679750252740892650530069085002919, +1.27549422075338912790933329033617399, +1.09671641971479057034073860551836347, +1.21090529559977296664546676278942853, +1.49945566281050083192900796212335156, +1.99781799771708441746685228886779651, +1.95528904350958468357781194549261440, +1.02336666600819914170819236060343335, +1.21592916273779621266634062876596141, +1.98821509049869988635080325454743772, +1.75827800253000418734033261517142562, +1.20659083075838121427772208117952119, +1.45918958120229846924030167921259712, +1.05253506463886672076934085708047643, +1.16342963593745645409594578730057177, +1.65272225429153672581544506173405674, +1.95208794281492364794587636856411229, +1.26312340321922739466374157049323005, +1.13662614627278381748050639961434984, +1.79723405041058051737104614860892583, +1.38425973549100859340575414834325560, +1.79886503184566468253982967474752301, +1.01207169401389551383843635844258967
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.68179077309882432747700242017215725, +1.40503163895229122687833543810009837, +1.89136798812334299002142149600028221, +1.10276058643363510434014197641803602, +1.47122089766486002895511423436478065, +1.43985170717383187549538807383677000, +1.15279841107385696962924372849552281, +1.45194131007970868390931622920888685, +1.19872831751892604477225638249412094, +1.24436850401228957751698967492439092, +1.95889385022654607721150610140228660, +1.94574067100528008747632797744588132, +1.64408459064840684070127997607717224, +1.94594494580925552502150416576341822, +1.90418899460792567489948086144445013, +1.40528490763221979555866126054382001, +1.23636816928513185412782569063742354, +1.45715258328413366122595771879874079, +1.31081688404389291107986751069198192, +1.41338592877335027578090521591857686, +1.42268880980151566353367519721826332, +1.09038074211566841158704091811666288, +1.75521965611754764780300627465682346, +1.63646348960600071671808014049389588, +1.63042863711117959674851000053242740, +1.08453445519198087663385304080618982, +1.13666130018760512109299814692114333, +1.37374240644076515452574518074262062, +1.35874151284745388463997232998706846, +1.47693123694018520678603632057409257, +1.38570313035134906270348357271147029, +1.40510328088630989306761993545655346, +1.88588908554784163065823949613534136, +1.99865557738620043795917192461865902, +1.74386276376710963279339303232981956, +1.46815103070334906856186808505153609, +1.62028400391469218369414258392518311, +1.20331745982091629229916031594569683, +1.03763216574054768097333221260615820, +1.07319607403354317756693841947509879, +1.85557888586644589796469107819333839, +1.75366127366872588940934970856309289, +1.60149540372464015306409339961652338, +1.84618492244953494378517524934841302, +1.06820087658036460313928978265741775, +1.83255832931694845969329229917184906, +1.41383068775453122482250407343871110, +1.06735702655090258375571770344531172, +1.00567539124251283052121934782307228, +1.66028588130798319924187724153882850, +1.15893590207354019145625569381533832, +1.46435700504026520431471953955878766, +1.13349836033556003247150589745904880, +1.51193026768072337819720474169561747, +1.57228204583580088057137035477487613, +1.47641458883098501639141012538399593, +1.63486251655106692893680579307125821, +1.93704275584663918472860274018799463, +1.31180832196171520702556506346575463, +1.27193044168514920031498346625570296, +1.85115385547996674095127700353219435, +1.13270577845052785845773479363681706, +1.10918091090836170917453915563392873, +1.89377732271286823335937489698779494, +1.23721461937757355190552487360195002, +1.25397054310089363275233124812414940, +1.78224483338476041668896941211644353, +1.82970043605398357120955710829616345, +1.82489325354115520701329116035866140, +1.27680419654576426992755048937566842, +1.00082928650771232296326331884547534, +1.74679750252740892650530069085002900, +1.27549422075338912790933329033617379, +1.09671641971479057034073860551836366, +1.21090529559977296664546676278942853, +1.49945566281050083192900796212335136, +1.99781799771708441746685228886779690, +1.95528904350958468357781194549261479, +1.02336666600819914170819236060343335, +1.21592916273779621266634062876596141, +1.98821509049869988635080325454743772, +1.75827800253000418734033261517142543, +1.20659083075838121427772208117952139, +1.45918958120229846924030167921259674, +1.05253506463886672076934085708047701, +1.16342963593745645409594578730057196, +1.65272225429153672581544506173405694, +1.95208794281492364794587636856411209, +1.26312340321922739466374157049323005, +1.13662614627278381748050639961434965, +1.79723405041058051737104614860892545, +1.38425973549100859340575414834325579, +1.79886503184566468253982967474752320, +1.01207169401389551383843635844258987, +0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, +0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34
210reltol = sqrt(epsilon(1._TKG))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+36
220data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
221data
222(+1.00259733, +0.278104544), (+1.57057047, +0.249142647E-1), (+1.47410178, +0.229686797), (+1.45553946, +0.634664714), (+1.51069784, +0.910529494), (+1.36250424, +0.954638124), (+1.02817321, +0.956804156E-1), (+1.70977378, +0.516807497), (+1.64495683, +0.394657493), (+1.00893569, +0.762163877), (+1.55572915, +0.426765561), (+1.39747691, +0.883980811), (+1.50885510, +0.570653915), (+1.50269389, +0.853423417), (+1.37154889, +0.951538563), (+1.46080065, +0.166646898), (+1.78887010, +0.543202341), (+1.06102371, +0.951353431), (+1.90566444, +0.426587343), (+1.97155082, +0.646399975), (+1.52408397, +0.929683447E-2), (+1.31607175, +0.967350721), (+1.87211108, +0.297488153), (+1.05853057, +0.525064647), (+1.86207938, +0.664903879), (+1.35535204, +0.602119327), (+1.92333102, +0.690815449E-1), (+1.35951483, +0.883117199), (+1.71431875, +0.122346044), (+1.09985304, +0.126454949), (+1.54484928, +0.449895561), (+1.26436305, +0.617203355), (+1.51531482, +0.923021257), (+1.75612497, +0.963965654), (+1.29415989, +0.370043397), (+1.70984650, +0.328705907)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.00259721, +0.278104633), (+1.57057035, +0.249143541E-1), (+1.47410154, +0.229686692), (+1.45553923, +0.634664536), (+1.51069784, +0.910529494), (+1.36250424, +0.954638004), (+1.02817321, +0.956802368E-1), (+1.70977354, +0.516807377), (+1.64495683, +0.394657552), (+1.00893569, +0.762163937), (+1.55572891, +0.426765501), (+1.39747691, +0.883980811), (+1.50885499, +0.570654094), (+1.50269365, +0.853423476), (+1.37154865, +0.951538563), (+1.46080065, +0.166647106), (+1.78886998, +0.543202281), (+1.06102371, +0.951353371), (+1.90566444, +0.426587224), (+1.97155070, +0.646399617), (+1.52408397, +0.929686427E-2), (+1.31607175, +0.967350781), (+1.87211096, +0.297488153), (+1.05853057, +0.525064528), (+1.86207914, +0.664903879), (+1.35535204, +0.602119327), (+1.92333078, +0.690815449E-1), (+1.35951471, +0.883117020), (+1.71431851, +0.122346133), (+1.09985280, +0.126455009), (+1.54484916, +0.449895620), (+1.26436293, +0.617203474), (+1.51531470, +0.923021317), (+1.75612509, +0.963965416), (+1.29416013, +0.370043397), (+1.70984674, +0.328705788), (+0.00000000, +0.298023224E-7), (+0.119209290E-6, +0.00000000), (+0.238418579E-6, +0.149011612E-6), (+0.417232513E-6, +0.178813934E-6), (-0.596046448E-7, -0.596046448E-7), (+0.238418579E-6, -0.596046448E-7), (+0.178813934E-6, +0.00000000), (+0.417232513E-6, +0.596046448E-7), (-0.119209290E-6, -0.238418579E-6), (+0.178813934E-6, -0.119209290E-6), (+0.178813934E-6, +0.00000000), (+0.238418579E-6, -0.670552254E-7), (-0.119209290E-6, +0.149011612E-6), (+0.119209290E-6, +0.596046448E-7), (+0.119209290E-6, +0.163912773E-6), (+0.00000000, +0.208616257E-6), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.596046448E-7), (+0.119209290E-6, -0.149011612E-7), (+0.238418579E-6, +0.596046448E-7), (+0.178813934E-6, +0.00000000), (+0.119209290E-6, +0.119209290E-6), (+0.238418579E-6, +0.596046448E-7), (+0.357627869E-6, +0.178813934E-6), (+0.178813934E-6, -0.298023224E-7), (+0.298023224E-6, -0.596046448E-7), (+0.238418579E-6, +0.447034836E-7), (+0.119209290E-6, +0.00000000)
228reltol = sqrt(epsilon(1._TKG))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+48
238data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
239data
240(+1.8579579691077499, +0.63924852553127165), (+1.8839353448003662, +0.91327369848800311), (+1.9552065976951991, +0.92984695038203569), (+1.1268343431700811, +0.57219078415818503), (+1.8531357342680850, +0.95797379660885751), (+1.9924624943004585, +0.11527388457836529), (+1.0789088181975361, +0.89944877105252152), (+1.6717045296971507, +0.89341146173933605), (+1.2846447621180261, +0.12282058810354990), (+1.3539503189130029, +0.36213949589378469), (+1.0911447414405751, +0.39125469384804368), (+1.4746320028393793, +0.46726157326853857), (+1.2804450464113000, +0.79596164432249139), (+1.3889269144565790, +0.98246675878144685), (+1.4493298491305215, +0.64996555573661674), (+1.3189855655987430, +0.89933358690673093E-1), (+1.8124755674213811, +0.39479869213679075), (+1.6946411048287653, +0.36800060047320682), (+1.3564254868716672, +0.97904944256191473), (+1.3456238802358989, +0.16079594061823876), (+1.5236185126370687, +0.77926310203712412), (+1.8153745573465672, +0.12197878423926745), (+1.8823928454339121, +0.82532172987429819), (+1.7475227847281400, +0.18331237514311272), (+1.8335653106306002, +0.65979183931490526), (+1.4589421146683876, +0.30199638422550845), (+1.5350436495130213, +0.98884190353410728), (+1.7716458991611810, +0.59882701849104392), (+1.7679158684729632, +0.95977508717647253), (+1.8037033341012290, +0.62919912925564525), (+1.5406459717677206, +0.20627461334970931), (+1.1899771416496390, +0.37760090919369649), (+1.7992879690724701, +0.94470090549272945), (+1.7243972529750040, +0.63797845923418783), (+1.6886000433635324, +0.16155910911691795), (+1.0662691176787185, +0.53826029480086868), (+1.4210311054076334, +0.69207003442649262), (+1.8967850365532533, +0.25756757464511670), (+1.5977815267785758, +0.40270405334161918), (+1.7967507878601605, +0.79169055478138795E-2), (+1.7699787493122860, +0.67930271930754615), (+1.8999809097290341, +0.99461285408336386), (+1.5345031220969165, +0.26507335749888039), (+1.5331652682701951, +0.36919296570242055), (+1.2512893990200940, +0.82540406438140346), (+1.0305301510035685, +0.98416882919672533), (+1.4960348929019522, +0.52339005527333737), (+1.0195283329571900, +0.81866119001304472)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.8579579691077499, +0.63924852553127165), (+1.8839353448003662, +0.91327369848800333), (+1.9552065976951987, +0.92984695038203546), (+1.1268343431700811, +0.57219078415818547), (+1.8531357342680854, +0.95797379660885751), (+1.9924624943004590, +0.11527388457836557), (+1.0789088181975364, +0.89944877105252119), (+1.6717045296971504, +0.89341146173933605), (+1.2846447621180261, +0.12282058810355023), (+1.3539503189130024, +0.36213949589378497), (+1.0911447414405748, +0.39125469384804390), (+1.4746320028393793, +0.46726157326853890), (+1.2804450464113002, +0.79596164432249139), (+1.3889269144565781, +0.98246675878144696), (+1.4493298491305213, +0.64996555573661685), (+1.3189855655987428, +0.89933358690673371E-1), (+1.8124755674213811, +0.39479869213679064), (+1.6946411048287651, +0.36800060047320660), (+1.3564254868716674, +0.97904944256191451), (+1.3456238802358986, +0.16079594061823868), (+1.5236185126370692, +0.77926310203712401), (+1.8153745573465669, +0.12197878423926728), (+1.8823928454339123, +0.82532172987429786), (+1.7475227847281398, +0.18331237514311249), (+1.8335653106306007, +0.65979183931490526), (+1.4589421146683874, +0.30199638422550851), (+1.5350436495130215, +0.98884190353410695), (+1.7716458991611810, +0.59882701849104336), (+1.7679158684729634, +0.95977508717647231), (+1.8037033341012290, +0.62919912925564492), (+1.5406459717677206, +0.20627461334970923), (+1.1899771416496390, +0.37760090919369615), (+1.7992879690724704, +0.94470090549272934), (+1.7243972529750038, +0.63797845923418806), (+1.6886000433635320, +0.16155910911691790), (+1.0662691176787187, +0.53826029480086834), (+1.4210311054076334, +0.69207003442649251), (+1.8967850365532533, +0.25756757464511676), (+1.5977815267785760, +0.40270405334161907), (+1.7967507878601603, +0.79169055478139350E-2), (+1.7699787493122860, +0.67930271930754593), (+1.8999809097290337, +0.99461285408336386), (+1.5345031220969163, +0.26507335749888017), (+1.5331652682701946, +0.36919296570242000), (+1.2512893990200940, +0.82540406438140324), (+1.0305301510035680, +0.98416882919672510), (+1.4960348929019520, +0.52339005527333682), (+1.0195283329571898, +0.81866119001304405), (+0.0000000000000000, +0.22204460492503131E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.13877787807814457E-15), (+0.0000000000000000, -0.11102230246251565E-15), (-0.33306690738754696E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.66613381477509392E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.58286708792820718E-15), (+0.99920072216264089E-15, +0.47184478546569153E-15)
246reltol = sqrt(epsilon(1._TKG))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+52
256data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
257data
258(+1.76949370766297758446173316111386448, +0.238468872095679109928353676095444850), (+1.84755038818595401290506210298992331, +0.789785079415458614046806767127639076), (+1.43502688923535857848850699539202790, +0.583505798880663099698480456094150830), (+1.87138353783468830105585947466346290, +0.976988623972949838707930225226514296E-1), (+1.87867366904282068311414215702613181, +0.638052134984289952364024314060190984), (+1.51740882476854958744362913623285554, +0.950086536225928890012700249483875446), (+1.15071203995335252199351828208904939, +0.220285289292768477809707215108247584), (+1.97817876679724234606764228585538095, +0.995463524618013637084676875053343499), (+1.60166508816408924543888446889072667, +0.623296739738576929170151396632972101), (+1.20008418162794467441424012422441584, +0.743866124129836588113650670840958518), (+1.74711633113456595993014059327178841, +0.951218678263809398599940500820391440E-1), (+1.57647733416179917545884003214181570, +0.799710280118125396221126753746102622), (+1.19250474378452133073606379834877535, +0.480730177227806593133482544159092138), (+1.41431532529568304601049135082392129, +0.170090479331226113460512865692653925E-1), (+1.20419169861608706648584685047429098, +0.889526028769919425381737689893367510E-1), (+1.20432242203437545402997398248498575, +0.491229644407907691446187531404031588), (+1.91980453321158714676677705629490241, +0.449672396845134279832441550215601817), (+1.78327542222623005424664222246551628, +0.715782653391418291592202350557568288), (+1.64320756950413413779764044445779566, +0.285591361454376308245713544141335175), (+1.29948437817235991822072475806560054, +0.442805387838270400593145548915985590), (+1.68479375230787668512057096847906108, +0.482269447423049606882488089530316299), (+1.28798899029782280956299068597189674, +0.474337569169566685026112480518640377E-1), (+1.27502982647413480681845762584918553, +0.194468788367738611754567819064443221), (+1.23400735048319469492514686815689859, +0.118374285789499726153373644751178040), (+1.28547044299022299737614415044021942, +0.623466278912018587332773722616825075), (+1.15983657639506717599546168130488546, +0.387818320938349153432861062425267931), (+1.96265935564707894142699642881427376, +0.802942878226062295587740831643993054), (+1.53418357938636205330876999844001719, +0.951694093904629877290868490258766470), (+1.24118892284926382158487821570932819, +0.500967535961129299007829363807221736), (+1.38465697169110699722358595172373796, +0.786967567406343005834945545970888224), (+1.20325747263742139686810833757226653, +0.589753169377624198853248392043502586), (+1.16551272969344699039327202194588793, +0.849623892086185834436291629534626152), (+1.48499314898970504341361650001815417, +0.178627633980924388446678211828929045), (+1.24126469355647659104197167190016740, +0.354933781953355600431505378404543083), (+1.80404184372830357989228640852150558, +0.406052239224963793207481627442149807), (+1.36663197689352791838178274780830201, +0.446838189181738838025843439274962230), (+1.92066275132010773145610264309488338, +0.809031048609012163595171581976118674E-1), (+1.43709040965139130226275892072172668, +0.231776168691600082716390519420156673), (+1.60370867867139280365863690035898621, +0.205443595344258354455177752015838361), (+1.73451627338852056779964002670626940, +0.954473626403065578465374659471432363), (+1.13329306842422491186407280296735924, +0.339765413281388537385861113389306064), (+1.22905072451982930766685654132018120, +0.613625810167610535972567313665629073), (+1.28087348142970050099233195539576245, +0.613680188378769005870012298473270723), (+1.92995810859457551481135235506826502, +0.188377390323932694036929424738437262), (+1.75412585112117144249861429810484589, +0.114461099617834464283710124767324730), (+1.26150723025749456585949959475229792, +0.690262692701249687769630083511889994), (+1.48593355238460135885228789970588866, +0.143438678128017781775395501394647396E-1), (+1.92948096669343860789121149845403789, +0.900210166337163353311815619298223976), (+1.60892252474412384353066981706479309, +0.774318150580937435711261255896874858), (+1.18434752587912745924916607055551062, +0.693456768927981983344804681980197816), (+1.29665664182292244209765768741949215, +0.183171170062082231404757012376510509), (+1.92383335125336887860649421221087991, +0.851845446158846195299920364776773229)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.76949370766297758446173316111386429, +0.238468872095679109928353676095444778), (+1.84755038818595401290506210298992408, +0.789785079415458614046806767127639172), (+1.43502688923535857848850699539202732, +0.583505798880663099698480456094150926), (+1.87138353783468830105585947466346290, +0.976988623972949838707930225226514296E-1), (+1.87867366904282068311414215702613200, +0.638052134984289952364024314060190984), (+1.51740882476854958744362913623285593, +0.950086536225928890012700249483875638), (+1.15071203995335252199351828208904939, +0.220285289292768477809707215108247440), (+1.97817876679724234606764228585538134, +0.995463524618013637084676875053343499), (+1.60166508816408924543888446889072628, +0.623296739738576929170151396632972198), (+1.20008418162794467441424012422441584, +0.743866124129836588113650670840958229), (+1.74711633113456595993014059327178802, +0.951218678263809398599940500820393366E-1), (+1.57647733416179917545884003214181551, +0.799710280118125396221126753746102622), (+1.19250474378452133073606379834877535, +0.480730177227806593133482544159092090), (+1.41431532529568304601049135082392167, +0.170090479331226113460512865692654407E-1), (+1.20419169861608706648584685047429079, +0.889526028769919425381737689893367750E-1), (+1.20432242203437545402997398248498536, +0.491229644407907691446187531404031781), (+1.91980453321158714676677705629490202, +0.449672396845134279832441550215601672), (+1.78327542222623005424664222246551685, +0.715782653391418291592202350557568288), (+1.64320756950413413779764044445779527, +0.285591361454376308245713544141335175), (+1.29948437817235991822072475806560054, +0.442805387838270400593145548915985397), (+1.68479375230787668512057096847906089, +0.482269447423049606882488089530316155), (+1.28798899029782280956299068597189694, +0.474337569169566685026112480518638932E-1), (+1.27502982647413480681845762584918553, +0.194468788367738611754567819064443245), (+1.23400735048319469492514686815689879, +0.118374285789499726153373644751177655), (+1.28547044299022299737614415044021923, +0.623466278912018587332773722616824979), (+1.15983657639506717599546168130488546, +0.387818320938349153432861062425267931), (+1.96265935564707894142699642881427337, +0.802942878226062295587740831643992862), (+1.53418357938636205330876999844001719, +0.951694093904629877290868490258766374), (+1.24118892284926382158487821570932819, +0.500967535961129299007829363807221640), (+1.38465697169110699722358595172373815, +0.786967567406343005834945545970888417), (+1.20325747263742139686810833757226653, +0.589753169377624198853248392043502490), (+1.16551272969344699039327202194588831, +0.849623892086185834436291629534626249), (+1.48499314898970504341361650001815398, +0.178627633980924388446678211828928829), (+1.24126469355647659104197167190016797, +0.354933781953355600431505378404542986), (+1.80404184372830357989228640852150519, +0.406052239224963793207481627442149855), (+1.36663197689352791838178274780830201, +0.446838189181738838025843439274962134), (+1.92066275132010773145610264309488338, +0.809031048609012163595171581976117711E-1), (+1.43709040965139130226275892072172706, +0.231776168691600082716390519420156722), (+1.60370867867139280365863690035898621, +0.205443595344258354455177752015838361), (+1.73451627338852056779964002670626940, +0.954473626403065578465374659471432267), (+1.13329306842422491186407280296735924, +0.339765413281388537385861113389305872), (+1.22905072451982930766685654132018120, +0.613625810167610535972567313665629073), (+1.28087348142970050099233195539576226, +0.613680188378769005870012298473270434), (+1.92995810859457551481135235506826521, +0.188377390323932694036929424738437117), (+1.75412585112117144249861429810484569, +0.114461099617834464283710124767324971), (+1.26150723025749456585949959475229811, +0.690262692701249687769630083511890379), (+1.48593355238460135885228789970588885, +0.143438678128017781775395501394648599E-1), (+1.92948096669343860789121149845403769, +0.900210166337163353311815619298224169), (+1.60892252474412384353066981706479290, +0.774318150580937435711261255896874761), (+1.18434752587912745924916607055551081, +0.693456768927981983344804681980197912), (+1.29665664182292244209765768741949177, +0.183171170062082231404757012376510437), (+1.92383335125336887860649421221088030, +0.851845446158846195299920364776773037), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (+0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33)
264reltol = sqrt(epsilon(1._TKG))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+70
274data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
275data
276+1.58945203, +1.93237805, +1.78571939, +1.46820736, +1.93902838, +1.38769460, +1.42438197, +1.09478855, +1.38855076, +1.18470120, +1.14655709, +1.31546092, +1.55417109, +1.51554418, +1.62244892, +1.99540710, +1.13173831, +1.50613594, +1.37965465, +1.99952602, +1.73300457, +1.08777738, +1.99510121, +1.24583483, +1.04976106, +1.15855730, +1.15432358, +1.62652755, +1.53104842, +1.34190369, +1.09252024, +1.29151213, +1.91087854, +1.66726542, +1.79717851, +1.25461209, +1.81720304, +1.35164928, +1.77773213, +1.23401356, +1.24524426, +1.21338487, +1.50342512, +1.79982185, +1.76326442, +1.34544683, +1.73565042, +1.28492296, +1.14974427, +1.78859448, +1.51738620, +1.54749262, +1.43591905, +1.11004996, +1.83167171, +1.96738398, +1.89858842, +1.66296244, +1.49374080, +1.49315906, +1.97030795, +1.29587054, +1.76471829, +1.22477174, +1.12335193, +1.81066871, +1.42554522, +1.12477458, +1.33517909, +1.76011300
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.58945203, +1.93237805, +1.78571904, +1.46820724, +1.93902826, +1.38769436, +1.42438149, +1.09478843, +1.38855076, +1.18470132, +1.14655685, +1.31546092, +1.55417120, +1.51554418, +1.62244868, +1.99540710, +1.13173819, +1.50613618, +1.37965441, +1.99952626, +1.73300409, +1.08777726, +1.99510098, +1.24583507, +1.04976106, +1.15855765, +1.15432334, +1.62652791, +1.53104854, +1.34190392, +1.09252024, +1.29151249, +1.91087866, +1.66726553, +1.79717851, +1.25461221, +1.81720304, +1.35164917, +1.77773213, +1.23401332, +1.24524426, +1.21338475, +1.50342500, +1.79982197, +1.76326454, +1.34544671, +1.73565054, +1.28492272, +1.14974415, +1.78859448, +1.51738596, +1.54749250, +1.43591881, +1.11004972, +1.83167171, +1.96738362, +1.89858818, +1.66296244, +1.49374044, +1.49315906, +1.97030759, +1.29587030, +1.76471853, +1.22477174, +1.12335181, +1.81066871, +1.42554533, +1.12477434, +1.33517933, +1.76011276, +0.417232513E-6, +0.119209290E-6, +0.596046448E-7, -0.119209290E-6, +0.178813934E-6, -0.238418579E-6, +0.119209290E-6, +0.596046448E-7, +0.178813934E-6, -0.178813934E-6, +0.238418579E-6, -0.596046448E-7, +0.238418579E-6, -0.298023224E-6, +0.298023224E-6, +0.119209290E-6, +0.298023224E-6, -0.178813934E-6, +0.298023224E-6, -0.476837158E-6, +0.178813934E-6, -0.357627869E-6, +0.596046448E-7, -0.298023224E-6, +0.596046448E-7, -0.357627869E-6, +0.00000000, -0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.00000000, -0.119209290E-6, +0.238418579E-6, +0.596046448E-7, +0.119209290E-6, +0.00000000, -0.119209290E-6, +0.119209290E-6, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.178813934E-6, +0.298023224E-6, -0.238418579E-6, +0.238418579E-6, +0.596046448E-7, +0.298023224E-6, +0.596046448E-7, -0.178813934E-6, +0.119209290E-6
282reltol = sqrt(epsilon(1._TKG))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+17
292data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
293data
294+1.8496925664232828, +1.7247271134930040, +1.4827147044519837, +1.3658559141519890, +1.9373363226180531, +1.6733258689698001, +1.0068752123500464, +1.2633095322550401, +1.3624163893009906, +1.6173819219153818, +1.4221584403690728, +1.9288630142009815, +1.4602078735125288, +1.9829239433491415, +1.5473712268088335, +1.0278917513334636, +1.7551781787548149
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.8496925664232831, +1.7247271134930040, +1.4827147044519837, +1.3658559141519893, +1.9373363226180529, +1.6733258689697998, +1.0068752123500462, +1.2633095322550401, +1.3624163893009906, +1.6173819219153820, +1.4221584403690728, +1.9288630142009815, +1.4602078735125292, +1.9829239433491410, +1.5473712268088331, +1.0278917513334629, +1.7551781787548149, +0.11102230246251565E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.0000000000000000, -0.11102230246251565E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.77715611723760958E-15
300reltol = sqrt(epsilon(1._TKG))
301reltol
302+0.14901161193847656E-7
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
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+46
310data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
311data
312+1.18471114270862830466960212722699603, +1.75641668538491954034859136500166388, +1.85598462481091955208933657310162980, +1.91393037848975844441443793782751577, +1.58395455351289367157144943880157525, +1.96837100871536528828082447019647188, +1.77907181092189171208584394578380131, +1.21205679897343032396411169631339749, +1.97881534749694988593927497295145570, +1.69774958885373914765166858914888924, +1.85589679523701682464978727927196815, +1.24704594861373192191740998579943677, +1.56942605393250828747900173085543491, +1.27629366914862215559834356679189109, +1.34048267420810372496035951435110062, +1.34940524308553694112658909962527378, +1.80521009691385867724606465063293573, +1.21891746074572511630076809553400894, +1.54154496331111530152009123368957049, +1.81067524715851146507062896067401242, +1.36149678266692884502526976530476829, +1.26071289352802669016015505793150809, +1.30655416883423180206224823194596720, +1.30977042177425666691918612318720117, +1.46301634163025926030970375850933505, +1.22050852640885658567602301455558877, +1.85173606109518952436018840555157136, +1.94857270023228565948368311545971588, +1.38078931767865827783822881300720266, +1.00047032575284420076881053756674996, +1.53225543761192021550470312270188526, +1.58361833533499781980009610031730658, +1.14202373814188107942391576618948344, +1.94896180706602872400760871869637115, +1.88844970098030281840419904326812835, +1.81635748354398410674127495103618681, +1.96197517391445910578838109189589080, +1.14227298075926512476636864024077868, +1.91703145064768665982873050297669513, +1.87292986985603249623249619259449086, +1.31310768353232505001265774097851282, +1.18613362770270093021516541061620455, +1.87502268123255957989191330498341211, +1.73197680263497427892210271367448823, +1.34176834304517012806858937792487862, +1.34284221111905758917154364990136771
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.18471114270862830466960212722699623, +1.75641668538491954034859136500166350, +1.85598462481091955208933657310162980, +1.91393037848975844441443793782751577, +1.58395455351289367157144943880157544, +1.96837100871536528828082447019647226, +1.77907181092189171208584394578380151, +1.21205679897343032396411169631339749, +1.97881534749694988593927497295145609, +1.69774958885373914765166858914888924, +1.85589679523701682464978727927196796, +1.24704594861373192191740998579943638, +1.56942605393250828747900173085543510, +1.27629366914862215559834356679189090, +1.34048267420810372496035951435110062, +1.34940524308553694112658909962527340, +1.80521009691385867724606465063293573, +1.21891746074572511630076809553400874, +1.54154496331111530152009123368957010, +1.81067524715851146507062896067401242, +1.36149678266692884502526976530476810, +1.26071289352802669016015505793150809, +1.30655416883423180206224823194596682, +1.30977042177425666691918612318720117, +1.46301634163025926030970375850933505, +1.22050852640885658567602301455558857, +1.85173606109518952436018840555157079, +1.94857270023228565948368311545971569, +1.38078931767865827783822881300720247, +1.00047032575284420076881053756674976, +1.53225543761192021550470312270188507, +1.58361833533499781980009610031730697, +1.14202373814188107942391576618948382, +1.94896180706602872400760871869637057, +1.88844970098030281840419904326812835, +1.81635748354398410674127495103618662, +1.96197517391445910578838109189589099, +1.14227298075926512476636864024077868, +1.91703145064768665982873050297669513, +1.87292986985603249623249619259449124, +1.31310768353232505001265774097851340, +1.18613362770270093021516541061620455, +1.87502268123255957989191330498341231, +1.73197680263497427892210271367448804, +1.34176834304517012806858937792487882, +1.34284221111905758917154364990136791, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34
318reltol = sqrt(epsilon(1._TKG))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+51
328data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
329data
330(+1.22821999, +0.759441555), (+1.84000468, +0.412256896), (+1.40621889, +0.407143295), (+1.81423163, +0.406254888), (+1.85412991, +0.360179961), (+1.06685710, +0.191692173), (+1.73563266, +0.566818655), (+1.94407988, +0.424617052), (+1.25079060, +0.158763170), (+1.10840893, +0.562223554), (+1.48450744, +0.377190530), (+1.94453764, +0.358405471), (+1.65249920, +0.373514056), (+1.85414124, +0.631858230), (+1.46795559, +0.442488790), (+1.68178415, +0.969809830), (+1.21487856, +0.460962594), (+1.96011519, +0.346606791), (+1.56969213, +0.178194642E-1), (+1.12831163, +0.921485960), (+1.53919792, +0.782174587), (+1.84129715, +0.132316053), (+1.86952853, +0.141804457), (+1.17679429, +0.828508258), (+1.39982605, +0.418157876), (+1.77318835, +0.647847950), (+1.19783759, +0.234905124), (+1.75487709, +0.142808855), (+1.20124030, +0.661789119), (+1.55436826, +0.242482424), (+1.96261215, +0.150245011), (+1.03794169, +0.205870032), (+1.00254178, +0.311693192), (+1.48836327, +0.380006433E-1), (+1.56784427, +0.767182708), (+1.28848588, +0.704708338), (+1.69821954, +0.675312877E-1), (+1.55975723, +0.581825972E-1), (+1.11240458, +0.607711017), (+1.46255779, +0.901509404), (+1.70842576, +0.777501285), (+1.36409259, +0.176253855), (+1.67703676, +0.447772741E-1), (+1.94538879, +0.116095126), (+1.96328402, +0.820801437), (+1.48080397, +0.683188379), (+1.63858020, +0.377443373), (+1.44629872, +0.420787692), (+1.05135751, +0.171127498), (+1.69000340, +0.205429912), (+1.93492961, +0.219578087)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.22821987, +0.759441614), (+1.84000480, +0.412257016), (+1.40621865, +0.407143354), (+1.81423140, +0.406254858), (+1.85413027, +0.360179901), (+1.06685734, +0.191692203), (+1.73563254, +0.566818714), (+1.94408000, +0.424617052), (+1.25079036, +0.158763260), (+1.10840905, +0.562223554), (+1.48450708, +0.377190590), (+1.94453764, +0.358405322), (+1.65249920, +0.373514324), (+1.85414135, +0.631858408), (+1.46795571, +0.442488909), (+1.68178415, +0.969809830), (+1.21487844, +0.460962653), (+1.96011531, +0.346606791), (+1.56969190, +0.178194940E-1), (+1.12831187, +0.921485901), (+1.53919792, +0.782174706), (+1.84129739, +0.132316068), (+1.86952829, +0.141804308), (+1.17679441, +0.828508258), (+1.39982581, +0.418157905), (+1.77318811, +0.647847891), (+1.19783723, +0.234905064), (+1.75487709, +0.142808750), (+1.20124006, +0.661789179), (+1.55436838, +0.242482483), (+1.96261203, +0.150245130), (+1.03794193, +0.205869883), (+1.00254166, +0.311693192), (+1.48836339, +0.380006284E-1), (+1.56784427, +0.767182589), (+1.28848600, +0.704708219), (+1.69821978, +0.675312430E-1), (+1.55975723, +0.581825376E-1), (+1.11240447, +0.607711077), (+1.46255815, +0.901509285), (+1.70842552, +0.777501345), (+1.36409271, +0.176253855), (+1.67703629, +0.447773784E-1), (+1.94538879, +0.116095118), (+1.96328378, +0.820801616), (+1.48080385, +0.683188379), (+1.63858020, +0.377443433), (+1.44629884, +0.420787752), (+1.05135739, +0.171127558), (+1.69000351, +0.205429852), (+1.93492961, +0.219577968), (+0.417232513E-6, +0.238418579E-6), (+0.596046448E-7, +0.119209290E-6), (+0.238418579E-6, +0.149011612E-7), (+0.238418579E-6, +0.208616257E-6), (+0.596046448E-6, +0.208616257E-6), (+0.596046448E-7, -0.298023224E-7), (+0.417232513E-6, +0.894069672E-7), (+0.00000000, +0.208616257E-6), (+0.357627869E-6, +0.745058060E-7), (+0.178813934E-6, -0.268220901E-6), (+0.596046448E-6, -0.119209290E-6), (+0.119209290E-6, -0.596046448E-7), (+0.238418579E-6, +0.894069672E-7)
336reltol = sqrt(epsilon(1._TKG))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+35
346data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
347data
348(+1.0761348297794113, +0.68918290859142239), (+1.7714712241129393, +0.49267159928151039), (+1.9107703876407147, +0.85828712336360902), (+1.8855938131581544, +0.44791560084541393), (+1.0878592426736979, +0.45510158698540981), (+1.8590740431328261, +0.48880518705781406), (+1.4586463210089073, +0.92112113132142825), (+1.5058059884119670, +0.44520665267505100), (+1.6358338810064015, +0.24267209894954334), (+1.1940652730074510, +0.23982545268197775), (+1.5307748519266942, +0.96863565299996957), (+1.8854791370191206, +0.60710333304442254), (+1.3808965102568496, +0.88326790297173507), (+1.5222859304987351, +0.34240657895587390), (+1.5124674263234201, +0.79958023450880189), (+1.5750472948993690, +0.12206233608667560), (+1.9001542561012585, +0.13367695981106931), (+1.6570121606146406, +0.91414285498025216E-1), (+1.1108748804292374, +0.70095287350167745), (+1.3226953207473764, +0.25621680799451718), (+1.0350002564194458, +0.14670208306545707), (+1.4046123431218722, +0.30270700112476123), (+1.1165810930902969, +0.25162928507418414), (+1.3704058064056348, +0.28446910135958836), (+1.3361120205963504, +0.56394792196685073), (+1.1422140960528613, +0.50143805996483037), (+1.6087915792974528, +0.96100719624150821), (+1.4433401192190758, +0.51193838939262282), (+1.0286225858971105, +0.25477615487151151), (+1.0443120195196300, +0.88544627533980003), (+1.1226092539594965, +0.49722365993445328), (+1.7125738591577266, +0.52033878511358833), (+1.7395322234906818, +0.36253118199609602), (+1.6989033408869134, +0.12668605897145235), (+1.2089679501113797, +0.92944442446528031)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.0761348297794113, +0.68918290859142251), (+1.7714712241129398, +0.49267159928151061), (+1.9107703876407145, +0.85828712336360913), (+1.8855938131581542, +0.44791560084541426), (+1.0878592426736979, +0.45510158698540981), (+1.8590740431328263, +0.48880518705781439), (+1.4586463210089071, +0.92112113132142814), (+1.5058059884119670, +0.44520665267505083), (+1.6358338810064013, +0.24267209894954372), (+1.1940652730074510, +0.23982545268197791), (+1.5307748519266935, +0.96863565299996957), (+1.8854791370191202, +0.60710333304442266), (+1.3808965102568496, +0.88326790297173519), (+1.5222859304987348, +0.34240657895587434), (+1.5124674263234197, +0.79958023450880189), (+1.5750472948993690, +0.12206233608667595), (+1.9001542561012585, +0.13367695981106917), (+1.6570121606146411, +0.91414285498025202E-1), (+1.1108748804292379, +0.70095287350167723), (+1.3226953207473764, +0.25621680799451724), (+1.0350002564194458, +0.14670208306545710), (+1.4046123431218722, +0.30270700112476134), (+1.1165810930902969, +0.25162928507418414), (+1.3704058064056346, +0.28446910135958825), (+1.3361120205963504, +0.56394792196685062), (+1.1422140960528613, +0.50143805996483026), (+1.6087915792974525, +0.96100719624150743), (+1.4433401192190756, +0.51193838939262237), (+1.0286225858971105, +0.25477615487151140), (+1.0443120195196298, +0.88544627533979980), (+1.1226092539594967, +0.49722365993445294), (+1.7125738591577264, +0.52033878511358789), (+1.7395322234906818, +0.36253118199609591), (+1.6989033408869134, +0.12668605897145235), (+1.2089679501113801, +0.92944442446527975), (+0.0000000000000000, -0.33306690738754696E-15), (+0.11102230246251565E-15, +0.83266726846886741E-16), (-0.33306690738754696E-15, -0.24980018054066022E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, -0.16653345369377348E-15), (-0.11102230246251565E-15, -0.41633363423443370E-16), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.41633363423443370E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, -0.34694469519536142E-15), (+0.0000000000000000, +0.13877787807814457E-15), (+0.0000000000000000, +0.12490009027033011E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.83266726846886741E-16), (+0.0000000000000000, -0.13877787807814457E-15), (+0.0000000000000000, +0.30531133177191805E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.16653345369377348E-15), (+0.0000000000000000, -0.55511151231257827E-16), (+0.0000000000000000, +0.72164496600635175E-15), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.19428902930940239E-15), (+0.22204460492503131E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.69388939039072284E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15)
354reltol = sqrt(epsilon(1._TKG))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+72
364data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
365data
366(+1.26002567892148061035743390693080739, +0.357684185906179920697820772620993807), (+1.57584033827792881306733300117972017, +0.519679456497690922479378985762318823), (+1.21227169731261699253701339191669187, +0.953362615218702803292479765843014381), (+1.46014945130198423407516775564018210, +0.121438941445604768835585736171092945), (+1.44086084508025464846308966402557629, +0.606239525720279397209315576184935502), (+1.20340649934203277846755664306369556, +0.552565313207388562968864640828139785), (+1.62889637217477014122386440383368864, +0.951232789307389511277662672534973116), (+1.51279195456165121102568283361809961, +0.514455569640847572648704583860437771), (+1.70395912075518333880471755704793170, +0.459825962822537683168004978567377839), (+1.71357490275078207139957967979359363, +0.254739208018643003323141033566600307), (+1.58994914754266656150828779948240951, +0.230423681192957296701216626395660440), (+1.07688177672937179270959661125825021, +0.403590293762755906040069814494954840), (+1.74029729904624424602908983076876018, +0.668403755900872590832516628065751397), (+1.61810384326027165302012428816066437, +0.139670090526989667564154366529968973E-1), (+1.53844205666548295755062094300869114, +0.441291142071879764059581299168746199), (+1.15343792399676943181419543811123922, +0.805898975561208251275828845311887337), (+1.39820258648428356270225267503610031, +0.307259741898641651213734856762343429), (+1.42528625747535843220345751874701840, +0.145014644181836955266547444958536203), (+1.57679847462940310978111065875031889, +0.473096174127552265815055643427329049), (+1.68326522901518215114312658663868825, +0.697911355255176756524640104535713949), (+1.03511191330382510377309157040328512, +0.155065430874568582232314756670835071), (+1.89646520079597593747790399399420602, +0.322350427841423566930649918425461225E-2), (+1.87434550468382565247633922799244049, +0.780754376134405506498997871857931652), (+1.59969448045751254871572097648100141, +0.273939878550316216476131050259173692), (+1.10013187276504651826523331058146343, +0.314029985205737860679052107597251155), (+1.67225220694767573068864568865505581, +0.937628716912374260854788635264747714), (+1.11811089772176763313141774263833775, +0.851979486484189088563519830277664482), (+1.41035559786360030017929286147013919, +0.139159100296794068319244282021400886), (+1.90597413695436958971467477510636406, +0.978794587929227844018922709412987828), (+1.60518158065354685795494809863712690, +0.138480882322444605697105076112733029), (+1.74867252335430153694118094817829159, +0.970522082693185425367376391787403217), (+1.38058202258155653918725141561073391, +0.921833055839864173521149472959832066), (+1.28006861208160685637682470520699545, +0.296360321339934300173195652681090321), (+1.20356008239182458751369304458985151, +0.809314120511015564927298943964181574), (+1.84422985092578548425586846444071351, +0.473911889015136036395116136869345031), (+1.97496524229840110113540127723077115, +0.637301413654857326243165550092708671), (+1.27567162808537099837080376121403368, +0.162847546453550640004463991299014618E-1), (+1.53473497819023064212008621591315378, +0.672176221062786000390426701666480442), (+1.86689828209546768805421846526721826, +0.444533274692389142727936942776164936), (+1.42837829569055845069179143157409416, +0.615109717545441874099631669485424357), (+1.73776669431649562715842939519274983, +0.755639425708153184956619596650463057), (+1.31563707576819520524106196539422588, +0.511228991498025615539096924508328852), (+1.55736395114055358417052896777102590, +0.588622600724010335424975467668797394E-1), (+1.40467227054346371727523416331981472, +0.919715344494065639200389294288933956E-1), (+1.07297625560676279553049010021017328, +0.318575660338484931948317347119150816), (+1.95608421329234949625108337880755304, +0.458313768185244544957806034776044673), (+1.80409134707258062646512782530572821, +0.460325398205462779105863960464601935), (+1.94550284173356413179848977177708917, +0.929334677060625918769833617546307539), (+1.70330101355646431921006900288327576, +0.408053371381716791131731877088823525), (+1.09093654476801072453222276202208377, +0.645956901129035935630380567451332793), (+1.91494728649519073244572720454345599, +0.609205109045912394896232769122398124), (+1.08403907235079205721313844362887458, +0.977796198364069963141531246689865101), (+1.99789683691564054430839358065390853, +0.765444014958153976026862303083350003), (+1.75493864449366733082169800810554280, +0.896232383027293873831317938745824495), (+1.95544629585157695155839140213364765, +0.248458927622289152909948613840336683), (+1.48363350320353090790095550245238575, +0.763688785787322313604405868286871315), (+1.36538837364412566029502190853967736, +0.219892478511357398782026858371195626), (+1.63206990991236199452379162969082530, +0.715115474847235038189105860693592207), (+1.51883391026645441748285357296878594, +0.453692320528807390450928709486179464), (+1.01868858000209521756313379539320893, +0.577757501068604008728695183249824319), (+1.89093147630473467395562351420852502, +0.144320030954383122886412391910774042E-1), (+1.35343490150143281898841330357754349, +0.411062724537772472258130678081114423), (+1.56331623770204497836478998626295610, +0.432006373257713731261616860335727116), (+1.61840726913824677998951461429483837, +0.701245973826580906595909626307445789), (+1.00335898133674927558080332684658481, +0.169270350418789232116940331297940180), (+1.06264263528226063073490720840445813, +0.753193470082407134808018950135716182), (+1.95733055373316610796649158576416605, +0.130514299216533157231640690325905182), (+1.07823103555051674949671782907324619, +0.769513134217373965746594401398729257), (+1.41485854129711350652479582775622603, +0.644025255553607742797164652677744719E-1), (+1.02639362351675572037141407840771442, +0.126917600477014529002284406184883548), (+1.86003876081187214300077761695026644, +0.653799317655143626916760599382863671), (+1.39639936831080341143223548319210534, +0.225543572622239878718250870748217784)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.26002567892148061035743390693080739, +0.357684185906179920697820772620993951), (+1.57584033827792881306733300117972055, +0.519679456497690922479378985762318437), (+1.21227169731261699253701339191669206, +0.953362615218702803292479765843014381), (+1.46014945130198423407516775564018229, +0.121438941445604768835585736171092945), (+1.44086084508025464846308966402557629, +0.606239525720279397209315576184935599), (+1.20340649934203277846755664306369537, +0.552565313207388562968864640828139592), (+1.62889637217477014122386440383368845, +0.951232789307389511277662672534973116), (+1.51279195456165121102568283361809942, +0.514455569640847572648704583860437579), (+1.70395912075518333880471755704793208, +0.459825962822537683168004978567378032), (+1.71357490275078207139957967979359421, +0.254739208018643003323141033566600259), (+1.58994914754266656150828779948240989, +0.230423681192957296701216626395660200), (+1.07688177672937179270959661125825021, +0.403590293762755906040069814494954888), (+1.74029729904624424602908983076876057, +0.668403755900872590832516628065751493), (+1.61810384326027165302012428816066514, +0.139670090526989667564154366529964639E-1), (+1.53844205666548295755062094300869172, +0.441291142071879764059581299168746199), (+1.15343792399676943181419543811123922, +0.805898975561208251275828845311887530), (+1.39820258648428356270225267503610031, +0.307259741898641651213734856762343429), (+1.42528625747535843220345751874701879, +0.145014644181836955266547444958535986), (+1.57679847462940310978111065875031927, +0.473096174127552265815055643427329001), (+1.68326522901518215114312658663868863, +0.697911355255176756524640104535714045), (+1.03511191330382510377309157040328531, +0.155065430874568582232314756670834975), (+1.89646520079597593747790399399420621, +0.322350427841423566930649918425410670E-2), (+1.87434550468382565247633922799244087, +0.780754376134405506498997871857931363), (+1.59969448045751254871572097648100141, +0.273939878550316216476131050259173499), (+1.10013187276504651826523331058146362, +0.314029985205737860679052107597251155), (+1.67225220694767573068864568865505620, +0.937628716912374260854788635264748003), (+1.11811089772176763313141774263833813, +0.851979486484189088563519830277664674), (+1.41035559786360030017929286147013919, +0.139159100296794068319244282021401079), (+1.90597413695436958971467477510636406, +0.978794587929227844018922709412988117), (+1.60518158065354685795494809863712729, +0.138480882322444605697105076112732981), (+1.74867252335430153694118094817829198, +0.970522082693185425367376391787403506), (+1.38058202258155653918725141561073411, +0.921833055839864173521149472959832451), (+1.28006861208160685637682470520699545, +0.296360321339934300173195652681090321), (+1.20356008239182458751369304458985151, +0.809314120511015564927298943964181767), (+1.84422985092578548425586846444071389, +0.473911889015136036395116136869345079), (+1.97496524229840110113540127723077153, +0.637301413654857326243165550092708864), (+1.27567162808537099837080376121403406, +0.162847546453550640004463991299015580E-1), (+1.53473497819023064212008621591315416, +0.672176221062786000390426701666480346), (+1.86689828209546768805421846526721865, +0.444533274692389142727936942776164984), (+1.42837829569055845069179143157409435, +0.615109717545441874099631669485424357), (+1.73776669431649562715842939519274983, +0.755639425708153184956619596650463538), (+1.31563707576819520524106196539422608, +0.511228991498025615539096924508329141), (+1.55736395114055358417052896777102628, +0.588622600724010335424975467668799801E-1), (+1.40467227054346371727523416331981510, +0.919715344494065639200389294288936364E-1), (+1.07297625560676279553049010021017328, +0.318575660338484931948317347119150816), (+1.95608421329234949625108337880755382, +0.458313768185244544957806034776045058), (+1.80409134707258062646512782530572859, +0.460325398205462779105863960464602320), (+1.94550284173356413179848977177708956, +0.929334677060625918769833617546307828), (+1.70330101355646431921006900288327595, +0.408053371381716791131731877088823621), (+1.09093654476801072453222276202208396, +0.645956901129035935630380567451332889), (+1.91494728649519073244572720454345657, +0.609205109045912394896232769122398317), (+1.08403907235079205721313844362887478, +0.977796198364069963141531246689865389), (+1.99789683691564054430839358065390892, +0.765444014958153976026862303083349714), (+1.75493864449366733082169800810554318, +0.896232383027293873831317938745824687), (+1.95544629585157695155839140213364804, +0.248458927622289152909948613840336732), (+1.48363350320353090790095550245238614, +0.763688785787322313604405868286871700), (+1.36538837364412566029502190853967755, +0.219892478511357398782026858371195819), (+1.63206990991236199452379162969082549, +0.715115474847235038189105860693592689), (+1.51883391026645441748285357296878613, +0.453692320528807390450928709486179849), (+1.01868858000209521756313379539320893, +0.577757501068604008728695183249824704), (+1.89093147630473467395562351420852521, +0.144320030954383122886412391910774042E-1), (+1.35343490150143281898841330357754349, +0.411062724537772472258130678081114808), (+1.56331623770204497836478998626295610, +0.432006373257713731261616860335727404), (+1.61840726913824677998951461429483856, +0.701245973826580906595909626307446078), (+1.00335898133674927558080332684658481, +0.169270350418789232116940331297940132), (+1.06264263528226063073490720840445813, +0.753193470082407134808018950135716471), (+1.95733055373316610796649158576416644, +0.130514299216533157231640690325905278), (+1.07823103555051674949671782907324619, +0.769513134217373965746594401398729546), (+1.41485854129711350652479582775622622, +0.644025255553607742797164652677742312E-1), (+1.02639362351675572037141407840771442, +0.126917600477014529002284406184883764), (+1.86003876081187214300077761695026644, +0.653799317655143626916760599382863767), (+1.39639936831080341143223548319210553, +0.225543572622239878718250870748217904), (-0.288889491658085377958396691387739098E-33, -0.264815367353244929795196967105427506E-33), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.361111864572606722447995864234673872E-33), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.529630734706489859590393934210855013E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, -0.457408361791968515100794761363920238E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, -0.505556610401649411427194209928543421E-33), (+0.00000000000000000000000000000000000, -0.264815367353244929795196967105427506E-33), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33)
372reltol = sqrt(epsilon(1._TKG))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+55
382data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
383data
384+1.25031352, +1.44963288, +1.55924678, +1.20154023, +1.35161781, +1.60043335, +1.65803385, +1.45842791, +1.98328972, +1.05737710, +1.89730084, +1.75572705, +1.08338749, +1.87421954, +1.26435924, +1.57656729, +1.86092091, +1.77154040, +1.12195992, +1.28611648, +1.22990048, +1.12840176, +1.97753704, +1.87277555, +1.65361452, +1.09073067, +1.50539017, +1.14003873, +1.10537398, +1.08796620, +1.71981537, +1.76636481, +1.20148480, +1.50906420, +1.22707689, +1.39488149, +1.78885806, +1.45513916, +1.19748998, +1.08862472, +1.48749793, +1.24814653, +1.62383461, +1.35967672, +1.10830760, +1.06194890, +1.70367670, +1.30898333, +1.48876691, +1.06556225, +1.19301844, +1.65912426, +1.06794238, +1.43456030, +1.92306185
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.25031364, +1.44963300, +1.55924666, +1.20154023, +1.35161769, +1.60043335, +1.65803373, +1.45842803, +1.98328972, +1.05737722, +1.89730072, +1.75572693, +1.08338773, +1.87421966, +1.26435935, +1.57656717, +1.86092103, +1.77154052, +1.12195981, +1.28611660, +1.22990060, +1.12840188, +1.97753680, +1.87277579, +1.65361452, +1.09073079, +1.50538993, +1.14003885, +1.10537410, +1.08796632, +1.71981525, +1.76636505, +1.20148480, +1.50906432, +1.22707689, +1.39488149, +1.78885806, +1.45513916, +1.19748986, +1.08862484, +1.48749804, +1.24814665, +1.62383461, +1.35967672, +1.10830796, +1.06194901, +1.70367658, +1.30898356, +1.48876703, +1.06556237, +1.19301832, +1.65912437, +1.06794238, +1.43456018, +1.92306173, +0.178813934E-6, +0.298023224E-6, +0.238418579E-6, -0.119209290E-6, +0.476837158E-6, +0.417232513E-6, +0.119209290E-6, +0.298023224E-6, +0.238418579E-6
390reltol = sqrt(epsilon(1._TKG))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+27
400data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
401data
402+1.4704743054401004, +1.3208729334835820, +1.6622237471715491, +1.1419427630501611, +1.5163197278074176, +1.3675866377809671, +1.3951358669087377, +1.6751283311918719, +1.9776025850780801, +1.5215048621929297, +1.0443976371157979, +1.0132846911958109, +1.8519206936660861, +1.0525924865707270, +1.0320866880608062, +1.1288404961644822, +1.8187599329539685, +1.3051629933815034, +1.5898737758310988, +1.7686775236824874, +1.3120421500024073, +1.9156545148401214, +1.9028267330229731, +1.7467704485549980, +1.3020139539600311, +1.0241709607894096, +1.0772456216307780
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.4704743054401006, +1.3208729334835820, +1.6622237471715489, +1.1419427630501608, +1.5163197278074176, +1.3675866377809667, +1.3951358669087370, +1.6751283311918717, +1.9776025850780803, +1.5215048621929292, +1.0443976371157981, +1.0132846911958109, +1.8519206936660866, +1.0525924865707266, +1.0320866880608062, +1.1288404961644822, +1.8187599329539688, +1.3051629933815034, +1.5898737758310986, +1.7686775236824872, +1.3120421500024078, +1.9156545148401209, +1.9028267330229722, +1.7467704485549973, +1.3020139539600306, +1.0241709607894096, +1.0772456216307777, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.33306690738754696E-15
408reltol = sqrt(epsilon(1._TKG))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+7
418data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
419data
420+1.62960704337819187076815876626154000, +1.72030081582267872555128553519058048, +1.11549030608939181682860298352947140, +1.94905387973710513735630872645921172, +1.81893649827987725034667112975827111, +1.13268821036187236077610315841039367, +1.55575406540485871548272288391224448
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.62960704337819187076815876626153981, +1.72030081582267872555128553519058048, +1.11549030608939181682860298352947121, +1.94905387973710513735630872645921172, +1.81893649827987725034667112975827091, +1.13268821036187236077610315841039367, +1.55575406540485871548272288391224429, +0.00000000000000000000000000000000000
426reltol = sqrt(epsilon(1._TKG))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+100
436data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
437data
438(+1.43819427, +0.801231086), (+1.33921695, +0.399888754), (+1.99463463, +0.877535224), (+1.53204250, +0.853440762E-1), (+1.52906775, +0.157312632), (+1.43371427, +0.676977038E-1), (+1.45098758, +0.655947030), (+1.35987067, +0.620872378E-1), (+1.88278770, +0.907703638), (+1.81266522, +0.461577594), (+1.78206491, +0.593143344), (+1.02670264, +0.723501146), (+1.57625914, +0.534254789), (+1.34104133, +0.264651418), (+1.05115271, +0.676172376E-1), (+1.97522521, +0.468043089), (+1.59026384, +0.415774584), (+1.53304553, +0.347449243), (+1.18720591, +0.819402397), (+1.49454379, +0.931297064), (+1.40195417, +0.830835879), (+1.47021437, +0.901029110), (+1.53783023, +0.945894778), (+1.82526541, +0.282830596), (+1.54365540, +0.452137053), (+1.46627855, +0.271755695), (+1.62627888, +0.840807915), (+1.80476999, +0.827033997), (+1.43791366, +0.636053503), (+1.49359989, +0.889499009), (+1.43285048, +0.699971855), (+1.75956059, +0.622010469), (+1.28933573, +0.998403847), (+1.06720805, +0.180846632), (+1.17290235, +0.974121690), (+1.31664443, +0.175989330), (+1.58775163, +0.544233263), (+1.73662496, +0.642554879), (+1.93489146, +0.214601994), (+1.45861030, +0.455824912), (+1.24716699, +0.401168585), (+1.06071925, +0.249578536), (+1.87928295, +0.662946105E-1), (+1.81962109, +0.120460212), (+1.50023913, +0.202860355), (+1.03306735, +0.484952211), (+1.90268874, +0.148910582), (+1.57377696, +0.327585816), (+1.38014007, +0.273846149), (+1.47192144, +0.991068840), (+1.72472501, +0.151929498), (+1.34029889, +0.666418731), (+1.83605480, +0.121426582), (+1.68892312, +0.895840645), (+1.21914434, +0.934721231), (+1.78197694, +0.881013393), (+1.93025804, +0.874366820), (+1.13346529, +0.128214717), (+1.02288055, +0.553314388), (+1.35054922, +0.838231206), (+1.14305186, +0.137936771), (+1.07246876, +0.444616973), (+1.41683865, +0.564894855), (+1.17439365, +0.937701583), (+1.93296957, +0.445429087), (+1.01474857, +0.251462936), (+1.88554049, +0.721469581), (+1.25583708, +0.227204978), (+1.27063656, +0.207060456), (+1.85224462, +0.636593699), (+1.20637393, +0.964965701), (+1.68734550, +0.884112775), (+1.75629735, +0.730424821), (+1.07518113, +0.230501473), (+1.78925228, +0.923311889), (+1.70415998, +0.585642040), (+1.33218253, +0.826798558), (+1.15561914, +0.842832983), (+1.44391918, +0.405588746E-1), (+1.03834713, +0.117119610), (+1.91510534, +0.985050321), (+1.00225472, +0.630743265), (+1.17100561, +0.693103909), (+1.94565845, +0.669020414E-2), (+1.18375587, +0.363421261), (+1.70196128, +0.117605329), (+1.97355080, +0.200869858), (+1.68779159, +0.597370803), (+1.91304994, +0.656845331), (+1.67088890, +0.390508294), (+1.83121073, +0.394162476), (+1.88585889, +0.592216372), (+1.38937879, +0.182411313), (+1.09627128, +0.731693268), (+1.28401613, +0.613638461), (+1.64770377, +0.491303205), (+1.34580231, +0.373494029), (+1.71366739, +0.418944120), (+1.20044184, +0.683794320), (+1.84076142, +0.779530764)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.43819427, +0.801231027), (+1.33921719, +0.399888813), (+1.99463427, +0.877535164), (+1.53204238, +0.853441805E-1), (+1.52906752, +0.157312483), (+1.43371415, +0.676975846E-1), (+1.45098746, +0.655947089), (+1.35987031, +0.620871782E-1), (+1.88278770, +0.907703638), (+1.81266522, +0.461577713), (+1.78206491, +0.593143344), (+1.02670264, +0.723501086), (+1.57625937, +0.534254789), (+1.34104156, +0.264651448), (+1.05115271, +0.676171258E-1), (+1.97522497, +0.468043149), (+1.59026384, +0.415774554), (+1.53304553, +0.347449452), (+1.18720579, +0.819402218), (+1.49454367, +0.931297064), (+1.40195429, +0.830835819), (+1.47021437, +0.901028991), (+1.53783023, +0.945894539), (+1.82526529, +0.282830715), (+1.54365540, +0.452137142), (+1.46627855, +0.271755874), (+1.62627888, +0.840807796), (+1.80476987, +0.827034116), (+1.43791378, +0.636053443), (+1.49359965, +0.889499068), (+1.43285048, +0.699971855), (+1.75956059, +0.622010589), (+1.28933585, +0.998403907), (+1.06720829, +0.180846602), (+1.17290246, +0.974121571), (+1.31664455, +0.175989330), (+1.58775163, +0.544233143), (+1.73662496, +0.642554522), (+1.93489134, +0.214601815), (+1.45861042, +0.455824792), (+1.24716723, +0.401168525), (+1.06071925, +0.249578312), (+1.87928295, +0.662945211E-1), (+1.81962121, +0.120460153), (+1.50023937, +0.202860236), (+1.03306758, +0.484952152), (+1.90268874, +0.148910493), (+1.57377708, +0.327585697), (+1.38014019, +0.273846149), (+1.47192144, +0.991068661), (+1.72472489, +0.151929349), (+1.34029913, +0.666418612), (+1.83605492, +0.121426672), (+1.68892336, +0.895840526), (+1.21914434, +0.934721112), (+1.78197718, +0.881013155), (+1.93025815, +0.874366820), (+1.13346553, +0.128214702), (+1.02288067, +0.553314447), (+1.35054922, +0.838231087), (+1.14305210, +0.137936845), (+1.07246900, +0.444617093), (+1.41683865, +0.564895034), (+1.17439389, +0.937701583), (+1.93296957, +0.445429176), (+1.01474881, +0.251462936), (+1.88554037, +0.721469462), (+1.25583708, +0.227205023), (+1.27063656, +0.207060456), (+1.85224462, +0.636593699), (+1.20637405, +0.964965701), (+1.68734562, +0.884112716), (+1.75629735, +0.730424881), (+1.07518125, +0.230501369), (+1.78925204, +0.923311830), (+1.70415998, +0.585641980), (+1.33218265, +0.826798677), (+1.15561914, +0.842832923), (+1.44391894, +0.405591056E-1), (+1.03834724, +0.117119715), (+1.91510534, +0.985050201), (+1.00225472, +0.630743146), (+1.17100549, +0.693103909), (+1.94565833, +0.669014454E-2), (+1.18375599, +0.363421232), (+1.70196128, +0.117605329), (+1.97355068, +0.200869739), (+1.68779147, +0.597370505), (+1.91304970, +0.656845331), (+1.67088890, +0.390508354), (+1.83121037, +0.394162536), (+1.88585865, +0.592216372), (+1.38937867, +0.182411298), (+1.09627128, +0.731693149), (+1.28401601, +0.613638461), (+1.64770389, +0.491303235), (+1.34580219, +0.373494029), (+1.71366763, +0.418944031), (+1.20044196, +0.683794141), (+1.84076178, +0.779530466), (+0.119209290E-6, +0.178813934E-6), (+0.178813934E-6, +0.268220901E-6), (+0.357627869E-6, +0.357627869E-6), (+0.476837158E-6, +0.298023224E-6), (+0.119209290E-6, -0.119209290E-6), (+0.596046448E-7, +0.149011612E-7), (+0.238418579E-6, +0.894069672E-7), (+0.357627869E-6, +0.119209290E-6), (+0.178813934E-6, -0.596046448E-7), (+0.238418579E-6, -0.104308128E-6), (-0.596046448E-7, +0.208616257E-6), (+0.119209290E-6, +0.104308128E-6), (+0.119209290E-6, +0.00000000), (+0.357627869E-6, +0.596046448E-7), (+0.119209290E-6, +0.268220901E-6), (+0.298023224E-6, +0.596046448E-7), (+0.119209290E-6, +0.298023224E-7), (+0.298023224E-6, +0.119209290E-6), (+0.178813934E-6, +0.357627869E-6), (+0.417232513E-6, +0.119209290E-6), (+0.476837158E-6, -0.298023224E-6), (+0.357627869E-6, -0.223517418E-6), (+0.119209290E-6, -0.596046448E-7), (+0.357627869E-6, +0.298023224E-7), (+0.298023224E-6, -0.104308128E-6), (+0.357627869E-6, -0.745058060E-7), (+0.00000000, +0.149011612E-6), (+0.417232513E-6, +0.00000000)
444reltol = sqrt(epsilon(1._TKG))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+56
454data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
455data
456(+1.4552735560303875, +0.45212138358844467), (+1.6450769633735622, +0.22614978165071198), (+1.8842006695112590, +0.41124891561096222E-2), (+1.0640204355898581, +0.63131380706239926), (+1.7502788290249245, +0.85232609525175418), (+1.4011775488487130, +0.99871956303790288), (+1.5269592875861697, +0.43237925667296406), (+1.4187530677587730, +0.95295048031944674), (+1.6826123373713195, +0.14792290854135359E-1), (+1.0212512530599096, +0.83278982714276018), (+1.6938972810541131, +0.51525028663468642), (+1.6518632026706279, +0.58737921421322592), (+1.8217291052250166, +0.15202665191546361), (+1.5157907754018793, +0.76368284179827362), (+1.8689950800788755, +0.24070713063670546), (+1.0274628867922257, +0.86001715428766190), (+1.6756369937680975, +0.34687624791473992), (+1.9597643679587065, +0.94804046039950596), (+1.2757763968016773, +0.24656223391446352E-1), (+1.0037778879103851, +0.26629844824436355), (+1.4625679090215797, +0.49794392400609555), (+1.1298537321096722, +0.48364696220728742), (+1.6796524966910200, +0.48152497801771454), (+1.5891334212391341, +0.94325530040287808), (+1.1856482387262184, +0.30036991544282965E-1), (+1.8492341869591655, +0.59296898062665715), (+1.3058115354489419, +0.13179074656464396E-1), (+1.4512038823748479, +0.91668513202344293), (+1.7572185535812237, +0.36005529351494547), (+1.1029626785726825, +0.33641482529869871), (+1.5856386000706322, +0.62892815391681978), (+1.3096942864837526, +0.61278252251050558), (+1.7659026348828260, +0.33228547691257981), (+1.6292734038444125, +0.31491615449543486E-1), (+1.6973038852253430, +0.26169572641036765), (+1.1993141096653375, +0.28492101182311069), (+1.8677560405946023, +0.93572870262738128), (+1.8813627623259279, +0.95682350686638573), (+1.0802910535426848, +0.66090585237545751), (+1.6361666076641992, +0.64103029369407694), (+1.7135713450917769, +0.52405871918844416), (+1.6767068916343182, +0.93045256173442215), (+1.0576503799301915, +0.45765971130719596), (+1.0632933148906611, +0.70613357898831974), (+1.4616358710448019, +0.94611574070861304), (+1.6093516038361744, +0.38155935272459429), (+1.6067882449113535, +0.88986862952746126), (+1.3987642370602678, +0.30525368837150735), (+1.1032756676477371, +0.16065454160655568), (+1.2876607243100799, +0.82158238776245474), (+1.2453686770092303, +0.27910407514389457), (+1.9372515906868237, +0.11400425518995383), (+1.7124869034667809, +0.28826294662387308), (+1.4339551670167352, +0.57274958451204072), (+1.1021162257084569, +0.20854076150016154), (+1.5424816859080805, +0.60621275730742308)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.4552735560303878, +0.45212138358844450), (+1.6450769633735625, +0.22614978165071190), (+1.8842006695112588, +0.41124891561098997E-2), (+1.0640204355898581, +0.63131380706239937), (+1.7502788290249245, +0.85232609525175396), (+1.4011775488487128, +0.99871956303790288), (+1.5269592875861697, +0.43237925667296395), (+1.4187530677587730, +0.95295048031944674), (+1.6826123373713198, +0.14792290854135526E-1), (+1.0212512530599096, +0.83278982714276018), (+1.6938972810541131, +0.51525028663468642), (+1.6518632026706275, +0.58737921421322614), (+1.8217291052250162, +0.15202665191546377), (+1.5157907754018793, +0.76368284179827395), (+1.8689950800788750, +0.24070713063670562), (+1.0274628867922260, +0.86001715428766168), (+1.6756369937680977, +0.34687624791473992), (+1.9597643679587065, +0.94804046039950562), (+1.2757763968016773, +0.24656223391446380E-1), (+1.0037778879103854, +0.26629844824436366), (+1.4625679090215800, +0.49794392400609544), (+1.1298537321096722, +0.48364696220728731), (+1.6796524966910202, +0.48152497801771421), (+1.5891334212391344, +0.94325530040287797), (+1.1856482387262188, +0.30036991544282882E-1), (+1.8492341869591660, +0.59296898062665715), (+1.3058115354489419, +0.13179074656464174E-1), (+1.4512038823748474, +0.91668513202344248), (+1.7572185535812235, +0.36005529351494525), (+1.1029626785726827, +0.33641482529869848), (+1.5856386000706320, +0.62892815391681933), (+1.3096942864837531, +0.61278252251050525), (+1.7659026348828262, +0.33228547691257976), (+1.6292734038444128, +0.31491615449543459E-1), (+1.6973038852253430, +0.26169572641036737), (+1.1993141096653375, +0.28492101182311091), (+1.8677560405946023, +0.93572870262738128), (+1.8813627623259275, +0.95682350686638618), (+1.0802910535426853, +0.66090585237545729), (+1.6361666076641992, +0.64103029369407694), (+1.7135713450917767, +0.52405871918844404), (+1.6767068916343180, +0.93045256173442203), (+1.0576503799301915, +0.45765971130719579), (+1.0632933148906609, +0.70613357898831963), (+1.4616358710448014, +0.94611574070861271), (+1.6093516038361744, +0.38155935272459418), (+1.6067882449113533, +0.88986862952746071), (+1.3987642370602675, +0.30525368837150746), (+1.1032756676477373, +0.16065454160655568), (+1.2876607243100797, +0.82158238776245462), (+1.2453686770092305, +0.27910407514389446), (+1.9372515906868235, +0.11400425518995375), (+1.7124869034667809, +0.28826294662387286), (+1.4339551670167352, +0.57274958451204061), (+1.1021162257084569, +0.20854076150016143), (+1.5424816859080808, +0.60621275730742263), (+0.33306690738754696E-15, -0.83266726846886741E-16), (+0.0000000000000000, -0.16653345369377348E-15), (+0.77715611723760958E-15, +0.44408920985006262E-15), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.55511151231257827E-15, +0.0000000000000000), (+0.55511151231257827E-15, +0.0000000000000000), (+0.66613381477509392E-15, +0.55511151231257827E-15), (+0.55511151231257827E-15, +0.44408920985006262E-15)
462reltol = sqrt(epsilon(1._TKG))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+23
472data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
473data
474(+1.84494025948306708861696664406526993, +0.572018413669144542669067119865046337), (+1.48057483619424590674771511167022087, +0.309397728584774846041150165215131050), (+1.45976245333368141353244798730035633, +0.420144161906588206220691892111772874), (+1.19460821553270210760142775628354335, +0.287954123592636885682349724182954453), (+1.82129037138604838992420580500510548, +0.131333688765823893879155826356600090E-1), (+1.42651764298833663388785492795933763, +0.334095183781109116164873806550192694), (+1.35188569614610121180571164879390143, +0.171493764359981733178276821897296241E-1), (+1.80008152765113250951486527244716073, +0.218778550667086764476303568246068412), (+1.03563650774800442719855137707023766, +0.927001390175863148194753235193753878), (+1.70991678876154796796735333371528484, +0.596396592309757007446220140317347398), (+1.82141038750243066251829889952837739, +0.612860918393305613102848758610249367), (+1.24597378896218135651138431995168894, +0.444281741442948179751592390542886099), (+1.13268541545494390032971778335551986, +0.960144231680090668857001316091597012), (+1.35620019984767413450538745931791925, +0.669563980259266878755636618361056134), (+1.39302545763986380094901505021439859, +0.769146177257034075053816580427198572E-1), (+1.61425984567885551390578441401758559, +0.343600598001276398260057670056949592), (+1.18090881875787009207937599006763916, +0.401577807200058923412717430051749648), (+1.67625526040359051706130660604090040, +0.154928887417894074847011654963484364), (+1.09874504646682888885512582319756396, +0.563369170532713411179714714541748907), (+1.96630729128757891240243046759085335, +0.706252630875945284335195967157780846), (+1.73970549628151162862708330291023508, +0.592981652764792023475409097580275499), (+1.99902380103600156224000605492483936, +0.979162579400476901370725729895088757), (+1.33223464413842894309530246920917074, +0.931730686149937313471821096816679813E-1)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.84494025948306708861696664406527013, +0.572018413669144542669067119865046337), (+1.48057483619424590674771511167022048, +0.309397728584774846041150165215130953), (+1.45976245333368141353244798730035671, +0.420144161906588206220691892111772970), (+1.19460821553270210760142775628354373, +0.287954123592636885682349724182954261), (+1.82129037138604838992420580500510606, +0.131333688765823893879155826356598164E-1), (+1.42651764298833663388785492795933744, +0.334095183781109116164873806550192694), (+1.35188569614610121180571164879390181, +0.171493764359981733178276821897294676E-1), (+1.80008152765113250951486527244716093, +0.218778550667086764476303568246068147), (+1.03563650774800442719855137707023766, +0.927001390175863148194753235193753782), (+1.70991678876154796796735333371528465, +0.596396592309757007446220140317347302), (+1.82141038750243066251829889952837739, +0.612860918393305613102848758610249463), (+1.24597378896218135651138431995168913, +0.444281741442948179751592390542886051), (+1.13268541545494390032971778335552006, +0.960144231680090668857001316091597012), (+1.35620019984767413450538745931791906, +0.669563980259266878755636618361056038), (+1.39302545763986380094901505021439879, +0.769146177257034075053816580427199294E-1), (+1.61425984567885551390578441401758559, +0.343600598001276398260057670056949688), (+1.18090881875787009207937599006763935, +0.401577807200058923412717430051749552), (+1.67625526040359051706130660604090020, +0.154928887417894074847011654963484316), (+1.09874504646682888885512582319756396, +0.563369170532713411179714714541749099), (+1.96630729128757891240243046759085354, +0.706252630875945284335195967157780942), (+1.73970549628151162862708330291023546, +0.592981652764792023475409097580275499), (+1.99902380103600156224000605492483936, +0.979162579400476901370725729895088565), (+1.33223464413842894309530246920917093, +0.931730686149937313471821096816680414E-1), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-33), (+0.385185988877447170611195588516985464E-33, -0.722223729145213444895991728469347744E-34), (+0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33)
480reltol = sqrt(epsilon(1._TKG))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+57
490data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
491data
492+1.30378056, +1.89081740, +1.73634946, +1.99628925, +1.80729067, +1.52402258, +1.39746988, +1.58227897, +1.95271981, +1.39620495, +1.44305801, +1.65047026, +1.11222529, +1.95518100, +1.14665866, +1.01633501, +1.70117986, +1.35061026, +1.56235170, +1.28980923, +1.78506541, +1.41356659, +1.06702566, +1.97240913, +1.00370073, +1.46603441, +1.88787603, +1.65950537, +1.21737432, +1.40679121, +1.91331124, +1.71909022, +1.28261185, +1.58963060, +1.71421766, +1.71109998, +1.40152323, +1.89426374, +1.28915000, +1.06207192, +1.17016292, +1.09199238, +1.46008182, +1.32998753, +1.20617795, +1.89060402, +1.63450789, +1.80733299, +1.66870070, +1.27780199, +1.28984785, +1.96684361, +1.36697245, +1.85615051, +1.59182739, +1.30571198, +1.42402196
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.30378044, +1.89081717, +1.73634934, +1.99628937, +1.80729043, +1.52402258, +1.39746964, +1.58227897, +1.95271993, +1.39620471, +1.44305789, +1.65047050, +1.11222541, +1.95518076, +1.14665878, +1.01633501, +1.70117986, +1.35060990, +1.56235147, +1.28980935, +1.78506529, +1.41356671, +1.06702554, +1.97240901, +1.00370061, +1.46603417, +1.88787568, +1.65950561, +1.21737432, +1.40679121, +1.91331100, +1.71909022, +1.28261173, +1.58963037, +1.71421766, +1.71110022, +1.40152323, +1.89426374, +1.28914988, +1.06207204, +1.17016292, +1.09199214, +1.46008170, +1.32998776, +1.20617807, +1.89060390, +1.63450778, +1.80733275, +1.66870058, +1.27780163, +1.28984785, +1.96684372, +1.36697233, +1.85615051, +1.59182727, +1.30571198, +1.42402184, +0.00000000, +0.00000000, +0.417232513E-6, +0.298023224E-6, +0.00000000, +0.357627869E-6, +0.596046448E-7
498reltol = sqrt(epsilon(1._TKG))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+89
508data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
509data
510+1.0850488762567432, +1.6834700097506450, +1.7353387120704111, +1.2821596808970530, +1.8032390755116512, +1.7739836466949586, +1.6655175114940570, +1.4690256772780308, +1.8100047047059882, +1.4808386185098179, +1.7312706260202759, +1.9980281197344594, +1.8548895415916609, +1.5337384673951480, +1.4965782830089700, +1.9540955303081944, +1.5051787310858671, +1.4807252024944568, +1.1646226945891804, +1.9719833248527612, +1.5053584221632139, +1.1085324764781430, +1.5735616895297335, +1.4559597914109681, +1.5522179300070913, +1.3884768531395213, +1.7562869499580795, +1.8168152162613054, +1.2399667855462302, +1.6859995039917852, +1.4503619146094975, +1.0799711285391238, +1.6905153626248803, +1.1537678246337255, +1.4874886770924465, +1.3118312463443185, +1.7014489157938302, +1.7704568374425842, +1.8090032336774937, +1.6831660278732112, +1.3177207132381452, +1.6100772087603790, +1.4419745334737346, +1.5963501850526396, +1.5307094378638015, +1.4929234386591252, +1.6818560995706577, +1.2520883761616770, +1.1495428153635521, +1.7475055927052776, +1.0846719758730567, +1.3941770103408413, +1.6516630879662695, +1.8259814246416637, +1.2605256830228524, +1.8605569361350596, +1.0229238071752178, +1.5691453544941318, +1.8718470203039561, +1.8438148104895142, +1.2341761342927273, +1.1928505684108508, +1.0361002842776394, +1.7516196510826658, +1.7075984861148863, +1.4100771306415378, +1.5286764692143462, +1.5319182607868089, +1.9883711838994840, +1.5536615262124847, +1.9533504013161505, +1.0978529999465620, +1.0878068771485396, +1.2357413130732269, +1.7760224651389021, +1.6191503656736885, +1.1333602659470441, +1.8036492696127002, +1.6274973131401018, +1.4432478251176382, +1.7260555531634072, +1.9355487469808335, +1.1790006541946354, +1.5921745167726535, +1.4288901434627963, +1.6874145978275146, +1.3054030823925356, +1.1206493379856974, +1.1009278302050471
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.0850488762567432, +1.6834700097506454, +1.7353387120704111, +1.2821596808970535, +1.8032390755116507, +1.7739836466949590, +1.6655175114940561, +1.4690256772780315, +1.8100047047059884, +1.4808386185098183, +1.7312706260202755, +1.9980281197344600, +1.8548895415916606, +1.5337384673951480, +1.4965782830089698, +1.9540955303081948, +1.5051787310858671, +1.4807252024944573, +1.1646226945891800, +1.9719833248527614, +1.5053584221632137, +1.1085324764781435, +1.5735616895297329, +1.4559597914109688, +1.5522179300070911, +1.3884768531395217, +1.7562869499580791, +1.8168152162613058, +1.2399667855462297, +1.6859995039917850, +1.4503619146094970, +1.0799711285391242, +1.6905153626248803, +1.1537678246337255, +1.4874886770924465, +1.3118312463443185, +1.7014489157938306, +1.7704568374425835, +1.8090032336774935, +1.6831660278732117, +1.3177207132381459, +1.6100772087603792, +1.4419745334737348, +1.5963501850526400, +1.5307094378638015, +1.4929234386591248, +1.6818560995706580, +1.2520883761616772, +1.1495428153635525, +1.7475055927052778, +1.0846719758730567, +1.3941770103408415, +1.6516630879662701, +1.8259814246416632, +1.2605256830228528, +1.8605569361350596, +1.0229238071752182, +1.5691453544941314, +1.8718470203039552, +1.8438148104895140, +1.2341761342927278, +1.1928505684108506, +1.0361002842776394, +1.7516196510826656, +1.7075984861148861, +1.4100771306415378, +1.5286764692143460, +1.5319182607868087, +1.9883711838994840, +1.5536615262124844, +1.9533504013161502, +1.0978529999465623, +1.0878068771485396, +1.2357413130732264, +1.7760224651389014, +1.6191503656736883, +1.1333602659470443, +1.8036492696127002, +1.6274973131401016, +1.4432478251176382, +1.7260555531634074, +1.9355487469808335, +1.1790006541946352, +1.5921745167726535, +1.4288901434627974, +1.6874145978275137, +1.3054030823925362, +1.1206493379856965, +1.1009278302050478, -0.22204460492503131E-15, +0.0000000000000000, -0.55511151231257827E-15, +0.99920072216264089E-15, -0.11102230246251565E-15, +0.99920072216264089E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.88817841970012523E-15, +0.66613381477509392E-15, +0.77715611723760958E-15, +0.11102230246251565E-15, +0.99920072216264089E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.11102230246251565E-14, -0.22204460492503131E-15, +0.11102230246251565E-14, -0.44408920985006262E-15, +0.13322676295501878E-14
516reltol = sqrt(epsilon(1._TKG))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+88
526data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
527data
528+1.50002383709379608445322210943370362, +1.68482528844224174699189233425415512, +1.81636533032661391281180936886762309, +1.98899920455168361105433945693557339, +1.25303592011853048744373187044181657, +1.40385874910903222112290296444116043, +1.10591362934886069593109920137935121, +1.72155068082221373069657720514234557, +1.11841434662628765083165234682242305, +1.53601796260901145615567290397852099, +1.69551733630497533739746739574006949, +1.02399017392294247371503711849623192, +1.35398289135029719016408721167730537, +1.25278917361983339068883013458980980, +1.84362709202883485995793256810600345, +1.03080630509498651217483099972024314, +1.53497287795583637594220428466213362, +1.05652565563097899710031952780603335, +1.58112060764260393896936288984998358, +1.25429143582941012072711265469054524, +1.67235454292663144186563745675416538, +1.23086020312146820068827066040488119, +1.76298024884226707059967865976419433, +1.14357341046401474694621068269818674, +1.40659864959806610228822062701628480, +1.01486210814010687176864072912663094, +1.54778907148503768779962432812253878, +1.32359631672073168247241521305475852, +1.25095213194226176396006781350029370, +1.50112854109624817824334779685630552, +1.00445687945835789755804240603372005, +1.56506665306450942318373227162716830, +1.41794839986810693008749120412676059, +1.64779946510109711861829613851607371, +1.93361170343594657764016956540887935, +1.43802981287356357803677818863141126, +1.16330681856608326575202909012656480, +1.56950002287074361987298258094523664, +1.72160695734798662317679697567572851, +1.22644237522956364074546495929635187, +1.08284560055611731593853515581513157, +1.10152025200115265070965465532780528, +1.67172727692577158623083526012320735, +1.33217981525712152109191684473283337, +1.44934532459486173951997022808957349, +1.22490967255702671124618416049222892, +1.55922200134593231164783249151325552, +1.72597670002769119552998620541841029, +1.22037967071389956793510067372977195, +1.24531046054994670828721674756706062, +1.57737956705492437801678956942354305, +1.07433603501276846002388646258691085, +1.18349992086580410678864652589270317, +1.41402353068466136575994915393725035, +1.70796816547247832386676210614389578, +1.20942100197770790655644263556900961, +1.40006742959273583190635499150622117, +1.44442895634749544772001773194278529, +1.41455232146910931071743479995366045, +1.54763746873246711291420358508600230, +1.35686008735650889062426602203037514, +1.33927303467742901093723827819356691, +1.24364022720512561256049199265367808, +1.03332557326075104352869135320187146, +1.03986385726842434216222893561650318, +1.16845908434501201269028951743287386, +1.38660041924568506383284221882270764, +1.20216827939590067446249558119518544, +1.27116363622307397373168132830296630, +1.23345973279356940367213026525561803, +1.29724292380850155144724075941364262, +1.94643219575841665629924070419380449, +1.46868208310293920594433333726514245, +1.84100724044581215237424522145632970, +1.37904055165766448473442960478694680, +1.62612697669935186482582446006874034, +1.31663262775843814971586705476049024, +1.61345477484615315222982824970342852, +1.27037910011384465288969688234607071, +1.06594987646251701862256312839119582, +1.47606570056961115387356353245859020, +1.98360853016677874008500682125013471, +1.41665450248626576352868124563263889, +1.68233644003063269730222708050998999, +1.54664008106119306758730996931428158, +1.10197362333868818627756945482384563, +1.09209473544207158219564614328988135, +1.70588023653466454663353368631151466
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.50002383709379608445322210943370362, +1.68482528844224174699189233425415551, +1.81636533032661391281180936886762328, +1.98899920455168361105433945693557358, +1.25303592011853048744373187044181638, +1.40385874910903222112290296444116081, +1.10591362934886069593109920137935082, +1.72155068082221373069657720514234557, +1.11841434662628765083165234682242344, +1.53601796260901145615567290397852156, +1.69551733630497533739746739574007007, +1.02399017392294247371503711849623173, +1.35398289135029719016408721167730633, +1.25278917361983339068883013458980980, +1.84362709202883485995793256810600365, +1.03080630509498651217483099972024352, +1.53497287795583637594220428466213343, +1.05652565563097899710031952780603355, +1.58112060764260393896936288984998358, +1.25429143582941012072711265469054563, +1.67235454292663144186563745675416519, +1.23086020312146820068827066040488119, +1.76298024884226707059967865976419395, +1.14357341046401474694621068269818712, +1.40659864959806610228822062701628518, +1.01486210814010687176864072912663113, +1.54778907148503768779962432812253897, +1.32359631672073168247241521305475910, +1.25095213194226176396006781350029390, +1.50112854109624817824334779685630552, +1.00445687945835789755804240603372025, +1.56506665306450942318373227162716888, +1.41794839986810693008749120412676098, +1.64779946510109711861829613851607410, +1.93361170343594657764016956540887973, +1.43802981287356357803677818863141164, +1.16330681856608326575202909012656500, +1.56950002287074361987298258094523702, +1.72160695734798662317679697567572832, +1.22644237522956364074546495929635245, +1.08284560055611731593853515581513195, +1.10152025200115265070965465532780566, +1.67172727692577158623083526012320754, +1.33217981525712152109191684473283394, +1.44934532459486173951997022808957426, +1.22490967255702671124618416049222950, +1.55922200134593231164783249151325552, +1.72597670002769119552998620541841068, +1.22037967071389956793510067372977195, +1.24531046054994670828721674756706101, +1.57737956705492437801678956942354305, +1.07433603501276846002388646258691124, +1.18349992086580410678864652589270317, +1.41402353068466136575994915393725035, +1.70796816547247832386676210614389540, +1.20942100197770790655644263556900999, +1.40006742959273583190635499150622136, +1.44442895634749544772001773194278587, +1.41455232146910931071743479995366006, +1.54763746873246711291420358508600308, +1.35686008735650889062426602203037514, +1.33927303467742901093723827819356691, +1.24364022720512561256049199265367769, +1.03332557326075104352869135320187108, +1.03986385726842434216222893561650279, +1.16845908434501201269028951743287424, +1.38660041924568506383284221882270745, +1.20216827939590067446249558119518563, +1.27116363622307397373168132830296610, +1.23345973279356940367213026525561860, +1.29724292380850155144724075941364243, +1.94643219575841665629924070419380468, +1.46868208310293920594433333726514245, +1.84100724044581215237424522145633085, +1.37904055165766448473442960478694603, +1.62612697669935186482582446006874111, +1.31663262775843814971586705476049044, +1.61345477484615315222982824970342929, +1.27037910011384465288969688234607033, +1.06594987646251701862256312839119582, +1.47606570056961115387356353245859020, +1.98360853016677874008500682125013491, +1.41665450248626576352868124563263851, +1.68233644003063269730222708050999057, +1.54664008106119306758730996931428178, +1.10197362333868818627756945482384524, +1.09209473544207158219564614328988096, +1.70588023653466454663353368631151466, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-33, -0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.770371977754894341222391177033970927E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34
534reltol = sqrt(epsilon(1._TKG))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
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.

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

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

Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 611 of file pm_fftnr.F90.


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