Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief This file contains the implementations of the tests of module [pm_distanceEuclid](@ref pm_distanceEuclid).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, March 22, 2012, 2:21 PM, National Institute for Fusion Studies, The University of Texas at Austin
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : submodule (test_pm_distanceEuclid) routines
27 :
28 : use pm_container, only: csp_type, css_type
29 : use pm_arrayResize, only: setResized
30 : use pm_distUnif, only: getUnifRand
31 : use pm_arrayFill, only: getFilled
32 : use pm_arrayRange, only: getRange
33 :
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define getDisEuclid_ENABLED 1
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #define RK_ENABLED 1
47 :
48 : #if RK5_ENABLED
49 : module procedure test_getDisEuclid_RK5
50 : use pm_kind, only: TKC => RK5
51 : #include "test_pm_distanceEuclid@routines.inc.F90"
52 : end procedure
53 : #endif
54 :
55 : #if RK4_ENABLED
56 1 : module procedure test_getDisEuclid_RK4
57 : use pm_kind, only: TKC => RK4
58 : #include "test_pm_distanceEuclid@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if RK3_ENABLED
63 1 : module procedure test_getDisEuclid_RK3
64 : use pm_kind, only: TKC => RK3
65 : #include "test_pm_distanceEuclid@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if RK2_ENABLED
70 1 : module procedure test_getDisEuclid_RK2
71 : use pm_kind, only: TKC => RK2
72 : #include "test_pm_distanceEuclid@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if RK1_ENABLED
77 1 : module procedure test_getDisEuclid_RK1
78 : use pm_kind, only: TKC => RK1
79 : #include "test_pm_distanceEuclid@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #undef RK_ENABLED
84 :
85 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 :
87 : #undef getDisEuclid_ENABLED
88 :
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 :
91 : #define setDisEuclid_ENABLED 1
92 :
93 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 :
95 : #define RK_ENABLED 1
96 :
97 : #if RK5_ENABLED
98 : module procedure test_setDisEuclid_RK5
99 : use pm_kind, only: TKC => RK5
100 : #include "test_pm_distanceEuclid@routines.inc.F90"
101 : end procedure
102 : #endif
103 :
104 : #if RK4_ENABLED
105 1 : module procedure test_setDisEuclid_RK4
106 : use pm_kind, only: TKC => RK4
107 : #include "test_pm_distanceEuclid@routines.inc.F90"
108 : end procedure
109 : #endif
110 :
111 : #if RK3_ENABLED
112 1 : module procedure test_setDisEuclid_RK3
113 : use pm_kind, only: TKC => RK3
114 : #include "test_pm_distanceEuclid@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK2_ENABLED
119 1 : module procedure test_setDisEuclid_RK2
120 : use pm_kind, only: TKC => RK2
121 : #include "test_pm_distanceEuclid@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if RK1_ENABLED
126 1 : module procedure test_setDisEuclid_RK1
127 : use pm_kind, only: TKC => RK1
128 : #include "test_pm_distanceEuclid@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #undef RK_ENABLED
133 :
134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135 :
136 : #undef setDisEuclid_ENABLED
137 :
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #define getDisMatEuclid_ENABLED 1
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 :
144 : #define RK_ENABLED 1
145 :
146 : #if RK5_ENABLED
147 : module procedure test_getDisMatEuclid_RK5
148 : use pm_kind, only: TKC => RK5
149 : #include "test_pm_distanceEuclid@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if RK4_ENABLED
154 1 : module procedure test_getDisMatEuclid_RK4
155 : use pm_kind, only: TKC => RK4
156 : #include "test_pm_distanceEuclid@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #if RK3_ENABLED
161 1 : module procedure test_getDisMatEuclid_RK3
162 : use pm_kind, only: TKC => RK3
163 : #include "test_pm_distanceEuclid@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if RK2_ENABLED
168 1 : module procedure test_getDisMatEuclid_RK2
169 : use pm_kind, only: TKC => RK2
170 : #include "test_pm_distanceEuclid@routines.inc.F90"
171 : end procedure
172 : #endif
173 :
174 : #if RK1_ENABLED
175 1 : module procedure test_getDisMatEuclid_RK1
176 : use pm_kind, only: TKC => RK1
177 : #include "test_pm_distanceEuclid@routines.inc.F90"
178 : end procedure
179 : #endif
180 :
181 : #undef RK_ENABLED
182 :
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #undef getDisMatEuclid_ENABLED
186 :
187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 :
189 : #define setDisMatEuclid_ENABLED 1
190 :
191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192 :
193 : #define RK_ENABLED 1
194 :
195 : #if RK5_ENABLED
196 : module procedure test_setDisMatEuclid_RK5
197 : use pm_kind, only: TKC => RK5
198 : #include "test_pm_distanceEuclid@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if RK4_ENABLED
203 1 : module procedure test_setDisMatEuclid_RK4
204 : use pm_kind, only: TKC => RK4
205 : #include "test_pm_distanceEuclid@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if RK3_ENABLED
210 1 : module procedure test_setDisMatEuclid_RK3
211 : use pm_kind, only: TKC => RK3
212 : #include "test_pm_distanceEuclid@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if RK2_ENABLED
217 1 : module procedure test_setDisMatEuclid_RK2
218 : use pm_kind, only: TKC => RK2
219 : #include "test_pm_distanceEuclid@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if RK1_ENABLED
224 1 : module procedure test_setDisMatEuclid_RK1
225 : use pm_kind, only: TKC => RK1
226 : #include "test_pm_distanceEuclid@routines.inc.F90"
227 : end procedure
228 : #endif
229 :
230 : #undef RK_ENABLED
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : #undef setDisMatEuclid_ENABLED
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 :
238 : end submodule routines ! LCOV_EXCL_LINE
|
