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
54
55 use pm_kind, only: SK
56
57 implicit none
58
59 character(*, SK), parameter :: MODULE_NAME = "@pm_distLogNorm"
60
61!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62
97 end type
98
99!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100
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
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
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
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
Generate and return the Cumulative Distribution Function (CDF) of the univariate Lognormal distributi...
Generate the natural logarithm of probability density function (PDF) of the univariate Lognormal dist...
Generate and return the Cumulative Distribution Function (CDF) of the univariate Lognormal distributi...
Generate the natural logarithm of probability density function (PDF) of the univariate Lognormal dist...
This module contains classes and procedures for computing various statistical quantities related to t...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK3
Definition: pm_kind.F90:500
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
integer, parameter RK1
Definition: pm_kind.F90:522
This is the derived type for signifying distributions that are of type Lognormal as defined in the de...