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

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

Detailed Description

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

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces ⛓

use pm_fftnr, only: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
pm_fftnr::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTR
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKG => CKS
20 real(TKG) :: reltol
21 complex(TKG), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
27 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKG))")
38 reltol = sqrt(epsilon(1._TKG))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKG => CKD
50 real(TKG) :: reltol
51 complex(TKG), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
57 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKG))")
68 reltol = sqrt(epsilon(1._TKG))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKG => CKH
80 real(TKG) :: reltol
81 complex(TKG), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
87 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKG))")
98 reltol = sqrt(epsilon(1._TKG))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKG => RKS
110 real(TKG) :: reltol
111 real(TKG), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
117 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKG))")
128 reltol = sqrt(epsilon(1._TKG))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKG => RKD
140 real(TKG) :: reltol
141 real(TKG), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
147 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKG))")
158 reltol = sqrt(epsilon(1._TKG))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKG => RKH
170 real(TKG) :: reltol
171 real(TKG), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
177 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKG))")
188 reltol = sqrt(epsilon(1._TKG))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
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+73
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.15743637, +0.319189429), (+1.42218089, +0.703488410), (+1.57060862, +0.279794633), (+1.61290646, +0.422586381), (+1.65659177, +0.820668936E-1), (+1.13156390, +0.241247177), (+1.51432455, +0.316107869), (+1.64638233, +0.273005784), (+1.75409198, +0.423657596), (+1.97481036, +0.756455481), (+1.44140291, +0.327930510), (+1.39716792, +0.673024714), (+1.87910223, +0.130625963E-1), (+1.00436187, +0.105923593), (+1.37052119, +0.580013275), (+1.89810932, +0.220126748), (+1.90853071, +0.872186005), (+1.83787346, +0.479559064), (+1.81559992, +0.687599957), (+1.44334030, +0.108688235), (+1.46071601, +0.165275097), (+1.56077385, +0.724675894), (+1.96138084, +0.503799796), (+1.26061773, +0.167590618), (+1.77600253, +0.542477310), (+1.40549064, +0.291857719), (+1.30207992, +0.135917246), (+1.51478398, +0.497490346), (+1.02480960, +0.887212813), (+1.52269530, +0.930326581), (+1.79074645, +0.106244922), (+1.37570953, +0.708572030), (+1.87108064, +0.436289728), (+1.55053365, +0.245936930), (+1.07063258, +0.951599240), (+1.43406320, +0.622803628), (+1.12199235, +0.978675604), (+1.43300605, +0.692043304E-1), (+1.65825927, +0.825468123), (+1.56024981, +0.943677366), (+1.10152960, +0.925354362), (+1.17332411, +0.509834111), (+1.47885323, +0.987160683), (+1.01763523, +0.342921078), (+1.31999302, +0.879479408), (+1.53083730, +0.467681885E-2), (+1.36668515, +0.659227014), (+1.61880136, +0.427891850), (+1.82508993, +0.931441545), (+1.00386190, +0.322490454), (+1.61008668, +0.150882483), (+1.51570380, +0.461356103), (+1.54352713, +0.520875394), (+1.42657137, +0.672201753), (+1.06968546, +0.872442603), (+1.65220189, +0.631577373E-1), (+1.36507440, +0.581988752), (+1.79116797, +0.647492468), (+1.10091889, +0.349748671), (+1.27306819, +0.608038425), (+1.76043940, +0.864625096), (+1.94970369, +0.990564227E-1), (+1.10396910, +0.227481127E-2), (+1.34626484, +0.589536786), (+1.61001003, +0.937574267), (+1.16555786, +0.323287249E-1), (+1.92812133, +0.547001898), (+1.02598846, +0.459237576), (+1.26249814, +0.353838801), (+1.39075541, +0.272575498), (+1.70350599, +0.376695931), (+1.62541676, +0.512986481), (+1.85027504, +0.586033642)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.15743613, +0.319189399), (+1.42218101, +0.703488350), (+1.57060826, +0.279794693), (+1.61290622, +0.422586322), (+1.65659153, +0.820667148E-1), (+1.13156390, +0.241247177), (+1.51432419, +0.316107750), (+1.64638209, +0.273005575), (+1.75409186, +0.423657686), (+1.97481036, +0.756455541), (+1.44140279, +0.327930629), (+1.39716792, +0.673024952), (+1.87910247, +0.130625814E-1), (+1.00436211, +0.105923608), (+1.37052107, +0.580013156), (+1.89810944, +0.220126837), (+1.90853047, +0.872185946), (+1.83787334, +0.479559034), (+1.81559968, +0.687600017), (+1.44334018, +0.108688205), (+1.46071601, +0.165274948), (+1.56077385, +0.724675775), (+1.96138048, +0.503799617), (+1.26061761, +0.167590484), (+1.77600253, +0.542477548), (+1.40549064, +0.291857898), (+1.30207992, +0.135917470), (+1.51478386, +0.497490525), (+1.02480984, +0.887212813), (+1.52269530, +0.930326462), (+1.79074621, +0.106244937), (+1.37570953, +0.708571911), (+1.87108064, +0.436289549), (+1.55053353, +0.245936841), (+1.07063270, +0.951599002), (+1.43406320, +0.622803450), (+1.12199259, +0.978675425), (+1.43300629, +0.692041442E-1), (+1.65825939, +0.825467706), (+1.56024981, +0.943677008), (+1.10152960, +0.925354362), (+1.17332423, +0.509833992), (+1.47885299, +0.987160563), (+1.01763523, +0.342921019), (+1.31999314, +0.879479229), (+1.53083742, +0.467668101E-2), (+1.36668515, +0.659226954), (+1.61880136, +0.427891850), (+1.82508969, +0.931441307), (+1.00386190, +0.322490215), (+1.61008644, +0.150882155), (+1.51570368, +0.461355984), (+1.54352713, +0.520875156), (+1.42657137, +0.672201633), (+1.06968558, +0.872442365), (+1.65220189, +0.631576031E-1), (+1.36507428, +0.581988692), (+1.79116762, +0.647492409), (+1.10091877, +0.349748611), (+1.27306807, +0.608038306), (+1.76043916, +0.864625096), (+1.94970345, +0.990565792E-1), (+1.10396862, +0.227478147E-2), (+1.34626484, +0.589536607), (+1.61000991, +0.937574267), (+1.16555798, +0.323287547E-1), (+1.92812121, +0.547001779), (+1.02598858, +0.459237576), (+1.26249826, +0.353838831), (+1.39075589, +0.272575438), (+1.70350623, +0.376695633), (+1.62541699, +0.512986422), (+1.85027468, +0.586033821), (-0.596046448E-7, -0.149011612E-6), (+0.119209290E-6, -0.447034836E-7), (+0.238418579E-6, -0.178813934E-6), (-0.596046448E-7, +0.163912773E-6), (+0.596046448E-7, -0.707805157E-7), (+0.596046448E-7, +0.119209290E-6), (+0.596046448E-7, +0.223517418E-7), (+0.00000000, -0.119209290E-6), (+0.119209290E-6, -0.894069672E-7), (+0.596046448E-7, +0.298023224E-7), (+0.357627869E-6, -0.298023224E-7), (+0.178813934E-6, +0.201165676E-6), (+0.238418579E-6, +0.298023224E-7), (+0.596046448E-7, +0.178813934E-6), (+0.238418579E-6, -0.149011612E-7), (-0.119209290E-6, -0.178813934E-6), (+0.178813934E-6, -0.193715096E-6), (+0.00000000, +0.298023224E-7), (+0.596046448E-7, -0.134110451E-6), (+0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.00000000), (-0.178813934E-6, +0.819563866E-7), (+0.298023224E-6, +0.298023224E-7), (-0.298023224E-6, +0.193715096E-6), (+0.178813934E-6, +0.819563866E-7), (+0.00000000, +0.298023224E-6), (+0.00000000, +0.119209290E-6), (+0.596046448E-7, +0.178813934E-6), (+0.178813934E-6, +0.201165676E-6), (-0.178813934E-6, +0.357627869E-6), (+0.00000000, +0.298023224E-6), (-0.178813934E-6, -0.596046448E-7), (+0.119209290E-6, -0.596046448E-7), (+0.00000000, +0.238418579E-6), (+0.119209290E-6, +0.134110451E-6), (+0.119209290E-6, +0.596046448E-7), (+0.119209290E-6, -0.186264515E-7), (-0.178813934E-6, +0.178813934E-6), (+0.596046448E-7, +0.119209290E-6), (+0.00000000, +0.119209290E-6), (+0.178813934E-6, +0.596046448E-7), (+0.596046448E-7, +0.327825546E-6), (+0.238418579E-6, +0.193715096E-6), (+0.596046448E-7, +0.119209290E-6), (+0.238418579E-6, +0.149011612E-6), (+0.00000000, +0.238418579E-6), (+0.119209290E-6, +0.279396772E-6), (+0.119209290E-6, -0.119209290E-6), (+0.238418579E-6, +0.894069672E-7), (+0.596046448E-7, +0.163912773E-6), (+0.238418579E-6, +0.149011612E-6), (+0.178813934E-6, -0.298023224E-7), (+0.357627869E-6, +0.111758709E-6), (-0.119209290E-6, +0.230967999E-6), (+0.596046448E-7, +0.119209290E-6)
12reltol = sqrt(epsilon(1._TKG))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+11
22data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
23data
24(+1.1204272442464442, +0.96615806689332950), (+1.0389572980702795, +0.29716586011213364), (+1.3460212312781068, +0.96729710761769072), (+1.0642235818325951, +0.27937494259801510), (+1.8428787478702058, +0.76593472891200454), (+1.3674524692920180, +0.76290553141075634), (+1.6764010175717265, +0.56323086661747002), (+1.7776124342276605, +0.13728509648728593), (+1.5565692318073447, +0.15462233954520044), (+1.0657558534482057, +0.77883818613093514), (+1.4515334985554151, +0.90694985575817200)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.1204272442464445, +0.96615806689332939), (+1.0389572980702795, +0.29716586011213370), (+1.3460212312781068, +0.96729710761769072), (+1.0642235818325951, +0.27937494259801510), (+1.8428787478702058, +0.76593472891200420), (+1.3674524692920178, +0.76290553141075612), (+1.6764010175717268, +0.56323086661746979), (+1.7776124342276600, +0.13728509648728573), (+1.5565692318073447, +0.15462233954520049), (+1.0657558534482052, +0.77883818613093503), (+1.4515334985554151, +0.90694985575817177), (+0.11102230246251565E-15, -0.19428902930940239E-15), (-0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.24980018054066022E-15)
30reltol = sqrt(epsilon(1._TKG))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+23
40data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
41data
42(+1.32912594979942819898507135781456412, +0.575087224620515295907926606992851433), (+1.61364018222522814591845488384981870, +0.884390465321057404919654674825619725E-1), (+1.27171676650474690290591228871402877, +0.330441816029325793658838202633493478), (+1.95830206966385520716543751580758069, +0.658071601304355471210778727490192705E-3), (+1.00256770424709651136070584188968074, +0.692252396270917678492326776890483917), (+1.25606829610992452129116527310503999, +0.670346578128572910047355236491968197), (+1.23462405969256765908419203623200873, +0.406429458503962019951208995510626973), (+1.95336521041321122515318823116441341, +0.407609353883293151320020650835263970E-2), (+1.05644325030826256762612878213679084, +0.500637900932614531152480023371212632), (+1.85424211996793345820628555057697350, +0.453756271126861314737578375419880019), (+1.45732387734996439762397141207962613, +0.655970835981516492879450837922097626), (+1.91856110433420689713993793845494930, +0.928358666489333501802009657220172210), (+1.97812627202329275464880947821481153, +0.238182273481984138848158282072128445), (+1.84172342098174305665187938508129623, +0.512419135317638253986015209216838599), (+1.76202746279279372959389478493239253, +0.574136830146820224523997841016147545), (+1.95417157594001648842368886124603706, +0.860641125355861987898435469051199091), (+1.45235126388771268904825959235965841, +0.495395037105185273850758844177454613), (+1.51444325907168085469963897848147801, +0.928775496719242635437422300964637403), (+1.75920444932090059338263214535863816, +0.189235219593683528343812028756117655), (+1.90943354333343813839565776603910935, +0.680021117157276225741123963595306485), (+1.38156159402923304295004970331764305, +0.803820963087130015590390331418822695), (+1.52554412833770353545938917444910278, +0.898389963206824852447919759579110219), (+1.57745887981571016256534744309142022, +0.576889157619145788389925079154089405)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.32912594979942819898507135781456412, +0.575087224620515295907926606992851530), (+1.61364018222522814591845488384981850, +0.884390465321057404919654674825620688E-1), (+1.27171676650474690290591228871402916, +0.330441816029325793658838202633493382), (+1.95830206966385520716543751580758088, +0.658071601304355471210778727490048260E-3), (+1.00256770424709651136070584188968074, +0.692252396270917678492326776890483917), (+1.25606829610992452129116527310503980, +0.670346578128572910047355236491968293), (+1.23462405969256765908419203623200873, +0.406429458503962019951208995510626876), (+1.95336521041321122515318823116441302, +0.407609353883293151320020650835247118E-2), (+1.05644325030826256762612878213679065, +0.500637900932614531152480023371212632), (+1.85424211996793345820628555057697312, +0.453756271126861314737578375419879827), (+1.45732387734996439762397141207962594, +0.655970835981516492879450837922097818), (+1.91856110433420689713993793845494892, +0.928358666489333501802009657220172306), (+1.97812627202329275464880947821481153, +0.238182273481984138848158282072128445), (+1.84172342098174305665187938508129585, +0.512419135317638253986015209216838310), (+1.76202746279279372959389478493239253, +0.574136830146820224523997841016147738), (+1.95417157594001648842368886124603687, +0.860641125355861987898435469051199283), (+1.45235126388771268904825959235965861, +0.495395037105185273850758844177454709), (+1.51444325907168085469963897848147820, +0.928775496719242635437422300964637210), (+1.75920444932090059338263214535863816, +0.189235219593683528343812028756117751), (+1.90943354333343813839565776603910954, +0.680021117157276225741123963595306678), (+1.38156159402923304295004970331764324, +0.803820963087130015590390331418822791), (+1.52554412833770353545938917444910297, +0.898389963206824852447919759579110123), (+1.57745887981571016256534744309142003, +0.576889157619145788389925079154089694), (-0.962964972193617926527988971292463659E-34, +0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (+0.385185988877447170611195588516985464E-33, +0.216667118743564033468797518540804323E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34)
48reltol = sqrt(epsilon(1._TKG))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+55
58data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
59data
60+1.66893768, +1.44751334, +1.39164948, +1.64621139, +1.84312057, +1.81192696, +1.07278204, +1.39241600, +1.15899420, +1.55292392, +1.43910480, +1.59965670, +1.90999246, +1.13800597, +1.65766978, +1.66362321, +1.41546226, +1.57642043, +1.03161764, +1.49166846, +1.18258238, +1.94741964, +1.79815590, +1.36422396, +1.82246184, +1.30366361, +1.35282052, +1.42605996, +1.10844481, +1.31470442, +1.51400828, +1.68423367, +1.01967978, +1.62904382, +1.72606969, +1.68792868, +1.00348425, +1.86846828, +1.57340240, +1.16675794, +1.58363986, +1.24952817, +1.63936579, +1.04564953, +1.82386875, +1.23639226, +1.52303970, +1.85661077, +1.84134364, +1.67593741, +1.74256325, +1.21692872, +1.71658468, +1.90676928, +1.18244648
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.66893780, +1.44751346, +1.39164937, +1.64621127, +1.84312057, +1.81192684, +1.07278192, +1.39241612, +1.15899432, +1.55292392, +1.43910456, +1.59965658, +1.90999258, +1.13800585, +1.65766978, +1.66362333, +1.41546226, +1.57642055, +1.03161764, +1.49166846, +1.18258238, +1.94741964, +1.79815578, +1.36422396, +1.82246196, +1.30366397, +1.35282040, +1.42605996, +1.10844493, +1.31470418, +1.51400816, +1.68423367, +1.01967990, +1.62904394, +1.72606981, +1.68792856, +1.00348425, +1.86846805, +1.57340252, +1.16675818, +1.58363998, +1.24952817, +1.63936567, +1.04564953, +1.82386887, +1.23639238, +1.52303982, +1.85661077, +1.84134364, +1.67593765, +1.74256325, +1.21692872, +1.71658468, +1.90676904, +1.18244648, +0.238418579E-6, +0.119209290E-6, +0.238418579E-6, -0.596046448E-7, +0.178813934E-6, +0.298023224E-6, +0.178813934E-6, +0.119209290E-6, +0.357627869E-6
66reltol = sqrt(epsilon(1._TKG))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+73
76data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
77data
78+1.1420218869130987, +1.9954620355886146, +1.6040916678541632, +1.8984167362321502, +1.4720958537801700, +1.9803542137360437, +1.8162413295313127, +1.0758845208522696, +1.8360043578343455, +1.1823273850047689, +1.5462695795493233, +1.9369621477501560, +1.0047750321142230, +1.1405509364333239, +1.4237198103396294, +1.5347174362504465, +1.5050391999377943, +1.1819169338056477, +1.9497008553473898, +1.6941298902197202, +1.7818869162651017, +1.1740718638341310, +1.1140182352278547, +1.6886400437274085, +1.4037860457964193, +1.6055093279745687, +1.3700372760936550, +1.4755481992549311, +1.7696226828755468, +1.4385159883101775, +1.4124041457757195, +1.7418336557085778, +1.9572814752658161, +1.3898697746171680, +1.1280012403138038, +1.4528471411710930, +1.9456818463875805, +1.5079856426631122, +1.2303044181485929, +1.4890839082294645, +1.7131028618775601, +1.3643549283802616, +1.4444176162745554, +1.2282081597983623, +1.7887188095856357, +1.6895142255811808, +1.5151780340940588, +1.8573759721252536, +1.9180237952964190, +1.0128913498797767, +1.5022946130715877, +1.1545333286785397, +1.2432536461176924, +1.6125052169960332, +1.4530124699110571, +1.9153993601883141, +1.6216822267954956, +1.3549804153744001, +1.4373088084947576, +1.3869486278829464, +1.7619463482292959, +1.5527837900404604, +1.8206570434170946, +1.9288410870814157, +1.2914281574731434, +1.1607416348963420, +1.0526008687583293, +1.2355624768458158, +1.0083751240249454, +1.7350453114883619, +1.6453287212114929, +1.6430872704828350, +1.2666993802144479
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.1420218869130985, +1.9954620355886146, +1.6040916678541637, +1.8984167362321505, +1.4720958537801698, +1.9803542137360428, +1.8162413295313122, +1.0758845208522700, +1.8360043578343457, +1.1823273850047689, +1.5462695795493233, +1.9369621477501564, +1.0047750321142233, +1.1405509364333239, +1.4237198103396291, +1.5347174362504461, +1.5050391999377943, +1.1819169338056481, +1.9497008553473898, +1.6941298902197204, +1.7818869162651008, +1.1740718638341310, +1.1140182352278543, +1.6886400437274081, +1.4037860457964193, +1.6055093279745687, +1.3700372760936546, +1.4755481992549306, +1.7696226828755464, +1.4385159883101775, +1.4124041457757188, +1.7418336557085774, +1.9572814752658161, +1.3898697746171675, +1.1280012403138036, +1.4528471411710926, +1.9456818463875805, +1.5079856426631115, +1.2303044181485927, +1.4890839082294640, +1.7131028618775603, +1.3643549283802612, +1.4444176162745550, +1.2282081597983616, +1.7887188095856357, +1.6895142255811804, +1.5151780340940584, +1.8573759721252534, +1.9180237952964188, +1.0128913498797762, +1.5022946130715877, +1.1545333286785393, +1.2432536461176924, +1.6125052169960323, +1.4530124699110569, +1.9153993601883130, +1.6216822267954951, +1.3549804153743996, +1.4373088084947574, +1.3869486278829459, +1.7619463482292956, +1.5527837900404595, +1.8206570434170939, +1.9288410870814148, +1.2914281574731430, +1.1607416348963415, +1.0526008687583290, +1.2355624768458155, +1.0083751240249461, +1.7350453114883613, +1.6453287212114929, +1.6430872704828348, +1.2666993802144479, +0.0000000000000000, -0.55511151231257827E-15, -0.88817841970012523E-15, +0.55511151231257827E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.0000000000000000, -0.55511151231257827E-15, -0.55511151231257827E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.0000000000000000, +0.22204460492503131E-15, +0.0000000000000000, +0.0000000000000000, +0.22204460492503131E-15, +0.88817841970012523E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.66613381477509392E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.66613381477509392E-15, +0.12212453270876722E-14, -0.22204460492503131E-15, +0.99920072216264089E-15
84reltol = sqrt(epsilon(1._TKG))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+48
94data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
95data
96+1.40862418522867161036548870509861411, +1.98428778000040654876232525941939126, +1.87582347310976450658581389036798467, +1.63871908275519156822330971735516114, +1.45866765781690944806382509187994981, +1.78326446364546209488836535844086992, +1.37610889627435839286159203474170171, +1.99490890469600174531203612422753321, +1.42913802606069771317684287913005854, +1.16513773552704251189296017926471939, +1.40477045702600528991398881082423593, +1.33681287682018093094869138006129161, +1.62599233302203604360368972682468111, +1.48789068816896538878526028473865405, +1.19010616263370562289409683155064519, +1.15312318776977250386900058902516544, +1.21429765953459121097194536027971830, +1.51109945231585721928400929732762184, +1.28192403738327242162857866872146358, +1.12559051056568722230520058557759413, +1.77105891206136156123174433124505211, +1.82194257044920649175069620545787858, +1.56857983605555021952807311902719026, +1.29926472909298063458029087050477027, +1.57898841708798821968348306191178721, +1.60489283453868754884451862951718781, +1.41829143045706517251775637600825855, +1.28829725099058092666042276140058174, +1.30194598021196716691031756776411578, +1.63285876509018128362939998648462032, +1.48404823273862393306590998128421318, +1.43395262075540504424244228167208091, +1.49548734398590406240020206214450900, +1.15762693062004742998701412066583256, +1.35838785950707891117423296599296527, +1.64777725191617578511790319514119882, +1.95998051863381843729821247116479114, +1.98249282063391829990519220752396349, +1.46417643934801026089518916257417015, +1.58796708016512706171064194756618785, +1.38039246515117112245735644961266002, +1.97492279898176325471731218299841152, +1.04778406372213621101211772570919426, +1.26361576954530987603216695511566924, +1.10420309423467683815316258454028503, +1.03290573894740206652420294473730200, +1.45567988924070852895377384210654410, +1.54192457129551248170966580445936022
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.40862418522867161036548870509861391, +1.98428778000040654876232525941939107, +1.87582347310976450658581389036798409, +1.63871908275519156822330971735516114, +1.45866765781690944806382509187995000, +1.78326446364546209488836535844086973, +1.37610889627435839286159203474170190, +1.99490890469600174531203612422753301, +1.42913802606069771317684287913005816, +1.16513773552704251189296017926471939, +1.40477045702600528991398881082423555, +1.33681287682018093094869138006129141, +1.62599233302203604360368972682468150, +1.48789068816896538878526028473865386, +1.19010616263370562289409683155064519, +1.15312318776977250386900058902516505, +1.21429765953459121097194536027971811, +1.51109945231585721928400929732762165, +1.28192403738327242162857866872146320, +1.12559051056568722230520058557759413, +1.77105891206136156123174433124505211, +1.82194257044920649175069620545787838, +1.56857983605555021952807311902719007, +1.29926472909298063458029087050476989, +1.57898841708798821968348306191178682, +1.60489283453868754884451862951718762, +1.41829143045706517251775637600825816, +1.28829725099058092666042276140058194, +1.30194598021196716691031756776411539, +1.63285876509018128362939998648462032, +1.48404823273862393306590998128421260, +1.43395262075540504424244228167208053, +1.49548734398590406240020206214450881, +1.15762693062004742998701412066583236, +1.35838785950707891117423296599296527, +1.64777725191617578511790319514119882, +1.95998051863381843729821247116479095, +1.98249282063391829990519220752396387, +1.46417643934801026089518916257417053, +1.58796708016512706171064194756618766, +1.38039246515117112245735644961265983, +1.97492279898176325471731218299841152, +1.04778406372213621101211772570919426, +1.26361576954530987603216695511566924, +1.10420309423467683815316258454028484, +1.03290573894740206652420294473730180, +1.45567988924070852895377384210654429, +1.54192457129551248170966580445936022, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34
102reltol = sqrt(epsilon(1._TKG))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+26
112data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
113data
114(+1.98364115, +0.750092208), (+1.39056492, +0.273882329), (+1.05634725, +0.925663650), (+1.51328015, +0.111897051), (+1.01445496, +0.454437435), (+1.02244544, +0.789985299), (+1.30244279, +0.704822242), (+1.15121317, +0.744957983), (+1.15824103, +0.318369925), (+1.31255198, +0.109665096), (+1.56900549, +0.412149608), (+1.12655497, +0.366597772), (+1.50610471, +0.936307251), (+1.30179501, +0.188909948), (+1.64856696, +0.549282670), (+1.44330716, +0.606220365), (+1.80815744, +0.142753124E-2), (+1.57877970, +0.259654462), (+1.84121776, +0.223279178), (+1.00932240, +0.593643785), (+1.81755435, +0.532213390), (+1.49938893, +0.747221053), (+1.32352066, +0.954218924), (+1.82929850, +0.560831368), (+1.98912036, +0.801871538), (+1.21501827, +0.301167965E-1)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.98364127, +0.750092268), (+1.39056492, +0.273882270), (+1.05634725, +0.925663590), (+1.51328015, +0.111897022), (+1.01445496, +0.454437435), (+1.02244544, +0.789985240), (+1.30244303, +0.704822242), (+1.15121317, +0.744957924), (+1.15824103, +0.318369865), (+1.31255198, +0.109665141), (+1.56900549, +0.412149668), (+1.12655485, +0.366597742), (+1.50610447, +0.936307251), (+1.30179501, +0.188910052), (+1.64856696, +0.549282789), (+1.44330716, +0.606220365), (+1.80815756, +0.142756104E-2), (+1.57877970, +0.259654403), (+1.84121764, +0.223279238), (+1.00932240, +0.593643665), (+1.81755435, +0.532213390), (+1.49938893, +0.747221053), (+1.32352066, +0.954218924), (+1.82929850, +0.560831308), (+1.98912048, +0.801871419), (+1.21501827, +0.301167779E-1), (+0.00000000, -0.104308128E-6), (+0.119209290E-6, -0.298023224E-7), (+0.119209290E-6, +0.596046448E-7), (+0.596046448E-7, +0.745058060E-7), (+0.178813934E-6, +0.00000000), (-0.596046448E-7, +0.596046448E-7)
120reltol = sqrt(epsilon(1._TKG))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+90
130data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
131data
132(+1.7396875019152951, +0.54151967335050377), (+1.5021926495735101, +0.24097929831414233E-1), (+1.2882320378896139, +0.48072115783686220), (+1.1187701335540694, +0.29107978153030745), (+1.1041797732001797, +0.15379030107673830), (+1.9225284985513560, +0.59377284230796601), (+1.0576014545729746, +0.12599247733500940), (+1.8229010075040064, +0.10450976287069180), (+1.3044116253288542, +0.13434074505318594), (+1.4537210035780106, +0.47970048861039516), (+1.9707084674345272, +0.98500403692975169), (+1.3444064639705873, +0.13382667472233933E-1), (+1.3285216576371863, +0.50180764854199267), (+1.2737193267369151, +0.86760417808292067), (+1.7023451414233584, +0.88592378126287530), (+1.2745570734359246, +0.23971016754325591), (+1.1510121122571584, +0.28130205040281775), (+1.2133945724942463, +0.55682390929028824), (+1.3018851983652089, +0.99281163607819845), (+1.7298565313127940, +0.69708089211674407), (+1.0251530124056178, +0.71396317127582121), (+1.1344329401793714, +0.23099663015591065), (+1.5375703543971841, +0.19382635732832065), (+1.5623784484345260, +0.73101567685316915), (+1.0112161511378184, +0.31684396626528488), (+1.4116115059634602, +0.30934665316686827), (+1.2884533036675050, +0.18210630306609743E-1), (+1.4617937708348459, +0.44051203606829803), (+1.6388076760691799, +0.67050847732292540), (+1.6865682928804782, +0.15851613957314270), (+1.9183710557128959, +0.21735330283528398), (+1.5982378608780390, +0.29872720416925724), (+1.4021865294810989, +0.26805827808548355), (+1.2804064457413391, +0.22284797303713477), (+1.0902883005568871, +0.44373291623828859), (+1.1095210533992650, +0.73693539014966924), (+1.6213984114107565, +0.54763916103657451), (+1.3240415727678516, +0.76719909815677956), (+1.8245358761027641, +0.50482006277567615), (+1.2704502208480610, +0.24810402376512497), (+1.1264621684610123, +0.86321678961293857), (+1.4130876376608570, +0.82367464334471507E-1), (+1.9974260476064596, +0.69876631444744153), (+1.5383008369725641, +0.27944085750690539), (+1.1736866881750703, +0.93461865502545516), (+1.9410011607822617, +0.92496454723588717), (+1.3972195221555155, +0.93606102119827927), (+1.7819797366861470, +0.79057882847095329), (+1.0977160408448845, +0.14525901882746672), (+1.2053499023996121, +0.31607035284604934), (+1.7837645973279583, +0.63376794652499857), (+1.4722970147442136, +0.76989098223942498), (+1.8995411476369146, +0.69800263119749739E-1), (+1.0063631583208787, +0.95979948487544287), (+1.7167855615504524, +0.49155628547516095E-1), (+1.8162129970477197, +0.26215604072438692), (+1.9521702991479308, +0.86103688425179792E-2), (+1.3141414014413257, +0.72496286319390701), (+1.8142987040706138, +0.42131310870521455), (+1.9904546044518989, +0.83746842063651594), (+1.4231993216958729, +0.47277288785756255), (+1.3389607336820930, +0.47473564965817394), (+1.1016719717432000, +0.82869649073149254), (+1.7390986064285570, +0.64114607019533199), (+1.4067484633206835, +0.98187884210910459), (+1.4600593231063459, +0.32977425342544120), (+1.4699844052641962, +0.46923190135246473), (+1.6680304359825258, +0.60377338582940865), (+1.3128734106561852, +0.10176501793122106), (+1.1887829168909072, +0.69523952495572172), (+1.4090712884668799, +0.64699143086108468E-1), (+1.0101257557584367, +0.10649928716680868), (+1.8932222099861624, +0.58243534305634115), (+1.1577810862541065, +0.24517190848821502), (+1.4824815724889815, +0.53395758968040052E-2), (+1.3312485765081032, +0.18752333126296050), (+1.4116692484673663, +0.10751206551734871), (+1.9805888253810715, +0.15285202747558491), (+1.2764100936542067, +0.58571519353920465E-1), (+1.6017055160508127, +0.53115877330514860), (+1.5123394031617445, +0.60801153794635598), (+1.5805382330674558, +0.14589014956538615), (+1.3913548996608962, +0.16777765836290559), (+1.3196787763657798, +0.62643338576853902), (+1.9236523056352381, +0.50761687319787796), (+1.6350894297326943, +0.25056890645646590), (+1.0603284595576872, +0.24467277250248687), (+1.6372706547084475, +0.74031581264088242), (+1.2249035499687051, +0.49416650931455319), (+1.2423062003479752, +0.95889732974787867)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.7396875019152951, +0.54151967335050388), (+1.5021926495735103, +0.24097929831414511E-1), (+1.2882320378896137, +0.48072115783686242), (+1.1187701335540696, +0.29107978153030784), (+1.1041797732001792, +0.15379030107673838), (+1.9225284985513560, +0.59377284230796579), (+1.0576014545729744, +0.12599247733500960), (+1.8229010075040062, +0.10450976287069197), (+1.3044116253288549, +0.13434074505318599), (+1.4537210035780106, +0.47970048861039533), (+1.9707084674345272, +0.98500403692975202), (+1.3444064639705877, +0.13382667472234211E-1), (+1.3285216576371859, +0.50180764854199311), (+1.2737193267369147, +0.86760417808292034), (+1.7023451414233581, +0.88592378126287552), (+1.2745570734359244, +0.23971016754325614), (+1.1510121122571584, +0.28130205040281786), (+1.2133945724942461, +0.55682390929028835), (+1.3018851983652087, +0.99281163607819867), (+1.7298565313127938, +0.69708089211674418), (+1.0251530124056178, +0.71396317127582154), (+1.1344329401793711, +0.23099663015591074), (+1.5375703543971837, +0.19382635732832082), (+1.5623784484345260, +0.73101567685316904), (+1.0112161511378186, +0.31684396626528499), (+1.4116115059634600, +0.30934665316686849), (+1.2884533036675050, +0.18210630306609979E-1), (+1.4617937708348459, +0.44051203606829825), (+1.6388076760691794, +0.67050847732292562), (+1.6865682928804779, +0.15851613957314298), (+1.9183710557128952, +0.21735330283528415), (+1.5982378608780388, +0.29872720416925758), (+1.4021865294810989, +0.26805827808548344), (+1.2804064457413391, +0.22284797303713477), (+1.0902883005568871, +0.44373291623828853), (+1.1095210533992648, +0.73693539014966924), (+1.6213984114107562, +0.54763916103657428), (+1.3240415727678516, +0.76719909815677934), (+1.8245358761027637, +0.50482006277567582), (+1.2704502208480610, +0.24810402376512494), (+1.1264621684610128, +0.86321678961293857), (+1.4130876376608570, +0.82367464334471591E-1), (+1.9974260476064594, +0.69876631444744153), (+1.5383008369725641, +0.27944085750690556), (+1.1736866881750703, +0.93461865502545505), (+1.9410011607822608, +0.92496454723588695), (+1.3972195221555153, +0.93606102119827894), (+1.7819797366861463, +0.79057882847095318), (+1.0977160408448845, +0.14525901882746661), (+1.2053499023996128, +0.31607035284604945), (+1.7837645973279583, +0.63376794652499813), (+1.4722970147442132, +0.76989098223942476), (+1.8995411476369144, +0.69800263119749517E-1), (+1.0063631583208790, +0.95979948487544231), (+1.7167855615504519, +0.49155628547515706E-1), (+1.8162129970477194, +0.26215604072438681), (+1.9521702991479311, +0.86103688425180624E-2), (+1.3141414014413260, +0.72496286319390690), (+1.8142987040706136, +0.42131310870521421), (+1.9904546044518985, +0.83746842063651561), (+1.4231993216958729, +0.47277288785756233), (+1.3389607336820930, +0.47473564965817361), (+1.1016719717432002, +0.82869649073149221), (+1.7390986064285567, +0.64114607019533154), (+1.4067484633206835, +0.98187884210910470), (+1.4600593231063457, +0.32977425342544125), (+1.4699844052641959, +0.46923190135246484), (+1.6680304359825251, +0.60377338582940854), (+1.3128734106561848, +0.10176501793122120), (+1.1887829168909074, +0.69523952495572172), (+1.4090712884668801, +0.64699143086108593E-1), (+1.0101257557584367, +0.10649928716680856), (+1.8932222099861624, +0.58243534305634159), (+1.1577810862541065, +0.24517190848821530), (+1.4824815724889815, +0.53395758968041163E-2), (+1.3312485765081032, +0.18752333126296036), (+1.4116692484673656, +0.10751206551734854), (+1.9805888253810706, +0.15285202747558524), (+1.2764100936542069, +0.58571519353920409E-1), (+1.6017055160508120, +0.53115877330514838), (+1.5123394031617443, +0.60801153794635598), (+1.5805382330674556, +0.14589014956538615), (+1.3913548996608962, +0.16777765836290537), (+1.3196787763657791, +0.62643338576853913), (+1.9236523056352381, +0.50761687319787774), (+1.6350894297326941, +0.25056890645646568), (+1.0603284595576876, +0.24467277250248687), (+1.6372706547084472, +0.74031581264088220), (+1.2249035499687049, +0.49416650931455319), (+1.2423062003479746, +0.95889732974787845), (+0.44408920985006262E-15, -0.37470027081099033E-15), (-0.22204460492503131E-15, -0.80491169285323849E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, -0.56898930012039273E-15), (+0.55511151231257827E-15, +0.13877787807814457E-16), (+0.66613381477509392E-15, -0.41633363423443370E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.12490009027033011E-15), (+0.0000000000000000, +0.27755575615628914E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.33306690738754696E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (+0.0000000000000000, -0.55511151231257827E-16), (-0.11102230246251565E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.0000000000000000, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.11102230246251565E-15, +0.66613381477509392E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.66613381477509392E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.72164496600635175E-15), (+0.66613381477509392E-15, +0.58286708792820718E-15), (+0.77715611723760958E-15, +0.30531133177191805E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.69388939039072284E-15), (+0.33306690738754696E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.72164496600635175E-15), (+0.44408920985006262E-15, +0.66613381477509392E-15)
138reltol = sqrt(epsilon(1._TKG))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+29
148data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
149data
150(+1.69665412367829051672429781472588207, +0.322468151415040787528593864734105871), (+1.07259527740977849341874122322181313, +0.604470798222601034150554926891658962E-1), (+1.14936554096741723637665751634566119, +0.198698390443110087077467365493026067), (+1.17045159866844346614086435869647400, +0.851596659297848248597426437655359855), (+1.00679415394116200181328615300680730, +0.284484701499242829155055083655982499), (+1.08675003528197903585982382989797803, +0.690469281510321922047522550991992363), (+1.08999681916495109682564724247924182, +0.954729590608084757770995662876874136), (+1.29824172774660314440299314545212805, +0.791904085515280072561005409234908872E-1), (+1.96067957561912574611284669398835750, +0.883926508598746548207030367909104944), (+1.50086281664806632266354592468049193, +0.327507805383993734368461930603309923), (+1.86368560168092634014362039256206197, +0.270465650970775938394797278136887703), (+1.56268252997594461218955436085858932, +0.389842018829525469980425376407618542), (+1.00812683741613425108354574392724967, +0.167834186175969443467327646276215971), (+1.85901272700086531364586314659559099, +0.133388101752346215940225696972206414), (+1.31102013041826548483566288858787417, +0.640377419100580761038361762946945815), (+1.45875676428882156771583732719731617, +0.111333569346808518269941091486160328), (+1.41314887618082710975394895551813827, +0.913548640584713342947963460215210683), (+1.00616181650159350377968958193887119, +0.599652017075872951868337008755718416), (+1.95434661011534440621429110832812901, +0.401255046782471958290889689006640627), (+1.17337126990245204251652764617900609, +0.657007842514829496953396574296571105E-2), (+1.24909797120153879011762611158794470, +0.911522465851837223705260746559739954), (+1.98091742078367228736593115067952943, +0.242345666735065931595768597827200469), (+1.31740986335817033617678410577057675, +0.798584313591964031662580728813770882), (+1.57408543400522752066500674390127765, +0.824373903446197047642407212568337994), (+1.84230852172824447103865725506399351, +0.850886977780417711380114926663157391), (+1.29227404104149808789046019354446514, +0.378209007277090699149187721060319838), (+1.22686159626476613776830568108398801, +0.860274440319641605127836259487458368), (+1.46507248393426616880872911915547001, +0.473181329955004626127679236236563515E-1), (+1.16623825333333998740524630982880120, +0.707353395333410819170776893917199763)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.69665412367829051672429781472588226, +0.322468151415040787528593864734105919), (+1.07259527740977849341874122322181313, +0.604470798222601034150554926891659925E-1), (+1.14936554096741723637665751634566119, +0.198698390443110087077467365493025875), (+1.17045159866844346614086435869647381, +0.851596659297848248597426437655359855), (+1.00679415394116200181328615300680730, +0.284484701499242829155055083655982547), (+1.08675003528197903585982382989797803, +0.690469281510321922047522550991992363), (+1.08999681916495109682564724247924201, +0.954729590608084757770995662876874136), (+1.29824172774660314440299314545212825, +0.791904085515280072561005409234908872E-1), (+1.96067957561912574611284669398835769, +0.883926508598746548207030367909104944), (+1.50086281664806632266354592468049174, +0.327507805383993734368461930603309779), (+1.86368560168092634014362039256206216, +0.270465650970775938394797278136887511), (+1.56268252997594461218955436085858913, +0.389842018829525469980425376407618446), (+1.00812683741613425108354574392724948, +0.167834186175969443467327646276215923), (+1.85901272700086531364586314659559080, +0.133388101752346215940225696972206487), (+1.31102013041826548483566288858787397, +0.640377419100580761038361762946945719), (+1.45875676428882156771583732719731597, +0.111333569346808518269941091486160160), (+1.41314887618082710975394895551813846, +0.913548640584713342947963460215210779), (+1.00616181650159350377968958193887080, +0.599652017075872951868337008755718320), (+1.95434661011534440621429110832812901, +0.401255046782471958290889689006640819), (+1.17337126990245204251652764617900590, +0.657007842514829496953396574296571105E-2), (+1.24909797120153879011762611158794490, +0.911522465851837223705260746559739954), (+1.98091742078367228736593115067952924, +0.242345666735065931595768597827200324), (+1.31740986335817033617678410577057675, +0.798584313591964031662580728813771363), (+1.57408543400522752066500674390127822, +0.824373903446197047642407212568337994), (+1.84230852172824447103865725506399351, +0.850886977780417711380114926663157198), (+1.29227404104149808789046019354446533, +0.378209007277090699149187721060319790), (+1.22686159626476613776830568108398801, +0.860274440319641605127836259487458464), (+1.46507248393426616880872911915547001, +0.473181329955004626127679236236562311E-1), (+1.16623825333333998740524630982880101, +0.707353395333410819170776893917199571), (+0.00000000000000000000000000000000000, -0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-34)
156reltol = sqrt(epsilon(1._TKG))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+27
166data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
167data
168+1.98800755, +1.17345715, +1.66844261, +1.28578091, +1.49447489, +1.76930809, +1.53823614, +1.97303748, +1.47490418, +1.39038122, +1.34371758, +1.44370008, +1.59996176, +1.11853004, +1.48430526, +1.69161749, +1.94863009, +1.40792549, +1.60458446, +1.63339472, +1.95990539, +1.05573893, +1.86400330, +1.27502024, +1.08926857, +1.56850386, +1.64546442
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.98800766, +1.17345726, +1.66844273, +1.28578091, +1.49447489, +1.76930797, +1.53823590, +1.97303748, +1.47490418, +1.39038122, +1.34371781, +1.44370019, +1.59996200, +1.11852980, +1.48430538, +1.69161749, +1.94863021, +1.40792549, +1.60458446, +1.63339472, +1.95990539, +1.05573881, +1.86400318, +1.27502012, +1.08926857, +1.56850398, +1.64546442, +0.119209290E-6, +0.596046448E-7, +0.178813934E-6, +0.178813934E-6, +0.298023224E-6
174reltol = sqrt(epsilon(1._TKG))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+74
184data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
185data
186+1.1255722745183689, +1.5234145614691579, +1.7637504385806597, +1.9376298543961359, +1.6234133231856349, +1.2646236063478420, +1.4945988188190475, +1.9659467267403148, +1.8638836257520741, +1.0544331380773295, +1.8218075440649910, +1.3324242066566123, +1.7004154971933092, +1.8916043747970175, +1.7374104938416208, +1.4405926010853469, +1.1088140107769262, +1.7802224037244589, +1.7865299685248213, +1.3473669311059870, +1.4542617718213442, +1.3983645713305335, +1.8177107593656601, +1.2241378256031559, +1.7829170678272350, +1.1213048263984495, +1.7204758988203148, +1.4304793550726544, +1.0749222750266343, +1.5621002111310713, +1.1462837766752720, +1.7280599675009847, +1.0129708718493302, +1.1018333521446615, +1.4132627387665297, +1.2251660681910073, +1.0972369129713320, +1.5627575214754117, +1.2028318386783290, +1.2883652963405798, +1.3145661621466531, +1.6077438953448322, +1.0061084001911609, +1.7576449902685831, +1.0580279084672672, +1.0232798564220817, +1.2270812526891570, +1.2438560285591145, +1.7766983177639619, +1.4061923667255316, +1.4633531273129285, +1.0078782844173397, +1.3148637374190746, +1.1887690577490078, +1.7895964210289748, +1.2077071069904659, +1.8512057757109648, +1.2746914222660766, +1.4306665244840699, +1.2412650213647562, +1.2941932775767349, +1.8685242885963711, +1.2172101349673907, +1.5747907018795579, +1.9508175026879004, +1.6422590318074626, +1.3651511841572876, +1.1271242555639862, +1.3935112996547931, +1.8691801680706761, +1.8152282744365886, +1.1131127837572685, +1.1614840174263221, +1.7877613211171994
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.1255722745183689, +1.5234145614691577, +1.7637504385806597, +1.9376298543961363, +1.6234133231856342, +1.2646236063478415, +1.4945988188190469, +1.9659467267403152, +1.8638836257520741, +1.0544331380773295, +1.8218075440649910, +1.3324242066566128, +1.7004154971933090, +1.8916043747970168, +1.7374104938416208, +1.4405926010853469, +1.1088140107769260, +1.7802224037244592, +1.7865299685248210, +1.3473669311059873, +1.4542617718213435, +1.3983645713305330, +1.8177107593656596, +1.2241378256031559, +1.7829170678272348, +1.1213048263984500, +1.7204758988203144, +1.4304793550726547, +1.0749222750266338, +1.5621002111310713, +1.1462837766752716, +1.7280599675009842, +1.0129708718493302, +1.1018333521446610, +1.4132627387665297, +1.2251660681910073, +1.0972369129713322, +1.5627575214754112, +1.2028318386783288, +1.2883652963405798, +1.3145661621466536, +1.6077438953448322, +1.0061084001911607, +1.7576449902685827, +1.0580279084672677, +1.0232798564220813, +1.2270812526891568, +1.2438560285591143, +1.7766983177639619, +1.4061923667255316, +1.4633531273129288, +1.0078782844173393, +1.3148637374190746, +1.1887690577490071, +1.7895964210289745, +1.2077071069904655, +1.8512057757109650, +1.2746914222660761, +1.4306665244840699, +1.2412650213647560, +1.2941932775767353, +1.8685242885963704, +1.2172101349673907, +1.5747907018795573, +1.9508175026879004, +1.6422590318074630, +1.3651511841572881, +1.1271242555639867, +1.3935112996547938, +1.8691801680706757, +1.8152282744365886, +1.1131127837572685, +1.1614840174263219, +1.7877613211171997, +0.11102230246251565E-15, -0.66613381477509392E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.0000000000000000, +0.0000000000000000, -0.55511151231257827E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.11102230246251565E-14
192reltol = sqrt(epsilon(1._TKG))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+38
202data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
203data
204+1.18843103489056444875252692187320931, +1.41484695673884051124586046989527775, +1.39369249510123242651537639478090035, +1.52422838483610499587676772197955539, +1.25620596555221652174768835867817213, +1.41078150157200598773018704507820818, +1.81026684721585323918989082609777712, +1.14575811536336977461423432199790290, +1.76968085048361272719682259929859276, +1.16662405815125567543165840798379739, +1.42159367617712266329174864994218942, +1.73715651485603485530897904320846862, +1.01211960737416531759259659926266843, +1.10187077965539373570127962813151757, +1.69635119370448352629260887040472289, +1.31413225821645511723660226300562538, +1.96910900774365812332192587712803663, +1.97826589624565254935136700201879472, +1.18426256858511277535627641525644167, +1.91834960793139071265325563271882992, +1.91395811534650842785167259852573244, +1.72869047485521749245359113400006807, +1.59020639509375328787045225609778879, +1.46115418584372110484606939968762344, +1.36599177413785021733505968012167950, +1.49486576745374056437182085862466547, +1.93609007445551591911658583644679893, +1.88872229050490206846993084347854750, +1.96927595736758161649614913384235062, +1.62584495473818823746853960717850182, +1.32214220485360881323907733560116135, +1.04958797564235925736197561502238706, +1.56972184790483065319608317845882604, +1.90574320654064995651149884866229732, +1.39572879587211037935961933296414182, +1.32366008010501475730127644773583265, +1.87389516072616232413839540889933453, +1.15072001780487755537379540834909237
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.18843103489056444875252692187320951, +1.41484695673884051124586046989527775, +1.39369249510123242651537639478090016, +1.52422838483610499587676772197955539, +1.25620596555221652174768835867817232, +1.41078150157200598773018704507820799, +1.81026684721585323918989082609777751, +1.14575811536336977461423432199790290, +1.76968085048361272719682259929859295, +1.16662405815125567543165840798379720, +1.42159367617712266329174864994218942, +1.73715651485603485530897904320846862, +1.01211960737416531759259659926266862, +1.10187077965539373570127962813151738, +1.69635119370448352629260887040472327, +1.31413225821645511723660226300562519, +1.96910900774365812332192587712803663, +1.97826589624565254935136700201879453, +1.18426256858511277535627641525644167, +1.91834960793139071265325563271882992, +1.91395811534650842785167259852573244, +1.72869047485521749245359113400006807, +1.59020639509375328787045225609778859, +1.46115418584372110484606939968762344, +1.36599177413785021733505968012167912, +1.49486576745374056437182085862466547, +1.93609007445551591911658583644679913, +1.88872229050490206846993084347854731, +1.96927595736758161649614913384235042, +1.62584495473818823746853960717850201, +1.32214220485360881323907733560116096, +1.04958797564235925736197561502238744, +1.56972184790483065319608317845882584, +1.90574320654064995651149884866229732, +1.39572879587211037935961933296414201, +1.32366008010501475730127644773583246, +1.87389516072616232413839540889933434, +1.15072001780487755537379540834909257, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33
210reltol = sqrt(epsilon(1._TKG))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+42
220data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
221data
222(+1.03962171, +0.743541181), (+1.80340862, +0.780083299), (+1.79091692, +0.706109226), (+1.36795783, +0.662254632), (+1.39164257, +0.797972739), (+1.04174161, +0.687941015), (+1.65320861, +0.183270395), (+1.70932770, +0.636821628), (+1.89381647, +0.408184767), (+1.49611378, +0.948686302), (+1.27701139, +0.586467803), (+1.16029716, +0.151792645), (+1.24210501, +0.285646439), (+1.86645222, +0.604652047), (+1.75980043, +0.178278565), (+1.79323125, +0.214703679), (+1.42546082, +0.868466794), (+1.46401918, +0.916172206), (+1.26242638, +0.210401595), (+1.25151563, +0.357989192), (+1.81240988, +0.150219917), (+1.58871913, +0.296908855), (+1.25127423, +0.671348631), (+1.24786830, +0.312247515), (+1.94585824, +0.662592769), (+1.31940937, +0.811456323), (+1.01909089, +0.879952967), (+1.61976910, +0.381289124), (+1.10653722, +0.760383487), (+1.71985769, +0.953037262), (+1.85833788, +0.847962201), (+1.10436261, +0.566348433E-1), (+1.63084996, +0.637193322), (+1.52300417, +0.223360717), (+1.84794176, +0.431959152), (+1.41420472, +0.321393013E-1), (+1.74930406, +0.930609584), (+1.22291934, +0.746924758), (+1.07939124, +0.988471568), (+1.20172334, +0.858696640), (+1.01747108, +0.928763092), (+1.66196418, +0.863426447)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.03962171, +0.743541121), (+1.80340862, +0.780083179), (+1.79091692, +0.706109107), (+1.36795759, +0.662254393), (+1.39164257, +0.797972858), (+1.04174161, +0.687940836), (+1.65320837, +0.183270216), (+1.70932782, +0.636821508), (+1.89381647, +0.408184946), (+1.49611390, +0.948686361), (+1.27701139, +0.586467862), (+1.16029727, +0.151792765), (+1.24210489, +0.285646677), (+1.86645222, +0.604652405), (+1.75980055, +0.178278744), (+1.79323149, +0.214703768), (+1.42546082, +0.868466794), (+1.46401930, +0.916172147), (+1.26242638, +0.210401475), (+1.25151563, +0.357989043), (+1.81240988, +0.150219947), (+1.58871925, +0.296908766), (+1.25127423, +0.671348572), (+1.24786842, +0.312247396), (+1.94585800, +0.662592888), (+1.31940937, +0.811456323), (+1.01909089, +0.879952908), (+1.61976898, +0.381289065), (+1.10653710, +0.760383487), (+1.71985734, +0.953037143), (+1.85833740, +0.847962260), (+1.10436261, +0.566346832E-1), (+1.63084996, +0.637193322), (+1.52300406, +0.223360747), (+1.84794188, +0.431958973), (+1.41420460, +0.321392417E-1), (+1.74930406, +0.930609643), (+1.22291899, +0.746924877), (+1.07939136, +0.988471627), (+1.20172346, +0.858696461), (+1.01747108, +0.928762972), (+1.66196406, +0.863426328), (+0.417232513E-6, +0.208616257E-6), (+0.357627869E-6, +0.745058060E-8), (+0.119209290E-6, -0.134110451E-6), (+0.00000000, -0.149011612E-6), (+0.00000000, -0.745058060E-8), (+0.596046448E-7, +0.119209290E-6), (+0.00000000, +0.00000000), (-0.596046448E-7, +0.894069672E-7), (+0.119209290E-6, +0.171363354E-6), (+0.119209290E-6, +0.268220901E-6), (+0.178813934E-6, -0.298023224E-7), (-0.119209290E-6, +0.894069672E-7), (+0.119209290E-6, +0.298023224E-7), (+0.119209290E-6, +0.745058060E-7), (+0.238418579E-6, +0.298023224E-7), (+0.178813934E-6, +0.00000000), (+0.238418579E-6, +0.178813934E-6), (+0.357627869E-6, +0.193715096E-6), (+0.238418579E-6, -0.119209290E-6), (+0.357627869E-6, +0.298023224E-7), (+0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.372529030E-8)
228reltol = sqrt(epsilon(1._TKG))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+22
238data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
239data
240(+1.5441268804017199, +0.29213526622896047), (+1.6044608727455820, +0.86274933092114681), (+1.9326223911904781, +0.15446898799869047E-2), (+1.7158837043574038, +0.70539482000534715), (+1.2682336063953770, +0.23607611329937950), (+1.6204695504484641, +0.96344512359163714), (+1.5260268435445370, +0.36319810902734007), (+1.4364020796487331, +0.43781779980731905), (+1.2255646311571335, +0.69509918072636812), (+1.4134909689159008, +0.75626348769763063), (+1.4682076358761798, +0.33780084407129296), (+1.8904148957621234, +0.34711911485017555), (+1.0709422465904286, +0.47875386642001905), (+1.1433116053456547, +0.30388945746455243), (+1.2283108328043584, +0.42385338970549225), (+1.2303442434217637, +0.93181326797290609), (+1.0544253811291657, +0.16638584577917304), (+1.0419658227126303, +0.49786176032463825), (+1.0921571965343864, +0.81344811729229138), (+1.5853088462003102, +0.31639539940994554E-1), (+1.5963933214413784, +0.53209790381379485), (+1.2896054458596216, +0.46793915406473285)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.5441268804017199, +0.29213526622896058), (+1.6044608727455820, +0.86274933092114692), (+1.9326223911904776, +0.15446898799870712E-2), (+1.7158837043574033, +0.70539482000534715), (+1.2682336063953770, +0.23607611329937964), (+1.6204695504484636, +0.96344512359163681), (+1.5260268435445368, +0.36319810902734012), (+1.4364020796487327, +0.43781779980731911), (+1.2255646311571333, +0.69509918072636812), (+1.4134909689159005, +0.75626348769763052), (+1.4682076358761798, +0.33780084407129285), (+1.8904148957621230, +0.34711911485017544), (+1.0709422465904281, +0.47875386642001894), (+1.1433116053456542, +0.30388945746455232), (+1.2283108328043584, +0.42385338970549202), (+1.2303442434217635, +0.93181326797290565), (+1.0544253811291657, +0.16638584577917293), (+1.0419658227126303, +0.49786176032463830), (+1.0921571965343864, +0.81344811729229138), (+1.5853088462003102, +0.31639539940994443E-1), (+1.5963933214413784, +0.53209790381379485), (+1.2896054458596216, +0.46793915406473263), (+0.22204460492503131E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (+0.0000000000000000, +0.0000000000000000), (+0.66613381477509392E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (+0.99920072216264089E-15, +0.30531133177191805E-15), (+0.33306690738754696E-15, +0.24980018054066022E-15), (+0.55511151231257827E-15, +0.36082248300317588E-15), (+0.33306690738754696E-15, +0.30531133177191805E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15)
246reltol = sqrt(epsilon(1._TKG))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+38
256data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
257data
258(+1.43205704925393780633259201063937497, +0.424221830095039120179008348722453578), (+1.04289479234451477955743812539015486, +0.490603379354123085331462366147193401), (+1.91701111003160972874046156755185953, +0.584812639478575223583269506753738705), (+1.15485722435363398898558507451050052, +0.233528780635885684257221639566790215), (+1.55577350953289229967882950188232228, +0.194389501346317087664660819967778847), (+1.01213703042263934194022011229280188, +0.212825310523796746910516554114884327E-1), (+1.34029629475006494070180399881526039, +0.679591835338264613529890948743366210E-1), (+1.24999444955921162975048471497722691, +0.776969141766629653026608529160964150), (+1.59046291848793677691440352391778891, +0.700815977900786136097455506554168350), (+1.19046197993675407948590775899878044, +0.815063368890141678560484341761289191), (+1.26525811358894373470943231139132129, +0.125141069905581329645977920122341400), (+1.74894815585893834343565312654457153, +0.450446898929682061212375463776156653), (+1.28734386485017757139321472193314833, +0.391979325385729839022629294664487684), (+1.74257312355648344612920290083012919, +0.134981285030851512495094773867777839), (+1.52789462305498229835449312078885297, +0.336071189240510546498982651266912855), (+1.06809508004626268371091894934051516, +0.188942268230191771120836687385786603), (+1.22946068122455307409301939506009619, +0.973069955544040440743764544725874646), (+1.49258352472709216368102040552479874, +0.966478936455927963978325649836589032), (+1.10136543082951870600963717674790931, +0.876144692935446013564443453193644826), (+1.47453295962937618507220566456761729, +0.546703788851383069849616449255221620), (+1.52485108094670848498079446913331371, +0.458418725263864031054567826936814963), (+1.77454417458846654618234574696931454, +0.820057735414079716490435458989075371E-1), (+1.03045766887995202008220391495878794, +0.135917054249740800494990527161675691), (+1.74200425376473960117746185683961314, +0.495331008709128297379072760526234522), (+1.95770629349571536132046639852102522, +0.727861389232406608995270486942226235), (+1.87030763386028126854103194375700029, +0.499050353968407059222986959541693320), (+1.36543237268497628224816420438576257, +0.350308243264481828058815778277482721), (+1.91836145970977502571759745792924512, +0.991774956508563501223787469825504313), (+1.51555080007533200350931103596614512, +0.504254301549829938677598963667059007), (+1.82909323626449798320566808707665242, +0.372793600320627864678733904799638495), (+1.33257741244512150157428662385167986, +0.843173019150314878141091882078828847), (+1.17970203251481537519302681726534626, +0.660857465807200465442886060793946390), (+1.95883122471817079252220414524507775, +0.587903653818285068853469614080937023), (+1.14531346279420184368497534215069292, +0.789146259114865495980236002180548278), (+1.36204741428924120534603786418651486, +0.963394681329905688002626376375251570), (+1.25720013792812968172606070527424066, +0.336692538700910962189194407206351335), (+1.34281467643693373752497263855689200, +0.666231614581391858634069939535930206), (+1.27741976829173518275057980531685074, +0.880613632553719702488447048733515119)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.43205704925393780633259201063937477, +0.424221830095039120179008348722453674), (+1.04289479234451477955743812539015505, +0.490603379354123085331462366147193497), (+1.91701111003160972874046156755185934, +0.584812639478575223583269506753738801), (+1.15485722435363398898558507451050013, +0.233528780635885684257221639566790360), (+1.55577350953289229967882950188232247, +0.194389501346317087664660819967778558), (+1.01213703042263934194022011229280207, +0.212825310523796746910516554114881438E-1), (+1.34029629475006494070180399881526058, +0.679591835338264613529890948743364164E-1), (+1.24999444955921162975048471497722749, +0.776969141766629653026608529160964150), (+1.59046291848793677691440352391778852, +0.700815977900786136097455506554168446), (+1.19046197993675407948590775899878044, +0.815063368890141678560484341761289287), (+1.26525811358894373470943231139132090, +0.125141069905581329645977920122341400), (+1.74894815585893834343565312654457114, +0.450446898929682061212375463776156845), (+1.28734386485017757139321472193314794, +0.391979325385729839022629294664487828), (+1.74257312355648344612920290083012957, +0.134981285030851512495094773867777815), (+1.52789462305498229835449312078885297, +0.336071189240510546498982651266913048), (+1.06809508004626268371091894934051554, +0.188942268230191771120836687385786892), (+1.22946068122455307409301939506009581, +0.973069955544040440743764544725874646), (+1.49258352472709216368102040552479854, +0.966478936455927963978325649836589225), (+1.10136543082951870600963717674790931, +0.876144692935446013564443453193644730), (+1.47453295962937618507220566456761709, +0.546703788851383069849616449255221716), (+1.52485108094670848498079446913331390, +0.458418725263864031054567826936815011), (+1.77454417458846654618234574696931512, +0.820057735414079716490435458989074890E-1), (+1.03045766887995202008220391495878775, +0.135917054249740800494990527161675691), (+1.74200425376473960117746185683961372, +0.495331008709128297379072760526234570), (+1.95770629349571536132046639852102484, +0.727861389232406608995270486942226139), (+1.87030763386028126854103194375700029, +0.499050353968407059222986959541693320), (+1.36543237268497628224816420438576238, +0.350308243264481828058815778277482432), (+1.91836145970977502571759745792924493, +0.991774956508563501223787469825504025), (+1.51555080007533200350931103596614473, +0.504254301549829938677598963667058911), (+1.82909323626449798320566808707665261, +0.372793600320627864678733904799638592), (+1.33257741244512150157428662385167986, +0.843173019150314878141091882078828750), (+1.17970203251481537519302681726534645, +0.660857465807200465442886060793946582), (+1.95883122471817079252220414524507775, +0.587903653818285068853469614080936830), (+1.14531346279420184368497534215069292, +0.789146259114865495980236002180548375), (+1.36204741428924120534603786418651506, +0.963394681329905688002626376375251185), (+1.25720013792812968172606070527424047, +0.336692538700910962189194407206351383), (+1.34281467643693373752497263855689181, +0.666231614581391858634069939535930591), (+1.27741976829173518275057980531685055, +0.880613632553719702488447048733515601), (-0.192592994438723585305597794258492732E-33, +0.842594350669415685711990349880905702E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.108333559371782016734398759270402162E-33), (+0.481482486096808963263994485646231830E-33, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.722223729145213444895991728469347744E-34), (+0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, -0.445371299639548291019194899222764442E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (+0.962964972193617926527988971292463659E-34, +0.457408361791968515100794761363920238E-33), (+0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34)
264reltol = sqrt(epsilon(1._TKG))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+28
274data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
275data
276+1.95710135, +1.06291032, +1.23717594, +1.02217627, +1.69397473, +1.07379031, +1.89182615, +1.47711623, +1.72325146, +1.90531540, +1.61922288, +1.85074663, +1.61368287, +1.44719982, +1.53454852, +1.03586721, +1.18334985, +1.64342737, +1.41992784, +1.46941471, +1.48368740, +1.34607649, +1.04792738, +1.57362986, +1.41238213, +1.98725295, +1.32548928, +1.04745376
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.95710146, +1.06291032, +1.23717618, +1.02217627, +1.69397485, +1.07379043, +1.89182615, +1.47711611, +1.72325134, +1.90531540, +1.61922300, +1.85074663, +1.61368322, +1.44719970, +1.53454876, +1.03586709, +1.18334997, +1.64342737, +1.41992784, +1.46941471, +1.48368752, +1.34607637, +1.04792738, +1.57362938, +1.41238213, +1.98725295, +1.32548916, +1.04745388, +0.178813934E-6, +0.357627869E-6, +0.596046448E-7, +0.119209290E-6
282reltol = sqrt(epsilon(1._TKG))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+82
292data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
293data
294+1.8509547035602774, +1.8625855488586354, +1.2185521605257661, +1.6761995940717851, +1.2720262543701071, +1.0975865481491520, +1.2610854762058097, +1.4493596714995896, +1.0529872169468870, +1.4597634846080609, +1.3284176291739986, +1.8402620023735805, +1.9426217801811450, +1.4201925214659696, +1.3650255183039812, +1.8786528947168766, +1.2232999819670578, +1.8178902513527704, +1.2019956730078794, +1.2928834461736207, +1.5705661287280916, +1.1094342068708243, +1.4877236285350719, +1.0925230418820124, +1.1983136746603327, +1.1681601674321240, +1.0391908326273587, +1.5723817650701104, +1.5691053704977365, +1.5063603625688862, +1.5453832798318692, +1.9148012599883901, +1.6277527173403510, +1.1149725183430956, +1.1238062040443051, +1.3093073391358372, +1.3875212365886371, +1.6382827256297134, +1.1806647582274572, +1.1152158252188520, +1.2574232613901204, +1.4996434094243181, +1.0040496676797219, +1.8953427540933969, +1.4278510407015925, +1.8535298647112370, +1.2610700665388239, +1.5093486886722070, +1.4568241314280672, +1.3624745656151598, +1.6057097125417639, +1.0365563644951798, +1.0069910103726782, +1.9230819330471256, +1.6138483800395313, +1.8942466950632122, +1.5284663242575713, +1.4451264672935076, +1.9922560224311823, +1.4326424684307315, +1.8402079942390781, +1.9810108805828861, +1.4868694827542881, +1.8719823424248450, +1.4410356393082915, +1.5507594992779734, +1.0440638371728035, +1.7574982980998759, +1.5412733290682907, +1.9315047812084725, +1.1129527677135984, +1.3980655295335223, +1.9157683232422589, +1.7193556655730795, +1.8564473994220805, +1.0398084400517189, +1.1370019652983712, +1.9429611136332046, +1.6934515387269906, +1.4935683692447357, +1.8447800053039503, +1.7208034317179191
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.8509547035602774, +1.8625855488586356, +1.2185521605257659, +1.6761995940717858, +1.2720262543701062, +1.0975865481491522, +1.2610854762058090, +1.4493596714995900, +1.0529872169468866, +1.4597634846080609, +1.3284176291739984, +1.8402620023735814, +1.9426217801811445, +1.4201925214659699, +1.3650255183039810, +1.8786528947168768, +1.2232999819670578, +1.8178902513527702, +1.2019956730078794, +1.2928834461736209, +1.5705661287280912, +1.1094342068708243, +1.4877236285350712, +1.0925230418820129, +1.1983136746603325, +1.1681601674321240, +1.0391908326273589, +1.5723817650701106, +1.5691053704977360, +1.5063603625688859, +1.5453832798318685, +1.9148012599883901, +1.6277527173403512, +1.1149725183430952, +1.1238062040443053, +1.3093073391358367, +1.3875212365886376, +1.6382827256297130, +1.1806647582274574, +1.1152158252188520, +1.2574232613901204, +1.4996434094243178, +1.0040496676797224, +1.8953427540933969, +1.4278510407015927, +1.8535298647112368, +1.2610700665388244, +1.5093486886722070, +1.4568241314280677, +1.3624745656151598, +1.6057097125417643, +1.0365563644951798, +1.0069910103726785, +1.9230819330471247, +1.6138483800395313, +1.8942466950632117, +1.5284663242575709, +1.4451264672935071, +1.9922560224311823, +1.4326424684307311, +1.8402079942390781, +1.9810108805828852, +1.4868694827542881, +1.8719823424248441, +1.4410356393082915, +1.5507594992779739, +1.0440638371728030, +1.7574982980998757, +1.5412733290682912, +1.9315047812084722, +1.1129527677135984, +1.3980655295335223, +1.9157683232422582, +1.7193556655730791, +1.8564473994220807, +1.0398084400517189, +1.1370019652983716, +1.9429611136332043, +1.6934515387269908, +1.4935683692447355, +1.8447800053039503, +1.7208034317179186, -0.33306690738754696E-15, -0.77715611723760958E-15, +0.99920072216264089E-15, +0.22204460492503131E-15, +0.88817841970012523E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, -0.33306690738754696E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.88817841970012523E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.77715611723760958E-15, -0.55511151231257827E-15, +0.14432899320127035E-14, -0.33306690738754696E-15, +0.12212453270876722E-14
300reltol = sqrt(epsilon(1._TKG))
301reltol
302+0.14901161193847656E-7
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+65
310data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
311data
312+1.01508772386944967796046814677782363, +1.38794531229479021064195962918827173, +1.41477071720586634922494857430623943, +1.17472369742291356574152119362482409, +1.85546847045447004225923380056230035, +1.89196157081781694658245352094966776, +1.33672808556818976575295604922142567, +1.79802942253670213452908211344276778, +1.44051281182358834867421086265546517, +1.64995035110798727733916031147712297, +1.62175213537367250805120891925204512, +1.21696200966945239642442764764432046, +1.33797841299658490834692388654270168, +1.63215453958892234799079332380999859, +1.45388977228244172852440341005791579, +1.07974167460611758554180272937861498, +1.69931868685912838137777169560791137, +1.25916413612466594529159783346256421, +1.08110138391499930818569649441638571, +1.33895982571065162456172809801938413, +1.98583789693601122567860754237110538, +1.12631528483330389132712241921069120, +1.76993892350485933340523935810218413, +1.91321063482985920660627828131315319, +1.11323362636287820097627191354260728, +1.04758227102354781065303799394734466, +1.26672690875545774502539302698859951, +1.40894700314131959629938848631519199, +1.95783549238548482891395227404126692, +1.70463660603927547026909994822823210, +1.53592190689744861344400547280659759, +1.91373028687768061870883048353462631, +1.37291593361401404468195391406637966, +1.30313515004317829033381523104691815, +1.34751332704429277794788316586831887, +1.79933370775662313148534583779134394, +1.39500814123426418604581078686842021, +1.95613222069068265876975866027136900, +1.73102811671264154444459711173052277, +1.63211402554034633559761981463968528, +1.82896328316505037494187630238987087, +1.42898821433493308489888839726061809, +1.09795414279379437949356847027232739, +1.68691592741184455811305149298525451, +1.91134442068849633905441449963586086, +1.96837614630210864705419623016126378, +1.73220198590645153104163693337282179, +1.42372404802380241059576023988981499, +1.68625553520885055135944735654849668, +1.82187450205562202173549657266339031, +1.09905536427936255149036751290975641, +1.02817325380105960069444202228393047, +1.46569032305348472916078384850518869, +1.62375733676552181748172072376522772, +1.30473184293609887613100232723889396, +1.73604481043576876715645268255221500, +1.57003699887411020881467559254089299, +1.13841177469421603904987979225278472, +1.51325564793031153668803250682388129, +1.54937263967684470967634654024732600, +1.24667332430047665976996919762872602, +1.19924503325730621274932372076781823, +1.59122313154478587707905460098222427, +1.17884595529201448256743483865324084, +1.23354306131658316615746420201897947
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.01508772386944967796046814677782382, +1.38794531229479021064195962918827211, +1.41477071720586634922494857430623962, +1.17472369742291356574152119362482409, +1.85546847045447004225923380056230073, +1.89196157081781694658245352094966776, +1.33672808556818976575295604922142528, +1.79802942253670213452908211344276778, +1.44051281182358834867421086265546575, +1.64995035110798727733916031147712335, +1.62175213537367250805120891925204550, +1.21696200966945239642442764764432084, +1.33797841299658490834692388654270226, +1.63215453958892234799079332380999898, +1.45388977228244172852440341005791599, +1.07974167460611758554180272937861478, +1.69931868685912838137777169560791156, +1.25916413612466594529159783346256459, +1.08110138391499930818569649441638571, +1.33895982571065162456172809801938451, +1.98583789693601122567860754237110558, +1.12631528483330389132712241921069139, +1.76993892350485933340523935810218355, +1.91321063482985920660627828131315319, +1.11323362636287820097627191354260747, +1.04758227102354781065303799394734466, +1.26672690875545774502539302698859951, +1.40894700314131959629938848631519257, +1.95783549238548482891395227404126749, +1.70463660603927547026909994822823248, +1.53592190689744861344400547280659759, +1.91373028687768061870883048353462709, +1.37291593361401404468195391406638005, +1.30313515004317829033381523104691796, +1.34751332704429277794788316586831887, +1.79933370775662313148534583779134394, +1.39500814123426418604581078686842060, +1.95613222069068265876975866027136900, +1.73102811671264154444459711173052257, +1.63211402554034633559761981463968509, +1.82896328316505037494187630238987145, +1.42898821433493308489888839726061809, +1.09795414279379437949356847027232739, +1.68691592741184455811305149298525451, +1.91134442068849633905441449963586125, +1.96837614630210864705419623016126455, +1.73220198590645153104163693337282179, +1.42372404802380241059576023988981499, +1.68625553520885055135944735654849706, +1.82187450205562202173549657266339031, +1.09905536427936255149036751290975641, +1.02817325380105960069444202228393009, +1.46569032305348472916078384850518908, +1.62375733676552181748172072376522772, +1.30473184293609887613100232723889396, +1.73604481043576876715645268255221500, +1.57003699887411020881467559254089299, +1.13841177469421603904987979225278472, +1.51325564793031153668803250682388129, +1.54937263967684470967634654024732620, +1.24667332430047665976996919762872602, +1.19924503325730621274932372076781881, +1.59122313154478587707905460098222447, +1.17884595529201448256743483865324104, +1.23354306131658316615746420201897947, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34
318reltol = sqrt(epsilon(1._TKG))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+49
328data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
329data
330(+1.53176427, +0.427093148), (+1.64974976, +0.119334757), (+1.26863778, +0.229073107), (+1.36412096, +0.874790728), (+1.47088408, +0.817414641), (+1.56412125, +0.557479918), (+1.95959115, +0.879621506E-2), (+1.82832003, +0.110740423), (+1.40924168, +0.902634203), (+1.67566240, +0.298268080), (+1.70135236, +0.496677756E-1), (+1.56265211, +0.562308550), (+1.52842689, +0.425782681), (+1.72398114, +0.966520607), (+1.43620431, +0.342974901), (+1.96424675, +0.507899880), (+1.35693657, +0.825471520), (+1.19418955, +0.267231345), (+1.71451974, +0.620729685), (+1.68109620, +0.765208602E-1), (+1.94282866, +0.878315270), (+1.10329127, +0.107205927), (+1.08522367, +0.360760927), (+1.15571737, +0.372535825), (+1.34840798, +0.339643538), (+1.86930454, +0.623016417), (+1.84012425, +0.334754050), (+1.13613224, +0.242395639), (+1.61421478, +0.284094512), (+1.01815653, +0.610110879), (+1.58864963, +0.229089141), (+1.88991523, +0.143191040), (+1.55880177, +0.625052214), (+1.83483505, +0.227258205), (+1.89410520, +0.482228160), (+1.54412162, +0.708195329), (+1.05528891, +0.636453629), (+1.07298112, +0.209547937), (+1.51972795, +0.899170220), (+1.06616104, +0.172758698), (+1.36285496, +0.774044871), (+1.42391753, +0.774096549), (+1.94917727, +0.301055729), (+1.94542587, +0.692758203), (+1.29766548, +0.753745914), (+1.48864734, +0.773148775), (+1.87717199, +0.771724403), (+1.24602437, +0.224343479), (+1.93982315, +0.226218045)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.53176415, +0.427093208), (+1.64974952, +0.119334877), (+1.26863766, +0.229073197), (+1.36412084, +0.874790728), (+1.47088432, +0.817414641), (+1.56412113, +0.557479858), (+1.95959115, +0.879627466E-2), (+1.82832003, +0.110740453), (+1.40924156, +0.902634263), (+1.67566216, +0.298268050), (+1.70135236, +0.496677458E-1), (+1.56265211, +0.562308550), (+1.52842700, +0.425782740), (+1.72398090, +0.966520667), (+1.43620443, +0.342975020), (+1.96424687, +0.507900000), (+1.35693645, +0.825471580), (+1.19418967, +0.267231375), (+1.71451974, +0.620729566), (+1.68109596, +0.765207410E-1), (+1.94282877, +0.878315210), (+1.10329103, +0.107206017), (+1.08522367, +0.360760808), (+1.15571737, +0.372535765), (+1.34840786, +0.339643508), (+1.86930418, +0.623016238), (+1.84012413, +0.334753990), (+1.13613224, +0.242395639), (+1.61421466, +0.284094602), (+1.01815629, +0.610110700), (+1.58864963, +0.229089171), (+1.88991499, +0.143190980), (+1.55880177, +0.625052273), (+1.83483481, +0.227258176), (+1.89410543, +0.482227892), (+1.54412162, +0.708195150), (+1.05528903, +0.636453509), (+1.07298100, +0.209547758), (+1.51972795, +0.899170101), (+1.06616116, +0.172758788), (+1.36285484, +0.774044871), (+1.42391717, +0.774096370), (+1.94917727, +0.301055670), (+1.94542575, +0.692758083), (+1.29766524, +0.753745735), (+1.48864698, +0.773148656), (+1.87717199, +0.771724343), (+1.24602449, +0.224343449), (+1.93982291, +0.226218045), (+0.238418579E-6, +0.596046448E-7), (+0.238418579E-6, +0.238418579E-6), (+0.357627869E-6, +0.357627869E-6), (+0.119209290E-6, -0.298023224E-7), (+0.00000000, +0.208616257E-6), (+0.596046448E-7, +0.745058060E-7), (+0.178813934E-6, +0.223517418E-6), (+0.119209290E-6, -0.298023224E-7), (+0.298023224E-6, +0.894069672E-7), (+0.238418579E-6, -0.149011612E-7), (+0.298023224E-6, +0.238418579E-6), (+0.238418579E-6, -0.208616257E-6), (+0.178813934E-6, +0.00000000), (+0.119209290E-6, -0.119209290E-6), (+0.119209290E-6, +0.298023224E-7)
336reltol = sqrt(epsilon(1._TKG))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+38
346data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
347data
348(+1.3724879503510543, +0.89349077406542499), (+1.0231610260272581, +0.94887168308389902), (+1.9007307583441633, +0.73098590785028805), (+1.9035764841814551, +0.89217398922075286), (+1.3310957814343360, +0.85197382264433186E-1), (+1.8943083599227595, +0.35888723466390127), (+1.9434676933854722, +0.85943097926653367), (+1.3833533669759752, +0.11001398394388540), (+1.4647042737781599, +0.37055335596973116), (+1.8917403733259337, +0.83368389454213776), (+1.7797269351442524, +0.58591211306000290), (+1.0627013365474505, +0.95535884377156877E-1), (+1.5047061525443395, +0.54035441535009021), (+1.9022832210330067, +0.28020650580323170), (+1.9694449197902923, +0.25151644509407434), (+1.6458850704186390, +0.34917403966369953), (+1.4107904204483250, +0.45263833161970901), (+1.2608720681183161, +0.90986361243387270), (+1.8032550996648800, +0.42441200160873427), (+1.4196463242718935, +0.62355261905899084), (+1.8903675316003890, +0.55208875368887000), (+1.9586521682426108, +0.22269221330217703), (+1.7305002164259164, +0.51965187196883089), (+1.0758376239812528, +0.52108496338639709), (+1.8779998772671487, +0.98457289797830183), (+1.9901857485043624, +0.84042413750484157), (+1.1136209832148585, +0.78967624384943647E-1), (+1.1684636457967379, +0.11994974347888765E-1), (+1.3741431625195124, +0.22853312031946926), (+1.2538475273501506, +0.24689728137177347), (+1.0873571205732400, +0.44811296219054042), (+1.6294768944689888, +0.77182708214965390), (+1.1937298376479892, +0.66839230686519902), (+1.8777690258551236, +0.86166452160445883), (+1.7039826585790332, +0.24214672507366108), (+1.9918479771473061, +0.82474718229789101), (+1.2659328556828633, +0.69132186064142509), (+1.8123270412015440, +0.92536045186988036)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.3724879503510543, +0.89349077406542499), (+1.0231610260272581, +0.94887168308389924), (+1.9007307583441626, +0.73098590785028816), (+1.9035764841814551, +0.89217398922075297), (+1.3310957814343358, +0.85197382264433463E-1), (+1.8943083599227593, +0.35888723466390132), (+1.9434676933854718, +0.85943097926653356), (+1.3833533669759752, +0.11001398394388544), (+1.4647042737781599, +0.37055335596973160), (+1.8917403733259337, +0.83368389454213787), (+1.7797269351442520, +0.58591211306000313), (+1.0627013365474500, +0.95535884377156904E-1), (+1.5047061525443395, +0.54035441535009054), (+1.9022832210330058, +0.28020650580323192), (+1.9694449197902919, +0.25151644509407445), (+1.6458850704186383, +0.34917403966369998), (+1.4107904204483250, +0.45263833161970879), (+1.2608720681183161, +0.90986361243387281), (+1.8032550996648800, +0.42441200160873394), (+1.4196463242718937, +0.62355261905899040), (+1.8903675316003892, +0.55208875368886989), (+1.9586521682426103, +0.22269221330217709), (+1.7305002164259164, +0.51965187196883034), (+1.0758376239812528, +0.52108496338639687), (+1.8779998772671487, +0.98457289797830150), (+1.9901857485043624, +0.84042413750484113), (+1.1136209832148585, +0.78967624384943313E-1), (+1.1684636457967374, +0.11994974347888328E-1), (+1.3741431625195124, +0.22853312031946901), (+1.2538475273501497, +0.24689728137177303), (+1.0873571205732397, +0.44811296219054025), (+1.6294768944689881, +0.77182708214965334), (+1.1937298376479895, +0.66839230686519890), (+1.8777690258551236, +0.86166452160445894), (+1.7039826585790332, +0.24214672507366072), (+1.9918479771473061, +0.82474718229789046), (+1.2659328556828631, +0.69132186064142531), (+1.8123270412015433, +0.92536045186988014), (+0.33306690738754696E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, -0.40245584642661925E-15), (+0.0000000000000000, -0.13877787807814457E-15), (+0.0000000000000000, -0.44408920985006262E-15), (+0.0000000000000000, -0.55511151231257827E-16), (+0.11102230246251565E-15, -0.90205620750793969E-16), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, -0.41633363423443370E-15), (+0.0000000000000000, +0.83266726846886741E-16), (+0.77715611723760958E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, +0.13877787807814457E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.52735593669694936E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.44408920985006262E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.66613381477509392E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.11102230246251565E-15, +0.28449465006019636E-15), (+0.22204460492503131E-15, +0.47184478546569153E-15), (+0.33306690738754696E-15, +0.15265566588595902E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.72164496600635175E-15)
354reltol = sqrt(epsilon(1._TKG))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+60
364data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
365data
366(+1.92317741503291990493130705074684627, +0.210192396955504736925342233949503154), (+1.29393470438422155758281408624481088, +0.215831703672963600371548898987005566), (+1.10972031974864659809689013494715381, +0.712653324728677499457953828693393013), (+1.58463624983546992483216569213623798, +0.332899838122965763240426926335102538), (+1.49650065489760185543848750273715674, +0.544168018458602599042186380130233737), (+1.29770146088278240986408942360521082, +0.847326872567180344495232885909380435E-1), (+1.43656526688035924657327302418185681, +0.417177203751297638570761552732108220), (+1.63112799821510655733679236571477979, +0.353946129187694117005747160868773111), (+1.72243923697846844407420471548889740, +0.578925944594109735787752250482024993), (+1.78011113025859653903717149421637586, +0.409719996489194151732000616216942887), (+1.02270265406875984102763709950472057, +0.963601453536431535259824340923327840), (+1.83791739571560866300221247252616991, +0.648075879536599160965305444622209140E-1), (+1.61216118999404401042007689895384404, +0.559032554012272905223112909197010012), (+1.91475225468146929372341333168278429, +0.720269668117511927938549547991210352), (+1.06019117558295719540898043491892320, +0.781684204083305742107117532185138120), (+1.43345273398855706054419612611107971, +0.651360513216365548980890197066512068), (+1.91516855475714579940538129975660953, +0.519157729383992309093258147725874791), (+1.29639027519773719046421410349836810, +0.987336241589575906350707089523453108), (+1.22618821927046321384282533605085028, +0.499284392337947117713160960968936990), (+1.44846522313036866278714266915950624, +0.424262461014696601843484954155506873), (+1.53707008984126633122420192866444440, +0.742324793028878730833872965114863543), (+1.17626069406021962546618430573425765, +0.929567574132827494236649214971994824), (+1.24586348790266043388149794786011593, +0.573541338437157156468221441557206251), (+1.72046221337499494465552681334701587, +0.732751560510362308685442087670343376), (+1.28728315912010430088841845530291689, +0.798194707357124492998240898959357499), (+1.34365247619970989150451660368528134, +0.590125864007872319222802547660380876E-1), (+1.28625982086858953865760937149503644, +0.250325959389743178261726290748496180), (+1.54717092356334718905344366737828374, +0.399651917649170668475454934616249348), (+1.15034665005493447023505220232307976, +0.899294074247036773411031575810434246), (+1.83026335297391634449499576071482295, +0.566556459297310191262629366095302774), (+1.50448027443646392605810871657281187, +0.748785579053788370036033272525311729), (+1.73292614013404017374144220592570491, +0.158069010714642752970607888319750000), (+1.85620089095158437338634173264334289, +0.122441865924479505198809448748472836), (+1.78144838516714849789192824292185357, +0.228782173992800370735266802880831593), (+1.26832735687704851436745542359100589, +0.432228619943312417997105724595883115), (+1.18667616953405560570522687682255771, +0.416175235730526612034490362868264717), (+1.84786502290068033175198853782346285, +0.771749574593873971071321922834919308), (+1.76275797914054505132750817009053874, +0.840222351158995013510334638127785171), (+1.35283375035277259226846615241274510, +0.441871590455890169568643930856982319), (+1.57326879040914132032368715268903490, +0.822057744075570732803656653392257783E-1), (+1.39837887900616275973480371049792198, +0.750017584254488605124128543164100404), (+1.32211127165771266458280339298649244, +0.358764563281455452499079288187046738), (+1.59619286097904731997992218880250406, +0.752119787152022733800810610966507080), (+1.68060390233592392679444163117111567, +0.940609666503314169800180698298711904), (+1.21207319093165060217548763903470369, +0.971493305476684902967874716397710571), (+1.14334429678579483089770563596375634, +0.668829673498110510861084054876691572), (+1.66582502203899446814949749894256674, +0.904423970780919037984351893489662791), (+1.49443557278657380660261990575639080, +0.868715690825063629082613009795325185), (+1.52500847171703494053811532066241254, +0.508636388229118676101193674456666186), (+1.13529942278746819871811951091334536, +0.958830331264478244027877010481609585), (+1.12469879407550127550505116984513771, +0.708493048050856362047859283541194594), (+1.28844788275805883507295903490309823, +0.581892751228274096635658776221442484E-1), (+1.47274326842366626823269037012113474, +0.133232562408533104770861877927449443), (+1.84004353289401701888432644452824667, +0.960286866993681376153555567514703447), (+1.57767139231624806861176399301593985, +0.344816226241731105085244027294669023), (+1.59831172784202293273274823744908258, +0.180405758733723144505074230885884571), (+1.28386841735559525978334700584273359, +0.431902175437613058182770155000684749), (+1.45293610506444200414253009889820676, +0.344731800707343142545192648428669542E-1), (+1.62663463464040529830144882570432757, +0.567445478644058402580098082329151028), (+1.14582702574491095316526047264044662, +0.251082925726809667679652369308087474)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.92317741503291990493130705074684647, +0.210192396955504736925342233949503202), (+1.29393470438422155758281408624481126, +0.215831703672963600371548898987005518), (+1.10972031974864659809689013494715400, +0.712653324728677499457953828693393013), (+1.58463624983546992483216569213623817, +0.332899838122965763240426926335102490), (+1.49650065489760185543848750273715713, +0.544168018458602599042186380130233545), (+1.29770146088278240986408942360521101, +0.847326872567180344495232885909373213E-1), (+1.43656526688035924657327302418185700, +0.417177203751297638570761552732108076), (+1.63112799821510655733679236571477998, +0.353946129187694117005747160868772919), (+1.72243923697846844407420471548889740, +0.578925944594109735787752250482025090), (+1.78011113025859653903717149421637605, +0.409719996489194151732000616216942887), (+1.02270265406875984102763709950472115, +0.963601453536431535259824340923327840), (+1.83791739571560866300221247252616991, +0.648075879536599160965305444622209140E-1), (+1.61216118999404401042007689895384423, +0.559032554012272905223112909197010108), (+1.91475225468146929372341333168278448, +0.720269668117511927938549547991210545), (+1.06019117558295719540898043491892320, +0.781684204083305742107117532185138505), (+1.43345273398855706054419612611107990, +0.651360513216365548980890197066511972), (+1.91516855475714579940538129975660972, +0.519157729383992309093258147725874791), (+1.29639027519773719046421410349836849, +0.987336241589575906350707089523453301), (+1.22618821927046321384282533605085047, +0.499284392337947117713160960968937134), (+1.44846522313036866278714266915950663, +0.424262461014696601843484954155506825), (+1.53707008984126633122420192866444478, +0.742324793028878730833872965114863736), (+1.17626069406021962546618430573425726, +0.929567574132827494236649214971994920), (+1.24586348790266043388149794786011613, +0.573541338437157156468221441557206251), (+1.72046221337499494465552681334701587, +0.732751560510362308685442087670343280), (+1.28728315912010430088841845530291708, +0.798194707357124492998240898959357596), (+1.34365247619970989150451660368528153, +0.590125864007872319222802547660379913E-1), (+1.28625982086858953865760937149503664, +0.250325959389743178261726290748496469), (+1.54717092356334718905344366737828393, +0.399651917649170668475454934616249203), (+1.15034665005493447023505220232307995, +0.899294074247036773411031575810434149), (+1.83026335297391634449499576071482295, +0.566556459297310191262629366095302389), (+1.50448027443646392605810871657281225, +0.748785579053788370036033272525311825), (+1.73292614013404017374144220592570530, +0.158069010714642752970607888319749832), (+1.85620089095158437338634173264334308, +0.122441865924479505198809448748472848), (+1.78144838516714849789192824292185395, +0.228782173992800370735266802880831641), (+1.26832735687704851436745542359100609, +0.432228619943312417997105724595883115), (+1.18667616953405560570522687682255810, +0.416175235730526612034490362868264669), (+1.84786502290068033175198853782346305, +0.771749574593873971071321922834919404), (+1.76275797914054505132750817009053912, +0.840222351158995013510334638127785459), (+1.35283375035277259226846615241274529, +0.441871590455890169568643930856982367), (+1.57326879040914132032368715268903509, +0.822057744075570732803656653392257783E-1), (+1.39837887900616275973480371049792217, +0.750017584254488605124128543164100501), (+1.32211127165771266458280339298649244, +0.358764563281455452499079288187046738), (+1.59619286097904731997992218880250425, +0.752119787152022733800810610966507080), (+1.68060390233592392679444163117111587, +0.940609666503314169800180698298711711), (+1.21207319093165060217548763903470350, +0.971493305476684902967874716397710571), (+1.14334429678579483089770563596375614, +0.668829673498110510861084054876691379), (+1.66582502203899446814949749894256674, +0.904423970780919037984351893489662695), (+1.49443557278657380660261990575639080, +0.868715690825063629082613009795325185), (+1.52500847171703494053811532066241273, +0.508636388229118676101193674456666186), (+1.13529942278746819871811951091334555, +0.958830331264478244027877010481609489), (+1.12469879407550127550505116984513791, +0.708493048050856362047859283541194594), (+1.28844788275805883507295903490309842, +0.581892751228274096635658776221442002E-1), (+1.47274326842366626823269037012113474, +0.133232562408533104770861877927449443), (+1.84004353289401701888432644452824648, +0.960286866993681376153555567514703640), (+1.57767139231624806861176399301594005, +0.344816226241731105085244027294669264), (+1.59831172784202293273274823744908277, +0.180405758733723144505074230885884715), (+1.28386841735559525978334700584273378, +0.431902175437613058182770155000684942), (+1.45293610506444200414253009889820696, +0.344731800707343142545192648428670024E-1), (+1.62663463464040529830144882570432776, +0.567445478644058402580098082329151124), (+1.14582702574491095316526047264044701, +0.251082925726809667679652369308087426), (+0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (+0.385185988877447170611195588516985464E-33, +0.722223729145213444895991728469347744E-34)
372reltol = sqrt(epsilon(1._TKG))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+18
382data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
383data
384+1.18034196, +1.10852349, +1.95966220, +1.47023559, +1.34603131, +1.99683177, +1.58428967, +1.80996931, +1.35257554, +1.88296819, +1.52867079, +1.98726499, +1.73787069, +1.03213549, +1.60320830, +1.21742058, +1.74193716, +1.68262339
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.18034220, +1.10852337, +1.95966220, +1.47023571, +1.34603119, +1.99683154, +1.58428931, +1.80996931, +1.35257566, +1.88296795, +1.52867079, +1.98726475, +1.73787069, +1.03213525, +1.60320830, +1.21742034, +1.74193716, +1.68262339, -0.596046448E-7, -0.119209290E-6, +0.178813934E-6, +0.119209290E-6, +0.357627869E-6, +0.119209290E-6, +0.119209290E-6, +0.298023224E-6, -0.596046448E-7, +0.119209290E-6, -0.596046448E-7, +0.476837158E-6, +0.178813934E-6, +0.238418579E-6
390reltol = sqrt(epsilon(1._TKG))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+12
400data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
401data
402+1.9722144736853382, +1.4934416020302637, +1.5961891786342957, +1.1380357779620471, +1.2941834254072544, +1.3606289940478171, +1.8256492411186684, +1.0284000214832238, +1.1900585662790071, +1.1777032962950145, +1.8069523158928487, +1.5282703610287558
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.9722144736853384, +1.4934416020302637, +1.5961891786342952, +1.1380357779620474, +1.2941834254072542, +1.3606289940478171, +1.8256492411186680, +1.0284000214832232, +1.1900585662790071, +1.1777032962950145, +1.8069523158928482, +1.5282703610287556, -0.33306690738754696E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, +0.33306690738754696E-15
408reltol = sqrt(epsilon(1._TKG))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+87
418data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
419data
420+1.30916033653090640638529896384161075, +1.53575421912673162529838598843080812, +1.47539179230352249618003128662367013, +1.17196067774582276431210235735330359, +1.12645931046110130084744541318212582, +1.26993502110992130746214576044499948, +1.88040696888361862951920358918582301, +1.08643195649870093263641088605313998, +1.47345767867821406490651007494896219, +1.11719597801784349442934233184362368, +1.18396650848004578700299084926155646, +1.47514708826264873037132276183357192, +1.90540195498175445634042264073025365, +1.36126012930168207364214524357716848, +1.33777596498240042502287996453780266, +1.01584634739723425293530423013934039, +1.37620482027086697973340332122339815, +1.70583430052905572307029798361242071, +1.16247404379860909153954890944645599, +1.10807906165431562503288611846698716, +1.51763764267199602208437686305949680, +1.54131520208643239427975915555251075, +1.73828553479436857589316325337044693, +1.49629377684102684992338949027535366, +1.53156278736479934070633033277998163, +1.26253243856257480597476889777490315, +1.75978874512668841058959549195593860, +1.81725177673740493015443394577316513, +1.19456253129499777764264780521925406, +1.32267138791643491183057139939498371, +1.79939783063664715657911541614532429, +1.35271683560662440571561318653681890, +1.62823566734588460088454405009829457, +1.33232623340973045663484676264112463, +1.56705350564983577584597695765429666, +1.14348010757554767449790375480659228, +1.72297368196763253995682428773149766, +1.56543629699467860712050770595077366, +1.63376124107900485407212328732529834, +1.18902555828658373623265477619839001, +1.00366226115476718114483375846201375, +1.41319853837548993630752779910834664, +1.07026095976798546611519401580914180, +1.02015128505849037062924223610435557, +1.35709733171365051793467000862605888, +1.75141461185176067850819091240871871, +1.89271930164882885025909898630670543, +1.37102849430485027851420820975085652, +1.31589382461887193529629592127314867, +1.08979608287201811541173897392934525, +1.19980536516644816584849730133847135, +1.97966219041811424189548880417694122, +1.34147609359207052262035917981756246, +1.76795298604848459126622060475887164, +1.20132759485295924088910714226083212, +1.02375044855847571137148345122749389, +1.78047482220507782003327112947034776, +1.91408258795261022919434924303879575, +1.14948761346444008866413047908734253, +1.80244914674534334511505717445878858, +1.21656342225240568514582641044437178, +1.96204929164243105422984943380544499, +1.75684387257294837305784316360626090, +1.41521837910254844470294168446614505, +1.50193690929022288081909924903963203, +1.84375960868232703086487704183593000, +1.81843544533870490380210979829748824, +1.55756929941141223567769251619416440, +1.63850179526830397798372856402396123, +1.38591591997105621934185645272110933, +1.88607984919546525515896308361127076, +1.69513571802750523936779974116004293, +1.00642730674319407687071208301207291, +1.53590576335180563831555336740775682, +1.73394133109951659235765667141783805, +1.97809093990166016821812383629295288, +1.95536089741041934606047376006303095, +1.39051044505634446199167536965071853, +1.75352428868167355578263550588046840, +1.06896601138402156593508620209658079, +1.72242726583928245973999356472987507, +1.07065685165724556594975044123642666, +1.55709936582670541911673699605598804, +1.26529308411613578733937985986418765, +1.99526776108200000210404100628191571, +1.50528191011795584514397009911287224, +1.22322690571547191812346573056790743
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.30916033653090640638529896384161075, +1.53575421912673162529838598843080812, +1.47539179230352249618003128662367013, +1.17196067774582276431210235735330397, +1.12645931046110130084744541318212562, +1.26993502110992130746214576044499987, +1.88040696888361862951920358918582301, +1.08643195649870093263641088605313998, +1.47345767867821406490651007494896277, +1.11719597801784349442934233184362349, +1.18396650848004578700299084926155665, +1.47514708826264873037132276183357230, +1.90540195498175445634042264073025403, +1.36126012930168207364214524357716828, +1.33777596498240042502287996453780323, +1.01584634739723425293530423013934000, +1.37620482027086697973340332122339796, +1.70583430052905572307029798361242071, +1.16247404379860909153954890944645599, +1.10807906165431562503288611846698774, +1.51763764267199602208437686305949699, +1.54131520208643239427975915555251075, +1.73828553479436857589316325337044693, +1.49629377684102684992338949027535386, +1.53156278736479934070633033277998182, +1.26253243856257480597476889777490334, +1.75978874512668841058959549195593879, +1.81725177673740493015443394577316609, +1.19456253129499777764264780521925445, +1.32267138791643491183057139939498390, +1.79939783063664715657911541614532487, +1.35271683560662440571561318653681967, +1.62823566734588460088454405009829457, +1.33232623340973045663484676264112463, +1.56705350564983577584597695765429705, +1.14348010757554767449790375480659267, +1.72297368196763253995682428773149786, +1.56543629699467860712050770595077366, +1.63376124107900485407212328732529853, +1.18902555828658373623265477619839001, +1.00366226115476718114483375846201375, +1.41319853837548993630752779910834664, +1.07026095976798546611519401580914199, +1.02015128505849037062924223610435615, +1.35709733171365051793467000862605946, +1.75141461185176067850819091240871891, +1.89271930164882885025909898630670620, +1.37102849430485027851420820975085691, +1.31589382461887193529629592127314887, +1.08979608287201811541173897392934506, +1.19980536516644816584849730133847174, +1.97966219041811424189548880417694161, +1.34147609359207052262035917981756304, +1.76795298604848459126622060475887164, +1.20132759485295924088910714226083270, +1.02375044855847571137148345122749389, +1.78047482220507782003327112947034776, +1.91408258795261022919434924303879575, +1.14948761346444008866413047908734292, +1.80244914674534334511505717445878897, +1.21656342225240568514582641044437197, +1.96204929164243105422984943380544460, +1.75684387257294837305784316360626148, +1.41521837910254844470294168446614505, +1.50193690929022288081909924903963203, +1.84375960868232703086487704183593000, +1.81843544533870490380210979829748863, +1.55756929941141223567769251619416420, +1.63850179526830397798372856402396142, +1.38591591997105621934185645272110895, +1.88607984919546525515896308361127095, +1.69513571802750523936779974116004293, +1.00642730674319407687071208301207272, +1.53590576335180563831555336740775682, +1.73394133109951659235765667141783824, +1.97809093990166016821812383629295365, +1.95536089741041934606047376006303134, +1.39051044505634446199167536965071853, +1.75352428868167355578263550588046879, +1.06896601138402156593508620209658079, +1.72242726583928245973999356472987526, +1.07065685165724556594975044123642627, +1.55709936582670541911673699605598823, +1.26529308411613578733937985986418727, +1.99526776108200000210404100628191648, +1.50528191011795584514397009911287185, +1.22322690571547191812346573056790781, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34
426reltol = sqrt(epsilon(1._TKG))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+43
436data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
437data
438(+1.02679014, +0.789142251), (+1.50064325, +0.315934479), (+1.10604453, +0.933976114), (+1.81673932, +0.459387839), (+1.96032953, +0.867061615), (+1.00691795, +0.773694515E-1), (+1.55664515, +0.313021362), (+1.16356552, +0.861330748), (+1.62867069, +0.609357595), (+1.23018360, +0.370832026), (+1.80473399, +0.547111988), (+1.77576780, +0.348514557), (+1.20130503, +0.125500560), (+1.88179159, +0.850228846), (+1.08648944, +0.113108635), (+1.21698308, +0.847618520), (+1.44632936, +0.579765260), (+1.55441618, +0.608585954), (+1.21822000, +0.203305900), (+1.26325083, +0.206157506), (+1.09917116, +0.385346115), (+1.66775906, +0.446029961), (+1.22137761, +0.162411153), (+1.00729489, +0.238603950), (+1.22651744, +0.133666277), (+1.64838552, +0.254831254), (+1.29456556, +0.928296030), (+1.82091832, +0.301823616), (+1.11892748, +0.643404782), (+1.79402697, +0.735940874), (+1.21206474, +0.995118737), (+1.55231917, +0.761969686E-1), (+1.78921223, +0.952450991), (+1.54627287, +0.754771471), (+1.27813745, +0.789804041), (+1.34944379, +0.310946524), (+1.74619722, +0.562733889), (+1.19168806, +0.867659926), (+1.63579369, +0.932227612), (+1.58666170, +0.213212192), (+1.62586403, +0.881869733), (+1.29140854, +0.718261182), (+1.92938900, +0.278085887)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.02679014, +0.789142311), (+1.50064313, +0.315934449), (+1.10604441, +0.933976114), (+1.81673884, +0.459387690), (+1.96032941, +0.867061675), (+1.00691795, +0.773694515E-1), (+1.55664515, +0.313021392), (+1.16356552, +0.861330628), (+1.62867069, +0.609357715), (+1.23018372, +0.370832026), (+1.80473375, +0.547112048), (+1.77576756, +0.348514616), (+1.20130491, +0.125500783), (+1.88179135, +0.850229025), (+1.08648944, +0.113108784), (+1.21698308, +0.847618461), (+1.44632947, +0.579765201), (+1.55441618, +0.608585835), (+1.21821976, +0.203305855), (+1.26325083, +0.206157506), (+1.09917104, +0.385346115), (+1.66775906, +0.446030110), (+1.22137761, +0.162411064), (+1.00729465, +0.238603905), (+1.22651744, +0.133666277), (+1.64838529, +0.254831374), (+1.29456544, +0.928295732), (+1.82091808, +0.301823556), (+1.11892712, +0.643404782), (+1.79402661, +0.735940695), (+1.21206450, +0.995118618), (+1.55231905, +0.761968717E-1), (+1.78921223, +0.952450931), (+1.54627287, +0.754771352), (+1.27813733, +0.789803922), (+1.34944391, +0.310946316), (+1.74619710, +0.562733948), (+1.19168806, +0.867659926), (+1.63579392, +0.932227612), (+1.58666193, +0.213212132), (+1.62586403, +0.881869674), (+1.29140842, +0.718261063), (+1.92938900, +0.278085709), (+0.476837158E-6, -0.134110451E-6), (+0.00000000, -0.163912773E-6), (+0.298023224E-6, -0.268220901E-6), (+0.417232513E-6, -0.372529030E-8), (+0.417232513E-6, +0.00000000), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.178813934E-6, +0.223517418E-6), (+0.238418579E-6, +0.119209290E-6), (-0.119209290E-6, -0.447034836E-7), (+0.119209290E-6, -0.894069672E-7), (+0.298023224E-6, +0.894069672E-7), (+0.178813934E-6, +0.745058060E-7), (+0.238418579E-6, +0.00000000), (+0.178813934E-6, -0.596046448E-7), (+0.238418579E-6, +0.298023224E-7), (+0.298023224E-6, +0.745058060E-7), (+0.119209290E-6, +0.00000000), (+0.298023224E-6, +0.298023224E-7), (+0.178813934E-6, +0.119209290E-6), (+0.596046448E-7, +0.745058060E-8)
444reltol = sqrt(epsilon(1._TKG))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+77
454data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
455data
456(+1.2596311010805907, +0.98955847952813969), (+1.7526603495308484, +0.92083943843738536), (+1.7305477881179332, +0.19110727525204663), (+1.1921165816023971, +0.80521944752421060), (+1.6315066349265588, +0.10694353690242853E-1), (+1.5002556828623794, +0.40598465869163602E-1), (+1.1275686717144362, +0.41308232935993883), (+1.3267602347354583, +0.46586791420519813), (+1.8381331425994683, +0.25837122726932260), (+1.3846424442977829, +0.59397537949619461), (+1.8124782819981178, +0.39623614927821926), (+1.8832864749265399, +0.95184504566652073), (+1.8972627405769815, +0.45126773975749468), (+1.0056948726339929, +0.98167494506507114), (+1.4433409945214808, +0.77758243741549882), (+1.5531962293487300, +0.59208310243522688), (+1.2524502056040043, +0.62028055134265747), (+1.9064994493492851, +0.84972726467283055), (+1.9375578069429076, +0.86344635882926890), (+1.3472780667244568, +0.30218269912005280), (+1.1023224175429005, +0.44545006008164378), (+1.5174007300087804, +0.83062072461023750), (+1.6761413361279449, +0.16294283766530793), (+1.2882816960693138, +0.20591952217103304), (+1.6272541092926882, +0.28236511548030296), (+1.2071007402203762, +0.56939399934888080), (+1.1656989624150937, +0.64096450203584332), (+1.1518289944690325, +0.56614873686555267), (+1.8993130803730889, +0.43609537804382570), (+1.5013298215787976, +0.85285612867812621), (+1.6058918875020951, +0.58899365534568249), (+1.7632305643270909, +0.26893249450483858), (+1.7784029377841710, +0.33709337712756526), (+1.6741407681709641, +0.61142998115788638), (+1.5399772840679360, +0.84554868003119565), (+1.0640611977009353, +0.64707675300677148), (+1.3433214475561639, +0.81897944753893337E-1), (+1.6478379449006102, +0.13615678836881107), (+1.0105311361258851, +0.12245843677374058), (+1.3396795352927264, +0.69365435395943542), (+1.8019791511907588, +0.13546631042424462), (+1.9384172711652357, +0.50633115604951173), (+1.4937907354233437, +0.45844739557287140), (+1.9071958215861486, +0.91525874672642760), (+1.7089203529900665, +0.36641898296760589), (+1.8620014685364463, +0.50956349967969738), (+1.5156405727339577, +0.27225965224543569), (+1.8995714068226512, +0.79506772166959461), (+1.1739980017929261, +0.38944761662248206), (+1.5622022121361896, +0.37367188351430491E-1), (+1.3473985875208394, +0.55915703255255111), (+1.6942840945531001, +0.40045600936464609), (+1.5380501012510508, +0.30203467057311628), (+1.5030947891202611, +0.41830040237672106), (+1.7880493323480744, +0.13064229575162578), (+1.9572853280290796, +0.81521495627233420), (+1.2215153882230796, +0.34455056842862541), (+1.4720418150729329, +0.54376647275224277), (+1.4480174213578685, +0.98355002334478514), (+1.3344005608837708, +0.53781607931185038), (+1.9987171214553954, +0.73464194054557508E-1), (+1.7622100956490452, +0.69407936255987845E-1), (+1.2662734336969474, +0.21680535737038387), (+1.3474650638722103, +0.35223210320797804), (+1.5984320564870247, +0.85499102781917580), (+1.7800360518299985, +0.66545240915001747), (+1.3967015189100844, +0.10061283766433715), (+1.6296747835307901, +0.82427961975235553), (+1.2039420550511091, +0.95132530507071755), (+1.1029993129701312, +0.40574685952061218), (+1.1739288627230571, +0.29393767819736938), (+1.6630164688005373, +0.39311919863477762), (+1.6527626800419379, +0.38845967965664019), (+1.6437328540241523, +0.52839343568241581), (+1.2257366334054893, +0.51556142721619014), (+1.4905252299092708, +0.71283693705533169), (+1.2836040238940927, +0.36366943729817924)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.2596311010805910, +0.98955847952813958), (+1.7526603495308486, +0.92083943843738558), (+1.7305477881179334, +0.19110727525204707), (+1.1921165816023971, +0.80521944752421071), (+1.6315066349265583, +0.10694353690243075E-1), (+1.5002556828623794, +0.40598465869163630E-1), (+1.1275686717144360, +0.41308232935993905), (+1.3267602347354581, +0.46586791420519846), (+1.8381331425994687, +0.25837122726932282), (+1.3846424442977829, +0.59397537949619472), (+1.8124782819981178, +0.39623614927821982), (+1.8832864749265399, +0.95184504566652095), (+1.8972627405769813, +0.45126773975749479), (+1.0056948726339932, +0.98167494506507125), (+1.4433409945214806, +0.77758243741549926), (+1.5531962293487303, +0.59208310243522688), (+1.2524502056040043, +0.62028055134265725), (+1.9064994493492848, +0.84972726467283066), (+1.9375578069429076, +0.86344635882926890), (+1.3472780667244570, +0.30218269912005269), (+1.1023224175429003, +0.44545006008164384), (+1.5174007300087804, +0.83062072461023750), (+1.6761413361279447, +0.16294283766530793), (+1.2882816960693138, +0.20591952217103293), (+1.6272541092926884, +0.28236511548030302), (+1.2071007402203764, +0.56939399934888091), (+1.1656989624150935, +0.64096450203584332), (+1.1518289944690325, +0.56614873686555256), (+1.8993130803730889, +0.43609537804382575), (+1.5013298215787976, +0.85285612867812621), (+1.6058918875020947, +0.58899365534568238), (+1.7632305643270902, +0.26893249450483880), (+1.7784029377841712, +0.33709337712756510), (+1.6741407681709641, +0.61142998115788649), (+1.5399772840679364, +0.84554868003119554), (+1.0640611977009353, +0.64707675300677125), (+1.3433214475561641, +0.81897944753893226E-1), (+1.6478379449006106, +0.13615678836881112), (+1.0105311361258851, +0.12245843677374044), (+1.3396795352927264, +0.69365435395943509), (+1.8019791511907592, +0.13546631042424470), (+1.9384172711652359, +0.50633115604951184), (+1.4937907354233437, +0.45844739557287129), (+1.9071958215861484, +0.91525874672642793), (+1.7089203529900667, +0.36641898296760556), (+1.8620014685364463, +0.50956349967969716), (+1.5156405727339575, +0.27225965224543563), (+1.8995714068226508, +0.79506772166959438), (+1.1739980017929263, +0.38944761662248201), (+1.5622022121361896, +0.37367188351430630E-1), (+1.3473985875208394, +0.55915703255255056), (+1.6942840945531004, +0.40045600936464604), (+1.5380501012510506, +0.30203467057311589), (+1.5030947891202611, +0.41830040237672061), (+1.7880493323480744, +0.13064229575162528), (+1.9572853280290796, +0.81521495627233354), (+1.2215153882230796, +0.34455056842862536), (+1.4720418150729326, +0.54376647275224266), (+1.4480174213578683, +0.98355002334478447), (+1.3344005608837710, +0.53781607931185005), (+1.9987171214553952, +0.73464194054557036E-1), (+1.7622100956490447, +0.69407936255987401E-1), (+1.2662734336969474, +0.21680535737038353), (+1.3474650638722101, +0.35223210320797743), (+1.5984320564870249, +0.85499102781917591), (+1.7800360518299982, +0.66545240915001747), (+1.3967015189100846, +0.10061283766433678), (+1.6296747835307899, +0.82427961975235564), (+1.2039420550511091, +0.95132530507071744), (+1.1029993129701314, +0.40574685952061196), (+1.1739288627230573, +0.29393767819736905), (+1.6630164688005376, +0.39311919863477729), (+1.6527626800419379, +0.38845967965664041), (+1.6437328540241518, +0.52839343568241615), (+1.2257366334054893, +0.51556142721618969), (+1.4905252299092706, +0.71283693705533169), (+1.2836040238940927, +0.36366943729817913), (+0.11102230246251565E-15, -0.55511151231257827E-15), (+0.44408920985006262E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, -0.36082248300317588E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.13877787807814457E-16), (+0.33306690738754696E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.16653345369377348E-15), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, -0.55511151231257827E-15), (-0.11102230246251565E-15, +0.0000000000000000), (+0.55511151231257827E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.66613381477509392E-15, +0.27755575615628914E-16), (+0.22204460492503131E-15, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (-0.44408920985006262E-15, +0.27755575615628914E-15), (+0.0000000000000000, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.0000000000000000, +0.30531133177191805E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.83266726846886741E-16), (-0.44408920985006262E-15, +0.0000000000000000), (-0.33306690738754696E-15, +0.30531133177191805E-15), (+0.22204460492503131E-15, +0.0000000000000000), (-0.22204460492503131E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.13877787807814457E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.11102230246251565E-15, +0.62450045135165055E-15), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.77715611723760958E-15, +0.0000000000000000), (+0.11102230246251565E-15, +0.63837823915946501E-15), (+0.44408920985006262E-15, +0.83266726846886741E-15), (+0.0000000000000000, +0.83266726846886741E-15), (+0.66613381477509392E-15, +0.83266726846886741E-15)
462reltol = sqrt(epsilon(1._TKG))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+19
472data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
473data
474(+1.26591781559844358763639855724341159, +0.249862241705738397876627255729220502), (+1.69247156407948632124884053305384232, +0.512046844083495146152302784972475676), (+1.53077552812842053724066184833697817, +0.951697747970160742774012277285457747), (+1.79992564705054700401902926927269262, +0.561826899611768089610055747028029053), (+1.01768953337268366461680176407075015, +0.468966928598843291729604886403773522), (+1.30929713135203957571872941777596582, +0.570469009817143106870715908975109042), (+1.52578807042620168930989854238540972, +0.573948301456521102806159510217176905), (+1.67161533790832113226155032957946797, +0.115462421785322298744664900335151941), (+1.54140870375803312663378175309856810, +0.531362122920252649195670400675092819), (+1.92782624254646304907068599080153947, +0.100836122860314123010113511014174668E-1), (+1.14517717305851962777418351127784251, +0.335095331199145968338879192124226942), (+1.52066499021766042865723024733373484, +0.882442391176827859924690509609256013), (+1.90683205740465562236072357319604169, +0.685512820573094090991563301629281345), (+1.24854473899130765569276291538491468, +0.223756980404186282890031592219140727), (+1.25278922627982272267497138843002764, +0.300225675291910271988665303571084922), (+1.08074121487084580971533200946500157, +0.217853989652187373384740674619319721), (+1.47782386965359570248829840569473147, +0.668294325079383504824062906238448527), (+1.58689574742695145469355865815074189, +0.651535288015670307923376617613832082), (+1.47510746960763011794719741787055544, +0.253244359672471343459395933378203565)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.26591781559844358763639855724341120, +0.249862241705738397876627255729220502), (+1.69247156407948632124884053305384213, +0.512046844083495146152302784972475772), (+1.53077552812842053724066184833697836, +0.951697747970160742774012277285457844), (+1.79992564705054700401902926927269281, +0.561826899611768089610055747028029053), (+1.01768953337268366461680176407075015, +0.468966928598843291729604886403773474), (+1.30929713135203957571872941777596582, +0.570469009817143106870715908975108946), (+1.52578807042620168930989854238540991, +0.573948301456521102806159510217176809), (+1.67161533790832113226155032957946797, +0.115462421785322298744664900335151700), (+1.54140870375803312663378175309856791, +0.531362122920252649195670400675092819), (+1.92782624254646304907068599080153909, +0.100836122860314123010113511014174186E-1), (+1.14517717305851962777418351127784251, +0.335095331199145968338879192124226990), (+1.52066499021766042865723024733373445, +0.882442391176827859924690509609255917), (+1.90683205740465562236072357319604149, +0.685512820573094090991563301629281442), (+1.24854473899130765569276291538491468, +0.223756980404186282890031592219140606), (+1.25278922627982272267497138843002783, +0.300225675291910271988665303571085115), (+1.08074121487084580971533200946500157, +0.217853989652187373384740674619319914), (+1.47782386965359570248829840569473128, +0.668294325079383504824062906238448527), (+1.58689574742695145469355865815074189, +0.651535288015670307923376617613832082), (+1.47510746960763011794719741787055563, +0.253244359672471343459395933378203806), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-34), (+0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.132407683676622464897598483552713753E-33)
480reltol = sqrt(epsilon(1._TKG))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+42
490data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
491data
492+1.88481009, +1.24408841, +1.08557844, +1.96269858, +1.15138757, +1.20058918, +1.86779332, +1.67018533, +1.57057083, +1.65827298, +1.04040253, +1.67493367, +1.15809727, +1.33189845, +1.11668706, +1.84502614, +1.81560636, +1.51068795, +1.30670857, +1.84941912, +1.30146348, +1.75348413, +1.26409769, +1.80917358, +1.45793629, +1.73209858, +1.61394024, +1.82830620, +1.45752573, +1.14591241, +1.60382831, +1.40552330, +1.58771825, +1.21569669, +1.22284496, +1.51375198, +1.59114051, +1.11571336, +1.49717808, +1.82307792, +1.36669505, +1.08184719
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.88481021, +1.24408841, +1.08557844, +1.96269834, +1.15138757, +1.20058918, +1.86779332, +1.67018509, +1.57057059, +1.65827298, +1.04040241, +1.67493343, +1.15809703, +1.33189857, +1.11668682, +1.84502578, +1.81560624, +1.51068795, +1.30670857, +1.84941912, +1.30146337, +1.75348389, +1.26409769, +1.80917358, +1.45793605, +1.73209834, +1.61394000, +1.82830596, +1.45752561, +1.14591241, +1.60382795, +1.40552330, +1.58771825, +1.21569657, +1.22284508, +1.51375186, +1.59114039, +1.11571312, +1.49717808, +1.82307792, +1.36669505, +1.08184695, +0.178813934E-6, +0.596046448E-7, +0.238418579E-6, -0.119209290E-6, +0.596046448E-7, +0.357627869E-6, -0.119209290E-6, +0.119209290E-6, -0.596046448E-7, +0.298023224E-6, +0.178813934E-6, -0.119209290E-6, -0.178813934E-6, +0.238418579E-6, +0.596046448E-7, +0.178813934E-6, -0.596046448E-7, +0.596046448E-7, +0.119209290E-6, +0.00000000, +0.596046448E-7, +0.178813934E-6
498reltol = sqrt(epsilon(1._TKG))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+83
508data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
509data
510+1.1110916789388128, +1.5413246722977634, +1.6023690302690676, +1.2810543187428083, +1.9992726967751406, +1.1246615757014840, +1.6883141344933859, +1.3916386578245692, +1.4271423931812719, +1.8941010390914512, +1.8438762637480206, +1.2004329455764573, +1.3230946863136337, +1.8674474225170943, +1.5596810208542191, +1.5287857851540076, +1.5121288976808025, +1.5016963139657644, +1.5441360089667160, +1.7488352634038362, +1.1922516593587325, +1.9433596453134232, +1.8576017388852217, +1.1718535721126129, +1.8978432645560717, +1.9555017877249101, +1.9533159878127724, +1.1128227754942408, +1.7201704316206938, +1.7276421360486012, +1.7234219906719428, +1.8206387524401597, +1.4717343279251982, +1.9852792410473390, +1.3583222761526903, +1.1254941888055181, +1.5167005370074618, +1.9589359728019902, +1.5450984177443510, +1.5041739631661815, +1.3980304585822199, +1.3921279418282504, +1.4749493807461365, +1.9048653111817753, +1.6400629305579306, +1.9303793066120507, +1.8655942373888763, +1.4839872106802345, +1.3630881369831278, +1.6857451630616969, +1.4750093386490302, +1.4125456604839355, +1.0913192748103993, +1.0595386950318644, +1.3801728494345604, +1.0401906256366547, +1.1655052475821597, +1.6440301080211630, +1.6358422081877495, +1.4421899973250660, +1.2540784547334574, +1.7334207801489037, +1.8663480096355061, +1.0767819899606554, +1.3585755645684694, +1.4391546017962709, +1.4225156153313396, +1.6898223673473303, +1.6648092665886081, +1.8369287161736665, +1.6375994026353560, +1.4863364636621941, +1.9823099431594242, +1.2688876124743460, +1.8993281007472569, +1.3192146272182346, +1.4588725334393307, +1.2640654497337334, +1.2337587266538481, +1.7413705979470802, +1.9181868596558371, +1.2142300249976357, +1.2573386974092515
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.1110916789388128, +1.5413246722977632, +1.6023690302690674, +1.2810543187428087, +1.9992726967751400, +1.1246615757014840, +1.6883141344933854, +1.3916386578245692, +1.4271423931812719, +1.8941010390914517, +1.8438762637480206, +1.2004329455764577, +1.3230946863136330, +1.8674474225170941, +1.5596810208542191, +1.5287857851540079, +1.5121288976808025, +1.5016963139657644, +1.5441360089667153, +1.7488352634038367, +1.1922516593587318, +1.9433596453134230, +1.8576017388852208, +1.1718535721126133, +1.8978432645560712, +1.9555017877249101, +1.9533159878127719, +1.1128227754942410, +1.7201704316206929, +1.7276421360486007, +1.7234219906719423, +1.8206387524401595, +1.4717343279251982, +1.9852792410473385, +1.3583222761526899, +1.1254941888055181, +1.5167005370074615, +1.9589359728019897, +1.5450984177443510, +1.5041739631661812, +1.3980304585822201, +1.3921279418282504, +1.4749493807461365, +1.9048653111817755, +1.6400629305579308, +1.9303793066120503, +1.8655942373888765, +1.4839872106802343, +1.3630881369831283, +1.6857451630616969, +1.4750093386490297, +1.4125456604839353, +1.0913192748103993, +1.0595386950318639, +1.3801728494345604, +1.0401906256366540, +1.1655052475821597, +1.6440301080211626, +1.6358422081877491, +1.4421899973250651, +1.2540784547334574, +1.7334207801489026, +1.8663480096355058, +1.0767819899606548, +1.3585755645684694, +1.4391546017962709, +1.4225156153313387, +1.6898223673473303, +1.6648092665886078, +1.8369287161736660, +1.6375994026353560, +1.4863364636621934, +1.9823099431594242, +1.2688876124743464, +1.8993281007472569, +1.3192146272182348, +1.4588725334393311, +1.2640654497337329, +1.2337587266538486, +1.7413705979470795, +1.9181868596558374, +1.2142300249976357, +1.2573386974092511, -0.33306690738754696E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, -0.66613381477509392E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.0000000000000000, -0.22204460492503131E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.77715611723760958E-15, +0.44408920985006262E-15, +0.77715611723760958E-15
516reltol = sqrt(epsilon(1._TKG))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+95
526data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
527data
528+1.13938515636901427529236251197586238, +1.19339903894529564248374871390324885, +1.36793396188478008253392759022993726, +1.45829054560594332501230672472869405, +1.64555622809062435783309212617796898, +1.71592322112580550549324484082543860, +1.61222546122831165188704871672524150, +1.65390498630155539461598184246592593, +1.22470653960469987023369015041427785, +1.26261518141005165660826687194579661, +1.83360134832302298011958759687558055, +1.85038290328703604485186199884940699, +1.19988161771140491147582362140930241, +1.01065764678566939400154520864471270, +1.00609359909480176560113649244470585, +1.81642744504844890996490629189698591, +1.01210529572350295923450134039707614, +1.85036613166352180127895252984876068, +1.82984602987324086030149851445594365, +1.74682169981739690443915401518481844, +1.49053475597121681964562304075595393, +1.93663469892027713322664752646455895, +1.65901287698930793380681907854132161, +1.08390649518953766304259265254801260, +1.53013608659359652961402499349518978, +1.54103537671966622013000956747875805, +1.61320988179543501827085941156472420, +1.23839453580571350495293082551607838, +1.97170494219032225356832165351833673, +1.32560666122611181850115562550123434, +1.32969730663031301375119527596319520, +1.72192889233254308845288098853646138, +1.21252298099218861548503347398065182, +1.24561661531792488878262894616250487, +1.49161764154812319477575786296077009, +1.86013559041698310337011404222415620, +1.82721915353230788382339314984546339, +1.56246188484003871820316854792068170, +1.50854506253386712851415228818168953, +1.83053595579675993608286869334478307, +1.79334839734757059830390499156973092, +1.05734689604985999977084341954951184, +1.87617724851888896581624002661264459, +1.51543036630991980884387824836314767, +1.77763492362229965801637041532691634, +1.85270718672100837591199387584604375, +1.80857963990015868927390364700061566, +1.39978401420721794651540411060975006, +1.87439831562540261765812164523488285, +1.30982499697514151514912550945671589, +1.94175808115253700087321679757332499, +1.56107358856324169130479875748587834, +1.85279177605620391735796919988654181, +1.26172294037475241932651133385114310, +1.89291730804914941378875218510837246, +1.11419202419479454414453934111932239, +1.39143853819827535656144896027729788, +1.91257554108597052412987368829492927, +1.47879772417587391132503859285514876, +1.95963196108333364032537719164870693, +1.83174322228186642015076722939190051, +1.77378113285796250501252546846411808, +1.08563021979835816731581432609830316, +1.08225412589276442570054115900805111, +1.50602863888593086143042489431386442, +1.20648903837822001596185156121592779, +1.36573417057785547799832367812244598, +1.19284453044391807553360990276046982, +1.47229121258729735899325798312674116, +1.08528943272358097142565582483619577, +1.16529753946941532008275536487855842, +1.34119362299489303526976018570938798, +1.32935730952838278820188856858203475, +1.35675105067415941164966936894764458, +1.72555261699198683061637897995906670, +1.94998812918291885285020736573746873, +1.52228417394545953232666804208949496, +1.59692244805521506003320855386567469, +1.88705080327367599239651674908726151, +1.04546907286559371182547296782197179, +1.82097541785718782737800551335377929, +1.78728838277367305696240155227146769, +1.23184363987056610986036150239068539, +1.20491351097803940280134321816146039, +1.46519243276131629300679188823135426, +1.09296187451601375149797934683677302, +1.72855225786457047173117179435989114, +1.08175049991527555397943036000292702, +1.00826109064126892366971593832428006, +1.05597410923998917881693375316309554, +1.11244716523286252716630511623642846, +1.12867889128717637428447513777028696, +1.62387638461064538176220870617204632, +1.64674131358288732388080978120728898, +1.16380663397390220380778217983186224
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.13938515636901427529236251197586180, +1.19339903894529564248374871390324866, +1.36793396188478008253392759022993726, +1.45829054560594332501230672472869385, +1.64555622809062435783309212617796859, +1.71592322112580550549324484082543860, +1.61222546122831165188704871672524073, +1.65390498630155539461598184246592554, +1.22470653960469987023369015041427804, +1.26261518141005165660826687194579604, +1.83360134832302298011958759687558093, +1.85038290328703604485186199884940699, +1.19988161771140491147582362140930222, +1.01065764678566939400154520864471193, +1.00609359909480176560113649244470585, +1.81642744504844890996490629189698591, +1.01210529572350295923450134039707575, +1.85036613166352180127895252984876049, +1.82984602987324086030149851445594346, +1.74682169981739690443915401518481806, +1.49053475597121681964562304075595355, +1.93663469892027713322664752646455876, +1.65901287698930793380681907854132103, +1.08390649518953766304259265254801222, +1.53013608659359652961402499349518998, +1.54103537671966622013000956747875805, +1.61320988179543501827085941156472382, +1.23839453580571350495293082551607838, +1.97170494219032225356832165351833692, +1.32560666122611181850115562550123453, +1.32969730663031301375119527596319501, +1.72192889233254308845288098853646119, +1.21252298099218861548503347398065182, +1.24561661531792488878262894616250449, +1.49161764154812319477575786296077009, +1.86013559041698310337011404222415562, +1.82721915353230788382339314984546339, +1.56246188484003871820316854792068132, +1.50854506253386712851415228818168934, +1.83053595579675993608286869334478288, +1.79334839734757059830390499156973130, +1.05734689604985999977084341954951165, +1.87617724851888896581624002661264497, +1.51543036630991980884387824836314767, +1.77763492362229965801637041532691634, +1.85270718672100837591199387584604433, +1.80857963990015868927390364700061624, +1.39978401420721794651540411060975006, +1.87439831562540261765812164523488285, +1.30982499697514151514912550945671589, +1.94175808115253700087321679757332518, +1.56107358856324169130479875748587796, +1.85279177605620391735796919988654219, +1.26172294037475241932651133385114291, +1.89291730804914941378875218510837189, +1.11419202419479454414453934111932181, +1.39143853819827535656144896027729827, +1.91257554108597052412987368829492966, +1.47879772417587391132503859285514876, +1.95963196108333364032537719164870732, +1.83174322228186642015076722939190070, +1.77378113285796250501252546846411808, +1.08563021979835816731581432609830316, +1.08225412589276442570054115900805034, +1.50602863888593086143042489431386404, +1.20648903837822001596185156121592760, +1.36573417057785547799832367812244598, +1.19284453044391807553360990276046925, +1.47229121258729735899325798312674154, +1.08528943272358097142565582483619577, +1.16529753946941532008275536487855822, +1.34119362299489303526976018570938760, +1.32935730952838278820188856858203475, +1.35675105067415941164966936894764478, +1.72555261699198683061637897995906670, +1.94998812918291885285020736573746892, +1.52228417394545953232666804208949477, +1.59692244805521506003320855386567469, +1.88705080327367599239651674908726189, +1.04546907286559371182547296782197140, +1.82097541785718782737800551335377891, +1.78728838277367305696240155227146750, +1.23184363987056610986036150239068539, +1.20491351097803940280134321816146000, +1.46519243276131629300679188823135426, +1.09296187451601375149797934683677263, +1.72855225786457047173117179435989095, +1.08175049991527555397943036000292644, +1.00826109064126892366971593832428006, +1.05597410923998917881693375316309554, +1.11244716523286252716630511623642769, +1.12867889128717637428447513777028677, +1.62387638461064538176220870617204612, +1.64674131358288732388080978120729013, +1.16380663397390220380778217983186263, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, -0.866668474974256133875190074163217293E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.125185446385170330448638566268020276E-32, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33
534reltol = sqrt(epsilon(1._TKG))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
Test:
test_pm_fftnr


Final Remarks ⛓

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

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

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

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

Definition at line 611 of file pm_fftnr.F90.

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