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+83
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.65119565, +0.839268744), (+1.31022382, +0.240450859), (+1.19366336, +0.472067118), (+1.21429920, +0.287211657), (+1.39748561, +0.874097466), (+1.90324688, +0.118321180E-1), (+1.57640445, +0.936949253E-1), (+1.66573048, +0.410543680), (+1.40990639, +0.516871631), (+1.41088939, +0.553788424), (+1.08274102, +0.776801169), (+1.54307103, +0.801779568), (+1.21215940, +0.898283184), (+1.86582541, +0.368103385E-1), (+1.09249949, +0.211895227), (+1.18642020, +0.974950433), (+1.24687099, +0.771079004), (+1.49480820, +0.206818700), (+1.27554882, +0.901343882), (+1.87101924, +0.964621961), (+1.57556129, +0.831385851), (+1.91070437, +0.682701468E-1), (+1.83928800, +0.526072264), (+1.23402047, +0.984539092), (+1.18899059, +0.203046620), (+1.30432880, +0.902360141), (+1.85045481, +0.694993556), (+1.21073246, +0.480900705), (+1.06070709, +0.188943624), (+1.59384263, +0.991260767), (+1.63428676, +0.843441367), (+1.72969818, +0.568002462E-2), (+1.10754335, +0.380509615), (+1.45999467, +0.145456612), (+1.72249269, +0.104406059), (+1.03281617, +0.393385589), (+1.04182220, +0.144913197E-1), (+1.39754307, +0.384887278), (+1.60577130, +0.355776668), (+1.31148601, +0.100373507), (+1.15816140, +0.701896429), (+1.24968970, +0.281562805E-1), (+1.52806675, +0.529340088), (+1.75963664, +0.138190687), (+1.00883889, +0.593037963), (+1.93461061, +0.833039939), (+1.93125486, +0.995090067), (+1.41788030, +0.669219911), (+1.53784978, +0.730099499), (+1.13411748, +0.763055146), (+1.42796886, +0.616392612), (+1.87142539, +0.852820218), (+1.33804846, +0.417505562), (+1.73625302, +0.539264202), (+1.58514380, +0.620681226), (+1.39277017, +0.207048059), (+1.92959809, +0.845004499), (+1.00758958, +0.550522983), (+1.22315764, +0.477157235E-1), (+1.58409727, +0.801314950), (+1.97383308, +0.181422234E-1), (+1.08264947, +0.693684042), (+1.98585105, +0.842487752), (+1.44305694, +0.590039492), (+1.42629719, +0.855773985), (+1.91860855, +0.713539958), (+1.23015189, +0.429343700), (+1.42213404, +0.827279568), (+1.54345655, +0.165841877), (+1.95914400, +0.310187221), (+1.41564608, +0.164520741), (+1.00937450, +0.154660285), (+1.04813993, +0.520367563), (+1.29809570, +0.655699134), (+1.36667132, +0.305044055E-1), (+1.76320434, +0.986104310), (+1.71559620, +0.482634127), (+1.78620768, +0.165799260E-1), (+1.02170992, +0.832118750), (+1.79735029, +0.142585218), (+1.89565229, +0.718061328E-1), (+1.61340237, +0.494625270), (+1.06925130, +0.816564679)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.65119576, +0.839268804), (+1.31022358, +0.240450948), (+1.19366312, +0.472067237), (+1.21429884, +0.287211716), (+1.39748561, +0.874097407), (+1.90324652, +0.118320733E-1), (+1.57640421, +0.936947837E-1), (+1.66573012, +0.410543531), (+1.40990651, +0.516871750), (+1.41088939, +0.553788602), (+1.08274102, +0.776801109), (+1.54307103, +0.801779509), (+1.21215951, +0.898283303), (+1.86582530, +0.368105993E-1), (+1.09249961, +0.211895227), (+1.18641996, +0.974950433), (+1.24687099, +0.771079063), (+1.49480796, +0.206818804), (+1.27554858, +0.901343763), (+1.87101912, +0.964621961), (+1.57556129, +0.831385851), (+1.91070390, +0.682702065E-1), (+1.83928776, +0.526072145), (+1.23402011, +0.984539151), (+1.18899071, +0.203046679), (+1.30432844, +0.902360141), (+1.85045457, +0.694993556), (+1.21073270, +0.480900884), (+1.06070721, +0.188943774), (+1.59384251, +0.991260886), (+1.63428676, +0.843441486), (+1.72969806, +0.568034872E-2), (+1.10754347, +0.380509615), (+1.45999455, +0.145456538), (+1.72249269, +0.104405910), (+1.03281617, +0.393385619), (+1.04182220, +0.144912004E-1), (+1.39754272, +0.384887099), (+1.60577130, +0.355776370), (+1.31148601, +0.100373432), (+1.15816140, +0.701896489), (+1.24968958, +0.281562060E-1), (+1.52806664, +0.529339790), (+1.75963688, +0.138190687), (+1.00883889, +0.593037844), (+1.93461037, +0.833039880), (+1.93125486, +0.995089829), (+1.41788018, +0.669219732), (+1.53784966, +0.730099380), (+1.13411736, +0.763054967), (+1.42796874, +0.616392434), (+1.87142539, +0.852819920), (+1.33804846, +0.417505503), (+1.73625278, +0.539263904), (+1.58514380, +0.620680988), (+1.39277005, +0.207047760), (+1.92959785, +0.845004618), (+1.00758958, +0.550522923), (+1.22315753, +0.477156490E-1), (+1.58409715, +0.801314712), (+1.97383296, +0.181422755E-1), (+1.08264923, +0.693683743), (+1.98585081, +0.842487574), (+1.44305682, +0.590039253), (+1.42629743, +0.855774045), (+1.91860843, +0.713539839), (+1.23015189, +0.429343581), (+1.42213404, +0.827279270), (+1.54345667, +0.165841877), (+1.95914400, +0.310187101), (+1.41564643, +0.164520741), (+1.00937450, +0.154660136), (+1.04813993, +0.520367563), (+1.29809570, +0.655699193), (+1.36667109, +0.305044353E-1), (+1.76320434, +0.986104250), (+1.71559632, +0.482634127), (+1.78620756, +0.165799316E-1), (+1.02171004, +0.832118630), (+1.79735041, +0.142584920), (+1.89565229, +0.718062818E-1), (+1.61340213, +0.494625092), (+1.06925142, +0.816564500), (+0.238418579E-6, -0.298023224E-6), (+0.178813934E-6, +0.00000000), (+0.238418579E-6, -0.119209290E-6), (+0.357627869E-6, +0.208616257E-6), (+0.238418579E-6, +0.00000000), (+0.00000000, -0.126659870E-6), (-0.596046448E-7, -0.298023224E-6), (+0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, -0.268220901E-6), (+0.119209290E-6, -0.201165676E-6), (-0.178813934E-6, -0.238418579E-6), (+0.119209290E-6, -0.119209290E-6), (+0.00000000, -0.175088644E-6), (+0.178813934E-6, +0.596046448E-7), (+0.00000000, -0.149011612E-7), (+0.178813934E-6, +0.327825546E-6), (+0.178813934E-6, +0.149011612E-6), (+0.596046448E-7, +0.238418579E-6), (-0.178813934E-6, +0.134110451E-6), (+0.178813934E-6, +0.372529030E-6), (+0.596046448E-7, +0.193715096E-6), (+0.00000000, -0.596046448E-7), (-0.596046448E-7, -0.163912773E-6), (+0.596046448E-7, +0.268220901E-6), (+0.178813934E-6, +0.00000000), (+0.596046448E-7, +0.894069672E-7), (-0.596046448E-7, +0.00000000), (+0.596046448E-7, +0.238418579E-6), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, +0.178813934E-6), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.298023224E-6), (+0.596046448E-7, +0.208616257E-6), (+0.178813934E-6, +0.208616257E-6), (-0.596046448E-7, +0.178813934E-6), (+0.119209290E-6, +0.476837158E-6), (-0.119209290E-6, +0.417232513E-6), (+0.178813934E-6, -0.596046448E-7), (+0.00000000, -0.894069672E-7), (+0.238418579E-6, +0.163912773E-6), (+0.238418579E-6, +0.894069672E-7), (+0.119209290E-6, +0.521540642E-7), (+0.178813934E-6, +0.298023224E-7), (+0.00000000, +0.268220901E-6), (+0.596046448E-7, +0.00000000)
11reltol = sqrt(epsilon(1._TKG))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+57
21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
22data
23(+1.6263700464027600, +0.31425137548385595), (+1.1999288023752395, +0.96001276297441895), (+1.6192623019672556, +0.29600536468690064), (+1.4409757299829802, +0.92385667127772586), (+1.1855137822459398, +0.30982408760632696), (+1.9257321172256865, +0.32113839600080907), (+1.2437219378538926, +0.99456995216247246), (+1.4612109653443561, +0.62893180959585993), (+1.2457995322426583, +0.90734750294291888), (+1.7085826138363247, +0.76891283748521644), (+1.8521359565798339, +0.21896949720647818E-1), (+1.3572058729626018, +0.49425226675014766), (+1.7141135709834914, +0.18760974185114243), (+1.9071976235836363, +0.56253919123877416), (+1.6840629135645924, +0.57634457799845629), (+1.5983267652023085, +0.92546908495633007), (+1.8190697794382471, +0.73626727072384002), (+1.6957776440482577, +0.89457506289991751), (+1.9104332621586102, +0.42966115253999260), (+1.6707518939378205, +0.19733417358088434), (+1.4530587251934490, +0.97373783394743418), (+1.6246270279531849, +0.32099017444004263), (+1.4049996763688781, +0.57046718349014935), (+1.8528109016140712, +0.47948755848600300), (+1.7080753093844088, +0.76471067688302807E-1), (+1.5205446293200948, +0.69161238060663255), (+1.9716908041747829, +0.22722606805621415), (+1.5738224022958254, +0.41745483563497698), (+1.1454936800046625, +0.77341112237206633E-1), (+1.0566965344335681, +0.31437694633599089), (+1.1860024342860056, +0.25046263606518970), (+1.5742900921594769, +0.10183464876956771), (+1.1716582939616147, +0.17046971372869080), (+1.2265846192567693, +0.71146584348219344), (+1.0489189858907195, +0.62386552299925979), (+1.6283834162202062, +0.96101071946015881), (+1.0499650879121087, +0.31902342083694712), (+1.2385854392880464, +0.15663766957850678), (+1.1733147212668933, +0.80875626129138489), (+1.0888937657987912, +0.14902398544055995), (+1.5690330563069828, +0.85475228716141882E-1), (+1.5824543109901261, +0.12485006597349335), (+1.9174487755385377, +0.75627840130317159), (+1.5316103759893478, +0.52679768060695376), (+1.4388094744442221, +0.42851256476093724), (+1.0556863005940755, +0.16327951648372097), (+1.5693187337481826, +0.92967125427991459E-1), (+1.4508366710176437, +0.60475473189904350), (+1.4939753931498378, +0.11666370607415177), (+1.9275226489770170, +0.95296445447930922), (+1.1057781909709163, +0.28602518643692454), (+1.0107804025463967, +0.15113807094300158), (+1.3306433323654447, +0.55769625747281304), (+1.3517768327176716, +0.91560785839207892), (+1.6092394468115647, +0.42149607446215398), (+1.6447387575974930, +0.51531937533277816), (+1.3976118029483158, +0.57838851609217223)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.6263700464027602, +0.31425137548385595), (+1.1999288023752397, +0.96001276297441929), (+1.6192623019672554, +0.29600536468690097), (+1.4409757299829804, +0.92385667127772575), (+1.1855137822459398, +0.30982408760632685), (+1.9257321172256872, +0.32113839600080929), (+1.2437219378538928, +0.99456995216247235), (+1.4612109653443566, +0.62893180959586004), (+1.2457995322426585, +0.90734750294291877), (+1.7085826138363249, +0.76891283748521644), (+1.8521359565798332, +0.21896949720648373E-1), (+1.3572058729626020, +0.49425226675014799), (+1.7141135709834912, +0.18760974185114274), (+1.9071976235836363, +0.56253919123877449), (+1.6840629135645924, +0.57634457799845640), (+1.5983267652023081, +0.92546908495633040), (+1.8190697794382473, +0.73626727072384002), (+1.6957776440482577, +0.89457506289991762), (+1.9104332621586102, +0.42966115253999260), (+1.6707518939378210, +0.19733417358088429), (+1.4530587251934493, +0.97373783394743429), (+1.6246270279531851, +0.32099017444004269), (+1.4049996763688781, +0.57046718349014935), (+1.8528109016140715, +0.47948755848600305), (+1.7080753093844088, +0.76471067688302863E-1), (+1.5205446293200953, +0.69161238060663210), (+1.9716908041747825, +0.22722606805621387), (+1.5738224022958258, +0.41745483563497687), (+1.1454936800046625, +0.77341112237206466E-1), (+1.0566965344335686, +0.31437694633599061), (+1.1860024342860060, +0.25046263606518937), (+1.5742900921594767, +0.10183464876956776), (+1.1716582939616147, +0.17046971372869085), (+1.2265846192567695, +0.71146584348219344), (+1.0489189858907195, +0.62386552299925946), (+1.6283834162202064, +0.96101071946015837), (+1.0499650879121090, +0.31902342083694712), (+1.2385854392880467, +0.15663766957850683), (+1.1733147212668935, +0.80875626129138467), (+1.0888937657987914, +0.14902398544056006), (+1.5690330563069830, +0.85475228716141882E-1), (+1.5824543109901261, +0.12485006597349313), (+1.9174487755385372, +0.75627840130317125), (+1.5316103759893480, +0.52679768060695331), (+1.4388094744442219, +0.42851256476093713), (+1.0556863005940755, +0.16327951648372080), (+1.5693187337481826, +0.92967125427991293E-1), (+1.4508366710176437, +0.60475473189904305), (+1.4939753931498381, +0.11666370607415177), (+1.9275226489770170, +0.95296445447930944), (+1.1057781909709163, +0.28602518643692454), (+1.0107804025463973, +0.15113807094300186), (+1.3306433323654447, +0.55769625747281304), (+1.3517768327176720, +0.91560785839207903), (+1.6092394468115649, +0.42149607446215376), (+1.6447387575974932, +0.51531937533277816), (+1.3976118029483158, +0.57838851609217246), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.88817841970012523E-15, +0.27755575615628914E-15), (+0.11102230246251565E-14, +0.0000000000000000), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.55511151231257827E-15, +0.22204460492503131E-15), (+0.77715611723760958E-15, +0.69388939039072284E-15), (+0.88817841970012523E-15, +0.73552275381416621E-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
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+76
38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
39data
40(+1.59063395084977083362708543037276168, +0.467514707034322443438195500101972326), (+1.06775127888012295274289856624350873, +0.248739791592588544207610666335052415), (+1.14233044039399641640648235380834556, +0.128978934858204110298624052684462357), (+1.42939141940818114575959380463333177, +0.393885061813543759506951838769351316), (+1.77600881790315896723034228748461392, +0.774354180427507305749641354392972964), (+1.61548450795274731968014495685950915, +0.823416002611649140265726375231439516E-1), (+1.59796533036863921692433840275166477, +0.613165496973426952407302143301451009E-1), (+1.22821886730353195867787096439049679, +0.866598157482742820693368347862881910E-1), (+1.07602406234637873819071938839535991, +0.507387757666473445128532230139698451E-2), (+1.78009717554906023829225729932694576, +0.687969661979876786431542671570468703E-1), (+1.77905737287263844785626141946095520, +0.269895484957038430184545421180163182), (+1.00296530601630089268996584064279037, +0.287716131874741948780482832841181172), (+1.26297402947652534091552224289303566, +0.189655333221377406335956090352345585), (+1.23807678641358496329289946949295091, +0.764153711390280098019864466829217382), (+1.29133759510216377568020589341564490, +0.623485960424666917784733732531382934), (+1.42588678410901152641390308149499621, +0.500400919737291062902974824665169479E-1), (+1.46757728273468880481004226511952386, +0.667560754012467516816714841079020949), (+1.61497657426117763598743512883933535, +0.503610029169780372069105570612058283), (+1.42431117547397934446130426267049726, +0.392588321410630596758439208921074985), (+1.10044648689068629062204541715126012, +0.776186491669571579310412692006693381E-1), (+1.24227375069818447497072867203550157, +0.396440593084815685578888274358770664), (+1.51128531052808425829453434441242752, +0.165007844486141094773888009707317272), (+1.26487843828197572901421123720591646, +0.490365363923491646777359082508827520), (+1.90340427600279836111628642837994513, +0.829490543706270273754645110841524523), (+1.95830938239663134387046518744378089, +0.215158208167576488154000521729823387), (+1.15475537532288065190009685013826863, +0.658398424637982737237811926631118559), (+1.83648121035740906379285188853921088, +0.836268581262084723475428198462040596), (+1.80621454834803807897708768845810447, +0.335893129753995812441195202682541518E-1), (+1.34201101007272943504967604101922122, +0.249426333810421513082139329771852293), (+1.37865270394645611035101868748490029, +0.370890902871592220439502008696790731), (+1.78514485698978591512122855481728725, +0.301312087441029396177836165704197962), (+1.88813536292720986008121857316582734, +0.750590857792668486662474448857231909), (+1.88021292557702157001406975091343451, +0.147823405886997790032420733553299510), (+1.08465579512793460893975893550078707, +0.830411181492167043761575878535398763), (+1.95858774282017747869171368893418856, +0.407120651319212259737657044567707620), (+1.81511663071624061118883966019745638, +0.589129608772549025553294552793433245), (+1.06998198161280891366325920716660686, +0.413182868571006366345153749404360258E-1), (+1.05945474204402831274784230900530622, +0.496438536672034227739640672998290173), (+1.94900034354423793467676130042408807, +0.125342419389852125559287377701317443), (+1.89601190389740246597537879335316695, +0.808035759432773433228178173210327397), (+1.18598942749058549851376848305210805, +0.119374033025427673779913496081819592), (+1.53859137392253429089825012675945893, +0.693642480966356161623426857580079011), (+1.70148566731645700569289825091725655, +0.320711632705970074759458326857199971), (+1.47769636991892125792245061545207682, +0.127560259754268704809006059150360236), (+1.38993922198095202133916785798089460, +0.495798911816742309800455673552282431), (+1.59113167832616976245694239932389251, +0.169851121929506150431030409112774358), (+1.85650333136541559600177723590591952, +0.954872361061964632861996037818299841), (+1.75395896713986238723779689446709821, +0.660197371607367614026840453833631760), (+1.11763906879086755171465208342024725, +0.536283633152253407138247764250868487), (+1.59092905083662448582159621484332652, +0.922181304860714409042223899281988506), (+1.39575226333344339964231633159647753, +0.671303923079955705960108108707527645), (+1.24505989963921852728028345987496275, +0.820311544053511537289396780997702718), (+1.33062304157315331401397435417209613, +0.103742347861454506404603925027520833), (+1.93055966841516144460461162286648506, +0.794930244839040335093213336236620563), (+1.67730155788238520181320670241513253, +0.504941887926628225036122538553406991E-1), (+1.85372335305970226153980961633686506, +0.685474804467911667634205751340337206), (+1.25906050936429557196471778157054586, +0.765176501643238953615105667658571495), (+1.01001367841127557685692806710412170, +0.565842651157230390499794514772741281), (+1.04076370422545676117535651456324169, +0.257742674799382241275694257716031098), (+1.99402682086384804069659522205389074, +0.474208352317484907141896329282900677), (+1.64344432416300786789618771363371601, +0.276239486773004228059618175726791884), (+1.81419133141003090216063450479134329, +0.174216343331241188775767041979382121), (+1.99392831370200491094986858511002703, +0.263961783319461929001581636092227022E-1), (+1.54210189543842173329434013978749680, +0.645441147636734279442201921554731127), (+1.03174172782936167918910389854089211, +0.463031371544867420971766724336504311), (+1.83026996691133916953501291376871064, +0.123960808112850963246615332637030229), (+1.57374744436402159378601317025141253, +0.700705427195001927324772253366390424), (+1.75444941574083904889604317412288563, +0.178214715852663839521795439989357379), (+1.78676772476022260944162763223612570, +0.411557928028821985190532825800871838), (+1.52506865255797504013600905587045804, +0.743234691772503540794114095494003361), (+1.31320678183884461951603743134160198, +0.838700542130406271848396457759677932), (+1.85987783080248911388641910250918599, +0.702340943212576363873305853548328126), (+1.18924629368846176998062871672454606, +0.176263160086305461691379985349575844), (+1.42976537155621149001558194894076254, +0.400443337443329166796763496479945249), (+1.27125286337768171349011967685525220, +0.415576964215374819529820260595004701), (+1.51054354015158086070528657396997867, +0.222547621648739731964785624810517571)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.59063395084977083362708543037276149, +0.467514707034322443438195500101972229), (+1.06775127888012295274289856624350873, +0.248739791592588544207610666335052078), (+1.14233044039399641640648235380834556, +0.128978934858204110298624052684462020), (+1.42939141940818114575959380463333196, +0.393885061813543759506951838769350883), (+1.77600881790315896723034228748461372, +0.774354180427507305749641354392972675), (+1.61548450795274731968014495685950915, +0.823416002611649140265726375231435664E-1), (+1.59796533036863921692433840275166477, +0.613165496973426952407302143301449565E-1), (+1.22821886730353195867787096439049679, +0.866598157482742820693368347862876614E-1), (+1.07602406234637873819071938839535991, +0.507387757666473445128532230139670766E-2), (+1.78009717554906023829225729932694634, +0.687969661979876786431542671570466536E-1), (+1.77905737287263844785626141946095558, +0.269895484957038430184545421180163182), (+1.00296530601630089268996584064279056, +0.287716131874741948780482832841180979), (+1.26297402947652534091552224289303566, +0.189655333221377406335956090352345585), (+1.23807678641358496329289946949295149, +0.764153711390280098019864466829217671), (+1.29133759510216377568020589341564548, +0.623485960424666917784733732531382934), (+1.42588678410901152641390308149499698, +0.500400919737291062902974824665164182E-1), (+1.46757728273468880481004226511952405, +0.667560754012467516816714841079020949), (+1.61497657426117763598743512883933574, +0.503610029169780372069105570612058379), (+1.42431117547397934446130426267049765, +0.392588321410630596758439208921075034), (+1.10044648689068629062204541715126012, +0.776186491669571579310412692006690974E-1), (+1.24227375069818447497072867203550177, +0.396440593084815685578888274358770567), (+1.51128531052808425829453434441242791, +0.165007844486141094773888009707317103), (+1.26487843828197572901421123720591646, +0.490365363923491646777359082508827616), (+1.90340427600279836111628642837994590, +0.829490543706270273754645110841524330), (+1.95830938239663134387046518744378108, +0.215158208167576488154000521729823580), (+1.15475537532288065190009685013826902, +0.658398424637982737237811926631118655), (+1.83648121035740906379285188853921108, +0.836268581262084723475428198462040788), (+1.80621454834803807897708768845810505, +0.335893129753995812441195202682540314E-1), (+1.34201101007272943504967604101922122, +0.249426333810421513082139329771852342), (+1.37865270394645611035101868748490106, +0.370890902871592220439502008696790635), (+1.78514485698978591512122855481728744, +0.301312087441029396177836165704198250), (+1.88813536292720986008121857316582792, +0.750590857792668486662474448857232198), (+1.88021292557702157001406975091343451, +0.147823405886997790032420733553299510), (+1.08465579512793460893975893550078745, +0.830411181492167043761575878535399052), (+1.95858774282017747869171368893418895, +0.407120651319212259737657044567707764), (+1.81511663071624061118883966019745677, +0.589129608772549025553294552793433438), (+1.06998198161280891366325920716660667, +0.413182868571006366345153749404360499E-1), (+1.05945474204402831274784230900530642, +0.496438536672034227739640672998290077), (+1.94900034354423793467676130042408846, +0.125342419389852125559287377701317250), (+1.89601190389740246597537879335316752, +0.808035759432773433228178173210327301), (+1.18598942749058549851376848305210805, +0.119374033025427673779913496081819821), (+1.53859137392253429089825012675945931, +0.693642480966356161623426857580079396), (+1.70148566731645700569289825091725694, +0.320711632705970074759458326857200452), (+1.47769636991892125792245061545207701, +0.127560259754268704809006059150360332), (+1.38993922198095202133916785798089479, +0.495798911816742309800455673552282624), (+1.59113167832616976245694239932389328, +0.169851121929506150431030409112774093), (+1.85650333136541559600177723590591991, +0.954872361061964632861996037818300130), (+1.75395896713986238723779689446709898, +0.660197371607367614026840453833632145), (+1.11763906879086755171465208342024725, +0.536283633152253407138247764250868583), (+1.59092905083662448582159621484332710, +0.922181304860714409042223899281988602), (+1.39575226333344339964231633159647791, +0.671303923079955705960108108707527934), (+1.24505989963921852728028345987496313, +0.820311544053511537289396780997703104), (+1.33062304157315331401397435417209613, +0.103742347861454506404603925027520724), (+1.93055966841516144460461162286648602, +0.794930244839040335093213336236620563), (+1.67730155788238520181320670241513291, +0.504941887926628225036122538553407954E-1), (+1.85372335305970226153980961633686583, +0.685474804467911667634205751340337303), (+1.25906050936429557196471778157054586, +0.765176501643238953615105667658571880), (+1.01001367841127557685692806710412189, +0.565842651157230390499794514772741666), (+1.04076370422545676117535651456324169, +0.257742674799382241275694257716031675), (+1.99402682086384804069659522205389132, +0.474208352317484907141896329282901062), (+1.64344432416300786789618771363371601, +0.276239486773004228059618175726791932), (+1.81419133141003090216063450479134406, +0.174216343331241188775767041979382169), (+1.99392831370200491094986858511002741, +0.263961783319461929001581636092227504E-1), (+1.54210189543842173329434013978749718, +0.645441147636734279442201921554731609), (+1.03174172782936167918910389854089172, +0.463031371544867420971766724336504407), (+1.83026996691133916953501291376871102, +0.123960808112850963246615332637030277), (+1.57374744436402159378601317025141233, +0.700705427195001927324772253366390809), (+1.75444941574083904889604317412288602, +0.178214715852663839521795439989357427), (+1.78676772476022260944162763223612570, +0.411557928028821985190532825800871838), (+1.52506865255797504013600905587045843, +0.743234691772503540794114095494003553), (+1.31320678183884461951603743134160237, +0.838700542130406271848396457759677836), (+1.85987783080248911388641910250918657, +0.702340943212576363873305853548328318), (+1.18924629368846176998062871672454587, +0.176263160086305461691379985349575989), (+1.42976537155621149001558194894076273, +0.400443337443329166796763496479945730), (+1.27125286337768171349011967685525182, +0.415576964215374819529820260595005086), (+1.51054354015158086070528657396997886, +0.222547621648739731964785624810517860), (-0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.770371977754894341222391177033970927E-33, +0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.337037740267766274284796139952362281E-33), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, +0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, +0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.264815367353244929795196967105427506E-33), (-0.192592994438723585305597794258492732E-33, +0.361111864572606722447995864234673872E-34), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, +0.168518870133883137142398069976181140E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.349074802420186498366396002093518076E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, -0.457408361791968515100794761363920238E-33), (-0.192592994438723585305597794258492732E-33, -0.493519548249229187345594347787387625E-33), (-0.481482486096808963263994485646231830E-33, -0.120370621524202240815998621411557957E-33), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-34), (-0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33), (-0.770371977754894341222391177033970927E-33, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, +0.842594350669415685711990349880905702E-34), (-0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.962964972193617926527988971292463659E-34, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.601853107621011204079993107057789787E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.276852429505665153876796829246583302E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (-0.674075480535532548569592279904724561E-33, -0.722223729145213444895991728469347744E-33)
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, 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+61
55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
56data
57+1.56462610, +1.39182043, +1.82058764, +1.56726444, +1.75369883, +1.66958904, +1.74311244, +1.25634098, +1.99312711, +1.59212828, +1.14613533, +1.75747621, +1.88924170, +1.45130610, +1.97309339, +1.16152310, +1.34354341, +1.59467173, +1.12714946, +1.42036259, +1.35615516, +1.64977527, +1.27314889, +1.79903769, +1.82020116, +1.68913364, +1.37723494, +1.48836446, +1.67368579, +1.66970253, +1.87941694, +1.09450603, +1.59063649, +1.22885454, +1.04318523, +1.84817934, +1.46144879, +1.52010918, +1.50832629, +1.39386404, +1.35539794, +1.09705222, +1.84031010, +1.19959211, +1.46784496, +1.90777683, +1.82550120, +1.87254322, +1.06068707, +1.48340046, +1.09786558, +1.01632750, +1.08928633, +1.72173667, +1.48434258, +1.29767275, +1.20362496, +1.80159366, +1.58975768, +1.33980846, +1.60542536
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.56462622, +1.39182043, +1.82058752, +1.56726432, +1.75369883, +1.66958904, +1.74311233, +1.25634110, +1.99312735, +1.59212828, +1.14613533, +1.75747621, +1.88924205, +1.45130622, +1.97309339, +1.16152310, +1.34354353, +1.59467161, +1.12714958, +1.42036247, +1.35615540, +1.64977527, +1.27314889, +1.79903769, +1.82020140, +1.68913364, +1.37723482, +1.48836434, +1.67368579, +1.66970277, +1.87941694, +1.09450603, +1.59063649, +1.22885442, +1.04318535, +1.84817934, +1.46144891, +1.52010918, +1.50832629, +1.39386404, +1.35539818, +1.09705210, +1.84031010, +1.19959223, +1.46784508, +1.90777695, +1.82550132, +1.87254310, +1.06068730, +1.48340023, +1.09786558, +1.01632762, +1.08928657, +1.72173667, +1.48434269, +1.29767299, +1.20362520, +1.80159378, +1.58975756, +1.33980834, +1.60542560, +0.298023224E-6, +0.178813934E-6, +0.238418579E-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
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+43
72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
73data
74+1.6166654480467897, +1.4392391018657440, +1.1283113296062814, +1.1954716965713224, +1.8183714856090207, +1.5946251624055545, +1.7611329748653870, +1.8374189777158709, +1.9352499828861489, +1.0200791680917884, +1.7930825216081683, +1.5292070893926231, +1.8975285475846353, +1.2312978866914861, +1.5859585477841711, +1.2260152742726098, +1.7284241321590179, +1.5082274907912265, +1.8678723991757771, +1.1177331773305819, +1.9839403883472686, +1.9660109633904836, +1.7166829919322280, +1.2075982835719603, +1.0093411898853282, +1.9219637179866722, +1.4966577062273063, +1.4331415340389986, +1.4384374707468033, +1.8992372559762025, +1.4098906169040366, +1.3315249573283943, +1.1431141145883710, +1.2272600162580802, +1.2657067339716810, +1.9194607566757944, +1.1039582497025586, +1.5263996141099421, +1.8238834618713975, +1.5343500103106356, +1.3322692447542199, +1.0972919622734820, +1.7338707188701137
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.6166654480467897, +1.4392391018657444, +1.1283113296062814, +1.1954716965713230, +1.8183714856090203, +1.5946251624055550, +1.7611329748653868, +1.8374189777158709, +1.9352499828861489, +1.0200791680917884, +1.7930825216081683, +1.5292070893926231, +1.8975285475846349, +1.2312978866914861, +1.5859585477841707, +1.2260152742726100, +1.7284241321590181, +1.5082274907912265, +1.8678723991757771, +1.1177331773305819, +1.9839403883472684, +1.9660109633904832, +1.7166829919322277, +1.2075982835719599, +1.0093411898853284, +1.9219637179866718, +1.4966577062273063, +1.4331415340389979, +1.4384374707468033, +1.8992372559762019, +1.4098906169040366, +1.3315249573283938, +1.1431141145883710, +1.2272600162580805, +1.2657067339716814, +1.9194607566757942, +1.1039582497025588, +1.5263996141099416, +1.8238834618713982, +1.5343500103106349, +1.3322692447542204, +1.0972919622734816, +1.7338707188701141, -0.33306690738754696E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.0000000000000000, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.99920072216264089E-15, +0.88817841970012523E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.99920072216264089E-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, 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+68
89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
90data
91+1.16008433946559672224173332171587831, +1.05062303294216204420612004338707857, +1.47430902743857204435122571992776013, +1.05573573638767067929693425866231197, +1.17836276172629376145760168895337139, +1.69777370170781348359285284118790042, +1.86909561655290240941418077465352309, +1.16265740424666027335390384486471661, +1.66149222335873730133888662670296461, +1.99484908818410326213725041503151124, +1.18351598593515818475346334183220756, +1.16807655715687463083831461599440987, +1.44507778108589484757468580470007952, +1.31648060306457348248638654681063573, +1.91930262151476348187934361289532907, +1.27722234444877928800061313810722198, +1.78884234217290912892580992105738683, +1.19435468107529222250587363369769129, +1.60217978417426049758459422535718717, +1.98900549858648989102064210768148664, +1.73805246137671529254403276487375613, +1.85541027149832904903661526816191604, +1.77399961009644848648750388338556042, +1.37651545137889761756755001881756688, +1.45422424815222797677725825459739208, +1.85449145051464966550754951061531851, +1.08211889571442995982651210217584256, +1.06648491409434119404404791735763535, +1.88483789606125185774679692401764122, +1.00586415719001669672239528413837629, +1.43010265944193637580420107938009276, +1.27586083978663913325508987674606707, +1.55814294081646936160505824015460869, +1.44975031500953602588069837703012603, +1.54929073859613096930407477495000616, +1.23937404309686365555410378773627939, +1.11405206947257172360817789296553967, +1.36464409363550164864800635604607620, +1.56424567275338882655220012357508683, +1.98115996450905215778170255061691668, +1.41389789347509556315026326549898776, +1.21547075981052351772723037389352705, +1.71037009479338873481750951502194754, +1.52853935942944522403560034020177543, +1.97617896042052548883257013466979162, +1.56758074536266508911896654550843666, +1.57528395827182668937582204509900469, +1.24173678769554991588875123240749976, +1.56593507722971174386639216361077218, +1.81496267434889191925171245090595559, +1.55661296431026995167882249488658960, +1.36384250784870392270337712669962486, +1.47776870207464194001505898999931284, +1.87492521286495130811095948786920276, +1.62100124414575464145826486469006435, +1.88227816914316385069974353457655341, +1.19172275388712181333040647285057404, +1.19428821498628068718433261686952349, +1.42303967459926628403225274129786193, +1.08617098769632110163087342264201040, +1.70243097453157592311725630799941922, +1.87984383816308483115808908243623693, +1.35399931806586654856810183572113047, +1.61835059542364252039288242282341246, +1.42787465782982531989537201285893428, +1.94281366247847245202793761980161192, +1.61555265040150170257884688653511962, +1.06401227546700351107872546106828443
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.16008433946559672224173332171587850, +1.05062303294216204420612004338707837, +1.47430902743857204435122571992776013, +1.05573573638767067929693425866231197, +1.17836276172629376145760168895337101, +1.69777370170781348359285284118790042, +1.86909561655290240941418077465352290, +1.16265740424666027335390384486471680, +1.66149222335873730133888662670296500, +1.99484908818410326213725041503151163, +1.18351598593515818475346334183220813, +1.16807655715687463083831461599440987, +1.44507778108589484757468580470007972, +1.31648060306457348248638654681063535, +1.91930262151476348187934361289532964, +1.27722234444877928800061313810722198, +1.78884234217290912892580992105738683, +1.19435468107529222250587363369769110, +1.60217978417426049758459422535718717, +1.98900549858648989102064210768148703, +1.73805246137671529254403276487375575, +1.85541027149832904903661526816191566, +1.77399961009644848648750388338556003, +1.37651545137889761756755001881756669, +1.45422424815222797677725825459739228, +1.85449145051464966550754951061531908, +1.08211889571442995982651210217584294, +1.06648491409434119404404791735763535, +1.88483789606125185774679692401764102, +1.00586415719001669672239528413837591, +1.43010265944193637580420107938009315, +1.27586083978663913325508987674606745, +1.55814294081646936160505824015460908, +1.44975031500953602588069837703012603, +1.54929073859613096930407477495000616, +1.23937404309686365555410378773627920, +1.11405206947257172360817789296553967, +1.36464409363550164864800635604607582, +1.56424567275338882655220012357508702, +1.98115996450905215778170255061691649, +1.41389789347509556315026326549898796, +1.21547075981052351772723037389352685, +1.71037009479338873481750951502194793, +1.52853935942944522403560034020177582, +1.97617896042052548883257013466979162, +1.56758074536266508911896654550843666, +1.57528395827182668937582204509900527, +1.24173678769554991588875123240749976, +1.56593507722971174386639216361077199, +1.81496267434889191925171245090595520, +1.55661296431026995167882249488658979, +1.36384250784870392270337712669962447, +1.47776870207464194001505898999931323, +1.87492521286495130811095948786920237, +1.62100124414575464145826486469006435, +1.88227816914316385069974353457655283, +1.19172275388712181333040647285057404, +1.19428821498628068718433261686952349, +1.42303967459926628403225274129786154, +1.08617098769632110163087342264201040, +1.70243097453157592311725630799941922, +1.87984383816308483115808908243623712, +1.35399931806586654856810183572113085, +1.61835059542364252039288242282341246, +1.42787465782982531989537201285893408, +1.94281366247847245202793761980161192, +1.61555265040150170257884688653511924, +1.06401227546700351107872546106828443, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.770371977754894341222391177033970927E-33, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.577778983316170755916793382775478196E-33, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.770371977754894341222391177033970927E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33
96reltol = sqrt(epsilon(1._TKG))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+85
106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
107data
108(+1.53730917, +0.552757859), (+1.86476421, +0.607187867), (+1.39454448, +0.999031901), (+1.61414731, +0.478746414), (+1.33962440, +0.786300480), (+1.58029473, +0.425987065), (+1.82241583, +0.860036671), (+1.05366254, +0.456504941), (+1.43191779, +0.925474584), (+1.80930877, +0.452152252), (+1.07634306, +0.658458650), (+1.03928423, +0.324842989), (+1.78253388, +0.968407273), (+1.30897796, +0.479756176), (+1.24040997, +0.819006681), (+1.75574398, +0.600638032), (+1.48892260, +0.320552528), (+1.50949681, +0.796468437), (+1.92231178, +0.970785022), (+1.18622255, +0.608777642), (+1.07193804, +0.617640376), (+1.86595058, +0.681293666), (+1.23348725, +0.209468484), (+1.27818179, +0.130626917), (+1.19300699, +0.585137486), (+1.87911367, +0.822006881), (+1.24563599, +0.176958501), (+1.28347254, +0.570833206), (+1.17658329, +0.298892677), (+1.44902039, +0.442345798), (+1.33140600, +0.866132438), (+1.15024400, +0.857797742), (+1.80208111, +0.469102502), (+1.63313210, +0.888232946), (+1.63169098, +0.460010946), (+1.92481983, +0.505959988E-2), (+1.03838420, +0.929755926), (+1.41003561, +0.238068223), (+1.89865351, +0.217349827), (+1.86045337, +0.442337334), (+1.88452625, +0.943017423), (+1.49277592, +0.125891447), (+1.61910486, +0.166245878), (+1.00701571, +0.144202173), (+1.39001369, +0.998981297), (+1.60776520, +0.445928633), (+1.11456347, +0.557511210), (+1.84601867, +0.406430364), (+1.19664717, +0.290824771E-1), (+1.87476969, +0.424663663), (+1.78215051, +0.393567801), (+1.55192924, +0.594629347), (+1.67648888, +0.860163450), (+1.55469954, +0.658135533), (+1.27724528, +0.198670149), (+1.52062023, +0.895930052), (+1.14452624, +0.833901465), (+1.06364560, +0.813340127), (+1.08336723, +0.518783510), (+1.06680870, +0.611860931), (+1.09323704, +0.670576632), (+1.19246960, +0.442652702), (+1.53183961, +0.783014655), (+1.46032059, +0.422174633), (+1.94743121, +0.820859432), (+1.64018321, +0.457493782), (+1.82028079, +0.238608539), (+1.44680965, +0.439619839), (+1.64453506, +0.612937272), (+1.39791656, +0.616103947), (+1.04343367, +0.294214308), (+1.65407038, +0.760631323), (+1.79673541, +0.423682213), (+1.01381481, +0.165858448), (+1.95899010, +0.319935858), (+1.26035619, +0.140660107), (+1.84246480, +0.907017291), (+1.75259709, +0.568217933), (+1.15829539, +0.899282396), (+1.32862270, +0.421553969), (+1.83928978, +0.937442720), (+1.43585324, +0.830935717), (+1.72537506, +0.238141894), (+1.64842653, +0.886315703), (+1.93303943, +0.725572050)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.53730929, +0.552757859), (+1.86476421, +0.607187986), (+1.39454412, +0.999031901), (+1.61414742, +0.478746414), (+1.33962429, +0.786300361), (+1.58029473, +0.425986946), (+1.82241559, +0.860036492), (+1.05366242, +0.456504762), (+1.43191779, +0.925474644), (+1.80930877, +0.452152431), (+1.07634294, +0.658458710), (+1.03928435, +0.324843109), (+1.78253388, +0.968407273), (+1.30897796, +0.479756176), (+1.24040997, +0.819006801), (+1.75574410, +0.600638032), (+1.48892260, +0.320552588), (+1.50949693, +0.796468496), (+1.92231178, +0.970784903), (+1.18622267, +0.608777583), (+1.07193804, +0.617640376), (+1.86595058, +0.681293666), (+1.23348713, +0.209468514), (+1.27818179, +0.130626917), (+1.19300699, +0.585137606), (+1.87911344, +0.822007060), (+1.24563587, +0.176958591), (+1.28347254, +0.570833266), (+1.17658329, +0.298892707), (+1.44902039, +0.442345917), (+1.33140576, +0.866132498), (+1.15024400, +0.857797623), (+1.80208135, +0.469102323), (+1.63313222, +0.888232768), (+1.63169098, +0.460010886), (+1.92481983, +0.505937636E-2), (+1.03838432, +0.929755747), (+1.41003561, +0.238067970), (+1.89865327, +0.217349559), (+1.86045337, +0.442337006), (+1.88452625, +0.943017364), (+1.49277580, +0.125891432), (+1.61910498, +0.166245803), (+1.00701582, +0.144202068), (+1.39001346, +0.998981118), (+1.60776520, +0.445928574), (+1.11456347, +0.557511091), (+1.84601879, +0.406430244), (+1.19664717, +0.290823877E-1), (+1.87476969, +0.424663544), (+1.78215063, +0.393567592), (+1.55192924, +0.594629109), (+1.67648864, +0.860163212), (+1.55469942, +0.658135235), (+1.27724504, +0.198669910), (+1.52062011, +0.895929754), (+1.14452624, +0.833901286), (+1.06364536, +0.813340068), (+1.08336699, +0.518783271), (+1.06680846, +0.611860633), (+1.09323692, +0.670576334), (+1.19246960, +0.442652643), (+1.53183961, +0.783014476), (+1.46032047, +0.422174633), (+1.94743121, +0.820859432), (+1.64018321, +0.457493782), (+1.82028079, +0.238608271), (+1.44680977, +0.439619541), (+1.64453518, +0.612937152), (+1.39791667, +0.616103828), (+1.04343367, +0.294214129), (+1.65407050, +0.760631144), (+1.79673517, +0.423682302), (+1.01381469, +0.165858343), (+1.95898998, +0.319935799), (+1.26035607, +0.140660018), (+1.84246445, +0.907017350), (+1.75259697, +0.568218052), (+1.15829551, +0.899282336), (+1.32862270, +0.421554118), (+1.83928967, +0.937442660), (+1.43585300, +0.830935478), (+1.72537518, +0.238141537), (+1.64842665, +0.886315286), (+1.93303943, +0.725571871), (+0.178813934E-6, -0.596046448E-7), (+0.298023224E-6, +0.521540642E-7), (+0.417232513E-6, +0.149011612E-6), (+0.00000000, -0.208616257E-6), (-0.596046448E-7, -0.178813934E-6), (+0.119209290E-6, -0.670552254E-7), (+0.178813934E-6, -0.119209290E-6), (+0.596046448E-7, -0.298023224E-7), (+0.00000000, -0.163912773E-6), (+0.119209290E-6, -0.208616257E-6), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.163912773E-6), (+0.00000000, +0.596046448E-7), (+0.238418579E-6, +0.283122063E-6), (+0.357627869E-6, +0.253319740E-6), (+0.119209290E-6, +0.298023224E-6), (+0.119209290E-6, +0.253319740E-6), (+0.596046448E-7, +0.327825546E-6), (+0.00000000, +0.327825546E-6), (-0.596046448E-7, +0.00000000), (+0.238418579E-6, -0.149011612E-7), (+0.119209290E-6, +0.223517418E-6), (+0.357627869E-6, +0.134110451E-6), (-0.596046448E-7, +0.119209290E-6), (+0.00000000, +0.119209290E-6), (+0.178813934E-6, +0.894069672E-7), (+0.596046448E-7, +0.119209290E-6), (+0.298023224E-6, +0.298023224E-7), (+0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, +0.268220901E-6), (+0.476837158E-6, +0.178813934E-6), (-0.596046448E-7, +0.119209290E-6), (+0.596046448E-7, +0.298023224E-6), (+0.119209290E-6, +0.320374966E-6), (+0.178813934E-6, +0.298023224E-6), (+0.298023224E-6, -0.298023224E-7), (+0.238418579E-6, -0.298023224E-7), (+0.119209290E-6, +0.178813934E-6), (+0.298023224E-6, +0.149011612E-6), (+0.596046448E-7, -0.298023224E-7), (+0.298023224E-6, -0.149011612E-7), (-0.178813934E-6, +0.238418579E-6), (+0.178813934E-6, +0.596046448E-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, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+76
123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
124data
125(+1.6767387192635101, +0.42932552843126681), (+1.1583875725710846, +0.92300337165809232), (+1.4259831270749768, +0.59566839772686886), (+1.0950733466109850, +0.34783794281675529), (+1.1964985919805962, +0.23814606985835318), (+1.8556053645083062, +0.20833962996279165), (+1.3264858312525742, +0.13593756277965319), (+1.8495254018098461, +0.21400898302638283), (+1.5989159691462809, +0.81914661277516598), (+1.8048593716091235, +0.57870173021058491), (+1.1157223329555590, +0.80162211891056101), (+1.5716126467643350, +0.38957002409060038), (+1.6817951800719826, +0.72032265877816093), (+1.4204370833541367, +0.44423910810029898), (+1.9438643175854753, +0.28794472631384926), (+1.8491302026489138, +0.10186735786527790), (+1.0238991502749220, +0.11424782196835015), (+1.8550884158786354, +0.25307730839424214), (+1.8242776853330656, +0.51967748519563983E-1), (+1.7512485384608103, +0.98157274233061786), (+1.4190951434018193, +0.86991303745897741), (+1.1139901037418078, +0.49396254909035864), (+1.4732401936376900, +0.80662051531545453), (+1.3569229360162280, +0.43047308185050304), (+1.3867176758409943, +0.39905481048380465), (+1.1512917308359554, +0.37041752642685644), (+1.2222514190783826, +0.45782449647045864), (+1.8436843076761114, +0.71835407907164750), (+1.9117409221831665, +0.32328938362351822), (+1.2112569136493603, +0.70561462955737797), (+1.5149873802927907, +0.82815522171008893), (+1.1422241181966384, +0.63269083524242831), (+1.0426961157120278, +0.83195798878920324), (+1.4470424805690483, +0.50314543648932597), (+1.1411154881026477, +0.88225159319781077), (+1.4961987600393309, +0.37687743233824289), (+1.9132435020561429, +0.94108896127836905E-2), (+1.6710968335119731, +0.88853279286689246), (+1.8507322006007927, +0.90202365900547565), (+1.8445790745158621, +0.72294029350192479), (+1.7116827664823386, +0.39156718790892675), (+1.0719900149418344, +0.72770686274817942), (+1.8009547824990881, +0.53507470641922950), (+1.8810165816010589, +0.83921129917339665), (+1.0490680721678640, +0.67671360916480994), (+1.7611812991256195, +0.91813422282546742), (+1.4967924439057567, +0.41904723012550471), (+1.5954494287944097, +0.89241196780776866), (+1.4757754461033139, +0.18006862534455803), (+1.2248360846024293, +0.66561945018796631), (+1.8515433228363709, +0.99554770569755435), (+1.3712152800487174, +0.95539519520582361), (+1.7275657736329650, +0.74661102686129643), (+1.1649149561740699, +0.57093614633504031), (+1.5555935773915284, +0.15561464703747507), (+1.2027170140261796, +0.55828346322025557), (+1.8658939481491195, +0.23101508282293248), (+1.5092614430109967, +0.19053988485033180), (+1.2930398471666231, +0.54351603696688566), (+1.6509528681878667, +0.91064577774905897), (+1.8753665972974363, +0.69265740521673225E-1), (+1.1833045830263864, +0.54231542893690710), (+1.2574858188086577, +0.98894875350775946), (+1.3191827404688952, +0.45836405780740819), (+1.9063528848367444, +0.31243675857390607), (+1.6223276400468958, +0.55096751311556336), (+1.1855843818002980, +0.36564799038721796), (+1.0727005409441968, +0.98991356019913201), (+1.6666332596397242, +0.58146239065736238), (+1.2273473957956846, +0.85111453170234730), (+1.2960139779827142, +0.15309293893522025), (+1.1178166868935544, +0.30540966409188697), (+1.1189120407232012, +0.31750855763880415), (+1.7716153502694194, +0.84505797217783629), (+1.4666171562590176, +0.86744811813362899), (+1.4307631921405206, +0.21148998980441414)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.6767387192635099, +0.42932552843126681), (+1.1583875725710846, +0.92300337165809265), (+1.4259831270749770, +0.59566839772686897), (+1.0950733466109848, +0.34783794281675567), (+1.1964985919805957, +0.23814606985835299), (+1.8556053645083059, +0.20833962996279182), (+1.3264858312525738, +0.13593756277965335), (+1.8495254018098459, +0.21400898302638333), (+1.5989159691462811, +0.81914661277516609), (+1.8048593716091237, +0.57870173021058535), (+1.1157223329555588, +0.80162211891056123), (+1.5716126467643352, +0.38957002409060093), (+1.6817951800719824, +0.72032265877816082), (+1.4204370833541362, +0.44423910810029948), (+1.9438643175854748, +0.28794472631384960), (+1.8491302026489134, +0.10186735786527865), (+1.0238991502749220, +0.11424782196835023), (+1.8550884158786349, +0.25307730839424247), (+1.8242776853330653, +0.51967748519563983E-1), (+1.7512485384608096, +0.98157274233061820), (+1.4190951434018191, +0.86991303745897719), (+1.1139901037418074, +0.49396254909035864), (+1.4732401936376895, +0.80662051531545442), (+1.3569229360162276, +0.43047308185050309), (+1.3867176758409943, +0.39905481048380459), (+1.1512917308359552, +0.37041752642685666), (+1.2222514190783826, +0.45782449647045875), (+1.8436843076761107, +0.71835407907164783), (+1.9117409221831663, +0.32328938362351822), (+1.2112569136493596, +0.70561462955737808), (+1.5149873802927902, +0.82815522171008871), (+1.1422241181966379, +0.63269083524242842), (+1.0426961157120278, +0.83195798878920302), (+1.4470424805690483, +0.50314543648932597), (+1.1411154881026482, +0.88225159319781088), (+1.4961987600393303, +0.37687743233824300), (+1.9132435020561429, +0.94108896127832187E-2), (+1.6710968335119731, +0.88853279286689246), (+1.8507322006007931, +0.90202365900547532), (+1.8445790745158617, +0.72294029350192468), (+1.7116827664823386, +0.39156718790892658), (+1.0719900149418344, +0.72770686274817942), (+1.8009547824990886, +0.53507470641922938), (+1.8810165816010584, +0.83921129917339676), (+1.0490680721678642, +0.67671360916481005), (+1.7611812991256195, +0.91813422282546742), (+1.4967924439057565, +0.41904723012550465), (+1.5954494287944092, +0.89241196780776832), (+1.4757754461033139, +0.18006862534455795), (+1.2248360846024293, +0.66561945018796598), (+1.8515433228363714, +0.99554770569755391), (+1.3712152800487167, +0.95539519520582339), (+1.7275657736329650, +0.74661102686129599), (+1.1649149561740699, +0.57093614633504008), (+1.5555935773915279, +0.15561464703747466), (+1.2027170140261794, +0.55828346322025513), (+1.8658939481491195, +0.23101508282293243), (+1.5092614430109965, +0.19053988485033180), (+1.2930398471666231, +0.54351603696688544), (+1.6509528681878662, +0.91064577774905842), (+1.8753665972974360, +0.69265740521672906E-1), (+1.1833045830263864, +0.54231542893690665), (+1.2574858188086577, +0.98894875350775879), (+1.3191827404688949, +0.45836405780740763), (+1.9063528848367444, +0.31243675857390607), (+1.6223276400468953, +0.55096751311556347), (+1.1855843818002982, +0.36564799038721807), (+1.0727005409441961, +0.98991356019913201), (+1.6666332596397240, +0.58146239065736238), (+1.2273473957956842, +0.85111453170234741), (+1.2960139779827142, +0.15309293893522036), (+1.1178166868935546, +0.30540966409188669), (+1.1189120407232009, +0.31750855763880431), (+1.7716153502694192, +0.84505797217783629), (+1.4666171562590173, +0.86744811813362888), (+1.4307631921405199, +0.21148998980441369), (+0.0000000000000000, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.58286708792820718E-15), (-0.22204460492503131E-15, -0.27755575615628914E-16), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.44408920985006262E-15, +0.0000000000000000), (+0.0000000000000000, -0.27755575615628914E-15), (+0.0000000000000000, +0.16653345369377348E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.0000000000000000, -0.33306690738754696E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.38857805861880479E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.44408920985006262E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.11102230246251565E-15), (-0.44408920985006262E-15, +0.47184478546569153E-15), (-0.33306690738754696E-15, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.49960036108132044E-15), (+0.0000000000000000, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.44408920985006262E-15, +0.16653345369377348E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (-0.33306690738754696E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.33306690738754696E-15), (-0.33306690738754696E-15, +0.27755575615628914E-16), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.47184478546569153E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.22204460492503131E-15, +0.13877787807814457E-16), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.61062266354383610E-15), (+0.0000000000000000, +0.45796699765787707E-15), (-0.11102230246251565E-15, +0.77715611723760958E-15), (+0.33306690738754696E-15, +0.94368957093138306E-15), (+0.22204460492503131E-15, +0.99920072216264089E-15)
130reltol = sqrt(epsilon(1._TKG))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+16
140data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
141data
142(+1.57726652292934050945529075233428145, +0.830204704527024103090178855159172887), (+1.37957186467125996168836868880090262, +0.343426444974181975234156763943224521), (+1.85812649614688606480233812581543721, +0.440804216225192435250396074906072717), (+1.27979588176641257041980481667459141, +0.597894342600713072341773496185475828), (+1.94922001795737827333720706098040208, +0.501869510069804550909224881067970073), (+1.12963136434179078171228226239876065, +0.604097180172558149669887002661644773), (+1.80030820880033613137491163474777778, +0.384926495359088703668022196772783963E-1), (+1.52842938694519476315379239367067750, +0.354146302935479851314203220430959100), (+1.19870929471862570077323888723276417, +0.107200214621809658011185286895977027E-2), (+1.65839590496305909745565782748633315, +0.760258047853360182585752054537360421), (+1.20071838164543188689466771795530506, +0.718164278630413960574105649433387177), (+1.13517224064020784620408637240663175, +0.734282539802132288296265015487638593), (+1.86299442630397157793017290116114792, +0.975026172235133455955968673075026524), (+1.56213331124525153636981832204687163, +0.340509060594335034029087885935138624), (+1.57367695854878653900391273535475530, +0.658883441254278576070220855163157482), (+1.82698839303993313329212849149169594, +0.804099159477345313774065642583291313E-1)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.57726652292934050945529075233428165, +0.830204704527024103090178855159172887), (+1.37957186467125996168836868880090262, +0.343426444974181975234156763943224521), (+1.85812649614688606480233812581543721, +0.440804216225192435250396074906072669), (+1.27979588176641257041980481667459141, +0.597894342600713072341773496185475828), (+1.94922001795737827333720706098040189, +0.501869510069804550909224881067970073), (+1.12963136434179078171228226239876045, +0.604097180172558149669887002661644870), (+1.80030820880033613137491163474777778, +0.384926495359088703668022196772783482E-1), (+1.52842938694519476315379239367067750, +0.354146302935479851314203220430959196), (+1.19870929471862570077323888723276437, +0.107200214621809658011185286895977027E-2), (+1.65839590496305909745565782748633315, +0.760258047853360182585752054537360518), (+1.20071838164543188689466771795530506, +0.718164278630413960574105649433387177), (+1.13517224064020784620408637240663175, +0.734282539802132288296265015487638593), (+1.86299442630397157793017290116114792, +0.975026172235133455955968673075026524), (+1.56213331124525153636981832204687182, +0.340509060594335034029087885935138479), (+1.57367695854878653900391273535475549, +0.658883441254278576070220855163157674), (+1.82698839303993313329212849149169594, +0.804099159477345313774065642583291554E-1)
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
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+55
157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
158data
159+1.47122252, +1.92607975, +1.08517969, +1.43413019, +1.50590253, +1.28063202, +1.75915825, +1.93956351, +1.82554805, +1.43858957, +1.55982876, +1.81981349, +1.63461637, +1.22670650, +1.39454365, +1.11916542, +1.54356468, +1.23518181, +1.16409922, +1.35400772, +1.38990605, +1.01927888, +1.57909060, +1.51817071, +1.53266835, +1.64901948, +1.50222158, +1.32960999, +1.62983465, +1.27673793, +1.05373812, +1.67927897, +1.79175258, +1.42552435, +1.64577031, +1.54061508, +1.17747378, +1.90640426, +1.64315510, +1.07217884, +1.09521103, +1.92866087, +1.53494561, +1.35766625, +1.96865106, +1.98818266, +1.30753469, +1.65594101, +1.97603965, +1.72323179, +1.87419939, +1.16441488, +1.87278891, +1.57243764, +1.36312068
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.47122264, +1.92607975, +1.08517969, +1.43413007, +1.50590241, +1.28063214, +1.75915813, +1.93956351, +1.82554817, +1.43858957, +1.55982876, +1.81981325, +1.63461637, +1.22670650, +1.39454389, +1.11916518, +1.54356468, +1.23518193, +1.16409922, +1.35400772, +1.38990593, +1.01927900, +1.57909060, +1.51817083, +1.53266823, +1.64901948, +1.50222158, +1.32960987, +1.62983441, +1.27673817, +1.05373836, +1.67927873, +1.79175282, +1.42552447, +1.64577043, +1.54061496, +1.17747366, +1.90640414, +1.64315510, +1.07217884, +1.09521127, +1.92866087, +1.53494573, +1.35766602, +1.96865106, +1.98818254, +1.30753493, +1.65594077, +1.97603977, +1.72323191, +1.87419963, +1.16441464, +1.87278867, +1.57243752, +1.36312056, -0.238418579E-6, +0.119209290E-6, +0.178813934E-6, +0.178813934E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.178813934E-6, +0.119209290E-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
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+11
174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
175data
176+1.9261448736384401, +1.1973056202705363, +1.4923712252489434, +1.2900945814663398, +1.1729462786591671, +1.1383536989245568, +1.6687266213703893, +1.9135356256464398, +1.9446741745753666, +1.6396480521991839, +1.9184456960198388
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.9261448736384403, +1.1973056202705363, +1.4923712252489436, +1.2900945814663400, +1.1729462786591673, +1.1383536989245568, +1.6687266213703897, +1.9135356256464395, +1.9446741745753668, +1.6396480521991839, +1.9184456960198391, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.44408920985006262E-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
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+27
191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
192data
193+1.95311640951898550184383924728113923, +1.44157674361448106860615691324227713, +1.84407583282219080199751042053950379, +1.10569613560145700033921249791704828, +1.80986614030952950409263337333919381, +1.77221214047817544937388003591318169, +1.20078034474982031673589908148196009, +1.08926474034804796843439214880265417, +1.65887366394768905712130602230202132, +1.14609807607982937900064649908930408, +1.09184021476310596059824170147794542, +1.84299673222604319748631732433799343, +1.62335546509669328259758311311871789, +1.60226079580287732363771574499296818, +1.49514950070054079816643703933957689, +1.98890160835393580655119689207799539, +1.20535605048468836034083042513466716, +1.42155264879742529069689742791589930, +1.31425249839982517175902870495886057, +1.37017270433147446622393685498499296, +1.62579094538965579304351632782673099, +1.23794818704671937273472942903097151, +1.21330943333699581965472070976791961, +1.38443904578351994369140502215850609, +1.21022565972722961087142829484135549, +1.88744107757914899529030910513009478, +1.93855114899723997708086312524376576
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.95311640951898550184383924728113961, +1.44157674361448106860615691324227675, +1.84407583282219080199751042053950418, +1.10569613560145700033921249791704828, +1.80986614030952950409263337333919400, +1.77221214047817544937388003591318169, +1.20078034474982031673589908148196028, +1.08926474034804796843439214880265398, +1.65887366394768905712130602230202152, +1.14609807607982937900064649908930331, +1.09184021476310596059824170147794580, +1.84299673222604319748631732433799324, +1.62335546509669328259758311311871828, +1.60226079580287732363771574499296799, +1.49514950070054079816643703933957728, +1.98890160835393580655119689207799539, +1.20535605048468836034083042513466754, +1.42155264879742529069689742791589892, +1.31425249839982517175902870495886057, +1.37017270433147446622393685498499296, +1.62579094538965579304351632782673138, +1.23794818704671937273472942903097113, +1.21330943333699581965472070976791942, +1.38443904578351994369140502215850589, +1.21022565972722961087142829484135549, +1.88744107757914899529030910513009459, +1.93855114899723997708086312524376595, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-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
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+91
208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
209data
210(+1.07983959, +0.630335689), (+1.71237516, +0.418601036E-1), (+1.52135074, +0.423669577), (+1.12022769, +0.797702312), (+1.07081771, +0.545267642), (+1.14155173, +0.549410999), (+1.81291699, +0.874461830), (+1.57097125, +0.787563801), (+1.37003851, +0.269111514), (+1.18977070, +0.856553972), (+1.89066267, +0.544327915), (+1.73630798, +0.200009823), (+1.12987757, +0.658374310), (+1.19665849, +0.589150429), (+1.60389018, +0.911138237), (+1.61678839, +0.770649314), (+1.19235969, +0.514435112), (+1.13561642, +0.511130095), (+1.38153660, +0.195582926), (+1.36328745, +0.580163658), (+1.10192370, +0.770789564), (+1.60191596, +0.101992369), (+1.09662378, +0.561181664), (+1.27752316, +0.595307946), (+1.41630518, +0.953709364), (+1.34976637, +0.174456358), (+1.28772569, +0.371823549), (+1.74919724, +0.579932153), (+1.59540772, +0.939250290), (+1.23106194, +0.638923943), (+1.36984062, +0.184380472), (+1.62782693, +0.802172959), (+1.86241937, +0.986698687), (+1.39611053, +0.470109224), (+1.88065886, +0.191601634), (+1.01267958, +0.134468675E-1), (+1.62518382, +0.369480968), (+1.80693579, +0.987901986), (+1.81500065, +0.189209998), (+1.53593898, +0.658562779), (+1.96773601, +0.141061127), (+1.24675035, +0.503003597E-3), (+1.64829707, +0.913035274E-1), (+1.48807430, +0.710638881), (+1.55211759, +0.558248758), (+1.76117265, +0.797570765), (+1.30234671, +0.533652008), (+1.87516737, +0.997749329), (+1.46609962, +0.730415165), (+1.57831562, +0.692111254E-2), (+1.24530697, +0.161372662), (+1.52202511, +0.116788208), (+1.33005118, +0.823205531), (+1.35989404, +0.569198787), (+1.37033999, +0.923017561), (+1.35213208, +0.270926595), (+1.71092176, +0.519293785), (+1.86627030, +0.264100075), (+1.78519344, +0.550131500), (+1.24945760, +0.133599401), (+1.88120532, +0.911319256E-1), (+1.22484314, +0.395163596), (+1.55888486, +0.754437506), (+1.75210714, +0.162713945), (+1.14611053, +0.781226277), (+1.78294373, +0.356699944), (+1.56188083, +0.115391135), (+1.05385017, +0.431187212), (+1.51165342, +0.870274127), (+1.88649786, +0.303626418), (+1.36865449, +0.789431930), (+1.10467052, +0.331969857), (+1.48488235, +0.635261476), (+1.27380681, +0.339945257), (+1.36358976, +0.426965714), (+1.02308869, +0.889700830), (+1.32228947, +0.155058682), (+1.94941497, +0.108095586), (+1.00957131, +0.610649586E-1), (+1.22220385, +0.561799228), (+1.90178990, +0.340804100), (+1.94036794, +0.186728537), (+1.19692469, +0.493540287), (+1.24683380, +0.172020853), (+1.94800377, +0.325413287), (+1.09677720, +0.155486286), (+1.96143866, +0.905144691), (+1.08966720, +0.279828310), (+1.89787412, +0.222221613), (+1.77757430, +0.810829282), (+1.78554368, +0.356839240)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.07983959, +0.630335569), (+1.71237504, +0.418603867E-1), (+1.52135026, +0.423669517), (+1.12022758, +0.797702372), (+1.07081747, +0.545267582), (+1.14155173, +0.549410999), (+1.81291664, +0.874461591), (+1.57097125, +0.787563741), (+1.37003851, +0.269111514), (+1.18977070, +0.856554031), (+1.89066279, +0.544327915), (+1.73630786, +0.200010061), (+1.12987757, +0.658374369), (+1.19665861, +0.589150667), (+1.60389030, +0.911138177), (+1.61678839, +0.770649314), (+1.19235969, +0.514435112), (+1.13561630, +0.511130095), (+1.38153660, +0.195582867), (+1.36328733, +0.580163717), (+1.10192347, +0.770789504), (+1.60191584, +0.101992466), (+1.09662378, +0.561181664), (+1.27752304, +0.595307887), (+1.41630507, +0.953709364), (+1.34976661, +0.174456537), (+1.28772593, +0.371823788), (+1.74919701, +0.579932451), (+1.59540761, +0.939250350), (+1.23106217, +0.638923943), (+1.36984062, +0.184380621), (+1.62782705, +0.802172899), (+1.86241937, +0.986698449), (+1.39611053, +0.470109105), (+1.88065886, +0.191601455), (+1.01267970, +0.134468898E-1), (+1.62518358, +0.369480819), (+1.80693579, +0.987901688), (+1.81500065, +0.189209729), (+1.53593910, +0.658562481), (+1.96773589, +0.141061097), (+1.24675035, +0.502809882E-3), (+1.64829731, +0.913034081E-1), (+1.48807406, +0.710638881), (+1.55211759, +0.558248520), (+1.76117277, +0.797570705), (+1.30234683, +0.533651829), (+1.87516761, +0.997749209), (+1.46609962, +0.730415046), (+1.57831550, +0.692094862E-2), (+1.24530709, +0.161372557), (+1.52202511, +0.116788283), (+1.33005118, +0.823205471), (+1.35989404, +0.569198668), (+1.37033987, +0.923017502), (+1.35213208, +0.270926535), (+1.71092165, +0.519293785), (+1.86627018, +0.264100015), (+1.78519344, +0.550131321), (+1.24945736, +0.133599371), (+1.88120508, +0.911317617E-1), (+1.22484303, +0.395163357), (+1.55888474, +0.754437447), (+1.75210714, +0.162713915), (+1.14611042, +0.781226158), (+1.78294337, +0.356699944), (+1.56188071, +0.115391195), (+1.05385017, +0.431187093), (+1.51165342, +0.870274067), (+1.88649774, +0.303626418), (+1.36865461, +0.789431870), (+1.10467076, +0.331969798), (+1.48488235, +0.635261416), (+1.27380681, +0.339945287), (+1.36358988, +0.426965654), (+1.02308822, +0.889700890), (+1.32228947, +0.155058682), (+1.94941497, +0.108095646), (+1.00957119, +0.610649884E-1), (+1.22220373, +0.561799169), (+1.90178990, +0.340804040), (+1.94036770, +0.186728492), (+1.19692457, +0.493540287), (+1.24683368, +0.172020823), (+1.94800377, +0.325413197), (+1.09677744, +0.155486226), (+1.96143854, +0.905144572), (+1.08966732, +0.279828370), (+1.89787388, +0.222221583), (+1.77757418, +0.810829341), (+1.78554344, +0.356839180), (-0.596046448E-7, -0.208616257E-6), (+0.119209290E-6, -0.894069672E-7), (+0.178813934E-6, -0.596046448E-7), (+0.298023224E-6, -0.298023224E-7), (+0.119209290E-6, +0.119209290E-6), (-0.119209290E-6, +0.119209290E-6), (-0.596046448E-7, +0.163912773E-6), (+0.178813934E-6, +0.283122063E-6), (+0.119209290E-6, +0.156462193E-6), (+0.00000000, +0.268220901E-6), (+0.119209290E-6, +0.387430191E-6), (+0.119209290E-6, +0.268220901E-6), (+0.238418579E-6, +0.417232513E-6), (+0.00000000, -0.298023224E-7), (+0.178813934E-6, +0.745058060E-7), (+0.178813934E-6, +0.596046448E-7), (+0.238418579E-6, +0.119209290E-6), (+0.238418579E-6, +0.894069672E-7), (+0.298023224E-6, +0.208616257E-6), (+0.00000000, +0.149011612E-6), (+0.238418579E-6, +0.208616257E-6), (+0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, +0.253319740E-6), (+0.357627869E-6, +0.253319740E-6), (+0.238418579E-6, +0.253319740E-6), (+0.178813934E-6, +0.149011612E-6), (+0.238418579E-6, +0.178813934E-6), (+0.178813934E-6, +0.208616257E-6), (+0.298023224E-6, +0.283122063E-6), (+0.119209290E-6, -0.268220901E-6), (+0.476837158E-6, -0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.178813934E-6, +0.126659870E-6), (+0.178813934E-6, +0.163912773E-6), (+0.298023224E-6, +0.178813934E-6), (+0.00000000, +0.894069672E-7), (+0.238418579E-6, +0.141561031E-6)
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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+35
225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
226data
227(+1.6886372287398133, +0.94823389412718728E-1), (+1.5457421458728033, +0.21634315672651183), (+1.6410569756090618, +0.70871329793540683), (+1.5286815252649548, +0.12131653065501458E-1), (+1.0741188622287077, +0.56735334138073235), (+1.4750923883577509, +0.47197644460685861), (+1.0039451070755749, +0.44020864232021684), (+1.2819113188456133, +0.22165413506181497), (+1.3714194159968731, +0.36456305766478070E-1), (+1.8553083334418359, +0.18317121830584926), (+1.2828160664085710, +0.47710097466015078), (+1.6527106637369564, +0.89337017141947406), (+1.0251987055656786, +0.70371278468605691), (+1.9268065106778538, +0.66802202728327442), (+1.5386894489748342, +0.49542412889226162), (+1.1111545293634983, +0.93581557395527692), (+1.8645263260602207, +0.53069369331122085), (+1.8828877059858780, +0.66350795342454472), (+1.7006105555017168, +0.83944616712333442), (+1.8865850394674051, +0.23635671989560036), (+1.8113398190935215, +0.71375228837124527), (+1.4774172222944508, +0.90260282999684205), (+1.7592780859262884, +0.68311986317563500), (+1.5377103909437988, +0.20225652038427311), (+1.5537085416357816, +0.74843673198231864), (+1.4827427165643765, +0.20245224701034847E-1), (+1.5702332703027322, +0.78666117458332652), (+1.3430150752308050, +0.44904965385435947), (+1.6184036257412120, +0.53873823325167547), (+1.2040131432042189, +0.81403194641634302), (+1.8989456456379452, +0.96080600751076584), (+1.9091301909018525, +0.45485641276487021E-2), (+1.0488439520745687, +0.79323523975945942), (+1.1822610709498500, +0.65909769993454581), (+1.3466940360158806, +0.12268595565986029)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.6886372287398133, +0.94823389412718784E-1), (+1.5457421458728036, +0.21634315672651194), (+1.6410569756090612, +0.70871329793540694), (+1.5286815252649546, +0.12131653065501444E-1), (+1.0741188622287079, +0.56735334138073246), (+1.4750923883577511, +0.47197644460685872), (+1.0039451070755749, +0.44020864232021706), (+1.2819113188456130, +0.22165413506181492), (+1.3714194159968733, +0.36456305766478431E-1), (+1.8553083334418359, +0.18317121830584970), (+1.2828160664085706, +0.47710097466015122), (+1.6527106637369555, +0.89337017141947395), (+1.0251987055656784, +0.70371278468605725), (+1.9268065106778534, +0.66802202728327487), (+1.5386894489748335, +0.49542412889226195), (+1.1111545293634983, +0.93581557395527670), (+1.8645263260602207, +0.53069369331122052), (+1.8828877059858780, +0.66350795342454461), (+1.7006105555017166, +0.83944616712333398), (+1.8865850394674049, +0.23635671989560025), (+1.8113398190935217, +0.71375228837124505), (+1.4774172222944508, +0.90260282999684205), (+1.7592780859262884, +0.68311986317563456), (+1.5377103909437988, +0.20225652038427289), (+1.5537085416357814, +0.74843673198231830), (+1.4827427165643763, +0.20245224701034556E-1), (+1.5702332703027317, +0.78666117458332574), (+1.3430150752308050, +0.44904965385435913), (+1.6184036257412120, +0.53873823325167491), (+1.2040131432042187, +0.81403194641634258), (+1.8989456456379450, +0.96080600751076495), (+1.9091301909018519, +0.45485641276484523E-2), (+1.0488439520745687, +0.79323523975945931), (+1.1822610709498498, +0.65909769993454592), (+1.3466940360158806, +0.12268595565985985), (+0.22204460492503131E-15, -0.18041124150158794E-15), (-0.22204460492503131E-15, -0.33306690738754696E-15), (-0.22204460492503131E-15, -0.24980018054066022E-15), (+0.33306690738754696E-15, -0.24980018054066022E-15), (+0.11102230246251565E-15, -0.15265566588595902E-15), (+0.33306690738754696E-15, -0.30531133177191805E-15), (+0.0000000000000000, -0.20816681711721685E-15), (+0.44408920985006262E-15, -0.13877787807814457E-15), (+0.55511151231257827E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.55511151231257827E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.55511151231257827E-15, -0.19428902930940239E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.97144514654701197E-16), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.11102230246251565E-15, -0.13877787807814457E-16), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.26367796834847468E-15), (+0.0000000000000000, +0.99920072216264089E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.10547118733938987E-14), (+0.33306690738754696E-15, +0.69388939039072284E-15)
232reltol = sqrt(epsilon(1._TKG))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+44
242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
243data
244(+1.22963785281972293372228130027940274, +0.739917948447881436813816420799580823E-2), (+1.15854196443414701640062736971005277, +0.651509933127380997805525380463701776), (+1.27749791072538991026870732591489112, +0.406978185904948534370632226081384575), (+1.13673470698134582980899687899066809, +0.960285638135711069281213880795398479), (+1.79283344429552121025453357548706975, +0.751772206196254292899647499893981846), (+1.81149047695509109884848907810668504, +0.505254931005587694715551030490234071), (+1.19407769083567644931570152395071074, +0.401612119624515688830465919944829966), (+1.18245955288443580825287679651003939, +0.848149154057993538227003285910130400), (+1.69261724573704136540939148301610614, +0.865487191885211632522745760024381507), (+1.75465712788441419318502487646393274, +0.882842601292359554069837610625907607), (+1.26603892378536687426897103012084445, +0.286399799859431579484872123906974958), (+1.28358305723242009255436371100590565, +0.278310418758536999251611665648879033E-1), (+1.82982216813130369917821129272836383, +0.968074975116046657217533380823439720), (+1.04007429017013906470672408748007248, +0.802708650010535747471683869742959394E-1), (+1.87416606716453215459177413659754042, +0.182833107570092939737796571591882019), (+1.59299778275879834968944896419533743, +0.282981196464512981203015085706651619E-2), (+1.97514576880509335302337021996789862, +0.786492704715691858057144487659831873), (+1.13106033741967329914641093268237722, +0.345283350514117330999821390878516227E-1), (+1.78425943583692036948848595545966198, +0.546202648503768194258034507851251462), (+1.76705851118765435751025911120417772, +0.679706121517173588276804089999699833), (+1.20193236864930437400109338569170176, +0.906378980462215737713424398246778175), (+1.28008592920913422043194329902540624, +0.480857439584750192470492561832350927), (+1.02856627055464460554836417276947644, +0.725761800352547595686411247040633759), (+1.47450156286490615534935892810832456, +0.536419785718120500464249876025241686), (+1.83986196896074015780133629065105252, +0.364910390778301461377181607678768172), (+1.50689431927691701084654676155968513, +0.914592505625626951455816368536339470), (+1.82870836479462962803293485985339205, +0.888196385160708704812732761984334802), (+1.43348933138836152523085589864929053, +0.281309467039142360139205201135810333), (+1.47796543550624701814827611655526880, +0.970032414032119740919571657812635621), (+1.33849740054002662732230371738063896, +0.695515334573188408030919896876349319), (+1.14996330621225948193418420154785505, +0.397250603137398566272200548494330443), (+1.31718819007554101191150061667828080, +0.447780032476386246135159084316653862), (+1.03008053425823839490418754904126213, +0.568447603311013944899043253350570718), (+1.87984105097265627301193699848643511, +0.898094856516124023091736825172713201), (+1.36590922447213702924060190530125992, +0.235117309337137193115092238001556151), (+1.97979208152308558814610366650655291, +0.909574904705741564706318445597767316), (+1.14730743453788002733611084305920279, +0.943669711229115498562740995914009920), (+1.23825867253212234053708353170651314, +0.252426979477883267088555187614401993), (+1.33906554963348584355476359589153679, +0.262107622334133186186424326588218043), (+1.50771748860038259535883076390782525, +0.488608491077651988894610994593653576), (+1.93290378529554339712363195518341135, +0.103225890548426120196271728325942749), (+1.71257933745817768358834871495948925, +0.880814974331920820454253961019132064), (+1.41991000804881972287183918143736247, +0.186044308663153193317024581524896610), (+1.88874769055186256466922526698034158, +0.260155229782905984141681545043543161)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.22963785281972293372228130027940274, +0.739917948447881436813816420799590453E-2), (+1.15854196443414701640062736971005296, +0.651509933127380997805525380463701873), (+1.27749791072538991026870732591489132, +0.406978185904948534370632226081384672), (+1.13673470698134582980899687899066789, +0.960285638135711069281213880795398575), (+1.79283344429552121025453357548707033, +0.751772206196254292899647499893981654), (+1.81149047695509109884848907810668504, +0.505254931005587694715551030490234071), (+1.19407769083567644931570152395071093, +0.401612119624515688830465919944829773), (+1.18245955288443580825287679651003978, +0.848149154057993538227003285910130304), (+1.69261724573704136540939148301610633, +0.865487191885211632522745760024381699), (+1.75465712788441419318502487646393274, +0.882842601292359554069837610625907896), (+1.26603892378536687426897103012084483, +0.286399799859431579484872123906974958), (+1.28358305723242009255436371100590565, +0.278310418758536999251611665648882162E-1), (+1.82982216813130369917821129272836402, +0.968074975116046657217533380823440105), (+1.04007429017013906470672408748007229, +0.802708650010535747471683869742961079E-1), (+1.87416606716453215459177413659754080, +0.182833107570092939737796571591882019), (+1.59299778275879834968944896419533743, +0.282981196464512981203015085706681712E-2), (+1.97514576880509335302337021996789881, +0.786492704715691858057144487659831969), (+1.13106033741967329914641093268237741, +0.345283350514117330999821390878516047E-1), (+1.78425943583692036948848595545966217, +0.546202648503768194258034507851251269), (+1.76705851118765435751025911120417752, +0.679706121517173588276804089999699833), (+1.20193236864930437400109338569170195, +0.906378980462215737713424398246778271), (+1.28008592920913422043194329902540662, +0.480857439584750192470492561832350927), (+1.02856627055464460554836417276947682, +0.725761800352547595686411247040633856), (+1.47450156286490615534935892810832514, +0.536419785718120500464249876025241879), (+1.83986196896074015780133629065105271, +0.364910390778301461377181607678767979), (+1.50689431927691701084654676155968494, +0.914592505625626951455816368536339470), (+1.82870836479462962803293485985339224, +0.888196385160708704812732761984334417), (+1.43348933138836152523085589864929053, +0.281309467039142360139205201135810237), (+1.47796543550624701814827611655526880, +0.970032414032119740919571657812635525), (+1.33849740054002662732230371738063876, +0.695515334573188408030919896876349319), (+1.14996330621225948193418420154785544, +0.397250603137398566272200548494330346), (+1.31718819007554101191150061667828080, +0.447780032476386246135159084316653862), (+1.03008053425823839490418754904126232, +0.568447603311013944899043253350570718), (+1.87984105097265627301193699848643531, +0.898094856516124023091736825172713104), (+1.36590922447213702924060190530126011, +0.235117309337137193115092238001556151), (+1.97979208152308558814610366650655291, +0.909574904705741564706318445597767219), (+1.14730743453788002733611084305920279, +0.943669711229115498562740995914010209), (+1.23825867253212234053708353170651295, +0.252426979477883267088555187614402138), (+1.33906554963348584355476359589153718, +0.262107622334133186186424326588218236), (+1.50771748860038259535883076390782563, +0.488608491077651988894610994593653913), (+1.93290378529554339712363195518341154, +0.103225890548426120196271728325942557), (+1.71257933745817768358834871495948944, +0.880814974331920820454253961019131872), (+1.41991000804881972287183918143736285, +0.186044308663153193317024581524896634), (+1.88874769055186256466922526698034158, +0.260155229782905984141681545043542872), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.264815367353244929795196967105427506E-33), (+0.288889491658085377958396691387739098E-33, +0.601853107621011204079993107057789787E-34), (+0.192592994438723585305597794258492732E-33, -0.252778305200824705713597104964271711E-33), (+0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.174537401210093249183198001046759038E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.264815367353244929795196967105427506E-33), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.577778983316170755916793382775478196E-33, +0.433334237487128066937595037081608647E-33), (+0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-34), (+0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (+0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (+0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33)
249reltol = sqrt(epsilon(1._TKG))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+56
259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
260data
261+1.98491490, +1.36720634, +1.14870524, +1.67328978, +1.80910969, +1.42763638, +1.40103221, +1.34848261, +1.04895377, +1.72719741, +1.00178969, +1.06987023, +1.40303040, +1.71474373, +1.56299651, +1.41966736, +1.14252043, +1.75129545, +1.35374308, +1.80409873, +1.29989672, +1.74707913, +1.62188840, +1.14362776, +1.26911306, +1.10512221, +1.46552765, +1.60195923, +1.68957949, +1.58238101, +1.14934540, +1.98603296, +1.97589397, +1.34959686, +1.32419789, +1.17471647, +1.69181371, +1.28057754, +1.34535933, +1.70438957, +1.99793530, +1.70707488, +1.23748136, +1.76724267, +1.87774396, +1.67035282, +1.34422266, +1.71662831, +1.92030334, +1.59573936, +1.30768955, +1.37726450, +1.49708366, +1.28467464, +1.69966531, +1.22548640
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.98491478, +1.36720622, +1.14870512, +1.67328966, +1.80910957, +1.42763638, +1.40103221, +1.34848273, +1.04895365, +1.72719717, +1.00178945, +1.06987023, +1.40303028, +1.71474373, +1.56299639, +1.41966748, +1.14252043, +1.75129545, +1.35374296, +1.80409861, +1.29989672, +1.74707901, +1.62188828, +1.14362788, +1.26911306, +1.10512197, +1.46552730, +1.60195911, +1.68957925, +1.58238113, +1.14934516, +1.98603284, +1.97589374, +1.34959662, +1.32419789, +1.17471635, +1.69181359, +1.28057742, +1.34535933, +1.70438945, +1.99793518, +1.70707464, +1.23748124, +1.76724267, +1.87774384, +1.67035282, +1.34422231, +1.71662831, +1.92030311, +1.59573925, +1.30768955, +1.37726426, +1.49708366, +1.28467453, +1.69966519, +1.22548652, +0.596046448E-7, +0.119209290E-6, -0.596046448E-7, +0.238418579E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.119209290E-6
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
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+54
276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
277data
278+1.5060612163843214, +1.0811759737472419, +1.9874308402193011, +1.8839702936476614, +1.9833174466921490, +1.0267402234760223, +1.1573707091613326, +1.9628167422069922, +1.9786713332166057, +1.4794290108012356, +1.6293338036040921, +1.8443147917883107, +1.6488031994892505, +1.1546001613149361, +1.5692550313694693, +1.4904172675164538, +1.6455477458869305, +1.1092172295940783, +1.2558583382257891, +1.4170379692536614, +1.6671640515698840, +1.2164179790798038, +1.5098554866617455, +1.5268362702069296, +1.3081183556805351, +1.5670142394864026, +1.4000205741999596, +1.9033964362362865, +1.5427845736542833, +1.6831251966447676, +1.8062981065724448, +1.6773689859706480, +1.8054292165481278, +1.5086830925017893, +1.4436791861283658, +1.8458473015703647, +1.7982274359046340, +1.5445204881952790, +1.6933990384539821, +1.8399538827999078, +1.2972993334718397, +1.2202126282533903, +1.7375343138183377, +1.5225998039191864, +1.7808694089767456, +1.4630249491225031, +1.4086253780309446, +1.4833355952441476, +1.6625040925823762, +1.5728552116863885, +1.1570037310087340, +1.0820595366902601, +1.2245430550440295, +1.0595159950287298
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.5060612163843212, +1.0811759737472417, +1.9874308402193006, +1.8839702936476614, +1.9833174466921488, +1.0267402234760223, +1.1573707091613328, +1.9628167422069920, +1.9786713332166055, +1.4794290108012358, +1.6293338036040916, +1.8443147917883103, +1.6488031994892505, +1.1546001613149355, +1.5692550313694693, +1.4904172675164535, +1.6455477458869308, +1.1092172295940785, +1.2558583382257893, +1.4170379692536610, +1.6671640515698833, +1.2164179790798038, +1.5098554866617457, +1.5268362702069287, +1.3081183556805351, +1.5670142394864026, +1.4000205741999596, +1.9033964362362861, +1.5427845736542829, +1.6831251966447667, +1.8062981065724446, +1.6773689859706471, +1.8054292165481278, +1.5086830925017891, +1.4436791861283660, +1.8458473015703643, +1.7982274359046337, +1.5445204881952783, +1.6933990384539823, +1.8399538827999073, +1.2972993334718399, +1.2202126282533901, +1.7375343138183377, +1.5225998039191859, +1.7808694089767454, +1.4630249491225027, +1.4086253780309446, +1.4833355952441469, +1.6625040925823764, +1.5728552116863885, +1.1570037310087342, +1.0820595366902594, +1.2245430550440293, +1.0595159950287294, +0.88817841970012523E-15, -0.33306690738754696E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.22204460492503131E-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, 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+17
293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
294data
295+1.05126568085950535644670164449245470, +1.94894850769652708554179873904036942, +1.90592019549729122019159572323026131, +1.72845407850434800446130247833949172, +1.78195054421588874788142988855700101, +1.31417045554758513320114377675369461, +1.03888493679075297347017646916219956, +1.92056437494323596029626093751630288, +1.89240766208259003126859996376540033, +1.39982005455424447094207939487763693, +1.63986314740832377589740274719229441, +1.57707991584664865626289619371385773, +1.10538131058851945580245109703738839, +1.38289838147999918433827269028465192, +1.45088845830139160740268784403153412, +1.23399111807338198885265806840097493, +1.38107858695381563940217985632305664
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.05126568085950535644670164449245470, +1.94894850769652708554179873904036922, +1.90592019549729122019159572323026112, +1.72845407850434800446130247833949172, +1.78195054421588874788142988855700120, +1.31417045554758513320114377675369480, +1.03888493679075297347017646916219937, +1.92056437494323596029626093751630269, +1.89240766208259003126859996376540091, +1.39982005455424447094207939487763693, +1.63986314740832377589740274719229460, +1.57707991584664865626289619371385773, +1.10538131058851945580245109703738897, +1.38289838147999918433827269028465192, +1.45088845830139160740268784403153450, +1.23399111807338198885265806840097493, +1.38107858695381563940217985632305703, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34
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
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+86
310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
311data
312(+1.56856847, +0.836101830), (+1.21100938, +0.265890718), (+1.80098200, +0.894108951), (+1.81827593, +0.382784069), (+1.43006921, +0.984540343), (+1.79758191, +0.280053616E-1), (+1.86802125, +0.678307474), (+1.99984002, +0.138155699), (+1.11836624, +0.678881109), (+1.30158103, +0.943902671), (+1.79548037, +0.102143228), (+1.29427099, +0.177190721), (+1.42222595, +0.726261139E-1), (+1.34534633, +0.727895916), (+1.75128818, +0.376921773), (+1.52834249, +0.857717991E-1), (+1.48521304, +0.649339974), (+1.55230701, +0.848143637), (+1.62348366, +0.703572452), (+1.68908310, +0.641517878), (+1.10016644, +0.980680108), (+1.41233873, +0.275670826), (+1.46174026, +0.475531816E-2), (+1.15234435, +0.319119096), (+1.78976369, +0.895920575), (+1.03884196, +0.470021665), (+1.27458286, +0.777975798), (+1.32427716, +0.288528681), (+1.02277756, +0.683624625), (+1.72480595, +0.560737431), (+1.23477042, +0.648803413), (+1.11039162, +0.308145344), (+1.30356050, +0.373661995), (+1.03119612, +0.499673486E-1), (+1.78718591, +0.269405425), (+1.57182145, +0.115847409), (+1.12725663, +0.449857235), (+1.38470697, +0.789819360), (+1.09819746, +0.593388796), (+1.01346350, +0.344886184), (+1.39715624, +0.110533714), (+1.70432353, +0.972242355), (+1.09968328, +0.396227419), (+1.45080662, +0.424897909), (+1.66300178, +0.197383761), (+1.37049437, +0.407022297), (+1.37999904, +0.398128688), (+1.15525866, +0.676069856E-1), (+1.86246204, +0.489549100), (+1.44928646, +0.635313153), (+1.36041522, +0.797846854), (+1.85187221, +0.282447278), (+1.23081994, +0.552757204), (+1.27160931, +0.806796551), (+1.78619742, +0.389223456), (+1.17726421, +0.968928456), (+1.17633224, +0.628097713), (+1.32210803, +0.376444101), (+1.25822830, +0.548313856), (+1.52522457, +0.116231501), (+1.98093081, +0.343903303), (+1.79652047, +0.550033689), (+1.70415449, +0.726836979), (+1.70038104, +0.583684444), (+1.51122415, +0.759989858), (+1.63601184, +0.376853108), (+1.03573871, +0.292453229), (+1.23197114, +0.417370141), (+1.08477139, +0.687341273), (+1.13990927, +0.509679377), (+1.25971794, +0.109670341), (+1.66613495, +0.475879908), (+1.96074522, +0.125916839), (+1.08095944, +0.946364999), (+1.79672492, +0.333015084), (+1.26367664, +0.288224697), (+1.28864169, +0.127182543), (+1.53101850, +0.321566463), (+1.35174680, +0.748220384), (+1.86764431, +0.841587007), (+1.02159584, +0.173627615), (+1.91974401, +0.672469735), (+1.69213963, +0.981890321), (+1.76859045, +0.917503595), (+1.35954046, +0.586522758), (+1.86800957, +0.568215728)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.56856847, +0.836101949), (+1.21100938, +0.265890747), (+1.80098164, +0.894108891), (+1.81827581, +0.382783949), (+1.43006921, +0.984540343), (+1.79758179, +0.280051529E-1), (+1.86802113, +0.678307176), (+1.99983990, +0.138155580), (+1.11836648, +0.678881168), (+1.30158103, +0.943902791), (+1.79548037, +0.102143250), (+1.29427111, +0.177190825), (+1.42222595, +0.726262480E-1), (+1.34534633, +0.727895856), (+1.75128818, +0.376921713), (+1.52834272, +0.857717693E-1), (+1.48521304, +0.649340093), (+1.55230713, +0.848143756), (+1.62348366, +0.703572273), (+1.68908286, +0.641517818), (+1.10016632, +0.980680048), (+1.41233873, +0.275670946), (+1.46174014, +0.475510955E-2), (+1.15234423, +0.319119096), (+1.78976369, +0.895920753), (+1.03884196, +0.470021665), (+1.27458286, +0.777975857), (+1.32427704, +0.288528919), (+1.02277756, +0.683624625), (+1.72480583, +0.560737491), (+1.23477042, +0.648803413), (+1.11039162, +0.308145285), (+1.30356050, +0.373661935), (+1.03119612, +0.499671698E-1), (+1.78718591, +0.269405246), (+1.57182145, +0.115847304), (+1.12725651, +0.449857146), (+1.38470697, +0.789819241), (+1.09819758, +0.593388557), (+1.01346350, +0.344886035), (+1.39715624, +0.110533640), (+1.70432317, +0.972242236), (+1.09968328, +0.396227300), (+1.45080662, +0.424897879), (+1.66300178, +0.197383612), (+1.37049448, +0.407022178), (+1.37999916, +0.398128659), (+1.15525866, +0.676068217E-1), (+1.86246204, +0.489548951), (+1.44928634, +0.635313153), (+1.36041522, +0.797846556), (+1.85187209, +0.282447189), (+1.23081994, +0.552757084), (+1.27160943, +0.806796551), (+1.78619719, +0.389223129), (+1.17726421, +0.968928039), (+1.17633200, +0.628097534), (+1.32210791, +0.376443982), (+1.25822830, +0.548313618), (+1.52522445, +0.116231471), (+1.98093057, +0.343903303), (+1.79652023, +0.550033569), (+1.70415449, +0.726836920), (+1.70038080, +0.583684325), (+1.51122427, +0.759989798), (+1.63601172, +0.376852959), (+1.03573883, +0.292453140), (+1.23197114, +0.417370081), (+1.08477139, +0.687341332), (+1.13990915, +0.509679556), (+1.25971806, +0.109670281), (+1.66613519, +0.475879729), (+1.96074510, +0.125916958), (+1.08095920, +0.946365058), (+1.79672468, +0.333015025), (+1.26367652, +0.288224757), (+1.28864145, +0.127182618), (+1.53101838, +0.321566492), (+1.35174680, +0.748220384), (+1.86764431, +0.841587186), (+1.02159595, +0.173627570), (+1.91974401, +0.672469676), (+1.69213986, +0.981889963), (+1.76859021, +0.917503297), (+1.35954046, +0.586522758), (+1.86800957, +0.568215728), (+0.357627869E-6, +0.298023224E-7), (+0.298023224E-6, +0.00000000), (-0.596046448E-7, -0.119209290E-6), (+0.00000000, -0.238418579E-6), (+0.596046448E-7, -0.119209290E-6), (+0.00000000, -0.178813934E-6), (+0.00000000, -0.596046448E-7), (+0.178813934E-6, -0.894069672E-7), (-0.119209290E-6, -0.178813934E-6), (-0.596046448E-7, -0.178813934E-6), (+0.596046448E-7, +0.134110451E-6), (+0.596046448E-7, +0.00000000), (+0.238418579E-6, +0.372529030E-6), (+0.596046448E-7, +0.104308128E-6), (-0.119209290E-6, +0.268220901E-6), (-0.596046448E-7, +0.238418579E-6), (+0.119209290E-6, +0.208616257E-6), (+0.119209290E-6, +0.208616257E-6), (+0.596046448E-7, -0.447034836E-7), (+0.119209290E-6, -0.894069672E-7), (+0.119209290E-6, +0.208616257E-6), (+0.596046448E-7, +0.298023224E-7), (-0.178813934E-6, +0.149011612E-6), (+0.357627869E-6, +0.00000000), (+0.00000000, +0.894069672E-7), (+0.596046448E-7, +0.149011612E-7), (+0.238418579E-6, +0.208616257E-6), (+0.238418579E-6, +0.894069672E-7), (+0.417232513E-6, +0.238418579E-6), (+0.357627869E-6, +0.149011612E-6), (+0.596046448E-7, +0.238418579E-6), (+0.357627869E-6, -0.298023224E-7), (+0.178813934E-6, +0.268220901E-6), (+0.596046448E-7, +0.298023224E-6), (+0.298023224E-6, +0.298023224E-7), (+0.357627869E-6, -0.447034836E-7), (+0.00000000, +0.894069672E-7), (+0.178813934E-6, +0.335276127E-7), (+0.596046448E-7, +0.745058060E-7), (+0.417232513E-6, +0.149011612E-6), (-0.178813934E-6, +0.00000000), (-0.596046448E-7, +0.298023224E-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
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+79
327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
328data
329(+1.7995980155584075, +0.23460983837759797), (+1.7848148561289880, +0.11475805571918962), (+1.2838405915817126, +0.15745675642662604), (+1.1117422033797804, +0.99359577112041764), (+1.4594226994282544, +0.64030117417604826), (+1.3286346616633717, +0.84476386940298553), (+1.1110054254100650, +0.79920723665470439), (+1.8382461553575276, +0.60541581685908641), (+1.6833659865535990, +0.83207150593241685E-1), (+1.4863962554168830, +0.81802349996823898E-1), (+1.9671262134659551, +0.74749568291051782), (+1.2276067692880510, +0.15146120487271930E-1), (+1.2614349137775365, +0.69569864375502688), (+1.4204114817437996, +0.10988728873762899E-1), (+1.5340711136268284, +0.35957517312152698), (+1.2625193684730820, +0.34800595426651493), (+1.6639146611551576, +0.72659975083280148E-1), (+1.3737836661494605, +0.45914469541876080), (+1.1251638527437553, +0.71452793893532607), (+1.6296457761475596, +0.25286141012545671), (+1.8858194461162228, +0.33021612770945041), (+1.6320695458641408, +0.21180233167048779), (+1.4768778293163427, +0.96067688658042671), (+1.8271514753450948, +0.33725671718684846), (+1.1949225839589190, +0.33619196577455568), (+1.0591869982274220, +0.47631360627679376), (+1.6630454866175619, +0.65961477634987997), (+1.5491446668562436, +0.86732049190833937), (+1.3859476581252206, +0.71608660094356713), (+1.9246609211093704, +0.24344770499421087), (+1.5622422963427733, +0.28878776882052648), (+1.0819301540062287, +0.23699949897176809), (+1.5824821837841812, +0.89946559063703191), (+1.7304086445152891, +0.62336774654904303), (+1.1227026686126735, +0.46725997418243237E-2), (+1.4735376895079257, +0.19507876583900585), (+1.0671859146699014, +0.72460243750854658), (+1.4885671161707921, +0.69441357282764093), (+1.9933982243490096, +0.74617768626185921), (+1.8906428114883178, +0.39585787066685518), (+1.4129785332296971, +0.57260159666059263), (+1.2930868106088851, +0.15190389510588009), (+1.2759526940002786, +0.34521139761715980), (+1.0882066006559703, +0.10015844244681160), (+1.6381624357723217, +0.60726393847657389), (+1.5588176358554802, +0.19229952502357406), (+1.6318081035845458, +0.72610805250400601), (+1.8236692472299425, +0.81801414561236097), (+1.0997216560994918, +0.88926025779281281), (+1.4968623376823871, +0.23124037800876918), (+1.5950250720895855, +0.62827372174120144), (+1.3543445081047758, +0.38643151890466865), (+1.4629386886162159, +0.60967178054275650E-1), (+1.9548729650039069, +0.13368824040635607), (+1.8415136243177912, +0.12915969365445423), (+1.0748179248727543, +0.47373436054827467E-1), (+1.0388641081169876, +0.11151588892024822), (+1.1946081908959885, +0.71792522920463631), (+1.4769525363424381, +0.59208536962982572), (+1.3325741197024248, +0.32429867238001797), (+1.4313341156568167, +0.82778475098408377), (+1.7386175559635637, +0.18127570204807819), (+1.2673665504475600, +0.11446416020836958), (+1.5094596962972533, +0.49679070756170007), (+1.6666333746571591, +0.89501509692258874), (+1.9749834587388915, +0.13269933968378311), (+1.2995291644018354, +0.42398078800200745E-1), (+1.5157851499270065, +0.36052544449098012), (+1.6458709998665189, +0.67287568748951454), (+1.9871219142351566, +0.27473335146787170), (+1.3946375463306526, +0.74444753626429927), (+1.5409813337027392, +0.69863577920595055), (+1.2518768821938817, +0.63442924900303255), (+1.2308239697540917, +0.93336321892646235), (+1.4341840162028658, +0.86518956568488670), (+1.9373010621540514, +0.14646759658930453), (+1.6538356756660180, +0.52858482661923001), (+1.3661772710574931, +0.41460047364542518), (+1.1153673614736175, +0.46421993337503242)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.7995980155584073, +0.23460983837759802), (+1.7848148561289883, +0.11475805571918994), (+1.2838405915817126, +0.15745675642662621), (+1.1117422033797806, +0.99359577112041775), (+1.4594226994282544, +0.64030117417604826), (+1.3286346616633717, +0.84476386940298553), (+1.1110054254100648, +0.79920723665470450), (+1.8382461553575276, +0.60541581685908641), (+1.6833659865535993, +0.83207150593241741E-1), (+1.4863962554168835, +0.81802349996824120E-1), (+1.9671262134659551, +0.74749568291051816), (+1.2276067692880515, +0.15146120487272027E-1), (+1.2614349137775365, +0.69569864375502699), (+1.4204114817437996, +0.10988728873763370E-1), (+1.5340711136268279, +0.35957517312152704), (+1.2625193684730820, +0.34800595426651537), (+1.6639146611551574, +0.72659975083280148E-1), (+1.3737836661494605, +0.45914469541876080), (+1.1251638527437551, +0.71452793893532596), (+1.6296457761475596, +0.25286141012545671), (+1.8858194461162223, +0.33021612770945008), (+1.6320695458641405, +0.21180233167048781), (+1.4768778293163423, +0.96067688658042649), (+1.8271514753450941, +0.33725671718684830), (+1.1949225839589190, +0.33619196577455568), (+1.0591869982274220, +0.47631360627679387), (+1.6630454866175617, +0.65961477634987986), (+1.5491446668562436, +0.86732049190833937), (+1.3859476581252204, +0.71608660094356691), (+1.9246609211093699, +0.24344770499421070), (+1.5622422963427729, +0.28878776882052648), (+1.0819301540062285, +0.23699949897176820), (+1.5824821837841809, +0.89946559063703146), (+1.7304086445152893, +0.62336774654904292), (+1.1227026686126735, +0.46725997418239906E-2), (+1.4735376895079255, +0.19507876583900580), (+1.0671859146699014, +0.72460243750854636), (+1.4885671161707921, +0.69441357282764060), (+1.9933982243490096, +0.74617768626185865), (+1.8906428114883176, +0.39585787066685474), (+1.4129785332296971, +0.57260159666059229), (+1.2930868106088851, +0.15190389510587998), (+1.2759526940002783, +0.34521139761715969), (+1.0882066006559705, +0.10015844244681156), (+1.6381624357723212, +0.60726393847657345), (+1.5588176358554802, +0.19229952502357384), (+1.6318081035845453, +0.72610805250400579), (+1.8236692472299425, +0.81801414561236085), (+1.0997216560994918, +0.88926025779281248), (+1.4968623376823871, +0.23124037800876901), (+1.5950250720895855, +0.62827372174120122), (+1.3543445081047760, +0.38643151890466848), (+1.4629386886162155, +0.60967178054275317E-1), (+1.9548729650039067, +0.13368824040635582), (+1.8415136243177908, +0.12915969365445396), (+1.0748179248727543, +0.47373436054827259E-1), (+1.0388641081169876, +0.11151588892024791), (+1.1946081908959885, +0.71792522920463631), (+1.4769525363424378, +0.59208536962982550), (+1.3325741197024246, +0.32429867238001781), (+1.4313341156568165, +0.82778475098408322), (+1.7386175559635633, +0.18127570204807791), (+1.2673665504475597, +0.11446416020836919), (+1.5094596962972531, +0.49679070756169941), (+1.6666333746571589, +0.89501509692258874), (+1.9749834587388915, +0.13269933968378342), (+1.2995291644018354, +0.42398078800200613E-1), (+1.5157851499270065, +0.36052544449098023), (+1.6458709998665189, +0.67287568748951454), (+1.9871219142351566, +0.27473335146787142), (+1.3946375463306528, +0.74444753626429905), (+1.5409813337027392, +0.69863577920595077), (+1.2518768821938815, +0.63442924900303277), (+1.2308239697540915, +0.93336321892646246), (+1.4341840162028658, +0.86518956568488692), (+1.9373010621540516, +0.14646759658930475), (+1.6538356756660175, +0.52858482661922990), (+1.3661772710574929, +0.41460047364542485), (+1.1153673614736177, +0.46421993337503215), (+0.33306690738754696E-15, -0.41633363423443370E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, -0.13877787807814457E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, -0.30531133177191805E-15), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.55511151231257827E-15, -0.16653345369377348E-15), (-0.11102230246251565E-15, -0.19428902930940239E-15), (+0.0000000000000000, -0.24980018054066022E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.0000000000000000, -0.55511151231257827E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.88817841970012523E-15, -0.69388939039072284E-16), (-0.44408920985006262E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.19428902930940239E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.33306690738754696E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.30531133177191805E-15), (-0.33306690738754696E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.0000000000000000, +0.0000000000000000), (+0.22204460492503131E-15, -0.20816681711721685E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.40245584642661925E-15), (+0.33306690738754696E-15, +0.14571677198205180E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.66613381477509392E-15), (+0.44408920985006262E-15, +0.61062266354383610E-15), (+0.0000000000000000, +0.32612801348363973E-15), (+0.22204460492503131E-15, +0.52735593669694936E-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, T, T, T, T, T, T, T, T, 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+32
344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
345data
346(+1.87439614645807037661727152168058343, +0.795474209315255797625757909395980142E-1), (+1.37760706836948028735439800270554635, +0.610946442095067002044239945311079519), (+1.74607441931221469884543167176927364, +0.240872936755185241159191661195008362), (+1.15783713116399313648310320892092577, +0.444072007925436053353741356886347899E-1), (+1.40066001529715571308055146047395341, +0.293848787135455359471404855869170100E-2), (+1.66183054515184872247187636137494189, +0.361261264157629536796939533843203116), (+1.32512477530224453800259789942966382, +0.830434270951844550410906154427986965), (+1.48628366250998819996311106491451473, +0.531555998036821812880234552302786167), (+1.41541522931401942672582423892154336, +0.765514510042631845731056720257147709), (+1.48949413702354299776136465937319714, +0.910365281306103032991330028162075662), (+1.71751363551008042911167999256907789, +0.533959335409416262341039400603470045), (+1.72660682338941649125960162021064753, +0.136124951513755553264637528195725396), (+1.93710106171424230820566873026687163, +0.130652177957328258508401759389191165), (+1.78527821981723403760316511105466191, +0.991266480424328895797066085298122288), (+1.75128492741366102805247337816397106, +0.581341767350207127856254067311224114), (+1.25868977089625281419473717491564775, +0.380458842487816357897144012766892752), (+1.29492902209796893496155332407675622, +0.814344632473512191409277244321605556), (+1.90050535981206376231933690257441087, +0.377106870923545412855500437916111171), (+1.76862089967924657590071703259782794, +0.685822062407541227525919287264723562), (+1.57822589490513268820061613879883964, +0.239836315032598942727415681155262859), (+1.06427444797106386165987031368192007, +0.769541472073792788895534872471047042), (+1.97927561306782633063100402574763021, +0.496230608322660773363350807090361232), (+1.62717099619840847928320808992165644, +0.896379084370728898251908589728151860), (+1.42024188751319016753965017294022761, +0.305272544034738903375393714788304749E-1), (+1.14664497388486403511157601024512452, +0.648990829652546989990142923390933710), (+1.01577080391117305000517011866828594, +0.230131219936474079493333432030229360), (+1.68631653319368958387754608718483609, +0.941070601518529780373937565906696040), (+1.29613353913196318037739250130175914, +0.243553039446148063567840792920759020), (+1.02650348315684963364991020217508414, +0.370121188134854337645651340080798095), (+1.33933785663663567098514988298589369, +0.626204652926399844058635495886316429), (+1.61795064370847385641225634591591191, +0.324503707990351442523776431267452186), (+1.75930168266697761654552747273954770, +0.649832074868486286550307072670903689)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.87439614645807037661727152168058324, +0.795474209315255797625757909395980142E-1), (+1.37760706836948028735439800270554635, +0.610946442095067002044239945311079519), (+1.74607441931221469884543167176927345, +0.240872936755185241159191661195008410), (+1.15783713116399313648310320892092558, +0.444072007925436053353741356886347659E-1), (+1.40066001529715571308055146047395322, +0.293848787135455359471404855869174915E-2), (+1.66183054515184872247187636137494169, +0.361261264157629536796939533843202972), (+1.32512477530224453800259789942966344, +0.830434270951844550410906154427987061), (+1.48628366250998819996311106491451473, +0.531555998036821812880234552302786263), (+1.41541522931401942672582423892154336, +0.765514510042631845731056720257147805), (+1.48949413702354299776136465937319695, +0.910365281306103032991330028162075662), (+1.71751363551008042911167999256907769, +0.533959335409416262341039400603470045), (+1.72660682338941649125960162021064753, +0.136124951513755553264637528195725420), (+1.93710106171424230820566873026687144, +0.130652177957328258508401759389191117), (+1.78527821981723403760316511105466172, +0.991266480424328895797066085298122288), (+1.75128492741366102805247337816397087, +0.581341767350207127856254067311224018), (+1.25868977089625281419473717491564795, +0.380458842487816357897144012766892945), (+1.29492902209796893496155332407675603, +0.814344632473512191409277244321605652), (+1.90050535981206376231933690257441087, +0.377106870923545412855500437916111267), (+1.76862089967924657590071703259782774, +0.685822062407541227525919287264723658), (+1.57822589490513268820061613879883945, +0.239836315032598942727415681155262979), (+1.06427444797106386165987031368191988, +0.769541472073792788895534872471047042), (+1.97927561306782633063100402574763002, +0.496230608322660773363350807090361087), (+1.62717099619840847928320808992165605, +0.896379084370728898251908589728151956), (+1.42024188751319016753965017294022761, +0.305272544034738903375393714788303786E-1), (+1.14664497388486403511157601024512433, +0.648990829652546989990142923390933806), (+1.01577080391117305000517011866828575, +0.230131219936474079493333432030229360), (+1.68631653319368958387754608718483590, +0.941070601518529780373937565906696136), (+1.29613353913196318037739250130175914, +0.243553039446148063567840792920759092), (+1.02650348315684963364991020217508395, +0.370121188134854337645651340080798143), (+1.33933785663663567098514988298589349, +0.626204652926399844058635495886316622), (+1.61795064370847385641225634591591153, +0.324503707990351442523776431267452089), (+1.75930168266697761654552747273954789, +0.649832074868486286550307072670903785)
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
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+15
361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
362data
363+1.21151686, +1.63669372, +1.71779537, +1.33417797, +1.47852528, +1.81355190, +1.30342054, +1.27906322, +1.86030126, +1.29462230, +1.36007237, +1.97949886, +1.18029332, +1.08443952, +1.83448529
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.21151686, +1.63669372, +1.71779513, +1.33417797, +1.47852516, +1.81355202, +1.30342078, +1.27906322, +1.86030126, +1.29462218, +1.36007237, +1.97949886, +1.18029332, +1.08443964, +1.83448529, +0.178813934E-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
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+48
378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
379data
380+1.1247726300780725, +1.7253678967685249, +1.2192091565560477, +1.0086852765591083, +1.7172395549395858, +1.0147005977070642, +1.3989278445306113, +1.7473482557427666, +1.9651691779393166, +1.2477809959131616, +1.4117344045065314, +1.9229551034155730, +1.0078567055402790, +1.2163770477393514, +1.1221289080873205, +1.2655770379791100, +1.6267756857187345, +1.7925044673434591, +1.8998622977846962, +1.1533632789271542, +1.9412471729390961, +1.0860035014846150, +1.1061038574873150, +1.0885828205394597, +1.7363056490440720, +1.3322330357983683, +1.5104109358996096, +1.6883458992030311, +1.6105229370577598, +1.2499457097858095, +1.2807564346812499, +1.1255660522323814, +1.4543974951007987, +1.0453680032506960, +1.4925397333351682, +1.1128540375848548, +1.5317570879783318, +1.2338676996974214, +1.3307516408217137, +1.5734177535947107, +1.4660255122616279, +1.6230908009602434, +1.3011477029546747, +1.7968743260862192, +1.7377111380508503, +1.9415886038248789, +1.5645845639707381, +1.9237917889635310
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.1247726300780729, +1.7253678967685253, +1.2192091565560477, +1.0086852765591088, +1.7172395549395856, +1.0147005977070647, +1.3989278445306108, +1.7473482557427671, +1.9651691779393163, +1.2477809959131620, +1.4117344045065310, +1.9229551034155730, +1.0078567055402794, +1.2163770477393516, +1.1221289080873205, +1.2655770379791100, +1.6267756857187348, +1.7925044673434596, +1.8998622977846962, +1.1533632789271542, +1.9412471729390959, +1.0860035014846154, +1.1061038574873145, +1.0885828205394599, +1.7363056490440718, +1.3322330357983687, +1.5104109358996092, +1.6883458992030307, +1.6105229370577596, +1.2499457097858100, +1.2807564346812490, +1.1255660522323816, +1.4543974951007987, +1.0453680032506967, +1.4925397333351682, +1.1128540375848548, +1.5317570879783315, +1.2338676996974218, +1.3307516408217137, +1.5734177535947111, +1.4660255122616277, +1.6230908009602441, +1.3011477029546747, +1.7968743260862192, +1.7377111380508503, +1.9415886038248793, +1.5645845639707381, +1.9237917889635305, +0.22204460492503131E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.88817841970012523E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.88817841970012523E-15, +0.88817841970012523E-15, +0.33306690738754696E-15, +0.11102230246251565E-14
385reltol = sqrt(epsilon(1._TKG))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+62
395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
396data
397+1.99112772345432678864443950776521882, +1.39169593148805178658852177492936672, +1.62648629344029368635677112344551129, +1.35267637829747252710681080974016501, +1.72572305692741912927215722513486693, +1.83509492392482456597018004194277721, +1.45218106936540793428024513410690319, +1.43468031028468917094858657305903425, +1.90960501836680214049984654325045485, +1.44735123675201427714194318203554556, +1.73039593578382670054994921280082699, +1.01815765999827636841930212319359232, +1.77526118449359453110684738791675075, +1.13022936537295683847985215557565820, +1.18485552878269734429720512614424938, +1.07300118511740882457683701706411218, +1.61050142200987336196089298813524688, +1.20358682178292638418127559746492394, +1.64575712713401511036388480639188762, +1.45209453414849182688982960386095120, +1.43477932237587791459596902319157814, +1.82712863534466351002628033592056745, +1.26801730549216413004645477995263516, +1.19139276550729393934146243751760037, +1.68778104025314275962978791298671334, +1.14939469721004486451490965772006770, +1.32824716405670252958743276970290865, +1.90477997221211961113287760666215625, +1.67347197359799136280577007303934985, +1.93980539738616089058124756079967565, +1.96765940011887203284177655490896064, +1.88101391480741766490495938390856316, +1.09638446650897717346592365687504762, +1.76382420944697724164214126609375491, +1.22928121957963706835186211511872988, +1.82299202691862857075371207347516148, +1.97948021164428332450439334955635813, +1.16378954740041624331821921742874437, +1.84650126752068469220384916186852419, +1.46893879320430402605882923112747249, +1.63049195700921519276264177780598351, +1.94360675813406616309122129295550765, +1.23181462906955115768931115580847953, +1.84619692801493925455581926365019438, +1.95086337755816851506697046994493536, +1.37420958053344069630205940685748577, +1.60366167864286699157486359269174928, +1.14568795646523052533822547362932904, +1.14871467981076726535807817496985580, +1.75412552746236436331115724743820850, +1.16984659863775251430973571874487522, +1.50476291728080378644714031642979012, +1.31447016558768141389894141331198463, +1.69883097566620472956365630204243657, +1.39003936621463851111827445277018581, +1.42884538577661635407474064763263183, +1.21309028106106327319065924806559262, +1.04536903152731187410348257202748384, +1.07937906239213000030432774061028950, +1.59278827765160918697026130808936712, +1.35358141535831788200760618690675802, +1.07934993450889457027658729840661778
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.99112772345432678864443950776521901, +1.39169593148805178658852177492936672, +1.62648629344029368635677112344551129, +1.35267637829747252710681080974016501, +1.72572305692741912927215722513486674, +1.83509492392482456597018004194277740, +1.45218106936540793428024513410690339, +1.43468031028468917094858657305903425, +1.90960501836680214049984654325045504, +1.44735123675201427714194318203554556, +1.73039593578382670054994921280082699, +1.01815765999827636841930212319359194, +1.77526118449359453110684738791675075, +1.13022936537295683847985215557565839, +1.18485552878269734429720512614424957, +1.07300118511740882457683701706411180, +1.61050142200987336196089298813524707, +1.20358682178292638418127559746492374, +1.64575712713401511036388480639188820, +1.45209453414849182688982960386095100, +1.43477932237587791459596902319157795, +1.82712863534466351002628033592056822, +1.26801730549216413004645477995263535, +1.19139276550729393934146243751760037, +1.68778104025314275962978791298671353, +1.14939469721004486451490965772006770, +1.32824716405670252958743276970290884, +1.90477997221211961113287760666215606, +1.67347197359799136280577007303934947, +1.93980539738616089058124756079967585, +1.96765940011887203284177655490896006, +1.88101391480741766490495938390856297, +1.09638446650897717346592365687504781, +1.76382420944697724164214126609375510, +1.22928121957963706835186211511873026, +1.82299202691862857075371207347516148, +1.97948021164428332450439334955635793, +1.16378954740041624331821921742874456, +1.84650126752068469220384916186852438, +1.46893879320430402605882923112747287, +1.63049195700921519276264177780598370, +1.94360675813406616309122129295550784, +1.23181462906955115768931115580847953, +1.84619692801493925455581926365019400, +1.95086337755816851506697046994493517, +1.37420958053344069630205940685748596, +1.60366167864286699157486359269174909, +1.14568795646523052533822547362932942, +1.14871467981076726535807817496985599, +1.75412552746236436331115724743820831, +1.16984659863775251430973571874487561, +1.50476291728080378644714031642978974, +1.31447016558768141389894141331198444, +1.69883097566620472956365630204243696, +1.39003936621463851111827445277018562, +1.42884538577661635407474064763263183, +1.21309028106106327319065924806559242, +1.04536903152731187410348257202748403, +1.07937906239213000030432774061028969, +1.59278827765160918697026130808936674, +1.35358141535831788200760618690675763, +1.07934993450889457027658729840661798, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33
402reltol = sqrt(epsilon(1._TKG))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+68
412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
413data
414(+1.70839739, +0.346519947), (+1.92840791, +0.880721450), (+1.80882978, +0.587656438), (+1.14058876, +0.889995694), (+1.18342161, +0.741361380E-1), (+1.60188508, +0.920488894), (+1.89269209, +0.730992496), (+1.95048594, +0.821941078), (+1.78419256, +0.855045915E-1), (+1.93598056, +0.604435802), (+1.02331471, +0.399545431), (+1.04394722, +0.593006730), (+1.16683125, +0.834053218), (+1.97783160, +0.900810361), (+1.77161932, +0.857014000), (+1.11508131, +0.193790793E-1), (+1.73899257, +0.126882732), (+1.08572936, +0.931361973), (+1.95915008, +0.938659906), (+1.97644472, +0.635763049), (+1.72109127, +0.719372213), (+1.19670594, +0.255649090E-1), (+1.40347004, +0.982023180), (+1.02538335, +0.104125500), (+1.60831380, +0.675534487), (+1.63350177, +0.513422847), (+1.87930179, +0.731422901), (+1.90889668, +0.112401068), (+1.59580183, +0.798565447), (+1.63383400, +0.548219562), (+1.32037020, +0.607747853), (+1.58018231, +0.249597371), (+1.58674431, +0.190585256E-1), (+1.91261196, +0.511786103), (+1.02145374, +0.238519430), (+1.45731699, +0.316714168), (+1.76383591, +0.751481414), (+1.29418588, +0.185540318), (+1.33428860, +0.185940981), (+1.36596632, +0.813440859), (+1.00394046, +0.685420632), (+1.51826429, +0.809730232), (+1.79491687, +0.363761604), (+1.07705843, +0.917900205E-1), (+1.28564155, +0.360345840E-1), (+1.49376130, +0.610557437), (+1.57854629, +0.875838697), (+1.72362804, +0.271714330E-1), (+1.49653864, +0.842574894), (+1.51123405, +0.305307627), (+1.91687655, +0.411970019E-1), (+1.86642742, +0.805838227), (+1.02964199, +0.373071373), (+1.59136605, +0.349519610), (+1.58322573, +0.357056677), (+1.21416450, +0.232523203), (+1.21488333, +0.238389969E-1), (+1.23253727, +0.661302149), (+1.31448674, +0.605329394), (+1.01859117, +0.183934748), (+1.54164481, +0.355070889), (+1.98857546, +0.624385893), (+1.03213215, +0.252666771), (+1.25804901, +0.371872067), (+1.99261808, +0.373029172), (+1.24815369, +0.188420415), (+1.43045890, +0.251497626), (+1.39312410, +0.938334107)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.70839739, +0.346519917), (+1.92840779, +0.880721569), (+1.80882943, +0.587656498), (+1.14058864, +0.889995694), (+1.18342137, +0.741360337E-1), (+1.60188508, +0.920488775), (+1.89269185, +0.730992138), (+1.95048583, +0.821941018), (+1.78419280, +0.855047554E-1), (+1.93598056, +0.604436040), (+1.02331471, +0.399545401), (+1.04394734, +0.593006849), (+1.16683125, +0.834053159), (+1.97783160, +0.900810719), (+1.77161908, +0.857014060), (+1.11508155, +0.193791762E-1), (+1.73899269, +0.126882896), (+1.08572936, +0.931361914), (+1.95914972, +0.938659787), (+1.97644448, +0.635763168), (+1.72109127, +0.719372153), (+1.19670606, +0.255649835E-1), (+1.40346980, +0.982023001), (+1.02538323, +0.104125544), (+1.60831356, +0.675534606), (+1.63350165, +0.513423085), (+1.87930167, +0.731423080), (+1.90889657, +0.112401344), (+1.59580171, +0.798565388), (+1.63383389, +0.548219800), (+1.32037020, +0.607748032), (+1.58018231, +0.249597281), (+1.58674443, +0.190584250E-1), (+1.91261184, +0.511785865), (+1.02145386, +0.238519356), (+1.45731699, +0.316713870), (+1.76383615, +0.751481175), (+1.29418588, +0.185540110), (+1.33428836, +0.185940847), (+1.36596632, +0.813440561), (+1.00394034, +0.685420573), (+1.51826417, +0.809730232), (+1.79491675, +0.363761544), (+1.07705855, +0.917899460E-1), (+1.28564167, +0.360344499E-1), (+1.49376130, +0.610557258), (+1.57854617, +0.875838518), (+1.72362804, +0.271714255E-1), (+1.49653852, +0.842574775), (+1.51123381, +0.305307537), (+1.91687620, +0.411968976E-1), (+1.86642730, +0.805837750), (+1.02964211, +0.373071253), (+1.59136593, +0.349519372), (+1.58322549, +0.357056528), (+1.21416450, +0.232522994), (+1.21488309, +0.238391012E-1), (+1.23253679, +0.661302090), (+1.31448650, +0.605329275), (+1.01859117, +0.183934510), (+1.54164457, +0.355070949), (+1.98857522, +0.624385774), (+1.03213215, +0.252666831), (+1.25804877, +0.371871918), (+1.99261808, +0.373029262), (+1.24815357, +0.188420385), (+1.43045890, +0.251497358), (+1.39312422, +0.938333869), (+0.178813934E-6, +0.223517418E-6), (+0.596046448E-7, +0.596046448E-7), (+0.238418579E-6, +0.596046448E-7), (+0.357627869E-6, +0.894069672E-7), (-0.596046448E-7, -0.149011612E-7), (-0.178813934E-6, -0.238418579E-6), (+0.119209290E-6, +0.298023224E-7), (+0.00000000, -0.119209290E-6), (-0.596046448E-7, +0.119209290E-6), (-0.596046448E-7, -0.357627869E-6), (+0.596046448E-7, +0.894069672E-7), (+0.00000000, +0.372529030E-7), (-0.596046448E-7, -0.149011612E-7), (+0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, +0.298023224E-7), (+0.178813934E-6, -0.149011612E-6), (+0.596046448E-7, +0.119209290E-6), (+0.178813934E-6, +0.149011612E-7), (+0.178813934E-6, +0.149011612E-6), (+0.178813934E-6, +0.104308128E-6), (+0.00000000, -0.596046448E-7), (+0.00000000, -0.149011612E-6), (+0.119209290E-6, +0.00000000), (+0.119209290E-6, +0.745058060E-8), (+0.00000000, -0.298023224E-7), (+0.00000000, -0.208616257E-6), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.521540642E-7), (-0.119209290E-6, +0.189058483E-6), (+0.00000000, +0.894069672E-7), (-0.596046448E-7, +0.193715096E-6), (+0.00000000, +0.253319740E-6), (+0.00000000, +0.327825546E-6), (-0.119209290E-6, +0.238418579E-6), (+0.596046448E-7, +0.283122063E-6), (+0.178813934E-6, +0.327825546E-6), (+0.596046448E-7, +0.178813934E-6), (+0.00000000, -0.596046448E-7), (+0.00000000, +0.178813934E-6), (-0.596046448E-7, +0.223517418E-6), (-0.596046448E-7, +0.163912773E-6), (-0.596046448E-7, -0.596046448E-7), (+0.00000000, +0.238418579E-6), (+0.00000000, +0.171363354E-6), (+0.00000000, +0.178813934E-6), (+0.238418579E-6, +0.298023224E-7), (+0.119209290E-6, +0.253319740E-6), (+0.119209290E-6, +0.447034836E-6), (+0.119209290E-6, +0.193715096E-6), (+0.00000000, +0.149011612E-6), (+0.00000000, +0.268220901E-6), (-0.596046448E-7, +0.298023224E-6), (+0.238418579E-6, +0.149011612E-7), (+0.298023224E-6, +0.00000000), (+0.178813934E-6, +0.894069672E-7), (+0.298023224E-6, +0.216066837E-6), (+0.596046448E-7, +0.745058060E-7), (+0.596046448E-7, +0.119209290E-6), (-0.596046448E-7, +0.134110451E-6), (+0.119209290E-6, +0.178813934E-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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+47
429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
430data
431(+1.4519363826819629, +0.42697898336037565), (+1.5877846763704291, +0.70329005927037536), (+1.7673517706984070, +0.63083122973198036), (+1.2659640649915225, +0.81745742032719715), (+1.5152433431526597, +0.97585320768684980), (+1.0881103318124699, +0.66342646997759280), (+1.8338624059181330, +0.90718540497583766), (+1.3891505956383279, +0.66302250249480765), (+1.1576920863143052, +0.91731104178823097), (+1.2200030283854968, +0.63982600223121600), (+1.3184003813210534, +0.25128336013267127), (+1.4965155345652503, +0.49924545761197714), (+1.8993824917709277, +0.32736263296565471), (+1.0466399243830145, +0.48677551363111216), (+1.8028749105494661, +0.19641044752439107), (+1.9637858553936569, +0.61873354444453854E-1), (+1.7255857435682966, +0.44676240463840466), (+1.4684941948487396, +0.37094243056004605), (+1.9391452301587868, +0.62330244858228756), (+1.2908776333882632, +0.45961256756304125), (+1.5895148791745410, +0.70647343727881362), (+1.2794281855188703, +0.33032914307305539), (+1.8242644483142669, +0.11090115940858081), (+1.5490844774976558, +0.50725238061927247), (+1.5421162957329395, +0.59004354855621166E-1), (+1.5728006426076524, +0.38744989694781795), (+1.0540459765162273, +0.86075309317451099), (+1.8367829303428560, +0.30125190215841613), (+1.4651468032075949, +0.60207145864665179), (+1.7566478428277321, +0.34526058560847783), (+1.0971310717248000, +0.38629346933355180E-1), (+1.4745014324828500, +0.89034126346205567), (+1.5046858134224825, +0.90519282529018963), (+1.5778523135450633, +0.76677928401138962E-1), (+1.2107055182240600, +0.93127084076986444), (+1.0595647063956637, +0.92185620770218635E-1), (+1.4207359373121404, +0.97798175916091146), (+1.1159750941209059, +0.51238071125088769), (+1.8506585253340964, +0.17161539099400136), (+1.1906955445760361, +0.99371709287177890), (+1.0412470995133321, +0.36167832568653269), (+1.0497287716276373, +0.20989617018488738), (+1.7899277295264326, +0.65533299040721826), (+1.9054831915664132, +0.60991211721634908), (+1.0085062004386289, +0.66392142715496483), (+1.2325263318310129, +0.23427015950238106), (+1.6307256878660450, +0.23323544905119742)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.4519363826819629, +0.42697898336037582), (+1.5877846763704297, +0.70329005927037569), (+1.7673517706984061, +0.63083122973198047), (+1.2659640649915227, +0.81745742032719748), (+1.5152433431526600, +0.97585320768684991), (+1.0881103318124703, +0.66342646997759269), (+1.8338624059181328, +0.90718540497583755), (+1.3891505956383281, +0.66302250249480710), (+1.1576920863143052, +0.91731104178823097), (+1.2200030283854972, +0.63982600223121633), (+1.3184003813210530, +0.25128336013267166), (+1.4965155345652503, +0.49924545761197725), (+1.8993824917709277, +0.32736263296565493), (+1.0466399243830147, +0.48677551363111216), (+1.8028749105494652, +0.19641044752439141), (+1.9637858553936569, +0.61873354444453951E-1), (+1.7255857435682969, +0.44676240463840444), (+1.4684941948487400, +0.37094243056004605), (+1.9391452301587866, +0.62330244858228712), (+1.2908776333882632, +0.45961256756304092), (+1.5895148791745417, +0.70647343727881351), (+1.2794281855188707, +0.33032914307305528), (+1.8242644483142669, +0.11090115940858059), (+1.5490844774976564, +0.50725238061927236), (+1.5421162957329400, +0.59004354855621222E-1), (+1.5728006426076528, +0.38744989694781773), (+1.0540459765162278, +0.86075309317451065), (+1.8367829303428560, +0.30125190215841591), (+1.4651468032075949, +0.60207145864665179), (+1.7566478428277326, +0.34526058560847772), (+1.0971310717247997, +0.38629346933355166E-1), (+1.4745014324828500, +0.89034126346205500), (+1.5046858134224825, +0.90519282529018952), (+1.5778523135450639, +0.76677928401138906E-1), (+1.2107055182240600, +0.93127084076986422), (+1.0595647063956637, +0.92185620770218524E-1), (+1.4207359373121404, +0.97798175916091157), (+1.1159750941209063, +0.51238071125088780), (+1.8506585253340959, +0.17161539099400136), (+1.1906955445760363, +0.99371709287177934), (+1.0412470995133318, +0.36167832568653246), (+1.0497287716276378, +0.20989617018488710), (+1.7899277295264322, +0.65533299040721804), (+1.9054831915664132, +0.60991211721634830), (+1.0085062004386285, +0.66392142715496449), (+1.2325263318310131, +0.23427015950238075), (+1.6307256878660445, +0.23323544905119714), (+0.66613381477509392E-15, -0.31918911957973251E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.55511151231257827E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.33306690738754696E-15, -0.24980018054066022E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.0000000000000000, -0.16653345369377348E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.77715611723760958E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.55511151231257827E-16), (+0.55511151231257827E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, +0.51347814888913490E-15), (+0.55511151231257827E-15, +0.33306690738754696E-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
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+51
446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
447data
448(+1.09708184860307934888553286267298728, +0.187331623579792426432167600709000937), (+1.42885009721158895495303325232818268, +0.870229241084272585221789154085166059), (+1.81171926270163021244113454082543720, +0.614323220824227372125906983959037111), (+1.19458992101347741190325801106068989, +0.784924056024490247830745072646843050), (+1.77931395565027568010505551077291938, +0.118280351051085210047160132950418366), (+1.79542319663883548095848511980536060, +0.423850981920439982019385665215106934), (+1.09141399173815573321304352469111798, +0.209357920469270919626313909422996316), (+1.65856966137543845605672088842773404, +0.776117131438997174815669972094070344), (+1.93989478743269443562951108017642259, +0.611581282690481335577397028506275854), (+1.34547396084773960105361972097938959, +0.674904441165120372207391676479262461), (+1.31234907539572351460005030812263477, +0.602222137240835048766373584460335034), (+1.35036968716362306329192039607332692, +0.306858867614030529577802784968262267), (+1.75381216097385402031511721635382839, +0.307122358032471298663808379234326360), (+1.96702963911221519928956703996019698, +0.570644381389098659062395609876361859), (+1.98523229817867900179140375076491100, +0.661102303983389057327279422138310872), (+1.12594636436996140758059990919043430, +0.223310250354471337046578241270257192), (+1.10780513042850445359779751480779888, +0.829693033678723706241498571274808959), (+1.04652537529642000852675610165916251, +0.832491235266197951390906124229921107), (+1.18254604471068427662427856361503103, +0.253418086074453930561446261740295483), (+1.14843626312348727717370297059639258, +0.302822375005274013218256203946318197), (+1.44570815929844220114247675022131831, +0.496257622273029688661853323143663426E-1), (+1.86404182965521969114950164061665596, +0.377365943776578112682291701167124869), (+1.83662795541523623780039226161648235, +0.273170899433778085737943925575049632), (+1.30284360186737840132493172704439586, +0.920596664400251103374512000716634317), (+1.68835347807989028983257112758651036, +0.217451629080477229528394817215912829), (+1.00812689961343694327868156763960619, +0.765941740796171114742814030453455810), (+1.29413705720548935621157344783024608, +0.316677629439703033198446024689717788), (+1.89245905217337358644650086898974935, +0.203206147812367136097039118933308471), (+1.06024898531292258332985919099629726, +0.216013856387084427712443616970070789), (+1.78993831278785718299432368253887607, +0.140165520782464562680476760067241761), (+1.71234868837639429829291932172105216, +0.314177552090285208592490723839812505), (+1.23425703594386981468758159313038302, +0.855763541902354331598009044401589970), (+1.65472702798662986356562030033919980, +0.427659397210844716566294361217709367E-1), (+1.29692305894810348516997597553486155, +0.735038253797346386218512249544771628), (+1.45828011973273083161811839041132508, +0.330456137683083426693256912218116310E-2), (+1.52863133997786903722696972004542580, +0.669787250010298553524611578287249069), (+1.72877218975626088598303658509375052, +0.625436713533457918058226340795005018), (+1.04493191782466631102536823237088914, +0.688130262992931199567346718510192904), (+1.37182197244086936824106373323378855, +0.138066018652131818510269066410845912), (+1.15833393185966607951736531874838183, +0.366689842934803044271247791161613026), (+1.04537269058301117733005547947235539, +0.920012087083283316277487582227548926), (+1.41137391200782063365103469272875779, +0.873845930833874927065357250625907189), (+1.71028671238954760888024683005236442, +0.613633297718391580458157143634760977), (+1.21624085238018014985655383365248019, +0.831220139625283952782712335312388482), (+1.26000688838534682316831452478258807, +0.403775288393027358288661901603242109), (+1.13065772554070012411420142953954518, +0.811085756806546663711525213690750960), (+1.86564553460935334780300403016642078, +0.779312620650497424108660931474368485), (+1.21499960846696002237103685515360826, +0.567116614941676972905790509155399202), (+1.10474551972804938665187698402546814, +0.342852153261360916288931929995072566E-1), (+1.55244752964312207216548604915228324, +0.258367031758473626153829063308094299), (+1.06096656269424748586385350255458536, +0.931578865855660431253192424080457197)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.09708184860307934888553286267298766, +0.187331623579792426432167600709000937), (+1.42885009721158895495303325232818249, +0.870229241084272585221789154085166155), (+1.81171926270163021244113454082543682, +0.614323220824227372125906983959037111), (+1.19458992101347741190325801106068950, +0.784924056024490247830745072646843050), (+1.77931395565027568010505551077291995, +0.118280351051085210047160132950418173), (+1.79542319663883548095848511980536060, +0.423850981920439982019385665215106693), (+1.09141399173815573321304352469111798, +0.209357920469270919626313909422995883), (+1.65856966137543845605672088842773423, +0.776117131438997174815669972094070440), (+1.93989478743269443562951108017642259, +0.611581282690481335577397028506275951), (+1.34547396084773960105361972097938940, +0.674904441165120372207391676479262557), (+1.31234907539572351460005030812263458, +0.602222137240835048766373584460335034), (+1.35036968716362306329192039607332654, +0.306858867614030529577802784968262364), (+1.75381216097385402031511721635382859, +0.307122358032471298663808379234326457), (+1.96702963911221519928956703996019698, +0.570644381389098659062395609876361666), (+1.98523229817867900179140375076491158, +0.661102303983389057327279422138310968), (+1.12594636436996140758059990919043391, +0.223310250354471337046578241270257433), (+1.10780513042850445359779751480779907, +0.829693033678723706241498571274808959), (+1.04652537529642000852675610165916232, +0.832491235266197951390906124229921107), (+1.18254604471068427662427856361503083, +0.253418086074453930561446261740295531), (+1.14843626312348727717370297059639220, +0.302822375005274013218256203946318004), (+1.44570815929844220114247675022131851, +0.496257622273029688661853323143663185E-1), (+1.86404182965521969114950164061665596, +0.377365943776578112682291701167124773), (+1.83662795541523623780039226161648235, +0.273170899433778085737943925575049583), (+1.30284360186737840132493172704439586, +0.920596664400251103374512000716634317), (+1.68835347807989028983257112758651055, +0.217451629080477229528394817215912733), (+1.00812689961343694327868156763960599, +0.765941740796171114742814030453455810), (+1.29413705720548935621157344783024588, +0.316677629439703033198446024689717691), (+1.89245905217337358644650086898974896, +0.203206147812367136097039118933308302), (+1.06024898531292258332985919099629745, +0.216013856387084427712443616970070741), (+1.78993831278785718299432368253887607, +0.140165520782464562680476760067241809), (+1.71234868837639429829291932172105254, +0.314177552090285208592490723839812505), (+1.23425703594386981468758159313038264, +0.855763541902354331598009044401589970), (+1.65472702798662986356562030033920019, +0.427659397210844716566294361217709848E-1), (+1.29692305894810348516997597553486136, +0.735038253797346386218512249544771628), (+1.45828011973273083161811839041132508, +0.330456137683083426693256912218121124E-2), (+1.52863133997786903722696972004542580, +0.669787250010298553524611578287248876), (+1.72877218975626088598303658509375110, +0.625436713533457918058226340795005114), (+1.04493191782466631102536823237088876, +0.688130262992931199567346718510192904), (+1.37182197244086936824106373323378855, +0.138066018652131818510269066410845767), (+1.15833393185966607951736531874838183, +0.366689842934803044271247791161612834), (+1.04537269058301117733005547947235539, +0.920012087083283316277487582227548733), (+1.41137391200782063365103469272875760, +0.873845930833874927065357250625907092), (+1.71028671238954760888024683005236423, +0.613633297718391580458157143634760880), (+1.21624085238018014985655383365248000, +0.831220139625283952782712335312388096), (+1.26000688838534682316831452478258807, +0.403775288393027358288661901603242302), (+1.13065772554070012411420142953954461, +0.811085756806546663711525213690751057), (+1.86564553460935334780300403016642097, +0.779312620650497424108660931474368774), (+1.21499960846696002237103685515360826, +0.567116614941676972905790509155399202), (+1.10474551972804938665187698402546833, +0.342852153261360916288931929995072566E-1), (+1.55244752964312207216548604915228286, +0.258367031758473626153829063308094155), (+1.06096656269424748586385350255458536, +0.931578865855660431253192424080457101), (-0.192592994438723585305597794258492732E-33, +0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.674075480535532548569592279904724561E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.337037740267766274284796139952362281E-33), (-0.577778983316170755916793382775478196E-33, +0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.361111864572606722447995864234673872E-33), (-0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (+0.192592994438723585305597794258492732E-33, -0.276852429505665153876796829246583302E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34)
453reltol = sqrt(epsilon(1._TKG))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+82
463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
464data
465+1.13386643, +1.41549158, +1.63566554, +1.20326817, +1.14313316, +1.35874104, +1.52215707, +1.85866690, +1.37195230, +1.83078837, +1.68357861, +1.33079207, +1.24837375, +1.60463643, +1.70230687, +1.95133364, +1.77113867, +1.34617090, +1.28979850, +1.51256299, +1.34201312, +1.09975851, +1.41688609, +1.21847665, +1.25687134, +1.45935297, +1.89096522, +1.79467404, +1.21161675, +1.59400749, +1.10584629, +1.04794002, +1.61638069, +1.35131574, +1.95555687, +1.70082855, +1.69776917, +1.75012589, +1.35817051, +1.21701741, +1.69709969, +1.73525596, +1.09653711, +1.39240026, +1.07772553, +1.60308218, +1.58803141, +1.77357781, +1.63102031, +1.35046053, +1.62545800, +1.16136813, +1.09266984, +1.66882157, +1.19227171, +1.97347999, +1.55047083, +1.40887046, +1.63677251, +1.06959021, +1.43792486, +1.05255568, +1.17528558, +1.97672749, +1.59786844, +1.74907899, +1.09321856, +1.84050941, +1.24757028, +1.46706378, +1.97668660, +1.46861148, +1.73909962, +1.45735073, +1.11179662, +1.90432096, +1.99259794, +1.64545703, +1.86821032, +1.80574799, +1.72375751, +1.85523236
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.13386643, +1.41549170, +1.63566554, +1.20326781, +1.14313269, +1.35874104, +1.52215672, +1.85866666, +1.37195241, +1.83078861, +1.68357873, +1.33079183, +1.24837363, +1.60463631, +1.70230687, +1.95133317, +1.77113843, +1.34617090, +1.28979862, +1.51256287, +1.34201276, +1.09975863, +1.41688621, +1.21847665, +1.25687122, +1.45935309, +1.89096498, +1.79467380, +1.21161652, +1.59400737, +1.10584629, +1.04794025, +1.61638069, +1.35131574, +1.95555711, +1.70082831, +1.69776893, +1.75012565, +1.35817051, +1.21701694, +1.69709945, +1.73525596, +1.09653735, +1.39240003, +1.07772541, +1.60308170, +1.58803129, +1.77357733, +1.63101983, +1.35046053, +1.62545776, +1.16136801, +1.09266973, +1.66882133, +1.19227171, +1.97347951, +1.55047035, +1.40887046, +1.63677239, +1.06958985, +1.43792462, +1.05255532, +1.17528546, +1.97672725, +1.59786832, +1.74907911, +1.09321892, +1.84050918, +1.24757028, +1.46706367, +1.97668648, +1.46861124, +1.73909962, +1.45735073, +1.11179662, +1.90432107, +1.99259818, +1.64545691, +1.86821043, +1.80574787, +1.72375727, +1.85523248, +0.357627869E-6, +0.119209290E-6, +0.357627869E-6, +0.178813934E-6, +0.596046448E-6, +0.357627869E-6, -0.596046448E-7, +0.00000000, +0.238418579E-6, +0.00000000, +0.119209290E-6, +0.119209290E-6, +0.119209290E-6, +0.298023224E-6, -0.298023224E-6, +0.298023224E-6, +0.00000000, +0.178813934E-6, -0.119209290E-6, +0.417232513E-6, -0.596046448E-7, +0.476837158E-6, -0.178813934E-6, +0.119209290E-6, +0.00000000, +0.00000000, -0.238418579E-6, +0.238418579E-6, -0.298023224E-6, +0.238418579E-6, +0.00000000, +0.298023224E-6, +0.178813934E-6, +0.119209290E-6, -0.178813934E-6, +0.178813934E-6, +0.00000000, +0.476837158E-6, +0.178813934E-6, +0.178813934E-6, +0.238418579E-6, +0.596046448E-7, -0.119209290E-6, +0.178813934E-6, -0.119209290E-6, +0.238418579E-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, 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+99
480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
481data
482+1.2342617828599161, +1.6327764573442345, +1.6824287547251982, +1.5054165553686278, +1.7588891958846760, +1.2316554758303533, +1.9790059847414745, +1.2864986550240329, +1.8767064698824185, +1.3342178053667526, +1.8586245324007717, +1.5694167963454810, +1.6864899966841556, +1.3477117992058301, +1.3649850497954543, +1.5798682826649524, +1.3643432496798567, +1.9864080546784539, +1.5297404233250358, +1.6996053243734965, +1.1325122903139546, +1.1937172107336607, +1.9873316781400230, +1.0878412393556407, +1.2576950312345594, +1.1660042643219293, +1.6518810747847796, +1.0963673408253922, +1.5552088021690786, +1.0703081387652786, +1.1280424072518942, +1.3727917535945378, +1.4010738464259800, +1.7671796686717589, +1.9950520245147967, +1.8973909573681558, +1.6691908169213845, +1.7080609134749303, +1.6845087556852745, +1.5312187425678876, +1.3458994096192396, +1.4724043807220721, +1.5145603015593616, +1.9803009353327421, +1.5186944606912811, +1.0022020950145167, +1.7229020634258041, +1.3850540674280647, +1.7822637691035350, +1.9171445972779626, +1.5355194747799594, +1.6346973180434889, +1.5169625664959399, +1.9723626794854461, +1.5441875342073721, +1.4396110107955766, +1.8730021341553345, +1.1623130516109468, +1.5387986093673853, +1.0635045777049794, +1.6740728359317179, +1.1546142921049203, +1.3942433278464765, +1.5993777832613785, +1.4239219222927391, +1.8682899561638511, +1.6835915217505402, +1.4025308060295081, +1.3969780486281302, +1.9862189959208354, +1.8434442782690184, +1.2620930661499683, +1.8430710792655036, +1.5898888580666561, +1.1701115048413351, +1.7043928719337691, +1.5008576729998195, +1.2703354686136037, +1.8792207519550170, +1.0052169968523690, +1.2624919400803802, +1.5024935651453073, +1.2910466233351872, +1.0199757471421806, +1.7821612640550768, +1.7715483170850252, +1.4172921939084833, +1.5560725664690895, +1.7239654121867545, +1.8314561525522515, +1.1435098420878749, +1.1671586356425763, +1.2863753305903873, +1.9369417468750798, +1.5778851143068029, +1.3081518410895265, +1.5912323083113660, +1.5181257696301635, +1.6600834487782277
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.2342617828599161, +1.6327764573442347, +1.6824287547251982, +1.5054165553686281, +1.7588891958846751, +1.2316554758303535, +1.9790059847414736, +1.2864986550240336, +1.8767064698824185, +1.3342178053667531, +1.8586245324007722, +1.5694167963454815, +1.6864899966841549, +1.3477117992058303, +1.3649850497954541, +1.5798682826649522, +1.3643432496798564, +1.9864080546784542, +1.5297404233250356, +1.6996053243734965, +1.1325122903139540, +1.1937172107336611, +1.9873316781400221, +1.0878412393556407, +1.2576950312345592, +1.1660042643219297, +1.6518810747847796, +1.0963673408253924, +1.5552088021690782, +1.0703081387652784, +1.1280424072518938, +1.3727917535945378, +1.4010738464259802, +1.7671796686717591, +1.9950520245147967, +1.8973909573681556, +1.6691908169213845, +1.7080609134749301, +1.6845087556852745, +1.5312187425678874, +1.3458994096192398, +1.4724043807220724, +1.5145603015593623, +1.9803009353327421, +1.5186944606912809, +1.0022020950145161, +1.7229020634258043, +1.3850540674280643, +1.7822637691035355, +1.9171445972779624, +1.5355194747799596, +1.6346973180434885, +1.5169625664959401, +1.9723626794854456, +1.5441875342073716, +1.4396110107955760, +1.8730021341553347, +1.1623130516109468, +1.5387986093673858, +1.0635045777049790, +1.6740728359317174, +1.1546142921049198, +1.3942433278464768, +1.5993777832613778, +1.4239219222927391, +1.8682899561638515, +1.6835915217505399, +1.4025308060295079, +1.3969780486281298, +1.9862189959208350, +1.8434442782690179, +1.2620930661499683, +1.8430710792655034, +1.5898888580666566, +1.1701115048413349, +1.7043928719337691, +1.5008576729998191, +1.2703354686136037, +1.8792207519550173, +1.0052169968523685, +1.2624919400803802, +1.5024935651453073, +1.2910466233351869, +1.0199757471421802, +1.7821612640550764, +1.7715483170850250, +1.4172921939084828, +1.5560725664690889, +1.7239654121867545, +1.8314561525522515, +1.1435098420878749, +1.1671586356425763, +1.2863753305903876, +1.9369417468750789, +1.5778851143068033, +1.3081518410895261, +1.5912323083113660, +1.5181257696301638, +1.6600834487782272, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.0000000000000000, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-14, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.66613381477509392E-15, +0.33306690738754696E-15, +0.88817841970012523E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.99920072216264089E-15, +0.22204460492503131E-15, +0.44408920985006262E-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, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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+66
497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
498data
499+1.45207148543519597896308025051093454, +1.90684095841350914926679206881501484, +1.42334862439770508027800250402899568, +1.14883287468921042132869690441835669, +1.43726896856516440917957551128902190, +1.11288587979042161863717172089995806, +1.98192749394984093241880568416268106, +1.20243183636487628407214241978843034, +1.47842743046157504097262841381008016, +1.37290838674865849207895479404655076, +1.90789242742050716881072882586073025, +1.28897498182390765318578535543702513, +1.33105562146341164804432326817726823, +1.08219192114108978126855602525665369, +1.61092955722983459436466405878521512, +1.83604044203952051135421334879753594, +1.32145047210747615733685157827613309, +1.20535199416268224883355304652876813, +1.36405591754775202357935697906313123, +1.63898421248674344941747684191559866, +1.80070536676637196023768580619618209, +1.51871560114713402223856224922218006, +1.09585685703157344954022437610492625, +1.36315634878442282419809150491256071, +1.12064979495188754788742399004144882, +1.70700174437405120494910916469646029, +1.57115618440517191155207718037468666, +1.37757575081968981740593421818378513, +1.40377165080573686889228361683488227, +1.74678843914350380924993938293970434, +1.87869298380369161543795548715147296, +1.56773574156416784534630438618337817, +1.41591102333983532959538573683346792, +1.15062745964815205048218009803812388, +1.29857982666291348616517983862156691, +1.05537325304786667069293540275017236, +1.85759549199884246267720100954486719, +1.36474370086544502799624255718469644, +1.34651409418549348642625771613523248, +1.26713065778301324152794979372600316, +1.56668218877506668588002030326674386, +1.19725974304278724238603908967118529, +1.34540371944252587717364411908491783, +1.01505942803283103120464963286376840, +1.17482874493675258842367020740496123, +1.37639083597311890209552921078834569, +1.75543826391763714288420393026499093, +1.77230496548446172828543914387864420, +1.63184876170690189186900449964150224, +1.08941396999418287785054179525171848, +1.22407279684751985156805557819523446, +1.04327021226981930258926954681534894, +1.31835163097704370071799294824483967, +1.48835238436199569587261332314758142, +1.42666793187821575499717893907510791, +1.57342975650812151946163035318129060, +1.76172534100656752895939860634155918, +1.08474591528458009766616678616769463, +1.15526542350572173776384947547141985, +1.57445191514905832762390310133296322, +1.95499772851436151164000230700165826, +1.96849605207988198968888666581771758, +1.99012123862138424162874282697578682, +1.91652882293495734835323890704564591, +1.23216030830533143748230883281258307, +1.04367439331322207243223185396458552
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.45207148543519597896308025051093454, +1.90684095841350914926679206881501484, +1.42334862439770508027800250402899568, +1.14883287468921042132869690441835727, +1.43726896856516440917957551128902171, +1.11288587979042161863717172089995767, +1.98192749394984093241880568416268067, +1.20243183636487628407214241978843053, +1.47842743046157504097262841381008035, +1.37290838674865849207895479404655114, +1.90789242742050716881072882586073102, +1.28897498182390765318578535543702552, +1.33105562146341164804432326817726881, +1.08219192114108978126855602525665369, +1.61092955722983459436466405878521550, +1.83604044203952051135421334879753613, +1.32145047210747615733685157827613290, +1.20535199416268224883355304652876793, +1.36405591754775202357935697906313123, +1.63898421248674344941747684191559944, +1.80070536676637196023768580619618209, +1.51871560114713402223856224922218006, +1.09585685703157344954022437610492625, +1.36315634878442282419809150491256090, +1.12064979495188754788742399004144863, +1.70700174437405120494910916469646029, +1.57115618440517191155207718037468666, +1.37757575081968981740593421818378551, +1.40377165080573686889228361683488285, +1.74678843914350380924993938293970453, +1.87869298380369161543795548715147296, +1.56773574156416784534630438618337855, +1.41591102333983532959538573683346811, +1.15062745964815205048218009803812349, +1.29857982666291348616517983862156710, +1.05537325304786667069293540275017236, +1.85759549199884246267720100954486757, +1.36474370086544502799624255718469567, +1.34651409418549348642625771613523248, +1.26713065778301324152794979372600297, +1.56668218877506668588002030326674386, +1.19725974304278724238603908967118529, +1.34540371944252587717364411908491822, +1.01505942803283103120464963286376878, +1.17482874493675258842367020740496161, +1.37639083597311890209552921078834550, +1.75543826391763714288420393026499132, +1.77230496548446172828543914387864458, +1.63184876170690189186900449964150224, +1.08941396999418287785054179525171809, +1.22407279684751985156805557819523446, +1.04327021226981930258926954681534875, +1.31835163097704370071799294824484006, +1.48835238436199569587261332314758104, +1.42666793187821575499717893907510791, +1.57342975650812151946163035318129041, +1.76172534100656752895939860634155918, +1.08474591528458009766616678616769483, +1.15526542350572173776384947547141947, +1.57445191514905832762390310133296380, +1.95499772851436151164000230700165845, +1.96849605207988198968888666581771777, +1.99012123862138424162874282697578682, +1.91652882293495734835323890704564610, +1.23216030830533143748230883281258307, +1.04367439331322207243223185396458552, -0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000
504reltol = sqrt(epsilon(1._TKG))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, 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: