Line data    Source code

       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             : 
      17             : !>  \brief
      18             : !>  This module contains tests of the module [pm_distGenExpGamma](@ref pm_distGenExpGamma).
      19             : !>
      20             : !>  \test
      21             : !>  [test_pm_distGenExpGamma](@ref test_pm_distGenExpGamma)
      22             : !>
      23             : !>  \fintest
      24             : !>
      25             : !>  \author
      26             : !>  \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
      27             : 
      28             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      29             : 
      30             : module test_pm_distGenExpGamma
      31             : 
      32             :     use pm_distGenExpGamma
      33             :     use pm_err, only: err_type
      34             :     use pm_test, only: test_type, LK, IK
      35             : 
      36             :     implicit none
      37             : 
      38             :     private
      39             :     public :: setTest
      40             :     type(test_type) :: test
      41             : 
      42             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      43             : 
      44             :     interface
      45             : #if     RK5_ENABLED
      46             :         module function test_getGenExpGammaLogPDFNF_RK5_1() result(assertion); logical(LK) :: assertion; end function
      47             : #endif
      48             : #if     RK4_ENABLED
      49             :         module function test_getGenExpGammaLogPDFNF_RK4_1() result(assertion); logical(LK) :: assertion; end function
      50             : #endif
      51             : #if     RK3_ENABLED
      52             :         module function test_getGenExpGammaLogPDFNF_RK3_1() result(assertion); logical(LK) :: assertion; end function
      53             : #endif
      54             : #if     RK2_ENABLED
      55             :         module function test_getGenExpGammaLogPDFNF_RK2_1() result(assertion); logical(LK) :: assertion; end function
      56             : #endif
      57             : #if     RK1_ENABLED
      58             :         module function test_getGenExpGammaLogPDFNF_RK1_1() result(assertion); logical(LK) :: assertion; end function
      59             : #endif
      60             :     end interface
      61             : 
      62             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      63             : 
      64             :     interface
      65             : #if     RK5_ENABLED
      66             :         module function test_getGenExpGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
      67             : #endif
      68             : #if     RK4_ENABLED
      69             :         module function test_getGenExpGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
      70             : #endif
      71             : #if     RK3_ENABLED
      72             :         module function test_getGenExpGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
      73             : #endif
      74             : #if     RK2_ENABLED
      75             :         module function test_getGenExpGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
      76             : #endif
      77             : #if     RK1_ENABLED
      78             :         module function test_getGenExpGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
      79             : #endif
      80             :     end interface
      81             : 
      82             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      83             : 
      84             :     interface
      85             : #if     RK5_ENABLED
      86             :         module function test_setGenExpGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
      87             : #endif
      88             : #if     RK4_ENABLED
      89             :         module function test_setGenExpGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
      90             : #endif
      91             : #if     RK3_ENABLED
      92             :         module function test_setGenExpGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
      93             : #endif
      94             : #if     RK2_ENABLED
      95             :         module function test_setGenExpGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
      96             : #endif
      97             : #if     RK1_ENABLED
      98             :         module function test_setGenExpGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
      99             : #endif
     100             :     end interface
     101             : 
     102             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     103             : 
     104             : contains
     105             : 
     106             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     107             : 
     108           1 :     subroutine setTest()
     109             : 
     110           1 :         test = test_type(MODULE_NAME)
     111             : 
     112             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     113             : 
     114             : #if     RK5_ENABLED
     115             :         call test%run(test_getGenExpGammaLogPDFNF_RK5_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
     116             : #endif
     117             : #if     RK4_ENABLED
     118           1 :         call test%run(test_getGenExpGammaLogPDFNF_RK4_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
     119             : #endif
     120             : #if     RK3_ENABLED
     121           1 :         call test%run(test_getGenExpGammaLogPDFNF_RK3_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
     122             : #endif
     123             : #if     RK2_ENABLED
     124           1 :         call test%run(test_getGenExpGammaLogPDFNF_RK2_1, SK_"test_getGenExpGammaLogPDFNF_RK2_1")
     125             : #endif
     126             : #if     RK1_ENABLED
     127           1 :         call test%run(test_getGenExpGammaLogPDFNF_RK1_1, SK_"test_getGenExpGammaLogPDFNF_RK1_1")
     128             : #endif
     129             : 
     130             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     131             : 
     132             : #if     RK5_ENABLED
     133             :         call test%run(test_getGenExpGammaLogPDF_RK5_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
     134             : #endif
     135             : #if     RK4_ENABLED
     136           1 :         call test%run(test_getGenExpGammaLogPDF_RK4_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
     137             : #endif
     138             : #if     RK3_ENABLED
     139           1 :         call test%run(test_getGenExpGammaLogPDF_RK3_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
     140             : #endif
     141             : #if     RK2_ENABLED
     142           1 :         call test%run(test_getGenExpGammaLogPDF_RK2_1, SK_"test_getGenExpGammaLogPDF_RK2_1")
     143             : #endif
     144             : #if     RK1_ENABLED
     145           1 :         call test%run(test_getGenExpGammaLogPDF_RK1_1, SK_"test_getGenExpGammaLogPDF_RK1_1")
     146             : #endif
     147             : 
     148             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     149             : 
     150             : #if     RK5_ENABLED
     151             :         call test%run(test_setGenExpGammaLogPDF_RK5_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
     152             : #endif
     153             : #if     RK4_ENABLED
     154           1 :         call test%run(test_setGenExpGammaLogPDF_RK4_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
     155             : #endif
     156             : #if     RK3_ENABLED
     157           1 :         call test%run(test_setGenExpGammaLogPDF_RK3_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
     158             : #endif
     159             : #if     RK2_ENABLED
     160           1 :         call test%run(test_setGenExpGammaLogPDF_RK2_1, SK_"test_setGenExpGammaLogPDF_RK2_1")
     161             : #endif
     162             : #if     RK1_ENABLED
     163           1 :         call test%run(test_setGenExpGammaLogPDF_RK1_1, SK_"test_setGenExpGammaLogPDF_RK1_1")
     164             : #endif
     165             : 
     166             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     167           1 :         call test%summarize()
     168             : 
     169           1 :     end subroutine setTest
     170             : 
     171             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     172             : 
     173             : end module test_pm_distGenExpGamma