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
18 : !> This module contains tests of the module [pm_matrixChol](@ref pm_matrixChol).
19 : !>
20 : !> \todo
21 : !> \pvhigh
22 : !> This test collection must be expanded to cover all interfaces.<br>
23 : !>
24 : !> \fintest
25 : !>
26 : !> \author
27 : !> \AmirShahmoradi, April 21, 2017, 1:54 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
28 :
29 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30 :
31 : module test_pm_matrixChol
32 :
33 : use pm_matrixChol ! LCOV_EXCL_LINE
34 : use pm_test, only: test_type, LK
35 :
36 : implicit none
37 :
38 : private
39 : public :: setTest
40 : type(test_type) :: test
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : interface
45 :
46 : #if RK5_ENABLED
47 : module function test_setChoLow_RK5() result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if RK4_ENABLED
50 : module function test_setChoLow_RK4() result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if RK3_ENABLED
53 : module function test_setChoLow_RK3() result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if RK2_ENABLED
56 : module function test_setChoLow_RK2() result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 : #if RK1_ENABLED
59 : module function test_setChoLow_RK1() result(assertion); logical(LK) :: assertion; end function
60 : #endif
61 :
62 : end interface
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : interface
67 :
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 :
70 : #if CK5_ENABLED
71 : module function test_getMatChol_CK5() result(assertion); logical(LK) :: assertion; end function
72 : #endif
73 : #if CK4_ENABLED
74 : module function test_getMatChol_CK4() result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 : #if CK3_ENABLED
77 : module function test_getMatChol_CK3() result(assertion); logical(LK) :: assertion; end function
78 : #endif
79 : #if CK2_ENABLED
80 : module function test_getMatChol_CK2() result(assertion); logical(LK) :: assertion; end function
81 : #endif
82 : #if CK1_ENABLED
83 : module function test_getMatChol_CK1() result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 :
86 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87 :
88 : #if RK5_ENABLED
89 : module function test_getMatChol_RK5() result(assertion); logical(LK) :: assertion; end function
90 : #endif
91 : #if RK4_ENABLED
92 : module function test_getMatChol_RK4() result(assertion); logical(LK) :: assertion; end function
93 : #endif
94 : #if RK3_ENABLED
95 : module function test_getMatChol_RK3() result(assertion); logical(LK) :: assertion; end function
96 : #endif
97 : #if RK2_ENABLED
98 : module function test_getMatChol_RK2() result(assertion); logical(LK) :: assertion; end function
99 : #endif
100 : #if RK1_ENABLED
101 : module function test_getMatChol_RK1() result(assertion); logical(LK) :: assertion; end function
102 : #endif
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : end interface
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : interface
111 :
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 :
114 : #if CK5_ENABLED
115 : module function test_setMatChol_CK5() result(assertion); logical(LK) :: assertion; end function
116 : #endif
117 : #if CK4_ENABLED
118 : module function test_setMatChol_CK4() result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if CK3_ENABLED
121 : module function test_setMatChol_CK3() result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 : #if CK2_ENABLED
124 : module function test_setMatChol_CK2() result(assertion); logical(LK) :: assertion; end function
125 : #endif
126 : #if CK1_ENABLED
127 : module function test_setMatChol_CK1() result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 :
130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 :
132 : #if RK5_ENABLED
133 : module function test_setMatChol_RK5() result(assertion); logical(LK) :: assertion; end function
134 : #endif
135 : #if RK4_ENABLED
136 : module function test_setMatChol_RK4() result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if RK3_ENABLED
139 : module function test_setMatChol_RK3() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : #if RK2_ENABLED
142 : module function test_setMatChol_RK2() result(assertion); logical(LK) :: assertion; end function
143 : #endif
144 : #if RK1_ENABLED
145 : module function test_setMatChol_RK1() result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : end interface
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 :
154 : contains
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 1 : subroutine setTest()
159 :
160 : implicit none
161 :
162 1 : test = test_type(MODULE_NAME)
163 :
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : #if RK5_ENABLED
167 : call test%run(test_setChoLow_RK5, SK_"test_setChoLow_RK5")
168 : #endif
169 : #if RK4_ENABLED
170 1 : call test%run(test_setChoLow_RK4, SK_"test_setChoLow_RK4")
171 : #endif
172 : #if RK3_ENABLED
173 1 : call test%run(test_setChoLow_RK3, SK_"test_setChoLow_RK3")
174 : #endif
175 : #if RK2_ENABLED
176 1 : call test%run(test_setChoLow_RK2, SK_"test_setChoLow_RK2")
177 : #endif
178 : #if RK1_ENABLED
179 1 : call test%run(test_setChoLow_RK1, SK_"test_setChoLow_RK1")
180 : #endif
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #if CK5_ENABLED
185 : call test%run(test_getMatChol_CK5, SK_"test_getMatChol_CK5")
186 : #endif
187 : #if CK4_ENABLED
188 1 : call test%run(test_getMatChol_CK4, SK_"test_getMatChol_CK4")
189 : #endif
190 : #if CK3_ENABLED
191 1 : call test%run(test_getMatChol_CK3, SK_"test_getMatChol_CK3")
192 : #endif
193 : #if CK2_ENABLED
194 1 : call test%run(test_getMatChol_CK2, SK_"test_getMatChol_CK2")
195 : #endif
196 : #if CK1_ENABLED
197 1 : call test%run(test_getMatChol_CK1, SK_"test_getMatChol_CK1")
198 : #endif
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 :
202 : #if RK5_ENABLED
203 : call test%run(test_getMatChol_RK5, SK_"test_getMatChol_RK5")
204 : #endif
205 : #if RK4_ENABLED
206 1 : call test%run(test_getMatChol_RK4, SK_"test_getMatChol_RK4")
207 : #endif
208 : #if RK3_ENABLED
209 1 : call test%run(test_getMatChol_RK3, SK_"test_getMatChol_RK3")
210 : #endif
211 : #if RK2_ENABLED
212 1 : call test%run(test_getMatChol_RK2, SK_"test_getMatChol_RK2")
213 : #endif
214 : #if RK1_ENABLED
215 1 : call test%run(test_getMatChol_RK1, SK_"test_getMatChol_RK1")
216 : #endif
217 :
218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 :
220 : #if CK5_ENABLED
221 : call test%run(test_setMatChol_CK5, SK_"test_setMatChol_CK5")
222 : #endif
223 : #if CK4_ENABLED
224 1 : call test%run(test_setMatChol_CK4, SK_"test_setMatChol_CK4")
225 : #endif
226 : #if CK3_ENABLED
227 1 : call test%run(test_setMatChol_CK3, SK_"test_setMatChol_CK3")
228 : #endif
229 : #if CK2_ENABLED
230 1 : call test%run(test_setMatChol_CK2, SK_"test_setMatChol_CK2")
231 : #endif
232 : #if CK1_ENABLED
233 1 : call test%run(test_setMatChol_CK1, SK_"test_setMatChol_CK1")
234 : #endif
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 :
238 : #if RK5_ENABLED
239 : call test%run(test_setMatChol_RK5, SK_"test_setMatChol_RK5")
240 : #endif
241 : #if RK4_ENABLED
242 1 : call test%run(test_setMatChol_RK4, SK_"test_setMatChol_RK4")
243 : #endif
244 : #if RK3_ENABLED
245 1 : call test%run(test_setMatChol_RK3, SK_"test_setMatChol_RK3")
246 : #endif
247 : #if RK2_ENABLED
248 1 : call test%run(test_setMatChol_RK2, SK_"test_setMatChol_RK2")
249 : #endif
250 : #if RK1_ENABLED
251 1 : call test%run(test_setMatChol_RK1, SK_"test_setMatChol_RK1")
252 : #endif
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 1 : call test%summarize()
256 :
257 1 : end subroutine setTest
258 :
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : end module test_pm_matrixChol ! LCOV_EXCL_LINE
|
