ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_distLogNorm.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
50
51!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52
53module pm_distLogNorm
54
55 use pm_kind, only: SK
56
57 implicit none
58
59 character(*, SK), parameter :: MODULE_NAME = "@pm_distLogNorm"
60
61!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62
96 type :: distLogNorm_type
97 end type
98
99!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100
158 interface getLogNormLogPDF
159
160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161
162#if RK5_ENABLED
163 PURE elemental module function getLogNormLogPDF_RK5(x, mu, sigma) result(logPDF)
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormLogPDF_RK5
166#endif
167 use pm_kind, only: RKG => RK5
168 real(RKG) , intent(in) :: x
169 real(RKG) , intent(in) , optional :: mu, sigma
170 real(RKG) :: logPDF
171 end function
172#endif
173
174#if RK4_ENABLED
175 PURE elemental module function getLogNormLogPDF_RK4(x, mu, sigma) result(logPDF)
176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormLogPDF_RK4
178#endif
179 use pm_kind, only: RKG => RK4
180 real(RKG) , intent(in) :: x
181 real(RKG) , intent(in) , optional :: mu, sigma
182 real(RKG) :: logPDF
183 end function
184#endif
185
186#if RK3_ENABLED
187 PURE elemental module function getLogNormLogPDF_RK3(x, mu, sigma) result(logPDF)
188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
189 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormLogPDF_RK3
190#endif
191 use pm_kind, only: RKG => RK3
192 real(RKG) , intent(in) :: x
193 real(RKG) , intent(in) , optional :: mu, sigma
194 real(RKG) :: logPDF
195 end function
196#endif
197
198#if RK2_ENABLED
199 PURE elemental module function getLogNormLogPDF_RK2(x, mu, sigma) result(logPDF)
200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
201 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormLogPDF_RK2
202#endif
203 use pm_kind, only: RKG => RK2
204 real(RKG) , intent(in) :: x
205 real(RKG) , intent(in) , optional :: mu, sigma
206 real(RKG) :: logPDF
207 end function
208#endif
209
210#if RK1_ENABLED
211 PURE elemental module function getLogNormLogPDF_RK1(x, mu, sigma) result(logPDF)
212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
213 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormLogPDF_RK1
214#endif
215 use pm_kind, only: RKG => RK1
216 real(RKG) , intent(in) :: x
217 real(RKG) , intent(in) , optional :: mu, sigma
218 real(RKG) :: logPDF
219 end function
220#endif
221
222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223
224 end interface getLogNormLogPDF
225
226!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227
292 interface setLogNormLogPDF
293
294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295
296#if RK5_ENABLED
297 PURE elemental module subroutine setLogNormLogPDFDD_RK5(logPDF, logx)
298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
299 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDD_RK5
300#endif
301 use pm_kind, only: RKG => RK5
302 real(RKG) , intent(out) :: logPDF
303 real(RKG) , intent(in) :: logx
304 end subroutine
305#endif
306
307#if RK4_ENABLED
308 PURE elemental module subroutine setLogNormLogPDFDD_RK4(logPDF, logx)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDD_RK4
311#endif
312 use pm_kind, only: RKG => RK4
313 real(RKG) , intent(out) :: logPDF
314 real(RKG) , intent(in) :: logx
315 end subroutine
316#endif
317
318#if RK3_ENABLED
319 PURE elemental module subroutine setLogNormLogPDFDD_RK3(logPDF, logx)
320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
321 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDD_RK3
322#endif
323 use pm_kind, only: RKG => RK3
324 real(RKG) , intent(out) :: logPDF
325 real(RKG) , intent(in) :: logx
326 end subroutine
327#endif
328
329#if RK2_ENABLED
330 PURE elemental module subroutine setLogNormLogPDFDD_RK2(logPDF, logx)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDD_RK2
333#endif
334 use pm_kind, only: RKG => RK2
335 real(RKG) , intent(out) :: logPDF
336 real(RKG) , intent(in) :: logx
337 end subroutine
338#endif
339
340#if RK1_ENABLED
341 PURE elemental module subroutine setLogNormLogPDFDD_RK1(logPDF, logx)
342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
343 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDD_RK1
344#endif
345 use pm_kind, only: RKG => RK1
346 real(RKG) , intent(out) :: logPDF
347 real(RKG) , intent(in) :: logx
348 end subroutine
349#endif
350
351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352
353#if RK5_ENABLED
354 PURE elemental module subroutine setLogNormLogPDFMD_RK5(logPDF, logx, mu)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMD_RK5
357#endif
358 use pm_kind, only: RKG => RK5
359 real(RKG) , intent(out) :: logPDF
360 real(RKG) , intent(in) :: logx
361 real(RKG) , intent(in) :: mu
362 end subroutine
363#endif
364
365#if RK4_ENABLED
366 PURE elemental module subroutine setLogNormLogPDFMD_RK4(logPDF, logx, mu)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMD_RK4
369#endif
370 use pm_kind, only: RKG => RK4
371 real(RKG) , intent(out) :: logPDF
372 real(RKG) , intent(in) :: logx
373 real(RKG) , intent(in) :: mu
374 end subroutine
375#endif
376
377#if RK3_ENABLED
378 PURE elemental module subroutine setLogNormLogPDFMD_RK3(logPDF, logx, mu)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMD_RK3
381#endif
382 use pm_kind, only: RKG => RK3
383 real(RKG) , intent(out) :: logPDF
384 real(RKG) , intent(in) :: logx
385 real(RKG) , intent(in) :: mu
386 end subroutine
387#endif
388
389#if RK2_ENABLED
390 PURE elemental module subroutine setLogNormLogPDFMD_RK2(logPDF, logx, mu)
391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
392 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMD_RK2
393#endif
394 use pm_kind, only: RKG => RK2
395 real(RKG) , intent(out) :: logPDF
396 real(RKG) , intent(in) :: logx
397 real(RKG) , intent(in) :: mu
398 end subroutine
399#endif
400
401#if RK1_ENABLED
402 PURE elemental module subroutine setLogNormLogPDFMD_RK1(logPDF, logx, mu)
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMD_RK1
405#endif
406 use pm_kind, only: RKG => RK1
407 real(RKG) , intent(out) :: logPDF
408 real(RKG) , intent(in) :: logx
409 real(RKG) , intent(in) :: mu
410 end subroutine
411#endif
412
413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414
415#if RK5_ENABLED
416 PURE elemental module subroutine setLogNormLogPDFDS_RK5(logPDF, logx, invSigma, logInvSigma)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDS_RK5
419#endif
420 use pm_kind, only: RKG => RK5
421 real(RKG) , intent(out) :: logPDF
422 real(RKG) , intent(in) :: logx
423 real(RKG) , intent(in) :: invSigma, logInvSigma
424 end subroutine
425#endif
426
427#if RK4_ENABLED
428 PURE elemental module subroutine setLogNormLogPDFDS_RK4(logPDF, logx, invSigma, logInvSigma)
429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
430 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDS_RK4
431#endif
432 use pm_kind, only: RKG => RK4
433 real(RKG) , intent(out) :: logPDF
434 real(RKG) , intent(in) :: logx
435 real(RKG) , intent(in) :: invSigma, logInvSigma
436 end subroutine
437#endif
438
439#if RK3_ENABLED
440 PURE elemental module subroutine setLogNormLogPDFDS_RK3(logPDF, logx, invSigma, logInvSigma)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDS_RK3
443#endif
444 use pm_kind, only: RKG => RK3
445 real(RKG) , intent(out) :: logPDF
446 real(RKG) , intent(in) :: logx
447 real(RKG) , intent(in) :: invSigma, logInvSigma
448 end subroutine
449#endif
450
451#if RK2_ENABLED
452 PURE elemental module subroutine setLogNormLogPDFDS_RK2(logPDF, logx, invSigma, logInvSigma)
453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
454 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDS_RK2
455#endif
456 use pm_kind, only: RKG => RK2
457 real(RKG) , intent(out) :: logPDF
458 real(RKG) , intent(in) :: logx
459 real(RKG) , intent(in) :: invSigma, logInvSigma
460 end subroutine
461#endif
462
463#if RK1_ENABLED
464 PURE elemental module subroutine setLogNormLogPDFDS_RK1(logPDF, logx, invSigma, logInvSigma)
465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
466 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFDS_RK1
467#endif
468 use pm_kind, only: RKG => RK1
469 real(RKG) , intent(out) :: logPDF
470 real(RKG) , intent(in) :: logx
471 real(RKG) , intent(in) :: invSigma, logInvSigma
472 end subroutine
473#endif
474
475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
476
477#if RK5_ENABLED
478 PURE elemental module subroutine setLogNormLogPDFMS_RK5(logPDF, logx, mu, invSigma, logInvSigma)
479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
480 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMS_RK5
481#endif
482 use pm_kind, only: RKG => RK5
483 real(RKG) , intent(out) :: logPDF
484 real(RKG) , intent(in) :: logx
485 real(RKG) , intent(in) :: mu
486 real(RKG) , intent(in) :: invSigma
487 real(RKG) , intent(in) :: logInvSigma
488 end subroutine
489#endif
490
491#if RK4_ENABLED
492 PURE elemental module subroutine setLogNormLogPDFMS_RK4(logPDF, logx, mu, invSigma, logInvSigma)
493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
494 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMS_RK4
495#endif
496 use pm_kind, only: RKG => RK4
497 real(RKG) , intent(out) :: logPDF
498 real(RKG) , intent(in) :: logx
499 real(RKG) , intent(in) :: mu
500 real(RKG) , intent(in) :: invSigma
501 real(RKG) , intent(in) :: logInvSigma
502 end subroutine
503#endif
504
505#if RK3_ENABLED
506 PURE elemental module subroutine setLogNormLogPDFMS_RK3(logPDF, logx, mu, invSigma, logInvSigma)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMS_RK3
509#endif
510 use pm_kind, only: RKG => RK3
511 real(RKG) , intent(out) :: logPDF
512 real(RKG) , intent(in) :: logx
513 real(RKG) , intent(in) :: mu
514 real(RKG) , intent(in) :: invSigma
515 real(RKG) , intent(in) :: logInvSigma
516 end subroutine
517#endif
518
519#if RK2_ENABLED
520 PURE elemental module subroutine setLogNormLogPDFMS_RK2(logPDF, logx, mu, invSigma, logInvSigma)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMS_RK2
523#endif
524 use pm_kind, only: RKG => RK2
525 real(RKG) , intent(out) :: logPDF
526 real(RKG) , intent(in) :: logx
527 real(RKG) , intent(in) :: mu
528 real(RKG) , intent(in) :: invSigma
529 real(RKG) , intent(in) :: logInvSigma
530 end subroutine
531#endif
532
533#if RK1_ENABLED
534 PURE elemental module subroutine setLogNormLogPDFMS_RK1(logPDF, logx, mu, invSigma, logInvSigma)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormLogPDFMS_RK1
537#endif
538 use pm_kind, only: RKG => RK1
539 real(RKG) , intent(out) :: logPDF
540 real(RKG) , intent(in) :: logx
541 real(RKG) , intent(in) :: mu
542 real(RKG) , intent(in) :: invSigma
543 real(RKG) , intent(in) :: logInvSigma
544 end subroutine
545#endif
546
547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548
549 end interface setLogNormLogPDF
550
551!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552
602 interface getLogNormCDF
603
604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606#if RK5_ENABLED
607 PURE elemental module function getLogNormCDF_RK5(x, mu, sigma) result(cdf)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormCDF_RK5
610#endif
611 use pm_kind, only: RKG => RK5
612 real(RKG) , intent(in) :: x
613 real(RKG) , intent(in) , optional :: mu
614 real(RKG) , intent(in) , optional :: sigma
615 real(RKG) :: cdf
616 end function
617#endif
618
619#if RK4_ENABLED
620 PURE elemental module function getLogNormCDF_RK4(x, mu, sigma) result(cdf)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormCDF_RK4
623#endif
624 use pm_kind, only: RKG => RK4
625 real(RKG) , intent(in) :: x
626 real(RKG) , intent(in) , optional :: mu
627 real(RKG) , intent(in) , optional :: sigma
628 real(RKG) :: cdf
629 end function
630#endif
631
632#if RK3_ENABLED
633 PURE elemental module function getLogNormCDF_RK3(x, mu, sigma) result(cdf)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormCDF_RK3
636#endif
637 use pm_kind, only: RKG => RK3
638 real(RKG) , intent(in) :: x
639 real(RKG) , intent(in) , optional :: mu
640 real(RKG) , intent(in) , optional :: sigma
641 real(RKG) :: cdf
642 end function
643#endif
644
645#if RK2_ENABLED
646 PURE elemental module function getLogNormCDF_RK2(x, mu, sigma) result(cdf)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormCDF_RK2
649#endif
650 use pm_kind, only: RKG => RK2
651 real(RKG) , intent(in) :: x
652 real(RKG) , intent(in) , optional :: mu
653 real(RKG) , intent(in) , optional :: sigma
654 real(RKG) :: cdf
655 end function
656#endif
657
658#if RK1_ENABLED
659 PURE elemental module function getLogNormCDF_RK1(x, mu, sigma) result(cdf)
660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
661 !DEC$ ATTRIBUTES DLLEXPORT :: getLogNormCDF_RK1
662#endif
663 use pm_kind, only: RKG => RK1
664 real(RKG) , intent(in) :: x
665 real(RKG) , intent(in) , optional :: mu
666 real(RKG) , intent(in) , optional :: sigma
667 real(RKG) :: cdf
668 end function
669#endif
670
671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
672
673 end interface getLogNormCDF
674
675!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
676
728 interface setLogNormCDF
729
730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731
732#if RK5_ENABLED
733 PURE elemental module subroutine setLogNormCDFDD_RK5(cdf, logx)
734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
735 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFDD_RK5
736#endif
737 use pm_kind, only: RKG => RK5
738 real(RKG) , intent(out) :: cdf
739 real(RKG) , intent(in) :: logx
740 end subroutine
741#endif
742
743#if RK4_ENABLED
744 PURE elemental module subroutine setLogNormCDFDD_RK4(cdf, logx)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFDD_RK4
747#endif
748 use pm_kind, only: RKG => RK4
749 real(RKG) , intent(out) :: cdf
750 real(RKG) , intent(in) :: logx
751 end subroutine
752#endif
753
754#if RK3_ENABLED
755 PURE elemental module subroutine setLogNormCDFDD_RK3(cdf, logx)
756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
757 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFDD_RK3
758#endif
759 use pm_kind, only: RKG => RK3
760 real(RKG) , intent(out) :: cdf
761 real(RKG) , intent(in) :: logx
762 end subroutine
763#endif
764
765#if RK2_ENABLED
766 PURE elemental module subroutine setLogNormCDFDD_RK2(cdf, logx)
767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
768 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFDD_RK2
769#endif
770 use pm_kind, only: RKG => RK2
771 real(RKG) , intent(in) :: logx
772 real(RKG) , intent(out) :: cdf
773 end subroutine
774#endif
775
776#if RK1_ENABLED
777 PURE elemental module subroutine setLogNormCDFDD_RK1(cdf, logx)
778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
779 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFDD_RK1
780#endif
781 use pm_kind, only: RKG => RK1
782 real(RKG) , intent(out) :: cdf
783 real(RKG) , intent(in) :: logx
784 end subroutine
785#endif
786
787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
788
789#if RK5_ENABLED
790 PURE elemental module subroutine setLogNormCDFMD_RK5(cdf, logx, mu)
791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
792 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMD_RK5
793#endif
794 use pm_kind, only: RKG => RK5
795 real(RKG) , intent(out) :: cdf
796 real(RKG) , intent(in) :: logx
797 real(RKG) , intent(in) :: mu
798 end subroutine
799#endif
800
801#if RK4_ENABLED
802 PURE elemental module subroutine setLogNormCDFMD_RK4(cdf, logx, mu)
803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
804 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMD_RK4
805#endif
806 use pm_kind, only: RKG => RK4
807 real(RKG) , intent(out) :: cdf
808 real(RKG) , intent(in) :: logx
809 real(RKG) , intent(in) :: mu
810 end subroutine
811#endif
812
813#if RK3_ENABLED
814 PURE elemental module subroutine setLogNormCDFMD_RK3(cdf, logx, mu)
815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
816 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMD_RK3
817#endif
818 use pm_kind, only: RKG => RK3
819 real(RKG) , intent(out) :: cdf
820 real(RKG) , intent(in) :: logx
821 real(RKG) , intent(in) :: mu
822 end subroutine
823#endif
824
825#if RK2_ENABLED
826 PURE elemental module subroutine setLogNormCDFMD_RK2(cdf, logx, mu)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMD_RK2
829#endif
830 use pm_kind, only: RKG => RK2
831 real(RKG) , intent(out) :: cdf
832 real(RKG) , intent(in) :: logx
833 real(RKG) , intent(in) :: mu
834 end subroutine
835#endif
836
837#if RK1_ENABLED
838 PURE elemental module subroutine setLogNormCDFMD_RK1(cdf, logx, mu)
839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
840 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMD_RK1
841#endif
842 use pm_kind, only: RKG => RK1
843 real(RKG) , intent(out) :: cdf
844 real(RKG) , intent(in) :: logx
845 real(RKG) , intent(in) :: mu
846 end subroutine
847#endif
848
849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850
851#if RK5_ENABLED
852 PURE elemental module subroutine setLogNormCDFMS_RK5(cdf, logx, mu, invSigma)
853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
854 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMS_RK5
855#endif
856 use pm_kind, only: RKG => RK5
857 real(RKG) , intent(out) :: cdf
858 real(RKG) , intent(in) :: logx
859 real(RKG) , intent(in) :: mu
860 real(RKG) , intent(in) :: invSigma
861 end subroutine
862#endif
863
864#if RK4_ENABLED
865 PURE elemental module subroutine setLogNormCDFMS_RK4(cdf, logx, mu, invSigma)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMS_RK4
868#endif
869 use pm_kind, only: RKG => RK4
870 real(RKG) , intent(out) :: cdf
871 real(RKG) , intent(in) :: logx
872 real(RKG) , intent(in) :: mu
873 real(RKG) , intent(in) :: invSigma
874 end subroutine
875#endif
876
877#if RK3_ENABLED
878 PURE elemental module subroutine setLogNormCDFMS_RK3(cdf, logx, mu, invSigma)
879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
880 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMS_RK3
881#endif
882 use pm_kind, only: RKG => RK3
883 real(RKG) , intent(out) :: cdf
884 real(RKG) , intent(in) :: logx
885 real(RKG) , intent(in) :: mu
886 real(RKG) , intent(in) :: invSigma
887 end subroutine
888#endif
889
890#if RK2_ENABLED
891 PURE elemental module subroutine setLogNormCDFMS_RK2(cdf, logx, mu, invSigma)
892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
893 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMS_RK2
894#endif
895 use pm_kind, only: RKG => RK2
896 real(RKG) , intent(out) :: cdf
897 real(RKG) , intent(in) :: logx
898 real(RKG) , intent(in) :: mu
899 real(RKG) , intent(in) :: invSigma
900 end subroutine
901#endif
902
903#if RK1_ENABLED
904 PURE elemental module subroutine setLogNormCDFMS_RK1(cdf, logx, mu, invSigma)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: setLogNormCDFMS_RK1
907#endif
908 use pm_kind, only: RKG => RK1
909 real(RKG) , intent(out) :: cdf
910 real(RKG) , intent(in) :: logx
911 real(RKG) , intent(in) :: mu
912 real(RKG) , intent(in) :: invSigma
913 end subroutine
914#endif
915
916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917
918 end interface setLogNormCDF
919
920!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921
922end module pm_distLogNorm
pm_distLogNorm::getLogNormCDF
Generate and return the Cumulative Distribution Function (CDF) of the univariate Lognormal distributi...
Definition: pm_distLogNorm.F90:602
pm_distLogNorm::getLogNormLogPDF
Generate the natural logarithm of probability density function (PDF) of the univariate Lognormal dist...
Definition: pm_distLogNorm.F90:158
pm_distLogNorm::setLogNormCDF
Generate and return the Cumulative Distribution Function (CDF) of the univariate Lognormal distributi...
Definition: pm_distLogNorm.F90:728
pm_distLogNorm::setLogNormLogPDF
Generate the natural logarithm of probability density function (PDF) of the univariate Lognormal dist...
Definition: pm_distLogNorm.F90:292
pm_distLogNorm
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distLogNorm.F90:53
pm_distLogNorm::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distLogNorm.F90:59
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_distLogNorm::distLogNorm_type
This is the derived type for signifying distributions that are of type Lognormal as defined in the de...
Definition: pm_distLogNorm.F90:96