The ParaMonte Documentation Website
Current view: top level - kernel/tests - Test_ParaDXXX_mod.inc.f90 (source / functions) Hit Total Coverage
Test: ParaMonte 1.5.1 :: Coarray Parallel Kernel - Code Coverage Report Lines: 160 160 100.0 %
Date: 2021-01-08 12:59:07 Functions: 2 2 100.0 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       2             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       3             : !!!!
       4             : !!!!   MIT License
       5             : !!!!
       6             : !!!!   ParaMonte: plain powerful parallel Monte Carlo library.
       7             : !!!!
       8             : !!!!   Copyright (C) 2012-present, The Computational Data Science Lab
       9             : !!!!
      10             : !!!!   This file is part of the ParaMonte library.
      11             : !!!!
      12             : !!!!   Permission is hereby granted, free of charge, to any person obtaining a
      13             : !!!!   copy of this software and associated documentation files (the "Software"),
      14             : !!!!   to deal in the Software without restriction, including without limitation
      15             : !!!!   the rights to use, copy, modify, merge, publish, distribute, sublicense,
      16             : !!!!   and/or sell copies of the Software, and to permit persons to whom the
      17             : !!!!   Software is furnished to do so, subject to the following conditions:
      18             : !!!!
      19             : !!!!   The above copyright notice and this permission notice shall be
      20             : !!!!   included in all copies or substantial portions of the Software.
      21             : !!!!
      22             : !!!!   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
      23             : !!!!   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
      24             : !!!!   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
      25             : !!!!   IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
      26             : !!!!   DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
      27             : !!!!   OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE
      28             : !!!!   OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
      29             : !!!!
      30             : !!!!   ACKNOWLEDGMENT
      31             : !!!!
      32             : !!!!   ParaMonte is an honor-ware and its currency is acknowledgment and citations.
      33             : !!!!   As per the ParaMonte library license agreement terms, if you use any parts of
      34             : !!!!   this library for any purposes, kindly acknowledge the use of ParaMonte in your
      35             : !!!!   work (education/research/industry/development/...) by citing the ParaMonte
      36             : !!!!   library as described on this page:
      37             : !!!!
      38             : !!!!       https://github.com/cdslaborg/paramonte/blob/main/ACKNOWLEDGMENT.md
      39             : !!!!
      40             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      41             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      42             : 
      43             : !>  \brief This module contains tests of the module [ParaDRAM_mod](@ref paradram_mod).
      44             : !>  \author Amir Shahmoradi
      45             : 
      46             : ! module Test_ParaDXXX_mod
      47             : 
      48             :     use Constants_mod, only: IK, RK
      49             :     use Test_mod, only: Test_type, getLogFuncMVN
      50             :     use ParaDXXX_mod
      51             : 
      52             :     !use Statistics_mod, only: paradramPrintEnabled
      53             :     implicit none
      54             :     !paradramPrintEnabled = .true.
      55             : 
      56             :     private
      57             :     public :: test_ParaDXXX
      58             : 
      59             :     type(Test_type) :: Test
      60             : 
      61             :     interface
      62             :         module function test_runSampler_1 () result(assertion); logical :: assertion; end
      63             :         module function test_runSampler_2 () result(assertion); logical :: assertion; end
      64             :         module function test_runSampler_3 () result(assertion); logical :: assertion; end
      65             :         module function test_runSampler_4 () result(assertion); logical :: assertion; end
      66             :         module function test_runSampler_5 () result(assertion); logical :: assertion; end
      67             :         module function test_runSampler_6 () result(assertion); logical :: assertion; end
      68             :         module function test_runSampler_7 () result(assertion); logical :: assertion; end
      69             :         module function test_runSampler_8 () result(assertion); logical :: assertion; end
      70             :         module function test_runSampler_9 () result(assertion); logical :: assertion; end
      71             :         module function test_runSampler_10() result(assertion); logical :: assertion; end
      72             :         module function test_runSampler_11() result(assertion); logical :: assertion; end
      73             :         module function test_runSampler_12() result(assertion); logical :: assertion; end
      74             :         module function test_runSampler_13() result(assertion); logical :: assertion; end
      75             :         module function test_runSampler_14() result(assertion); logical :: assertion; end
      76             :         module function test_runSampler_15() result(assertion); logical :: assertion; end
      77             :         module function test_runSampler_16() result(assertion); logical :: assertion; end
      78             :         module function test_runSampler_17() result(assertion); logical :: assertion; end
      79             :         module function test_runSampler_18() result(assertion); logical :: assertion; end
      80             :         module function test_runSampler_19() result(assertion); logical :: assertion; end
      81             :         module function test_runSampler_20() result(assertion); logical :: assertion; end
      82             :         module function test_runSampler_21() result(assertion); logical :: assertion; end
      83             :         module function test_runSampler_22() result(assertion); logical :: assertion; end
      84             :     end interface
      85             : 
      86             :     interface
      87             :         module function test_SpecBase_RandomSeed_type_1             () result(assertion); logical :: assertion; end
      88             :         module function test_SpecBase_RandomSeed_type_2             () result(assertion); logical :: assertion; end
      89             :         module function test_SpecBase_SampleSize_type_1             () result(assertion); logical :: assertion; end
      90             :         module function test_SpecBase_SampleSize_type_2             () result(assertion); logical :: assertion; end
      91             :         module function test_SpecBase_SampleSize_type_3             () result(assertion); logical :: assertion; end
      92             :         module function test_SpecBase_SampleSize_type_4             () result(assertion); logical :: assertion; end
      93             :         module function test_SpecBase_OutputDelimiter_type_1        () result(assertion); logical :: assertion; end
      94             :         module function test_SpecBase_OutputDelimiter_type_2        () result(assertion); logical :: assertion; end
      95             :         module function test_SpecBase_OutputDelimiter_type_3        () result(assertion); logical :: assertion; end
      96             :         module function test_SpecBase_OutputDelimiter_type_4        () result(assertion); logical :: assertion; end
      97             :         module function test_SpecBase_OutputDelimiter_type_5        () result(assertion); logical :: assertion; end
      98             :         module function test_SpecBase_OutputDelimiter_type_6        () result(assertion); logical :: assertion; end
      99             :         module function test_SpecBase_ChainFileFormat_type_1        () result(assertion); logical :: assertion; end
     100             :         module function test_SpecBase_ChainFileFormat_type_2        () result(assertion); logical :: assertion; end
     101             :         module function test_SpecBase_ChainFileFormat_type_3        () result(assertion); logical :: assertion; end
     102             :         module function test_SpecBase_ChainFileFormat_type_4        () result(assertion); logical :: assertion; end
     103             :         module function test_SpecBase_ChainFileFormat_type_5        () result(assertion); logical :: assertion; end
     104             :         module function test_SpecBase_OutputColumnWidth_type_1      () result(assertion); logical :: assertion; end
     105             :         module function test_SpecBase_OutputColumnWidth_type_2      () result(assertion); logical :: assertion; end
     106             :         module function test_SpecBase_OutputColumnWidth_type_3      () result(assertion); logical :: assertion; end
     107             :         module function test_SpecBase_OutputColumnWidth_type_4      () result(assertion); logical :: assertion; end
     108             :         module function test_SpecBase_RestartFileFormat_type_1      () result(assertion); logical :: assertion; end
     109             :         module function test_SpecBase_RestartFileFormat_type_2      () result(assertion); logical :: assertion; end
     110             :         module function test_SpecBase_RestartFileFormat_type_3      () result(assertion); logical :: assertion; end
     111             :         module function test_SpecBase_OverwriteRequested_type_1     () result(assertion); logical :: assertion; end
     112             :         module function test_SpecBase_OverwriteRequested_type_2     () result(assertion); logical :: assertion; end
     113             :         module function test_SpecBase_DomainLowerLimitVec_type_1    () result(assertion); logical :: assertion; end
     114             :         module function test_SpecBase_DomainLowerLimitVec_type_2    () result(assertion); logical :: assertion; end
     115             :         module function test_SpecBase_DomainUpperLimitVec_type_1    () result(assertion); logical :: assertion; end
     116             :         module function test_SpecBase_DomainUpperLimitVec_type_2    () result(assertion); logical :: assertion; end
     117             :         module function test_SpecBase_DomainUpperLimitVec_type_3    () result(assertion); logical :: assertion; end
     118             :         module function test_SpecBase_DomainUpperLimitVec_type_4    () result(assertion); logical :: assertion; end
     119             :         module function test_SpecBase_OutputRealPrecision_type_1    () result(assertion); logical :: assertion; end
     120             :         module function test_SpecBase_OutputRealPrecision_type_2    () result(assertion); logical :: assertion; end
     121             :         module function test_SpecBase_ProgressReportPeriod_type_1   () result(assertion); logical :: assertion; end
     122             :         module function test_SpecBase_ProgressReportPeriod_type_2   () result(assertion); logical :: assertion; end
     123             :         module function test_SpecBase_ParallelizationModel_type_1   () result(assertion); logical :: assertion; end
     124             :         module function test_SpecBase_ParallelizationModel_type_2   () result(assertion); logical :: assertion; end
     125             :         module function test_SpecBase_ParallelizationModel_type_3   () result(assertion); logical :: assertion; end
     126             :         module function test_SpecBase_TargetAcceptanceRate_type_1   () result(assertion); logical :: assertion; end
     127             :         module function test_SpecBase_TargetAcceptanceRate_type_2   () result(assertion); logical :: assertion; end
     128             :         module function test_SpecBase_TargetAcceptanceRate_type_3   () result(assertion); logical :: assertion; end
     129             :         module function test_SpecBase_TargetAcceptanceRate_type_4   () result(assertion); logical :: assertion; end
     130             :         module function test_SpecBase_TargetAcceptanceRate_type_5   () result(assertion); logical :: assertion; end
     131             :         module function test_SpecBase_TargetAcceptanceRate_type_6   () result(assertion); logical :: assertion; end
     132             :         module function test_SpecBase_MaxNumDomainCheckToWarn_type_1() result(assertion); logical :: assertion; end
     133             :         module function test_SpecBase_MaxNumDomainCheckToWarn_type_2() result(assertion); logical :: assertion; end
     134             :         module function test_SpecBase_MaxNumDomainCheckToWarn_type_3() result(assertion); logical :: assertion; end
     135             :         module function test_SpecBase_MaxNumDomainCheckToStop_type_1() result(assertion); logical :: assertion; end
     136             :         module function test_SpecBase_MaxNumDomainCheckToStop_type_2() result(assertion); logical :: assertion; end
     137             :         module function test_SpecBase_MaxNumDomainCheckToStop_type_3() result(assertion); logical :: assertion; end
     138             :     end interface
     139             : 
     140             :     interface
     141             :         module function test_SpecMCMC_ChainSize_type_1                  () result(assertion); logical :: assertion; end
     142             :         module function test_SpecMCMC_ChainSize_type_2                  () result(assertion); logical :: assertion; end
     143             :         module function test_SpecMCMC_ScaleFactor_type_1                () result(assertion); logical :: assertion; end
     144             :         module function test_SpecMCMC_ScaleFactor_type_2                () result(assertion); logical :: assertion; end
     145             :         module function test_SpecMCMC_ScaleFactor_type_3                () result(assertion); logical :: assertion; end
     146             :         module function test_SpecMCMC_ScaleFactor_type_4                () result(assertion); logical :: assertion; end
     147             :         module function test_SpecMCMC_ScaleFactor_type_5                () result(assertion); logical :: assertion; end
     148             :         module function test_SpecMCMC_ScaleFactor_type_6                () result(assertion); logical :: assertion; end
     149             :         module function test_SpecMCMC_ScaleFactor_type_7                () result(assertion); logical :: assertion; end
     150             :         module function test_SpecMCMC_ScaleFactor_type_8                () result(assertion); logical :: assertion; end
     151             :         module function test_SpecMCMC_ProposalModel_type_1              () result(assertion); logical :: assertion; end
     152             :         module function test_SpecMCMC_ProposalModel_type_2              () result(assertion); logical :: assertion; end
     153             :         module function test_SpecMCMC_ProposalModel_type_3              () result(assertion); logical :: assertion; end
     154             :         module function test_SpecMCMC_ProposalModel_type_4              () result(assertion); logical :: assertion; end
     155             :         module function test_SpecMCMC_StartPointVec_type_1              () result(assertion); logical :: assertion; end
     156             :         module function test_SpecMCMC_StartPointVec_type_2              () result(assertion); logical :: assertion; end
     157             :         module function test_SpecMCMC_StartPointVec_type_3              () result(assertion); logical :: assertion; end
     158             :         module function test_SpecMCMC_StartPointVec_type_4              () result(assertion); logical :: assertion; end
     159             :         module function test_SpecMCMC_StartPointVec_type_5              () result(assertion); logical :: assertion; end
     160             :         module function test_SpecMCMC_ProposalStartCovMat_type_1        () result(assertion); logical :: assertion; end
     161             :         module function test_SpecMCMC_ProposalStartCovMat_type_2        () result(assertion); logical :: assertion; end
     162             :         module function test_SpecMCMC_ProposalStartCovMat_type_3        () result(assertion); logical :: assertion; end
     163             :         module function test_SpecMCMC_ProposalStartCovMat_type_4        () result(assertion); logical :: assertion; end
     164             :         module function test_SpecMCMC_ProposalStartCovMat_type_5        () result(assertion); logical :: assertion; end
     165             :         module function test_SpecMCMC_ProposalStartCorMat_type_1        () result(assertion); logical :: assertion; end
     166             :         module function test_SpecMCMC_ProposalStartCorMat_type_2        () result(assertion); logical :: assertion; end
     167             :         module function test_SpecMCMC_ProposalStartCorMat_type_3        () result(assertion); logical :: assertion; end
     168             :         module function test_SpecMCMC_ProposalStartCorMat_type_4        () result(assertion); logical :: assertion; end
     169             :         module function test_SpecMCMC_ProposalStartCorMat_type_5        () result(assertion); logical :: assertion; end
     170             :         module function test_SpecMCMC_ProposalStartStdVec_type_1        () result(assertion); logical :: assertion; end
     171             :         module function test_SpecMCMC_ProposalStartStdVec_type_2        () result(assertion); logical :: assertion; end
     172             :         module function test_SpecMCMC_ProposalStartStdVec_type_3        () result(assertion); logical :: assertion; end
     173             :         module function test_SpecMCMC_ProposalStartStdVec_type_4        () result(assertion); logical :: assertion; end
     174             :         module function test_SpecMCMC_ProposalStartStdVec_type_5        () result(assertion); logical :: assertion; end
     175             :         module function test_SpecMCMC_SampleRefinementCount_type_1      () result(assertion); logical :: assertion; end
     176             :         module function test_SpecMCMC_SampleRefinementCount_type_2      () result(assertion); logical :: assertion; end
     177             :         module function test_SpecMCMC_SampleRefinementCount_type_3      () result(assertion); logical :: assertion; end
     178             :         module function test_SpecMCMC_SampleRefinementMethod_type_1     () result(assertion); logical :: assertion; end
     179             :         module function test_SpecMCMC_SampleRefinementMethod_type_2     () result(assertion); logical :: assertion; end
     180             :         module function test_SpecMCMC_SampleRefinementMethod_type_3     () result(assertion); logical :: assertion; end
     181             :         module function test_SpecMCMC_SampleRefinementMethod_type_4     () result(assertion); logical :: assertion; end
     182             :         module function test_SpecMCMC_SampleRefinementMethod_type_5     () result(assertion); logical :: assertion; end
     183             :         module function test_SpecMCMC_SampleRefinementMethod_type_6     () result(assertion); logical :: assertion; end
     184             :         module function test_SpecMCMC_SampleRefinementMethod_type_7     () result(assertion); logical :: assertion; end
     185             :         module function test_SpecMCMC_SampleRefinementMethod_type_8     () result(assertion); logical :: assertion; end
     186             :         module function test_SpecMCMC_SampleRefinementMethod_type_9     () result(assertion); logical :: assertion; end
     187             :         module function test_SpecMCMC_SampleRefinementMethod_type_10    () result(assertion); logical :: assertion; end
     188             :         module function test_SpecMCMC_SampleRefinementMethod_type_11    () result(assertion); logical :: assertion; end
     189             :         module function test_SpecMCMC_SampleRefinementMethod_type_12    () result(assertion); logical :: assertion; end
     190             :         module function test_SpecMCMC_SampleRefinementMethod_type_13    () result(assertion); logical :: assertion; end
     191             :         module function test_SpecMCMC_RandomStartPointRequested_type_1  () result(assertion); logical :: assertion; end
     192             :         module function test_SpecMCMC_RandomStartPointRequested_type_2  () result(assertion); logical :: assertion; end
     193             :         module function test_SpecMCMC_RandomStartPointRequested_type_3  () result(assertion); logical :: assertion; end
     194             :         module function test_SpecMCMC_RandomStartPointRequested_type_4  () result(assertion); logical :: assertion; end
     195             :         module function test_RSPDLowerLimitVec_type_1                   () result(assertion); logical :: assertion; end
     196             :         module function test_RSPDLowerLimitVec_type_2                   () result(assertion); logical :: assertion; end
     197             :         module function test_RSPDLowerLimitVec_type_3                   () result(assertion); logical :: assertion; end
     198             :         module function test_RSPDUpperLimitVec_type_1                   () result(assertion); logical :: assertion; end
     199             :         module function test_RSPDUpperLimitVec_type_2                   () result(assertion); logical :: assertion; end
     200             :         module function test_RSPDUpperLimitVec_type_3                   () result(assertion); logical :: assertion; end
     201             :         module function test_RSPDUpperLimitVec_type_4                   () result(assertion); logical :: assertion; end
     202             :     end interface
     203             : 
     204             :     interface
     205             :         module function test_SpecDRAM_AdaptiveUpdateCount_type_1            () result(assertion); logical :: assertion; end
     206             :         module function test_SpecDRAM_AdaptiveUpdateCount_type_2            () result(assertion); logical :: assertion; end
     207             :         module function test_SpecDRAM_AdaptiveUpdateCount_type_3            () result(assertion); logical :: assertion; end
     208             :         module function test_SpecDRAM_AdaptiveUpdatePeriod_type_1           () result(assertion); logical :: assertion; end
     209             :         module function test_SpecDRAM_AdaptiveUpdatePeriod_type_2           () result(assertion); logical :: assertion; end
     210             :         module function test_SpecDRAM_AdaptiveUpdatePeriod_type_3           () result(assertion); logical :: assertion; end
     211             :         module function test_SpecDRAM_DelayedRejectionCount_type_1          () result(assertion); logical :: assertion; end
     212             :         module function test_SpecDRAM_DelayedRejectionCount_type_2          () result(assertion); logical :: assertion; end
     213             :         module function test_SpecDRAM_DelayedRejectionCount_type_3          () result(assertion); logical :: assertion; end
     214             :         module function test_SpecDRAM_DelayedRejectionCount_type_4          () result(assertion); logical :: assertion; end
     215             :         module function test_SpecDRAM_GreedyAdaptationCount_type_1          () result(assertion); logical :: assertion; end
     216             :         module function test_SpecDRAM_GreedyAdaptationCount_type_2          () result(assertion); logical :: assertion; end
     217             :         module function test_SpecDRAM_GreedyAdaptationCount_type_3          () result(assertion); logical :: assertion; end
     218             :         module function test_SpecDRAM_BurninAdaptationMeasure_type_1        () result(assertion); logical :: assertion; end
     219             :         module function test_SpecDRAM_BurninAdaptationMeasure_type_2        () result(assertion); logical :: assertion; end
     220             :         module function test_SpecDRAM_BurninAdaptationMeasure_type_3        () result(assertion); logical :: assertion; end
     221             :         module function test_SpecDRAM_BurninAdaptationMeasure_type_4        () result(assertion); logical :: assertion; end
     222             :         module function test_SpecDRAM_DelayedRejectionScaleFactorVec_type_1 () result(assertion); logical :: assertion; end
     223             :         module function test_SpecDRAM_DelayedRejectionScaleFactorVec_type_2 () result(assertion); logical :: assertion; end
     224             :         module function test_SpecDRAM_DelayedRejectionScaleFactorVec_type_3 () result(assertion); logical :: assertion; end
     225             :         module function test_SpecDRAM_DelayedRejectionScaleFactorVec_type_4 () result(assertion); logical :: assertion; end
     226             :         module function test_SpecDRAM_DelayedRejectionScaleFactorVec_type_5 () result(assertion); logical :: assertion; end
     227             :     end interface
     228             : 
     229             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     230             : 
     231             : contains
     232             : 
     233             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     234             : 
     235           6 :     subroutine test_ParaDXXX()
     236             :         implicit none
     237           6 :         Test = Test_type(moduleName=MODULE_NAME)
     238             : 
     239           6 :         call Test%run(test_runSampler_1 , "test_runSampler_1")
     240           6 :         call Test%run(test_runSampler_2 , "test_runSampler_2")
     241           6 :         call Test%run(test_runSampler_3 , "test_runSampler_3")
     242           6 :         call Test%run(test_runSampler_4 , "test_runSampler_4")
     243           6 :         call Test%run(test_runSampler_5 , "test_runSampler_5")
     244           6 :         call Test%run(test_runSampler_6 , "test_runSampler_6")
     245           6 :         call Test%run(test_runSampler_7 , "test_runSampler_7")
     246           6 :         call Test%run(test_runSampler_8 , "test_runSampler_8")
     247           6 :         call Test%run(test_runSampler_9 , "test_runSampler_9")
     248           6 :         call Test%run(test_runSampler_10, "test_runSampler_10")
     249           6 :         call Test%run(test_runSampler_11, "test_runSampler_11")
     250           6 :         call Test%run(test_runSampler_12, "test_runSampler_12")
     251           6 :         call Test%run(test_runSampler_13, "test_runSampler_13")
     252           6 :         call Test%run(test_runSampler_14, "test_runSampler_14")
     253           6 :         call Test%run(test_runSampler_15, "test_runSampler_15")
     254           6 :         call Test%run(test_runSampler_16, "test_runSampler_16")
     255           6 :         call Test%run(test_runSampler_17, "test_runSampler_17")
     256           6 :         call Test%run(test_runSampler_18, "test_runSampler_18")
     257           6 :         call Test%run(test_runSampler_19, "test_runSampler_19")
     258           6 :         call Test%run(test_runSampler_20, "test_runSampler_20")
     259           6 :         call Test%run(test_runSampler_21, "test_runSampler_21")
     260           6 :         call Test%run(test_runSampler_22, "test_runSampler_22")
     261             : 
     262           6 :         call Test%run(test_SpecBase_RandomSeed_type_1, "test_SpecBase_RandomSeed_type_1")
     263           6 :         call Test%run(test_SpecBase_RandomSeed_type_2, "test_SpecBase_RandomSeed_type_2")
     264           6 :         call Test%run(test_SpecBase_SampleSize_type_1, "test_SpecBase_SampleSize_type_1")
     265           6 :         call Test%run(test_SpecBase_SampleSize_type_2, "test_SpecBase_SampleSize_type_2")
     266           6 :         call Test%run(test_SpecBase_SampleSize_type_3, "test_SpecBase_SampleSize_type_3")
     267           6 :         call Test%run(test_SpecBase_SampleSize_type_4, "test_SpecBase_SampleSize_type_4")
     268           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_1, "test_SpecBase_OutputDelimiter_type_1")
     269           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_2, "test_SpecBase_OutputDelimiter_type_2")
     270           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_3, "test_SpecBase_OutputDelimiter_type_3")
     271           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_4, "test_SpecBase_OutputDelimiter_type_4")
     272           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_5, "test_SpecBase_OutputDelimiter_type_5")
     273           6 :         call Test%run(test_SpecBase_OutputDelimiter_type_6, "test_SpecBase_OutputDelimiter_type_6")
     274           6 :         call Test%run(test_SpecBase_ChainFileFormat_type_1, "test_SpecBase_ChainFileFormat_type_1")
     275           6 :         call Test%run(test_SpecBase_ChainFileFormat_type_2, "test_SpecBase_ChainFileFormat_type_2")
     276           6 :         call Test%run(test_SpecBase_ChainFileFormat_type_3, "test_SpecBase_ChainFileFormat_type_3")
     277           6 :         call Test%run(test_SpecBase_ChainFileFormat_type_4, "test_SpecBase_ChainFileFormat_type_4")
     278           6 :         call Test%run(test_SpecBase_ChainFileFormat_type_5, "test_SpecBase_ChainFileFormat_type_5")
     279           6 :         call Test%run(test_SpecBase_OutputColumnWidth_type_1, "test_SpecBase_OutputColumnWidth_type_1")
     280           6 :         call Test%run(test_SpecBase_OutputColumnWidth_type_2, "test_SpecBase_OutputColumnWidth_type_2")
     281           6 :         call Test%run(test_SpecBase_OutputColumnWidth_type_3, "test_SpecBase_OutputColumnWidth_type_3")
     282           6 :         call Test%run(test_SpecBase_OutputColumnWidth_type_4, "test_SpecBase_OutputColumnWidth_type_4")
     283           6 :         call Test%run(test_SpecBase_RestartFileFormat_type_1, "test_SpecBase_RestartFileFormat_type_1")
     284           6 :         call Test%run(test_SpecBase_RestartFileFormat_type_2, "test_SpecBase_RestartFileFormat_type_2")
     285           6 :         call Test%run(test_SpecBase_RestartFileFormat_type_3, "test_SpecBase_RestartFileFormat_type_3")
     286           6 :         call Test%run(test_SpecBase_OverwriteRequested_type_1, "test_SpecBase_OverwriteRequested_type_1")
     287           6 :         call Test%run(test_SpecBase_OverwriteRequested_type_2, "test_SpecBase_OverwriteRequested_type_2")
     288           6 :         call Test%run(test_SpecBase_DomainLowerLimitVec_type_1, "test_SpecBase_DomainLowerLimitVec_type_1")
     289           6 :         call Test%run(test_SpecBase_DomainLowerLimitVec_type_2, "test_SpecBase_DomainLowerLimitVec_type_2")
     290           6 :         call Test%run(test_SpecBase_DomainUpperLimitVec_type_1, "test_SpecBase_DomainUpperLimitVec_type_1")
     291           6 :         call Test%run(test_SpecBase_DomainUpperLimitVec_type_2, "test_SpecBase_DomainUpperLimitVec_type_2")
     292           6 :         call Test%run(test_SpecBase_DomainUpperLimitVec_type_3, "test_SpecBase_DomainUpperLimitVec_type_3")
     293           6 :         call Test%run(test_SpecBase_DomainUpperLimitVec_type_4, "test_SpecBase_DomainUpperLimitVec_type_4")
     294           6 :         call Test%run(test_SpecBase_OutputRealPrecision_type_1, "test_SpecBase_OutputRealPrecision_type_1")
     295           6 :         call Test%run(test_SpecBase_OutputRealPrecision_type_2, "test_SpecBase_OutputRealPrecision_type_2")
     296           6 :         call Test%run(test_SpecBase_ProgressReportPeriod_type_1, "test_SpecBase_ProgressReportPeriod_type_1")
     297           6 :         call Test%run(test_SpecBase_ProgressReportPeriod_type_2, "test_SpecBase_ProgressReportPeriod_type_2")
     298           6 :         call Test%run(test_SpecBase_ParallelizationModel_type_1, "test_SpecBase_ParallelizationModel_type_1")
     299           6 :         call Test%run(test_SpecBase_ParallelizationModel_type_2, "test_SpecBase_ParallelizationModel_type_2")
     300           6 :         call Test%run(test_SpecBase_ParallelizationModel_type_3, "test_SpecBase_ParallelizationModel_type_3")
     301           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_1, "test_SpecBase_TargetAcceptanceRate_type_1")
     302           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_2, "test_SpecBase_TargetAcceptanceRate_type_2")
     303           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_3, "test_SpecBase_TargetAcceptanceRate_type_3")
     304           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_4, "test_SpecBase_TargetAcceptanceRate_type_4")
     305           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_5, "test_SpecBase_TargetAcceptanceRate_type_5")
     306           6 :         call Test%run(test_SpecBase_TargetAcceptanceRate_type_6, "test_SpecBase_TargetAcceptanceRate_type_6")
     307           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_1, "test_SpecBase_MaxNumDomainCheckToWarn_type_1")
     308           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_2, "test_SpecBase_MaxNumDomainCheckToWarn_type_2")
     309           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_3, "test_SpecBase_MaxNumDomainCheckToWarn_type_3")
     310           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_1, "test_SpecBase_MaxNumDomainCheckToStop_type_1")
     311           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_2, "test_SpecBase_MaxNumDomainCheckToStop_type_2")
     312           6 :         call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_3, "test_SpecBase_MaxNumDomainCheckToStop_type_3")
     313             : 
     314           6 :         call Test%run(test_SpecMCMC_ChainSize_type_1, "test_SpecMCMC_ChainSize_type_1")
     315           6 :         call Test%run(test_SpecMCMC_ChainSize_type_2, "test_SpecMCMC_ChainSize_type_2")
     316           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_1, "test_SpecMCMC_ScaleFactor_type_1")
     317           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_2, "test_SpecMCMC_ScaleFactor_type_2")
     318           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_3, "test_SpecMCMC_ScaleFactor_type_3")
     319           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_4, "test_SpecMCMC_ScaleFactor_type_4")
     320           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_5, "test_SpecMCMC_ScaleFactor_type_5")
     321           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_6, "test_SpecMCMC_ScaleFactor_type_6")
     322           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_7, "test_SpecMCMC_ScaleFactor_type_7")
     323           6 :         call Test%run(test_SpecMCMC_ScaleFactor_type_8, "test_SpecMCMC_ScaleFactor_type_8")
     324           6 :         call Test%run(test_SpecMCMC_ProposalModel_type_1, "test_SpecMCMC_ProposalModel_type_1")
     325           6 :         call Test%run(test_SpecMCMC_ProposalModel_type_2, "test_SpecMCMC_ProposalModel_type_2")
     326           6 :         call Test%run(test_SpecMCMC_ProposalModel_type_3, "test_SpecMCMC_ProposalModel_type_3")
     327           6 :         call Test%run(test_SpecMCMC_ProposalModel_type_4, "test_SpecMCMC_ProposalModel_type_4")
     328           6 :         call Test%run(test_SpecMCMC_StartPointVec_type_1, "test_SpecMCMC_StartPointVec_type_1")
     329           6 :         call Test%run(test_SpecMCMC_StartPointVec_type_2, "test_SpecMCMC_StartPointVec_type_2")
     330           6 :         call Test%run(test_SpecMCMC_StartPointVec_type_3, "test_SpecMCMC_StartPointVec_type_3")
     331           6 :         call Test%run(test_SpecMCMC_StartPointVec_type_4, "test_SpecMCMC_StartPointVec_type_4")
     332           6 :         call Test%run(test_SpecMCMC_StartPointVec_type_5, "test_SpecMCMC_StartPointVec_type_5")
     333           6 :         call Test%run(test_SpecMCMC_ProposalStartCovMat_type_1, "test_SpecMCMC_ProposalStartCovMat_type_1")
     334           6 :         call Test%run(test_SpecMCMC_ProposalStartCovMat_type_2, "test_SpecMCMC_ProposalStartCovMat_type_2")
     335           6 :         call Test%run(test_SpecMCMC_ProposalStartCovMat_type_3, "test_SpecMCMC_ProposalStartCovMat_type_3")
     336           6 :         call Test%run(test_SpecMCMC_ProposalStartCovMat_type_4, "test_SpecMCMC_ProposalStartCovMat_type_4")
     337           6 :         call Test%run(test_SpecMCMC_ProposalStartCovMat_type_5, "test_SpecMCMC_ProposalStartCovMat_type_5")
     338           6 :         call Test%run(test_SpecMCMC_ProposalStartCorMat_type_1, "test_SpecMCMC_ProposalStartCorMat_type_1")
     339           6 :         call Test%run(test_SpecMCMC_ProposalStartCorMat_type_2, "test_SpecMCMC_ProposalStartCorMat_type_2")
     340           6 :         call Test%run(test_SpecMCMC_ProposalStartCorMat_type_3, "test_SpecMCMC_ProposalStartCorMat_type_3")
     341           6 :         call Test%run(test_SpecMCMC_ProposalStartCorMat_type_4, "test_SpecMCMC_ProposalStartCorMat_type_4")
     342           6 :         call Test%run(test_SpecMCMC_ProposalStartCorMat_type_5, "test_SpecMCMC_ProposalStartCorMat_type_5")
     343           6 :         call Test%run(test_SpecMCMC_ProposalStartStdVec_type_1, "test_SpecMCMC_ProposalStartStdVec_type_1")
     344           6 :         call Test%run(test_SpecMCMC_ProposalStartStdVec_type_2, "test_SpecMCMC_ProposalStartStdVec_type_2")
     345           6 :         call Test%run(test_SpecMCMC_ProposalStartStdVec_type_3, "test_SpecMCMC_ProposalStartStdVec_type_3")
     346           6 :         call Test%run(test_SpecMCMC_ProposalStartStdVec_type_4, "test_SpecMCMC_ProposalStartStdVec_type_4")
     347           6 :         call Test%run(test_SpecMCMC_ProposalStartStdVec_type_5, "test_SpecMCMC_ProposalStartStdVec_type_5")
     348           6 :         call Test%run(test_SpecMCMC_SampleRefinementCount_type_1, "test_SpecMCMC_SampleRefinementCount_type_1")
     349           6 :         call Test%run(test_SpecMCMC_SampleRefinementCount_type_2, "test_SpecMCMC_SampleRefinementCount_type_2")
     350           6 :         call Test%run(test_SpecMCMC_SampleRefinementCount_type_3, "test_SpecMCMC_SampleRefinementCount_type_3")
     351           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_1, "test_SpecMCMC_SampleRefinementMethod_type_1")
     352           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_2, "test_SpecMCMC_SampleRefinementMethod_type_2")
     353           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_3, "test_SpecMCMC_SampleRefinementMethod_type_3")
     354           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_4, "test_SpecMCMC_SampleRefinementMethod_type_4")
     355           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_5, "test_SpecMCMC_SampleRefinementMethod_type_5")
     356           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_6, "test_SpecMCMC_SampleRefinementMethod_type_6")
     357           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_7, "test_SpecMCMC_SampleRefinementMethod_type_7")
     358           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_8, "test_SpecMCMC_SampleRefinementMethod_type_8")
     359           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_9, "test_SpecMCMC_SampleRefinementMethod_type_9")
     360           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_10, "test_SpecMCMC_SampleRefinementMethod_type_10")
     361           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_11, "test_SpecMCMC_SampleRefinementMethod_type_11")
     362           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_12, "test_SpecMCMC_SampleRefinementMethod_type_12")
     363           6 :         call Test%run(test_SpecMCMC_SampleRefinementMethod_type_13, "test_SpecMCMC_SampleRefinementMethod_type_13")
     364           6 :         call Test%run(test_SpecMCMC_RandomStartPointRequested_type_1, "test_SpecMCMC_RandomStartPointRequested_type_1")
     365           6 :         call Test%run(test_SpecMCMC_RandomStartPointRequested_type_2, "test_SpecMCMC_RandomStartPointRequested_type_2")
     366           6 :         call Test%run(test_SpecMCMC_RandomStartPointRequested_type_3, "test_SpecMCMC_RandomStartPointRequested_type_3")
     367           6 :         call Test%run(test_SpecMCMC_RandomStartPointRequested_type_4, "test_SpecMCMC_RandomStartPointRequested_type_4")
     368           6 :         call Test%run(test_RSPDLowerLimitVec_type_1, "test_RSPDLowerLimitVec_type_1") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     369           6 :         call Test%run(test_RSPDLowerLimitVec_type_2, "test_RSPDLowerLimitVec_type_2") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     370           6 :         call Test%run(test_RSPDLowerLimitVec_type_3, "test_RSPDLowerLimitVec_type_3") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     371           6 :         call Test%run(test_RSPDUpperLimitVec_type_1, "test_RSPDUpperLimitVec_type_1") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     372           6 :         call Test%run(test_RSPDUpperLimitVec_type_2, "test_RSPDUpperLimitVec_type_2") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     373           6 :         call Test%run(test_RSPDUpperLimitVec_type_3, "test_RSPDUpperLimitVec_type_3") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     374           6 :         call Test%run(test_RSPDUpperLimitVec_type_4, "test_RSPDUpperLimitVec_type_4") ! global names shortened to accommodate the file length limits of Intel ifort on windows.
     375             : 
     376           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_1, "test_SpecDRAM_AdaptiveUpdateCount_type_1")
     377           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_2, "test_SpecDRAM_AdaptiveUpdateCount_type_2")
     378           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_3, "test_SpecDRAM_AdaptiveUpdateCount_type_3")
     379           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_1, "test_SpecDRAM_AdaptiveUpdatePeriod_type_1")
     380           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_2, "test_SpecDRAM_AdaptiveUpdatePeriod_type_2")
     381           6 :         call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_3, "test_SpecDRAM_AdaptiveUpdatePeriod_type_3")
     382           6 :         call Test%run(test_SpecDRAM_DelayedRejectionCount_type_1, "test_SpecDRAM_DelayedRejectionCount_type_1")
     383           6 :         call Test%run(test_SpecDRAM_DelayedRejectionCount_type_2, "test_SpecDRAM_DelayedRejectionCount_type_2")
     384           6 :         call Test%run(test_SpecDRAM_DelayedRejectionCount_type_3, "test_SpecDRAM_DelayedRejectionCount_type_3")
     385           6 :         call Test%run(test_SpecDRAM_DelayedRejectionCount_type_4, "test_SpecDRAM_DelayedRejectionCount_type_4")
     386           6 :         call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_1, "test_SpecDRAM_GreedyAdaptationCount_type_1")
     387           6 :         call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_2, "test_SpecDRAM_GreedyAdaptationCount_type_2")
     388           6 :         call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_3, "test_SpecDRAM_GreedyAdaptationCount_type_3")
     389           6 :         call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_1, "test_SpecDRAM_BurninAdaptationMeasure_type_1")
     390           6 :         call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_2, "test_SpecDRAM_BurninAdaptationMeasure_type_2")
     391           6 :         call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_3, "test_SpecDRAM_BurninAdaptationMeasure_type_3")
     392           6 :         call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_4, "test_SpecDRAM_BurninAdaptationMeasure_type_4")
     393           6 :         call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_1, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_1")
     394           6 :         call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_2, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_2")
     395           6 :         call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_3, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_3")
     396           6 :         call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_4, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_4")
     397           6 :         call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_5, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_5")
     398             : 
     399           6 :         call Test%finalize()
     400           6 :     end subroutine test_ParaDXXX
     401             : 
     402             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     403             : 
     404             : ! end module Test_ParaDXXX_mod

ParaMonte: Plain Powerful Parallel Monte Carlo Library 
The Computational Data Science Lab
© Copyright 2012 - 2021