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

Detailed Description

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

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

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

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_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

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

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKG => CKS

21 real(TKG) :: reltol

22 complex(TKG), allocatable :: data(:), adat(:)

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

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

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

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

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

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

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

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKG => CKD

49 real(TKG) :: reltol

50 complex(TKG), allocatable :: data(:), adat(:)

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

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

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

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

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

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

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

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKG => CKH

77 real(TKG) :: reltol

78 complex(TKG), allocatable :: data(:), adat(:)

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

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

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

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

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

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

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

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKG => RKS

105 real(TKG) :: reltol

106 real(TKG), allocatable :: data(:), adat(:)

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

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

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

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

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

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

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

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKG => RKD

133 real(TKG) :: reltol

134 real(TKG), allocatable :: data(:), adat(:)

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

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

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

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

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

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

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

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKG => RKH

161 real(TKG) :: reltol

162 real(TKG), allocatable :: data(:), adat(:)

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

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

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

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

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

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

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

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end 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_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

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+38

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

5data

6(+1.82795310, +0.207535982), (+1.71722591, +0.277101159), (+1.81014454, +0.261565149), (+1.59805346, +0.204244971), (+1.57230544, +0.791375041), (+1.61266375, +0.796106875), (+1.11212349, +0.864158332), (+1.69471765, +0.452049971), (+1.39863825, +0.987003684), (+1.31074429, +0.981056988), (+1.65350854, +0.856341839), (+1.00281966, +0.715651512E-1), (+1.65828967, +0.482060194), (+1.68404770, +0.469104052E-1), (+1.71477580, +0.177237272), (+1.43211353, +0.381598532), (+1.61996770, +0.212711692E-1), (+1.78050447, +0.310783088), (+1.55700719, +0.271821856), (+1.93992519, +0.791931987), (+1.48666573, +0.169500768), (+1.93807888, +0.444314718), (+1.20270348, +0.749568343E-1), (+1.07037687, +0.684602141), (+1.43328047, +0.122218847), (+1.59625626, +0.107361078), (+1.58297729, +0.231888890E-1), (+1.83199680, +0.944019973), (+1.14710402, +0.650979936), (+1.24239540, +0.440148294), (+1.04767621, +0.980454683E-2), (+1.93706441, +0.489450693E-1), (+1.95320618, +0.236325204), (+1.24136925, +0.823849440), (+1.27080369, +0.190814376), (+1.02807295, +0.787012160), (+1.89658117, +0.813562274), (+1.67425823, +0.641475618)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.82795310, +0.207535982), (+1.71722615, +0.277101219), (+1.81014454, +0.261565208), (+1.59805357, +0.204244986), (+1.57230556, +0.791375160), (+1.61266398, +0.796106875), (+1.11212385, +0.864158452), (+1.69471741, +0.452049911), (+1.39863813, +0.987003744), (+1.31074440, +0.981057107), (+1.65350866, +0.856341898), (+1.00281966, +0.715651289E-1), (+1.65828955, +0.482060075), (+1.68404782, +0.469105877E-1), (+1.71477616, +0.177237302), (+1.43211377, +0.381598562), (+1.61996806, +0.212711915E-1), (+1.78050470, +0.310783118), (+1.55700743, +0.271821916), (+1.93992531, +0.791931927), (+1.48666584, +0.169500813), (+1.93807900, +0.444314718), (+1.20270383, +0.749568343E-1), (+1.07037699, +0.684602261), (+1.43328071, +0.122218847), (+1.59625673, +0.107361041), (+1.58297718, +0.231888425E-1), (+1.83199692, +0.944019914), (+1.14710402, +0.650980115), (+1.24239576, +0.440148294), (+1.04767597, +0.980457477E-2), (+1.93706417, +0.489450768E-1), (+1.95320630, +0.236325160), (+1.24136937, +0.823849499), (+1.27080381, +0.190814421), (+1.02807331, +0.787012279), (+1.89658117, +0.813562334), (+1.67425835, +0.641475558)

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

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

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

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+6

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

22data

23(+1.8437337310380530, +0.53877255166198279), (+1.5690666777762945, +0.73215080744588878), (+1.0497513719358471, +0.97537247253798454), (+1.3971057558956157, +0.16223379877358224E-1), (+1.9387912965876275, +0.23895586644520561), (+1.9184973030133641, +0.67956814249560893)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.8437337310380528, +0.53877255166198268), (+1.5690666777762940, +0.73215080744588878), (+1.0497513719358469, +0.97537247253798420), (+1.3971057558956153, +0.16223379877358335E-1), (+1.9387912965876275, +0.23895586644520567), (+1.9184973030133636, +0.67956814249560904)

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

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

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

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+14

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

39data

40(+1.13919514780575252039848402033039918, +0.179965904140430905041346390747386019), (+1.65980145608310816525053924928813957, +0.453018898824294819523974760433855961), (+1.36187445196752177498266994578239052, +0.365124066481061396735076125174821317), (+1.49435759877320786556730397681017531, +0.256941493699751107843160230082084808), (+1.28948004143548552801124297843854039, +0.763488047364077556265965833052154627E-1), (+1.08663147752746177200335928937565916, +0.186361310490094674344471451317811687), (+1.95240751193225661642034972697674821, +0.703091110754033085596163891558090915E-1), (+1.19052077048814516878999270880705934, +0.454621320970067204265676369737323890), (+1.71077728586412944048640802967432871, +0.680133681970209701178033867748077127), (+1.82257142400328325428197026733174836, +0.405226898915563102098399249932055441), (+1.31962546973338788083827169214287426, +0.403919479274603460719253906476612220), (+1.12342966658965522926097011745564274, +0.992498541307004003430876509923558575), (+1.73438136569178238334372376017665244, +0.440826654500841916977062643788947729), (+1.50193656588870816907522452698287887, +0.633334706225320055035543548600114654E-1)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.13919514780575252039848402033039918, +0.179965904140430905041346390747385995), (+1.65980145608310816525053924928813976, +0.453018898824294819523974760433856009), (+1.36187445196752177498266994578239033, +0.365124066481061396735076125174821221), (+1.49435759877320786556730397681017493, +0.256941493699751107843160230082084808), (+1.28948004143548552801124297843854000, +0.763488047364077556265965833052154025E-1), (+1.08663147752746177200335928937565897, +0.186361310490094674344471451317811832), (+1.95240751193225661642034972697674841, +0.703091110754033085596163891558091999E-1), (+1.19052077048814516878999270880705934, +0.454621320970067204265676369737323794), (+1.71077728586412944048640802967432890, +0.680133681970209701178033867748077127), (+1.82257142400328325428197026733174817, +0.405226898915563102098399249932055537), (+1.31962546973338788083827169214287407, +0.403919479274603460719253906476612123), (+1.12342966658965522926097011745564235, +0.992498541307004003430876509923558575), (+1.73438136569178238334372376017665225, +0.440826654500841916977062643788947633), (+1.50193656588870816907522452698287868, +0.633334706225320055035543548600115015E-1)

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

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

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

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+54

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

56data

57+1.90217268, +1.79726839, +1.08877742, +1.04669011, +1.70281267, +1.56254148, +1.80859375, +1.38010633, +1.73418355, +1.32497954, +1.65932894, +1.63347304, +1.98613656, +1.20098138, +1.09669375, +1.95840394, +1.29441285, +1.28509951, +1.89027596, +1.52931666, +1.88186669, +1.25918210, +1.00250673, +1.49975920, +1.14074206, +1.66484523, +1.00423574, +1.44850826, +1.79448605, +1.05407071, +1.72670817, +1.63757110, +1.24744952, +1.09271049, +1.73452568, +1.28475308, +1.60557270, +1.21181464, +1.43402267, +1.81106448, +1.36812484, +1.68092799, +1.05853915, +1.05307364, +1.94435787, +1.95867968, +1.36261010, +1.36947238, +1.48961890, +1.61486375, +1.77975404, +1.80732322, +1.09964395, +1.61871755

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.90217268, +1.79726851, +1.08877742, +1.04669023, +1.70281243, +1.56254160, +1.80859375, +1.38010633, +1.73418343, +1.32497954, +1.65932870, +1.63347316, +1.98613656, +1.20098138, +1.09669399, +1.95840383, +1.29441273, +1.28509963, +1.89027596, +1.52931678, +1.88186669, +1.25918221, +1.00250673, +1.49975944, +1.14074218, +1.66484523, +1.00423574, +1.44850838, +1.79448593, +1.05407083, +1.72670829, +1.63757098, +1.24744952, +1.09271061, +1.73452532, +1.28475308, +1.60557258, +1.21181476, +1.43402267, +1.81106472, +1.36812484, +1.68092811, +1.05853939, +1.05307376, +1.94435775, +1.95867980, +1.36260986, +1.36947250, +1.48961890, +1.61486363, +1.77975404, +1.80732322, +1.09964383, +1.61871767

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

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

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

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+88

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

73data

74+1.0103194429323339, +1.6756888049895138, +1.8793742251599315, +1.3355695428311316, +1.0843139718977000, +1.8065013279200091, +1.5787527892654394, +1.3824859543253214, +1.2982302646159323, +1.3398342090272570, +1.7806125201108838, +1.0445515382500297, +1.2597475767972892, +1.3502482707431847, +1.4683566761332951, +1.9928615330573871, +1.1021589287393452, +1.5669348079261445, +1.6392082508477701, +1.7208593664859706, +1.2735552030541371, +1.9066342678222163, +1.9865263739168249, +1.6590381870887199, +1.8563290079055297, +1.6564871204840201, +1.0491309469350321, +1.4770327560263672, +1.6359063590072580, +1.7694492235424035, +1.0820407088990924, +1.5415193926493993, +1.3097940741090985, +1.2364587394891102, +1.5287378770255882, +1.3938982934140540, +1.2453415299432768, +1.9219025848659823, +1.8917120446029574, +1.0602713084952262, +1.7596554216501787, +1.3077399465776298, +1.2894864972676414, +1.7835683817770862, +1.0243496844238293, +1.7369816085921337, +1.4976460374452132, +1.3103221216767731, +1.8629172612897111, +1.4277670408495218, +1.6631040555328196, +1.0385516720935084, +1.3252915330781074, +1.4425683850840567, +1.0488043448111180, +1.6165969605746240, +1.2064885861282726, +1.6038759642457103, +1.9698093444778140, +1.1714969876230366, +1.0258669644300320, +1.3144533097567423, +1.3166105331936215, +1.8037120092349546, +1.9954300329474739, +1.4858130518123844, +1.2364489950802489, +1.4694710597543721, +1.1444470880635917, +1.6495858677058184, +1.7767810684730354, +1.2130906264936927, +1.9291709671857897, +1.1714252258113993, +1.3261299175451771, +1.4250176855373291, +1.6012640723667952, +1.3696338446857983, +1.9520316375724427, +1.6752666392650561, +1.3716549887294569, +1.8046368838663160, +1.3239589693703924, +1.2420438034076371, +1.5857094112262378, +1.3818472119641549, +1.0274912646542806, +1.0151040793517143

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.0103194429323346, +1.6756888049895147, +1.8793742251599324, +1.3355695428311323, +1.0843139718977004, +1.8065013279200093, +1.5787527892654396, +1.3824859543253223, +1.2982302646159325, +1.3398342090272577, +1.7806125201108840, +1.0445515382500303, +1.2597475767972892, +1.3502482707431847, +1.4683566761332953, +1.9928615330573876, +1.1021589287393461, +1.5669348079261451, +1.6392082508477703, +1.7208593664859713, +1.2735552030541373, +1.9066342678222161, +1.9865263739168246, +1.6590381870887205, +1.8563290079055297, +1.6564871204840199, +1.0491309469350321, +1.4770327560263672, +1.6359063590072578, +1.7694492235424033, +1.0820407088990931, +1.5415193926493997, +1.3097940741090999, +1.2364587394891111, +1.5287378770255875, +1.3938982934140547, +1.2453415299432773, +1.9219025848659825, +1.8917120446029576, +1.0602713084952269, +1.7596554216501781, +1.3077399465776296, +1.2894864972676405, +1.7835683817770855, +1.0243496844238285, +1.7369816085921328, +1.4976460374452132, +1.3103221216767726, +1.8629172612897107, +1.4277670408495216, +1.6631040555328189, +1.0385516720935080, +1.3252915330781065, +1.4425683850840560, +1.0488043448111180, +1.6165969605746235, +1.2064885861282741, +1.6038759642457110, +1.9698093444778135, +1.1714969876230370, +1.0258669644300324, +1.3144533097567426, +1.3166105331936220, +1.8037120092349552, +1.9954300329474739, +1.4858130518123844, +1.2364489950802489, +1.4694710597543719, +1.1444470880635917, +1.6495858677058182, +1.7767810684730361, +1.2130906264936931, +1.9291709671857906, +1.1714252258114000, +1.3261299175451771, +1.4250176855373298, +1.6012640723667955, +1.3696338446857983, +1.9520316375724427, +1.6752666392650566, +1.3716549887294573, +1.8046368838663167, +1.3239589693703926, +1.2420438034076375, +1.5857094112262380, +1.3818472119641549, +1.0274912646542806, +1.0151040793517148

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

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

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

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+75

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

90data

91+1.39110697013554922982410379570513708, +1.07598476406696981990093832594620679, +1.07728177572122621804980993708520914, +1.21122420003710916094900183467477457, +1.71180589167171536300818394162054856, +1.80677304065906867242465286117141893, +1.26064764913908764150721437269803318, +1.64927079927400380054430746324384909, +1.78470165776459714646896642318581032, +1.49000331726472166348422126167291181, +1.69911269439375360537190747532116000, +1.49408085656570112805853990352837327, +1.35928082494465332078621607625521081, +1.44992727662554271925630254109893839, +1.55652019494807288131020739036438147, +1.48113947864188139906659358127488124, +1.59401072563079642398550905605755579, +1.34162220503502006204885202605503426, +1.58380539650912112863780864117366583, +1.82970265523220535471837970541729387, +1.62450686072945272184821632348154704, +1.74212530148862001586517960321928914, +1.06814943490348423772330990170325134, +1.78387468001583801356006451501531183, +1.23404226555465973881281255595926099, +1.74503323076468403350599890712909013, +1.96726423811855465259517102853209179, +1.25615115880729595800720856765863302, +1.55600892366992374790598756175536576, +1.09149573187791848674048404395250943, +1.65148079319650226333644127209368309, +1.17008003607998328147990285739172439, +1.21057808383008413725319911047697570, +1.41815992382755699404122104665506081, +1.28613687304055496029953558912456083, +1.24866127256941842409187580923250629, +1.89405550778811525744721068353161846, +1.04669173320376233690162163681985281, +1.03994807126602228234805021838464661, +1.93654139013186787550620127456109739, +1.91844232759302047434600179986376325, +1.97661505638810175775228791428864047, +1.76965515845327099264250588876743409, +1.89350483862329817330274082316763643, +1.02272373540423599494622042145639451, +1.08741568032795443593488951655966083, +1.70281806037492082955723752398220007, +1.80755562759765152633883365758167849, +1.89762518035584073184005799221505193, +1.20109006943805793348276214040543993, +1.03841310633498173754868765783989923, +1.44379738300199474495730938267459476, +1.65651577990990804029471786591684738, +1.47351422596038958541504144094150986, +1.18422733274006169006121145427282755, +1.09090303148602203792660234067880537, +1.50024472483868916833914485824884146, +1.69901284312848714166536358367335252, +1.29927993689616900457192606243230383, +1.62866563526898801924211993864718140, +1.91801251032689583561286258149409378, +1.21439449909076264615751564392884214, +1.31018712366838460306242612509119199, +1.38592517903532496068490426138898955, +1.45741061768041347674695681971275646, +1.42162227702700008349091706030167024, +1.00008024305834554935802738643825063, +1.90814418394556585251759957453911355, +1.41509998832252974860511872863379729, +1.28105340916340394666244374100872821, +1.06145586726382687584679059502277150, +1.89506982310629300817140556289107025, +1.66231193983613934300429422188673692, +1.96967646563155802418522794230568756, +1.89378602875846055148192384555282014

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.39110697013554922982410379570513708, +1.07598476406696981990093832594620679, +1.07728177572122621804980993708520895, +1.21122420003710916094900183467477457, +1.71180589167171536300818394162054837, +1.80677304065906867242465286117141893, +1.26064764913908764150721437269803299, +1.64927079927400380054430746324384890, +1.78470165776459714646896642318581013, +1.49000331726472166348422126167291161, +1.69911269439375360537190747532116000, +1.49408085656570112805853990352837269, +1.35928082494465332078621607625521081, +1.44992727662554271925630254109893858, +1.55652019494807288131020739036438128, +1.48113947864188139906659358127488162, +1.59401072563079642398550905605755617, +1.34162220503502006204885202605503406, +1.58380539650912112863780864117366564, +1.82970265523220535471837970541729387, +1.62450686072945272184821632348154704, +1.74212530148862001586517960321928914, +1.06814943490348423772330990170325153, +1.78387468001583801356006451501531125, +1.23404226555465973881281255595926080, +1.74503323076468403350599890712909052, +1.96726423811855465259517102853209121, +1.25615115880729595800720856765863283, +1.55600892366992374790598756175536615, +1.09149573187791848674048404395250904, +1.65148079319650226333644127209368309, +1.17008003607998328147990285739172458, +1.21057808383008413725319911047697550, +1.41815992382755699404122104665506081, +1.28613687304055496029953558912456083, +1.24866127256941842409187580923250609, +1.89405550778811525744721068353161846, +1.04669173320376233690162163681985281, +1.03994807126602228234805021838464642, +1.93654139013186787550620127456109701, +1.91844232759302047434600179986376344, +1.97661505638810175775228791428864047, +1.76965515845327099264250588876743409, +1.89350483862329817330274082316763682, +1.02272373540423599494622042145639413, +1.08741568032795443593488951655966064, +1.70281806037492082955723752398220007, +1.80755562759765152633883365758167829, +1.89762518035584073184005799221505193, +1.20109006943805793348276214040544012, +1.03841310633498173754868765783989903, +1.44379738300199474495730938267459476, +1.65651577990990804029471786591684700, +1.47351422596038958541504144094150967, +1.18422733274006169006121145427282717, +1.09090303148602203792660234067880557, +1.50024472483868916833914485824884126, +1.69901284312848714166536358367335252, +1.29927993689616900457192606243230402, +1.62866563526898801924211993864718102, +1.91801251032689583561286258149409397, +1.21439449909076264615751564392884233, +1.31018712366838460306242612509119179, +1.38592517903532496068490426138898955, +1.45741061768041347674695681971275665, +1.42162227702700008349091706030167024, +1.00008024305834554935802738643825044, +1.90814418394556585251759957453911335, +1.41509998832252974860511872863379690, +1.28105340916340394666244374100872801, +1.06145586726382687584679059502277207, +1.89506982310629300817140556289106986, +1.66231193983613934300429422188673692, +1.96967646563155802418522794230568756, +1.89378602875846055148192384555281995

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

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

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

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+18

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

107data

108(+1.94758308, +0.264745295), (+1.62032676, +0.105465829), (+1.58044684, +0.695326567), (+1.74621153, +0.479439795), (+1.52201104, +0.173730671), (+1.43386412, +0.769788325), (+1.08767021, +0.627627730), (+1.43246698, +0.226933777), (+1.48013401, +0.472070932), (+1.83776617, +0.434837341E-1), (+1.58627391, +0.194005728), (+1.33658957, +0.954981804), (+1.98171437, +0.775316119), (+1.06383872, +0.663854897), (+1.50021577, +0.205910861), (+1.51995111, +0.207213402), (+1.17320180, +0.164834738), (+1.37174940, +0.807289779)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.94758308, +0.264745295), (+1.62032676, +0.105465837), (+1.58044684, +0.695326567), (+1.74621153, +0.479439855), (+1.52201116, +0.173730657), (+1.43386412, +0.769788384), (+1.08767021, +0.627627850), (+1.43246698, +0.226933748), (+1.48013401, +0.472070962), (+1.83776629, +0.434837081E-1), (+1.58627379, +0.194005772), (+1.33658969, +0.954981804), (+1.98171449, +0.775316179), (+1.06383872, +0.663854897), (+1.50021565, +0.205910832), (+1.51995099, +0.207213372), (+1.17320192, +0.164834782), (+1.37174940, +0.807289898)

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

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

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

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+84

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

124data

125(+1.3435535544097159, +0.39256961998932871), (+1.9314846136321064, +0.82169324773007879), (+1.8399024528841850, +0.86584111099293148), (+1.8878445309812979, +0.98743176044460090), (+1.5028547037285345, +0.86254586503496888), (+1.4861366491014223, +0.35474471587482459), (+1.3977688017561947, +0.85973637478775466), (+1.7885323694442641, +0.71767317413183207), (+1.5183396444139734, +0.20871071580446454), (+1.6405306928533840, +0.55603676011068970), (+1.9141396806840847, +0.76817648878928324), (+1.0298265259654704, +0.79422426309370053), (+1.3924090814892698, +0.49651918041996124), (+1.9679774159254513, +0.95332197653345774E-1), (+1.2016996443973360, +0.27406482615881878), (+1.3675141143635299, +0.60756484033535618E-1), (+1.4885492315809561, +0.57217797772205981), (+1.6459311889860371, +0.25225891131389178), (+1.1822060844705127, +0.80051220730656691), (+1.3863444951071695, +0.23638767984447240), (+1.1678089214117913, +0.31879891833584673), (+1.2409278545152769, +0.55324503123120317), (+1.4506672436112216, +0.47561622395616221), (+1.4367358122420422, +0.64180326436150736), (+1.3473514668002433, +0.38448735071142648), (+1.7387666245945581, +0.47689201344090826E-1), (+1.0477515248016800, +0.14339915609596432), (+1.2091669833444403, +0.11891367896744243), (+1.5256569594405622, +0.46387889897159262), (+1.5554831307351389, +0.44839661034704303), (+1.2231271673213080, +0.48479149669264476E-1), (+1.2709422249667885, +0.90970830347919307E-1), (+1.1789302696719621, +0.54656703930450123), (+1.3757344045737465, +0.31903454304961643), (+1.3163622899470711, +0.28956214504682332E-1), (+1.4800287415842035, +0.97859520128874777), (+1.6506090602286914, +0.76889808770967061), (+1.1523047967545441, +0.40285119919355017), (+1.2647873747010858, +0.66799184570117565), (+1.9705903770082158, +0.50511286071083972), (+1.0105712223042700, +0.26606805332726724), (+1.9089643041758335, +0.60173584952255743), (+1.9219682068029433, +0.95753078016806714), (+1.8280339661693152, +0.29179716734288108), (+1.1766374095143588, +0.14057949721640894), (+1.5200553269085080, +0.12640989661439772), (+1.4503116600777375, +0.60328647991426287), (+1.7594747651558089, +0.72086745887695813), (+1.8456843429584864, +0.17940611048639166), (+1.4316430283091997, +0.30479034273142780), (+1.8940518497487449, +0.27233714800622266), (+1.9238816015895610, +0.45831815707851931), (+1.9833429592488696, +0.47767670033310483), (+1.2514254282005575, +0.74218680727263608), (+1.6938840274262383, +0.63284659473579408), (+1.3388431601545112, +0.85352877312598863), (+1.4923595174312250, +0.47413997107021943), (+1.2435349170952692, +0.31870105673517157), (+1.5890691674862736, +0.89628082513143348), (+1.6927410710164263, +0.51041995780602900), (+1.2696279581504475, +0.24287866539059177), (+1.5630273587161234, +0.26389322278836491), (+1.7845442254526405, +0.48898810664102677), (+1.5052829917050943, +0.86726734944632700), (+1.5500210115982309, +0.28923690673251157), (+1.1105289057197585, +0.33040068692724833), (+1.3172802823680869, +0.12094095667798943), (+1.4129659465372639, +0.75290819956399724), (+1.2839598277155626, +0.60428402005997139), (+1.0298332690584027, +0.27781619306803840), (+1.0878922952295511, +0.42067337302740193), (+1.8680159352172985, +0.84900805250873490), (+1.5594697887212110, +0.84506606598286416), (+1.3323150976255946, +0.14829531412865493), (+1.7168812433936380, +0.57883994019739171), (+1.6571820766076777, +0.97268965685559727), (+1.9393617763756135, +0.92158658465879562), (+1.0000808183718821, +0.25271958039591957), (+1.5840308735555650, +0.89552724274410278), (+1.4036413378148134, +0.49401599979646171), (+1.0662286221593207, +0.86138261788176962E-1), (+1.2795434637694711, +0.69632582874095283), (+1.8421469958244110, +0.54201561609690840), (+1.5793141407142082, +0.97579531674737030)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.3435535544097159, +0.39256961998932871), (+1.9314846136321062, +0.82169324773007879), (+1.8399024528841854, +0.86584111099293148), (+1.8878445309812977, +0.98743176044460068), (+1.5028547037285342, +0.86254586503496888), (+1.4861366491014221, +0.35474471587482470), (+1.3977688017561949, +0.85973637478775478), (+1.7885323694442641, +0.71767317413183229), (+1.5183396444139734, +0.20871071580446490), (+1.6405306928533840, +0.55603676011068981), (+1.9141396806840838, +0.76817648878928324), (+1.0298265259654698, +0.79422426309370031), (+1.3924090814892700, +0.49651918041996113), (+1.9679774159254513, +0.95332197653346079E-1), (+1.2016996443973362, +0.27406482615881900), (+1.3675141143635301, +0.60756484033535632E-1), (+1.4885492315809559, +0.57217797772205992), (+1.6459311889860364, +0.25225891131389189), (+1.1822060844705125, +0.80051220730656691), (+1.3863444951071693, +0.23638767984447248), (+1.1678089214117917, +0.31879891833584678), (+1.2409278545152769, +0.55324503123120328), (+1.4506672436112211, +0.47561622395616232), (+1.4367358122420419, +0.64180326436150736), (+1.3473514668002431, +0.38448735071142648), (+1.7387666245945581, +0.47689201344090888E-1), (+1.0477515248016802, +0.14339915609596438), (+1.2091669833444407, +0.11891367896744240), (+1.5256569594405620, +0.46387889897159268), (+1.5554831307351389, +0.44839661034704315), (+1.2231271673213082, +0.48479149669264698E-1), (+1.2709422249667883, +0.90970830347919196E-1), (+1.1789302696719621, +0.54656703930450135), (+1.3757344045737470, +0.31903454304961648), (+1.3163622899470711, +0.28956214504682484E-1), (+1.4800287415842033, +0.97859520128874777), (+1.6506090602286911, +0.76889808770967072), (+1.1523047967545439, +0.40285119919355028), (+1.2647873747010854, +0.66799184570117576), (+1.9705903770082158, +0.50511286071083961), (+1.0105712223042700, +0.26606805332726718), (+1.9089643041758335, +0.60173584952255743), (+1.9219682068029433, +0.95753078016806725), (+1.8280339661693150, +0.29179716734288119), (+1.1766374095143590, +0.14057949721640911), (+1.5200553269085078, +0.12640989661439780), (+1.4503116600777370, +0.60328647991426265), (+1.7594747651558087, +0.72086745887695813), (+1.8456843429584864, +0.17940611048639180), (+1.4316430283091994, +0.30479034273142780), (+1.8940518497487451, +0.27233714800622288), (+1.9238816015895615, +0.45831815707851919), (+1.9833429592488685, +0.47767670033310489), (+1.2514254282005572, +0.74218680727263608), (+1.6938840274262381, +0.63284659473579397), (+1.3388431601545110, +0.85352877312598874), (+1.4923595174312250, +0.47413997107021966), (+1.2435349170952694, +0.31870105673517185), (+1.5890691674862736, +0.89628082513143348), (+1.6927410710164263, +0.51041995780602900), (+1.2696279581504473, +0.24287866539059175), (+1.5630273587161234, +0.26389322278836502), (+1.7845442254526407, +0.48898810664102699), (+1.5052829917050949, +0.86726734944632689), (+1.5500210115982305, +0.28923690673251184), (+1.1105289057197585, +0.33040068692724844), (+1.3172802823680865, +0.12094095667798953), (+1.4129659465372639, +0.75290819956399702), (+1.2839598277155631, +0.60428402005997128), (+1.0298332690584031, +0.27781619306803856), (+1.0878922952295507, +0.42067337302740210), (+1.8680159352172983, +0.84900805250873468), (+1.5594697887212112, +0.84506606598286416), (+1.3323150976255940, +0.14829531412865515), (+1.7168812433936382, +0.57883994019739160), (+1.6571820766076777, +0.97268965685559727), (+1.9393617763756135, +0.92158658465879562), (+1.0000808183718819, +0.25271958039591974), (+1.5840308735555650, +0.89552724274410278), (+1.4036413378148134, +0.49401599979646177), (+1.0662286221593207, +0.86138261788176781E-1), (+1.2795434637694711, +0.69632582874095306), (+1.8421469958244108, +0.54201561609690829), (+1.5793141407142077, +0.97579531674737052)

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

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+81

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

141data

142(+1.42850576484319094019542249115799609, +0.219112466853991464984124692114684095), (+1.50436247103150956726769091020499306, +0.851730880045128040991066792152683027), (+1.63632058126554021165423667385508985, +0.964126319864292980528994094899197567), (+1.62518001815963121197912652199582909, +0.745625528940535409494723240493980246E-1), (+1.55580601230266802289814563684361442, +0.278468932155368324762476583657385452), (+1.96898287930022427867375940133823295, +0.323758892908163251192854997935326142), (+1.70615877952066863228866031992920748, +0.966354096821427792917482175035735818), (+1.77481043963056252529883207117647961, +0.828207743955186094286052740272772976), (+1.85814520503203864227525484044892176, +0.271142455007740782246682191456184347), (+1.19138354491853965575643942768723516, +0.120298721421063927821485535357168775), (+1.21916953565594668191027034636512975, +0.733995273009745612875552933384051520), (+1.91017266101613293410997865479041116, +0.266324050558888242973875562293096936), (+1.69614547385217174170143387832425990, +0.625037857604650841966253055772521315), (+1.70752729763363174676911715410907934, +0.161517503063720972888267981594001774), (+1.94833218962802580019314213472939497, +0.953303426488426007843128592894916393), (+1.19259458163651487697498539918780574, +0.536523754789349169351665767272186205), (+1.99175107979372676190770518464349207, +0.734409358004111712137954728207547484), (+1.17575824045320976336629375913611430, +0.743662318377799371993914921097371307), (+1.64968366811448072710439347527754369, +0.997547740605955488227917189330490845), (+1.41157222011449341838255134778224392, +0.868824717030754473933094112932089999), (+1.00529769367793982103364171609685617, +0.624271673779085652934781912978998851), (+1.74588840166466315802201565922074401, +0.258411720557565448064184358975062265), (+1.02416288893075445760184166311168149, +0.519532649019325943856291076515571069), (+1.11624574372219559128407707131533018, +0.123137820537636909479943517050964378), (+1.13248143861291177052874306384904868, +0.736733610913467022529673618358979888), (+1.68555811749485878224689621254370259, +0.450510872801701253338669331732701135), (+1.78383993260354592770280890515470093, +0.832631326256055108117718790686714438), (+1.02435954179810381663947834758509204, +0.459157373650870793123763890150522700), (+1.49312357277528007667453617434966885, +0.917115459729889678455142388743121675), (+1.22647243044266126214622750802138933, +0.589701025322216032770099202891299920), (+1.50502120277413271795105049819619683, +0.524888331251371146166870763627161728), (+1.86206298772595018217076403008968890, +0.804622498351172793271914802743211439), (+1.58184197239407731925406331605006474, +0.423878731998916765770091707721984136), (+1.45690186182883092845082408595018312, +0.269409763335555103920186259270945077), (+1.13588227527190298387195414008265730, +0.790029676079843580863400869053253892), (+1.04220281184951470439671073224661361, +0.285531398891735714600394203997250039), (+1.87626691668724675267838265829001487, +0.726992679566702444692916264296030119), (+1.74462281955059908240860925043430486, +0.316880953298659225663899706669364397), (+1.65695893778407935741375015673158383, +0.853826068686525521020211815629704435), (+1.88957156504126301393846134277590430, +0.665812007760598535208190751118585458), (+1.13146195619083312042237737020397544, +0.583869708219496769339045875534035850), (+1.21733061275066783192436337332916522, +0.954269203427095739438732261604479304), (+1.46229987407212254566374580439670742, +0.638214741659005077499105682579383939), (+1.78493956601096337453983993621340256, +0.417602006280735873917415799459580145), (+1.12776691531540486690409846678335243, +0.783661366534105080097440014229625585), (+1.40927938248825825965089381041831366, +0.415878971690658089691992413481540795), (+1.06266737153507578557423229421349335, +0.889916610481213428839671088159201738), (+1.83329116018387506820205376752039908, +0.678901240911180936742468622040859419), (+1.04987528742070485184744358816668089, +0.677310276137392859872277022086484140), (+1.92119744457442732169290399062598930, +0.406064366423913534977997898627445296), (+1.77671515551552674172060220281026866, +0.261763695206713396230336881189966487), (+1.70518107416087589947117098178303199, +0.612705113033108299821169440174616779), (+1.54870871061308495699181079074358508, +0.597057431942550334819501938949182136), (+1.67876333195383422156260948732588212, +0.670166749180495324460462559862629753), (+1.45816776767606186739691424523711029, +0.818680206979026334077405034559558114), (+1.12475159587955457335890712661028349, +0.466707502983855286376166340716545662), (+1.89489552484516699856378098629511859, +0.318528414679591175291293237213200045), (+1.14449149005549310564884161857665449, +0.675609145502265709323431013810737941), (+1.13921372320258961624405803855313965, +0.567145867023755767123363169201209637), (+1.95007183281371900467642696081054674, +0.759251765408427379266686212142863413), (+1.99290434182657749708564715815156415, +0.320781195045726747674028360220768546), (+1.17159316255365163175437970094678054, +0.852943339716045223691556324108679018), (+1.97332912495709544318757886960985488, +0.104111279918823480489638273899495662), (+1.31502573720011918525277223293452309, +0.559750007699239854679945014978298086), (+1.31202217916776231572242439362311353, +0.777084601898313735806574872951978242E-1), (+1.23340883247529802788401298088278922, +0.343836023265159950811674648773927150), (+1.24699451877102841505686764614357982, +0.111517723712298765150889764713360061), (+1.42054728356901932865348951193508286, +0.797431061603717539244461350062478541), (+1.64639807377506754105461869427459140, +0.384582294279471183367660232752701760), (+1.74575325888848696700758952193244213, +0.847616162720292564688479672825137625), (+1.54630900060358650286384999506946412, +0.658568864814495619914536916110885448), (+1.58835751259582987430844332022182022, +0.355599604587756573212303964006332178), (+1.41836937051070892822756703876501945, +0.518720084775480538372925668512817195), (+1.32844786097280643838070770856545654, +0.502956518586979062072615536555784094), (+1.11179303104900686634139260196400111, +0.500897469999335351349708167968161156), (+1.06721522069396986428825777734689328, +0.848459540726375442320336411936127390), (+1.05557658787981569415846931884006045, +0.844946771446945661487404753739904381E-1), (+1.12058608651556567404542694297336141, +0.229012145974812997483115593641599187), (+1.37470172571389588037769870618800136, +0.113734438971017961771846344849264237), (+1.87619769006242002916012350437663595, +0.257016171393146182817085824012441227), (+1.75629945276498551888329504026455336, +0.272013684388026375236781322057779016)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.42850576484319094019542249115799609, +0.219112466853991464984124692114683975), (+1.50436247103150956726769091020499306, +0.851730880045128040991066792152682835), (+1.63632058126554021165423667385508966, +0.964126319864292980528994094899197470), (+1.62518001815963121197912652199582928, +0.745625528940535409494723240493980126E-1), (+1.55580601230266802289814563684361442, +0.278468932155368324762476583657385404), (+1.96898287930022427867375940133823276, +0.323758892908163251192854997935326190), (+1.70615877952066863228866031992920748, +0.966354096821427792917482175035735818), (+1.77481043963056252529883207117647961, +0.828207743955186094286052740272772879), (+1.85814520503203864227525484044892176, +0.271142455007740782246682191456184395), (+1.19138354491853965575643942768723477, +0.120298721421063927821485535357168811), (+1.21916953565594668191027034636512975, +0.733995273009745612875552933384051327), (+1.91017266101613293410997865479041059, +0.266324050558888242973875562293097033), (+1.69614547385217174170143387832426029, +0.625037857604650841966253055772521315), (+1.70752729763363174676911715410907915, +0.161517503063720972888267981594001870), (+1.94833218962802580019314213472939497, +0.953303426488426007843128592894916296), (+1.19259458163651487697498539918780574, +0.536523754789349169351665767272186302), (+1.99175107979372676190770518464349226, +0.734409358004111712137954728207547291), (+1.17575824045320976336629375913611430, +0.743662318377799371993914921097371307), (+1.64968366811448072710439347527754369, +0.997547740605955488227917189330490652), (+1.41157222011449341838255134778224392, +0.868824717030754473933094112932089999), (+1.00529769367793982103364171609685578, +0.624271673779085652934781912978998948), (+1.74588840166466315802201565922074439, +0.258411720557565448064184358975062313), (+1.02416288893075445760184166311168149, +0.519532649019325943856291076515571069), (+1.11624574372219559128407707131533018, +0.123137820537636909479943517050964402), (+1.13248143861291177052874306384904868, +0.736733610913467022529673618358979695), (+1.68555811749485878224689621254370239, +0.450510872801701253338669331732700991), (+1.78383993260354592770280890515470055, +0.832631326256055108117718790686714535), (+1.02435954179810381663947834758509204, +0.459157373650870793123763890150522652), (+1.49312357277528007667453617434966904, +0.917115459729889678455142388743121290), (+1.22647243044266126214622750802138914, +0.589701025322216032770099202891299824), (+1.50502120277413271795105049819619722, +0.524888331251371146166870763627161728), (+1.86206298772595018217076403008968890, +0.804622498351172793271914802743211342), (+1.58184197239407731925406331605006436, +0.423878731998916765770091707721984136), (+1.45690186182883092845082408595018312, +0.269409763335555103920186259270944980), (+1.13588227527190298387195414008265749, +0.790029676079843580863400869053253796), (+1.04220281184951470439671073224661361, +0.285531398891735714600394203997250135), (+1.87626691668724675267838265829001429, +0.726992679566702444692916264296029926), (+1.74462281955059908240860925043430486, +0.316880953298659225663899706669364445), (+1.65695893778407935741375015673158325, +0.853826068686525521020211815629704435), (+1.88957156504126301393846134277590449, +0.665812007760598535208190751118585362), (+1.13146195619083312042237737020397525, +0.583869708219496769339045875534035754), (+1.21733061275066783192436337332916542, +0.954269203427095739438732261604479112), (+1.46229987407212254566374580439670742, +0.638214741659005077499105682579383746), (+1.78493956601096337453983993621340256, +0.417602006280735873917415799459580097), (+1.12776691531540486690409846678335243, +0.783661366534105080097440014229625585), (+1.40927938248825825965089381041831366, +0.415878971690658089691992413481540746), (+1.06266737153507578557423229421349354, +0.889916610481213428839671088159201641), (+1.83329116018387506820205376752039851, +0.678901240911180936742468622040859323), (+1.04987528742070485184744358816668128, +0.677310276137392859872277022086484043), (+1.92119744457442732169290399062598930, +0.406064366423913534977997898627445199), (+1.77671515551552674172060220281026828, +0.261763695206713396230336881189966583), (+1.70518107416087589947117098178303199, +0.612705113033108299821169440174616779), (+1.54870871061308495699181079074358508, +0.597057431942550334819501938949182040), (+1.67876333195383422156260948732588174, +0.670166749180495324460462559862629753), (+1.45816776767606186739691424523711029, +0.818680206979026334077405034559558017), (+1.12475159587955457335890712661028368, +0.466707502983855286376166340716545566), (+1.89489552484516699856378098629511820, +0.318528414679591175291293237213200045), (+1.14449149005549310564884161857665507, +0.675609145502265709323431013810737844), (+1.13921372320258961624405803855313965, +0.567145867023755767123363169201209637), (+1.95007183281371900467642696081054636, +0.759251765408427379266686212142863413), (+1.99290434182657749708564715815156396, +0.320781195045726747674028360220768450), (+1.17159316255365163175437970094678054, +0.852943339716045223691556324108678729), (+1.97332912495709544318757886960985469, +0.104111279918823480489638273899495758), (+1.31502573720011918525277223293452271, +0.559750007699239854679945014978297990), (+1.31202217916776231572242439362311334, +0.777084601898313735806574872951979205E-1), (+1.23340883247529802788401298088278884, +0.343836023265159950811674648773927246), (+1.24699451877102841505686764614358001, +0.111517723712298765150889764713359976), (+1.42054728356901932865348951193508267, +0.797431061603717539244461350062478444), (+1.64639807377506754105461869427459179, +0.384582294279471183367660232752701952), (+1.74575325888848696700758952193244213, +0.847616162720292564688479672825137432), (+1.54630900060358650286384999506946412, +0.658568864814495619914536916110885352), (+1.58835751259582987430844332022181983, +0.355599604587756573212303964006332322), (+1.41836937051070892822756703876501945, +0.518720084775480538372925668512817195), (+1.32844786097280643838070770856545673, +0.502956518586979062072615536555784094), (+1.11179303104900686634139260196400092, +0.500897469999335351349708167968161253), (+1.06721522069396986428825777734689385, +0.848459540726375442320336411936127294), (+1.05557658787981569415846931884006026, +0.844946771446945661487404753739904140E-1), (+1.12058608651556567404542694297336141, +0.229012145974812997483115593641599211), (+1.37470172571389588037769870618800136, +0.113734438971017961771846344849264261), (+1.87619769006242002916012350437663576, +0.257016171393146182817085824012440986), (+1.75629945276498551888329504026455278, +0.272013684388026375236781322057779209)

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

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

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

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+79

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

158data

159+1.69785273, +1.91229939, +1.28357887, +1.06565428, +1.96251750, +1.06327534, +1.72100401, +1.25746632, +1.14227629, +1.52270746, +1.55352831, +1.56113350, +1.83642554, +1.82588434, +1.60823989, +1.49185658, +1.22525835, +1.86439300, +1.97760439, +1.68264019, +1.69616699, +1.65069520, +1.34650540, +1.70322943, +1.09371364, +1.89559126, +1.19963670, +1.03890538, +1.70131016, +1.22934008, +1.88325572, +1.25809109, +1.70855260, +1.02963316, +1.26598167, +1.86021352, +1.33950067, +1.35930538, +1.97520077, +1.50620580, +1.49395251, +1.14782214, +1.71153498, +1.05469418, +1.98830819, +1.33141065, +1.92714953, +1.74744034, +1.82884610, +1.64626670, +1.91379452, +1.84062099, +1.92504776, +1.21128643, +1.40338755, +1.58111656, +1.21928024, +1.10539830, +1.65963459, +1.90808892, +1.64610076, +1.40248394, +1.77066207, +1.50049210, +1.22029209, +1.55047309, +1.23084080, +1.16878355, +1.48318493, +1.29118657, +1.91645122, +1.94607162, +1.68515182, +1.81288886, +1.74972463, +1.93750417, +1.10692358, +1.78740180, +1.14241302

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.69785011, +1.91229808, +1.28357744, +1.06565011, +1.96252286, +1.06326926, +1.72100830, +1.25746405, +1.14227235, +1.52270842, +1.55352819, +1.56113148, +1.83642888, +1.82588720, +1.60823870, +1.49185658, +1.22524655, +1.86440003, +1.97761083, +1.68263865, +1.69616902, +1.65069890, +1.34649563, +1.70324326, +1.09369290, +1.89561450, +1.19962788, +1.03888774, +1.70133102, +1.22931874, +1.88328457, +1.25806868, +1.70857608, +1.02961075, +1.26597500, +1.86023843, +1.33949172, +1.35929084, +1.97523391, +1.50619161, +1.49396122, +1.14779449, +1.71156526, +1.05465472, +1.98834777, +1.33138216, +1.92717159, +1.74743497, +1.82885492, +1.64625800, +1.91380608, +1.84062028, +1.92506456, +1.21126974, +1.40338707, +1.58112252, +1.21927476, +1.10538685, +1.65963948, +1.90809739, +1.64610255, +1.40247643, +1.77066970, +1.50049162, +1.22028494, +1.55047750, +1.23083663, +1.16877890, +1.48318768, +1.29118013, +1.91645586, +1.94607389, +1.68515098, +1.81288981, +1.74972379, +1.93750703, +1.10691929, +1.78740263, +1.14241016

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

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

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

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+38

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

175data

176+1.8635942445295801, +1.7074412049112739, +1.4524975206332449, +1.5286304826669450, +1.0224719319383473, +1.7016927198785652, +1.2738594685423652, +1.3205890637315147, +1.5191179412309670, +1.7083203408259384, +1.7089856822020113, +1.0623357660727015, +1.6230615884563699, +1.6084963195033684, +1.6083435446838328, +1.4032993464483257, +1.4594791856296849, +1.0214112474181054, +1.9603483413105058, +1.1281835308289030, +1.5729939920623703, +1.6740203058896743, +1.6132686638319425, +1.3160717415506979, +1.6519785240809584, +1.1019182280456392, +1.3906497339006765, +1.4138964178848772, +1.9940640577277478, +1.1734507305943087, +1.4101280843825252, +1.3192113984133471, +1.9038648388189574, +1.8282352245327347, +1.4788339636297039, +1.4831542621612561, +1.5785710025599653, +1.4232868743894305

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.8635942445295810, +1.7074412049112746, +1.4524975206332444, +1.5286304826669452, +1.0224719319383484, +1.7016927198785652, +1.2738594685423645, +1.3205890637315147, +1.5191179412309674, +1.7083203408259375, +1.7089856822020100, +1.0623357660727024, +1.6230615884563708, +1.6084963195033681, +1.6083435446838317, +1.4032993464483248, +1.4594791856296871, +1.0214112474181074, +1.9603483413105007, +1.1281835308289003, +1.5729939920623663, +1.6740203058896703, +1.6132686638319442, +1.3160717415506988, +1.6519785240809570, +1.1019182280456397, +1.3906497339006785, +1.4138964178848770, +1.9940640577277458, +1.1734507305943089, +1.4101280843825266, +1.3192113984133476, +1.9038648388189561, +1.8282352245327338, +1.4788339636297050, +1.4831542621612566, +1.5785710025599649, +1.4232868743894307

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

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

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

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+63

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

192data

193+1.12829501094503393245095172370070366, +1.72376060488528883890938706752418823, +1.76848755005050001431164465464003368, +1.05880087421797703880442458598276013, +1.94088958016548464197650582051367262, +1.43872248111570299636959181659414383, +1.46289982506002251039960431872876032, +1.49100357979332134140308131315890729, +1.40004093292894588546916041634705121, +1.07627864285931557993155946862414738, +1.31766250313147296690154989796008576, +1.02519706304926726124015362580300829, +1.82471339321887274194924881731987685, +1.28613206853139158232334819863538237, +1.45388204662021595326316762703108358, +1.50454301982413983783020609846106798, +1.06311479608031236820334936290809077, +1.85727178739469257008183648415116574, +1.27994509440368868211655325507458567, +1.17755063802402669720795155480162858, +1.24263890904629728073547818934306561, +1.61633226633654726443308219749202734, +1.35690486436899442834752135826426190, +1.68483473438630223151361515330808529, +1.05947326911490176459737129130508725, +1.92066588651895555955346318540307757, +1.64181529295663738676668776454609659, +1.51715401780465377245616856493633547, +1.86439046970490562736296505500416064, +1.56681964998876003011361990370601481, +1.36811574589999403057811087914037831, +1.59396404798695759552892757470433854, +1.38186470999917212252866455102944456, +1.33195357020062107124686177183837685, +1.90212272148034507255689231124123957, +1.56453996389514326073788769544299098, +1.62326805777105110712133481179222038, +1.18628086943838492428126601646147650, +1.86604741717735815330631030027559416, +1.16757208329619374174527941592522996, +1.18415944459487613158057636933424522, +1.45493388733297211922458171896181351, +1.80259761855252224160999802892119077, +1.31935030506134581335620982203604099, +1.94243788915683719646598973786054971, +1.93788544761259469304545908260591095, +1.94100228857073525312698379361052379, +1.29973579493172565880800679590933811, +1.29217980258975442603821495171487690, +1.74363129750850382384020769289277306, +1.85307690815021403528849540526647796, +1.31301192665152188126833303170539590, +1.01315140878974484081867953573227717, +1.47113922172921436151297147044819830, +1.47290271600135936602567024117659151, +1.20212247919906203520629067653010402, +1.78811086753388543331574609346979093, +1.24759045151984488448909634723502085, +1.24061386113868957650425255805146905, +1.12019636087560433038421621687981293, +1.94676950381984899584856605548898453, +1.46559165272255562309697889722467353, +1.34550345509727379045757682606785560

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.12829501094503393245095172370070366, +1.72376060488528883890938706752418804, +1.76848755005050001431164465464003406, +1.05880087421797703880442458598275993, +1.94088958016548464197650582051367224, +1.43872248111570299636959181659414383, +1.46289982506002251039960431872876032, +1.49100357979332134140308131315890671, +1.40004093292894588546916041634705141, +1.07627864285931557993155946862414738, +1.31766250313147296690154989796008595, +1.02519706304926726124015362580300829, +1.82471339321887274194924881731987666, +1.28613206853139158232334819863538237, +1.45388204662021595326316762703108378, +1.50454301982413983783020609846106779, +1.06311479608031236820334936290809019, +1.85727178739469257008183648415116593, +1.27994509440368868211655325507458528, +1.17755063802402669720795155480162839, +1.24263890904629728073547818934306600, +1.61633226633654726443308219749202695, +1.35690486436899442834752135826426152, +1.68483473438630223151361515330808529, +1.05947326911490176459737129130508725, +1.92066588651895555955346318540307738, +1.64181529295663738676668776454609678, +1.51715401780465377245616856493633586, +1.86439046970490562736296505500416083, +1.56681964998876003011361990370601501, +1.36811574589999403057811087914037793, +1.59396404798695759552892757470433835, +1.38186470999917212252866455102944476, +1.33195357020062107124686177183837646, +1.90212272148034507255689231124123957, +1.56453996389514326073788769544299098, +1.62326805777105110712133481179222058, +1.18628086943838492428126601646147631, +1.86604741717735815330631030027559474, +1.16757208329619374174527941592522977, +1.18415944459487613158057636933424522, +1.45493388733297211922458171896181370, +1.80259761855252224160999802892119058, +1.31935030506134581335620982203604060, +1.94243788915683719646598973786055009, +1.93788544761259469304545908260591095, +1.94100228857073525312698379361052398, +1.29973579493172565880800679590933849, +1.29217980258975442603821495171487690, +1.74363129750850382384020769289277267, +1.85307690815021403528849540526647815, +1.31301192665152188126833303170539629, +1.01315140878974484081867953573227660, +1.47113922172921436151297147044819849, +1.47290271600135936602567024117659151, +1.20212247919906203520629067653010402, +1.78811086753388543331574609346979132, +1.24759045151984488448909634723502066, +1.24061386113868957650425255805146924, +1.12019636087560433038421621687981293, +1.94676950381984899584856605548898453, +1.46559165272255562309697889722467334, +1.34550345509727379045757682606785599

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

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+79

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

209data

210(+1.46297717, +0.717668712), (+1.00707316, +0.976041853), (+1.38078380, +0.130205274), (+1.81546760, +0.961518764), (+1.67885375, +0.669834912), (+1.98663807, +0.407878101), (+1.41140771, +0.856452942), (+1.31070828, +0.366949081), (+1.72214389, +0.246841252), (+1.50994051, +0.473947883), (+1.83860385, +0.257714987), (+1.71441102, +0.316120088), (+1.59816575, +0.369262636), (+1.61395478, +0.567358553), (+1.63745332, +0.816479266), (+1.52864981, +0.335710049), (+1.47715950, +0.341544271), (+1.91695380, +0.509967685), (+1.39218688, +0.147534788), (+1.44756007, +0.278877854), (+1.38191605, +0.574082613), (+1.68887424, +0.250073612), (+1.35449445, +0.118513346), (+1.24752653, +0.688526213), (+1.74680638, +0.537680030), (+1.72145987, +0.723214924), (+1.63882804, +0.953238845), (+1.90710950, +0.938252747), (+1.46234095, +0.330423951), (+1.93631589, +0.160802186), (+1.36142969, +0.872153103), (+1.81143165, +0.191392004), (+1.19780493, +0.352630019), (+1.19207525, +0.796239316), (+1.01245308, +0.888218880), (+1.31144261, +0.731292546), (+1.53657687, +0.835501850), (+1.79699624, +0.692387104), (+1.13852298, +0.410225987E-1), (+1.85890627, +0.104001820), (+1.47462773, +0.109602988), (+1.57413721, +0.441494703), (+1.32712638, +0.158487320), (+1.03463030, +0.674894929), (+1.09638715, +0.495534182), (+1.61794472, +0.938084126), (+1.71372175, +0.870105803), (+1.27987647, +0.349503219), (+1.71113789, +0.924248040), (+1.48838460, +0.683158398), (+1.25708365, +0.213671625), (+1.37785745, +0.317476928), (+1.12087405, +0.978411913), (+1.85309172, +0.660682321), (+1.71858406, +0.449664652), (+1.74445677, +0.647831321), (+1.55438471, +0.603567123), (+1.25676572, +0.106778026), (+1.99763513, +0.654061377), (+1.88580406, +0.700627804), (+1.20409584, +0.493459940), (+1.12991083, +0.945651233), (+1.22239423, +0.598462105), (+1.62647223, +0.924757540), (+1.95976567, +0.621343672), (+1.23701334, +0.973497808), (+1.80597425, +0.597331047), (+1.25604153, +0.387161374E-1), (+1.83889484, +0.180778265), (+1.86508441, +0.557883382), (+1.51957095, +0.562740803), (+1.11637878, +0.796335399), (+1.33357143, +0.992884457), (+1.95451009, +0.964246154), (+1.61638927, +0.777261496), (+1.55924976, +0.982926250), (+1.52386355, +0.254451156), (+1.75990009, +0.767174602), (+1.83111310, +0.876429319)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.46298087, +0.717670143), (+1.00707245, +0.976041913), (+1.38078284, +0.130205065), (+1.81546724, +0.961518884), (+1.67885387, +0.669835091), (+1.98663759, +0.407877862), (+1.41140711, +0.856452942), (+1.31070793, +0.366948873), (+1.72214353, +0.246841118), (+1.50994051, +0.473947763), (+1.83860302, +0.257714868), (+1.71441090, +0.316120058), (+1.59816539, +0.369262457), (+1.61395502, +0.567358613), (+1.63745296, +0.816479445), (+1.52864921, +0.335709721), (+1.47715902, +0.341544241), (+1.91695356, +0.509967387), (+1.39218664, +0.147534698), (+1.44756007, +0.278877765), (+1.38191605, +0.574082494), (+1.68887424, +0.250073493), (+1.35449409, +0.118513264), (+1.24752641, +0.688526094), (+1.74680614, +0.537679970), (+1.72145975, +0.723214865), (+1.63882875, +0.953238785), (+1.90710998, +0.938252747), (+1.46234131, +0.330423981), (+1.93631601, +0.160801992), (+1.36143017, +0.872153103), (+1.81143212, +0.191392064), (+1.19780540, +0.352629840), (+1.19207561, +0.796239376), (+1.01245356, +0.888218582), (+1.31144297, +0.731292486), (+1.53657711, +0.835501850), (+1.79699671, +0.692387104), (+1.13852334, +0.410226025E-1), (+1.85890687, +0.104001723), (+1.47462869, +0.109602958), (+1.57413769, +0.441494733), (+1.32712698, +0.158487499), (+1.03463054, +0.674894929), (+1.09638751, +0.495534062), (+1.61794531, +0.938083887), (+1.71372235, +0.870105803), (+1.27987683, +0.349502981), (+1.71113861, +0.924248040), (+1.48838496, +0.683158576), (+1.25708377, +0.213671535), (+1.37785769, +0.317476809), (+1.12087452, +0.978411913), (+1.85309231, +0.660682201), (+1.71858370, +0.449664563), (+1.74445665, +0.647831440), (+1.55438459, +0.603567004), (+1.25676548, +0.106778100), (+1.99763536, +0.654061258), (+1.88580406, +0.700627625), (+1.20409584, +0.493459791), (+1.12991071, +0.945651114), (+1.22239411, +0.598461866), (+1.62647188, +0.924757361), (+1.95976508, +0.621343493), (+1.23701298, +0.973497808), (+1.80597436, +0.597331107), (+1.25604117, +0.387160741E-1), (+1.83889484, +0.180778265), (+1.86508334, +0.557883263), (+1.51957107, +0.562740803), (+1.11637831, +0.796335161), (+1.33357120, +0.992884099), (+1.95450950, +0.964246273), (+1.61638880, +0.777261317), (+1.55924988, +0.982926309), (+1.52386296, +0.254451185), (+1.75989914, +0.767174244), (+1.83111227, +0.876429200)

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

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

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

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+69

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

226data

227(+1.6380854714136310, +0.66324588389197414), (+1.4846638655331206, +0.74093171599900209), (+1.4253560656203625, +0.59530413478916855), (+1.9450959094471125, +0.77648535913867101), (+1.7770943530917136, +0.60630549274646084), (+1.3660512367675963, +0.16513721846761653), (+1.5560266716840303, +0.27879680970571574), (+1.6948278511569050, +0.44716636925570830), (+1.5148979766480430, +0.49360619034013009), (+1.1556270010804413, +0.97349808782468006), (+1.2136198698296070, +0.63980544453503740), (+1.5559782244661244, +0.17790974613275246), (+1.4242020855951774, +0.51680100626022218), (+1.8995744955672476, +0.76026889883707338), (+1.4005812463097955, +0.32644921582041520), (+1.1961689601432233, +0.15275776736587909), (+1.1394280324948853, +0.34458586892274279), (+1.9077115709919643, +0.25125111854998550E-1), (+1.9822622711706694, +0.32396475623101950), (+1.5216267292869567, +0.86718373821649908), (+1.6546197997592089, +0.54011122869240569), (+1.2723346599366288, +0.85069194401954595), (+1.9910682461066671, +0.49411089873909075), (+1.8260705855934800, +0.36004682557072454), (+1.2901382888565815, +0.69441517991644841), (+1.0230471451066372, +0.28217487870195479), (+1.7362199309477855, +0.31819715742122490), (+1.4046688733715817, +0.68731930517650974), (+1.9133818379984207, +0.33360513774473122), (+1.7078938551075518, +0.10803532374526359E-1), (+1.5271110425096743, +0.31043901342698754), (+1.6027148676250040, +0.35179596624140519), (+1.8078692075255627, +0.57613196658984422), (+1.9396127857937611, +0.21164429558062170), (+1.8859536110632642, +0.15409401791794830), (+1.8189364033637423, +0.94679651035249868), (+1.9592101300501725, +0.46437217596217895), (+1.0796104854437836, +0.66864210744630803), (+1.2630312338808103, +0.67710444627636091E-1), (+1.0598077235007914, +0.56926975504881794E-2), (+1.3698883244285960, +0.98609140120359817E-1), (+1.0439152000990779, +0.78779348796132276), (+1.8267456630405858, +0.15611507435694616E-1), (+1.0490258506455015, +0.72593180166882953), (+1.3847645578553629, +0.15723587934094907), (+1.2603889906121730, +0.60491300809349136), (+1.5776952393182548, +0.80822439069621776), (+1.8672791583120876, +0.85525251549438841), (+1.6068357112993947, +0.62731878524249129), (+1.1313722623820337, +0.29324974218891342), (+1.6518796342726285, +0.74315011724942526), (+1.0169470505174023, +0.31361614569807739), (+1.3229377141284326, +0.89040474012891635), (+1.6322701514605040, +0.18331104868418868), (+1.1746611229625197, +0.55508035657774624), (+1.2213975038577112, +0.93826767147956991), (+1.2305830820039296, +0.42290394236919915), (+1.2732994964949249, +0.90022960915801653), (+1.8083896423317329, +0.30703724240515584), (+1.0527357176430485, +0.45617981873206215), (+1.5369621864218059, +0.81121413474100479), (+1.7690367059921304, +0.37014147728558344), (+1.8066404527706501, +0.71556719358894816), (+1.5066010388534636, +0.43148722401409412), (+1.0507928872617187, +0.94683967039509043), (+1.9466156780523178, +0.70847934779263377), (+1.9644975450761044, +0.69459819846522364), (+1.5032623928345998, +0.25300401799858063), (+1.9220864633773189, +0.37909028958491897)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.6380854714136286, +0.66324588389197336), (+1.4846638655331212, +0.74093171599900254), (+1.4253560656203628, +0.59530413478916855), (+1.9450959094471123, +0.77648535913867123), (+1.7770943530917134, +0.60630549274646073), (+1.3660512367675963, +0.16513721846761650), (+1.5560266716840305, +0.27879680970571596), (+1.6948278511569057, +0.44716636925570841), (+1.5148979766480428, +0.49360619034012998), (+1.1556270010804413, +0.97349808782467995), (+1.2136198698296072, +0.63980544453503740), (+1.5559782244661238, +0.17790974613275198), (+1.4242020855951760, +0.51680100626022196), (+1.8995744955672467, +0.76026889883707327), (+1.4005812463097957, +0.32644921582041531), (+1.1961689601432226, +0.15275776736587898), (+1.1394280324948851, +0.34458586892274279), (+1.9077115709919641, +0.25125111854998668E-1), (+1.9822622711706703, +0.32396475623101961), (+1.5216267292869565, +0.86718373821649897), (+1.6546197997592087, +0.54011122869240547), (+1.2723346599366290, +0.85069194401954584), (+1.9910682461066680, +0.49411089873909125), (+1.8260705855934776, +0.36004682557072420), (+1.2901382888565820, +0.69441517991644885), (+1.0230471451066374, +0.28217487870195501), (+1.7362199309477853, +0.31819715742122495), (+1.4046688733715817, +0.68731930517650985), (+1.9133818379984204, +0.33360513774473122), (+1.7078938551075518, +0.10803532374526482E-1), (+1.5271110425096743, +0.31043901342698771), (+1.6027148676250038, +0.35179596624140513), (+1.8078692075255629, +0.57613196658984422), (+1.9396127857937617, +0.21164429558062159), (+1.8859536110632633, +0.15409401791794772), (+1.8189364033637410, +0.94679651035249845), (+1.9592101300501725, +0.46437217596217889), (+1.0796104854437838, +0.66864210744630792), (+1.2630312338808098, +0.67710444627636285E-1), (+1.0598077235007914, +0.56926975504883164E-2), (+1.3698883244285960, +0.98609140120359789E-1), (+1.0439152000990779, +0.78779348796132298), (+1.8267456630405856, +0.15611507435694880E-1), (+1.0490258506455010, +0.72593180166882987), (+1.3847645578553629, +0.15723587934094943), (+1.2603889906121737, +0.60491300809349147), (+1.5776952393182526, +0.80822439069621699), (+1.8672791583120880, +0.85525251549438874), (+1.6068357112993950, +0.62731878524249107), (+1.1313722623820335, +0.29324974218891386), (+1.6518796342726285, +0.74315011724942526), (+1.0169470505174028, +0.31361614569807766), (+1.3229377141284333, +0.89040474012891657), (+1.6322701514605040, +0.18331104868418868), (+1.1746611229625192, +0.55508035657774635), (+1.2213975038577114, +0.93826767147956980), (+1.2305830820039299, +0.42290394236919920), (+1.2732994964949236, +0.90022960915801598), (+1.8083896423317318, +0.30703724240515551), (+1.0527357176430492, +0.45617981873206243), (+1.5369621864218059, +0.81121413474100457), (+1.7690367059921301, +0.37014147728558350), (+1.8066404527706503, +0.71556719358894805), (+1.5066010388534636, +0.43148722401409401), (+1.0507928872617192, +0.94683967039509054), (+1.9466156780523181, +0.70847934779263355), (+1.9644975450761040, +0.69459819846522386), (+1.5032623928345998, +0.25300401799858091), (+1.9220864633773194, +0.37909028958491925)

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

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

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

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+44

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

243data

244(+1.05463901119031102622282635701409356, +0.918801392154782881449019671576403996E-1), (+1.74218007396008845044949992179814927, +0.191882268965176438725538047588462322), (+1.36669706940153288408418533005149842, +0.987411306463344620925223927893554242), (+1.81862666444713108820830478408896152, +0.347542524109119630536705315109807585), (+1.86669051767042838807981379591315688, +0.647886717558696130909171420539790707), (+1.22486048876474727197718309236543852, +0.316136664021830935572461023508114826), (+1.36167965474750141879252846101675842, +0.315538181998122225568082339895930340), (+1.53294025284497751246458488135186554, +0.599933209026671260408437946494172629), (+1.13253790325771992661000401347924257, +0.906230411590224409429148684589623917), (+1.34412730461323052206671856731958211, +0.396264365220930889471410613876347433), (+1.71286504704599107488358178945495016, +0.662093808938574546807286507806593635E-2), (+1.69674898045900223060219019500566208, +0.738187046826059996830529860797562906), (+1.73780448580817483657507499737366284, +0.504135255486374943105780074607995963), (+1.46120430651172328054585899381322902, +0.189192444182352730886809781902391020), (+1.14916808975399674390484856547848353, +0.279858166113530690101071963803100741E-1), (+1.42125363414109897606820839135094479, +0.155945957593267190254912688691325366), (+1.35465719275279782320340570747121098, +0.155864248163565577394054336756769728), (+1.85500977512944816668327237882120468, +0.607981099034396330985793671669309949), (+1.19108347723505212768917231845149596, +0.658538995762447023411942186104994460E-1), (+1.63994612701329528838813967785222939, +0.146177337449002573971301208458595954), (+1.14500870299035585982003508141544961, +0.712362144701311387725997577981156976), (+1.25214807282952915304566944450474079, +0.636608925359427130424807924307307810), (+1.64342725831338194891945706840294627, +0.975326936920661932013517635102738924E-1), (+1.53506157740869113031710219278962236, +0.504546993003282741085862208699714953), (+1.96528050411974326335859000664967747, +0.550890439112909292057207912202410245), (+1.54060426166857121775386801597177728, +0.309878630259521146522165449512440795), (+1.76985902148439426888724477030582378, +0.348398828200413617162697332344544312), (+1.19954262327675368489498408382829754, +0.267800318010540270978895174683467950), (+1.32315214980563928459575455570529755, +0.850809894433678442111020028350199357), (+1.14626723660818824887417040668164310, +0.512448796492556699137422661978772547), (+1.09488639883861426128014693009705550, +0.253341351571536846166364872313682452), (+1.84601831677168561790130037928693629, +0.100597107413620567376287112718145412), (+1.78599168022013670346168417717927714, +0.900364805615459144674033499527209905), (+1.62242814706058277119245855474790872, +0.315099952339431915309943476954250968), (+1.49560317146993127094568565447088836, +0.522020177686972271735753440087027183), (+1.69641824521540233731533517129095352, +0.783371270245021770004140996168425711), (+1.34033559983696961368186774976447744, +0.789737500869316601581013527707785704), (+1.90067490454177233008804516437107248, +0.207639389380117771277611006369782780), (+1.58069726514730510250148055926002606, +0.332109343594301982313437064017285180), (+1.22097747067475675177502235245857145, +0.514711220173762426490680685249464563), (+1.23569575691888151681701613516211951, +0.592827820025292440237186260787039549), (+1.16438257050152020492825269491966509, +0.273258230029344649459339383201810973), (+1.84927211380925113382994819954171213, +0.356328328948670493942944341419900985), (+1.06338763030724758478318106593473532, +0.817861232512757182421677571724519795)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.05463901119031102622282635701409356, +0.918801392154782881449019671576403394E-1), (+1.74218007396008845044949992179814946, +0.191882268965176438725538047588462419), (+1.36669706940153288408418533005149842, +0.987411306463344620925223927893554145), (+1.81862666444713108820830478408896209, +0.347542524109119630536705315109807634), (+1.86669051767042838807981379591315669, +0.647886717558696130909171420539790803), (+1.22486048876474727197718309236543852, +0.316136664021830935572461023508114826), (+1.36167965474750141879252846101675842, +0.315538181998122225568082339895930436), (+1.53294025284497751246458488135186593, +0.599933209026671260408437946494172629), (+1.13253790325771992661000401347924276, +0.906230411590224409429148684589623917), (+1.34412730461323052206671856731958211, +0.396264365220930889471410613876347529), (+1.71286504704599107488358178945495016, +0.662093808938574546807286507806613797E-2), (+1.69674898045900223060219019500566170, +0.738187046826059996830529860797562906), (+1.73780448580817483657507499737366304, +0.504135255486374943105780074607996059), (+1.46120430651172328054585899381322921, +0.189192444182352730886809781902391044), (+1.14916808975399674390484856547848334, +0.279858166113530690101071963803101193E-1), (+1.42125363414109897606820839135094518, +0.155945957593267190254912688691325294), (+1.35465719275279782320340570747121079, +0.155864248163565577394054336756769824), (+1.85500977512944816668327237882120507, +0.607981099034396330985793671669309949), (+1.19108347723505212768917231845149596, +0.658538995762447023411942186104996627E-1), (+1.63994612701329528838813967785223016, +0.146177337449002573971301208458595954), (+1.14500870299035585982003508141544922, +0.712362144701311387725997577981156976), (+1.25214807282952915304566944450474137, +0.636608925359427130424807924307308099), (+1.64342725831338194891945706840294608, +0.975326936920661932013517635102739165E-1), (+1.53506157740869113031710219278962294, +0.504546993003282741085862208699715146), (+1.96528050411974326335859000664967709, +0.550890439112909292057207912202410437), (+1.54060426166857121775386801597177767, +0.309878630259521146522165449512440843), (+1.76985902148439426888724477030582339, +0.348398828200413617162697332344544361), (+1.19954262327675368489498408382829773, +0.267800318010540270978895174683467902), (+1.32315214980563928459575455570529755, +0.850809894433678442111020028350199357), (+1.14626723660818824887417040668164329, +0.512448796492556699137422661978772547), (+1.09488639883861426128014693009705570, +0.253341351571536846166364872313682548), (+1.84601831677168561790130037928693668, +0.100597107413620567376287112718145509), (+1.78599168022013670346168417717927714, +0.900364805615459144674033499527209905), (+1.62242814706058277119245855474790910, +0.315099952339431915309943476954250968), (+1.49560317146993127094568565447088836, +0.522020177686972271735753440087027376), (+1.69641824521540233731533517129095371, +0.783371270245021770004140996168425711), (+1.34033559983696961368186774976447744, +0.789737500869316601581013527707785704), (+1.90067490454177233008804516437107248, +0.207639389380117771277611006369782828), (+1.58069726514730510250148055926002606, +0.332109343594301982313437064017285228), (+1.22097747067475675177502235245857145, +0.514711220173762426490680685249464466), (+1.23569575691888151681701613516211913, +0.592827820025292440237186260787039645), (+1.16438257050152020492825269491966528, +0.273258230029344649459339383201811021), (+1.84927211380925113382994819954171213, +0.356328328948670493942944341419901033), (+1.06338763030724758478318106593473570, +0.817861232512757182421677571724519891)

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

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

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

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+80

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

260data

261+1.72388792, +1.99346566, +1.09671497, +1.94055223, +1.83325338, +1.88094401, +1.78573203, +1.62736988, +1.62947690, +1.97570062, +1.93048239, +1.48412037, +1.61848426, +1.22470462, +1.54101741, +1.70789301, +1.57779646, +1.21069276, +1.31964278, +1.18637145, +1.77958441, +1.04885173, +1.91875076, +1.25658858, +1.83917165, +1.53306150, +1.76884699, +1.06800437, +1.65852642, +1.79752815, +1.04732656, +1.66649258, +1.70236290, +1.15212309, +1.25121903, +1.69205463, +1.19554067, +1.61063957, +1.71638572, +1.53124261, +1.38059640, +1.28064775, +1.48610377, +1.14076805, +1.31931639, +1.48631859, +1.01170111, +1.69243801, +1.94945812, +1.59242105, +1.85158300, +1.10454011, +1.37937951, +1.94624662, +1.97905803, +1.97281289, +1.67964315, +1.10456359, +1.06498361, +1.48079753, +1.32503819, +1.07638001, +1.94614768, +1.27473962, +1.45175242, +1.48122835, +1.79440498, +1.22443676, +1.06565034, +1.37477887, +1.17426157, +1.05657625, +1.02493322, +1.76314545, +1.86972678, +1.75523651, +1.46340775, +1.16357911, +1.85106802, +1.64709473

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.72388768, +1.99346566, +1.09671485, +1.94055212, +1.83325291, +1.88094413, +1.78573167, +1.62736976, +1.62947679, +1.97570062, +1.93048227, +1.48412025, +1.61848414, +1.22470438, +1.54101741, +1.70789278, +1.57779658, +1.21069276, +1.31964314, +1.18637145, +1.77958453, +1.04885185, +1.91875076, +1.25658882, +1.83917165, +1.53306162, +1.76884735, +1.06800449, +1.65852642, +1.79752815, +1.04732668, +1.66649270, +1.70236301, +1.15212309, +1.25121939, +1.69205475, +1.19554079, +1.61063957, +1.71638572, +1.53124297, +1.38059652, +1.28064787, +1.48610389, +1.14076817, +1.31931639, +1.48631871, +1.01170099, +1.69243813, +1.94945812, +1.59242094, +1.85158336, +1.10454023, +1.37937963, +1.94624674, +1.97905815, +1.97281325, +1.67964327, +1.10456359, +1.06498373, +1.48079765, +1.32503831, +1.07638013, +1.94614756, +1.27473986, +1.45175254, +1.48122835, +1.79440534, +1.22443676, +1.06565034, +1.37477911, +1.17426181, +1.05657637, +1.02493322, +1.76314545, +1.86972702, +1.75523651, +1.46340775, +1.16357899, +1.85106814, +1.64709496

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

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+44

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

277data

278+1.8315635358910043, +1.9833707911053340, +1.1031989481301117, +1.6352862226790255, +1.0533507740422845, +1.2363895082029610, +1.5236038942627861, +1.6428726394269368, +1.2801654795468556, +1.9307510791683877, +1.8278307429244038, +1.9306627305739319, +1.5407239895549374, +1.5732114091869773, +1.9900730707717940, +1.0914044076413489, +1.8135822704491553, +1.5747075155653527, +1.6610957292683257, +1.0167381169224248, +1.9316840546518033, +1.5739778702305558, +1.0857829178112759, +1.6492306384471074, +1.3155769727106792, +1.2226908277988855, +1.9591806828592486, +1.9466085920847567, +1.4210745847848005, +1.5048073869942327, +1.9933597121005080, +1.8814098263564185, +1.5561511445153713, +1.5005385718844693, +1.0136777642406178, +1.6774459170979108, +1.8889299540468962, +1.1130735387112423, +1.6096702760180581, +1.1297620626278082, +1.4942001181961975, +1.7881793624066395, +1.0351356193337704, +1.4402948786296799

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.8315635358910050, +1.9833707911053344, +1.1031989481301119, +1.6352862226790263, +1.0533507740422843, +1.2363895082029615, +1.5236038942627863, +1.6428726394269375, +1.2801654795468556, +1.9307510791683882, +1.8278307429244043, +1.9306627305739326, +1.5407239895549372, +1.5732114091869775, +1.9900730707717944, +1.0914044076413494, +1.8135822704491553, +1.5747075155653534, +1.6610957292683259, +1.0167381169224257, +1.9316840546518024, +1.5739778702305562, +1.0857829178112757, +1.6492306384471069, +1.3155769727106783, +1.2226908277988859, +1.9591806828592482, +1.9466085920847567, +1.4210745847848003, +1.5048073869942336, +1.9933597121005084, +1.8814098263564194, +1.5561511445153711, +1.5005385718844697, +1.0136777642406185, +1.6774459170979112, +1.8889299540468967, +1.1130735387112429, +1.6096702760180588, +1.1297620626278089, +1.4942001181961975, +1.7881793624066402, +1.0351356193337704, +1.4402948786296805

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

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+74

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

294data

295+1.36821238284593228174646508054511830, +1.97330099104422531222215670982799332, +1.92194795115064006989480241286911637, +1.35241376224952919654921143129090263, +1.13229473856762886972906825725209759, +1.96146830751722047951370654005497500, +1.70343214916692912570400593621869179, +1.64268816861608526685363975269584124, +1.58476039787183339930940792864783273, +1.14830878826873470787727183978259542, +1.84080659017197308912875861265989197, +1.47902025360103470477024494936908694, +1.69937558227503170166315861353259565, +1.11000822353638407343304560303383849, +1.66375283672796722240277641604560436, +1.20178485397324777021618921347642166, +1.01704339575339889550895767685075159, +1.07274325540475809006047510506601887, +1.02025587891313861865400832587308693, +1.59859232167263325956071911936925842, +1.28228873072734266306599026558014257, +1.53265529965156517905744694380492079, +1.52499775925541898732581663843598289, +1.14697395549710197602020026043532025, +1.81904457768704823788963775560093939, +1.74665412815550525522500354030996162, +1.26902768092069220534512592549769251, +1.63426126088457743954900927104670062, +1.61316149293662273600079293771550581, +1.03663890736068285490668441250746885, +1.51944086309494793530404193372520083, +1.16753726181429595524776017926738100, +1.82566068472011201169890251372324142, +1.02147725281767836143470718022397604, +1.65374283849465309943879630767143763, +1.31279284869516909303256751075502711, +1.01728998965940648242525524004418768, +1.16793489210360702846040197943140298, +1.39446383927035426487766946709696494, +1.88957377826103378476497208830788106, +1.03676560071021951998515286545033764, +1.05321850811663712901693798333070255, +1.76866245035837692173084254969945453, +1.34442139223726362517387485345342445, +1.01033096857522121532650140523809839, +1.27403134024242064206245247740574239, +1.06302224996232300428564097761804418, +1.72916372180363733155430855421456234, +1.39698571546244258236913603299936959, +1.98633579035627365268647591100895351, +1.28051743217161597124891529911677710, +1.94259411417721967182577376894843902, +1.36656001612590069768838649174298764, +1.18096520752757681923158735177362715, +1.53472039862001977547723127115403710, +1.87100144935528085404150214241877565, +1.62572071508244327145479562871691606, +1.86870156450620105565432616205251658, +1.84532553657300496069900642533786346, +1.36121667420664744440000840041600388, +1.97100704121175716763842611782269741, +1.03874382706914726032825674105927884, +1.86186537833249681580507290914212115, +1.79956173466048775232148243804169852, +1.45898465065118789184742718166937455, +1.41585195419655931084168986209047682, +1.59424667016096477769912944745593845, +1.00278241975467634895955854392962421, +1.46944731269954119061989243607139785, +1.97195784893123213362506885242945178, +1.64401584046495818067901226328200901, +1.82546340543928645883806022383268929, +1.73926274882619422421005638621127612, +1.99853905265745319445831722964948750

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.36821238284593228174646508054511868, +1.97330099104422531222215670982799448, +1.92194795115064006989480241286911579, +1.35241376224952919654921143129090205, +1.13229473856762886972906825725209856, +1.96146830751722047951370654005497481, +1.70343214916692912570400593621869159, +1.64268816861608526685363975269584143, +1.58476039787183339930940792864783369, +1.14830878826873470787727183978259580, +1.84080659017197308912875861265989120, +1.47902025360103470477024494936908598, +1.69937558227503170166315861353259623, +1.11000822353638407343304560303383927, +1.66375283672796722240277641604560224, +1.20178485397324777021618921347642050, +1.01704339575339889550895767685075256, +1.07274325540475809006047510506602041, +1.02025587891313861865400832587308655, +1.59859232167263325956071911936925707, +1.28228873072734266306599026558014392, +1.53265529965156517905744694380492117, +1.52499775925541898732581663843598212, +1.14697395549710197602020026043532025, +1.81904457768704823788963775560093900, +1.74665412815550525522500354030996047, +1.26902768092069220534512592549769309, +1.63426126088457743954900927104669811, +1.61316149293662273600079293771550620, +1.03663890736068285490668441250747193, +1.51944086309494793530404193372520005, +1.16753726181429595524776017926737773, +1.82566068472011201169890251372324334, +1.02147725281767836143470718022398124, +1.65374283849465309943879630767143262, +1.31279284869516909303256751075502172, +1.01728998965940648242525524004419462, +1.16793489210360702846040197943141222, +1.39446383927035426487766946709696552, +1.88957377826103378476497208830788049, +1.03676560071021951998515286545033880, +1.05321850811663712901693798333070428, +1.76866245035837692173084254969945280, +1.34442139223726362517387485345342522, +1.01033096857522121532650140523810050, +1.27403134024242064206245247740574162, +1.06302224996232300428564097761804610, +1.72916372180363733155430855421456234, +1.39698571546244258236913603299936728, +1.98633579035627365268647591100895120, +1.28051743217161597124891529911677864, +1.94259411417721967182577376894843825, +1.36656001612590069768838649174298745, +1.18096520752757681923158735177362830, +1.53472039862001977547723127115403748, +1.87100144935528085404150214241877488, +1.62572071508244327145479562871691567, +1.86870156450620105565432616205251561, +1.84532553657300496069900642533786346, +1.36121667420664744440000840041600465, +1.97100704121175716763842611782269606, +1.03874382706914726032825674105927884, +1.86186537833249681580507290914212134, +1.79956173466048775232148243804169833, +1.45898465065118789184742718166937455, +1.41585195419655931084168986209047624, +1.59424667016096477769912944745593942, +1.00278241975467634895955854392962517, +1.46944731269954119061989243607139785, +1.97195784893123213362506885242945120, +1.64401584046495818067901226328200959, +1.82546340543928645883806022383268968, +1.73926274882619422421005638621127535, +1.99853905265745319445831722964948654

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

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, 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

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+95

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

311data

312(+1.50327146, +0.879337132), (+1.10933721, +0.636496544E-1), (+1.10324526, +0.994042754E-1), (+1.73846245, +0.922101140), (+1.91360080, +0.758794844), (+1.77069998, +0.810340881), (+1.71543050, +0.587005734), (+1.86123538, +0.812088430), (+1.86077785, +0.429592729E-1), (+1.45028985, +0.843205869), (+1.32238030, +0.408156574), (+1.07593369, +0.266454816E-1), (+1.43469596, +0.531915605), (+1.31353831, +0.609914243), (+1.61211586, +0.869400203), (+1.08170748, +0.256512344), (+1.21511889, +0.828857720), (+1.49947405, +0.192278564), (+1.52670789, +0.710403621), (+1.73006928, +0.500307322), (+1.21113861, +0.472156823), (+1.79023862, +0.451992929), (+1.19591165, +0.959088624), (+1.15588021, +0.731701314), (+1.11393356, +0.228077173E-2), (+1.22092295, +0.808225214), (+1.06698430, +0.215543389), (+1.98411953, +0.536164343), (+1.73314142, +0.935619593), (+1.79159307, +0.847321808), (+1.28137898, +0.924445808), (+1.60649228, +0.205249190E-1), (+1.71072960, +0.399574041E-1), (+1.43393302, +0.192713916), (+1.14449573, +0.439844370), (+1.28178000, +0.235132217), (+1.22089028, +0.228182852), (+1.78221059, +0.632537663), (+1.96869469, +0.619007945E-1), (+1.44464445, +0.175509572), (+1.35033727, +0.585260391E-1), (+1.09370339, +0.778398395), (+1.94634438, +0.174319446), (+1.91373694, +0.222139060), (+1.95464778, +0.432762504), (+1.48802018, +0.430693507), (+1.52468133, +0.912774980), (+1.52154803, +0.252936482), (+1.31717992, +0.663967073), (+1.42211103, +0.450576663), (+1.42475796, +0.691676617), (+1.54200673, +0.600009203), (+1.81027055, +0.137640178), (+1.17429328, +0.120094061), (+1.49734044, +0.774066865), (+1.08027339, +0.294101655), (+1.29735148, +0.715089798), (+1.46122694, +0.547244549), (+1.73722363, +0.140832841), (+1.81742787, +0.630089343), (+1.52831900, +0.911767483E-1), (+1.95532608, +0.424051642), (+1.76408708, +0.477670074), (+1.39342332, +0.996904373E-1), (+1.46072245, +0.183387995), (+1.36761892, +0.866885602), (+1.38536477, +0.300112128), (+1.23374414, +0.461321414), (+1.44049597, +0.663608313E-1), (+1.49505246, +0.526958287), (+1.92962098, +0.531086326E-1), (+1.19707644, +0.443185687), (+1.89719594, +0.165352702), (+1.97397709, +0.719769835), (+1.76399565, +0.922481835), (+1.17882442, +0.633058727), (+1.87676632, +0.531936586), (+1.87522221, +0.721717358), (+1.27690935, +0.951110899), (+1.67353058, +0.310346484E-1), (+1.74149203, +0.200539231), (+1.89952326, +0.906073451), (+1.36637783, +0.640421987), (+1.70938778, +0.507507265), (+1.65693283, +0.670253277), (+1.12735415, +0.687215090), (+1.25363564, +0.163290083), (+1.65253615, +0.674109817), (+1.36387706, +0.373477638), (+1.27615440, +0.886364579E-1), (+1.99876714, +0.916846395E-1), (+1.61708522, +0.682688892), (+1.28236532, +0.747197628), (+1.71755230, +0.813154936), (+1.74096859, +0.229923844)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.50327218, +0.879337370), (+1.10933650, +0.636494681E-1), (+1.10324466, +0.994040295E-1), (+1.73846221, +0.922100961), (+1.91360021, +0.758794725), (+1.77069962, +0.810340703), (+1.71543062, +0.587005675), (+1.86123526, +0.812088370), (+1.86077762, +0.429592356E-1), (+1.45028996, +0.843206048), (+1.32238042, +0.408156753), (+1.07593322, +0.266454909E-1), (+1.43469548, +0.531915605), (+1.31353819, +0.609914303), (+1.61211574, +0.869400144), (+1.08170712, +0.256512195), (+1.21511865, +0.828857601), (+1.49947369, +0.192278236), (+1.52670717, +0.710403323), (+1.73006999, +0.500307620), (+1.21113861, +0.472156793), (+1.79023826, +0.451992810), (+1.19591177, +0.959088683), (+1.15588009, +0.731701434), (+1.11393344, +0.228071469E-2), (+1.22092319, +0.808225334), (+1.06698418, +0.215543568), (+1.98411953, +0.536164165), (+1.73314214, +0.935619831), (+1.79159355, +0.847322106), (+1.28137922, +0.924445748), (+1.60649228, +0.205247682E-1), (+1.71072984, +0.399573296E-1), (+1.43393302, +0.192713737), (+1.14449549, +0.439844221), (+1.28178000, +0.235132173), (+1.22088993, +0.228182912), (+1.78221023, +0.632537484), (+1.96869528, +0.619008690E-1), (+1.44464433, +0.175509527), (+1.35033739, +0.585258827E-1), (+1.09370327, +0.778398573), (+1.94634402, +0.174319386), (+1.91373682, +0.222139001), (+1.95464790, +0.432762563), (+1.48802066, +0.430693626), (+1.52468169, +0.912775159), (+1.52154863, +0.252936602), (+1.31718028, +0.663967073), (+1.42211127, +0.450576723), (+1.42475832, +0.691676676), (+1.54200709, +0.600009322), (+1.81027102, +0.137639940), (+1.17429304, +0.120094106), (+1.49734032, +0.774066687), (+1.08027327, +0.294101715), (+1.29735100, +0.715089858), (+1.46122766, +0.547244668), (+1.73722351, +0.140832707), (+1.81742775, +0.630089343), (+1.52831912, +0.911767706E-1), (+1.95532572, +0.424051613), (+1.76408696, +0.477670014), (+1.39342320, +0.996904299E-1), (+1.46072268, +0.183388010), (+1.36761916, +0.866885722), (+1.38536513, +0.300112218), (+1.23374498, +0.461321324), (+1.44049597, +0.663608089E-1), (+1.49505234, +0.526958168), (+1.92962110, +0.531086586E-1), (+1.19707644, +0.443185776), (+1.89719546, +0.165352434), (+1.97397721, +0.719769657), (+1.76399541, +0.922481954), (+1.17882419, +0.633058727), (+1.87676716, +0.531937003), (+1.87522221, +0.721717119), (+1.27690911, +0.951110959), (+1.67353046, +0.310347639E-1), (+1.74149191, +0.200538918), (+1.89952326, +0.906073332), (+1.36637783, +0.640421987), (+1.70938766, +0.507507324), (+1.65693319, +0.670253396), (+1.12735462, +0.687215388), (+1.25363588, +0.163290218), (+1.65253639, +0.674109817), (+1.36387706, +0.373477668), (+1.27615440, +0.886364654E-1), (+1.99876690, +0.916846097E-1), (+1.61708522, +0.682688773), (+1.28236556, +0.747197688), (+1.71755183, +0.813154697), (+1.74096799, +0.229923636)

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

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+50

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

328data

329(+1.2218762943610586, +0.75208877720591960), (+1.7354696700180026, +0.66113919249364117), (+1.2822130670328999, +0.40455570328219048), (+1.5389236163781832, +0.80950422782977605), (+1.8548558114995515, +0.51901413849231115), (+1.2301419341055135, +0.71305660460513320), (+1.7944595560496004, +0.59100873745691362), (+1.6079295003951126, +0.23189412841281842), (+1.6064106452323195, +0.43978910388330805), (+1.8739731209624684, +0.25050437210136856), (+1.0786077877422053, +0.66680204161770962), (+1.9359283784363959, +0.16898794426766395), (+1.0635151525977813, +0.34962550065512887), (+1.6483471990927061, +0.27048014346178262), (+1.4105471232114910, +0.89955434193921924), (+1.9427659288539907, +0.82723885708082145), (+1.9309534499879422, +0.48492284415077846), (+1.1434743667382574, +0.82836080211042262), (+1.0835270917153839, +0.56822294411261720), (+1.8641376607802349, +0.78667421753201194), (+1.6240676749431395, +0.93011012450736719), (+1.6783865132074629, +0.36212590613554052), (+1.7971544512576729, +0.87082322006550172), (+1.5666281871084995, +0.16611697425109850), (+1.9913709260949473, +0.41442315398740970), (+1.2522911093629563, +0.60639402390290598), (+1.2518513485758600, +0.11716781076791860), (+1.9105811402447315, +0.75714608788519566), (+1.0290476199637246, +0.60994106914478052), (+1.0890021988383380, +0.69762576289160694), (+1.9725601339144390, +0.53367280000919670), (+1.2477249961210743, +0.23080050980531652), (+1.7022187727105123, +0.85585726770576531), (+1.3424493397405688, +0.53326378681996733), (+1.3806903869594271, +0.48124698370527375), (+1.3443166963761506, +0.31216269794332674E-1), (+1.8687480198976680, +0.64177400721781974), (+1.5127819282455872, +0.70241475541460074), (+1.3697638012519007, +0.13716116378154086), (+1.4727063815675876, +0.98697089527654280), (+1.9400972243703865, +0.65014561196736742), (+1.2892341031621370, +0.10271772207895136), (+1.8331056112387136, +0.18786311308346393), (+1.2800846458620223, +0.80465384093725101), (+1.7603887913422065, +0.30670139061721691), (+1.2556054731451933, +0.79771555561345764), (+1.4409697900136860, +0.18518704381224127), (+1.9799470096607206, +0.44309541934802021), (+1.5061789035705937, +0.97870890437987468E-1), (+1.5490120508838130, +0.71757749686793060)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.2218762943610590, +0.75208877720592004), (+1.7354696700180032, +0.66113919249364128), (+1.2822130670329006, +0.40455570328219054), (+1.5389236163781832, +0.80950422782977594), (+1.8548558114995515, +0.51901413849231115), (+1.2301419341055135, +0.71305660460513343), (+1.7944595560496006, +0.59100873745691385), (+1.6079295003951124, +0.23189412841281820), (+1.6064106452323197, +0.43978910388330805), (+1.8739731209624679, +0.25050437210136861), (+1.0786077877422056, +0.66680204161770973), (+1.9359283784363959, +0.16898794426766403), (+1.0635151525977815, +0.34962550065512887), (+1.6483471990927061, +0.27048014346178251), (+1.4105471232114912, +0.89955434193921935), (+1.9427659288539909, +0.82723885708082168), (+1.9309534499879419, +0.48492284415077863), (+1.1434743667382572, +0.82836080211042251), (+1.0835270917153839, +0.56822294411261709), (+1.8641376607802347, +0.78667421753201194), (+1.6240676749431395, +0.93011012450736730), (+1.6783865132074633, +0.36212590613554063), (+1.7971544512576731, +0.87082322006550161), (+1.5666281871084997, +0.16611697425109842), (+1.9913709260949475, +0.41442315398740975), (+1.2522911093629565, +0.60639402390290631), (+1.2518513485758604, +0.11716781076791882), (+1.9105811402447319, +0.75714608788519566), (+1.0290476199637248, +0.60994106914478063), (+1.0890021988383378, +0.69762576289160683), (+1.9725601339144390, +0.53367280000919670), (+1.2477249961210746, +0.23080050980531661), (+1.7022187727105127, +0.85585726770576520), (+1.3424493397405686, +0.53326378681996733), (+1.3806903869594271, +0.48124698370527397), (+1.3443166963761508, +0.31216269794332875E-1), (+1.8687480198976680, +0.64177400721781996), (+1.5127819282455874, +0.70241475541460063), (+1.3697638012519009, +0.13716116378154078), (+1.4727063815675874, +0.98697089527654269), (+1.9400972243703865, +0.65014561196736764), (+1.2892341031621373, +0.10271772207895144), (+1.8331056112387136, +0.18786311308346371), (+1.2800846458620223, +0.80465384093725068), (+1.7603887913422063, +0.30670139061721702), (+1.2556054731451931, +0.79771555561345775), (+1.4409697900136860, +0.18518704381224135), (+1.9799470096607206, +0.44309541934802016), (+1.5061789035705937, +0.97870890437987579E-1), (+1.5490120508838130, +0.71757749686793049)

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

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

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

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+5

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

345data

346(+1.63183223471583983197012243634694080, +0.593836674680184446018896999312488963), (+1.37683678151662104981148643189915126, +0.117722725877708090867655316505366246), (+1.55784747656229365692182171595564038, +0.422214155781078946833059966277296827), (+1.89042224184569087175326259318967868, +0.784957047665854207210970233273530739), (+1.32879873339645720374398144977313317, +0.695292024375565002209482025583912064)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.63183223471583983197012243634694099, +0.593836674680184446018896999312489059), (+1.37683678151662104981148643189915126, +0.117722725877708090867655316505366210), (+1.55784747656229365692182171595564038, +0.422214155781078946833059966277296923), (+1.89042224184569087175326259318967868, +0.784957047665854207210970233273530739), (+1.32879873339645720374398144977313317, +0.695292024375565002209482025583912064)

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

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+11

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

362data

363+1.94122458, +1.09501743, +1.69615614, +1.70245433, +1.20344710, +1.98126173, +1.34100819, +1.97632468, +1.40458500, +1.51309633, +1.69398022

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.94122446, +1.09501743, +1.69615614, +1.70245433, +1.20344698, +1.98126209, +1.34100878, +1.97632468, +1.40458512, +1.51309609, +1.69398034

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

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

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

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+7

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

379data

380+1.3965496324409803, +1.8366343394506175, +1.4469778733373169, +1.7414541318929357, +1.2237626165388655, +1.0528678910492162, +1.4572520926078067

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.3965496324409805, +1.8366343394506177, +1.4469778733373171, +1.7414541318929355, +1.2237626165388649, +1.0528678910492166, +1.4572520926078067

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

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

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

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+23

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

396data

397+1.35075155730748369032404034804949604, +1.92250363053557634665128271887642866, +1.59494807209623445358720220939868904, +1.44323189414256568131214064737383754, +1.03616758456552559526085431474362083, +1.84604088469113893848612732396787258, +1.57429257504849250539158585088683024, +1.39983569517196694923893568656249968, +1.25930230710006826985785462498554998, +1.85862369024125156038509621179156654, +1.95292531648874680012672647401818476, +1.56501013579980209107508332765592276, +1.48370686925709504846237572284993046, +1.68979004121738195632368684384950128, +1.79524313522212833654454245627593451, +1.12841958124480134282847154779121409, +1.30420258871065803803572067538473491, +1.87031343068748166528239973277591532, +1.87877760799023570287850021630578107, +1.95252065476854543564786107390486843, +1.68746243369775208758540440037625923, +1.51914505446328968621725635370455980, +1.95741251267300360121908087745107042

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.35075155730748369032404034804949623, +1.92250363053557634665128271887642904, +1.59494807209623445358720220939868942, +1.44323189414256568131214064737383754, +1.03616758456552559526085431474362199, +1.84604088469113893848612732396787220, +1.57429257504849250539158585088683120, +1.39983569517196694923893568656250006, +1.25930230710006826985785462498555094, +1.85862369024125156038509621179156674, +1.95292531648874680012672647401818496, +1.56501013579980209107508332765592122, +1.48370686925709504846237572284992911, +1.68979004121738195632368684384950205, +1.79524313522212833654454245627593451, +1.12841958124480134282847154779121505, +1.30420258871065803803572067538473549, +1.87031343068748166528239973277591609, +1.87877760799023570287850021630578107, +1.95252065476854543564786107390486939, +1.68746243369775208758540440037625942, +1.51914505446328968621725635370456038, +1.95741251267300360121908087745107062

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

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+63

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

413data

414(+1.72567797, +0.917349637), (+1.32812333, +0.501030684), (+1.41328466, +0.251556039), (+1.42416477, +0.598306477), (+1.30886078, +0.996304214), (+1.80965185, +0.622253358), (+1.61091852, +0.575086117), (+1.51339805, +0.570091069), (+1.21896148, +0.903520584E-1), (+1.74346113, +0.554164052E-1), (+1.08737314, +0.304261625), (+1.19310451, +0.484320283), (+1.39454937, +0.470037878), (+1.47441339, +0.608336866), (+1.93221176, +0.852839768), (+1.21080279, +0.791298389), (+1.45626378, +0.930225253E-1), (+1.43129396, +0.226666152), (+1.55614352, +0.448109210), (+1.10888791, +0.803837121), (+1.84812379, +0.969648123), (+1.16338253, +0.721329033), (+1.04747164, +0.899553299), (+1.98966455, +0.381769717), (+1.59223056, +0.431914449), (+1.12438142, +0.660185635), (+1.96608973, +0.368269742), (+1.05310655, +0.936738610), (+1.76775622, +0.587489724), (+1.69098055, +0.488514304E-1), (+1.28945088, +0.720794797), (+1.21442842, +0.195473373), (+1.28744507, +0.896441817), (+1.43554235, +0.927767754E-1), (+1.03790021, +0.442252636), (+1.73987329, +0.951615512), (+1.63198471, +0.689431965), (+1.45389724, +0.738482714), (+1.54974580, +0.950208247), (+1.95000052, +0.871955693), (+1.43045187, +0.294405043), (+1.23903704, +0.553728878), (+1.43920016, +0.528050005), (+1.28525186, +0.683780968), (+1.08579016, +0.517413616), (+1.13339865, +0.811130881), (+1.58327067, +0.238564491), (+1.19132900, +0.938325167), (+1.30047154, +0.766853034), (+1.71395493, +0.256606817), (+1.06427932, +0.158040643), (+1.36070359, +0.971828580), (+1.31202400, +0.174534142), (+1.57206702, +0.221046746), (+1.07966590, +0.721543491), (+1.00315595, +0.577680111), (+1.32200170, +0.279090047), (+1.36627460, +0.411420345), (+1.38101363, +0.724108577), (+1.87941003, +0.107870162), (+1.08064795, +0.479591250), (+1.91704750, +0.492276967), (+1.79471779, +0.712959170E-1)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.72567761, +0.917349696), (+1.32812309, +0.501030803), (+1.41328502, +0.251556039), (+1.42416489, +0.598306477), (+1.30886090, +0.996304274), (+1.80965197, +0.622253418), (+1.61091852, +0.575086176), (+1.51339757, +0.570091128), (+1.21896136, +0.903521851E-1), (+1.74346113, +0.554164127E-1), (+1.08737326, +0.304261565), (+1.19310462, +0.484320343), (+1.39454949, +0.470037907), (+1.47441328, +0.608336926), (+1.93221164, +0.852839708), (+1.21080291, +0.791298568), (+1.45626378, +0.930225179E-1), (+1.43129396, +0.226666242), (+1.55614352, +0.448109210), (+1.10888791, +0.803837240), (+1.84812391, +0.969648182), (+1.16338217, +0.721329153), (+1.04747164, +0.899553418), (+1.98966479, +0.381769657), (+1.59223068, +0.431914359), (+1.12438142, +0.660185754), (+1.96608973, +0.368269652), (+1.05310643, +0.936738670), (+1.76775587, +0.587489665), (+1.69098067, +0.488514081E-1), (+1.28945100, +0.720794797), (+1.21442831, +0.195473343), (+1.28744519, +0.896441817), (+1.43554223, +0.927767754E-1), (+1.03790009, +0.442252725), (+1.73987317, +0.951615453), (+1.63198471, +0.689431965), (+1.45389736, +0.738482714), (+1.54974580, +0.950208306), (+1.95000052, +0.871955752), (+1.43045187, +0.294405103), (+1.23903728, +0.553728878), (+1.43919969, +0.528050065), (+1.28525186, +0.683780968), (+1.08579016, +0.517413616), (+1.13339841, +0.811131001), (+1.58327079, +0.238564461), (+1.19132888, +0.938325047), (+1.30047154, +0.766853154), (+1.71395469, +0.256606758), (+1.06427956, +0.158040792), (+1.36070371, +0.971828699), (+1.31202412, +0.174534112), (+1.57206714, +0.221046731), (+1.07966590, +0.721543491), (+1.00315595, +0.577680230), (+1.32200170, +0.279089987), (+1.36627471, +0.411420375), (+1.38101375, +0.724108636), (+1.87941039, +0.107870080), (+1.08064783, +0.479591370), (+1.91704750, +0.492277056), (+1.79471791, +0.712959394E-1)

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

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

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

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+94

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

430data

431(+1.5755365346903289, +0.43145314327206252), (+1.4695205940399823, +0.86303980570309968), (+1.6286171143705976, +0.11697624483315250), (+1.5835987482416727, +0.76009634155060823), (+1.2098922395081968, +0.94098828625929187), (+1.1315286138268548, +0.18728926298999637), (+1.3705397912513546, +0.93726474168811313), (+1.1890610362374889, +0.30496020985856531), (+1.0995986822736774, +0.23657832039414861), (+1.2958465152866645, +0.53728628657237953), (+1.1556284113743742, +0.94973980922332668E-1), (+1.1241235434406665, +0.71373494101452373), (+1.2833934287074880, +0.33124233873642595), (+1.6466955153440490, +0.11002761808038219), (+1.9921330263152182, +0.99115542099930420), (+1.0494571415429124, +0.74416294447858489), (+1.5285063078986296, +0.63023817633031942), (+1.7389740675237926, +0.76648011264306215), (+1.2824034229161383, +0.80364764738867711), (+1.9460437685306675, +0.86998503736863575E-1), (+1.1788060175725703, +0.12322838528349744), (+1.3004755670022634, +0.73417551675024284), (+1.6452817878417507, +0.88964305339806182), (+1.9555267614168010, +0.20070000166843172), (+1.3819374025849964, +0.16306711274936581), (+1.9132542932788392, +0.66048680326914566), (+1.6639499495729559, +0.57418504936226833), (+1.7515403797154863, +0.56544711559690575), (+1.9472184927189125, +0.32056837781794134), (+1.4594967235722329, +0.37804335597053651E-2), (+1.4594054192167798, +0.86760217463234957), (+1.4281344217654806, +0.38743123924599321), (+1.7341702644535277, +0.70124452723911745), (+1.1726788703539603, +0.28601738601567861), (+1.0320159664362620, +0.34149754173755531), (+1.4569599493834811, +0.61172908928055592), (+1.2156314558226085, +0.25813089229912523), (+1.4398658688859052, +0.84716304018079325), (+1.7340125075042898, +0.87472620224239417), (+1.5736059866719267, +0.43665365612505669E-1), (+1.2962808112250590, +0.86932767841364611E-1), (+1.4243849906171784, +0.45347946822254170), (+1.3748103694233502, +0.19483001694248736), (+1.9179365612756207, +0.27019835099747758), (+1.6989209286205420, +0.86808814719104066E-1), (+1.6330269352588944, +0.90016807001808097), (+1.3446611967722544, +0.73212049631544751), (+1.5191591127404487, +0.97716910365714393E-1), (+1.7722942596931284, +0.88328880929371301), (+1.0606549787077806, +0.21735874007331402), (+1.8749370916656061, +0.23799520932793694), (+1.7735488270168107, +0.66149505621586624), (+1.6473558411821190, +0.94941509778902033), (+1.5880437609650215, +0.48981980279331661), (+1.9408098194019026, +0.68906934415775334), (+1.6224485964189248, +0.90707876504231888), (+1.7527129192901896, +0.94505243836133679), (+1.9237255833990066, +0.96652276172550577), (+1.6752025357364406, +0.22268193457765439), (+1.9695229960855312, +0.27270992233110392), (+1.8660126366925307, +0.52349240662720165), (+1.2202436583473923, +0.18141188129683083), (+1.6958309384838743, +0.59258812528426263), (+1.3096830007646227, +0.88767212863115441), (+1.5035885861219116, +0.25654613705025286), (+1.8625355405612405, +0.60123669979372707), (+1.2623560568980570, +0.22258957207962826), (+1.1329633207026659, +0.50644204977155716), (+1.4863326915558439, +0.80419145506660372), (+1.2260533516128969, +0.84618495345121825), (+1.3249064426838233, +0.79395636087659982E-1), (+1.4861601059105023, +0.88248156704596037), (+1.3171770797692746, +0.34873570931990183), (+1.9114617789034647, +0.91477006227989477), (+1.8186500434084625, +0.73860443626171624), (+1.0789244451756426, +0.52238341733916249), (+1.6591123159682684, +0.96920619608306502), (+1.6907355248351590, +0.25879996724770715), (+1.8870022914066604, +0.94025509583776834), (+1.0991739827290239, +0.18264293570422430), (+1.6849209092787882, +0.96083651462840547), (+1.1219204996371896, +0.47962637568997279), (+1.4633497203849781, +0.17131489926095900), (+1.7154085950897000, +0.39846630027426821), (+1.2701099130106130, +0.59930131315929935), (+1.5183564739879691, +0.92851641150825448E-1), (+1.9272326987277317, +0.76622846531600886), (+1.9090611888955458, +0.15161534711656099), (+1.9403384601109739, +0.54376802932392554), (+1.3111623638534233, +0.26919749911182489), (+1.8722333160974376, +0.59721949736104452), (+1.9364210662066004, +0.87081255107405608E-1), (+1.9989126993938755, +0.68522300458059215), (+1.5925110968714216, +0.61468827694480199)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.5755365346903281, +0.43145314327206191), (+1.4695205940399827, +0.86303980570309946), (+1.6286171143705985, +0.11697624483315254), (+1.5835987482416722, +0.76009634155060823), (+1.2098922395081961, +0.94098828625929187), (+1.1315286138268543, +0.18728926298999643), (+1.3705397912513546, +0.93726474168811302), (+1.1890610362374892, +0.30496020985856548), (+1.0995986822736770, +0.23657832039414864), (+1.2958465152866647, +0.53728628657237976), (+1.1556284113743736, +0.94973980922332474E-1), (+1.1241235434406667, +0.71373494101452373), (+1.2833934287074875, +0.33124233873642595), (+1.6466955153440488, +0.11002761808038213), (+1.9921330263152184, +0.99115542099930443), (+1.0494571415429124, +0.74416294447858511), (+1.5285063078986301, +0.63023817633031975), (+1.7389740675237932, +0.76648011264306204), (+1.2824034229161381, +0.80364764738867700), (+1.9460437685306677, +0.86998503736863672E-1), (+1.1788060175725705, +0.12322838528349764), (+1.3004755670022636, +0.73417551675024273), (+1.6452817878417507, +0.88964305339806149), (+1.9555267614168013, +0.20070000166843174), (+1.3819374025849962, +0.16306711274936583), (+1.9132542932788390, +0.66048680326914566), (+1.6639499495729559, +0.57418504936226844), (+1.7515403797154865, +0.56544711559690553), (+1.9472184927189125, +0.32056837781794140), (+1.4594967235722327, +0.37804335597053460E-2), (+1.4594054192167798, +0.86760217463234945), (+1.4281344217654806, +0.38743123924599321), (+1.7341702644535273, +0.70124452723911723), (+1.1726788703539595, +0.28601738601567867), (+1.0320159664362620, +0.34149754173755531), (+1.4569599493834811, +0.61172908928055614), (+1.2156314558226080, +0.25813089229912495), (+1.4398658688859056, +0.84716304018079314), (+1.7340125075042894, +0.87472620224239395), (+1.5736059866719265, +0.43665365612505766E-1), (+1.2962808112250590, +0.86932767841364500E-1), (+1.4243849906171786, +0.45347946822254137), (+1.3748103694233502, +0.19483001694248750), (+1.9179365612756210, +0.27019835099747758), (+1.6989209286205424, +0.86808814719104024E-1), (+1.6330269352588962, +0.90016807001808075), (+1.3446611967722548, +0.73212049631544740), (+1.5191591127404469, +0.97716910365714046E-1), (+1.7722942596931288, +0.88328880929371301), (+1.0606549787077804, +0.21735874007331418), (+1.8749370916656067, +0.23799520932793711), (+1.7735488270168120, +0.66149505621586624), (+1.6473558411821194, +0.94941509778902033), (+1.5880437609650211, +0.48981980279331694), (+1.9408098194019023, +0.68906934415775356), (+1.6224485964189252, +0.90707876504231877), (+1.7527129192901896, +0.94505243836133668), (+1.9237255833990057, +0.96652276172550511), (+1.6752025357364402, +0.22268193457765426), (+1.9695229960855318, +0.27270992233110375), (+1.8660126366925303, +0.52349240662720176), (+1.2202436583473921, +0.18141188129683103), (+1.6958309384838741, +0.59258812528426252), (+1.3096830007646219, +0.88767212863115463), (+1.5035885861219116, +0.25654613705025298), (+1.8625355405612407, +0.60123669979372740), (+1.2623560568980567, +0.22258957207962821), (+1.1329633207026659, +0.50644204977155738), (+1.4863326915558439, +0.80419145506660383), (+1.2260533516128971, +0.84618495345121780), (+1.3249064426838233, +0.79395636087659940E-1), (+1.4861601059105023, +0.88248156704596059), (+1.3171770797692746, +0.34873570931990200), (+1.9114617789034649, +0.91477006227989477), (+1.8186500434084629, +0.73860443626171635), (+1.0789244451756428, +0.52238341733916238), (+1.6591123159682677, +0.96920619608306480), (+1.6907355248351590, +0.25879996724770715), (+1.8870022914066611, +0.94025509583776867), (+1.0991739827290246, +0.18264293570422441), (+1.6849209092787885, +0.96083651462840536), (+1.1219204996371896, +0.47962637568997279), (+1.4633497203849777, +0.17131489926095891), (+1.7154085950897000, +0.39846630027426816), (+1.2701099130106126, +0.59930131315929958), (+1.5183564739879694, +0.92851641150825351E-1), (+1.9272326987277320, +0.76622846531600886), (+1.9090611888955455, +0.15161534711656113), (+1.9403384601109741, +0.54376802932392532), (+1.3111623638534231, +0.26919749911182500), (+1.8722333160974369, +0.59721949736104485), (+1.9364210662066002, +0.87081255107405331E-1), (+1.9989126993938759, +0.68522300458059204), (+1.5925110968714213, +0.61468827694480210)

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

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

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

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+20

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

447data

448(+1.48324138353104550137059624990115021, +0.150335017608106666127589094382460383E-1), (+1.29531951217976138404320560264916318, +0.451468779492694744540056889613277463), (+1.89481198492862732713799307777046450, +0.304032841219326995430892681651172950), (+1.81599927876528278616482074262122136, +0.368112690281410265422725355694053352), (+1.30450930265785603193468783048415427, +0.471869572141799732246643896207620455), (+1.59935373585868834485572659960670310, +0.404556038315554450226051153616429235), (+1.68233562832904142191633158279136434, +0.720763646523504173037101889498284917), (+1.69868082684989807275260398912045852, +0.383589498742555030331148967590346212), (+1.93952480750904343854989013377322111, +0.888164325446832505802125191940034065), (+1.73391514293217697369608055937806202, +0.233950228392771497976299979932322337), (+1.42664370411674021163055521166365113, +0.487909118872733416395864524312467946), (+1.88946292318120326384123000706590209, +0.868514814616910051251636755421575170), (+1.58562485460349699442977700395373726, +0.310438598075782335573855414305827928), (+1.57074806279595969989420782221219092, +0.677333561365247764048900069674367803), (+1.32344513504319129718765491237403269, +0.474177830992908027255606925232582902), (+1.75879291040729004209453027000790980, +0.153305080815585085326160881708916964), (+1.33001389097035180244589452277455609, +0.420568401250518180746769684954880920), (+1.54583501460595366504811530620524318, +0.638571846066688165861589476098174249), (+1.73458496503143122233031154777739983, +0.451411956624382230850853806743794514), (+1.86289109741329886969912243176300879, +0.830935949710040983233017699573464534)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.48324138353104550137059624990115021, +0.150335017608106666127589094382459420E-1), (+1.29531951217976138404320560264916356, +0.451468779492694744540056889613277511), (+1.89481198492862732713799307777046469, +0.304032841219326995430892681651172902), (+1.81599927876528278616482074262122194, +0.368112690281410265422725355694053255), (+1.30450930265785603193468783048415465, +0.471869572141799732246643896207620503), (+1.59935373585868834485572659960670329, +0.404556038315554450226051153616429235), (+1.68233562832904142191633158279136492, +0.720763646523504173037101889498284917), (+1.69868082684989807275260398912045891, +0.383589498742555030331148967590346212), (+1.93952480750904343854989013377322131, +0.888164325446832505802125191940033969), (+1.73391514293217697369608055937806260, +0.233950228392771497976299979932322505), (+1.42664370411674021163055521166365113, +0.487909118872733416395864524312467946), (+1.88946292318120326384123000706590248, +0.868514814616910051251636755421575267), (+1.58562485460349699442977700395373745, +0.310438598075782335573855414305827880), (+1.57074806279595969989420782221219150, +0.677333561365247764048900069674367899), (+1.32344513504319129718765491237403307, +0.474177830992908027255606925232582950), (+1.75879291040729004209453027000791038, +0.153305080815585085326160881708916964), (+1.33001389097035180244589452277455647, +0.420568401250518180746769684954880920), (+1.54583501460595366504811530620524357, +0.638571846066688165861589476098174442), (+1.73458496503143122233031154777740021, +0.451411956624382230850853806743794514), (+1.86289109741329886969912243176300937, +0.830935949710040983233017699573464726)

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

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

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

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+8

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

464data

465+1.04123473, +1.02090061, +1.00609386, +1.28813565, +1.59914494, +1.43477345, +1.94451284, +1.07482886

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.04123461, +1.02090073, +1.00609398, +1.28813565, +1.59914482, +1.43477345, +1.94451284, +1.07482898

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

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

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

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+66

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

481data

482+1.9174454968257906, +1.7108566968504175, +1.8557383263658767, +1.2289857063074416, +1.4240522615399027, +1.9691338630430930, +1.3205806603317440, +1.3476355253963921, +1.6123880685284719, +1.1539772454210913, +1.4081828113506454, +1.6947389326846136, +1.5366567930762578, +1.6692968741485945, +1.8123940201343105, +1.0113369945711681, +1.6562379959526510, +1.7225934447900588, +1.6658479976576221, +1.7845177696170254, +1.6538416170928381, +1.3455986990020099, +1.2177588219170525, +1.6629372914626894, +1.7746831041576088, +1.4323144736506865, +1.2228730017294238, +1.7066320307168026, +1.1611345927070542, +1.1045633254268123, +1.1971102567264515, +1.7542693287232067, +1.9068642236260585, +1.5841477575808298, +1.2269524249058490, +1.6281995177994091, +1.8239008143129649, +1.7467082395714999, +1.3568647222624088, +1.1766873390790185, +1.0176450429017576, +1.2583620427762341, +1.2091347982560623, +1.2684168077686895, +1.8818624450631702, +1.0818087769090510, +1.9178237260115525, +1.2211151733346239, +1.4324456460181632, +1.3323871836418457, +1.5072433441109236, +1.1849136357671486, +1.6269575172318866, +1.8690373377744918, +1.3339554446114472, +1.3159403797207259, +1.2297775173567262, +1.8409957160423309, +1.9051960350467383, +1.6103525665236949, +1.7821589301750596, +1.2646591612311133, +1.2409997265939863, +1.5937444416193678, +1.1856745289670525, +1.3286357592806206

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.9174454968257912, +1.7108566968504184, +1.8557383263658771, +1.2289857063074423, +1.4240522615399029, +1.9691338630430939, +1.3205806603317443, +1.3476355253963925, +1.6123880685284719, +1.1539772454210915, +1.4081828113506454, +1.6947389326846136, +1.5366567930762587, +1.6692968741485952, +1.8123940201343109, +1.0113369945711690, +1.6562379959526508, +1.7225934447900595, +1.6658479976576219, +1.7845177696170254, +1.6538416170928378, +1.3455986990020101, +1.2177588219170525, +1.6629372914626894, +1.7746831041576090, +1.4323144736506879, +1.2228730017294243, +1.7066320307168028, +1.1611345927070544, +1.1045633254268137, +1.1971102567264513, +1.7542693287232061, +1.9068642236260578, +1.5841477575808296, +1.2269524249058485, +1.6281995177994086, +1.8239008143129642, +1.7467082395714992, +1.3568647222624086, +1.1766873390790182, +1.0176450429017574, +1.2583620427762336, +1.2091347982560632, +1.2684168077686906, +1.8818624450631702, +1.0818087769090516, +1.9178237260115520, +1.2211151733346250, +1.4324456460181634, +1.3323871836418459, +1.5072433441109232, +1.1849136357671488, +1.6269575172318864, +1.8690373377744915, +1.3339554446114479, +1.3159403797207265, +1.2297775173567267, +1.8409957160423316, +1.9051960350467381, +1.6103525665236955, +1.7821589301750598, +1.2646591612311138, +1.2409997265939861, +1.5937444416193680, +1.1856745289670523, +1.3286357592806206

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

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

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

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+55

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

498data

499+1.15655563613890940071343267765561602, +1.82607451106855095784580612119213845, +1.06217337108861614772686070959120531, +1.65766180493928483011606580460269365, +1.40137713729909014177266416654772987, +1.65703123799749747108915967895883477, +1.86969526584458878307133492779987090, +1.38272846553840057308642710559776993, +1.37641072351433619099313299358857188, +1.66091334862401811181402770528988630, +1.96607373486868728852258219505701515, +1.54107679756344708108305233202560176, +1.79421836114636032487996382334999940, +1.38670245668099422107585862869028401, +1.45872431596448493761203257193127418, +1.20237507715804243588248677350341672, +1.91422579158286242213491699101455508, +1.53758127360348359976343721831710212, +1.87656434308091222272301274471270930, +1.32402847445703360423907598879394393, +1.15378081341355671210011444439643200, +1.41408221441564958903875805757192117, +1.28470469645642626791128002188145225, +1.49699439063562898320707737322029544, +1.67302026583220811012926350325104209, +1.90247404967756668737010656601554919, +1.33431729114836603366736246752643974, +1.11047478706412629293037473552758196, +1.02192793094499861265314919057461062, +1.79191347782157850351653261358593529, +1.83890623687799251850292918208563354, +1.05412602365563640051428004760927624, +1.01694893739923755791692765231107906, +1.16837884786426774943419973042234396, +1.39015594568393588068603850708855712, +1.46018452488799565963414554943433552, +1.44600465715828618775801903171197744, +1.09794530829993214980403426533344814, +1.25109103256954409164382237890062740, +1.58406954475471674047509094996202502, +1.06578450480341744576368890155355268, +1.26660674914517078191089642893253406, +1.57603306277983421093006872792811849, +1.64372438859512805949094379096838449, +1.35546309827348610101960421702309862, +1.12947753792602304781241778146224455, +1.03698691483667560265714671606935557, +1.03776430962840544602781436261268439, +1.00470373487690893169175495741563934, +1.66008598151105073706389861565118641, +1.08700330796202529827192117612107800, +1.47856047787502707094669297855067220, +1.83063914608113785452610259076042658, +1.81403640702374120075006027662203761, +1.50691379540549779604288477690127358

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.15655563613890940071343267765561660, +1.82607451106855095784580612119213864, +1.06217337108861614772686070959120608, +1.65766180493928483011606580460269403, +1.40137713729909014177266416654773026, +1.65703123799749747108915967895883458, +1.86969526584458878307133492779987090, +1.38272846553840057308642710559777013, +1.37641072351433619099313299358857188, +1.66091334862401811181402770528988630, +1.96607373486868728852258219505701592, +1.54107679756344708108305233202560195, +1.79421836114636032487996382334999997, +1.38670245668099422107585862869028478, +1.45872431596448493761203257193127456, +1.20237507715804243588248677350341615, +1.91422579158286242213491699101455528, +1.53758127360348359976343721831710270, +1.87656434308091222272301274471270911, +1.32402847445703360423907598879394393, +1.15378081341355671210011444439643277, +1.41408221441564958903875805757192213, +1.28470469645642626791128002188145264, +1.49699439063562898320707737322029621, +1.67302026583220811012926350325104247, +1.90247404967756668737010656601554823, +1.33431729114836603366736246752644013, +1.11047478706412629293037473552758157, +1.02192793094499861265314919057460985, +1.79191347782157850351653261358593529, +1.83890623687799251850292918208563258, +1.05412602365563640051428004760927624, +1.01694893739923755791692765231107887, +1.16837884786426774943419973042234319, +1.39015594568393588068603850708855674, +1.46018452488799565963414554943433629, +1.44600465715828618775801903171197840, +1.09794530829993214980403426533344852, +1.25109103256954409164382237890062798, +1.58406954475471674047509094996202559, +1.06578450480341744576368890155355229, +1.26660674914517078191089642893253425, +1.57603306277983421093006872792811888, +1.64372438859512805949094379096838449, +1.35546309827348610101960421702309862, +1.12947753792602304781241778146224513, +1.03698691483667560265714671606935614, +1.03776430962840544602781436261268496, +1.00470373487690893169175495741563992, +1.66008598151105073706389861565118719, +1.08700330796202529827192117612107742, +1.47856047787502707094669297855067239, +1.83063914608113785452610259076042697, +1.81403640702374120075006027662203781, +1.50691379540549779604288477690127358

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

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

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

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

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

Copyright: Computational Data Science Lab

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

Definition at line 1567 of file pm_fftpack.F90.

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

src/fortran/main/pm_fftpack.F90