ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_matrixInit.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
23
24!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25
26module test_pm_matrixInit
27
28 use pm_matrixInit
29 use pm_kind, only: IK, LK, RK
30 use pm_test, only: test_type
31 implicit none
32
33 private
34 public :: setTest
35 type(test_type) :: test
36
37!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38
39 interface
40
41 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42
43#if SK5_ENABLED
44 module function test_getMatInitULD_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
45#endif
46#if SK4_ENABLED
47 module function test_getMatInitULD_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
48#endif
49#if SK3_ENABLED
50 module function test_getMatInitULD_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
51#endif
52#if SK2_ENABLED
53 module function test_getMatInitULD_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
54#endif
55#if SK1_ENABLED
56 module function test_getMatInitULD_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
57#endif
58
59 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60
61#if IK5_ENABLED
62 module function test_getMatInitULD_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
63#endif
64#if IK4_ENABLED
65 module function test_getMatInitULD_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
66#endif
67#if IK3_ENABLED
68 module function test_getMatInitULD_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
69#endif
70#if IK2_ENABLED
71 module function test_getMatInitULD_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
72#endif
73#if IK1_ENABLED
74 module function test_getMatInitULD_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
75#endif
76
77 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78
79#if LK5_ENABLED
80 module function test_getMatInitULD_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
81#endif
82#if LK4_ENABLED
83 module function test_getMatInitULD_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
84#endif
85#if LK3_ENABLED
86 module function test_getMatInitULD_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
87#endif
88#if LK2_ENABLED
89 module function test_getMatInitULD_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
90#endif
91#if LK1_ENABLED
92 module function test_getMatInitULD_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
93#endif
94
95 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96
97#if CK5_ENABLED
98 module function test_getMatInitULD_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
99#endif
100#if CK4_ENABLED
101 module function test_getMatInitULD_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
102#endif
103#if CK3_ENABLED
104 module function test_getMatInitULD_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
105#endif
106#if CK2_ENABLED
107 module function test_getMatInitULD_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
108#endif
109#if CK1_ENABLED
110 module function test_getMatInitULD_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
111#endif
112
113 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114
115#if RK5_ENABLED
116 module function test_getMatInitULD_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
117#endif
118#if RK4_ENABLED
119 module function test_getMatInitULD_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
120#endif
121#if RK3_ENABLED
122 module function test_getMatInitULD_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
123#endif
124#if RK2_ENABLED
125 module function test_getMatInitULD_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
126#endif
127#if RK1_ENABLED
128 module function test_getMatInitULD_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
129#endif
130
131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132
133 end interface
134
135!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
136
137 interface
138
139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141#if SK5_ENABLED
142 module function test_setMatInitULD_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
143#endif
144#if SK4_ENABLED
145 module function test_setMatInitULD_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
146#endif
147#if SK3_ENABLED
148 module function test_setMatInitULD_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
149#endif
150#if SK2_ENABLED
151 module function test_setMatInitULD_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
152#endif
153#if SK1_ENABLED
154 module function test_setMatInitULD_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
155#endif
156
157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158
159#if IK5_ENABLED
160 module function test_setMatInitULD_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
161#endif
162#if IK4_ENABLED
163 module function test_setMatInitULD_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
164#endif
165#if IK3_ENABLED
166 module function test_setMatInitULD_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
167#endif
168#if IK2_ENABLED
169 module function test_setMatInitULD_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
170#endif
171#if IK1_ENABLED
172 module function test_setMatInitULD_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
173#endif
174
175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176
177#if LK5_ENABLED
178 module function test_setMatInitULD_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
179#endif
180#if LK4_ENABLED
181 module function test_setMatInitULD_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
182#endif
183#if LK3_ENABLED
184 module function test_setMatInitULD_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
185#endif
186#if LK2_ENABLED
187 module function test_setMatInitULD_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
188#endif
189#if LK1_ENABLED
190 module function test_setMatInitULD_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
191#endif
192
193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194
195#if CK5_ENABLED
196 module function test_setMatInitULD_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
197#endif
198#if CK4_ENABLED
199 module function test_setMatInitULD_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
200#endif
201#if CK3_ENABLED
202 module function test_setMatInitULD_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
203#endif
204#if CK2_ENABLED
205 module function test_setMatInitULD_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
206#endif
207#if CK1_ENABLED
208 module function test_setMatInitULD_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
209#endif
210
211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212
213#if RK5_ENABLED
214 module function test_setMatInitULD_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
215#endif
216#if RK4_ENABLED
217 module function test_setMatInitULD_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
218#endif
219#if RK3_ENABLED
220 module function test_setMatInitULD_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
221#endif
222#if RK2_ENABLED
223 module function test_setMatInitULD_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
224#endif
225#if RK1_ENABLED
226 module function test_setMatInitULD_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
227#endif
228
229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230
231 end interface
232
233!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
234
235contains
236
237!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238
239 subroutine setTest()
240
241 test = test_type(MODULE_NAME)
242
243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
244
245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248
249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250
251#if SK5_ENABLED
252 call test%run(test_getMatInitULD_D2_SK5_1, SK_"test_getMatInitULD_D2_SK5_1")
253#endif
254#if SK4_ENABLED
255 call test%run(test_getMatInitULD_D2_SK4_1, SK_"test_getMatInitULD_D2_SK4_1")
256#endif
257#if SK3_ENABLED
258 call test%run(test_getMatInitULD_D2_SK3_1, SK_"test_getMatInitULD_D2_SK3_1")
259#endif
260#if SK2_ENABLED
261 call test%run(test_getMatInitULD_D2_SK2_1, SK_"test_getMatInitULD_D2_SK2_1")
262#endif
263#if SK1_ENABLED
264 call test%run(test_getMatInitULD_D2_SK1_1, SK_"test_getMatInitULD_D2_SK1_1")
265#endif
266
267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268
269#if SK5_ENABLED
270 call test%run(test_getMatInitULD_D2_SK5_1, SK_"test_getMatInitULD_D2_SK5_1")
271#endif
272#if SK4_ENABLED
273 call test%run(test_getMatInitULD_D2_SK4_1, SK_"test_getMatInitULD_D2_SK4_1")
274#endif
275#if SK3_ENABLED
276 call test%run(test_getMatInitULD_D2_SK3_1, SK_"test_getMatInitULD_D2_SK3_1")
277#endif
278#if SK2_ENABLED
279 call test%run(test_getMatInitULD_D2_SK2_1, SK_"test_getMatInitULD_D2_SK2_1")
280#endif
281#if SK1_ENABLED
282 call test%run(test_getMatInitULD_D2_SK1_1, SK_"test_getMatInitULD_D2_SK1_1")
283#endif
284
285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286
287#if IK5_ENABLED
288 call test%run(test_getMatInitULD_D2_IK5_1, SK_"test_getMatInitULD_D2_IK5_1")
289#endif
290#if IK4_ENABLED
291 call test%run(test_getMatInitULD_D2_IK4_1, SK_"test_getMatInitULD_D2_IK4_1")
292#endif
293#if IK3_ENABLED
294 call test%run(test_getMatInitULD_D2_IK3_1, SK_"test_getMatInitULD_D2_IK3_1")
295#endif
296#if IK2_ENABLED
297 call test%run(test_getMatInitULD_D2_IK2_1, SK_"test_getMatInitULD_D2_IK2_1")
298#endif
299#if IK1_ENABLED
300 call test%run(test_getMatInitULD_D2_IK1_1, SK_"test_getMatInitULD_D2_IK1_1")
301#endif
302
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305#if LK5_ENABLED
306 call test%run(test_getMatInitULD_D2_LK5_1, SK_"test_getMatInitULD_D2_LK5_1")
307#endif
308#if LK4_ENABLED
309 call test%run(test_getMatInitULD_D2_LK4_1, SK_"test_getMatInitULD_D2_LK4_1")
310#endif
311#if LK3_ENABLED
312 call test%run(test_getMatInitULD_D2_LK3_1, SK_"test_getMatInitULD_D2_LK3_1")
313#endif
314#if LK2_ENABLED
315 call test%run(test_getMatInitULD_D2_LK2_1, SK_"test_getMatInitULD_D2_LK2_1")
316#endif
317#if LK1_ENABLED
318 call test%run(test_getMatInitULD_D2_LK1_1, SK_"test_getMatInitULD_D2_LK1_1")
319#endif
320
321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322
323#if CK5_ENABLED
324 call test%run(test_getMatInitULD_D2_CK5_1, SK_"test_getMatInitULD_D2_CK5_1")
325#endif
326#if CK4_ENABLED
327 call test%run(test_getMatInitULD_D2_CK4_1, SK_"test_getMatInitULD_D2_CK4_1")
328#endif
329#if CK3_ENABLED
330 call test%run(test_getMatInitULD_D2_CK3_1, SK_"test_getMatInitULD_D2_CK3_1")
331#endif
332#if CK2_ENABLED
333 call test%run(test_getMatInitULD_D2_CK2_1, SK_"test_getMatInitULD_D2_CK2_1")
334#endif
335#if CK1_ENABLED
336 call test%run(test_getMatInitULD_D2_CK1_1, SK_"test_getMatInitULD_D2_CK1_1")
337#endif
338
339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340
341#if RK5_ENABLED
342 call test%run(test_getMatInitULD_D2_RK5_1, SK_"test_getMatInitULD_D2_RK5_1")
343#endif
344#if RK4_ENABLED
345 call test%run(test_getMatInitULD_D2_RK4_1, SK_"test_getMatInitULD_D2_RK4_1")
346#endif
347#if RK3_ENABLED
348 call test%run(test_getMatInitULD_D2_RK3_1, SK_"test_getMatInitULD_D2_RK3_1")
349#endif
350#if RK2_ENABLED
351 call test%run(test_getMatInitULD_D2_RK2_1, SK_"test_getMatInitULD_D2_RK2_1")
352#endif
353#if RK1_ENABLED
354 call test%run(test_getMatInitULD_D2_RK1_1, SK_"test_getMatInitULD_D2_RK1_1")
355#endif
356
357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358
359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362
363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364
365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368
369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370
371#if SK5_ENABLED
372 call test%run(test_setMatInitULD_D2_SK5_1, SK_"test_setMatInitULD_D2_SK5_1")
373#endif
374#if SK4_ENABLED
375 call test%run(test_setMatInitULD_D2_SK4_1, SK_"test_setMatInitULD_D2_SK4_1")
376#endif
377#if SK3_ENABLED
378 call test%run(test_setMatInitULD_D2_SK3_1, SK_"test_setMatInitULD_D2_SK3_1")
379#endif
380#if SK2_ENABLED
381 call test%run(test_setMatInitULD_D2_SK2_1, SK_"test_setMatInitULD_D2_SK2_1")
382#endif
383#if SK1_ENABLED
384 call test%run(test_setMatInitULD_D2_SK1_1, SK_"test_setMatInitULD_D2_SK1_1")
385#endif
386
387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388
389#if SK5_ENABLED
390 call test%run(test_setMatInitULD_D2_SK5_1, SK_"test_setMatInitULD_D2_SK5_1")
391#endif
392#if SK4_ENABLED
393 call test%run(test_setMatInitULD_D2_SK4_1, SK_"test_setMatInitULD_D2_SK4_1")
394#endif
395#if SK3_ENABLED
396 call test%run(test_setMatInitULD_D2_SK3_1, SK_"test_setMatInitULD_D2_SK3_1")
397#endif
398#if SK2_ENABLED
399 call test%run(test_setMatInitULD_D2_SK2_1, SK_"test_setMatInitULD_D2_SK2_1")
400#endif
401#if SK1_ENABLED
402 call test%run(test_setMatInitULD_D2_SK1_1, SK_"test_setMatInitULD_D2_SK1_1")
403#endif
404
405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406
407#if IK5_ENABLED
408 call test%run(test_setMatInitULD_D2_IK5_1, SK_"test_setMatInitULD_D2_IK5_1")
409#endif
410#if IK4_ENABLED
411 call test%run(test_setMatInitULD_D2_IK4_1, SK_"test_setMatInitULD_D2_IK4_1")
412#endif
413#if IK3_ENABLED
414 call test%run(test_setMatInitULD_D2_IK3_1, SK_"test_setMatInitULD_D2_IK3_1")
415#endif
416#if IK2_ENABLED
417 call test%run(test_setMatInitULD_D2_IK2_1, SK_"test_setMatInitULD_D2_IK2_1")
418#endif
419#if IK1_ENABLED
420 call test%run(test_setMatInitULD_D2_IK1_1, SK_"test_setMatInitULD_D2_IK1_1")
421#endif
422
423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
424
425#if LK5_ENABLED
426 call test%run(test_setMatInitULD_D2_LK5_1, SK_"test_setMatInitULD_D2_LK5_1")
427#endif
428#if LK4_ENABLED
429 call test%run(test_setMatInitULD_D2_LK4_1, SK_"test_setMatInitULD_D2_LK4_1")
430#endif
431#if LK3_ENABLED
432 call test%run(test_setMatInitULD_D2_LK3_1, SK_"test_setMatInitULD_D2_LK3_1")
433#endif
434#if LK2_ENABLED
435 call test%run(test_setMatInitULD_D2_LK2_1, SK_"test_setMatInitULD_D2_LK2_1")
436#endif
437#if LK1_ENABLED
438 call test%run(test_setMatInitULD_D2_LK1_1, SK_"test_setMatInitULD_D2_LK1_1")
439#endif
440
441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442
443#if CK5_ENABLED
444 call test%run(test_setMatInitULD_D2_CK5_1, SK_"test_setMatInitULD_D2_CK5_1")
445#endif
446#if CK4_ENABLED
447 call test%run(test_setMatInitULD_D2_CK4_1, SK_"test_setMatInitULD_D2_CK4_1")
448#endif
449#if CK3_ENABLED
450 call test%run(test_setMatInitULD_D2_CK3_1, SK_"test_setMatInitULD_D2_CK3_1")
451#endif
452#if CK2_ENABLED
453 call test%run(test_setMatInitULD_D2_CK2_1, SK_"test_setMatInitULD_D2_CK2_1")
454#endif
455#if CK1_ENABLED
456 call test%run(test_setMatInitULD_D2_CK1_1, SK_"test_setMatInitULD_D2_CK1_1")
457#endif
458
459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460
461#if RK5_ENABLED
462 call test%run(test_setMatInitULD_D2_RK5_1, SK_"test_setMatInitULD_D2_RK5_1")
463#endif
464#if RK4_ENABLED
465 call test%run(test_setMatInitULD_D2_RK4_1, SK_"test_setMatInitULD_D2_RK4_1")
466#endif
467#if RK3_ENABLED
468 call test%run(test_setMatInitULD_D2_RK3_1, SK_"test_setMatInitULD_D2_RK3_1")
469#endif
470#if RK2_ENABLED
471 call test%run(test_setMatInitULD_D2_RK2_1, SK_"test_setMatInitULD_D2_RK2_1")
472#endif
473#if RK1_ENABLED
474 call test%run(test_setMatInitULD_D2_RK1_1, SK_"test_setMatInitULD_D2_RK1_1")
475#endif
476
477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478
479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482
483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484
485 call test%summarize()
486
487 end subroutine setTest
488
489!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490
491end module test_pm_matrixInit
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
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::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_matrixInit
This module contains procedures and generic interfaces relevant to generating and initializing matric...
Definition: pm_matrixInit.F90:116
pm_matrixInit::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_matrixInit.F90:129
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_matrixInit
This module contains tests of the module pm_matrixInit.
Definition: test_pm_matrixInit.F90:26
test_pm_matrixInit::test
type(test_type) test
Definition: test_pm_matrixInit.F90:35
test_pm_matrixInit::setTest
subroutine setTest()
Definition: test_pm_matrixInit.F90:240
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