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_distLogNorm](@ref pm_distLogNorm).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distLogNorm) 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 getLogNormLogPDF_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define RK_ENABLED 1
52 :
53 : #if RK5_ENABLED
54 : module procedure getLogNormLogPDF_RK5
55 : use pm_kind, only: RKC => RK5
56 : #include "pm_distLogNorm@routines.inc.F90"
57 : end procedure
58 : #endif
59 :
60 : #if RK4_ENABLED
61 17999 : module procedure getLogNormLogPDF_RK4
62 : use pm_kind, only: RKC => RK4
63 : #include "pm_distLogNorm@routines.inc.F90"
64 17999 : end procedure
65 : #endif
66 :
67 : #if RK3_ENABLED
68 0 : module procedure getLogNormLogPDF_RK3
69 : use pm_kind, only: RKC => RK3
70 : #include "pm_distLogNorm@routines.inc.F90"
71 0 : end procedure
72 : #endif
73 :
74 : #if RK2_ENABLED
75 4019 : module procedure getLogNormLogPDF_RK2
76 : use pm_kind, only: RKC => RK2
77 : #include "pm_distLogNorm@routines.inc.F90"
78 4019 : end procedure
79 : #endif
80 :
81 : #if RK1_ENABLED
82 0 : module procedure getLogNormLogPDF_RK1
83 : use pm_kind, only: RKC => RK1
84 : #include "pm_distLogNorm@routines.inc.F90"
85 0 : end procedure
86 : #endif
87 :
88 : #undef RK_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #undef getLogNormLogPDF_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #define setLogNormLogPDF_ENABLED 1
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #define DD_ENABLED 1
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #define RK_ENABLED 1
107 :
108 : #if RK5_ENABLED
109 : module procedure setLogNormLogPDFDD_RK5
110 : use pm_kind, only: RKC => RK5
111 : #include "pm_distLogNorm@routines.inc.F90"
112 : end procedure
113 : #endif
114 :
115 : #if RK4_ENABLED
116 0 : module procedure setLogNormLogPDFDD_RK4
117 : use pm_kind, only: RKC => RK4
118 : #include "pm_distLogNorm@routines.inc.F90"
119 0 : end procedure
120 : #endif
121 :
122 : #if RK3_ENABLED
123 0 : module procedure setLogNormLogPDFDD_RK3
124 : use pm_kind, only: RKC => RK3
125 : #include "pm_distLogNorm@routines.inc.F90"
126 0 : end procedure
127 : #endif
128 :
129 : #if RK2_ENABLED
130 1 : module procedure setLogNormLogPDFDD_RK2
131 : use pm_kind, only: RKC => RK2
132 : #include "pm_distLogNorm@routines.inc.F90"
133 1 : end procedure
134 : #endif
135 :
136 : #if RK1_ENABLED
137 0 : module procedure setLogNormLogPDFDD_RK1
138 : use pm_kind, only: RKC => RK1
139 : #include "pm_distLogNorm@routines.inc.F90"
140 0 : end procedure
141 : #endif
142 :
143 : #undef RK_ENABLED
144 :
145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146 :
147 : #undef DD_ENABLED
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : #define MD_ENABLED 1
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #define RK_ENABLED 1
158 :
159 : #if RK5_ENABLED
160 : module procedure setLogNormLogPDFMD_RK5
161 : use pm_kind, only: RKC => RK5
162 : #include "pm_distLogNorm@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if RK4_ENABLED
167 0 : module procedure setLogNormLogPDFMD_RK4
168 : use pm_kind, only: RKC => RK4
169 : #include "pm_distLogNorm@routines.inc.F90"
170 0 : end procedure
171 : #endif
172 :
173 : #if RK3_ENABLED
174 0 : module procedure setLogNormLogPDFMD_RK3
175 : use pm_kind, only: RKC => RK3
176 : #include "pm_distLogNorm@routines.inc.F90"
177 0 : end procedure
178 : #endif
179 :
180 : #if RK2_ENABLED
181 1 : module procedure setLogNormLogPDFMD_RK2
182 : use pm_kind, only: RKC => RK2
183 : #include "pm_distLogNorm@routines.inc.F90"
184 1 : end procedure
185 : #endif
186 :
187 : #if RK1_ENABLED
188 0 : module procedure setLogNormLogPDFMD_RK1
189 : use pm_kind, only: RKC => RK1
190 : #include "pm_distLogNorm@routines.inc.F90"
191 0 : end procedure
192 : #endif
193 :
194 : #undef RK_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #undef MD_ENABLED
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #define DS_ENABLED 1
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 :
208 : #define RK_ENABLED 1
209 :
210 : #if RK5_ENABLED
211 : module procedure setLogNormLogPDFDS_RK5
212 : use pm_kind, only: RKC => RK5
213 : #include "pm_distLogNorm@routines.inc.F90"
214 : end procedure
215 : #endif
216 :
217 : #if RK4_ENABLED
218 0 : module procedure setLogNormLogPDFDS_RK4
219 : use pm_kind, only: RKC => RK4
220 : #include "pm_distLogNorm@routines.inc.F90"
221 0 : end procedure
222 : #endif
223 :
224 : #if RK3_ENABLED
225 0 : module procedure setLogNormLogPDFDS_RK3
226 : use pm_kind, only: RKC => RK3
227 : #include "pm_distLogNorm@routines.inc.F90"
228 0 : end procedure
229 : #endif
230 :
231 : #if RK2_ENABLED
232 1 : module procedure setLogNormLogPDFDS_RK2
233 : use pm_kind, only: RKC => RK2
234 : #include "pm_distLogNorm@routines.inc.F90"
235 1 : end procedure
236 : #endif
237 :
238 : #if RK1_ENABLED
239 0 : module procedure setLogNormLogPDFDS_RK1
240 : use pm_kind, only: RKC => RK1
241 : #include "pm_distLogNorm@routines.inc.F90"
242 0 : end procedure
243 : #endif
244 :
245 : #undef RK_ENABLED
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #undef DS_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #define MS_ENABLED 1
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define RK_ENABLED 1
260 :
261 : #if RK5_ENABLED
262 : module procedure setLogNormLogPDFMS_RK5
263 : use pm_kind, only: RKC => RK5
264 : #include "pm_distLogNorm@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #if RK4_ENABLED
269 56907 : module procedure setLogNormLogPDFMS_RK4
270 : use pm_kind, only: RKC => RK4
271 : #include "pm_distLogNorm@routines.inc.F90"
272 56907 : end procedure
273 : #endif
274 :
275 : #if RK3_ENABLED
276 0 : module procedure setLogNormLogPDFMS_RK3
277 : use pm_kind, only: RKC => RK3
278 : #include "pm_distLogNorm@routines.inc.F90"
279 0 : end procedure
280 : #endif
281 :
282 : #if RK2_ENABLED
283 8035 : module procedure setLogNormLogPDFMS_RK2
284 : use pm_kind, only: RKC => RK2
285 : #include "pm_distLogNorm@routines.inc.F90"
286 8035 : end procedure
287 : #endif
288 :
289 : #if RK1_ENABLED
290 0 : module procedure setLogNormLogPDFMS_RK1
291 : use pm_kind, only: RKC => RK1
292 : #include "pm_distLogNorm@routines.inc.F90"
293 0 : end procedure
294 : #endif
295 :
296 : #undef RK_ENABLED
297 :
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : #undef MS_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 :
306 : #undef setLogNormLogPDF_ENABLED
307 :
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #define getLogNormCDF_ENABLED 1
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #define RK_ENABLED 1
315 :
316 : #if RK5_ENABLED
317 : module procedure getLogNormCDF_RK5
318 : use pm_kind, only: RKC => RK5
319 : #include "pm_distLogNorm@routines.inc.F90"
320 : end procedure
321 : #endif
322 :
323 : #if RK4_ENABLED
324 20 : module procedure getLogNormCDF_RK4
325 : use pm_kind, only: RKC => RK4
326 : #include "pm_distLogNorm@routines.inc.F90"
327 20 : end procedure
328 : #endif
329 :
330 : #if RK3_ENABLED
331 0 : module procedure getLogNormCDF_RK3
332 : use pm_kind, only: RKC => RK3
333 : #include "pm_distLogNorm@routines.inc.F90"
334 0 : end procedure
335 : #endif
336 :
337 : #if RK2_ENABLED
338 4019 : module procedure getLogNormCDF_RK2
339 : use pm_kind, only: RKC => RK2
340 : #include "pm_distLogNorm@routines.inc.F90"
341 4019 : end procedure
342 : #endif
343 :
344 : #if RK1_ENABLED
345 0 : module procedure getLogNormCDF_RK1
346 : use pm_kind, only: RKC => RK1
347 : #include "pm_distLogNorm@routines.inc.F90"
348 0 : end procedure
349 : #endif
350 :
351 : #undef RK_ENABLED
352 :
353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354 :
355 : #undef getLogNormCDF_ENABLED
356 :
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #define setLogNormCDF_ENABLED 1
360 :
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #define DD_ENABLED 1
366 :
367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 :
369 : #define RK_ENABLED 1
370 :
371 : #if RK5_ENABLED
372 : module procedure setLogNormCDFDD_RK5
373 : use pm_kind, only: RKC => RK5
374 : #include "pm_distLogNorm@routines.inc.F90"
375 : end procedure
376 : #endif
377 :
378 : #if RK4_ENABLED
379 12 : module procedure setLogNormCDFDD_RK4
380 : use pm_kind, only: RKC => RK4
381 : #include "pm_distLogNorm@routines.inc.F90"
382 12 : end procedure
383 : #endif
384 :
385 : #if RK3_ENABLED
386 0 : module procedure setLogNormCDFDD_RK3
387 : use pm_kind, only: RKC => RK3
388 : #include "pm_distLogNorm@routines.inc.F90"
389 0 : end procedure
390 : #endif
391 :
392 : #if RK2_ENABLED
393 2 : module procedure setLogNormCDFDD_RK2
394 : use pm_kind, only: RKC => RK2
395 : #include "pm_distLogNorm@routines.inc.F90"
396 2 : end procedure
397 : #endif
398 :
399 : #if RK1_ENABLED
400 0 : module procedure setLogNormCDFDD_RK1
401 : use pm_kind, only: RKC => RK1
402 : #include "pm_distLogNorm@routines.inc.F90"
403 0 : end procedure
404 : #endif
405 :
406 : #undef RK_ENABLED
407 :
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 :
410 : #undef DD_ENABLED
411 :
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 :
416 : #define MD_ENABLED 1
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #define RK_ENABLED 1
421 :
422 : #if RK5_ENABLED
423 : module procedure setLogNormCDFMD_RK5
424 : use pm_kind, only: RKC => RK5
425 : #include "pm_distLogNorm@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if RK4_ENABLED
430 0 : module procedure setLogNormCDFMD_RK4
431 : use pm_kind, only: RKC => RK4
432 : #include "pm_distLogNorm@routines.inc.F90"
433 0 : end procedure
434 : #endif
435 :
436 : #if RK3_ENABLED
437 0 : module procedure setLogNormCDFMD_RK3
438 : use pm_kind, only: RKC => RK3
439 : #include "pm_distLogNorm@routines.inc.F90"
440 0 : end procedure
441 : #endif
442 :
443 : #if RK2_ENABLED
444 4 : module procedure setLogNormCDFMD_RK2
445 : use pm_kind, only: RKC => RK2
446 : #include "pm_distLogNorm@routines.inc.F90"
447 4 : end procedure
448 : #endif
449 :
450 : #if RK1_ENABLED
451 0 : module procedure setLogNormCDFMD_RK1
452 : use pm_kind, only: RKC => RK1
453 : #include "pm_distLogNorm@routines.inc.F90"
454 0 : end procedure
455 : #endif
456 :
457 : #undef RK_ENABLED
458 :
459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460 :
461 : #undef MD_ENABLED
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 :
467 : #define MS_ENABLED 1
468 :
469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470 :
471 : #define RK_ENABLED 1
472 :
473 : #if RK5_ENABLED
474 : module procedure setLogNormCDFMS_RK5
475 : use pm_kind, only: RKC => RK5
476 : #include "pm_distLogNorm@routines.inc.F90"
477 : end procedure
478 : #endif
479 :
480 : #if RK4_ENABLED
481 6 : module procedure setLogNormCDFMS_RK4
482 : use pm_kind, only: RKC => RK4
483 : #include "pm_distLogNorm@routines.inc.F90"
484 6 : end procedure
485 : #endif
486 :
487 : #if RK3_ENABLED
488 0 : module procedure setLogNormCDFMS_RK3
489 : use pm_kind, only: RKC => RK3
490 : #include "pm_distLogNorm@routines.inc.F90"
491 0 : end procedure
492 : #endif
493 :
494 : #if RK2_ENABLED
495 8032 : module procedure setLogNormCDFMS_RK2
496 : use pm_kind, only: RKC => RK2
497 : #include "pm_distLogNorm@routines.inc.F90"
498 8032 : end procedure
499 : #endif
500 :
501 : #if RK1_ENABLED
502 0 : module procedure setLogNormCDFMS_RK1
503 : use pm_kind, only: RKC => RK1
504 : #include "pm_distLogNorm@routines.inc.F90"
505 0 : end procedure
506 : #endif
507 :
508 : #undef RK_ENABLED
509 :
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 :
512 : #undef MS_ENABLED
513 :
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : #undef setLogNormCDF_ENABLED
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 :
522 : #undef CHECK_ASSERTION
523 :
524 : end submodule routines
|
