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

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

Detailed Description

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

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  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: getFFTI
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTI(data(:))
pm_fftnr::getFFTI
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKG => CKS
20 real(TKG) :: reltol
21 complex(TKG), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
27 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKG))")
36 reltol = sqrt(epsilon(1._TKG))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKG => CKD
48 real(TKG) :: reltol
49 complex(TKG), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
55 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKG))")
64 reltol = sqrt(epsilon(1._TKG))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKG => CKH
76 real(TKG) :: reltol
77 complex(TKG), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
83 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKG))")
92 reltol = sqrt(epsilon(1._TKG))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKG => RKS
104 real(TKG) :: reltol
105 real(TKG), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
111 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKG))")
120 reltol = sqrt(epsilon(1._TKG))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKG => RKD
132 real(TKG) :: reltol
133 real(TKG), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
139 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKG))")
148 reltol = sqrt(epsilon(1._TKG))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKG => RKH
160 real(TKG) :: reltol
161 real(TKG), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
167 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKG))")
176 reltol = sqrt(epsilon(1._TKG))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)
2lenData
3+12
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.60369337, +0.604437888), (+1.89323521, +0.328545332), (+1.91244769, +0.601616323), (+1.92673087, +0.363423765), (+1.46782923, +0.397505820), (+1.21840692, +0.807026029E-1), (+1.02808046, +0.232863486), (+1.47297263, +0.185856283), (+1.92338920, +0.831554472), (+1.92616999, +0.934404135), (+1.26729321, +0.690473974), (+1.66360438, +0.618965864)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.60369325, +0.604437828), (+1.89323521, +0.328545421), (+1.91244733, +0.601616383), (+1.92673075, +0.363424003), (+1.46782911, +0.397505730), (+1.21840715, +0.807024837E-1), (+1.02808046, +0.232863367), (+1.47297263, +0.185856208), (+1.92338896, +0.831554413), (+1.92616987, +0.934404135), (+1.26729310, +0.690473795), (+1.66360414, +0.618965805), (-0.119209290E-6, +0.149011612E-6), (+0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.238418579E-6), (+0.238418579E-6, +0.447034836E-7)
11reltol = sqrt(epsilon(1._TKG))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+79
21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
22data
23(+1.5033865230145880, +0.83766602494672271), (+1.9392695230952970, +0.41682096731030172), (+1.0033216722434408, +0.55286789724070484), (+1.3037920862855008, +0.48553967207386928), (+1.9566783340973926, +0.94510147742790962), (+1.2229682390592522, +0.91587499970717023E-1), (+1.8843942309379087, +0.95438715292583454), (+1.6070593604636714, +0.71497655220785106E-1), (+1.3540675273938707, +0.67146999976327570), (+1.1822358136120039, +0.89188360083509477), (+1.6954557713861416, +0.49519844585455675), (+1.2119930822125957, +0.81581641612345346), (+1.5907549830425274, +0.53689517636547668), (+1.6977510387149368, +0.75680602014348575), (+1.2522791356569738, +0.64106925195476139), (+1.3304501641577553, +0.22633820517489844), (+1.6321361235478005, +0.93252951448959476), (+1.0465548244549474, +0.38427223987424708E-1), (+1.1989921103867220, +0.47899928935648739), (+1.7696447087327685, +0.39301001729650242), (+1.0779875726558121, +0.95211249335414472), (+1.6452410471223557, +0.86548531619172020), (+1.7516840692011950, +0.22005512058764831), (+1.2649065353102764, +0.99168302097812266), (+1.6176379984631750, +0.58735021685326916), (+1.4451735750298838, +0.17587771618119796), (+1.5966707301850405, +0.65505843862372648), (+1.1659276832355132, +0.88404271815026225), (+1.3711112179569847, +0.94332408187246530E-1), (+1.8520790439080372, +0.48717543746026937), (+1.6202272275554781, +0.66426284549092018), (+1.7029424022674622, +0.44646811193568958), (+1.1456821365394974, +0.17588902973450260), (+1.2121685367232209, +0.39211448607327581), (+1.6402704635252818, +0.14918706881814237), (+1.3532429427920283, +0.71123392833039167), (+1.9363141290869399, +0.70874582847588752), (+1.9351772090074995, +0.42032603801357160), (+1.1947928698832775, +0.35895916231191283), (+1.2881495050063387, +0.53878715944433497), (+1.4081251195958835, +0.26084684270389558), (+1.2711142448042900, +0.86032163233896242), (+1.1715942211596371, +0.23026914695251610), (+1.2996669743156870, +0.28934108569069883), (+1.7627155011310478, +0.28593225623474972), (+1.6415812774268450, +0.16296917944994327), (+1.9507228424871805, +0.97427377835893725), (+1.5132078942303222, +0.13957000298159905), (+1.0953879703147100, +0.43872814258005821E-3), (+1.5134012664299039, +0.51797800976194031), (+1.0008238992899208, +0.13598866153606726E-1), (+1.2430957814775692, +0.96752202161715328), (+1.1820493203385194, +0.42426644727850737), (+1.5043043613024913, +0.99728896357199093), (+1.7847741868551441, +0.46969012853035008), (+1.5562953676344486, +0.72452655977383607), (+1.5647552541671743, +0.53693968816881821E-1), (+1.6249068663398263, +0.22882989988015690), (+1.8339528069033391, +0.91789588704609326), (+1.8772718802009782, +0.53513524494043008), (+1.8288449282885075, +0.45140518534133356), (+1.9264901363707658, +0.65297101279009295), (+1.1442922648296052, +0.87355204599301473), (+1.6507780829910037, +0.77198770595206490), (+1.1767177305807333, +0.40103325480445029), (+1.8581960745754791, +0.61904811815808236), (+1.0413787497230320, +0.15365610182623779), (+1.7298294403889303, +0.98161936207001754E-1), (+1.3559719910055437, +0.86372581631336987), (+1.2058297754172689, +0.78150342153831054), (+1.4608984860086971, +0.40775467016031430), (+1.0528085516902181, +0.24233819186858785), (+1.5991351951805812, +0.60335074045925119), (+1.6691287131801131, +0.57206328415181185), (+1.8549737247583504, +0.58355329308272363E-1), (+1.1883926906182678, +0.62287432025093004), (+1.9534285531117366, +0.54088491052794596), (+1.9358981242218949, +0.53950072997663623), (+1.5034338769831530, +0.39325909849116325E-1)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.5033865230145878, +0.83766602494672271), (+1.9392695230952972, +0.41682096731030194), (+1.0033216722434408, +0.55286789724070506), (+1.3037920862855013, +0.48553967207386955), (+1.9566783340973923, +0.94510147742790962), (+1.2229682390592520, +0.91587499970717245E-1), (+1.8843942309379087, +0.95438715292583476), (+1.6070593604636716, +0.71497655220785550E-1), (+1.3540675273938705, +0.67146999976327582), (+1.1822358136120039, +0.89188360083509477), (+1.6954557713861416, +0.49519844585455697), (+1.2119930822125955, +0.81581641612345357), (+1.5907549830425274, +0.53689517636547701), (+1.6977510387149362, +0.75680602014348586), (+1.2522791356569738, +0.64106925195476172), (+1.3304501641577553, +0.22633820517489878), (+1.6321361235478002, +0.93252951448959476), (+1.0465548244549472, +0.38427223987424750E-1), (+1.1989921103867220, +0.47899928935648739), (+1.7696447087327682, +0.39301001729650265), (+1.0779875726558119, +0.95211249335414461), (+1.6452410471223557, +0.86548531619172031), (+1.7516840692011948, +0.22005512058764842), (+1.2649065353102760, +0.99168302097812233), (+1.6176379984631748, +0.58735021685326927), (+1.4451735750298835, +0.17587771618119807), (+1.5966707301850405, +0.65505843862372659), (+1.1659276832355132, +0.88404271815026214), (+1.3711112179569849, +0.94332408187246933E-1), (+1.8520790439080368, +0.48717543746026959), (+1.6202272275554779, +0.66426284549092018), (+1.7029424022674617, +0.44646811193568958), (+1.1456821365394974, +0.17588902973450249), (+1.2121685367232204, +0.39211448607327559), (+1.6402704635252818, +0.14918706881814214), (+1.3532429427920283, +0.71123392833039145), (+1.9363141290869399, +0.70874582847588719), (+1.9351772090074992, +0.42032603801357138), (+1.1947928698832770, +0.35895916231191249), (+1.2881495050063387, +0.53878715944433486), (+1.4081251195958835, +0.26084684270389524), (+1.2711142448042898, +0.86032163233896242), (+1.1715942211596371, +0.23026914695251624), (+1.2996669743156870, +0.28934108569069850), (+1.7627155011310480, +0.28593225623474949), (+1.6415812774268446, +0.16296917944994299), (+1.9507228424871803, +0.97427377835893680), (+1.5132078942303218, +0.13957000298159888), (+1.0953879703147096, +0.43872814257986392E-3), (+1.5134012664299035, +0.51797800976194019), (+1.0008238992899208, +0.13598866153606656E-1), (+1.2430957814775685, +0.96752202161715295), (+1.1820493203385194, +0.42426644727850726), (+1.5043043613024909, +0.99728896357199048), (+1.7847741868551439, +0.46969012853034958), (+1.5562953676344482, +0.72452655977383551), (+1.5647552541671743, +0.53693968816881765E-1), (+1.6249068663398258, +0.22882989988015690), (+1.8339528069033393, +0.91789588704609315), (+1.8772718802009778, +0.53513524494042986), (+1.8288449282885075, +0.45140518534133323), (+1.9264901363707654, +0.65297101279009229), (+1.1442922648296054, +0.87355204599301428), (+1.6507780829910033, +0.77198770595206401), (+1.1767177305807330, +0.40103325480445018), (+1.8581960745754786, +0.61904811815808214), (+1.0413787497230322, +0.15365610182623790), (+1.7298294403889301, +0.98161936207001477E-1), (+1.3559719910055439, +0.86372581631336964), (+1.2058297754172684, +0.78150342153831043), (+1.4608984860086971, +0.40775467016031403), (+1.0528085516902184, +0.24233819186858740), (+1.5991351951805810, +0.60335074045925130), (+1.6691287131801125, +0.57206328415181185), (+1.8549737247583504, +0.58355329308272474E-1), (+1.1883926906182674, +0.62287432025092948), (+1.9534285531117366, +0.54088491052794563), (+1.9358981242218942, +0.53950072997663567), (+1.5034338769831530, +0.39325909849115992E-1), (+0.11102230246251565E-15, -0.98532293435482643E-15), (+0.0000000000000000, -0.11102230246251565E-15), (-0.22204460492503131E-15, -0.51347814888913490E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (-0.22204460492503131E-15, -0.47184478546569153E-15), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.0000000000000000, -0.44408920985006262E-15), (+0.0000000000000000, -0.45796699765787707E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.0000000000000000, -0.27755575615628914E-15), (+0.33306690738754696E-15, -0.18041124150158794E-15), (+0.22204460492503131E-15, -0.44408920985006262E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, -0.13877787807814457E-15), (-0.11102230246251565E-15, +0.13877787807814457E-16), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.0000000000000000, +0.37470027081099033E-15), (+0.0000000000000000, +0.0000000000000000), (-0.22204460492503131E-15, +0.49960036108132044E-15), (+0.0000000000000000, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.24980018054066022E-15), (+0.0000000000000000, +0.33306690738754696E-15), (-0.44408920985006262E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (-0.11102230246251565E-15, +0.27755575615628914E-16), (+0.22204460492503131E-15, +0.19428902930940239E-15), (+0.0000000000000000, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.44408920985006262E-15, +0.40245584642661925E-15), (+0.11102230246251565E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.20816681711721685E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.47184478546569153E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.83266726846886741E-15), (+0.33306690738754696E-15, +0.66613381477509392E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.15265566588595902E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.63837823915946501E-15), (+0.22204460492503131E-15, +0.72164496600635175E-15), (-0.33306690738754696E-15, +0.77715611723760958E-15), (+0.33306690738754696E-15, +0.99920072216264089E-15)
28reltol = sqrt(epsilon(1._TKG))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+59
38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
39data
40(+1.17323499410519481796562654910156243, +0.916921644822015293900664288841764465), (+1.81250746557586499603561394375235725, +0.442870784093480649484411295926577243), (+1.39525057306772457742757108192435048, +0.629603384045048129733133062554770685), (+1.14255722105730983657889108777014525, +0.390641057145294178925933015776008495), (+1.46312293517813607676314399402986988, +0.376027771423891743586749492228028476), (+1.77464047420229427023271870155609417, +0.472538435946756995805893884019285648), (+1.21459465511967472633809121718883636, +0.274052493096906718276508798390466437), (+1.29943404597760036128546541427170208, +0.844665969782436781732442621650751683), (+1.05821351436854365110219416802445662, +0.236771709752657941494642341702529466), (+1.23883543409069792187415530834801795, +0.808058750449623414831305386834197761), (+1.08608455745928990118037941382753419, +0.284328176821091687953519837245921829), (+1.71481205494762857323326966426762720, +0.992366253744675239072072045620521362), (+1.71233643730231410998489144833285699, +0.906191294015697007550622769020538603), (+1.35473887052106003312444406138044291, +0.332520425755392371445303201674160025), (+1.32230271949810989663577308838412388, +0.545736251260941835196584483632246548), (+1.19577195562292179377295080553059318, +0.695799596347827313665113200554358330E-1), (+1.33928081792635640557657249290033138, +0.868074752357733477376223835813818189E-1), (+1.98862456196151179081190366661723832, +0.692499785272459126303381398130981508), (+1.31348221068145365211695158186229896, +0.562310782709768181162865671607143446), (+1.38145592955302202489870145899892206, +0.989956200601258342554875860476397812), (+1.72440105546725070474043587837685275, +0.207536159732452057229526592806164382), (+1.59031270721410723475412578548359543, +0.602005792045430501435924197630511656), (+1.16246176991786603430991606759936052, +0.712682635789546006118346491581554135), (+1.93495258693320155227864810920403745, +0.289478878378342581607770517450766354E-1), (+1.11930355723692665293194258771643651, +0.679469910900261485055567667247876543), (+1.93281967520572072459827546465387593, +0.481040041052838130799183272458227802), (+1.66903937779032029901037413709327074, +0.865602211301031736627861698317723146), (+1.60039525370709162761582866901042828, +0.167563206374041598076905721801502916), (+1.43394446593366088127296664458581030, +0.309523113120427986240318269976471819E-1), (+1.29534996421788841058628633703238774, +0.422095565106135897407510744339465027), (+1.03802453298154152471357127306659150, +0.708324473745406743856913774972044114E-1), (+1.15357947057659868347846566784035388, +0.648151796428443806311627746172601508E-1), (+1.67988701396200724364447424614479598, +0.168489661696479890216685533193326092), (+1.32517596831278271612322984648666368, +0.963318191567098481720581568996212046), (+1.25461588819561901202285747985225990, +0.867190886924935032140167497900374685), (+1.45433278043156424684020970061818400, +0.712496047167824595870524597084231833), (+1.55330663460426409325289287861025828, +0.919361535829495699269970157989352637), (+1.50195787097633646312520639193138971, +0.619247335069109816245337243619216973), (+1.01659762038563582202726742742528493, +0.215178348890482208693490121770737221), (+1.31945638589970663463432299452777871, +0.806727257114376767653824429301906741), (+1.40932503755442522482002916137285164, +0.242704723900892995412040460036224952), (+1.70630892082970471523936318688625915, +0.875696976220368724864616502807895162), (+1.98408071121674324410190707123798264, +0.883257418311859270029334106516531552), (+1.00942916620762264995587069918068028, +0.250325709864530234534973785333133147), (+1.15455174762305345646175316588249233, +0.368373817975236013001220168874156701), (+1.69062842541602419999239656809993475, +0.313124491839293564711573381590612353), (+1.93402340705497777041365458387993565, +0.855226653792015691883402730724174948), (+1.99578222282015197669053215062783320, +0.663307752325459777373408242533734767E-1), (+1.02327593663290131695949465673476052, +0.189302704038603129812019531246884614), (+1.65433696991740639487260879674252839, +0.177341524458840401295594652506246549), (+1.47985024878240686116770971760687760, +0.977909652701519217400162898895302274E-1), (+1.37800135704470525129612810158286367, +0.887371536726798436968132997113625787), (+1.49248759427912986863544833399092129, +0.130778547575843163072252083409914261), (+1.65737812329383947956272034018608095, +0.450524599744445621238255511134907645), (+1.43490184733123817454198191612600559, +0.513984436500306142356934805282390750), (+1.31066792624959893765980323672655078, +0.297154811320279249137643666976764394), (+1.77403428661400738399377572767678476, +0.351753208988609157029260584340719257), (+1.83682285972444625578852535994036758, +0.473052867684245235312512537180735711), (+1.48149409116432509560344832130665299, +0.195718998246960566996691454691727670)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.17323499410519481796562654910156224, +0.916921644822015293900664288841764465), (+1.81250746557586499603561394375235706, +0.442870784093480649484411295926577147), (+1.39525057306772457742757108192435029, +0.629603384045048129733133062554770781), (+1.14255722105730983657889108777014506, +0.390641057145294178925933015776008592), (+1.46312293517813607676314399402987007, +0.376027771423891743586749492228028332), (+1.77464047420229427023271870155609455, +0.472538435946756995805893884019285600), (+1.21459465511967472633809121718883617, +0.274052493096906718276508798390466389), (+1.29943404597760036128546541427170189, +0.844665969782436781732442621650751683), (+1.05821351436854365110219416802445662, +0.236771709752657941494642341702529370), (+1.23883543409069792187415530834801795, +0.808058750449623414831305386834197761), (+1.08608455745928990118037941382753400, +0.284328176821091687953519837245921829), (+1.71481205494762857323326966426762720, +0.992366253744675239072072045620521169), (+1.71233643730231410998489144833285718, +0.906191294015697007550622769020538795), (+1.35473887052106003312444406138044311, +0.332520425755392371445303201674160121), (+1.32230271949810989663577308838412388, +0.545736251260941835196584483632246740), (+1.19577195562292179377295080553059280, +0.695799596347827313665113200554357608E-1), (+1.33928081792635640557657249290033119, +0.868074752357733477376223835813817949E-1), (+1.98862456196151179081190366661723793, +0.692499785272459126303381398130981508), (+1.31348221068145365211695158186229877, +0.562310782709768181162865671607143350), (+1.38145592955302202489870145899892206, +0.989956200601258342554875860476398004), (+1.72440105546725070474043587837685275, +0.207536159732452057229526592806164286), (+1.59031270721410723475412578548359562, +0.602005792045430501435924197630511656), (+1.16246176991786603430991606759936052, +0.712682635789546006118346491581554232), (+1.93495258693320155227864810920403745, +0.289478878378342581607770517450767558E-1), (+1.11930355723692665293194258771643651, +0.679469910900261485055567667247876543), (+1.93281967520572072459827546465387574, +0.481040041052838130799183272458227947), (+1.66903937779032029901037413709327055, +0.865602211301031736627861698317723146), (+1.60039525370709162761582866901042808, +0.167563206374041598076905721801502820), (+1.43394446593366088127296664458581030, +0.309523113120427986240318269976470375E-1), (+1.29534996421788841058628633703238774, +0.422095565106135897407510744339464931), (+1.03802453298154152471357127306659150, +0.708324473745406743856913774972043031E-1), (+1.15357947057659868347846566784035388, +0.648151796428443806311627746172601026E-1), (+1.67988701396200724364447424614479578, +0.168489661696479890216685533193326140), (+1.32517596831278271612322984648666348, +0.963318191567098481720581568996212046), (+1.25461588819561901202285747985225990, +0.867190886924935032140167497900374685), (+1.45433278043156424684020970061818381, +0.712496047167824595870524597084231833), (+1.55330663460426409325289287861025847, +0.919361535829495699269970157989353022), (+1.50195787097633646312520639193138990, +0.619247335069109816245337243619217165), (+1.01659762038563582202726742742528493, +0.215178348890482208693490121770737342), (+1.31945638589970663463432299452777871, +0.806727257114376767653824429301906741), (+1.40932503755442522482002916137285164, +0.242704723900892995412040460036224904), (+1.70630892082970471523936318688625876, +0.875696976220368724864616502807895066), (+1.98408071121674324410190707123798225, +0.883257418311859270029334106516531456), (+1.00942916620762264995587069918068028, +0.250325709864530234534973785333133147), (+1.15455174762305345646175316588249233, +0.368373817975236013001220168874156604), (+1.69062842541602419999239656809993475, +0.313124491839293564711573381590612257), (+1.93402340705497777041365458387993565, +0.855226653792015691883402730724174948), (+1.99578222282015197669053215062783282, +0.663307752325459777373408242533735249E-1), (+1.02327593663290131695949465673476033, +0.189302704038603129812019531246884638), (+1.65433696991740639487260879674252801, +0.177341524458840401295594652506246549), (+1.47985024878240686116770971760687760, +0.977909652701519217400162898895301311E-1), (+1.37800135704470525129612810158286348, +0.887371536726798436968132997113625691), (+1.49248759427912986863544833399092129, +0.130778547575843163072252083409914261), (+1.65737812329383947956272034018608095, +0.450524599744445621238255511134907790), (+1.43490184733123817454198191612600579, +0.513984436500306142356934805282391135), (+1.31066792624959893765980323672655078, +0.297154811320279249137643666976764779), (+1.77403428661400738399377572767678476, +0.351753208988609157029260584340719257), (+1.83682285972444625578852535994036739, +0.473052867684245235312512537180735663), (+1.48149409116432509560344832130665261, +0.195718998246960566996691454691727574), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.264815367353244929795196967105427506E-33), (-0.288889491658085377958396691387739098E-33, -0.842594350669415685711990349880905702E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-34)
45reltol = sqrt(epsilon(1._TKG))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+99
55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
56data
57+1.45566940, +1.69907236, +1.39878023, +1.92617130, +1.85524368, +1.48934746, +1.55837274, +1.80635285, +1.15185618, +1.70993972, +1.07805991, +1.52130628, +1.69242668, +1.41220260, +1.38900399, +1.28687596, +1.64090538, +1.21083045, +1.09199083, +1.03029442, +1.61444676, +1.49529648, +1.19947231, +1.41118979, +1.62469220, +1.54497123, +1.88811255, +1.55084646, +1.66256118, +1.02050114, +1.78744352, +1.40005505, +1.66805601, +1.75669765, +1.94660926, +1.46934164, +1.02532053, +1.04491806, +1.98483360, +1.82961869, +1.90175653, +1.65958059, +1.92587042, +1.57102025, +1.73400474, +1.58327055, +1.67836976, +1.84513938, +1.48188436, +1.42470050, +1.38653970, +1.42796898, +1.41606641, +1.39792156, +1.66360974, +1.65599608, +1.93766928, +1.02082419, +1.58931530, +1.83115888, +1.22528529, +1.82879400, +1.44809103, +1.99830234, +1.90076089, +1.22290778, +1.08732665, +1.91862655, +1.10834122, +1.31789327, +1.51124394, +1.43985105, +1.21195018, +1.94859552, +1.31491899, +1.99621379, +1.67562664, +1.90365815, +1.96038187, +1.94756770, +1.47807491, +1.60289025, +1.59631228, +1.55457127, +1.90437841, +1.00807369, +1.96613264, +1.85146868, +1.24719429, +1.73448205, +1.21920681, +1.02892554, +1.60806417, +1.34531093, +1.27890730, +1.08794427, +1.24716830, +1.83847785, +1.19777441
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.45566952, +1.69907260, +1.39878023, +1.92617130, +1.85524344, +1.48934758, +1.55837250, +1.80635273, +1.15185618, +1.70993984, +1.07806027, +1.52130616, +1.69242668, +1.41220248, +1.38900411, +1.28687608, +1.64090538, +1.21083069, +1.09199095, +1.03029442, +1.61444664, +1.49529648, +1.19947231, +1.41118991, +1.62469208, +1.54497123, +1.88811255, +1.55084646, +1.66256106, +1.02050126, +1.78744328, +1.40005565, +1.66805601, +1.75669777, +1.94660926, +1.46934152, +1.02532053, +1.04491794, +1.98483348, +1.82961869, +1.90175653, +1.65958071, +1.92587066, +1.57102013, +1.73400486, +1.58327043, +1.67836988, +1.84513950, +1.48188424, +1.42470074, +1.38653970, +1.42796886, +1.41606629, +1.39792132, +1.66360974, +1.65599608, +1.93766916, +1.02082431, +1.58931518, +1.83115864, +1.22528529, +1.82879376, +1.44809103, +1.99830246, +1.90076101, +1.22290778, +1.08732688, +1.91862679, +1.10834146, +1.31789339, +1.51124406, +1.43985116, +1.21195030, +1.94859564, +1.31491935, +1.99621379, +1.67562675, +1.90365803, +1.96038210, +1.94756782, +1.47807503, +1.60289025, +1.59631205, +1.55457115, +1.90437841, +1.00807381, +1.96613276, +1.85146868, +1.24719417, +1.73448205, +1.21920681, +1.02892554, +1.60806406, +1.34531105, +1.27890766, +1.08794475, +1.24716854, +1.83847797, +1.19777441, -0.119209290E-6, +0.298023224E-6, +0.357627869E-6, +0.596046448E-7, +0.596046448E-6, +0.178813934E-6, +0.178813934E-6, +0.357627869E-6, -0.596046448E-7, +0.119209290E-6, +0.357627869E-6, +0.238418579E-6, +0.774860382E-6, +0.536441803E-6, +0.298023224E-6, +0.298023224E-6, +0.119209290E-6, +0.238418579E-6, +0.417232513E-6, +0.298023224E-6, +0.298023224E-6, +0.596046448E-6, +0.119209290E-6, +0.596046448E-6, +0.00000000, +0.119209290E-6, +0.119209290E-6, +0.00000000, +0.536441803E-6
62reltol = sqrt(epsilon(1._TKG))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+26
72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
73data
74+1.5141841670680707, +1.4478184118256767, +1.7625762261060509, +1.0305102546646479, +1.4842722462341686, +1.4540502091847669, +1.0342110866976835, +1.7126932651260298, +1.8463792115512772, +1.5840652506862103, +1.1115140428180301, +1.7649824675161603, +1.4733155556863524, +1.8906416535603610, +1.7393451644500413, +1.9996935925626338, +1.1821685507849158, +1.8120617037618070, +1.9413254306050782, +1.4131572812068085, +1.5136095427503031, +1.2508106676744948, +1.3472779108621371, +1.2874678963595203, +1.9518734355653478, +1.0992465186798110
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.5141841670680709, +1.4478184118256765, +1.7625762261060514, +1.0305102546646483, +1.4842722462341684, +1.4540502091847667, +1.0342110866976832, +1.7126932651260300, +1.8463792115512772, +1.5840652506862103, +1.1115140428180306, +1.7649824675161603, +1.4733155556863531, +1.8906416535603605, +1.7393451644500417, +1.9996935925626333, +1.1821685507849160, +1.8120617037618065, +1.9413254306050787, +1.4131572812068083, +1.5136095427503036, +1.2508106676744941, +1.3472779108621373, +1.2874678963595196, +1.9518734355653478, +1.0992465186798106, +0.22204460492503131E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.77715611723760958E-15
79reltol = sqrt(epsilon(1._TKG))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+17
89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
90data
91+1.23991062509343898148478554546847718, +1.05235957359009493347775629852841842, +1.58599796300559648037356316969800691, +1.58987282814323162524109547027978616, +1.80230239437174443926781074635572570, +1.05838688831542915231641118668285784, +1.16784875983585687591408564983286279, +1.65836605983237372613002599303879906, +1.32579623564367342515014199010067326, +1.67371472906186473289160672741578321, +1.20199288821728689992613969332861485, +1.70377556987282390395018945805393896, +1.78196033282899004732310952505388779, +1.59455637186853308505709558030388720, +1.01325205131747912388658254199700111, +1.64081964778591895742359684809520128, +1.23258384538414269153788911613490898
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.23991062509343898148478554546847737, +1.05235957359009493347775629852841842, +1.58599796300559648037356316969800749, +1.58987282814323162524109547027978635, +1.80230239437174443926781074635572589, +1.05838688831542915231641118668285784, +1.16784875983585687591408564983286298, +1.65836605983237372613002599303879944, +1.32579623564367342515014199010067345, +1.67371472906186473289160672741578321, +1.20199288821728689992613969332861504, +1.70377556987282390395018945805393896, +1.78196033282899004732310952505388856, +1.59455637186853308505709558030388720, +1.01325205131747912388658254199700130, +1.64081964778591895742359684809520166, +1.23258384538414269153788911613490918, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33
96reltol = sqrt(epsilon(1._TKG))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+83
106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
107data
108(+1.38020873, +0.883066416), (+1.34733319, +0.568690300), (+1.70989442, +0.500934720E-1), (+1.32871127, +0.759447813), (+1.70823026, +0.831933558), (+1.17893004, +0.780140519), (+1.03604412, +0.567566931), (+1.40498567, +0.635726213), (+1.34850192, +0.682700992), (+1.54803681, +0.304500639), (+1.46318889, +0.305659056), (+1.80975986, +0.914192736), (+1.56376457, +0.919592977E-1), (+1.16231871, +0.639941633), (+1.38459015, +0.204373360), (+1.33782458, +0.774927199), (+1.05091023, +0.866922498), (+1.06789422, +0.651406169), (+1.01696515, +0.934213221), (+1.36325502, +0.788249552), (+1.61993766, +0.563677907), (+1.98340297, +0.993037999), (+1.57817698, +0.918759644), (+1.03805590, +0.778909624), (+1.96418881, +0.835659146), (+1.44440031, +0.880553722), (+1.06157005, +0.150413275), (+1.45576489, +0.163973033), (+1.23354650, +0.774966776), (+1.12001622, +0.868901491), (+1.93210113, +0.189119160), (+1.05271184, +0.567274094), (+1.62215829, +0.535384536), (+1.13177705, +0.140305698), (+1.33398294, +0.341874778), (+1.04659295, +0.119610250), (+1.87813759, +0.880753398E-1), (+1.75993657, +0.662940145E-1), (+1.32417107, +0.807386577), (+1.77502656, +0.185340226), (+1.60312390, +0.568792999), (+1.97726297, +0.415585697), (+1.10948956, +0.998285353), (+1.24589062, +0.662171841), (+1.99326110, +0.292008996), (+1.49275947, +0.491979599), (+1.10793638, +0.720079184), (+1.84024298, +0.586276054E-1), (+1.94326615, +0.197966695E-1), (+1.72257924, +0.623816252E-2), (+1.08854103, +0.461218119), (+1.35344732, +0.524052918), (+1.04895949, +0.130366683), (+1.46239781, +0.365574956), (+1.46441770, +0.102530003), (+1.75005376, +0.254383326), (+1.56292963, +0.404286087), (+1.88449836, +0.527410984), (+1.55681682, +0.351895213), (+1.68651485, +0.826282442), (+1.60176063, +0.378571391), (+1.13686764, +0.472052813), (+1.13800788, +0.985991418), (+1.35932159, +0.476633370), (+1.17496789, +0.416964173), (+1.83152103, +0.439177632), (+1.47982121, +0.287491500), (+1.29942417, +0.151396334), (+1.25945807, +0.639294863), (+1.01179934, +0.370406270), (+1.13667488, +0.943821013), (+1.88260770, +0.367722273), (+1.63812494, +0.600482643), (+1.52409577, +0.852581680), (+1.62196541, +0.442552567E-1), (+1.97533941, +0.441667140), (+1.32647777, +0.441407382), (+1.02953982, +0.468234301), (+1.63660896, +0.684215426E-1), (+1.20094800, +0.522610486), (+1.87479413, +0.552865446), (+1.50182915, +0.680321455E-2), (+1.01287770, +0.627684593E-2)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.38020885, +0.883066475), (+1.34733319, +0.568690479), (+1.70989430, +0.500936508E-1), (+1.32871091, +0.759447813), (+1.70823014, +0.831933439), (+1.17892992, +0.780140460), (+1.03604400, +0.567566752), (+1.40498555, +0.635726094), (+1.34850192, +0.682700992), (+1.54803705, +0.304500908), (+1.46318889, +0.305659115), (+1.80975950, +0.914192796), (+1.56376457, +0.919594467E-1), (+1.16231871, +0.639941931), (+1.38459027, +0.204373181), (+1.33782458, +0.774927318), (+1.05091023, +0.866922557), (+1.06789410, +0.651406288), (+1.01696503, +0.934213102), (+1.36325479, +0.788249612), (+1.61993766, +0.563677847), (+1.98340273, +0.993037999), (+1.57817698, +0.918759465), (+1.03805590, +0.778909683), (+1.96418858, +0.835659266), (+1.44440031, +0.880553842), (+1.06157005, +0.150413454), (+1.45576477, +0.163973227), (+1.23354650, +0.774966896), (+1.12001610, +0.868901670), (+1.93210101, +0.189119354), (+1.05271173, +0.567274034), (+1.62215829, +0.535384417), (+1.13177705, +0.140305668), (+1.33398283, +0.341874570), (+1.04659295, +0.119610235), (+1.87813747, +0.880751312E-1), (+1.75993645, +0.662938654E-1), (+1.32417130, +0.807386279), (+1.77502656, +0.185339987), (+1.60312366, +0.568792880), (+1.97726285, +0.415585607), (+1.10948956, +0.998285174), (+1.24589050, +0.662171781), (+1.99326098, +0.292008936), (+1.49275947, +0.491979510), (+1.10793638, +0.720079243), (+1.84024286, +0.586274564E-1), (+1.94326615, +0.197966397E-1), (+1.72257936, +0.623813272E-2), (+1.08854103, +0.461218059), (+1.35344720, +0.524052739), (+1.04895949, +0.130366519), (+1.46239769, +0.365574777), (+1.46441770, +0.102529854), (+1.75005364, +0.254383177), (+1.56292939, +0.404286027), (+1.88449800, +0.527410984), (+1.55681670, +0.351895154), (+1.68651450, +0.826282263), (+1.60176039, +0.378571391), (+1.13686752, +0.472052664), (+1.13800788, +0.985991120), (+1.35932159, +0.476633251), (+1.17496789, +0.416964114), (+1.83152103, +0.439177573), (+1.47982132, +0.287491381), (+1.29942405, +0.151396215), (+1.25945818, +0.639294803), (+1.01179945, +0.370406330), (+1.13667500, +0.943821192), (+1.88260782, +0.367722034), (+1.63812470, +0.600482702), (+1.52409554, +0.852581620), (+1.62196541, +0.442553908E-1), (+1.97533906, +0.441666991), (+1.32647753, +0.441407472), (+1.02953959, +0.468234301), (+1.63660920, +0.684217140E-1), (+1.20094824, +0.522610486), (+1.87479424, +0.552865326), (+1.50182903, +0.680315495E-2), (+1.01287806, +0.627672672E-2), (+0.298023224E-6, -0.894069672E-7), (+0.00000000, +0.178813934E-6), (+0.238418579E-6, +0.596046448E-7), (+0.476837158E-6, +0.238418579E-6), (+0.298023224E-6, +0.00000000), (-0.596046448E-7, -0.149011612E-6), (-0.596046448E-7, -0.238418579E-6), (+0.238418579E-6, -0.134110451E-6), (-0.119209290E-6, -0.312924385E-6), (-0.119209290E-6, -0.178813934E-6), (-0.178813934E-6, -0.178813934E-6), (+0.238418579E-6, +0.447034836E-7), (+0.178813934E-6, -0.178813934E-6), (-0.596046448E-7, +0.119209290E-6), (+0.00000000, +0.223517418E-7), (+0.357627869E-6, +0.149011612E-6), (+0.00000000, +0.253319740E-6), (-0.119209290E-6, +0.387430191E-6), (+0.00000000, +0.149011612E-6), (+0.178813934E-6, +0.476837158E-6), (+0.298023224E-6, +0.298023224E-6), (-0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.894069672E-7), (+0.119209290E-6, +0.119209290E-6), (+0.119209290E-6, +0.596046448E-7), (-0.119209290E-6, +0.596046448E-7), (+0.00000000, +0.149011612E-6), (+0.238418579E-6, +0.178813934E-6), (+0.178813934E-6, +0.149011612E-6), (+0.238418579E-6, -0.298023224E-7), (+0.119209290E-6, +0.894069672E-7), (+0.298023224E-6, +0.253319740E-6), (+0.119209290E-6, +0.238418579E-6), (+0.00000000, +0.253319740E-6), (+0.119209290E-6, +0.193715096E-6), (+0.298023224E-6, +0.387430191E-6), (+0.596046448E-7, +0.387430191E-6), (+0.119209290E-6, +0.149011612E-7), (+0.238418579E-6, +0.894069672E-7), (+0.238418579E-6, +0.134110451E-6), (+0.00000000, +0.298023224E-7), (+0.596046448E-7, -0.149011612E-7), (+0.00000000, +0.149011612E-6), (+0.238418579E-6, +0.149011612E-6), (-0.596046448E-7, +0.149011612E-7)
113reltol = sqrt(epsilon(1._TKG))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+86
123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
124data
125(+1.3915406338100622, +0.23093563640044557E-1), (+1.1167983091646718, +0.24514641707890694), (+1.6559535910507073, +0.58157204496997872), (+1.2315361382751138, +0.58030390435034973), (+1.2295803683221294, +0.76276726671136563), (+1.1498449001117548, +0.57641173811116908), (+1.1962524456372612, +0.36422021206151944), (+1.5107336170197678, +0.21135199326060228E-1), (+1.5129813262499603, +0.19343983497395745E-1), (+1.2770230435026382, +0.70350802834022985), (+1.6865397229361521, +0.31266158880332984), (+1.2911543371192646, +0.19569489945541652), (+1.5683704725307224, +0.11572916881895712), (+1.3287792521194275, +0.31591849294352858), (+1.9442335591852189, +0.51669266699682526E-1), (+1.9848016877298644, +0.78044343409578643), (+1.2855569290561379, +0.21563773801461450), (+1.6079369508641177, +0.92786699859684141), (+1.9495252339033369, +0.65841647004473869), (+1.3894981172618355, +0.36161451653609211), (+1.1809529770564584, +0.95849793645399917E-1), (+1.1219256864696603, +0.27669211564303098), (+1.1511898193520516, +0.44503406461549233), (+1.3905951630336530, +0.40919340791746694), (+1.9617968049817409, +0.84713432427135515), (+1.5403503736610762, +0.41732726650577745), (+1.1645599923837640, +0.53829724540062773), (+1.8744663285676446, +0.61268868071839289), (+1.1722492667166393, +0.38948553035445643E-1), (+1.0588812021904555, +0.78470919233422343), (+1.8718872285668353, +0.74438860909726845E-1), (+1.8044534949929756, +0.80251932903270384), (+1.2171520279153198, +0.20756107972966809), (+1.3294471143119826, +0.58204512999329461), (+1.9577601788283681, +0.30815536541028965), (+1.7997629588124573, +0.17175795475302780), (+1.3404732897641765, +0.49390277933406068), (+1.1560494958516108, +0.60831666772813719), (+1.2457292138018827, +0.94459486459304121), (+1.7641340217499701, +0.38374773414107954), (+1.1352474280754290, +0.69264500806401008), (+1.4403736103956546, +0.60916633166133594), (+1.5084523567961485, +0.53232932296661906), (+1.6996326250174179, +0.58051821497112455), (+1.4863174574362115, +0.58719692715065275E-1), (+1.3301310606623709, +0.13590569581334511), (+1.5981155365370188, +0.15783935495202484), (+1.0626803020347921, +0.13240109841302006), (+1.3462561093071244, +0.97165390461977785), (+1.8511404362018433, +0.46518480124016492), (+1.5445850069527716, +0.62737889556012794), (+1.9457701335484552, +0.36588771805340048), (+1.8505924571115520, +0.73755922697088327), (+1.3808266326519592, +0.48900503186082267), (+1.4825287862589445, +0.32490553849427517), (+1.1109088671556955, +0.58794693585090141), (+1.0002820355401834, +0.30278371471438459), (+1.7259803933745794, +0.83411118749150137), (+1.4354259184052751, +0.12906508067464662), (+1.8331175737605792, +0.32473289243028058E-1), (+1.1458728019395266, +0.85475835828921698), (+1.8456335282240990, +0.95031916210479805), (+1.7339652181206227, +0.99135679487795747), (+1.7023557439496559, +0.65953565513943857), (+1.5289982436120297, +0.82831751333866688), (+1.1178874798825773, +0.28436988756349835), (+1.1689579073912075, +0.39122796534026194), (+1.0755942739953015, +0.18207069488624739), (+1.3987790625725203, +0.68080915016218613), (+1.3817135664740070, +0.81944178666501943), (+1.8221815672987383, +0.70279659124597393), (+1.8440845385523981, +0.82116765492104349), (+1.6092106194444347, +0.75505595279913995), (+1.2637539438678926, +0.40293261668192804E-2), (+1.3673650243446378, +0.34223429351708146), (+1.4288962276908046, +0.31350889761392109E-1), (+1.0142028956837943, +0.58404258583702418), (+1.5365501601105396, +0.99236402254833034), (+1.8175253706336973, +0.33414610357837304), (+1.4853865746583979, +0.58903847052814917), (+1.2431569132249378, +0.37730333522288717), (+1.5658056968857998, +0.52827465567746223), (+1.2610408579466643, +0.73727504484140727), (+1.4033079945972380, +0.80416310103972077), (+1.8583093426352582, +0.93614924786359932), (+1.1112488020522675, +0.42702549052294836)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.3915406338100622, +0.23093563640044557E-1), (+1.1167983091646727, +0.24514641707890736), (+1.6559535910507075, +0.58157204496997905), (+1.2315361382751140, +0.58030390435035040), (+1.2295803683221294, +0.76276726671136585), (+1.1498449001117550, +0.57641173811116930), (+1.1962524456372610, +0.36422021206151983), (+1.5107336170197678, +0.21135199326060672E-1), (+1.5129813262499603, +0.19343983497396244E-1), (+1.2770230435026386, +0.70350802834023041), (+1.6865397229361521, +0.31266158880333023), (+1.2911543371192649, +0.19569489945541715), (+1.5683704725307224, +0.11572916881895740), (+1.3287792521194275, +0.31591849294352953), (+1.9442335591852191, +0.51669266699682692E-1), (+1.9848016877298646, +0.78044343409578709), (+1.2855569290561382, +0.21563773801461467), (+1.6079369508641177, +0.92786699859684163), (+1.9495252339033371, +0.65841647004473891), (+1.3894981172618359, +0.36161451653609233), (+1.1809529770564586, +0.95849793645400139E-1), (+1.1219256864696603, +0.27669211564303109), (+1.1511898193520516, +0.44503406461549216), (+1.3905951630336530, +0.40919340791746706), (+1.9617968049817407, +0.84713432427135538), (+1.5403503736610764, +0.41732726650577762), (+1.1645599923837642, +0.53829724540062784), (+1.8744663285676442, +0.61268868071839333), (+1.1722492667166395, +0.38948553035445838E-1), (+1.0588812021904555, +0.78470919233422343), (+1.8718872285668353, +0.74438860909726817E-1), (+1.8044534949929756, +0.80251932903270362), (+1.2171520279153198, +0.20756107972966792), (+1.3294471143119830, +0.58204512999329450), (+1.9577601788283681, +0.30815536541028937), (+1.7997629588124575, +0.17175795475302766), (+1.3404732897641767, +0.49390277933406057), (+1.1560494958516108, +0.60831666772813708), (+1.2457292138018827, +0.94459486459304109), (+1.7641340217499701, +0.38374773414107943), (+1.1352474280754290, +0.69264500806400986), (+1.4403736103956546, +0.60916633166133582), (+1.5084523567961488, +0.53232932296661895), (+1.6996326250174176, +0.58051821497112410), (+1.4863174574362112, +0.58719692715065275E-1), (+1.3301310606623706, +0.13590569581334516), (+1.5981155365370188, +0.15783935495202478), (+1.0626803020347926, +0.13240109841301978), (+1.3462561093071246, +0.97165390461977752), (+1.8511404362018435, +0.46518480124016465), (+1.5445850069527718, +0.62737889556012760), (+1.9457701335484554, +0.36588771805339998), (+1.8505924571115522, +0.73755922697088283), (+1.3808266326519592, +0.48900503186082228), (+1.4825287862589445, +0.32490553849427484), (+1.1109088671556959, +0.58794693585090108), (+1.0002820355401831, +0.30278371471438442), (+1.7259803933745794, +0.83411118749150104), (+1.4354259184052749, +0.12906508067464623), (+1.8331175737605789, +0.32473289243027698E-1), (+1.1458728019395266, +0.85475835828921665), (+1.8456335282240985, +0.95031916210479728), (+1.7339652181206229, +0.99135679487795692), (+1.7023557439496557, +0.65953565513943768), (+1.5289982436120297, +0.82831751333866677), (+1.1178874798825773, +0.28436988756349807), (+1.1689579073912075, +0.39122796534026200), (+1.0755942739953015, +0.18207069488624697), (+1.3987790625725205, +0.68080915016218646), (+1.3817135664740070, +0.81944178666501921), (+1.8221815672987380, +0.70279659124597371), (+1.8440845385523983, +0.82116765492104293), (+1.6092106194444344, +0.75505595279914006), (+1.2637539438678926, +0.40293261668191693E-2), (+1.3673650243446378, +0.34223429351708140), (+1.4288962276908046, +0.31350889761391665E-1), (+1.0142028956837943, +0.58404258583702418), (+1.5365501601105391, +0.99236402254833012), (+1.8175253706336973, +0.33414610357837288), (+1.4853865746583983, +0.58903847052814862), (+1.2431569132249380, +0.37730333522288734), (+1.5658056968857998, +0.52827465567746212), (+1.2610408579466648, +0.73727504484140705), (+1.4033079945972382, +0.80416310103972044), (+1.8583093426352584, +0.93614924786359910), (+1.1112488020522675, +0.42702549052294814), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.55511151231257827E-15, -0.52735593669694936E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.0000000000000000, -0.49960036108132044E-15), (-0.11102230246251565E-15, -0.38857805861880479E-15), (+0.0000000000000000, -0.66613381477509392E-15), (+0.44408920985006262E-15, -0.83266726846886741E-16), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.83266726846886741E-16), (+0.77715611723760958E-15, -0.44408920985006262E-15), (+0.11102230246251565E-15, +0.34694469519536142E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (+0.22204460492503131E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (-0.22204460492503131E-15, -0.55511151231257827E-16), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.77715611723760958E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.77715611723760958E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.55511151231257827E-15, +0.61062266354383610E-15), (+0.22204460492503131E-15, +0.66613381477509392E-15), (+0.33306690738754696E-15, +0.61062266354383610E-15), (+0.44408920985006262E-15, +0.69388939039072284E-15), (+0.66613381477509392E-15, +0.38857805861880479E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.51347814888913490E-15), (+0.22204460492503131E-15, +0.47184478546569153E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.33306690738754696E-15, +0.94368957093138306E-15), (+0.44408920985006262E-15, +0.61062266354383610E-15), (+0.11102230246251565E-14, +0.11102230246251565E-14)
130reltol = sqrt(epsilon(1._TKG))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+95
140data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
141data
142(+1.47499135940456002055871666922954522, +0.421958847543723626950398983111802895), (+1.76527634266617134886945487228206796, +0.121978386657009609720195999071752071), (+1.23929227821407122219135257588397948, +0.685654380069148100737706646038606598), (+1.21612265455907914322816176195002710, +0.525127871541323237767156054866334323), (+1.36858897349862149795333031859297798, +0.410439506685878589358667232328549929), (+1.62938125699274220881141610768938011, +0.775195873813357293645026343749255216), (+1.43214329079709304758003700922671192, +0.932147375372884394108738785749789843), (+1.49334338732200739392331818437508030, +0.900721537999766887946027883411927999), (+1.43884294548213201685693743710653020, +0.233627969352125442456154103686366495), (+1.75402282983952852307293951970650433, +0.538439907204546697861509965431945033), (+1.36739037012532612857377828845475098, +0.410116683051745185939266466088643132), (+1.05493403727224795950259443145924533, +0.250828936004621331814872934619197207), (+1.99602735862509750827604688908391977, +0.841393054590312612354676161427658663), (+1.62218473070695722795648863347323643, +0.984350032623313591528681522813474076), (+1.67801581429100296664798070208422548, +0.789290436634039859608725561782441209), (+1.45255660235057766620875999806719025, +0.437069280272733552962649797292508476), (+1.02340686465559464122590827916648711, +0.861389545251146616120592990443754330), (+1.04909484264479728814542904221908001, +0.479057488077166470036018461150115149), (+1.99823300951127634296043596072774510, +0.291339782796181232164528043018760493), (+1.84122853530173780765548347071785734, +0.285981626605785056403975015502077581), (+1.11701067210005872323811390508971619, +0.303148984342715991439866070648120084), (+1.35255007714804566187426912671639753, +0.540521187820486576196594776587689714), (+1.65689703203572782432379963492539800, +0.194773717915737037685969491498551445), (+1.81847515080369313338946372518818642, +0.655697559895842117995338971786593864), (+1.10138935456547654488108948686383010, +0.292597927709856276011100059660365684), (+1.75530529242972380266102075918768656, +0.846153467801241298816159154602575342), (+1.04905090303970050350072965894567851, +0.124130888591739645157482111110949327), (+1.43579987126035790117796845810446638, +0.878891923744267345376011477391762633), (+1.68938774436709110106776217232457758, +0.768652712340307769164073816589604015), (+1.53830517586708049004584770285568662, +0.654349645697840041073627991463497414), (+1.45513837851695536024705509551203411, +0.585795357468536937861220035314774948), (+1.31694862466013493166038522456052001, +0.788738777781402651546535021931683730), (+1.40157144621258505679166825567995407, +0.646374667662361197022015640799335939), (+1.24344485100849117942370893157943389, +0.252970439050388796559795954651436454), (+1.27967617460495360731628417947944604, +0.493464930858299255364841377286504885), (+1.78529734673532188374949742437997934, +0.607282335403070076489741950636546583), (+1.04262234680626090342629986747491502, +0.903783435252488615684345025848238324), (+1.44472211992925051961554903017755687, +0.282651016599213968236400016156558494), (+1.34543041973118603796870111488094648, +0.668336219255005640047167069226810008E-1), (+1.26336246677655338236983665557491651, +0.674434473945981790361703760335237924), (+1.52218131318295531288929375293263328, +0.668187328490400460137737184534737951), (+1.04755005417469882506291965575403611, +0.831165192804409806599721183268107380), (+1.98819371511725742714647407644934890, +0.917091067621473006934879551573338712E-1), (+1.64836018149752130822949832057228271, +0.432219515952093020132886923916456043E-2), (+1.63603175794069716814475995783349804, +0.386425865172512662954160944197272228E-1), (+1.94248848801523992241547351146745297, +0.973404925051571332688944785789861043), (+1.11612726038438011695332071768147255, +0.714285039909515439059794208618426897), (+1.71692056292843415326583132647998048, +0.134891636197300050025369096810282992), (+1.82436495296745161374528695490468465, +0.539126162593409458562793913148438054), (+1.04524934410416426419618870689725478, +0.521848678669260911567053798933380444), (+1.47666929171451964845234259997160335, +0.900479224336819905213714717182266186), (+1.86868655325795538652612375231464728, +0.781377007040030898038415439903993720), (+1.79428736223663805087953536538362010, +0.492275618866482127037162418484015914), (+1.88513132187609284014318670850006546, +0.451443569291793566951270793744634469), (+1.67774059549405271874749714216101703, +0.465819860714014345402579300358941032), (+1.28058396737416103188842021478804867, +0.297829594238456961032650232512730241), (+1.55262813981244047005253311420787741, +0.550870520482437645246176944107391179), (+1.83320118406090494245584167181569688, +0.466543358565013661522939982792750957), (+1.65012421449037610937841270468272427, +0.470876715550835454507828361335138390), (+1.89258252351144386528223386026197971, +0.865946965059131195764311572874174400), (+1.50428128482851874261250769060403732, +0.296476059837382053794054951518283930), (+1.03871236321033414193873704010365168, +0.994476863518029600288465604015415429), (+1.00916598789639800379144556491702216, +0.120225770590152139709905901346543991E-1), (+1.52985357991693088347035797649297085, +0.822505940861908338015256712795922499), (+1.34939989710116830242142430251877828, +0.192903684083760787438594530704382665), (+1.16355067287222247759193891513978136, +0.368013615837118553008641235929012856E-1), (+1.35504238408952587433610971701999179, +0.552345350236404357180491554154607841), (+1.07442220105254479574277993661399734, +0.353863987906771826093062581826962817E-1), (+1.13281133425203910729380993602304974, +0.322993647341572229102382257298742364), (+1.22513248690271806928585512957695979, +0.357767783524160128044094569427641965), (+1.92771520394674110318992580613146924, +0.218436729648690890295644762114842195), (+1.26637828994176982441636786145023917, +0.964400863888318054233638800443551784), (+1.12451981070500993838985743941714020, +0.132213193360177607273375669868756751), (+1.98770678928791256839961319967006645, +0.405633261140483066334633311595511154), (+1.09266553607466443443907048141315124, +0.561978649322948317368805129566396236), (+1.36229720728028877818449283650293943, +0.201989605139403760250985786138801553E-1), (+1.42516326656827094011620703873137025, +0.792635002918962425816942212044138230), (+1.43951964903630356274560968021386586, +0.128301150640479324763788480187416317), (+1.15622123359164148171286724810982309, +0.632159475727844599429977065504614929), (+1.86681678534466466449514191935130338, +0.250763491937503845136486074083873170), (+1.83287277280199405785718330917146167, +0.966125823004069202839057256626136504), (+1.92652287719439558515083108018325699, +0.241521867490999444042707684200302859), (+1.18834143279249510824816048812591158, +0.534242579632389705749475245415547200), (+1.30267508152935527860010813780132344, +0.796568298167222873703901438098308489), (+1.42791487695847043505421547803635003, +0.322397256213201166821251733348473954), (+1.44826703267027338523705959482055645, +0.449770683953331930663014301316238431E-1), (+1.70457494496740016829316254422135221, +0.469712093056410677664731404304085269), (+1.41774403657133668290841021923435934, +0.515057421277516905323145849920410029), (+1.80357268394055577623709797568043131, +0.793360406978856094733588743519720545), (+1.14930931525877761217104268932526271, +0.572206573071889600022828074199093116), (+1.36880996201552062268208799122608624, +0.129203955346189457176281495424861566), (+1.78737857253067454356679901478799563, +0.563323578362168974160541194586249468), (+1.57889432288578010249831669596511176, +0.403395258447037470944683138616627685), (+1.80937296254179144895462188714134666, +0.300246901245831328751853340896458214), (+1.51560803312894279841352545922268187, +0.100396972023386114933126453381546929)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.47499135940456002055871666922954541, +0.421958847543723626950398983111802798), (+1.76527634266617134886945487228206834, +0.121978386657009609720195999071751614), (+1.23929227821407122219135257588397928, +0.685654380069148100737706646038606309), (+1.21612265455907914322816176195002748, +0.525127871541323237767156054866334035), (+1.36858897349862149795333031859297759, +0.410439506685878589358667232328550026), (+1.62938125699274220881141610768938011, +0.775195873813357293645026343749254831), (+1.43214329079709304758003700922671230, +0.932147375372884394108738785749789650), (+1.49334338732200739392331818437508088, +0.900721537999766887946027883411927903), (+1.43884294548213201685693743710653078, +0.233627969352125442456154103686366543), (+1.75402282983952852307293951970650491, +0.538439907204546697861509965431944937), (+1.36739037012532612857377828845475098, +0.410116683051745185939266466088643228), (+1.05493403727224795950259443145924494, +0.250828936004621331814872934619197063), (+1.99602735862509750827604688908391996, +0.841393054590312612354676161427658952), (+1.62218473070695722795648863347323701, +0.984350032623313591528681522813474364), (+1.67801581429100296664798070208422548, +0.789290436634039859608725561782441402), (+1.45255660235057766620875999806719044, +0.437069280272733552962649797292508669), (+1.02340686465559464122590827916648711, +0.861389545251146616120592990443754426), (+1.04909484264479728814542904221908001, +0.479057488077166470036018461150114908), (+1.99823300951127634296043596072774510, +0.291339782796181232164528043018760348), (+1.84122853530173780765548347071785734, +0.285981626605785056403975015502077485), (+1.11701067210005872323811390508971581, +0.303148984342715991439866070648119939), (+1.35255007714804566187426912671639772, +0.540521187820486576196594776587689425), (+1.65689703203572782432379963492539781, +0.194773717915737037685969491498551253), (+1.81847515080369313338946372518818642, +0.655697559895842117995338971786593479), (+1.10138935456547654488108948686382990, +0.292597927709856276011100059660365636), (+1.75530529242972380266102075918768694, +0.846153467801241298816159154602575535), (+1.04905090303970050350072965894567908, +0.124130888591739645157482111110949496), (+1.43579987126035790117796845810446638, +0.878891923744267345376011477391762729), (+1.68938774436709110106776217232457758, +0.768652712340307769164073816589604015), (+1.53830517586708049004584770285568623, +0.654349645697840041073627991463497414), (+1.45513837851695536024705509551203392, +0.585795357468536937861220035314775237), (+1.31694862466013493166038522456052001, +0.788738777781402651546535021931684019), (+1.40157144621258505679166825567995426, +0.646374667662361197022015640799336036), (+1.24344485100849117942370893157943428, +0.252970439050388796559795954651436454), (+1.27967617460495360731628417947944585, +0.493464930858299255364841377286505078), (+1.78529734673532188374949742437997973, +0.607282335403070076489741950636546583), (+1.04262234680626090342629986747491483, +0.903783435252488615684345025848238517), (+1.44472211992925051961554903017755726, +0.282651016599213968236400016156558398), (+1.34543041973118603796870111488094667, +0.668336219255005640047167069226808804E-1), (+1.26336246677655338236983665557491670, +0.674434473945981790361703760335237924), (+1.52218131318295531288929375293263386, +0.668187328490400460137737184534738047), (+1.04755005417469882506291965575403630, +0.831165192804409806599721183268107477), (+1.98819371511725742714647407644934929, +0.917091067621473006934879551573342564E-1), (+1.64836018149752130822949832057228271, +0.432219515952093020132886923916463266E-2), (+1.63603175794069716814475995783349824, +0.386425865172512662954160944197270784E-1), (+1.94248848801523992241547351146745336, +0.973404925051571332688944785789861235), (+1.11612726038438011695332071768147255, +0.714285039909515439059794208618426994), (+1.71692056292843415326583132647998067, +0.134891636197300050025369096810282847), (+1.82436495296745161374528695490468465, +0.539126162593409458562793913148438150), (+1.04524934410416426419618870689725478, +0.521848678669260911567053798933380540), (+1.47666929171451964845234259997160335, +0.900479224336819905213714717182266282), (+1.86868655325795538652612375231464748, +0.781377007040030898038415439903993624), (+1.79428736223663805087953536538362010, +0.492275618866482127037162418484016010), (+1.88513132187609284014318670850006584, +0.451443569291793566951270793744634469), (+1.67774059549405271874749714216101703, +0.465819860714014345402579300358941224), (+1.28058396737416103188842021478804867, +0.297829594238456961032650232512730048), (+1.55262813981244047005253311420787741, +0.550870520482437645246176944107391371), (+1.83320118406090494245584167181569746, +0.466543358565013661522939982792750764), (+1.65012421449037610937841270468272446, +0.470876715550835454507828361335138775), (+1.89258252351144386528223386026198010, +0.865946965059131195764311572874174881), (+1.50428128482851874261250769060403751, +0.296476059837382053794054951518284122), (+1.03871236321033414193873704010365168, +0.994476863518029600288465604015415911), (+1.00916598789639800379144556491702235, +0.120225770590152139709905901346542426E-1), (+1.52985357991693088347035797649297124, +0.822505940861908338015256712795922884), (+1.34939989710116830242142430251877828, +0.192903684083760787438594530704382568), (+1.16355067287222247759193891513978136, +0.368013615837118553008641235929012134E-1), (+1.35504238408952587433610971701999179, +0.552345350236404357180491554154607841), (+1.07442220105254479574277993661399734, +0.353863987906771826093062581826961614E-1), (+1.13281133425203910729380993602304955, +0.322993647341572229102382257298742364), (+1.22513248690271806928585512957695979, +0.357767783524160128044094569427641965), (+1.92771520394674110318992580613146943, +0.218436729648690890295644762114841955), (+1.26637828994176982441636786145023956, +0.964400863888318054233638800443552073), (+1.12451981070500993838985743941714039, +0.132213193360177607273375669868756703), (+1.98770678928791256839961319967006664, +0.405633261140483066334633311595511154), (+1.09266553607466443443907048141315124, +0.561978649322948317368805129566396140), (+1.36229720728028877818449283650293943, +0.201989605139403760250985786138802516E-1), (+1.42516326656827094011620703873137006, +0.792635002918962425816942212044138326), (+1.43951964903630356274560968021386605, +0.128301150640479324763788480187416125), (+1.15622123359164148171286724810982309, +0.632159475727844599429977065504614929), (+1.86681678534466466449514191935130357, +0.250763491937503845136486074083873170), (+1.83287277280199405785718330917146167, +0.966125823004069202839057256626136215), (+1.92652287719439558515083108018325718, +0.241521867490999444042707684200302714), (+1.18834143279249510824816048812591158, +0.534242579632389705749475245415547200), (+1.30267508152935527860010813780132383, +0.796568298167222873703901438098308489), (+1.42791487695847043505421547803635003, +0.322397256213201166821251733348474002), (+1.44826703267027338523705959482055664, +0.449770683953331930663014301316238431E-1), (+1.70457494496740016829316254422135240, +0.469712093056410677664731404304085172), (+1.41774403657133668290841021923435973, +0.515057421277516905323145849920410029), (+1.80357268394055577623709797568043131, +0.793360406978856094733588743519720738), (+1.14930931525877761217104268932526290, +0.572206573071889600022828074199093116), (+1.36880996201552062268208799122608663, +0.129203955346189457176281495424861446), (+1.78737857253067454356679901478799563, +0.563323578362168974160541194586249660), (+1.57889432288578010249831669596511176, +0.403395258447037470944683138616627733), (+1.80937296254179144895462188714134685, +0.300246901245831328751853340896458503), (+1.51560803312894279841352545922268168, +0.100396972023386114933126453381546929), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (+0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-33, -0.240741243048404481631997242823115915E-34), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, +0.240741243048404481631997242823115915E-34), (-0.385185988877447170611195588516985464E-33, -0.120370621524202240815998621411557957E-33), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (+0.962964972193617926527988971292463659E-34, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, -0.770371977754894341222391177033970927E-33), (-0.385185988877447170611195588516985464E-33, -0.373148926725026946529595726375829668E-33), (-0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33)
147reltol = sqrt(epsilon(1._TKG))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+88
157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
158data
159+1.43286288, +1.16278362, +1.25381041, +1.71540880, +1.11006248, +1.73073518, +1.41453624, +1.76751459, +1.73179543, +1.62649858, +1.50069857, +1.03326368, +1.31548572, +1.58997393, +1.16612148, +1.82980561, +1.32575393, +1.86076057, +1.21237385, +1.53060436, +1.81747568, +1.43973136, +1.19298506, +1.02609932, +1.31735492, +1.74414635, +1.31723475, +1.93769240, +1.77397943, +1.00203085, +1.54161167, +1.36775017, +1.00011921, +1.22768593, +1.86941838, +1.38802218, +1.42018270, +1.72349429, +1.84259486, +1.66480851, +1.46805620, +1.83729553, +1.71831822, +1.62215519, +1.17116380, +1.32539237, +1.84712934, +1.02402401, +1.47874355, +1.09967160, +1.05479741, +1.15115261, +1.32035804, +1.33562374, +1.87895036, +1.44042873, +1.37504435, +1.83909154, +1.71224856, +1.59450459, +1.13728094, +1.24352980, +1.83160257, +1.36200809, +1.29334879, +1.58076692, +1.25644493, +1.25848436, +1.45607686, +1.58556080, +1.28827929, +1.32415926, +1.81880784, +1.81246448, +1.02031040, +1.79450428, +1.11812150, +1.19868445, +1.48226714, +1.95620894, +1.07990193, +1.20572746, +1.57347822, +1.05990076, +1.30867589, +1.39343846, +1.17561531, +1.62972260
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.43286300, +1.16278362, +1.25381029, +1.71540856, +1.11006236, +1.73073506, +1.41453600, +1.76751399, +1.73179579, +1.62649834, +1.50069880, +1.03326368, +1.31548572, +1.58997381, +1.16612136, +1.82980525, +1.32575405, +1.86076045, +1.21237350, +1.53060412, +1.81747544, +1.43973136, +1.19298494, +1.02609909, +1.31735492, +1.74414623, +1.31723475, +1.93769240, +1.77397919, +1.00203085, +1.54161143, +1.36775005, +1.00011933, +1.22768581, +1.86941838, +1.38802195, +1.42018270, +1.72349405, +1.84259486, +1.66480815, +1.46805620, +1.83729529, +1.71831834, +1.62215519, +1.17116392, +1.32539225, +1.84712934, +1.02402389, +1.47874355, +1.09967160, +1.05479753, +1.15115237, +1.32035780, +1.33562350, +1.87895048, +1.44042826, +1.37504411, +1.83909118, +1.71224833, +1.59450448, +1.13728082, +1.24352956, +1.83160245, +1.36200798, +1.29334879, +1.58076692, +1.25644505, +1.25848413, +1.45607686, +1.58556056, +1.28827953, +1.32415891, +1.81880760, +1.81246436, +1.02031016, +1.79450417, +1.11812139, +1.19868457, +1.48226702, +1.95620883, +1.07990181, +1.20572734, +1.57347798, +1.05990052, +1.30867565, +1.39343858, +1.17561543, +1.62972224, +0.00000000, -0.119209290E-6, -0.596046448E-7, -0.178813934E-6, +0.238418579E-6, +0.119209290E-6, +0.596046448E-7, +0.00000000, -0.119209290E-6, +0.119209290E-6, -0.178813934E-6, +0.00000000, -0.119209290E-6, +0.536441803E-6, -0.119209290E-6, +0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, +0.238418579E-6, -0.119209290E-6, +0.119209290E-6, +0.357627869E-6, +0.238418579E-6, +0.00000000, +0.00000000, -0.596046448E-7, +0.238418579E-6, +0.119209290E-6, +0.596046448E-7, +0.536441803E-6, -0.119209290E-6, +0.178813934E-6, +0.119209290E-6, +0.357627869E-6, +0.178813934E-6, +0.00000000, -0.238418579E-6
164reltol = sqrt(epsilon(1._TKG))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+86
174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
175data
176+1.4126124671638136, +1.0622483393745044, +1.7000094034512279, +1.6374247927392562, +1.1477473773007385, +1.5887272528388687, +1.7038093720093885, +1.0593600852031531, +1.1116303800002485, +1.6682340303272545, +1.4776765300750780, +1.6513162651331388, +1.7980647379573065, +1.1198828289315095, +1.9051466113077073, +1.8571446260343765, +1.7571230217348486, +1.1624292480150857, +1.3130531133750667, +1.3541506381387149, +1.6006114652857608, +1.3276542861690845, +1.5245846301324220, +1.5496456490231019, +1.9466706053415428, +1.1936131403636774, +1.3584038277363812, +1.1939622733532396, +1.1981715411221221, +1.3690160296403171, +1.0813870733252298, +1.3229508991360128, +1.4623209701776085, +1.6528632192772184, +1.2379096957874245, +1.5645504315134622, +1.4872006158759516, +1.4314919926265790, +1.6247677728176788, +1.8466490598218002, +1.2492112050401016, +1.7576126969422337, +1.3766770473890908, +1.3386072080911071, +1.7276726852890161, +1.1554163425366852, +1.4890121847207585, +1.7745724377202674, +1.2257180365041103, +1.2700187437018076, +1.3094689785526354, +1.6858258570275466, +1.4641640699865497, +1.2651704866824955, +1.7808543518592532, +1.5490453949539948, +1.7544625086335759, +1.1795178757942728, +1.0579396494081945, +1.2911781290681081, +1.6134055793797004, +1.1126864227868078, +1.6326589960645654, +1.7137259931956010, +1.9629865226449503, +1.0020599024184484, +1.0325744414714915, +1.1698377985115016, +1.5676430621837099, +1.8668112657066587, +1.8183855649674348, +1.9630184507650166, +1.2636123620593245, +1.9253460325865981, +1.6444573404300620, +1.0921704345200569, +1.3380319800020035, +1.8056645126849702, +1.3263611088086473, +1.2139441354030209, +1.7705370128262423, +1.5478342451770541, +1.9018496849816491, +1.3828089360884350, +1.4301181438871500, +1.9905215357203447
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.4126124671638134, +1.0622483393745041, +1.7000094034512281, +1.6374247927392565, +1.1477473773007385, +1.5887272528388692, +1.7038093720093879, +1.0593600852031531, +1.1116303800002485, +1.6682340303272547, +1.4776765300750778, +1.6513162651331390, +1.7980647379573065, +1.1198828289315093, +1.9051466113077069, +1.8571446260343760, +1.7571230217348479, +1.1624292480150855, +1.3130531133750665, +1.3541506381387152, +1.6006114652857606, +1.3276542861690845, +1.5245846301324222, +1.5496456490231014, +1.9466706053415426, +1.1936131403636778, +1.3584038277363808, +1.1939622733532398, +1.1981715411221221, +1.3690160296403171, +1.0813870733252298, +1.3229508991360130, +1.4623209701776085, +1.6528632192772181, +1.2379096957874247, +1.5645504315134624, +1.4872006158759516, +1.4314919926265790, +1.6247677728176790, +1.8466490598218002, +1.2492112050401016, +1.7576126969422339, +1.3766770473890910, +1.3386072080911076, +1.7276726852890165, +1.1554163425366850, +1.4890121847207591, +1.7745724377202676, +1.2257180365041105, +1.2700187437018076, +1.3094689785526361, +1.6858258570275471, +1.4641640699865501, +1.2651704866824955, +1.7808543518592534, +1.5490453949539948, +1.7544625086335754, +1.1795178757942724, +1.0579396494081945, +1.2911781290681077, +1.6134055793797004, +1.1126864227868076, +1.6326589960645650, +1.7137259931956010, +1.9629865226449501, +1.0020599024184482, +1.0325744414714912, +1.1698377985115014, +1.5676430621837101, +1.8668112657066585, +1.8183855649674343, +1.9630184507650166, +1.2636123620593240, +1.9253460325865983, +1.6444573404300615, +1.0921704345200567, +1.3380319800020035, +1.8056645126849702, +1.3263611088086473, +1.2139441354030203, +1.7705370128262421, +1.5478342451770535, +1.9018496849816489, +1.3828089360884348, +1.4301181438871506, +1.9905215357203445, +0.55511151231257827E-15, -0.44408920985006262E-15, +0.0000000000000000, -0.66613381477509392E-15, +0.33306690738754696E-15, -0.66613381477509392E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.0000000000000000, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.77715611723760958E-15, -0.33306690738754696E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.88817841970012523E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.99920072216264089E-15
181reltol = sqrt(epsilon(1._TKG))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+100
191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
192data
193+1.66613250465102165249831095803221168, +1.86217813795217778091462350960665631, +1.26899784213028664317900197832987500, +1.23383824140872327097182474186177037, +1.23616556360768793736841034931881296, +1.60740695035901620646992449531771645, +1.50629923573357687833539570103330581, +1.45681286290304262415236186446568127, +1.02382696492602578742163574838210448, +1.20272193366841752169456206831055952, +1.75853874865967394532230543123061910, +1.89092881809542456972242611705657736, +1.18886000005186026671044915051775303, +1.48383956848472382700619454844751394, +1.46006932635481755543137886662926853, +1.34667177403458762427847882266984524, +1.64053288065132080696165384757262029, +1.77183298950598310105501854840712580, +1.48636482030713223343850295792886230, +1.28927560803350476561316478825649447, +1.21971112190783428545893051446248033, +1.89114411857252042124164809275171907, +1.62420019478767834326590087444228795, +1.78162952613013343198430203547821813, +1.95266875305562469974715288761996031, +1.96070398535683665272313422962491481, +1.06178267748583493436239717671205788, +1.26210276995075188298377698261983807, +1.33608582905217544248924386304313911, +1.79381389022541441908349692070829068, +1.71884038187636899515854369902228938, +1.93581332971641303790260780243358934, +1.64249491296191653130641471785331225, +1.19446861439606253337363595214307332, +1.96143069356147131150133970196984331, +1.17374047879160623341378543378775046, +1.32077530291366413220939594409774118, +1.73322715722790836704686509422397709, +1.96390362868386337658869184475659832, +1.67315416371803104120105064251539233, +1.45290048847528866328704851579288499, +1.40266606125039327520206739798526021, +1.89077331646387476973395200600519359, +1.98817139480708174899996197522176723, +1.48106424734664108161732569200163149, +1.84065593542301936574894459815188858, +1.42380887386761802162616593409202932, +1.70978855646192514236497820749947426, +1.06323249848714181592636967315226241, +1.81322915653036459212721345950058633, +1.87385285972314061135209391387473481, +1.94915501466086165719130227649282821, +1.37344139294064975388061108303465202, +1.66308068508214958181867484757833994, +1.29500499145230020683994416874581061, +1.74399952427125503621020136464255861, +1.22043038679764319930883281815825024, +1.06860380841267395129041470630968317, +1.32208114362588467217899711808104694, +1.26160238698199589505420065055409917, +1.95100938263383849548759656324623244, +1.44108638129036821653179458696750692, +1.70345070755335412635438622202918539, +1.74303750374678085533721546072119695, +1.05777234890150480933480175691967741, +1.76588326013555402911345053796559738, +1.20068621345577286238151277782532883, +1.14807192752162316538336786893278887, +1.01196476942006575204095129787116982, +1.47754949679206646311625255732094544, +1.13429500515792574562295557519096413, +1.42989038065521118667614499033504468, +1.21767921090638033631469654038028342, +1.68074780894144927330753095045253158, +1.63025761428287067152319965141327575, +1.47599172288128985551309452215076461, +1.20814772418631785630078385998994461, +1.98952696445994244717912112638440375, +1.81942936406637810245953465401396641, +1.86958006005822161828141496430621691, +1.30700534865761487681845614938655487, +1.21910473023684554671268706165853748, +1.85339063136242099464452852715025575, +1.48054883738073648199916343926158029, +1.36789547874867345012062072812832016, +1.76751271027694685827221464269951337, +1.02332802949992789952969649985507748, +1.11487942468793736034755671697384848, +1.54117892770727700934135773705838905, +1.71122167610717136838055174573691427, +1.77081444259455356112869909055192310, +1.78254657493609558423817053311040745, +1.71185289155727973955760026498696214, +1.33777707242032320297123503548832123, +1.82857787340996804178967082816804309, +1.72373249432900153600906945790458434, +1.92034811720589830329267791991523759, +1.06787512168495515906000377017152963, +1.32771980203344752757233707713991993, +1.15369597085307596821831367861533549
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.66613250465102165249831095803221168, +1.86217813795217778091462350960665651, +1.26899784213028664317900197832987500, +1.23383824140872327097182474186177095, +1.23616556360768793736841034931881258, +1.60740695035901620646992449531771645, +1.50629923573357687833539570103330543, +1.45681286290304262415236186446568108, +1.02382696492602578742163574838210486, +1.20272193366841752169456206831055913, +1.75853874865967394532230543123061930, +1.89092881809542456972242611705657794, +1.18886000005186026671044915051775283, +1.48383956848472382700619454844751394, +1.46006932635481755543137886662926853, +1.34667177403458762427847882266984505, +1.64053288065132080696165384757261990, +1.77183298950598310105501854840712580, +1.48636482030713223343850295792886230, +1.28927560803350476561316478825649485, +1.21971112190783428545893051446248014, +1.89114411857252042124164809275171907, +1.62420019478767834326590087444228756, +1.78162952613013343198430203547821871, +1.95266875305562469974715288761996031, +1.96070398535683665272313422962491519, +1.06178267748583493436239717671205711, +1.26210276995075188298377698261983846, +1.33608582905217544248924386304313930, +1.79381389022541441908349692070829068, +1.71884038187636899515854369902228938, +1.93581332971641303790260780243359030, +1.64249491296191653130641471785331244, +1.19446861439606253337363595214307332, +1.96143069356147131150133970196984331, +1.17374047879160623341378543378775084, +1.32077530291366413220939594409774137, +1.73322715722790836704686509422397709, +1.96390362868386337658869184475659813, +1.67315416371803104120105064251539272, +1.45290048847528866328704851579288519, +1.40266606125039327520206739798526021, +1.89077331646387476973395200600519359, +1.98817139480708174899996197522176800, +1.48106424734664108161732569200163149, +1.84065593542301936574894459815188858, +1.42380887386761802162616593409202952, +1.70978855646192514236497820749947446, +1.06323249848714181592636967315226260, +1.81322915653036459212721345950058614, +1.87385285972314061135209391387473481, +1.94915501466086165719130227649282859, +1.37344139294064975388061108303465222, +1.66308068508214958181867484757833956, +1.29500499145230020683994416874581061, +1.74399952427125503621020136464255861, +1.22043038679764319930883281815825063, +1.06860380841267395129041470630968298, +1.32208114362588467217899711808104656, +1.26160238698199589505420065055409898, +1.95100938263383849548759656324623264, +1.44108638129036821653179458696750654, +1.70345070755335412635438622202918597, +1.74303750374678085533721546072119695, +1.05777234890150480933480175691967779, +1.76588326013555402911345053796559719, +1.20068621345577286238151277782532883, +1.14807192752162316538336786893278887, +1.01196476942006575204095129787116962, +1.47754949679206646311625255732094544, +1.13429500515792574562295557519096413, +1.42989038065521118667614499033504468, +1.21767921090638033631469654038028361, +1.68074780894144927330753095045253158, +1.63025761428287067152319965141327594, +1.47599172288128985551309452215076461, +1.20814772418631785630078385998994461, +1.98952696445994244717912112638440394, +1.81942936406637810245953465401396641, +1.86958006005822161828141496430621710, +1.30700534865761487681845614938655507, +1.21910473023684554671268706165853691, +1.85339063136242099464452852715025594, +1.48054883738073648199916343926158067, +1.36789547874867345012062072812832035, +1.76751271027694685827221464269951318, +1.02332802949992789952969649985507709, +1.11487942468793736034755671697384829, +1.54117892770727700934135773705838867, +1.71122167610717136838055174573691427, +1.77081444259455356112869909055192271, +1.78254657493609558423817053311040784, +1.71185289155727973955760026498696233, +1.33777707242032320297123503548832104, +1.82857787340996804178967082816804271, +1.72373249432900153600906945790458492, +1.92034811720589830329267791991523739, +1.06787512168495515906000377017152963, +1.32771980203344752757233707713991993, +1.15369597085307596821831367861533587, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33, -0.115555796663234151183358676555095639E-32, +0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-33, +0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33
198reltol = sqrt(epsilon(1._TKG))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+15
208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
209data
210(+1.06423938, +0.596100628), (+1.44119430, +0.754236937), (+1.01964378, +0.505828083), (+1.13588941, +0.168375373), (+1.95053136, +0.263845623), (+1.89810479, +0.615888059), (+1.17326069, +0.908966959), (+1.93787336, +0.345434129), (+1.41561341, +0.184101582), (+1.28883255, +0.155639172), (+1.72219729, +0.668705940), (+1.70318782, +0.150420010), (+1.41749263, +0.734377801), (+1.25792086, +0.270995259), (+1.32275295, +0.355974317)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.06423926, +0.596100628), (+1.44119406, +0.754236937), (+1.01964378, +0.505828202), (+1.13588929, +0.168375432), (+1.95053124, +0.263845652), (+1.89810467, +0.615888059), (+1.17326081, +0.908967018), (+1.93787324, +0.345434010), (+1.41561341, +0.184101641), (+1.28883243, +0.155639172), (+1.72219729, +0.668706000), (+1.70318770, +0.150419950), (+1.41749263, +0.734377861), (+1.25792050, +0.270995438), (+1.32275307, +0.355974346), (+0.119209290E-6, +0.596046448E-7)
215reltol = sqrt(epsilon(1._TKG))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+74
225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
226data
227(+1.4411695977066081, +0.90230933397479063), (+1.8468820556833050, +0.57983695525447887), (+1.3303698728047708, +0.56883558101377019), (+1.8589488583757974, +0.84362886715816932), (+1.2248742872255682, +0.64235438562671721), (+1.6035338016539868, +0.96408982363008677), (+1.0812427393661410, +0.83082405685053340), (+1.7238506216863634, +0.86981035816408969), (+1.0854911078534482, +0.12552583888713209), (+1.1347135110131084, +0.65657000701132140), (+1.6985026696717593, +0.31493645806135451E-3), (+1.3056786356446288, +0.76696418037508562), (+1.1778285640279220, +0.34422152293142705), (+1.3562914687854817, +0.10408663542970042), (+1.3055179048595051, +0.70155689619389183), (+1.4444300372466303, +0.40416606412267508), (+1.3874186707867362, +0.52925088863883551), (+1.5612411218850815, +0.26418819036091734), (+1.2360280444135634, +0.60657633448647086), (+1.7889496580765043, +0.83383548014616660), (+1.6051216996621935, +0.71804944924940128), (+1.2691980912983902, +0.33368806894537184), (+1.9558208790726037, +0.23821211049319624), (+1.4531897945075403, +0.95793081700741023), (+1.2937346572091410, +0.12263329930077571), (+1.8279298953689245, +0.59623765953136620), (+1.6464614544591596, +0.72538876531089358), (+1.0392268206393076, +0.32812025625017160), (+1.5851852876943640, +0.60688659120244937), (+1.6627684506033162, +0.64703497996677117), (+1.7997614069073844, +0.91535195571499428), (+1.6121075587941505, +0.29562439830261333), (+1.7172741688310795, +0.85658482875810504), (+1.5079936900683579, +0.17179468719931146), (+1.9577742539861369, +0.17018549638204639), (+1.6338155352396182, +0.77164259685938652E-1), (+1.3858758968022231, +0.56871474870610861), (+1.6628632645266221, +0.36300661906202303), (+1.9495405437222115, +0.54778629139821455), (+1.7517623886138414, +0.71408601690137030), (+1.9737662341637194, +0.93538562446398610), (+1.1243239773125222, +0.46036638341719927), (+1.0632370907396886, +0.95262769476470199), (+1.8967620938070766, +0.74831140128036266), (+1.5578691831490377, +0.46534608667033883), (+1.0369258925534464, +0.57900138280069879), (+1.7463056460721749, +0.12127200533417259), (+1.9106750846252849, +0.73091771368382963E-1), (+1.6422695362799047, +0.28840146424777524), (+1.6694147960007797, +0.91169583894485173), (+1.2505324401913454, +0.92961414062205072), (+1.1100319854440273, +0.32927557538848240), (+1.4922316232349246, +0.69483939542169026), (+1.8897109509596932, +0.68761178801883860), (+1.9683792871744994, +0.85494535575098429), (+1.6500470962972833, +0.63093280199915558), (+1.6632251556082460, +0.91416478206743346), (+1.8485339846996340, +0.95652408794792976), (+1.3268386137080488, +0.70702515767495655), (+1.3124095990676452, +0.68521496360181167), (+1.4499360254773614, +0.88027481447964373), (+1.2044472962660211, +0.68631070738040689), (+1.5084507995231125, +0.76943550154120088), (+1.7124771368668319, +0.81570730568034810), (+1.3548626753382387, +0.48242599049935886E-1), (+1.5460135631917580, +0.89083589623556481), (+1.6125445692169282, +0.89376706195803735), (+1.1185420756934186, +0.92168095413587836), (+1.5937414298131563, +0.83030998992822269), (+1.5612553478084872, +0.81011456518070823), (+1.6112000982154981, +0.31052128461178485), (+1.3140441018511704, +0.63365915332710654), (+1.1081557543647855, +0.49460305093787738), (+1.1668108417426408, +0.45668149475671937)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.4411695977066081, +0.90230933397479052), (+1.8468820556833052, +0.57983695525447942), (+1.3303698728047708, +0.56883558101377052), (+1.8589488583757976, +0.84362886715817020), (+1.2248742872255682, +0.64235438562671743), (+1.6035338016539866, +0.96408982363008700), (+1.0812427393661406, +0.83082405685053362), (+1.7238506216863632, +0.86981035816409047), (+1.0854911078534484, +0.12552583888713223), (+1.1347135110131088, +0.65657000701132184), (+1.6985026696717596, +0.31493645806190962E-3), (+1.3056786356446288, +0.76696418037508596), (+1.1778285640279220, +0.34422152293142727), (+1.3562914687854817, +0.10408663542970090), (+1.3055179048595047, +0.70155689619389228), (+1.4444300372466303, +0.40416606412267586), (+1.3874186707867364, +0.52925088863883551), (+1.5612411218850815, +0.26418819036091756), (+1.2360280444135632, +0.60657633448647119), (+1.7889496580765045, +0.83383548014616693), (+1.6051216996621931, +0.71804944924940128), (+1.2691980912983902, +0.33368806894537190), (+1.9558208790726028, +0.23821211049319624), (+1.4531897945075403, +0.95793081700741034), (+1.2937346572091410, +0.12263329930077593), (+1.8279298953689245, +0.59623765953136632), (+1.6464614544591589, +0.72538876531089369), (+1.0392268206393074, +0.32812025625017177), (+1.5851852876943640, +0.60688659120244937), (+1.6627684506033158, +0.64703497996677106), (+1.7997614069073835, +0.91535195571499428), (+1.6121075587941500, +0.29562439830261361), (+1.7172741688310800, +0.85658482875810493), (+1.5079936900683579, +0.17179468719931129), (+1.9577742539861367, +0.17018549638204605), (+1.6338155352396182, +0.77164259685938472E-1), (+1.3858758968022233, +0.56871474870610839), (+1.6628632645266221, +0.36300661906202281), (+1.9495405437222115, +0.54778629139821400), (+1.7517623886138411, +0.71408601690137008), (+1.9737662341637194, +0.93538562446398599), (+1.1243239773125224, +0.46036638341719904), (+1.0632370907396884, +0.95262769476470188), (+1.8967620938070762, +0.74831140128036266), (+1.5578691831490374, +0.46534608667033861), (+1.0369258925534464, +0.57900138280069857), (+1.7463056460721744, +0.12127200533417232), (+1.9106750846252847, +0.73091771368382658E-1), (+1.6422695362799051, +0.28840146424777502), (+1.6694147960007797, +0.91169583894485140), (+1.2505324401913451, +0.92961414062205006), (+1.1100319854440270, +0.32927557538848207), (+1.4922316232349244, +0.69483939542168982), (+1.8897109509596932, +0.68761178801883815), (+1.9683792871744992, +0.85494535575098340), (+1.6500470962972831, +0.63093280199915491), (+1.6632251556082462, +0.91416478206743323), (+1.8485339846996336, +0.95652408794792954), (+1.3268386137080483, +0.70702515767495588), (+1.3124095990676448, +0.68521496360181100), (+1.4499360254773614, +0.88027481447964306), (+1.2044472962660211, +0.68631070738040623), (+1.5084507995231125, +0.76943550154120000), (+1.7124771368668315, +0.81570730568034699), (+1.3548626753382389, +0.48242599049935997E-1), (+1.5460135631917578, +0.89083589623556481), (+1.6125445692169285, +0.89376706195803723), (+1.1185420756934186, +0.92168095413587792), (+1.5937414298131565, +0.83030998992822258), (+1.5612553478084872, +0.81011456518070779), (+1.6112000982154984, +0.31052128461178435), (+1.3140441018511704, +0.63365915332710576), (+1.1081557543647855, +0.49460305093787715), (+1.1668108417426408, +0.45668149475671949), (+0.22204460492503131E-15, -0.66613381477509392E-15), (+0.0000000000000000, -0.61062266354383610E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.19428902930940239E-15), (+0.55511151231257827E-15, -0.27755575615628914E-15), (+0.44408920985006262E-15, -0.80491169285323849E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.38857805861880479E-15), (+0.55511151231257827E-15, -0.49960036108132044E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.66613381477509392E-15, -0.55511151231257827E-16), (+0.77715611723760958E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.66613381477509392E-15, -0.16653345369377348E-15), (+0.77715611723760958E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.41633363423443370E-16), (+0.0000000000000000, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.29143354396410359E-15), (-0.22204460492503131E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.24980018054066022E-15), (-0.11102230246251565E-15, +0.77715611723760958E-15), (+0.0000000000000000, +0.61062266354383610E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.19428902930940239E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.61062266354383610E-15), (+0.66613381477509392E-15, +0.47184478546569153E-15), (+0.33306690738754696E-15, +0.13877787807814457E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.44408920985006262E-15, +0.47184478546569153E-15), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.66613381477509392E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.22204460492503131E-15, +0.11657341758564144E-14), (+0.0000000000000000, +0.27755575615628914E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.66613381477509392E-15, +0.83266726846886741E-15), (+0.0000000000000000, +0.61062266354383610E-15), (+0.44408920985006262E-15, +0.83266726846886741E-15), (-0.22204460492503131E-15, +0.12212453270876722E-14), (+0.55511151231257827E-15, +0.13322676295501878E-14)
232reltol = sqrt(epsilon(1._TKG))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+19
242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
243data
244(+1.53196027442171111613179823192626155, +0.762954739663575328158497878126514233), (+1.82128600418575257097183652375295274, +0.814407388245682492355934640804668669), (+1.17339672110750407185224035716055607, +0.887033314816715080255977286404169015), (+1.89056676572518129228329226062209158, +0.577296046835711739994403837791338406), (+1.26616050572475693329604682003881242, +0.292018101726763445938116938596124293), (+1.54131286492100153389455147747078610, +0.662908677013852221811155110471520293), (+1.94255466453458901111568262081942973, +0.149694062209243516049221094732287314), (+1.20329401137580321729635009840866411, +0.204477423176950601565772346153969730), (+1.89259476958958741437551873925164098, +0.649893195541207950439751195866372579), (+1.59142192501841858051091039424413489, +0.636292939498688533925909135841478421), (+1.97076627438253654722062678981551694, +0.209760211008141656269719064114888268), (+1.27903533161391600511732907623819847, +0.248724641751301042786648323133501824), (+1.20711355357282231706810972736510764, +0.683719709806560047224511731887371034), (+1.91800831474150948797829357562184023, +0.516569345681834897842655726729616113), (+1.38327934209463730353501499069830137, +0.575917703233778736879615196389873391), (+1.72157149404654081673236312902471287, +0.216247499082293434655377286829993460), (+1.30152430888692440747638516815006760, +0.702352151754207177418126513861385911), (+1.88384638178885123016525731789448127, +0.424013208216284267975520890232624339), (+1.39837721094550814492925618246839129, +0.983174273678341467761533750400053154)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.53196027442171111613179823192626155, +0.762954739663575328158497878126514137), (+1.82128600418575257097183652375295255, +0.814407388245682492355934640804668669), (+1.17339672110750407185224035716055607, +0.887033314816715080255977286404169015), (+1.89056676572518129228329226062209177, +0.577296046835711739994403837791338503), (+1.26616050572475693329604682003881242, +0.292018101726763445938116938596124197), (+1.54131286492100153389455147747078591, +0.662908677013852221811155110471520004), (+1.94255466453458901111568262081942992, +0.149694062209243516049221094732287049), (+1.20329401137580321729635009840866392, +0.204477423176950601565772346153969538), (+1.89259476958958741437551873925164059, +0.649893195541207950439751195866372579), (+1.59142192501841858051091039424413469, +0.636292939498688533925909135841478228), (+1.97076627438253654722062678981551675, +0.209760211008141656269719064114888412), (+1.27903533161391600511732907623819828, +0.248724641751301042786648323133502065), (+1.20711355357282231706810972736510764, +0.683719709806560047224511731887371226), (+1.91800831474150948797829357562184003, +0.516569345681834897842655726729616017), (+1.38327934209463730353501499069830137, +0.575917703233778736879615196389873680), (+1.72157149404654081673236312902471326, +0.216247499082293434655377286829993556), (+1.30152430888692440747638516815006760, +0.702352151754207177418126513861385911), (+1.88384638178885123016525731789448147, +0.424013208216284267975520890232624147), (+1.39837721094550814492925618246839110, +0.983174273678341467761533750400053539), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.276852429505665153876796829246583302E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.228704180895984257550397380681960119E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, -0.156481807981462913060798207835025345E-33)
249reltol = sqrt(epsilon(1._TKG))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+91
259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
260data
261+1.46328449, +1.44589305, +1.91848588, +1.20028675, +1.11827147, +1.90007770, +1.46932387, +1.06658840, +1.38653469, +1.92315984, +1.79535031, +1.76222181, +1.12444019, +1.68461895, +1.83141422, +1.60080636, +1.22501516, +1.27654243, +1.13467884, +1.37852049, +1.34213138, +1.52899158, +1.24392223, +1.83484995, +1.44263422, +1.31235099, +1.21457112, +1.67245817, +1.16681552, +1.28967464, +1.05471301, +1.27918231, +1.93746114, +1.22202539, +1.39567041, +1.24396396, +1.27972305, +1.49308634, +1.76116419, +1.93936372, +1.08166552, +1.26283622, +1.30152643, +1.10729837, +1.99960256, +1.23638797, +1.83122063, +1.46339798, +1.91785741, +1.48988438, +1.11729157, +1.18038177, +1.55096757, +1.48748815, +1.32110882, +1.51904750, +1.83538806, +1.94696796, +1.65722680, +1.96955025, +1.24010956, +1.94513404, +1.03473651, +1.82119203, +1.15407372, +1.61694741, +1.48936856, +1.54618895, +1.65894723, +1.92254734, +1.10619974, +1.80570507, +1.46462679, +1.53296363, +1.47594988, +1.83310699, +1.40762830, +1.48744202, +1.42390931, +1.20236063, +1.78909957, +1.66860223, +1.37669969, +1.56606805, +1.24461365, +1.38767529, +1.55691695, +1.96947539, +1.88513899, +1.92250824, +1.72069120
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.46328425, +1.44589305, +1.91848564, +1.20028651, +1.11827135, +1.90007758, +1.46932340, +1.06658816, +1.38653457, +1.92315984, +1.79535019, +1.76222157, +1.12444019, +1.68461871, +1.83141387, +1.60080588, +1.22501504, +1.27654231, +1.13467884, +1.37852061, +1.34213102, +1.52899170, +1.24392247, +1.83484972, +1.44263411, +1.31235123, +1.21457076, +1.67245817, +1.16681540, +1.28967452, +1.05471301, +1.27918243, +1.93746090, +1.22202528, +1.39567041, +1.24396396, +1.27972305, +1.49308634, +1.76116419, +1.93936324, +1.08166552, +1.26283622, +1.30152655, +1.10729837, +1.99960256, +1.23638797, +1.83122051, +1.46339774, +1.91785717, +1.48988426, +1.11729169, +1.18038177, +1.55096734, +1.48748803, +1.32110882, +1.51904750, +1.83538771, +1.94696760, +1.65722656, +1.96954989, +1.24010921, +1.94513381, +1.03473628, +1.82119179, +1.15407348, +1.61694717, +1.48936844, +1.54618871, +1.65894723, +1.92254710, +1.10619974, +1.80570483, +1.46462667, +1.53296351, +1.47594965, +1.83310699, +1.40762806, +1.48744202, +1.42390907, +1.20236051, +1.78909934, +1.66860187, +1.37669945, +1.56606805, +1.24461377, +1.38767505, +1.55691719, +1.96947491, +1.88513851, +1.92250800, +1.72069097, -0.596046448E-7, +0.119209290E-6, -0.596046448E-7, +0.178813934E-6, +0.596046448E-7, -0.357627869E-6, -0.119209290E-6, -0.596046448E-7, +0.596046448E-7, -0.119209290E-6, +0.178813934E-6, +0.178813934E-6, +0.178813934E-6, -0.238418579E-6, +0.596046448E-7, +0.596046448E-7, +0.178813934E-6, -0.298023224E-6, +0.00000000, +0.00000000, +0.596046448E-7, +0.00000000, -0.357627869E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.596046448E-7, +0.178813934E-6, +0.298023224E-6, +0.476837158E-6, -0.238418579E-6, +0.00000000, -0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.596046448E-7
266reltol = sqrt(epsilon(1._TKG))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+47
276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
277data
278+1.9676843830639719, +1.1092079703988893, +1.0648170189840518, +1.9707267738850009, +1.4784954726755906, +1.4919732034108664, +1.4658662303431036, +1.7293018535137787, +1.1958254941955575, +1.3830603557504857, +1.3779245616458855, +1.3570495928248401, +1.6953359022996679, +1.9661405432695485, +1.8377817264737071, +1.8974210006775354, +1.6599603438686246, +1.5906832456897901, +1.2539004235027380, +1.7516405787288791, +1.4166049447106266, +1.5621766044396475, +1.8220457964729346, +1.8193326189866157, +1.2438639983977553, +1.7394609916437878, +1.1603292956067799, +1.1112027908363182, +1.9484753870121705, +1.9128325463086786, +1.5570280661895886, +1.7576599078010433, +1.1997393835172208, +1.9203687814307664, +1.3743895608185965, +1.2793957819767878, +1.5411546826963749, +1.7957930715524624, +1.5078803335314301, +1.3734425772326753, +1.2618020840697657, +1.9414651400599245, +1.5236801562307898, +1.2509890156088219, +1.2281846496835431, +1.0556749570965605, +1.0749053099035197
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.9676843830639714, +1.1092079703988893, +1.0648170189840511, +1.9707267738850009, +1.4784954726755899, +1.4919732034108670, +1.4658662303431031, +1.7293018535137785, +1.1958254941955573, +1.3830603557504855, +1.3779245616458851, +1.3570495928248398, +1.6953359022996675, +1.9661405432695487, +1.8377817264737062, +1.8974210006775349, +1.6599603438686246, +1.5906832456897899, +1.2539004235027378, +1.7516405787288787, +1.4166049447106261, +1.5621766044396481, +1.8220457964729340, +1.8193326189866155, +1.2438639983977553, +1.7394609916437878, +1.1603292956067792, +1.1112027908363178, +1.9484753870121696, +1.9128325463086786, +1.5570280661895881, +1.7576599078010426, +1.1997393835172203, +1.9203687814307666, +1.3743895608185961, +1.2793957819767874, +1.5411546826963747, +1.7957930715524628, +1.5078803335314299, +1.3734425772326750, +1.2618020840697655, +1.9414651400599245, +1.5236801562307893, +1.2509890156088219, +1.2281846496835427, +1.0556749570965605, +1.0749053099035195, -0.33306690738754696E-15, -0.55511151231257827E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.0000000000000000, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, -0.22204460492503131E-15, +0.11102230246251565E-15
283reltol = sqrt(epsilon(1._TKG))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+48
293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
294data
295+1.75015867732573819878454100489372229, +1.16117872347300915648165725836346377, +1.92430534504599690207752284276283546, +1.99065087975358845304635239548810685, +1.20124223081812824071883028706524115, +1.49410953664931522654222648980582846, +1.32071954897740801321987002188222566, +1.73362871825383450305824473995104133, +1.27564113682468046354209698195438955, +1.02792696102895565185872725125864201, +1.11363815628069452112979546929529998, +1.57669825369100041792525207204187811, +1.08507438106173171106269540604381540, +1.80194669908312139233422426315419958, +1.92016289908251790620572536669263220, +1.70634076967308532215446751342332789, +1.41533364720384710234353232063592310, +1.68649830940468630484216677864739436, +1.36163608654885818541732990327485915, +1.32597567578044163614296399132082618, +1.06353045370466605890754370312279062, +1.94865929392008730095445573115443929, +1.79653375807990058199650944333730911, +1.97299410532695507288393572436871606, +1.16476702563061539133565436512239364, +1.32023230001988823724440450575940138, +1.36291599229521092116582755945884661, +1.00481905920236422477181654994065460, +1.24848545048884895555303081432720518, +1.97465234298728117951659500095852063, +1.74242991661905543427669003255393822, +1.26754662913427836353849162516290431, +1.54437171310416504201697516649858178, +1.32108883690434470672994707670635187, +1.97379332118453140243141398606336147, +1.08999816960204762671920450675062106, +1.58357000656865857125240723826643761, +1.33693851086556109832616051553446142, +1.09585193788003501873292369056713583, +1.45553280203830863124927855080028791, +1.07068070777264951841277176215167551, +1.84014497576702792320930348198091629, +1.69863907808242330102574672196176814, +1.45623886749044001730421842440559004, +1.68456026396721816574878634241656346, +1.03286166756511933209360565122779768, +1.28122885964056410399385220925399020, +1.29490802276975139439955635276353920
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.75015867732573819878454100489372191, +1.16117872347300915648165725836346377, +1.92430534504599690207752284276283449, +1.99065087975358845304635239548810647, +1.20124223081812824071883028706524134, +1.49410953664931522654222648980582846, +1.32071954897740801321987002188222566, +1.73362871825383450305824473995104152, +1.27564113682468046354209698195438936, +1.02792696102895565185872725125864182, +1.11363815628069452112979546929529979, +1.57669825369100041792525207204187792, +1.08507438106173171106269540604381521, +1.80194669908312139233422426315419977, +1.92016289908251790620572536669263239, +1.70634076967308532215446751342332789, +1.41533364720384710234353232063592272, +1.68649830940468630484216677864739417, +1.36163608654885818541732990327485876, +1.32597567578044163614296399132082580, +1.06353045370466605890754370312279043, +1.94865929392008730095445573115443929, +1.79653375807990058199650944333730911, +1.97299410532695507288393572436871644, +1.16476702563061539133565436512239326, +1.32023230001988823724440450575940100, +1.36291599229521092116582755945884603, +1.00481905920236422477181654994065441, +1.24848545048884895555303081432720479, +1.97465234298728117951659500095852063, +1.74242991661905543427669003255393802, +1.26754662913427836353849162516290431, +1.54437171310416504201697516649858159, +1.32108883690434470672994707670635168, +1.97379332118453140243141398606336090, +1.08999816960204762671920450675062049, +1.58357000656865857125240723826643722, +1.33693851086556109832616051553446161, +1.09585193788003501873292369056713564, +1.45553280203830863124927855080028771, +1.07068070777264951841277176215167513, +1.84014497576702792320930348198091609, +1.69863907808242330102574672196176795, +1.45623886749044001730421842440558985, +1.68456026396721816574878634241656326, +1.03286166756511933209360565122779768, +1.28122885964056410399385220925399001, +1.29490802276975139439955635276353920, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.770371977754894341222391177033970927E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33
300reltol = sqrt(epsilon(1._TKG))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+100
310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
311data
312(+1.47269249, +0.625377178), (+1.59983134, +0.204232812), (+1.02261758, +0.821273088), (+1.80318379, +0.816991329E-1), (+1.30710697, +0.256710827), (+1.91679680, +0.250832081), (+1.92209125, +0.997322738), (+1.22989011, +0.478807688), (+1.69396687, +0.531234145E-1), (+1.99738586, +0.560885131), (+1.54958320, +0.737699687), (+1.88572323, +0.880858064), (+1.85015357, +0.104976237), (+1.22122872, +0.375745952), (+1.03701329, +0.578756928), (+1.37081814, +0.182161927E-1), (+1.19439173, +0.997386277), (+1.74412370, +0.313008130), (+1.29019177, +0.145226896), (+1.98296046, +0.734910071), (+1.17440534, +0.998613834E-1), (+1.28923905, +0.432293415E-1), (+1.24562120, +0.761983275), (+1.06126285, +0.976960719), (+1.15917349, +0.765833259E-1), (+1.16944122, +0.305240810), (+1.06694853, +0.225948036), (+1.08407807, +0.669359803), (+1.42113817, +0.184404731), (+1.69797969, +0.290886521), (+1.85832739, +0.727513731), (+1.28767288, +0.242937028), (+1.59985471, +0.859768093), (+1.35488629, +0.203257143), (+1.09185445, +0.180405140), (+1.31242824, +0.358950257), (+1.49252570, +0.631013334), (+1.92621303, +0.274077773), (+1.37880158, +0.880498230), (+1.37188530, +0.351758063), (+1.48225534, +0.490883291), (+1.19255352, +0.982366025), (+1.19044733, +0.910405695), (+1.98853588, +0.166273296), (+1.98982072, +0.343579650E-1), (+1.64607835, +0.266255736E-1), (+1.88838089, +0.269418538), (+1.93660498, +0.468988597), (+1.76587367, +0.139155388E-1), (+1.26366949, +0.787696242), (+1.93569565, +0.978571832), (+1.96396196, +0.869213343E-1), (+1.84983110, +0.105218291), (+1.74794137, +0.822321773E-1), (+1.50976241, +0.592768550), (+1.36253273, +0.344653964), (+1.68566632, +0.241546333), (+1.50599658, +0.811685145), (+1.44769812, +0.736970305), (+1.22384214, +0.373140156), (+1.53671491, +0.522742987), (+1.64489198, +0.899400949), (+1.51901841, +0.983971775), (+1.34673977, +0.708872080E-2), (+1.95116258, +0.779688299), (+1.74085248, +0.786559701), (+1.88107288, +0.847247958), (+1.16941166, +0.478685796), (+1.97250581, +0.435495973), (+1.39100504, +0.441319704), (+1.93174171, +0.690443635), (+1.89059615, +0.778887689), (+1.42627978, +0.516424477), (+1.00135338, +0.880155563), (+1.35737491, +0.412037969E-1), (+1.01692879, +0.892721713), (+1.88742256, +0.533061445), (+1.55270314, +0.172348022E-1), (+1.06552768, +0.722306192), (+1.50608635, +0.443229973), (+1.94772983, +0.516210735), (+1.80275202, +0.944744825), (+1.76291823, +0.837405324E-1), (+1.78213096, +0.295051575), (+1.49760234, +0.724648833E-1), (+1.33645082, +0.806614697), (+1.72443497, +0.103010952), (+1.95874476, +0.437402487), (+1.55753064, +0.507629335), (+1.36263549, +0.237142742), (+1.22524047, +0.361639500), (+1.73442459, +0.969818175), (+1.56444204, +0.515421569), (+1.70908296, +0.894505203), (+1.02608907, +0.827389181), (+1.53765464, +0.257728696E-1), (+1.51614618, +0.293455184), (+1.28368914, +0.324497104), (+1.94625807, +0.409427226), (+1.34485221, +0.910994947)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.47269273, +0.625377238), (+1.59983134, +0.204232842), (+1.02261734, +0.821273029), (+1.80318332, +0.816991925E-1), (+1.30710697, +0.256710768), (+1.91679645, +0.250831991), (+1.92209113, +0.997322440), (+1.22988975, +0.478807718), (+1.69396710, +0.531234443E-1), (+1.99738574, +0.560885429), (+1.54958320, +0.737699628), (+1.88572288, +0.880858064), (+1.85015380, +0.104976311), (+1.22122884, +0.375745952), (+1.03701365, +0.578756809), (+1.37081802, +0.182162076E-1), (+1.19439185, +0.997386277), (+1.74412358, +0.313008308), (+1.29019165, +0.145227015), (+1.98296010, +0.734909892), (+1.17440569, +0.998613834E-1), (+1.28923893, +0.432294607E-1), (+1.24562109, +0.761983156), (+1.06126285, +0.976960599), (+1.15917385, +0.765834004E-1), (+1.16944134, +0.305240989), (+1.06694853, +0.225948274), (+1.08407807, +0.669359744), (+1.42113817, +0.184404731), (+1.69797945, +0.290886551), (+1.85832739, +0.727513909), (+1.28767276, +0.242937222), (+1.59985495, +0.859768033), (+1.35488629, +0.203257114), (+1.09185433, +0.180405200), (+1.31242824, +0.358950317), (+1.49252594, +0.631013095), (+1.92621279, +0.274077654), (+1.37880147, +0.880498111), (+1.37188506, +0.351757824), (+1.48225546, +0.490883261), (+1.19255352, +0.982365966), (+1.19044721, +0.910405576), (+1.98853564, +0.166273266), (+1.98982072, +0.343578011E-1), (+1.64607859, +0.266255736E-1), (+1.88838077, +0.269418508), (+1.93660474, +0.468988538), (+1.76587391, +0.139154494E-1), (+1.26366925, +0.787696123), (+1.93569541, +0.978571475), (+1.96396184, +0.869212449E-1), (+1.84983146, +0.105218187), (+1.74794126, +0.822322220E-1), (+1.50976253, +0.592768252), (+1.36253273, +0.344653964), (+1.68566632, +0.241546392), (+1.50599647, +0.811685205), (+1.44769800, +0.736970186), (+1.22384214, +0.373140156), (+1.53671503, +0.522742808), (+1.64489174, +0.899400949), (+1.51901829, +0.983971596), (+1.34673941, +0.708853640E-2), (+1.95116282, +0.779688179), (+1.74085236, +0.786559820), (+1.88107276, +0.847247899), (+1.16941142, +0.478685796), (+1.97250605, +0.435495853), (+1.39100480, +0.441319793), (+1.93174183, +0.690443635), (+1.89059603, +0.778887630), (+1.42627978, +0.516424537), (+1.00135303, +0.880155563), (+1.35737491, +0.412038267E-1), (+1.01692867, +0.892721772), (+1.88742268, +0.533061504), (+1.55270314, +0.172348768E-1), (+1.06552756, +0.722306371), (+1.50608623, +0.443230152), (+1.94772995, +0.516210735), (+1.80275166, +0.944744825), (+1.76291800, +0.837405398E-1), (+1.78213060, +0.295051455), (+1.49760258, +0.724647939E-1), (+1.33645082, +0.806614637), (+1.72443473, +0.103010923), (+1.95874453, +0.437402427), (+1.55753052, +0.507629335), (+1.36263525, +0.237142816), (+1.22524035, +0.361639440), (+1.73442411, +0.969818175), (+1.56444204, +0.515421510), (+1.70908237, +0.894505382), (+1.02608919, +0.827389121), (+1.53765440, +0.257730335E-1), (+1.51614642, +0.293455124), (+1.28368902, +0.324497074), (+1.94625807, +0.409427047), (+1.34485221, +0.910994828), (+0.476837158E-6, +0.298023224E-6), (-0.596046448E-7, +0.387430191E-6), (+0.119209290E-6, +0.298023224E-6), (+0.178813934E-6, +0.283122063E-6), (+0.596046448E-7, +0.298023224E-7), (-0.178813934E-6, -0.119209290E-6), (+0.119209290E-6, +0.178813934E-6), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, +0.149011612E-7), (-0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.894069672E-7), (+0.00000000, +0.178813934E-6), (+0.298023224E-6, +0.298023224E-7), (+0.00000000, +0.00000000), (+0.119209290E-6, +0.298023224E-6), (+0.596046448E-7, +0.149011612E-6), (+0.476837158E-6, +0.134110451E-6), (+0.178813934E-6, +0.447034836E-7), (+0.596046448E-7, +0.357627869E-6), (+0.119209290E-6, +0.223517418E-6), (+0.238418579E-6, -0.178813934E-6), (+0.596046448E-7, -0.238418579E-6), (-0.119209290E-6, +0.00000000), (+0.238418579E-6, -0.178813934E-6), (+0.178813934E-6, -0.178813934E-6), (-0.178813934E-6, -0.238418579E-6), (+0.00000000, +0.298023224E-7), (+0.119209290E-6, +0.353902578E-7)
317reltol = sqrt(epsilon(1._TKG))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+47
327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
328data
329(+1.1204370967284691, +0.89535784004091923), (+1.6142552483053954, +0.31313287759935848), (+1.9512617908063561, +0.16542303759284482), (+1.2269689551424783, +0.18874327104525446), (+1.7175414124514796, +0.93405731160643213), (+1.1590670595207713, +0.50257210980932709), (+1.5026566578610283, +0.96260967876700088), (+1.9659832537630679, +0.94155597150416859), (+1.8940172248824663, +0.20660118739586297), (+1.0642653171565866, +0.60943700428348291), (+1.5792395059355007, +0.75393319822232574), (+1.6146361902415700, +0.79816512646139759E-1), (+1.4885943521627969, +0.84721231287511178), (+1.8862677026875287, +0.75906617593184578), (+1.9277219409622699, +0.21630503420858205), (+1.4043956255907251, +0.79068744726999352), (+1.9335367447568421, +0.96757796418420206), (+1.9413982047296809, +0.65751934800502676E-1), (+1.4537534536415677, +0.58685777779004988), (+1.1657862068037002, +0.90655018802172049), (+1.8408806365632944, +0.46906441772712482), (+1.3978453881532749, +0.31730329195187001), (+1.3856733307099298, +0.74270890545224666), (+1.2101930044268352, +0.87544363195455888), (+1.9803215974384769, +0.41785878101009355), (+1.0811699114350612, +0.88833494704892280), (+1.0194996657355158, +0.37996996284639839), (+1.6411335745320503, +0.48168896483612933), (+1.7710265670771299, +0.14890504793641435), (+1.7145294456934645, +0.43072699366799905), (+1.6499197521209683, +0.63023596901933876), (+1.7984752407069866, +0.28837596190669768), (+1.6440355039058598, +0.97827588571521962), (+1.5938844261137870, +0.22963902851823836), (+1.1782012681799205, +0.56786180457945001), (+1.0662635561612110, +0.64865644021040669E-1), (+1.7259230994672097, +0.96748437179379698), (+1.9942144956160410, +0.93023788532218943), (+1.2372459894367798, +0.26005325435745907), (+1.8217467809961883, +0.90029710303124200), (+1.5359683751069251, +0.67943954067968515), (+1.8411536507272956, +0.89332949664758265), (+1.2184288495062447, +0.65032126119083866), (+1.9852202870043487, +0.17397853976389843), (+1.5893671471599604, +0.56284234659425425), (+1.5102162164875428, +0.74409624659121176), (+1.1778521127855597, +0.97073368638396917)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.1204370967284694, +0.89535784004091923), (+1.6142552483053954, +0.31313287759935871), (+1.9512617908063559, +0.16542303759284505), (+1.2269689551424778, +0.18874327104525512), (+1.7175414124514801, +0.93405731160643213), (+1.1590670595207713, +0.50257210980932709), (+1.5026566578610285, +0.96260967876700088), (+1.9659832537630677, +0.94155597150416903), (+1.8940172248824667, +0.20660118739586320), (+1.0642653171565863, +0.60943700428348313), (+1.5792395059355004, +0.75393319822232563), (+1.6146361902415698, +0.79816512646140120E-1), (+1.4885943521627971, +0.84721231287511201), (+1.8862677026875283, +0.75906617593184611), (+1.9277219409622699, +0.21630503420858221), (+1.4043956255907246, +0.79068744726999352), (+1.9335367447568426, +0.96757796418420183), (+1.9413982047296812, +0.65751934800502621E-1), (+1.4537534536415679, +0.58685777779004955), (+1.1657862068037002, +0.90655018802172038), (+1.8408806365632953, +0.46906441772712471), (+1.3978453881532749, +0.31730329195187001), (+1.3856733307099307, +0.74270890545224622), (+1.2101930044268352, +0.87544363195455888), (+1.9803215974384771, +0.41785878101009344), (+1.0811699114350610, +0.88833494704892280), (+1.0194996657355162, +0.37996996284639822), (+1.6411335745320501, +0.48168896483612905), (+1.7710265670771301, +0.14890504793641438), (+1.7145294456934645, +0.43072699366799894), (+1.6499197521209683, +0.63023596901933843), (+1.7984752407069862, +0.28837596190669745), (+1.6440355039058601, +0.97827588571521962), (+1.5938844261137866, +0.22963902851823839), (+1.1782012681799208, +0.56786180457944979), (+1.0662635561612110, +0.64865644021040558E-1), (+1.7259230994672101, +0.96748437179379709), (+1.9942144956160406, +0.93023788532218987), (+1.2372459894367804, +0.26005325435745891), (+1.8217467809961880, +0.90029710303124189), (+1.5359683751069251, +0.67943954067968482), (+1.8411536507272952, +0.89332949664758243), (+1.2184288495062447, +0.65032126119083822), (+1.9852202870043485, +0.17397853976389790), (+1.5893671471599604, +0.56284234659425414), (+1.5102162164875419, +0.74409624659121165), (+1.1778521127855601, +0.97073368638396862), (+0.44408920985006262E-15, -0.77715611723760958E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (-0.44408920985006262E-15, -0.11102230246251565E-15), (+0.66613381477509392E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.0000000000000000), (-0.66613381477509392E-15, -0.22204460492503131E-15), (+0.55511151231257827E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.83266726846886741E-16), (+0.0000000000000000, -0.22204460492503131E-15), (+0.88817841970012523E-15, +0.49960036108132044E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.66613381477509392E-15, +0.83266726846886741E-16), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.55511151231257827E-15, +0.66613381477509392E-15), (+0.33306690738754696E-15, +0.91593399531575415E-15)
334reltol = sqrt(epsilon(1._TKG))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+61
344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
345data
346(+1.98008125645550551846658620875875166, +0.890404986712206913273977442735347318), (+1.77878937932043815534651487282126995, +0.873969418594958361534932531060947223E-1), (+1.17470480809563575873212953229439175, +0.605886165435674242136570300246629112), (+1.42816224313473041498394304906054725, +0.642988286281433906982698657029171201), (+1.34880332033489702268739785175218764, +0.490479858940589837987319097419173494), (+1.92654317207117313832925132567173772, +0.684285934430803399846163987977097003), (+1.64082708928373278253695236208844976, +0.234697625968373234349445297100747927E-1), (+1.11007921679150477271661371614194674, +0.666855767867387449552921774380286059), (+1.82038846598535896157128406018558858, +0.607524637568852371442880840917112619), (+1.59017070343073338674825727425353055, +0.964889121211618656356176673873830336), (+1.47447404050129090545635795375224400, +0.344895921062561739219553471285409728), (+1.86709896791522115272118591988499471, +0.837532039594137941330252246448919860), (+1.28086998165308537308337061281786218, +0.947345241850077517532710016647736534), (+1.34966896742738588160584100977625068, +0.532381842182135090277369694899448944), (+1.27268239500994676152693016059258515, +0.687398143579229734133717246376706105), (+1.69007699538491520357472029395091389, +0.762620788732215663836915825733816060), (+1.59584861447276506203688516784309500, +0.772547259927165956812960874096544922), (+1.01974268847816487753632931121682337, +0.714330982167248179218231941478293478E-3), (+1.24204683645453237956233637639024753, +0.116630634665779957610991291480417053), (+1.69861634897380427713210267126801326, +0.367578484454656080678496603102168558), (+1.25914067910090035211735799699199078, +0.738106890738108910558605818175807475), (+1.60035164487525234473417366124398382, +0.195145717331595345479953544645704486), (+1.52819752898807469876280244113584462, +0.442970863555527409042519668699169484), (+1.75787964353725452753962823288144046, +0.759079190894138015478720334308997627), (+1.33590984616631105486944408891770499, +0.480959996947207582149678825421516362), (+1.89455751648610486999370777373962249, +0.627256842490371760911849500499847433E-1), (+1.92637219598834775748594635506964426, +0.636866807727719351677914579838343931), (+1.36111929200690634205463486272320973, +0.178612005856940590331276802631694161), (+1.68893232306396227305057781370228888, +0.954377179323163591558936174115249278), (+1.81880063749561970459040205022441993, +0.214804114843266797566120959232452148), (+1.01187064127740244989088801406606401, +0.872833221438852801266264435849311042), (+1.34112239012467931117954595073692947, +0.521745014209750393989644482752254084), (+1.85476447249366554908935408490214330, +0.499665365290278247027041645321500277), (+1.37006575395240732349355631615907799, +0.714099947462994740450006476815528171), (+1.55954915181130303860698890010075329, +0.401620393681060504819893286651194197), (+1.48234975852954992047230300881904191, +0.383444278475761718091492332126202675), (+1.15169226922293369317631316400205286, +0.811686678522541254315955609003608790), (+1.72762015724713792546916302639133177, +0.257502368813505259046780166732487728), (+1.77281193661410206979293159142914076, +0.841906273308024562325807541346983453), (+1.02405351331584999193963747224538494, +0.537643572034452256422546896766292671), (+1.96180525641106553690443776832420501, +0.350001171155249838770675820392859061), (+1.71663212394388179536253052781433442, +0.616704376103058638305458950386987456), (+1.49651180119616241588295546809922538, +0.439977316779579477995352235075136628), (+1.41018747326240946210384548196740255, +0.251782007983330994721340157526058119), (+1.87792446321000145232106779775034720, +0.877922643624830151886312172681519479), (+1.53186906522997997472490696144497212, +0.739546867847078261109712728840348834), (+1.32993375980329984487983870191131847, +0.658098009650339622081492363313172980E-1), (+1.73958202707062433920834946627357861, +0.481943044507547546092845400981587522), (+1.73532034202847894071991582336780026, +0.202780934419531681947526666078957136), (+1.93654206394901357781219264782336092, +0.363048084580276504151288285232703409), (+1.15391658661219532325615343712600352, +0.369124364120672302692443439544189038), (+1.85174365033958409987438136132837769, +0.694082500143800575582489053894275280), (+1.90188817211267216895666081107096017, +0.154053395020888543036938315984531595), (+1.14265276677872575186422800850362240, +0.298828624180793616731819200079971312), (+1.60681089197334540524947857257261323, +0.115041396641324599330822605644139863), (+1.53027734634103079444933166023620948, +0.121656488288556471691645101080346877), (+1.33700822106250268105321298686325019, +0.571699537741481157752117332088908713), (+1.57145781415678395207496583355262883, +0.399677337055181120210580264092992920), (+1.57415737525853797544593256624790155, +0.734293693664632562820261937317475711), (+1.25482274481615960983052526387914795, +0.653663625450951627136751309843884952), (+1.13414411380060535961184547730659773, +0.918653986575530793320864931648538869)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.98008125645550551846658620875875146, +0.890404986712206913273977442735347318), (+1.77878937932043815534651487282126976, +0.873969418594958361534932531060948186E-1), (+1.17470480809563575873212953229439175, +0.605886165435674242136570300246629112), (+1.42816224313473041498394304906054725, +0.642988286281433906982698657029171297), (+1.34880332033489702268739785175218803, +0.490479858940589837987319097419173494), (+1.92654317207117313832925132567173791, +0.684285934430803399846163987977096907), (+1.64082708928373278253695236208845033, +0.234697625968373234349445297100745038E-1), (+1.11007921679150477271661371614194693, +0.666855767867387449552921774380285866), (+1.82038846598535896157128406018558839, +0.607524637568852371442880840917112619), (+1.59017070343073338674825727425353035, +0.964889121211618656356176673873830143), (+1.47447404050129090545635795375224439, +0.344895921062561739219553471285409680), (+1.86709896791522115272118591988499471, +0.837532039594137941330252246448919764), (+1.28086998165308537308337061281786218, +0.947345241850077517532710016647736919), (+1.34966896742738588160584100977625049, +0.532381842182135090277369694899449136), (+1.27268239500994676152693016059258554, +0.687398143579229734133717246376706298), (+1.69007699538491520357472029395091369, +0.762620788732215663836915825733816060), (+1.59584861447276506203688516784309500, +0.772547259927165956812960874096544922), (+1.01974268847816487753632931121682318, +0.714330982167248179218231941478245330E-3), (+1.24204683645453237956233637639024733, +0.116630634665779957610991291480417053), (+1.69861634897380427713210267126801326, +0.367578484454656080678496603102168607), (+1.25914067910090035211735799699199097, +0.738106890738108910558605818175807475), (+1.60035164487525234473417366124398402, +0.195145717331595345479953544645704293), (+1.52819752898807469876280244113584481, +0.442970863555527409042519668699169292), (+1.75787964353725452753962823288144046, +0.759079190894138015478720334308997627), (+1.33590984616631105486944408891770479, +0.480959996947207582149678825421516410), (+1.89455751648610486999370777373962249, +0.627256842490371760911849500499848155E-1), (+1.92637219598834775748594635506964426, +0.636866807727719351677914579838343738), (+1.36111929200690634205463486272320973, +0.178612005856940590331276802631694113), (+1.68893232306396227305057781370228907, +0.954377179323163591558936174115249567), (+1.81880063749561970459040205022441993, +0.214804114843266797566120959232452052), (+1.01187064127740244989088801406606459, +0.872833221438852801266264435849310946), (+1.34112239012467931117954595073692927, +0.521745014209750393989644482752254181), (+1.85476447249366554908935408490214311, +0.499665365290278247027041645321500277), (+1.37006575395240732349355631615907799, +0.714099947462994740450006476815528075), (+1.55954915181130303860698890010075310, +0.401620393681060504819893286651194197), (+1.48234975852954992047230300881904191, +0.383444278475761718091492332126202723), (+1.15169226922293369317631316400205305, +0.811686678522541254315955609003608790), (+1.72762015724713792546916302639133216, +0.257502368813505259046780166732487920), (+1.77281193661410206979293159142914114, +0.841906273308024562325807541346983453), (+1.02405351331584999193963747224538494, +0.537643572034452256422546896766292671), (+1.96180525641106553690443776832420482, +0.350001171155249838770675820392859157), (+1.71663212394388179536253052781433423, +0.616704376103058638305458950386987552), (+1.49651180119616241588295546809922576, +0.439977316779579477995352235075136580), (+1.41018747326240946210384548196740255, +0.251782007983330994721340157526058215), (+1.87792446321000145232106779775034720, +0.877922643624830151886312172681519671), (+1.53186906522997997472490696144497193, +0.739546867847078261109712728840349027), (+1.32993375980329984487983870191131866, +0.658098009650339622081492363313172017E-1), (+1.73958202707062433920834946627357803, +0.481943044507547546092845400981587522), (+1.73532034202847894071991582336780026, +0.202780934419531681947526666078957136), (+1.93654206394901357781219264782336073, +0.363048084580276504151288285232703361), (+1.15391658661219532325615343712600352, +0.369124364120672302692443439544189038), (+1.85174365033958409987438136132837750, +0.694082500143800575582489053894275376), (+1.90188817211267216895666081107096037, +0.154053395020888543036938315984531547), (+1.14265276677872575186422800850362221, +0.298828624180793616731819200079971457), (+1.60681089197334540524947857257261362, +0.115041396641324599330822605644139863), (+1.53027734634103079444933166023620948, +0.121656488288556471691645101080347070), (+1.33700822106250268105321298686325000, +0.571699537741481157752117332088908713), (+1.57145781415678395207496583355262902, +0.399677337055181120210580264092992824), (+1.57415737525853797544593256624790194, +0.734293693664632562820261937317475518), (+1.25482274481615960983052526387914795, +0.653663625450951627136751309843884952), (+1.13414411380060535961184547730659793, +0.918653986575530793320864931648539158), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34)
351reltol = sqrt(epsilon(1._TKG))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+86
361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
362data
363+1.84476960, +1.62863851, +1.23563778, +1.85532033, +1.46081495, +1.23240352, +1.41957688, +1.13734591, +1.93091869, +1.85724235, +1.22607052, +1.27080679, +1.23438573, +1.71632743, +1.87218571, +1.79908502, +1.59172523, +1.30811715, +1.51869023, +1.80851388, +1.55068028, +1.29536486, +1.60645628, +1.38597798, +1.12848949, +1.25236917, +1.74242997, +1.88081217, +1.65834808, +1.52304673, +1.70353091, +1.18243694, +1.05335975, +1.61984456, +1.34016800, +1.06251562, +1.95651603, +1.75560474, +1.16122913, +1.99808216, +1.60768557, +1.66233170, +1.07912731, +1.23380077, +1.20942593, +1.08034015, +1.38633704, +1.02750969, +1.60251665, +1.99279559, +1.11563540, +1.50088716, +1.11258781, +1.72490573, +1.55287957, +1.84701610, +1.29627872, +1.19419181, +1.77600634, +1.07527614, +1.83820474, +1.29548955, +1.84834647, +1.34352481, +1.62446499, +1.75676894, +1.60330641, +1.87094784, +1.42488337, +1.26892090, +1.53687060, +1.33166313, +1.52467442, +1.07899451, +1.06439829, +1.22695398, +1.06684220, +1.00079131, +1.41249299, +1.46818614, +1.68953419, +1.11045468, +1.13217318, +1.80072093, +1.54647231, +1.96320844
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.84476936, +1.62863851, +1.23563766, +1.85532033, +1.46081460, +1.23240340, +1.41957641, +1.13734555, +1.93091846, +1.85724247, +1.22607052, +1.27080691, +1.23438549, +1.71632755, +1.87218547, +1.79908478, +1.59172499, +1.30811739, +1.51869023, +1.80851388, +1.55067992, +1.29536486, +1.60645604, +1.38597798, +1.12848914, +1.25236917, +1.74242973, +1.88081241, +1.65834761, +1.52304697, +1.70353079, +1.18243718, +1.05335951, +1.61984468, +1.34016824, +1.06251574, +1.95651603, +1.75560462, +1.16122949, +1.99808192, +1.60768533, +1.66233182, +1.07912719, +1.23380089, +1.20942581, +1.08034015, +1.38633704, +1.02750969, +1.60251641, +1.99279523, +1.11563540, +1.50088716, +1.11258769, +1.72490549, +1.55287957, +1.84701586, +1.29627812, +1.19419146, +1.77600598, +1.07527590, +1.83820438, +1.29548955, +1.84834611, +1.34352493, +1.62446487, +1.75676894, +1.60330653, +1.87094796, +1.42488348, +1.26892078, +1.53687096, +1.33166313, +1.52467418, +1.07899439, +1.06439817, +1.22695410, +1.06684232, +1.00079143, +1.41249299, +1.46818626, +1.68953407, +1.11045456, +1.13217318, +1.80072069, +1.54647255, +1.96320796, +0.596046448E-6, +0.238418579E-6, +0.119209290E-6, -0.178813934E-6, +0.298023224E-6, -0.298023224E-6, +0.417232513E-6, +0.596046448E-7, -0.596046448E-7, -0.596046448E-7, -0.178813934E-6, -0.596046448E-7, +0.00000000, +0.00000000, +0.596046448E-7, +0.476837158E-6, -0.119209290E-6, +0.417232513E-6, +0.596046448E-7, -0.178813934E-6, -0.119209290E-6, -0.178813934E-6, -0.119209290E-6, +0.238418579E-6, -0.178813934E-6, +0.596046448E-7, +0.178813934E-6, +0.596046448E-7, -0.238418579E-6, -0.596046448E-7, +0.00000000, +0.238418579E-6, -0.596046448E-7, +0.476837158E-6, +0.119209290E-6, -0.178813934E-6, +0.178813934E-6, +0.596046448E-7, +0.00000000, +0.417232513E-6, -0.357627869E-6, -0.119209290E-6
368reltol = sqrt(epsilon(1._TKG))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+40
378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
379data
380+1.2502146743971414, +1.4160553904865556, +1.4140013389272528, +1.8546553145376330, +1.7771053695128884, +1.8979853610093709, +1.5546849877775044, +1.7997558671255502, +1.2846266328761689, +1.8803224080242300, +1.6526036936742234, +1.0557848897137401, +1.5558754194616871, +1.5053092336809701, +1.5568971582911506, +1.7784773551977366, +1.2061367633072819, +1.6291402691021415, +1.0161077478175911, +1.9445035623606786, +1.1842699347991319, +1.5916067745288667, +1.3463082033607794, +1.7488799990976347, +1.8677862637017233, +1.7857048036139003, +1.1558984899231106, +1.4631262679765020, +1.9290524446083310, +1.2467312907522885, +1.1334192817447013, +1.3154515734173975, +1.4286214325941460, +1.9371595817517289, +1.2450302822820412, +1.0618973114814130, +1.1765317130249908, +1.2989150030484544, +1.2963978795323801, +1.9837274249160273
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.2502146743971414, +1.4160553904865558, +1.4140013389272523, +1.8546553145376330, +1.7771053695128884, +1.8979853610093715, +1.5546849877775035, +1.7997558671255502, +1.2846266328761686, +1.8803224080242300, +1.6526036936742228, +1.0557848897137398, +1.5558754194616866, +1.5053092336809701, +1.5568971582911497, +1.7784773551977362, +1.2061367633072819, +1.6291402691021415, +1.0161077478175908, +1.9445035623606779, +1.1842699347991315, +1.5916067745288660, +1.3463082033607789, +1.7488799990976343, +1.8677862637017231, +1.7857048036138998, +1.1558984899231102, +1.4631262679765018, +1.9290524446083306, +1.2467312907522881, +1.1334192817447009, +1.3154515734173970, +1.4286214325941464, +1.9371595817517291, +1.2450302822820412, +1.0618973114814128, +1.1765317130249908, +1.2989150030484544, +1.2963978795323798, +1.9837274249160268, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.11102230246251565E-14, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, +0.88817841970012523E-15, +0.22204460492503131E-15, +0.77715611723760958E-15, +0.33306690738754696E-15, +0.88817841970012523E-15, +0.66613381477509392E-15, +0.99920072216264089E-15, +0.33306690738754696E-15, +0.12212453270876722E-14
385reltol = sqrt(epsilon(1._TKG))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+47
395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
396data
397+1.27814936207987316283459263019931072, +1.79395769494202462849094531858937632, +1.93623343028119609837819539759400750, +1.89730915487785234407407913813920482, +1.13874783394050452428622304161923321, +1.31406651968727284391866388841762300, +1.36966207279689058133845407836485072, +1.28331155088910082230113656462162823, +1.38031717965679344839773036520256635, +1.86991189546758637357607850593196296, +1.09276407256832557910712667014717088, +1.09604486574768150073811780953359297, +1.98597786799302925250061562772922686, +1.78070668420102434430116919398959416, +1.11690061543189321040222092430701673, +1.95061334066621422200279484609747395, +1.04079095252495856740958635482744120, +1.65966120777525521024298592645759365, +1.13668785427881558587074711606949957, +1.39875704403850906864301015256085508, +1.53598641835567195050855963661996904, +1.76089043720366793350882595178699374, +1.03283444187213293057149604650600930, +1.18323512099066841213649414594081606, +1.71611408751084500621692040875208455, +1.59278543346963970724850328566296763, +1.73660415787146035653469495164568458, +1.69958408491461996750416366045542908, +1.99842288785786465757268367874043896, +1.62115678884871814504590948498316485, +1.73960584256097779243815771395068911, +1.37613395066140547265552987387641267, +1.08569388444429118584052407870382625, +1.68652951728148005793609973532343315, +1.27391321162072511846652093112869811, +1.86418626498707518792085816127817371, +1.33972176445297901100239464125756789, +1.99328073593398507147382592586470537, +1.93193636083336957064032433486387220, +1.76182408862523850120331079597888681, +1.08500652097118947753103220513375694, +1.25800464146595908218354571510166242, +1.01508414590994769625972613847182572, +1.96118678205677823501081093363868991, +1.61577725410766085979451196868884653, +1.39299236023242156921361526887480805, +1.75416383818976540964137895149363087
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.27814936207987316283459263019931072, +1.79395769494202462849094531858937632, +1.93623343028119609837819539759400692, +1.89730915487785234407407913813920482, +1.13874783394050452428622304161923360, +1.31406651968727284391866388841762339, +1.36966207279689058133845407836485034, +1.28331155088910082230113656462162804, +1.38031717965679344839773036520256635, +1.86991189546758637357607850593196315, +1.09276407256832557910712667014717050, +1.09604486574768150073811780953359297, +1.98597786799302925250061562772922743, +1.78070668420102434430116919398959454, +1.11690061543189321040222092430701692, +1.95061334066621422200279484609747376, +1.04079095252495856740958635482744101, +1.65966120777525521024298592645759365, +1.13668785427881558587074711606949919, +1.39875704403850906864301015256085508, +1.53598641835567195050855963661996885, +1.76089043720366793350882595178699413, +1.03283444187213293057149604650600891, +1.18323512099066841213649414594081587, +1.71611408751084500621692040875208455, +1.59278543346963970724850328566296763, +1.73660415787146035653469495164568420, +1.69958408491461996750416366045542869, +1.99842288785786465757268367874043896, +1.62115678884871814504590948498316524, +1.73960584256097779243815771395068853, +1.37613395066140547265552987387641229, +1.08569388444429118584052407870382625, +1.68652951728148005793609973532343315, +1.27391321162072511846652093112869792, +1.86418626498707518792085816127817332, +1.33972176445297901100239464125756770, +1.99328073593398507147382592586470595, +1.93193636083336957064032433486387201, +1.76182408862523850120331079597888700, +1.08500652097118947753103220513375713, +1.25800464146595908218354571510166261, +1.01508414590994769625972613847182591, +1.96118678205677823501081093363868972, +1.61577725410766085979451196868884672, +1.39299236023242156921361526887480844, +1.75416383818976540964137895149363125, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34
402reltol = sqrt(epsilon(1._TKG))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+15
412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
413data
414(+1.18595934, +0.715168595), (+1.35672140, +0.822773278), (+1.78656411, +0.492233217), (+1.76587749, +0.827076316), (+1.58958101, +0.302702785E-1), (+1.20921516, +0.173873782), (+1.46895218, +0.905863225), (+1.56419992, +0.437343955), (+1.45502138, +0.850816131), (+1.39227593, +0.188347757), (+1.25633216, +0.521718800), (+1.63131666, +0.308305621E-1), (+1.75183952, +0.323011518), (+1.49215150, +0.406336069), (+1.00387931, +0.280007899)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.18595922, +0.715168595), (+1.35672152, +0.822773278), (+1.78656399, +0.492233247), (+1.76587725, +0.827076375), (+1.58958089, +0.302702636E-1), (+1.20921516, +0.173873812), (+1.46895230, +0.905863166), (+1.56420016, +0.437343866), (+1.45502126, +0.850816131), (+1.39227593, +0.188347757), (+1.25633228, +0.521718740), (+1.63131666, +0.308305025E-1), (+1.75183952, +0.323011458), (+1.49215150, +0.406336159), (+1.00387943, +0.280007958), (+0.238418579E-6, +0.149011612E-6)
419reltol = sqrt(epsilon(1._TKG))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+83
429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
430data
431(+1.6582331553384453, +0.10808286086723018), (+1.4351966275978647, +0.40441408611578056), (+1.2248063692836459, +0.27332047810141791), (+1.7443359361866375, +0.99985695659495122), (+1.6154571138113836, +0.18590316130879014), (+1.2380899260887126, +0.83747327211658718), (+1.5496626428680300, +0.72498974319695619), (+1.0419914886913175, +0.62883797941654385), (+1.9875851914475833, +0.64246267146655711), (+1.8369883314726221, +0.21900537663224851), (+1.8052604322324752, +0.90962845402262238), (+1.3500901504223741, +0.17235385710975226), (+1.9997072985487732, +0.15226863653725931), (+1.6673176420295479, +0.12478969753611924), (+1.9824967881710189, +0.34366509427666736), (+1.6201847500116595, +0.88831514375198650E-1), (+1.3134225531604178, +0.61357295503577025), (+1.7022823536733100, +0.78419282459759032), (+1.0515790205423539, +0.91170808518351598), (+1.0831785510605214, +0.44548608289325831E-1), (+1.9555395979225627, +0.20321017856085877), (+1.8241227489560212, +0.58262644213663395), (+1.0073791908802083, +0.99985317860878031), (+1.5762581203882731, +0.34272490777847708), (+1.3652057705453493, +0.66838504290830913), (+1.5646663263563625, +0.99391005808294075), (+1.7007869820169170, +0.19605508815297967), (+1.9900256007751329, +0.27401904071057248E-1), (+1.7317036379299311, +0.39129532350581642), (+1.3998594595153331, +0.64534215223396307E-2), (+1.7007232454590582, +0.68748924216275298), (+1.9174634312647414, +0.23704016151901430E-1), (+1.1815929526518738, +0.88056839155559430), (+1.0357680462806038, +0.90643700076248535), (+1.2467175723052226, +0.66587267660569704), (+1.9146192191853300, +0.21974960313575032), (+1.9388026388116086, +0.93870726779928138E-1), (+1.5160380723557969, +0.34825646674021660), (+1.3941288277633745, +0.95629535905843543), (+1.9172429988781163, +0.18519662872659914), (+1.5511783181386072, +0.23599967928100118), (+1.6079491114089177, +0.25388554975189681), (+1.0359979200198748, +0.53565446110579518), (+1.9001619845068780, +0.89667120993079941E-2), (+1.2349122947243898, +0.63319581922962487), (+1.7979349130809743, +0.34772891948458928), (+1.7030346247483266, +0.45058547025845308), (+1.3958239432206583, +0.62075366099876017), (+1.9107874640750571, +0.46842163201239995), (+1.6082900996643714, +0.44687631980976394), (+1.1898959958672832, +0.87168960597810252), (+1.0236543600506944, +0.54310065311649380), (+1.8864611236831548, +0.63886863777072989), (+1.0423932917807956, +0.13017396186729457), (+1.2317506207700579, +0.72773914623236369), (+1.6483963968211128, +0.58958060633156073), (+1.2159157775835632, +0.59452122668476770E-1), (+1.0456049681351685, +0.29277207029812824), (+1.6295558705981099, +0.28296316560216117), (+1.0643487888709537, +0.23314579856195827), (+1.1649712051920234, +0.83542931110179075), (+1.1882623733801032, +0.32826504876231788), (+1.9485664128550972, +0.30448710081594232), (+1.7562234772941685, +0.59416527632637495), (+1.0199999302270397, +0.38157083561998306), (+1.0545691102400165, +0.85498754503809404), (+1.4397913739509756, +0.55621972980375678), (+1.4345527404890008, +0.86723772430212009), (+1.7846790043337006, +0.75104210272697003), (+1.4841364904872354, +0.94685055573303401), (+1.1075139624367947, +0.48368439032505495), (+1.0749197100725665, +0.71008513477833080), (+1.2872507351013187, +0.14184306046270601), (+1.5130027080281014, +0.89889173531825650), (+1.4625505546503506, +0.76238744904417566), (+1.9188136102071485, +0.76641817226202269), (+1.4575096997750401, +0.92987213773247801), (+1.8494682758699046, +0.73544684419683259), (+1.1177386996263330, +0.79476311915968068), (+1.3752170107681743, +0.28752267284142552), (+1.3722197225991428, +0.52983600671645148), (+1.5303013252821702, +0.81670511091976095), (+1.1572520759140215, +0.78242700284761768E-1)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.6582331553384453, +0.10808286086723001), (+1.4351966275978647, +0.40441408611578095), (+1.2248063692836455, +0.27332047810141813), (+1.7443359361866375, +0.99985695659495200), (+1.6154571138113833, +0.18590316130879020), (+1.2380899260887128, +0.83747327211658740), (+1.5496626428680293, +0.72498974319695608), (+1.0419914886913177, +0.62883797941654429), (+1.9875851914475833, +0.64246267146655733), (+1.8369883314726223, +0.21900537663224912), (+1.8052604322324757, +0.90962845402262260), (+1.3500901504223743, +0.17235385710975282), (+1.9997072985487732, +0.15226863653725953), (+1.6673176420295481, +0.12478969753611968), (+1.9824967881710187, +0.34366509427666742), (+1.6201847500116597, +0.88831514375199261E-1), (+1.3134225531604176, +0.61357295503577025), (+1.7022823536733096, +0.78419282459759043), (+1.0515790205423534, +0.91170808518351598), (+1.0831785510605212, +0.44548608289326316E-1), (+1.9555395979225625, +0.20321017856085871), (+1.8241227489560210, +0.58262644213663384), (+1.0073791908802083, +0.99985317860878009), (+1.5762581203882724, +0.34272490777847719), (+1.3652057705453493, +0.66838504290830902), (+1.5646663263563623, +0.99391005808294075), (+1.7007869820169166, +0.19605508815297995), (+1.9900256007751327, +0.27401904071057664E-1), (+1.7317036379299311, +0.39129532350581642), (+1.3998594595153326, +0.64534215223399083E-2), (+1.7007232454590582, +0.68748924216275253), (+1.9174634312647409, +0.23704016151901715E-1), (+1.1815929526518740, +0.88056839155559397), (+1.0357680462806036, +0.90643700076248501), (+1.2467175723052226, +0.66587267660569693), (+1.9146192191853295, +0.21974960313575007), (+1.9388026388116084, +0.93870726779927582E-1), (+1.5160380723557965, +0.34825646674021615), (+1.3941288277633750, +0.95629535905843532), (+1.9172429988781161, +0.18519662872659876), (+1.5511783181386072, +0.23599967928100088), (+1.6079491114089175, +0.25388554975189659), (+1.0359979200198750, +0.53565446110579484), (+1.9001619845068776, +0.89667120993078830E-2), (+1.2349122947243898, +0.63319581922962453), (+1.7979349130809739, +0.34772891948458928), (+1.7030346247483268, +0.45058547025845269), (+1.3958239432206578, +0.62075366099875984), (+1.9107874640750571, +0.46842163201239961), (+1.6082900996643712, +0.44687631980976389), (+1.1898959958672832, +0.87168960597810230), (+1.0236543600506940, +0.54310065311649325), (+1.8864611236831546, +0.63886863777072911), (+1.0423932917807952, +0.13017396186729424), (+1.2317506207700579, +0.72773914623236335), (+1.6483963968211124, +0.58958060633156029), (+1.2159157775835632, +0.59452122668476520E-1), (+1.0456049681351678, +0.29277207029812818), (+1.6295558705981099, +0.28296316560216089), (+1.0643487888709537, +0.23314579856195794), (+1.1649712051920238, +0.83542931110179031), (+1.1882623733801028, +0.32826504876231744), (+1.9485664128550972, +0.30448710081594166), (+1.7562234772941685, +0.59416527632637450), (+1.0199999302270397, +0.38157083561998312), (+1.0545691102400161, +0.85498754503809393), (+1.4397913739509756, +0.55621972980375634), (+1.4345527404890008, +0.86723772430211987), (+1.7846790043337004, +0.75104210272697003), (+1.4841364904872352, +0.94685055573303401), (+1.1075139624367945, +0.48368439032505445), (+1.0749197100725667, +0.71008513477833068), (+1.2872507351013183, +0.14184306046270612), (+1.5130027080281014, +0.89889173531825661), (+1.4625505546503503, +0.76238744904417544), (+1.9188136102071485, +0.76641817226202269), (+1.4575096997750401, +0.92987213773247757), (+1.8494682758699048, +0.73544684419683226), (+1.1177386996263332, +0.79476311915968001), (+1.3752170107681743, +0.28752267284142508), (+1.3722197225991426, +0.52983600671645137), (+1.5303013252821698, +0.81670511091976050), (+1.1572520759140215, +0.78242700284761268E-1), (+0.22204460492503131E-15, -0.84654505627668186E-15), (+0.22204460492503131E-15, -0.41633363423443370E-16), (+0.66613381477509392E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.19428902930940239E-15), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.11102230246251565E-15, -0.44408920985006262E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.41633363423443370E-15), (+0.44408920985006262E-15, -0.83266726846886741E-16), (+0.66613381477509392E-15, -0.49960036108132044E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.22898349882893854E-15), (-0.33306690738754696E-15, +0.16653345369377348E-15), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.33306690738754696E-15, +0.27755575615628914E-16), (-0.33306690738754696E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (-0.33306690738754696E-15, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.38857805861880479E-15), (-0.33306690738754696E-15, -0.19428902930940239E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.22204460492503131E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, +0.13877787807814457E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.43021142204224816E-15), (-0.33306690738754696E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.27755575615628914E-16), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.31918911957973251E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.74940054162198066E-15), (+0.33306690738754696E-15, +0.58286708792820718E-15), (+0.33306690738754696E-15, +0.72164496600635175E-15)
436reltol = sqrt(epsilon(1._TKG))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+34
446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
447data
448(+1.90398661032841676242285921109436156, +0.755638578019341689162267579721655860), (+1.07371392526975823592425584884587980, +0.888051531029166131559072305063950006), (+1.46592912371075297531678374656359749, +0.110621024533570808647434578170416731), (+1.85970462254553061772969898156623486, +0.916790487024137494208435375820738614), (+1.20554114997295787314432273315147683, +0.305756941668863137241803090897152934), (+1.05518387188021445892018620354685959, +0.525759183309325811598617955278145975), (+1.29722414067877414259526110301531485, +0.302211482413574552058515837175881106), (+1.12058514280588614073215250931655784, +0.171289831177084337259341445326408800E-1), (+1.87911843591492676881549739460749420, +0.335729092300564094151433020566896747), (+1.95246215317468696684127539039313530, +0.909539622414877226507126985692417441E-1), (+1.11871578165938128084694615666126842, +0.542866158282488677556087055212922355), (+1.30641373389755170361930231427756649, +0.516232001105224006667350676894316310), (+1.71957430422260010194126918348822667, +0.447931972711475012450522546007429638), (+1.81810452857253121370701802249107586, +0.619683838121460666879015240289340857), (+1.57246813617826104309117689823549290, +0.673601599816462361168211996369554839), (+1.32298913155462447499304717381954865, +0.469071859847060164731928271329091309), (+1.56783072584999794162544555441829091, +0.316017557453062856039963646106106388), (+1.78062410272822533953701766258268771, +0.176801805673964378615603311040605108), (+1.67536255251992059990464313379695547, +0.841202069854662391429198187644661481), (+1.83195161043298478345775828079327369, +0.428484575300684104271297697170071060), (+1.21706622828421513981187964057386904, +0.625704849799044442206931839336649781), (+1.84978969946729320037207455726245863, +0.224185298555214515780209339239808923), (+1.03459196475462652801489231677868779, +0.484830790464436828511731717175482129), (+1.20730651875419343623197360253692966, +0.582546864662096917432660849817102209), (+1.98010871298656688518074751202447140, +0.177253017727560624315148232239471011), (+1.14923324662433821168093100277287017, +0.474265939236061902701678985105799645E-1), (+1.47447755418747812994031310869909862, +0.825798203403685565140689958397317414), (+1.29669742740220645419911043575615003, +0.823682993640331643616320421541099585), (+1.34595285102154760926417287033935413, +0.947205917002763432870454697618074068), (+1.03499568289578334807573607866313951, +0.188701416549960166384175648569053919), (+1.91917844267713973890196730843084982, +0.818308757760645509501527686573966934E-2), (+1.60545215359470515058353457689698846, +0.776297751169318835943445753720852672), (+1.93828961856227306223132799612307963, +0.567447417117473162751745059871357620), (+1.32887055352751421388611492813397941, +0.862357714325062643987672656983779998)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.90398661032841676242285921109436156, +0.755638578019341689162267579721655668), (+1.07371392526975823592425584884588000, +0.888051531029166131559072305063950006), (+1.46592912371075297531678374656359730, +0.110621024533570808647434578170416707), (+1.85970462254553061772969898156623467, +0.916790487024137494208435375820738518), (+1.20554114997295787314432273315147722, +0.305756941668863137241803090897152742), (+1.05518387188021445892018620354685959, +0.525759183309325811598617955278145686), (+1.29722414067877414259526110301531505, +0.302211482413574552058515837175880865), (+1.12058514280588614073215250931655804, +0.171289831177084337259341445326406874E-1), (+1.87911843591492676881549739460749382, +0.335729092300564094151433020566896699), (+1.95246215317468696684127539039313510, +0.909539622414877226507126985692419728E-1), (+1.11871578165938128084694615666126823, +0.542866158282488677556087055212922451), (+1.30641373389755170361930231427756611, +0.516232001105224006667350676894316407), (+1.71957430422260010194126918348822667, +0.447931972711475012450522546007429927), (+1.81810452857253121370701802249107567, +0.619683838121460666879015240289340953), (+1.57246813617826104309117689823549310, +0.673601599816462361168211996369555127), (+1.32298913155462447499304717381954903, +0.469071859847060164731928271329091694), (+1.56783072584999794162544555441829091, +0.316017557453062856039963646106106436), (+1.78062410272822533953701766258268809, +0.176801805673964378615603311040605204), (+1.67536255251992059990464313379695547, +0.841202069854662391429198187644661096), (+1.83195161043298478345775828079327350, +0.428484575300684104271297697170070867), (+1.21706622828421513981187964057386885, +0.625704849799044442206931839336650070), (+1.84978969946729320037207455726245863, +0.224185298555214515780209339239809115), (+1.03459196475462652801489231677868779, +0.484830790464436828511731717175482226), (+1.20730651875419343623197360253692985, +0.582546864662096917432660849817102112), (+1.98010871298656688518074751202447102, +0.177253017727560624315148232239470963), (+1.14923324662433821168093100277287036, +0.474265939236061902701678985105798803E-1), (+1.47447755418747812994031310869909862, +0.825798203403685565140689958397317221), (+1.29669742740220645419911043575614965, +0.823682993640331643616320421541099488), (+1.34595285102154760926417287033935413, +0.947205917002763432870454697618074357), (+1.03499568289578334807573607866313951, +0.188701416549960166384175648569054256), (+1.91917844267713973890196730843085001, +0.818308757760645509501527686573954897E-2), (+1.60545215359470515058353457689698865, +0.776297751169318835943445753720852672), (+1.93828961856227306223132799612307963, +0.567447417117473162751745059871357620), (+1.32887055352751421388611492813397961, +0.862357714325062643987672656983779902), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.156481807981462913060798207835025345E-33), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.264815367353244929795196967105427506E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.842594350669415685711990349880905702E-34), (+0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, +0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.601853107621011204079993107057789787E-34), (+0.192592994438723585305597794258492732E-33, +0.108333559371782016734398759270402162E-33), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, -0.276852429505665153876796829246583302E-33), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33)
453reltol = sqrt(epsilon(1._TKG))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+58
463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
464data
465+1.57252026, +1.33018661, +1.69940686, +1.58732653, +1.12611699, +1.35569680, +1.82379615, +1.97470868, +1.87900925, +1.61603534, +1.86116862, +1.33040214, +1.07147050, +1.05810690, +1.33845377, +1.38178575, +1.02380097, +1.92455196, +1.96729386, +1.72763991, +1.88489699, +1.81137824, +1.59696746, +1.43003929, +1.92822313, +1.67450023, +1.26399350, +1.51766813, +1.01917982, +1.57376814, +1.85901690, +1.16253078, +1.69731390, +1.43247700, +1.72146380, +1.67781544, +1.81144226, +1.88168693, +1.64816618, +1.00502300, +1.74237537, +1.79499066, +1.03802562, +1.41920686, +1.18033874, +1.47193670, +1.74700320, +1.77665496, +1.50907326, +1.45040131, +1.35573578, +1.58402312, +1.83068371, +1.33965862, +1.82120240, +1.05950022, +1.86475301, +1.34311604
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.57252049, +1.33018684, +1.69940686, +1.58732653, +1.12611723, +1.35569680, +1.82379639, +1.97470856, +1.87900949, +1.61603534, +1.86116862, +1.33040226, +1.07147074, +1.05810690, +1.33845377, +1.38178611, +1.02380109, +1.92455196, +1.96729374, +1.72763991, +1.88489711, +1.81137800, +1.59696758, +1.43003941, +1.92822325, +1.67450011, +1.26399362, +1.51766813, +1.01917982, +1.57376790, +1.85901690, +1.16253114, +1.69731402, +1.43247700, +1.72146392, +1.67781544, +1.81144238, +1.88168681, +1.64816630, +1.00502324, +1.74237561, +1.79499066, +1.03802562, +1.41920698, +1.18033886, +1.47193646, +1.74700332, +1.77665496, +1.50907350, +1.45040131, +1.35573578, +1.58402324, +1.83068383, +1.33965850, +1.82120264, +1.05950046, +1.86475313, +1.34311616, +0.119209290E-6, +0.357627869E-6, +0.417232513E-6, +0.00000000, +0.298023224E-6, +0.417232513E-6
470reltol = sqrt(epsilon(1._TKG))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+54
480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
481data
482+1.2565387467898503, +1.8703475731938448, +1.6575116461215902, +1.6885553937902738, +1.8090720708130439, +1.8046487929756960, +1.0109663082168785, +1.2906143398384577, +1.2135490424897228, +1.9015683252332085, +1.7893918533665119, +1.4334241228348956, +1.5522095986313427, +1.5833913633049486, +1.7481457119728274, +1.8925609354526662, +1.8981978735301830, +1.8841607130626763, +1.2087198346869588, +1.9130193182164896, +1.5701908570958585, +1.1592634306519891, +1.2579436628114582, +1.8423023337100202, +1.0787868094479589, +1.7307123810520069, +1.4099555712500580, +1.4627728616775255, +1.1580965863167370, +1.2246195461530551, +1.5491053152247742, +1.4688633924361914, +1.9995872124175249, +1.4520028775206870, +1.3382433469113186, +1.0880740396631374, +1.2001583989687297, +1.3821104119188825, +1.1937996874281498, +1.9462601815696561, +1.2221154694491636, +1.3670399762591043, +1.2124631901244385, +1.6197162382169075, +1.1297760450149856, +1.1004795306448991, +1.7658619232800963, +1.1636584275619799, +1.2548735030758136, +1.7796776785704362, +1.0124339148564752, +1.4879382969931416, +1.0869544785940013, +1.3225269353572733
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.2565387467898508, +1.8703475731938450, +1.6575116461215904, +1.6885553937902740, +1.8090720708130437, +1.8046487929756965, +1.0109663082168783, +1.2906143398384575, +1.2135490424897228, +1.9015683252332085, +1.7893918533665116, +1.4334241228348956, +1.5522095986313427, +1.5833913633049490, +1.7481457119728268, +1.8925609354526660, +1.8981978735301830, +1.8841607130626767, +1.2087198346869585, +1.9130193182164896, +1.5701908570958580, +1.1592634306519891, +1.2579436628114582, +1.8423023337100202, +1.0787868094479587, +1.7307123810520069, +1.4099555712500580, +1.4627728616775248, +1.1580965863167365, +1.2246195461530549, +1.5491053152247740, +1.4688633924361909, +1.9995872124175249, +1.4520028775206870, +1.3382433469113186, +1.0880740396631372, +1.2001583989687294, +1.3821104119188830, +1.1937996874281500, +1.9462601815696559, +1.2221154694491636, +1.3670399762591043, +1.2124631901244387, +1.6197162382169070, +1.1297760450149856, +1.1004795306448996, +1.7658619232800963, +1.1636584275619795, +1.2548735030758138, +1.7796776785704365, +1.0124339148564752, +1.4879382969931416, +1.0869544785940009, +1.3225269353572735, +0.55511151231257827E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, +0.66613381477509392E-15, +0.55511151231257827E-15
487reltol = sqrt(epsilon(1._TKG))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+73
497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
498data
499+1.54306652978305106742731240053294039, +1.96121853595327598658436911615829117, +1.35773252633647994672181535290753173, +1.19209900027283564760140958900914130, +1.97489949185588008171468547396896299, +1.77191281289663080049870442646427387, +1.69948438477213037149226889444453382, +1.11826363070542941090499590507898853, +1.48379158963711085698041227357977199, +1.50966095061526977304193837869447034, +1.45801991997986887996109066473620519, +1.51262865904624109311515276314343383, +1.66983575441142651057243570269172345, +1.75901461584584317647273381816572192, +1.72949954287315696023133818761339844, +1.99547904509368973144236387679644581, +1.07513666100490872143570553595985055, +1.05801368561941360308632027355540122, +1.63544528303245637302856560830421457, +1.09797389816360081442874254410370304, +1.03167595076246343723253454534273728, +1.90246915292581764132430278592688366, +1.04127358936487556245542705294442027, +1.60772999956103622969213490006490342, +1.13861571318737138289324402303308413, +1.27030468842475139552227171648106550, +1.61706147763117353535287755049899391, +1.10634423250447908690598537609624850, +1.96312227969161504394394577514858480, +1.25925306374092879571522202019290611, +1.91238710251874179297042301381027619, +1.06264264571723392913611541473339962, +1.58929439478808379823670291076064955, +1.19380812346055561239300871401138421, +1.63109212220292848150763434547390592, +1.90246509191740567434312366906530992, +1.25258413684934946889043047599185998, +1.82132759658356852601774214663132512, +1.80970045690212606522376434330006337, +1.46760706401048082536674766193219910, +1.26643426318134284525699214506824342, +1.91337560991680825146692276401050702, +1.65002084727691025661056579385391532, +1.26276503971414649493182813687146870, +1.63902225665924077209371962472151512, +1.18402522873854787973303197075194137, +1.65876501271404493788733962159690564, +1.14791030530018043041682992520760807, +1.94440970928539769272244862718810394, +1.69640271825018102148014057317334909, +1.37356130012177048694093282678785872, +1.98987473011179160479197325847432948, +1.58201662954604984405344979944584587, +1.73387724729958868290978454064131889, +1.85894094465610736335532970347795613, +1.99320019897382047737002322613216466, +1.23392338649640134234052563624872737, +1.17176090734787394832371951762163757, +1.09258469151849298458619348688284727, +1.42564062942947379774843754293675063, +1.43594303305802360797075789385068653, +1.01568298591706915854552100042792207, +1.22987056083231304971103374447307417, +1.39313064541360463482803923383556707, +1.46932113390702107626098295555808754, +1.61365977732457069046576655902998268, +1.67803974230459990825076169917879229, +1.93413482906294999166070500074865761, +1.19538014991345209478325235164203194, +1.41923453091415130647931843831554998, +1.65401883219617650059283421537043141, +1.99005157001372854237339449633899574, +1.43102432508867494998754934448937453
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.54306652978305106742731240053294078, +1.96121853595327598658436911615829155, +1.35773252633647994672181535290753173, +1.19209900027283564760140958900914110, +1.97489949185588008171468547396896261, +1.77191281289663080049870442646427387, +1.69948438477213037149226889444453363, +1.11826363070542941090499590507898853, +1.48379158963711085698041227357977295, +1.50966095061526977304193837869447034, +1.45801991997986887996109066473620557, +1.51262865904624109311515276314343402, +1.66983575441142651057243570269172364, +1.75901461584584317647273381816572153, +1.72949954287315696023133818761339883, +1.99547904509368973144236387679644581, +1.07513666100490872143570553595985055, +1.05801368561941360308632027355540084, +1.63544528303245637302856560830421457, +1.09797389816360081442874254410370323, +1.03167595076246343723253454534273747, +1.90246915292581764132430278592688347, +1.04127358936487556245542705294442008, +1.60772999956103622969213490006490381, +1.13861571318737138289324402303308451, +1.27030468842475139552227171648106550, +1.61706147763117353535287755049899430, +1.10634423250447908690598537609624889, +1.96312227969161504394394577514858499, +1.25925306374092879571522202019290630, +1.91238710251874179297042301381027619, +1.06264264571723392913611541473340000, +1.58929439478808379823670291076064994, +1.19380812346055561239300871401138402, +1.63109212220292848150763434547390592, +1.90246509191740567434312366906531030, +1.25258413684934946889043047599186036, +1.82132759658356852601774214663132493, +1.80970045690212606522376434330006357, +1.46760706401048082536674766193219871, +1.26643426318134284525699214506824380, +1.91337560991680825146692276401050741, +1.65002084727691025661056579385391571, +1.26276503971414649493182813687146870, +1.63902225665924077209371962472151550, +1.18402522873854787973303197075194137, +1.65876501271404493788733962159690603, +1.14791030530018043041682992520760826, +1.94440970928539769272244862718810413, +1.69640271825018102148014057317334890, +1.37356130012177048694093282678785891, +1.98987473011179160479197325847432948, +1.58201662954604984405344979944584606, +1.73387724729958868290978454064131851, +1.85894094465610736335532970347795652, +1.99320019897382047737002322613216447, +1.23392338649640134234052563624872737, +1.17176090734787394832371951762163757, +1.09258469151849298458619348688284727, +1.42564062942947379774843754293675102, +1.43594303305802360797075789385068691, +1.01568298591706915854552100042792188, +1.22987056083231304971103374447307398, +1.39313064541360463482803923383556764, +1.46932113390702107626098295555808754, +1.61365977732457069046576655902998249, +1.67803974230459990825076169917879268, +1.93413482906294999166070500074865761, +1.19538014991345209478325235164203194, +1.41923453091415130647931843831554998, +1.65401883219617650059283421537043199, +1.99005157001372854237339449633899612, +1.43102432508867494998754934448937472, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.866668474974256133875190074163217293E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33
504reltol = sqrt(epsilon(1._TKG))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  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.

Copyright
Computational Data Science Lab
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 428 of file pm_fftnr.F90.

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