ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_distCosRaised.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
80
81!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82
83module pm_distCosRaised
84
85 use pm_kind, only: SK
86
87 implicit none
88
89 character(*, SK), parameter :: MODULE_NAME = "@pm_distCosRaised"
90
91!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92
126 type :: distCosRaised_type
127 end type
128
129!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130
196 interface getCosRaisedPDF
197
198 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199
200#if RK5_ENABLED
201 PURE elemental module function getCosRaisedPDF_RK5(x, mu, sigma) result(pdf)
202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
203 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedPDF_RK5
204#endif
205 use pm_kind, only: RKG => RK5
206 real(RKG) , intent(in) :: x
207 real(RKG) , intent(in) , optional :: mu, sigma
208 real(RKG) :: pdf
209 end function
210#endif
211
212#if RK4_ENABLED
213 PURE elemental module function getCosRaisedPDF_RK4(x, mu, sigma) result(pdf)
214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
215 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedPDF_RK4
216#endif
217 use pm_kind, only: RKG => RK4
218 real(RKG) , intent(in) :: x
219 real(RKG) , intent(in) , optional :: mu, sigma
220 real(RKG) :: pdf
221 end function
222#endif
223
224#if RK3_ENABLED
225 PURE elemental module function getCosRaisedPDF_RK3(x, mu, sigma) result(pdf)
226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
227 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedPDF_RK3
228#endif
229 use pm_kind, only: RKG => RK3
230 real(RKG) , intent(in) :: x
231 real(RKG) , intent(in) , optional :: mu, sigma
232 real(RKG) :: pdf
233 end function
234#endif
235
236#if RK2_ENABLED
237 PURE elemental module function getCosRaisedPDF_RK2(x, mu, sigma) result(pdf)
238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
239 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedPDF_RK2
240#endif
241 use pm_kind, only: RKG => RK2
242 real(RKG) , intent(in) :: x
243 real(RKG) , intent(in) , optional :: mu, sigma
244 real(RKG) :: pdf
245 end function
246#endif
247
248#if RK1_ENABLED
249 PURE elemental module function getCosRaisedPDF_RK1(x, mu, sigma) result(pdf)
250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
251 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedPDF_RK1
252#endif
253 use pm_kind, only: RKG => RK1
254 real(RKG) , intent(in) :: x
255 real(RKG) , intent(in) , optional :: mu, sigma
256 real(RKG) :: pdf
257 end function
258#endif
259
260 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261
262 end interface
263
264!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265
332 interface setCosRaisedPDF
333
334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335
336#if RK5_ENABLED
337 PURE elemental module subroutine setCosRaisedPDFXDD_RK5(pdf, x)
338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
339 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXDD_RK5
340#endif
341 use pm_kind, only: RKG => RK5
342 real(RKG) , intent(out) :: pdf
343 real(RKG) , intent(in) :: x
344 end subroutine
345#endif
346
347#if RK4_ENABLED
348 PURE elemental module subroutine setCosRaisedPDFXDD_RK4(pdf, x)
349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
350 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXDD_RK4
351#endif
352 use pm_kind, only: RKG => RK4
353 real(RKG) , intent(out) :: pdf
354 real(RKG) , intent(in) :: x
355 end subroutine
356#endif
357
358#if RK3_ENABLED
359 PURE elemental module subroutine setCosRaisedPDFXDD_RK3(pdf, x)
360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
361 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXDD_RK3
362#endif
363 use pm_kind, only: RKG => RK3
364 real(RKG) , intent(out) :: pdf
365 real(RKG) , intent(in) :: x
366 end subroutine
367#endif
368
369#if RK2_ENABLED
370 PURE elemental module subroutine setCosRaisedPDFXDD_RK2(pdf, x)
371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXDD_RK2
373#endif
374 use pm_kind, only: RKG => RK2
375 real(RKG) , intent(out) :: pdf
376 real(RKG) , intent(in) :: x
377 end subroutine
378#endif
379
380#if RK1_ENABLED
381 PURE elemental module subroutine setCosRaisedPDFXDD_RK1(pdf, x)
382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
383 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXDD_RK1
384#endif
385 use pm_kind, only: RKG => RK1
386 real(RKG) , intent(out) :: pdf
387 real(RKG) , intent(in) :: x
388 end subroutine
389#endif
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module subroutine setCosRaisedPDFXMD_RK5(pdf, x, mu)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMD_RK5
397#endif
398 use pm_kind, only: RKG => RK5
399 real(RKG) , intent(out) :: pdf
400 real(RKG) , intent(in) :: x, mu
401 end subroutine
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module subroutine setCosRaisedPDFXMD_RK4(pdf, x, mu)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMD_RK4
408#endif
409 use pm_kind, only: RKG => RK4
410 real(RKG) , intent(out) :: pdf
411 real(RKG) , intent(in) :: x, mu
412 end subroutine
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module subroutine setCosRaisedPDFXMD_RK3(pdf, x, mu)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMD_RK3
419#endif
420 use pm_kind, only: RKG => RK3
421 real(RKG) , intent(out) :: pdf
422 real(RKG) , intent(in) :: x, mu
423 end subroutine
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module subroutine setCosRaisedPDFXMD_RK2(pdf, x, mu)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMD_RK2
430#endif
431 use pm_kind, only: RKG => RK2
432 real(RKG) , intent(out) :: pdf
433 real(RKG) , intent(in) :: x, mu
434 end subroutine
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module subroutine setCosRaisedPDFXMD_RK1(pdf, x, mu)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMD_RK1
441#endif
442 use pm_kind, only: RKG => RK1
443 real(RKG) , intent(out) :: pdf
444 real(RKG) , intent(in) :: x, mu
445 end subroutine
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450#if RK5_ENABLED
451 PURE elemental module subroutine setCosRaisedPDFXMI_RK5(pdf, x, mu, invSigma)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMI_RK5
454#endif
455 use pm_kind, only: RKG => RK5
456 real(RKG) , intent(out) :: pdf
457 real(RKG) , intent(in) :: x, mu, invSigma
458 end subroutine
459#endif
460
461#if RK4_ENABLED
462 PURE elemental module subroutine setCosRaisedPDFXMI_RK4(pdf, x, mu, invSigma)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMI_RK4
465#endif
466 use pm_kind, only: RKG => RK4
467 real(RKG) , intent(out) :: pdf
468 real(RKG) , intent(in) :: x, mu, invSigma
469 end subroutine
470#endif
471
472#if RK3_ENABLED
473 PURE elemental module subroutine setCosRaisedPDFXMI_RK3(pdf, x, mu, invSigma)
474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
475 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMI_RK3
476#endif
477 use pm_kind, only: RKG => RK3
478 real(RKG) , intent(out) :: pdf
479 real(RKG) , intent(in) :: x, mu, invSigma
480 end subroutine
481#endif
482
483#if RK2_ENABLED
484 PURE elemental module subroutine setCosRaisedPDFXMI_RK2(pdf, x, mu, invSigma)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMI_RK2
487#endif
488 use pm_kind, only: RKG => RK2
489 real(RKG) , intent(out) :: pdf
490 real(RKG) , intent(in) :: x, mu, invSigma
491 end subroutine
492#endif
493
494#if RK1_ENABLED
495 PURE elemental module subroutine setCosRaisedPDFXMI_RK1(pdf, x, mu, invSigma)
496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
497 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedPDFXMI_RK1
498#endif
499 use pm_kind, only: RKG => RK1
500 real(RKG) , intent(out) :: pdf
501 real(RKG) , intent(in) :: x, mu, invSigma
502 end subroutine
503#endif
504
505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506
507 end interface
508
509!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510
576 interface getCosRaisedCDF
577
578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579
580#if RK5_ENABLED
581 PURE elemental module function getCosRaisedCDF_RK5(x, mu, sigma) result(cdf)
582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
583 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedCDF_RK5
584#endif
585 use pm_kind, only: RKG => RK5
586 real(RKG) , intent(in) :: x
587 real(RKG) , intent(in) , optional :: mu, sigma
588 real(RKG) :: cdf
589 end function
590#endif
591
592#if RK4_ENABLED
593 PURE elemental module function getCosRaisedCDF_RK4(x, mu, sigma) result(cdf)
594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
595 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedCDF_RK4
596#endif
597 use pm_kind, only: RKG => RK4
598 real(RKG) , intent(in) :: x
599 real(RKG) , intent(in) , optional :: mu, sigma
600 real(RKG) :: cdf
601 end function
602#endif
603
604#if RK3_ENABLED
605 PURE elemental module function getCosRaisedCDF_RK3(x, mu, sigma) result(cdf)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedCDF_RK3
608#endif
609 use pm_kind, only: RKG => RK3
610 real(RKG) , intent(in) :: x
611 real(RKG) , intent(in) , optional :: mu, sigma
612 real(RKG) :: cdf
613 end function
614#endif
615
616#if RK2_ENABLED
617 PURE elemental module function getCosRaisedCDF_RK2(x, mu, sigma) result(cdf)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedCDF_RK2
620#endif
621 use pm_kind, only: RKG => RK2
622 real(RKG) , intent(in) :: x
623 real(RKG) , intent(in) , optional :: mu, sigma
624 real(RKG) :: cdf
625 end function
626#endif
627
628#if RK1_ENABLED
629 PURE elemental module function getCosRaisedCDF_RK1(x, mu, sigma) result(cdf)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: getCosRaisedCDF_RK1
632#endif
633 use pm_kind, only: RKG => RK1
634 real(RKG) , intent(in) :: x
635 real(RKG) , intent(in) , optional :: mu, sigma
636 real(RKG) :: cdf
637 end function
638#endif
639
640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641
642 end interface
643
644!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645
712 interface setCosRaisedCDF
713
714 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
715
716#if RK5_ENABLED
717 PURE elemental module subroutine setCosRaisedCDFXDD_RK5(cdf, x)
718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
719 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXDD_RK5
720#endif
721 use pm_kind, only: RKG => RK5
722 real(RKG) , intent(out) :: cdf
723 real(RKG) , intent(in) :: x
724 end subroutine
725#endif
726
727#if RK4_ENABLED
728 PURE elemental module subroutine setCosRaisedCDFXDD_RK4(cdf, x)
729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
730 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXDD_RK4
731#endif
732 use pm_kind, only: RKG => RK4
733 real(RKG) , intent(out) :: cdf
734 real(RKG) , intent(in) :: x
735 end subroutine
736#endif
737
738#if RK3_ENABLED
739 PURE elemental module subroutine setCosRaisedCDFXDD_RK3(cdf, x)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXDD_RK3
742#endif
743 use pm_kind, only: RKG => RK3
744 real(RKG) , intent(out) :: cdf
745 real(RKG) , intent(in) :: x
746 end subroutine
747#endif
748
749#if RK2_ENABLED
750 PURE elemental module subroutine setCosRaisedCDFXDD_RK2(cdf, x)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXDD_RK2
753#endif
754 use pm_kind, only: RKG => RK2
755 real(RKG) , intent(out) :: cdf
756 real(RKG) , intent(in) :: x
757 end subroutine
758#endif
759
760#if RK1_ENABLED
761 PURE elemental module subroutine setCosRaisedCDFXDD_RK1(cdf, x)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXDD_RK1
764#endif
765 use pm_kind, only: RKG => RK1
766 real(RKG) , intent(out) :: cdf
767 real(RKG) , intent(in) :: x
768 end subroutine
769#endif
770
771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772
773#if RK5_ENABLED
774 PURE elemental module subroutine setCosRaisedCDFXMD_RK5(cdf, x, mu)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMD_RK5
777#endif
778 use pm_kind, only: RKG => RK5
779 real(RKG) , intent(out) :: cdf
780 real(RKG) , intent(in) :: x, mu
781 end subroutine
782#endif
783
784#if RK4_ENABLED
785 PURE elemental module subroutine setCosRaisedCDFXMD_RK4(cdf, x, mu)
786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
787 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMD_RK4
788#endif
789 use pm_kind, only: RKG => RK4
790 real(RKG) , intent(out) :: cdf
791 real(RKG) , intent(in) :: x, mu
792 end subroutine
793#endif
794
795#if RK3_ENABLED
796 PURE elemental module subroutine setCosRaisedCDFXMD_RK3(cdf, x, mu)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMD_RK3
799#endif
800 use pm_kind, only: RKG => RK3
801 real(RKG) , intent(out) :: cdf
802 real(RKG) , intent(in) :: x, mu
803 end subroutine
804#endif
805
806#if RK2_ENABLED
807 PURE elemental module subroutine setCosRaisedCDFXMD_RK2(cdf, x, mu)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMD_RK2
810#endif
811 use pm_kind, only: RKG => RK2
812 real(RKG) , intent(out) :: cdf
813 real(RKG) , intent(in) :: x, mu
814 end subroutine
815#endif
816
817#if RK1_ENABLED
818 PURE elemental module subroutine setCosRaisedCDFXMD_RK1(cdf, x, mu)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMD_RK1
821#endif
822 use pm_kind, only: RKG => RK1
823 real(RKG) , intent(out) :: cdf
824 real(RKG) , intent(in) :: x, mu
825 end subroutine
826#endif
827
828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
829
830#if RK5_ENABLED
831 PURE elemental module subroutine setCosRaisedCDFXMI_RK5(cdf, x, mu, invSigma)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMI_RK5
834#endif
835 use pm_kind, only: RKG => RK5
836 real(RKG) , intent(out) :: cdf
837 real(RKG) , intent(in) :: x, mu, invSigma
838 end subroutine
839#endif
840
841#if RK4_ENABLED
842 PURE elemental module subroutine setCosRaisedCDFXMI_RK4(cdf, x, mu, invSigma)
843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
844 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMI_RK4
845#endif
846 use pm_kind, only: RKG => RK4
847 real(RKG) , intent(out) :: cdf
848 real(RKG) , intent(in) :: x, mu, invSigma
849 end subroutine
850#endif
851
852#if RK3_ENABLED
853 PURE elemental module subroutine setCosRaisedCDFXMI_RK3(cdf, x, mu, invSigma)
854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
855 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMI_RK3
856#endif
857 use pm_kind, only: RKG => RK3
858 real(RKG) , intent(out) :: cdf
859 real(RKG) , intent(in) :: x, mu, invSigma
860 end subroutine
861#endif
862
863#if RK2_ENABLED
864 PURE elemental module subroutine setCosRaisedCDFXMI_RK2(cdf, x, mu, invSigma)
865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
866 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMI_RK2
867#endif
868 use pm_kind, only: RKG => RK2
869 real(RKG) , intent(out) :: cdf
870 real(RKG) , intent(in) :: x, mu, invSigma
871 end subroutine
872#endif
873
874#if RK1_ENABLED
875 PURE elemental module subroutine setCosRaisedCDFXMI_RK1(cdf, x, mu, invSigma)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: setCosRaisedCDFXMI_RK1
878#endif
879 use pm_kind, only: RKG => RK1
880 real(RKG) , intent(out) :: cdf
881 real(RKG) , intent(in) :: x, mu, invSigma
882 end subroutine
883#endif
884
885 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
886
887 end interface
888
889!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890
891end module pm_distCosRaised
pm_distCosRaised::getCosRaisedCDF
Generate and return the Cumulative Distribution Function (CDF) of the Raised Cosine distribution for ...
Definition: pm_distCosRaised.F90:576
pm_distCosRaised::getCosRaisedPDF
Generate and return the Probability Density Function (PDF) of the Raised Cosine distribution for an i...
Definition: pm_distCosRaised.F90:196
pm_distCosRaised::setCosRaisedCDF
Return the Cumulative Distribution Function (CDF) of the Raised Cosine distribution for an input x wi...
Definition: pm_distCosRaised.F90:712
pm_distCosRaised::setCosRaisedPDF
Return the Probability Density Function (PDF) of the Raised Cosine distribution for an input x within...
Definition: pm_distCosRaised.F90:332
pm_distCosRaised
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distCosRaised.F90:83
pm_distCosRaised::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distCosRaised.F90:89
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_distCosRaised::distCosRaised_type
This is the derived type for signifying distributions that are of type Raised Cosine as defined in th...
Definition: pm_distCosRaised.F90:126