ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_matrixChol.F90
Go to the documentation of this file.
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
28
29!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30
31module 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
154contains
155
156!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157
158 subroutine setTest()
159
160 implicit none
161
162 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 call test%run(test_setChoLow_RK4, SK_"test_setChoLow_RK4")
171#endif
172#if RK3_ENABLED
173 call test%run(test_setChoLow_RK3, SK_"test_setChoLow_RK3")
174#endif
175#if RK2_ENABLED
176 call test%run(test_setChoLow_RK2, SK_"test_setChoLow_RK2")
177#endif
178#if RK1_ENABLED
179 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 call test%run(test_getMatChol_CK4, SK_"test_getMatChol_CK4")
189#endif
190#if CK3_ENABLED
191 call test%run(test_getMatChol_CK3, SK_"test_getMatChol_CK3")
192#endif
193#if CK2_ENABLED
194 call test%run(test_getMatChol_CK2, SK_"test_getMatChol_CK2")
195#endif
196#if CK1_ENABLED
197 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 call test%run(test_getMatChol_RK4, SK_"test_getMatChol_RK4")
207#endif
208#if RK3_ENABLED
209 call test%run(test_getMatChol_RK3, SK_"test_getMatChol_RK3")
210#endif
211#if RK2_ENABLED
212 call test%run(test_getMatChol_RK2, SK_"test_getMatChol_RK2")
213#endif
214#if RK1_ENABLED
215 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 call test%run(test_setMatChol_CK4, SK_"test_setMatChol_CK4")
225#endif
226#if CK3_ENABLED
227 call test%run(test_setMatChol_CK3, SK_"test_setMatChol_CK3")
228#endif
229#if CK2_ENABLED
230 call test%run(test_setMatChol_CK2, SK_"test_setMatChol_CK2")
231#endif
232#if CK1_ENABLED
233 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 call test%run(test_setMatChol_RK4, SK_"test_setMatChol_RK4")
243#endif
244#if RK3_ENABLED
245 call test%run(test_setMatChol_RK3, SK_"test_setMatChol_RK3")
246#endif
247#if RK2_ENABLED
248 call test%run(test_setMatChol_RK2, SK_"test_setMatChol_RK2")
249#endif
250#if RK1_ENABLED
251 call test%run(test_setMatChol_RK1, SK_"test_setMatChol_RK1")
252#endif
253
254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 call test%summarize()
256
257 end subroutine setTest
258
259!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260
261end module test_pm_matrixChol ! LCOV_EXCL_LINE
pm_matrixChol
This module contains procedures and generic interfaces for computing the Cholesky factorization of po...
Definition: pm_matrixChol.F90:133
pm_matrixChol::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_matrixChol.F90:149
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_matrixChol
This module contains tests of the module pm_matrixChol.
Definition: test_pm_matrixChol.F90:31
test_pm_matrixChol::test
type(test_type) test
Definition: test_pm_matrixChol.F90:40
test_pm_matrixChol::setTest
subroutine setTest()
Definition: test_pm_matrixChol.F90:159
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209