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
84
85 use pm_kind, only: SK
86
87 implicit none
88
89 character(*, SK), parameter :: MODULE_NAME = "@pm_distCosRaised"
90
91!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92
127 end type
128
129!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130
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
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
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
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
Generate and return the Cumulative Distribution Function (CDF) of the Raised Cosine distribution for ...
Generate and return the Probability Density Function (PDF) of the Raised Cosine distribution for an i...
Return the Cumulative Distribution Function (CDF) of the Raised Cosine distribution for an input x wi...
Return the Probability Density Function (PDF) of the Raised Cosine distribution for an input x within...
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 Raised Cosine as defined in th...