ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_distPareto.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
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141module pm_distPareto
142
143 use pm_kind, only: SK
144
145 implicit none
146
147 character(*, SK), parameter :: MODULE_NAME = "@pm_distPareto"
148
149!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150
184 type :: distPareto_type
185 end type
186
187!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188
272 interface getParetoLogPDFNF
273
274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276#if RK5_ENABLED
277 PURE elemental module function getParetoLogPDFNFALD_RK5(alpha, logMinX) result(logPDFNF)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALD_RK5
280#endif
281 use pm_kind, only: RKG => RK5
282 real(RKG) , intent(in) :: alpha, logMinX
283 real(RKG) :: logPDFNF
284 end function
285#endif
286
287#if RK4_ENABLED
288 PURE elemental module function getParetoLogPDFNFALD_RK4(alpha, logMinX) result(logPDFNF)
289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
290 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALD_RK4
291#endif
292 use pm_kind, only: RKG => RK4
293 real(RKG) , intent(in) :: alpha, logMinX
294 real(RKG) :: logPDFNF
295 end function
296#endif
297
298#if RK3_ENABLED
299 PURE elemental module function getParetoLogPDFNFALD_RK3(alpha, logMinX) result(logPDFNF)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALD_RK3
302#endif
303 use pm_kind, only: RKG => RK3
304 real(RKG) , intent(in) :: alpha, logMinX
305 real(RKG) :: logPDFNF
306 end function
307#endif
308
309#if RK2_ENABLED
310 PURE elemental module function getParetoLogPDFNFALD_RK2(alpha, logMinX) result(logPDFNF)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALD_RK2
313#endif
314 use pm_kind, only: RKG => RK2
315 real(RKG) , intent(in) :: alpha, logMinX
316 real(RKG) :: logPDFNF
317 end function
318#endif
319
320#if RK1_ENABLED
321 PURE elemental module function getParetoLogPDFNFALD_RK1(alpha, logMinX) result(logPDFNF)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALD_RK1
324#endif
325 use pm_kind, only: RKG => RK1
326 real(RKG) , intent(in) :: alpha, logMinX
327 real(RKG) :: logPDFNF
328 end function
329#endif
330
331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332
333#if RK5_ENABLED
334 PURE elemental module function getParetoLogPDFNFALL_RK5(alpha, logMinX, logMaxX) result(logPDFNF)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALL_RK5
337#endif
338 use pm_kind, only: RKG => RK5
339 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
340 real(RKG) :: logPDFNF
341 end function
342#endif
343
344#if RK4_ENABLED
345 PURE elemental module function getParetoLogPDFNFALL_RK4(alpha, logMinX, logMaxX) result(logPDFNF)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALL_RK4
348#endif
349 use pm_kind, only: RKG => RK4
350 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
351 real(RKG) :: logPDFNF
352 end function
353#endif
354
355#if RK3_ENABLED
356 PURE elemental module function getParetoLogPDFNFALL_RK3(alpha, logMinX, logMaxX) result(logPDFNF)
357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
358 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALL_RK3
359#endif
360 use pm_kind, only: RKG => RK3
361 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
362 real(RKG) :: logPDFNF
363 end function
364#endif
365
366#if RK2_ENABLED
367 PURE elemental module function getParetoLogPDFNFALL_RK2(alpha, logMinX, logMaxX) result(logPDFNF)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALL_RK2
370#endif
371 use pm_kind, only: RKG => RK2
372 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
373 real(RKG) :: logPDFNF
374 end function
375#endif
376
377#if RK1_ENABLED
378 PURE elemental module function getParetoLogPDFNFALL_RK1(alpha, logMinX, logMaxX) result(logPDFNF)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFNFALL_RK1
381#endif
382 use pm_kind, only: RKG => RK1
383 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
384 real(RKG) :: logPDFNF
385 end function
386#endif
387
388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389
390 end interface
391
392!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393
458 interface getParetoLogPDF
459
460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461
462#if RK5_ENABLED
463 PURE elemental module function getParetoLogPDFALD_RK5(logx, alpha, logMinX) result(logPDF)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALD_RK5
466#endif
467 use pm_kind, only: RKG => RK5
468 real(RKG) , intent(in) :: logx, alpha, logMinX
469 real(RKG) :: logPDF
470 end function
471#endif
472
473#if RK4_ENABLED
474 PURE elemental module function getParetoLogPDFALD_RK4(logx, alpha, logMinX) result(logPDF)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALD_RK4
477#endif
478 use pm_kind, only: RKG => RK4
479 real(RKG) , intent(in) :: logx, alpha, logMinX
480 real(RKG) :: logPDF
481 end function
482#endif
483
484#if RK3_ENABLED
485 PURE elemental module function getParetoLogPDFALD_RK3(logx, alpha, logMinX) result(logPDF)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALD_RK3
488#endif
489 use pm_kind, only: RKG => RK3
490 real(RKG) , intent(in) :: logx, alpha, logMinX
491 real(RKG) :: logPDF
492 end function
493#endif
494
495#if RK2_ENABLED
496 PURE elemental module function getParetoLogPDFALD_RK2(logx, alpha, logMinX) result(logPDF)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALD_RK2
499#endif
500 use pm_kind, only: RKG => RK2
501 real(RKG) , intent(in) :: logx, alpha, logMinX
502 real(RKG) :: logPDF
503 end function
504#endif
505
506#if RK1_ENABLED
507 PURE elemental module function getParetoLogPDFALD_RK1(logx, alpha, logMinX) result(logPDF)
508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
509 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALD_RK1
510#endif
511 use pm_kind, only: RKG => RK1
512 real(RKG) , intent(in) :: logx, alpha, logMinX
513 real(RKG) :: logPDF
514 end function
515#endif
516
517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
519#if RK5_ENABLED
520 PURE elemental module function getParetoLogPDFALL_RK5(logx, alpha, logMinX, logMaxX) result(logPDF)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALL_RK5
523#endif
524 use pm_kind, only: RKG => RK5
525 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
526 real(RKG) :: logPDF
527 end function
528#endif
529
530#if RK4_ENABLED
531 PURE elemental module function getParetoLogPDFALL_RK4(logx, alpha, logMinX, logMaxX) result(logPDF)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALL_RK4
534#endif
535 use pm_kind, only: RKG => RK4
536 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
537 real(RKG) :: logPDF
538 end function
539#endif
540
541#if RK3_ENABLED
542 PURE elemental module function getParetoLogPDFALL_RK3(logx, alpha, logMinX, logMaxX) result(logPDF)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALL_RK3
545#endif
546 use pm_kind, only: RKG => RK3
547 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
548 real(RKG) :: logPDF
549 end function
550#endif
551
552#if RK2_ENABLED
553 PURE elemental module function getParetoLogPDFALL_RK2(logx, alpha, logMinX, logMaxX) result(logPDF)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALL_RK2
556#endif
557 use pm_kind, only: RKG => RK2
558 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
559 real(RKG) :: logPDF
560 end function
561#endif
562
563#if RK1_ENABLED
564 PURE elemental module function getParetoLogPDFALL_RK1(logx, alpha, logMinX, logMaxX) result(logPDF)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogPDFALL_RK1
567#endif
568 use pm_kind, only: RKG => RK1
569 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
570 real(RKG) :: logPDF
571 end function
572#endif
573
574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575
576 end interface
577
578!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579
642 interface setParetoLogPDF
643
644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645
646#if RK5_ENABLED
647 PURE elemental module subroutine setParetoLogPDF_RK5(logPDF, logx, alpha, logPDFNF)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogPDF_RK5
650#endif
651 use pm_kind, only: RKG => RK5
652 real(RKG) , intent(out) :: logPDF
653 real(RKG) , intent(in) :: logx, alpha, logPDFNF
654 end subroutine
655#endif
656
657#if RK4_ENABLED
658 PURE elemental module subroutine setParetoLogPDF_RK4(logPDF, logx, alpha, logPDFNF)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogPDF_RK4
661#endif
662 use pm_kind, only: RKG => RK4
663 real(RKG) , intent(out) :: logPDF
664 real(RKG) , intent(in) :: logx, alpha, logPDFNF
665 end subroutine
666#endif
667
668#if RK3_ENABLED
669 PURE elemental module subroutine setParetoLogPDF_RK3(logPDF, logx, alpha, logPDFNF)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogPDF_RK3
672#endif
673 use pm_kind, only: RKG => RK3
674 real(RKG) , intent(out) :: logPDF
675 real(RKG) , intent(in) :: logx, alpha, logPDFNF
676 end subroutine
677#endif
678
679#if RK2_ENABLED
680 PURE elemental module subroutine setParetoLogPDF_RK2(logPDF, logx, alpha, logPDFNF)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogPDF_RK2
683#endif
684 use pm_kind, only: RKG => RK2
685 real(RKG) , intent(out) :: logPDF
686 real(RKG) , intent(in) :: logx, alpha, logPDFNF
687 end subroutine
688#endif
689
690#if RK1_ENABLED
691 PURE elemental module subroutine setParetoLogPDF_RK1(logPDF, logx, alpha, logPDFNF)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogPDF_RK1
694#endif
695 use pm_kind, only: RKG => RK1
696 real(RKG) , intent(out) :: logPDF
697 real(RKG) , intent(in) :: logx, alpha, logPDFNF
698 end subroutine
699#endif
700
701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702
703 end interface
704
705!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
706
793 interface getParetoLogCDFNF
794
795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
796
797#if RK5_ENABLED
798 PURE elemental module function getParetoLogCDFNFALD_RK5(alpha, logMinX) result(logCDFNF)
799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
800 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALD_RK5
801#endif
802 use pm_kind, only: RKG => RK5
803 real(RKG) , intent(in) :: alpha, logMinX
804 real(RKG) :: logCDFNF
805 end function
806#endif
807
808#if RK4_ENABLED
809 PURE elemental module function getParetoLogCDFNFALD_RK4(alpha, logMinX) result(logCDFNF)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALD_RK4
812#endif
813 use pm_kind, only: RKG => RK4
814 real(RKG) , intent(in) :: alpha, logMinX
815 real(RKG) :: logCDFNF
816 end function
817#endif
818
819#if RK3_ENABLED
820 PURE elemental module function getParetoLogCDFNFALD_RK3(alpha, logMinX) result(logCDFNF)
821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
822 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALD_RK3
823#endif
824 use pm_kind, only: RKG => RK3
825 real(RKG) , intent(in) :: alpha, logMinX
826 real(RKG) :: logCDFNF
827 end function
828#endif
829
830#if RK2_ENABLED
831 PURE elemental module function getParetoLogCDFNFALD_RK2(alpha, logMinX) result(logCDFNF)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALD_RK2
834#endif
835 use pm_kind, only: RKG => RK2
836 real(RKG) , intent(in) :: alpha, logMinX
837 real(RKG) :: logCDFNF
838 end function
839#endif
840
841#if RK1_ENABLED
842 PURE elemental module function getParetoLogCDFNFALD_RK1(alpha, logMinX) result(logCDFNF)
843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
844 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALD_RK1
845#endif
846 use pm_kind, only: RKG => RK1
847 real(RKG) , intent(in) :: alpha, logMinX
848 real(RKG) :: logCDFNF
849 end function
850#endif
851
852 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853
854#if RK5_ENABLED
855 PURE elemental module function getParetoLogCDFNFALL_RK5(alpha, logMinX, logMaxX) result(logCDFNF)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALL_RK5
858#endif
859 use pm_kind, only: RKG => RK5
860 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
861 real(RKG) :: logCDFNF
862 end function
863#endif
864
865#if RK4_ENABLED
866 PURE elemental module function getParetoLogCDFNFALL_RK4(alpha, logMinX, logMaxX) result(logCDFNF)
867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
868 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALL_RK4
869#endif
870 use pm_kind, only: RKG => RK4
871 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
872 real(RKG) :: logCDFNF
873 end function
874#endif
875
876#if RK3_ENABLED
877 PURE elemental module function getParetoLogCDFNFALL_RK3(alpha, logMinX, logMaxX) result(logCDFNF)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALL_RK3
880#endif
881 use pm_kind, only: RKG => RK3
882 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
883 real(RKG) :: logCDFNF
884 end function
885#endif
886
887#if RK2_ENABLED
888 PURE elemental module function getParetoLogCDFNFALL_RK2(alpha, logMinX, logMaxX) result(logCDFNF)
889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
890 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALL_RK2
891#endif
892 use pm_kind, only: RKG => RK2
893 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
894 real(RKG) :: logCDFNF
895 end function
896#endif
897
898#if RK1_ENABLED
899 PURE elemental module function getParetoLogCDFNFALL_RK1(alpha, logMinX, logMaxX) result(logCDFNF)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFNFALL_RK1
902#endif
903 use pm_kind, only: RKG => RK1
904 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
905 real(RKG) :: logCDFNF
906 end function
907#endif
908
909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
910
911 end interface
912
913!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
914
979 interface getParetoLogCDF
980
981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982
983#if RK5_ENABLED
984 PURE elemental module function getParetoLogCDFALD_RK5(logx, alpha, logMinX) result(logCDF)
985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
986 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALD_RK5
987#endif
988 use pm_kind, only: RKG => RK5
989 real(RKG) , intent(in) :: logx, alpha, logMinX
990 real(RKG) :: logCDF
991 end function
992#endif
993
994#if RK4_ENABLED
995 PURE elemental module function getParetoLogCDFALD_RK4(logx, alpha, logMinX) result(logCDF)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALD_RK4
998#endif
999 use pm_kind, only: RKG => RK4
1000 real(RKG) , intent(in) :: logx, alpha, logMinX
1001 real(RKG) :: logCDF
1002 end function
1003#endif
1004
1005#if RK3_ENABLED
1006 PURE elemental module function getParetoLogCDFALD_RK3(logx, alpha, logMinX) result(logCDF)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALD_RK3
1009#endif
1010 use pm_kind, only: RKG => RK3
1011 real(RKG) , intent(in) :: logx, alpha, logMinX
1012 real(RKG) :: logCDF
1013 end function
1014#endif
1015
1016#if RK2_ENABLED
1017 PURE elemental module function getParetoLogCDFALD_RK2(logx, alpha, logMinX) result(logCDF)
1018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1019 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALD_RK2
1020#endif
1021 use pm_kind, only: RKG => RK2
1022 real(RKG) , intent(in) :: logx, alpha, logMinX
1023 real(RKG) :: logCDF
1024 end function
1025#endif
1026
1027#if RK1_ENABLED
1028 PURE elemental module function getParetoLogCDFALD_RK1(logx, alpha, logMinX) result(logCDF)
1029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1030 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALD_RK1
1031#endif
1032 use pm_kind, only: RKG => RK1
1033 real(RKG) , intent(in) :: logx, alpha, logMinX
1034 real(RKG) :: logCDF
1035 end function
1036#endif
1037
1038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1039
1040#if RK5_ENABLED
1041 PURE elemental module function getParetoLogCDFALL_RK5(logx, alpha, logMinX, logMaxX) result(logCDF)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALL_RK5
1044#endif
1045 use pm_kind, only: RKG => RK5
1046 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
1047 real(RKG) :: logCDF
1048 end function
1049#endif
1050
1051#if RK4_ENABLED
1052 PURE elemental module function getParetoLogCDFALL_RK4(logx, alpha, logMinX, logMaxX) result(logCDF)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALL_RK4
1055#endif
1056 use pm_kind, only: RKG => RK4
1057 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
1058 real(RKG) :: logCDF
1059 end function
1060#endif
1061
1062#if RK3_ENABLED
1063 PURE elemental module function getParetoLogCDFALL_RK3(logx, alpha, logMinX, logMaxX) result(logCDF)
1064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1065 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALL_RK3
1066#endif
1067 use pm_kind, only: RKG => RK3
1068 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
1069 real(RKG) :: logCDF
1070 end function
1071#endif
1072
1073#if RK2_ENABLED
1074 PURE elemental module function getParetoLogCDFALL_RK2(logx, alpha, logMinX, logMaxX) result(logCDF)
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALL_RK2
1077#endif
1078 use pm_kind, only: RKG => RK2
1079 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
1080 real(RKG) :: logCDF
1081 end function
1082#endif
1083
1084#if RK1_ENABLED
1085 PURE elemental module function getParetoLogCDFALL_RK1(logx, alpha, logMinX, logMaxX) result(logCDF)
1086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1087 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogCDFALL_RK1
1088#endif
1089 use pm_kind, only: RKG => RK1
1090 real(RKG) , intent(in) :: logx, alpha, logMinX, logMaxX
1091 real(RKG) :: logCDF
1092 end function
1093#endif
1094
1095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096
1097 end interface
1098
1099!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1100
1168 interface setParetoLogCDF
1169
1170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1171
1172#if RK5_ENABLED
1173 PURE elemental module subroutine setParetoLogCDFALD_RK5(logCDF, logx, alpha, logMinX)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALD_RK5
1176#endif
1177 use pm_kind, only: RKG => RK5
1178 real(RKG) , intent(out) :: logCDF
1179 real(RKG) , intent(in) :: logx, alpha, logMinX
1180 end subroutine
1181#endif
1182
1183#if RK4_ENABLED
1184 PURE elemental module subroutine setParetoLogCDFALD_RK4(logCDF, logx, alpha, logMinX)
1185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1186 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALD_RK4
1187#endif
1188 use pm_kind, only: RKG => RK4
1189 real(RKG) , intent(out) :: logCDF
1190 real(RKG) , intent(in) :: logx, alpha, logMinX
1191 end subroutine
1192#endif
1193
1194#if RK3_ENABLED
1195 PURE elemental module subroutine setParetoLogCDFALD_RK3(logCDF, logx, alpha, logMinX)
1196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1197 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALD_RK3
1198#endif
1199 use pm_kind, only: RKG => RK3
1200 real(RKG) , intent(out) :: logCDF
1201 real(RKG) , intent(in) :: logx, alpha, logMinX
1202 end subroutine
1203#endif
1204
1205#if RK2_ENABLED
1206 PURE elemental module subroutine setParetoLogCDFALD_RK2(logCDF, logx, alpha, logMinX)
1207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1208 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALD_RK2
1209#endif
1210 use pm_kind, only: RKG => RK2
1211 real(RKG) , intent(out) :: logCDF
1212 real(RKG) , intent(in) :: logx, alpha, logMinX
1213 end subroutine
1214#endif
1215
1216#if RK1_ENABLED
1217 PURE elemental module subroutine setParetoLogCDFALD_RK1(logCDF, logx, alpha, logMinX)
1218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1219 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALD_RK1
1220#endif
1221 use pm_kind, only: RKG => RK1
1222 real(RKG) , intent(out) :: logCDF
1223 real(RKG) , intent(in) :: logx, alpha, logMinX
1224 end subroutine
1225#endif
1226
1227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1228
1229#if RK5_ENABLED
1230 PURE elemental module subroutine setParetoLogCDFALL_RK5(logCDF, logx, alpha, logMinX, logCDFNF)
1231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1232 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALL_RK5
1233#endif
1234 use pm_kind, only: RKG => RK5
1235 real(RKG) , intent(out) :: logCDF
1236 real(RKG) , intent(in) :: logx, alpha, logMinX, logCDFNF
1237 end subroutine
1238#endif
1239
1240#if RK4_ENABLED
1241 PURE elemental module subroutine setParetoLogCDFALL_RK4(logCDF, logx, alpha, logMinX, logCDFNF)
1242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1243 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALL_RK4
1244#endif
1245 use pm_kind, only: RKG => RK4
1246 real(RKG) , intent(out) :: logCDF
1247 real(RKG) , intent(in) :: logx, alpha, logMinX, logCDFNF
1248 end subroutine
1249#endif
1250
1251#if RK3_ENABLED
1252 PURE elemental module subroutine setParetoLogCDFALL_RK3(logCDF, logx, alpha, logMinX, logCDFNF)
1253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1254 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALL_RK3
1255#endif
1256 use pm_kind, only: RKG => RK3
1257 real(RKG) , intent(out) :: logCDF
1258 real(RKG) , intent(in) :: logx, alpha, logMinX, logCDFNF
1259 end subroutine
1260#endif
1261
1262#if RK2_ENABLED
1263 PURE elemental module subroutine setParetoLogCDFALL_RK2(logCDF, logx, alpha, logMinX, logCDFNF)
1264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1265 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALL_RK2
1266#endif
1267 use pm_kind, only: RKG => RK2
1268 real(RKG) , intent(out) :: logCDF
1269 real(RKG) , intent(in) :: logx, alpha, logMinX, logCDFNF
1270 end subroutine
1271#endif
1272
1273#if RK1_ENABLED
1274 PURE elemental module subroutine setParetoLogCDFALL_RK1(logCDF, logx, alpha, logMinX, logCDFNF)
1275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1276 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogCDFALL_RK1
1277#endif
1278 use pm_kind, only: RKG => RK1
1279 real(RKG) , intent(out) :: logCDF
1280 real(RKG) , intent(in) :: logx, alpha, logMinX, logCDFNF
1281 end subroutine
1282#endif
1283
1284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1285
1286 end interface
1287
1288!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1289
1358 interface getParetoLogQuan
1359
1360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1361
1362#if RK5_ENABLED
1363 PURE elemental module function getParetoLogQuanALD_RK5(logCDF, alpha, logMinX) result(logx)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALD_RK5
1366#endif
1367 use pm_kind, only: RKG => RK5
1368 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1369 real(RKG) :: logx
1370 end function
1371#endif
1372
1373#if RK4_ENABLED
1374 PURE elemental module function getParetoLogQuanALD_RK4(logCDF, alpha, logMinX) result(logx)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALD_RK4
1377#endif
1378 use pm_kind, only: RKG => RK4
1379 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1380 real(RKG) :: logx
1381 end function
1382#endif
1383
1384#if RK3_ENABLED
1385 PURE elemental module function getParetoLogQuanALD_RK3(logCDF, alpha, logMinX) result(logx)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALD_RK3
1388#endif
1389 use pm_kind, only: RKG => RK3
1390 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1391 real(RKG) :: logx
1392 end function
1393#endif
1394
1395#if RK2_ENABLED
1396 PURE elemental module function getParetoLogQuanALD_RK2(logCDF, alpha, logMinX) result(logx)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALD_RK2
1399#endif
1400 use pm_kind, only: RKG => RK2
1401 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1402 real(RKG) :: logx
1403 end function
1404#endif
1405
1406#if RK1_ENABLED
1407 PURE elemental module function getParetoLogQuanALD_RK1(logCDF, alpha, logMinX) result(logx)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALD_RK1
1410#endif
1411 use pm_kind, only: RKG => RK1
1412 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1413 real(RKG) :: logx
1414 end function
1415#endif
1416
1417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1418
1419#if RK5_ENABLED
1420 PURE elemental module function getParetoLogQuanALL_RK5(logCDF, alpha, logMinX, logMaxX) result(logx)
1421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1422 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALL_RK5
1423#endif
1424 use pm_kind, only: RKG => RK5
1425 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logMaxX
1426 real(RKG) :: logx
1427 end function
1428#endif
1429
1430#if RK4_ENABLED
1431 PURE elemental module function getParetoLogQuanALL_RK4(logCDF, alpha, logMinX, logMaxX) result(logx)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALL_RK4
1434#endif
1435 use pm_kind, only: RKG => RK4
1436 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logMaxX
1437 real(RKG) :: logx
1438 end function
1439#endif
1440
1441#if RK3_ENABLED
1442 PURE elemental module function getParetoLogQuanALL_RK3(logCDF, alpha, logMinX, logMaxX) result(logx)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALL_RK3
1445#endif
1446 use pm_kind, only: RKG => RK3
1447 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logMaxX
1448 real(RKG) :: logx
1449 end function
1450#endif
1451
1452#if RK2_ENABLED
1453 PURE elemental module function getParetoLogQuanALL_RK2(logCDF, alpha, logMinX, logMaxX) result(logx)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALL_RK2
1456#endif
1457 use pm_kind, only: RKG => RK2
1458 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logMaxX
1459 real(RKG) :: logx
1460 end function
1461#endif
1462
1463#if RK1_ENABLED
1464 PURE elemental module function getParetoLogQuanALL_RK1(logCDF, alpha, logMinX, logMaxX) result(logx)
1465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1466 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogQuanALL_RK1
1467#endif
1468 use pm_kind, only: RKG => RK1
1469 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logMaxX
1470 real(RKG) :: logx
1471 end function
1472#endif
1473
1474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1475
1476 end interface
1477
1478!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1479
1546 interface setParetoLogQuan
1547
1548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1549
1550#if RK5_ENABLED
1551 PURE elemental module subroutine setParetoLogQuanLLALD_RK5(logx, logCDF, alpha, logMinX)
1552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1553 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALD_RK5
1554#endif
1555 use pm_kind, only: RKG => RK5
1556 real(RKG) , intent(out) :: logx
1557 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1558 end subroutine
1559#endif
1560
1561#if RK4_ENABLED
1562 PURE elemental module subroutine setParetoLogQuanLLALD_RK4(logx, logCDF, alpha, logMinX)
1563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1564 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALD_RK4
1565#endif
1566 use pm_kind, only: RKG => RK4
1567 real(RKG) , intent(out) :: logx
1568 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1569 end subroutine
1570#endif
1571
1572#if RK3_ENABLED
1573 PURE elemental module subroutine setParetoLogQuanLLALD_RK3(logx, logCDF, alpha, logMinX)
1574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1575 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALD_RK3
1576#endif
1577 use pm_kind, only: RKG => RK3
1578 real(RKG) , intent(out) :: logx
1579 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1580 end subroutine
1581#endif
1582
1583#if RK2_ENABLED
1584 PURE elemental module subroutine setParetoLogQuanLLALD_RK2(logx, logCDF, alpha, logMinX)
1585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1586 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALD_RK2
1587#endif
1588 use pm_kind, only: RKG => RK2
1589 real(RKG) , intent(out) :: logx
1590 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1591 end subroutine
1592#endif
1593
1594#if RK1_ENABLED
1595 PURE elemental module subroutine setParetoLogQuanLLALD_RK1(logx, logCDF, alpha, logMinX)
1596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1597 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALD_RK1
1598#endif
1599 use pm_kind, only: RKG => RK1
1600 real(RKG) , intent(out) :: logx
1601 real(RKG) , intent(in) :: logCDF, alpha, logMinX
1602 end subroutine
1603#endif
1604
1605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1606
1607#if RK5_ENABLED
1608 PURE elemental module subroutine setParetoLogQuanLLALL_RK5(logx, logCDF, alpha, logMinX, logCDFNF)
1609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1610 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALL_RK5
1611#endif
1612 use pm_kind, only: RKG => RK5
1613 real(RKG) , intent(out) :: logx
1614 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logCDFNF
1615 end subroutine
1616#endif
1617
1618#if RK4_ENABLED
1619 PURE elemental module subroutine setParetoLogQuanLLALL_RK4(logx, logCDF, alpha, logMinX, logCDFNF)
1620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1621 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALL_RK4
1622#endif
1623 use pm_kind, only: RKG => RK4
1624 real(RKG) , intent(out) :: logx
1625 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logCDFNF
1626 end subroutine
1627#endif
1628
1629#if RK3_ENABLED
1630 PURE elemental module subroutine setParetoLogQuanLLALL_RK3(logx, logCDF, alpha, logMinX, logCDFNF)
1631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1632 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALL_RK3
1633#endif
1634 use pm_kind, only: RKG => RK3
1635 real(RKG) , intent(out) :: logx
1636 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logCDFNF
1637 end subroutine
1638#endif
1639
1640#if RK2_ENABLED
1641 PURE elemental module subroutine setParetoLogQuanLLALL_RK2(logx, logCDF, alpha, logMinX, logCDFNF)
1642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1643 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALL_RK2
1644#endif
1645 use pm_kind, only: RKG => RK2
1646 real(RKG) , intent(out) :: logx
1647 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logCDFNF
1648 end subroutine
1649#endif
1650
1651#if RK1_ENABLED
1652 PURE elemental module subroutine setParetoLogQuanLLALL_RK1(logx, logCDF, alpha, logMinX, logCDFNF)
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogQuanLLALL_RK1
1655#endif
1656 use pm_kind, only: RKG => RK1
1657 real(RKG) , intent(out) :: logx
1658 real(RKG) , intent(in) :: logCDF, alpha, logMinX, logCDFNF
1659 end subroutine
1660#endif
1661
1662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1663
1664 end interface
1665
1666!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1667
1732 interface getParetoLogRand
1733
1734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1735
1736#if RK5_ENABLED
1737 impure elemental module function getParetoLogRandALD_RK5(alpha, logMinX) result(logRand)
1738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1739 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALD_RK5
1740#endif
1741 use pm_kind, only: RKG => RK5
1742 real(RKG) , intent(in) :: alpha, logMinX
1743 real(RKG) :: logRand
1744 end function
1745#endif
1746
1747#if RK4_ENABLED
1748 impure elemental module function getParetoLogRandALD_RK4(alpha, logMinX) result(logRand)
1749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1750 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALD_RK4
1751#endif
1752 use pm_kind, only: RKG => RK4
1753 real(RKG) , intent(in) :: alpha, logMinX
1754 real(RKG) :: logRand
1755 end function
1756#endif
1757
1758#if RK3_ENABLED
1759 impure elemental module function getParetoLogRandALD_RK3(alpha, logMinX) result(logRand)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALD_RK3
1762#endif
1763 use pm_kind, only: RKG => RK3
1764 real(RKG) , intent(in) :: alpha, logMinX
1765 real(RKG) :: logRand
1766 end function
1767#endif
1768
1769#if RK2_ENABLED
1770 impure elemental module function getParetoLogRandALD_RK2(alpha, logMinX) result(logRand)
1771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1772 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALD_RK2
1773#endif
1774 use pm_kind, only: RKG => RK2
1775 real(RKG) , intent(in) :: alpha, logMinX
1776 real(RKG) :: logRand
1777 end function
1778#endif
1779
1780#if RK1_ENABLED
1781 impure elemental module function getParetoLogRandALD_RK1(alpha, logMinX) result(logRand)
1782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1783 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALD_RK1
1784#endif
1785 use pm_kind, only: RKG => RK1
1786 real(RKG) , intent(in) :: alpha, logMinX
1787 real(RKG) :: logRand
1788 end function
1789#endif
1790
1791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1792
1793#if RK5_ENABLED
1794 impure elemental module function getParetoLogRandALL_RK5(alpha, logMinX, logMaxX) result(logRand)
1795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1796 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALL_RK5
1797#endif
1798 use pm_kind, only: RKG => RK5
1799 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
1800 real(RKG) :: logRand
1801 end function
1802#endif
1803
1804#if RK4_ENABLED
1805 impure elemental module function getParetoLogRandALL_RK4(alpha, logMinX, logMaxX) result(logRand)
1806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1807 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALL_RK4
1808#endif
1809 use pm_kind, only: RKG => RK4
1810 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
1811 real(RKG) :: logRand
1812 end function
1813#endif
1814
1815#if RK3_ENABLED
1816 impure elemental module function getParetoLogRandALL_RK3(alpha, logMinX, logMaxX) result(logRand)
1817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1818 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALL_RK3
1819#endif
1820 use pm_kind, only: RKG => RK3
1821 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
1822 real(RKG) :: logRand
1823 end function
1824#endif
1825
1826#if RK2_ENABLED
1827 impure elemental module function getParetoLogRandALL_RK2(alpha, logMinX, logMaxX) result(logRand)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALL_RK2
1830#endif
1831 use pm_kind, only: RKG => RK2
1832 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
1833 real(RKG) :: logRand
1834 end function
1835#endif
1836
1837#if RK1_ENABLED
1838 impure elemental module function getParetoLogRandALL_RK1(alpha, logMinX, logMaxX) result(logRand)
1839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1840 !DEC$ ATTRIBUTES DLLEXPORT :: getParetoLogRandALL_RK1
1841#endif
1842 use pm_kind, only: RKG => RK1
1843 real(RKG) , intent(in) :: alpha, logMinX, logMaxX
1844 real(RKG) :: logRand
1845 end function
1846#endif
1847
1848 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1849
1850 end interface
1851
1852!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1853
1925 interface setParetoLogRand
1926
1927 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1928
1929#if RK5_ENABLED
1930 PURE elemental module subroutine setParetoLogRandLNALD_RK5(logRand, negExpRand, alpha, logMinX)
1931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1932 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALD_RK5
1933#endif
1934 use pm_kind, only: RKG => RK5
1935 real(RKG) , intent(out) :: logRand
1936 real(RKG) , intent(in) :: negExpRand, alpha, logMinX
1937 end subroutine
1938#endif
1939
1940#if RK4_ENABLED
1941 PURE elemental module subroutine setParetoLogRandLNALD_RK4(logRand, negExpRand, alpha, logMinX)
1942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1943 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALD_RK4
1944#endif
1945 use pm_kind, only: RKG => RK4
1946 real(RKG) , intent(out) :: logRand
1947 real(RKG) , intent(in) :: negExpRand, alpha, logMinX
1948 end subroutine
1949#endif
1950
1951#if RK3_ENABLED
1952 PURE elemental module subroutine setParetoLogRandLNALD_RK3(logRand, negExpRand, alpha, logMinX)
1953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1954 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALD_RK3
1955#endif
1956 use pm_kind, only: RKG => RK3
1957 real(RKG) , intent(out) :: logRand
1958 real(RKG) , intent(in) :: negExpRand, alpha, logMinX
1959 end subroutine
1960#endif
1961
1962#if RK2_ENABLED
1963 PURE elemental module subroutine setParetoLogRandLNALD_RK2(logRand, negExpRand, alpha, logMinX)
1964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1965 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALD_RK2
1966#endif
1967 use pm_kind, only: RKG => RK2
1968 real(RKG) , intent(out) :: logRand
1969 real(RKG) , intent(in) :: negExpRand, alpha, logMinX
1970 end subroutine
1971#endif
1972
1973#if RK1_ENABLED
1974 PURE elemental module subroutine setParetoLogRandLNALD_RK1(logRand, negExpRand, alpha, logMinX)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALD_RK1
1977#endif
1978 use pm_kind, only: RKG => RK1
1979 real(RKG) , intent(out) :: logRand
1980 real(RKG) , intent(in) :: negExpRand, alpha, logMinX
1981 end subroutine
1982#endif
1983
1984 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1985
1986#if RK5_ENABLED
1987 PURE elemental module subroutine setParetoLogRandLNALL_RK5(logRand, negExpRand, alpha, logMinX, logCDFNF)
1988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1989 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALL_RK5
1990#endif
1991 use pm_kind, only: RKG => RK5
1992 real(RKG) , intent(out) :: logRand
1993 real(RKG) , intent(in) :: negExpRand, alpha, logMinX, logCDFNF
1994 end subroutine
1995#endif
1996
1997#if RK4_ENABLED
1998 PURE elemental module subroutine setParetoLogRandLNALL_RK4(logRand, negExpRand, alpha, logMinX, logCDFNF)
1999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2000 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALL_RK4
2001#endif
2002 use pm_kind, only: RKG => RK4
2003 real(RKG) , intent(out) :: logRand
2004 real(RKG) , intent(in) :: negExpRand, alpha, logMinX, logCDFNF
2005 end subroutine
2006#endif
2007
2008#if RK3_ENABLED
2009 PURE elemental module subroutine setParetoLogRandLNALL_RK3(logRand, negExpRand, alpha, logMinX, logCDFNF)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALL_RK3
2012#endif
2013 use pm_kind, only: RKG => RK3
2014 real(RKG) , intent(out) :: logRand
2015 real(RKG) , intent(in) :: negExpRand, alpha, logMinX, logCDFNF
2016 end subroutine
2017#endif
2018
2019#if RK2_ENABLED
2020 PURE elemental module subroutine setParetoLogRandLNALL_RK2(logRand, negExpRand, alpha, logMinX, logCDFNF)
2021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2022 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALL_RK2
2023#endif
2024 use pm_kind, only: RKG => RK2
2025 real(RKG) , intent(out) :: logRand
2026 real(RKG) , intent(in) :: negExpRand, alpha, logMinX, logCDFNF
2027 end subroutine
2028#endif
2029
2030#if RK1_ENABLED
2031 PURE elemental module subroutine setParetoLogRandLNALL_RK1(logRand, negExpRand, alpha, logMinX, logCDFNF)
2032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2033 !DEC$ ATTRIBUTES DLLEXPORT :: setParetoLogRandLNALL_RK1
2034#endif
2035 use pm_kind, only: RKG => RK1
2036 real(RKG) , intent(out) :: logRand
2037 real(RKG) , intent(in) :: negExpRand, alpha, logMinX, logCDFNF
2038 end subroutine
2039#endif
2040
2041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2042
2043 end interface
2044
2045!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2046
2047end module pm_distPareto
pm_distPareto::getParetoLogCDFNF
Generate and return the natural logarithm of the normalization factor of the CDF of the (Truncated) P...
Definition: pm_distPareto.F90:793
pm_distPareto::getParetoLogCDF
Generate and return the natural logarithm of the Cumulative Distribution Function (CDF) of the (Trunc...
Definition: pm_distPareto.F90:979
pm_distPareto::getParetoLogPDFNF
Generate and return the natural logarithm of the normalization factor of the PDF of the (Truncated) P...
Definition: pm_distPareto.F90:272
pm_distPareto::getParetoLogPDF
Generate and return the natural logarithm of the Probability Density Function (PDF) of the (Truncated...
Definition: pm_distPareto.F90:458
pm_distPareto::getParetoLogQuan
Generate and return a scalar (or array of arbitrary rank) of the natural logarithm(s) of quantile cor...
Definition: pm_distPareto.F90:1358
pm_distPareto::getParetoLogRand
Generate and return a scalar (or array of arbitrary rank) of the natural logarithm(s) of random value...
Definition: pm_distPareto.F90:1732
pm_distPareto::setParetoLogCDF
Return the natural logarithm of the Cumulative Distribution Function (CDF) of the (Truncated) Pareto ...
Definition: pm_distPareto.F90:1168
pm_distPareto::setParetoLogPDF
Return the natural logarithm of the Probability Density Function (PDF) of the (Truncated) Pareto dist...
Definition: pm_distPareto.F90:642
pm_distPareto::setParetoLogQuan
Return a scalar (or array of arbitrary rank) of the natural logarithm(s) of quantile corresponding to...
Definition: pm_distPareto.F90:1546
pm_distPareto::setParetoLogRand
Return a scalar (or array of arbitrary rank) of the natural logarithm(s) of random value(s) from the ...
Definition: pm_distPareto.F90:1925
pm_distPareto
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distPareto.F90:141
pm_distPareto::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distPareto.F90:147
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_distPareto::distPareto_type
This is the derived type for signifying distributions that are of type Pareto as defined in the descr...
Definition: pm_distPareto.F90:184