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 file contains procedure implementations of [pm_distCosRaised](@ref pm_distCosRaised).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distCosRaised) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getCosRaisedPDF_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define RK_ENABLED 1
52 :
53 : #if RK5_ENABLED
54 : module procedure getCosRaisedPDF_RK5
55 : use pm_kind, only: TKC => RK5
56 : #include "pm_distCosRaised@routines.inc.F90"
57 : end procedure
58 : #endif
59 :
60 : #if RK4_ENABLED
61 0 : module procedure getCosRaisedPDF_RK4
62 : use pm_kind, only: TKC => RK4
63 : #include "pm_distCosRaised@routines.inc.F90"
64 0 : end procedure
65 : #endif
66 :
67 : #if RK3_ENABLED
68 0 : module procedure getCosRaisedPDF_RK3
69 : use pm_kind, only: TKC => RK3
70 : #include "pm_distCosRaised@routines.inc.F90"
71 0 : end procedure
72 : #endif
73 :
74 : #if RK2_ENABLED
75 1349 : module procedure getCosRaisedPDF_RK2
76 : use pm_kind, only: TKC => RK2
77 : #include "pm_distCosRaised@routines.inc.F90"
78 1349 : end procedure
79 : #endif
80 :
81 : #if RK1_ENABLED
82 0 : module procedure getCosRaisedPDF_RK1
83 : use pm_kind, only: TKC => RK1
84 : #include "pm_distCosRaised@routines.inc.F90"
85 0 : end procedure
86 : #endif
87 :
88 : #undef RK_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #undef getCosRaisedPDF_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #define setCosRaisedPDF_ENABLED 1
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #define XDD_ENABLED 1
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #define RK_ENABLED 1
107 :
108 : #if RK5_ENABLED
109 : module procedure setCosRaisedPDFXDD_RK5
110 : use pm_kind, only: TKC => RK5
111 : #include "pm_distCosRaised@routines.inc.F90"
112 : end procedure
113 : #endif
114 :
115 : #if RK4_ENABLED
116 0 : module procedure setCosRaisedPDFXDD_RK4
117 : use pm_kind, only: TKC => RK4
118 : #include "pm_distCosRaised@routines.inc.F90"
119 0 : end procedure
120 : #endif
121 :
122 : #if RK3_ENABLED
123 0 : module procedure setCosRaisedPDFXDD_RK3
124 : use pm_kind, only: TKC => RK3
125 : #include "pm_distCosRaised@routines.inc.F90"
126 0 : end procedure
127 : #endif
128 :
129 : #if RK2_ENABLED
130 12 : module procedure setCosRaisedPDFXDD_RK2
131 : use pm_kind, only: TKC => RK2
132 : #include "pm_distCosRaised@routines.inc.F90"
133 12 : end procedure
134 : #endif
135 :
136 : #if RK1_ENABLED
137 0 : module procedure setCosRaisedPDFXDD_RK1
138 : use pm_kind, only: TKC => RK1
139 : #include "pm_distCosRaised@routines.inc.F90"
140 0 : end procedure
141 : #endif
142 :
143 : #undef RK_ENABLED
144 :
145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146 :
147 : #undef XDD_ENABLED
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : #define XMD_ENABLED 1
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #define RK_ENABLED 1
158 :
159 : #if RK5_ENABLED
160 : module procedure setCosRaisedPDFXMD_RK5
161 : use pm_kind, only: TKC => RK5
162 : #include "pm_distCosRaised@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if RK4_ENABLED
167 0 : module procedure setCosRaisedPDFXMD_RK4
168 : use pm_kind, only: TKC => RK4
169 : #include "pm_distCosRaised@routines.inc.F90"
170 0 : end procedure
171 : #endif
172 :
173 : #if RK3_ENABLED
174 0 : module procedure setCosRaisedPDFXMD_RK3
175 : use pm_kind, only: TKC => RK3
176 : #include "pm_distCosRaised@routines.inc.F90"
177 0 : end procedure
178 : #endif
179 :
180 : #if RK2_ENABLED
181 2 : module procedure setCosRaisedPDFXMD_RK2
182 : use pm_kind, only: TKC => RK2
183 : #include "pm_distCosRaised@routines.inc.F90"
184 2 : end procedure
185 : #endif
186 :
187 : #if RK1_ENABLED
188 0 : module procedure setCosRaisedPDFXMD_RK1
189 : use pm_kind, only: TKC => RK1
190 : #include "pm_distCosRaised@routines.inc.F90"
191 0 : end procedure
192 : #endif
193 :
194 : #undef RK_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #undef XMD_ENABLED
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #define XMI_ENABLED 1
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 :
208 : #define RK_ENABLED 1
209 :
210 : #if RK5_ENABLED
211 : module procedure setCosRaisedPDFXMI_RK5
212 : use pm_kind, only: TKC => RK5
213 : #include "pm_distCosRaised@routines.inc.F90"
214 : end procedure
215 : #endif
216 :
217 : #if RK4_ENABLED
218 0 : module procedure setCosRaisedPDFXMI_RK4
219 : use pm_kind, only: TKC => RK4
220 : #include "pm_distCosRaised@routines.inc.F90"
221 0 : end procedure
222 : #endif
223 :
224 : #if RK3_ENABLED
225 0 : module procedure setCosRaisedPDFXMI_RK3
226 : use pm_kind, only: TKC => RK3
227 : #include "pm_distCosRaised@routines.inc.F90"
228 0 : end procedure
229 : #endif
230 :
231 : #if RK2_ENABLED
232 2683 : module procedure setCosRaisedPDFXMI_RK2
233 : use pm_kind, only: TKC => RK2
234 : #include "pm_distCosRaised@routines.inc.F90"
235 2683 : end procedure
236 : #endif
237 :
238 : #if RK1_ENABLED
239 0 : module procedure setCosRaisedPDFXMI_RK1
240 : use pm_kind, only: TKC => RK1
241 : #include "pm_distCosRaised@routines.inc.F90"
242 0 : end procedure
243 : #endif
244 :
245 : #undef RK_ENABLED
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #undef XMI_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #undef setCosRaisedPDF_ENABLED
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define getCosRaisedCDF_ENABLED 1
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 :
263 : #define RK_ENABLED 1
264 :
265 : #if RK5_ENABLED
266 : module procedure getCosRaisedCDF_RK5
267 : use pm_kind, only: TKC => RK5
268 : #include "pm_distCosRaised@routines.inc.F90"
269 : end procedure
270 : #endif
271 :
272 : #if RK4_ENABLED
273 0 : module procedure getCosRaisedCDF_RK4
274 : use pm_kind, only: TKC => RK4
275 : #include "pm_distCosRaised@routines.inc.F90"
276 0 : end procedure
277 : #endif
278 :
279 : #if RK3_ENABLED
280 0 : module procedure getCosRaisedCDF_RK3
281 : use pm_kind, only: TKC => RK3
282 : #include "pm_distCosRaised@routines.inc.F90"
283 0 : end procedure
284 : #endif
285 :
286 : #if RK2_ENABLED
287 1349 : module procedure getCosRaisedCDF_RK2
288 : use pm_kind, only: TKC => RK2
289 : #include "pm_distCosRaised@routines.inc.F90"
290 1349 : end procedure
291 : #endif
292 :
293 : #if RK1_ENABLED
294 0 : module procedure getCosRaisedCDF_RK1
295 : use pm_kind, only: TKC => RK1
296 : #include "pm_distCosRaised@routines.inc.F90"
297 0 : end procedure
298 : #endif
299 :
300 : #undef RK_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : #undef getCosRaisedCDF_ENABLED
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : #define setCosRaisedCDF_ENABLED 1
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #define XDD_ENABLED 1
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : #define RK_ENABLED 1
319 :
320 : #if RK5_ENABLED
321 : module procedure setCosRaisedCDFXDD_RK5
322 : use pm_kind, only: TKC => RK5
323 : #include "pm_distCosRaised@routines.inc.F90"
324 : end procedure
325 : #endif
326 :
327 : #if RK4_ENABLED
328 0 : module procedure setCosRaisedCDFXDD_RK4
329 : use pm_kind, only: TKC => RK4
330 : #include "pm_distCosRaised@routines.inc.F90"
331 0 : end procedure
332 : #endif
333 :
334 : #if RK3_ENABLED
335 0 : module procedure setCosRaisedCDFXDD_RK3
336 : use pm_kind, only: TKC => RK3
337 : #include "pm_distCosRaised@routines.inc.F90"
338 0 : end procedure
339 : #endif
340 :
341 : #if RK2_ENABLED
342 12 : module procedure setCosRaisedCDFXDD_RK2
343 : use pm_kind, only: TKC => RK2
344 : #include "pm_distCosRaised@routines.inc.F90"
345 12 : end procedure
346 : #endif
347 :
348 : #if RK1_ENABLED
349 0 : module procedure setCosRaisedCDFXDD_RK1
350 : use pm_kind, only: TKC => RK1
351 : #include "pm_distCosRaised@routines.inc.F90"
352 0 : end procedure
353 : #endif
354 :
355 : #undef RK_ENABLED
356 :
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #undef XDD_ENABLED
360 :
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #define XMD_ENABLED 1
366 :
367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 :
369 : #define RK_ENABLED 1
370 :
371 : #if RK5_ENABLED
372 : module procedure setCosRaisedCDFXMD_RK5
373 : use pm_kind, only: TKC => RK5
374 : #include "pm_distCosRaised@routines.inc.F90"
375 : end procedure
376 : #endif
377 :
378 : #if RK4_ENABLED
379 0 : module procedure setCosRaisedCDFXMD_RK4
380 : use pm_kind, only: TKC => RK4
381 : #include "pm_distCosRaised@routines.inc.F90"
382 0 : end procedure
383 : #endif
384 :
385 : #if RK3_ENABLED
386 0 : module procedure setCosRaisedCDFXMD_RK3
387 : use pm_kind, only: TKC => RK3
388 : #include "pm_distCosRaised@routines.inc.F90"
389 0 : end procedure
390 : #endif
391 :
392 : #if RK2_ENABLED
393 2 : module procedure setCosRaisedCDFXMD_RK2
394 : use pm_kind, only: TKC => RK2
395 : #include "pm_distCosRaised@routines.inc.F90"
396 2 : end procedure
397 : #endif
398 :
399 : #if RK1_ENABLED
400 0 : module procedure setCosRaisedCDFXMD_RK1
401 : use pm_kind, only: TKC => RK1
402 : #include "pm_distCosRaised@routines.inc.F90"
403 0 : end procedure
404 : #endif
405 :
406 : #undef RK_ENABLED
407 :
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 :
410 : #undef XMD_ENABLED
411 :
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 :
416 : #define XMI_ENABLED 1
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #define RK_ENABLED 1
421 :
422 : #if RK5_ENABLED
423 : module procedure setCosRaisedCDFXMI_RK5
424 : use pm_kind, only: TKC => RK5
425 : #include "pm_distCosRaised@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if RK4_ENABLED
430 0 : module procedure setCosRaisedCDFXMI_RK4
431 : use pm_kind, only: TKC => RK4
432 : #include "pm_distCosRaised@routines.inc.F90"
433 0 : end procedure
434 : #endif
435 :
436 : #if RK3_ENABLED
437 0 : module procedure setCosRaisedCDFXMI_RK3
438 : use pm_kind, only: TKC => RK3
439 : #include "pm_distCosRaised@routines.inc.F90"
440 0 : end procedure
441 : #endif
442 :
443 : #if RK2_ENABLED
444 2683 : module procedure setCosRaisedCDFXMI_RK2
445 : use pm_kind, only: TKC => RK2
446 : #include "pm_distCosRaised@routines.inc.F90"
447 2683 : end procedure
448 : #endif
449 :
450 : #if RK1_ENABLED
451 0 : module procedure setCosRaisedCDFXMI_RK1
452 : use pm_kind, only: TKC => RK1
453 : #include "pm_distCosRaised@routines.inc.F90"
454 0 : end procedure
455 : #endif
456 :
457 : #undef RK_ENABLED
458 :
459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460 :
461 : #undef XMI_ENABLED
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 :
467 : #undef setCosRaisedCDF_ENABLED
468 :
469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470 :
471 : #undef CHECK_ASSERTION
472 :
473 : end submodule routines
|
