fortran/latest/test__pm__paraNest_8F90_source.html

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!                                                                                                                            !!!!

!!!!    ParaMonte: Parallel Monte Carlo and Machine Learning Library.                                                           !!!!

!!!!                                                                                                                            !!!!

!!!!    Copyright (C) 2012-present, The Computational Data Science Lab                                                          !!!!

!!!!                                                                                                                            !!!!

!!!!    This file is part of the ParaMonte library.                                                                             !!!!

!!!!                                                                                                                            !!!!

!!!!    LICENSE                                                                                                                 !!!!

!!!!                                                                                                                            !!!!

!!!!       https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md                                                          !!!!

!!!!                                                                                                                            !!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


module test_pm_paraNest


    use pm_kind, only: IK, RK

    use pm_test, only: test_type, LK, getLogFuncMVN, getLogFuncBanana2D, getLogFuncEggBox2D

    use pm_sampling


    implicit none


    private

    public :: setTest

    type(test_type) :: test


    interface

        module function test_runSampler_1 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_2 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_3 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_4 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_5 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_6 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_7 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_8 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_9 () result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_10() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_11() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_12() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_13() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_14() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_15() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_16() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_17() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_18() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_19() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_20() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_21() result(assertion); logical(LK) :: assertion; end

        !module function test_runSampler_22() result(assertion); logical(LK) :: assertion; end

    end interface


!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


contains


!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


    subroutine setTest()


        implicit none


        test = test_type(MODULE_NAME)


        call test%run(test_runSampler_1, SK_"test_runSampler_1")

        !call test%run(test_runSampler_2 , SK_"test_runSampler_2")

        !call test%run(test_runSampler_3 , SK_"test_runSampler_3")

        !call test%run(test_runSampler_4 , SK_"test_runSampler_4")

        !call test%run(test_runSampler_5 , SK_"test_runSampler_5")

        !call test%run(test_runSampler_6 , SK_"test_runSampler_6")

        !call test%run(test_runSampler_7 , SK_"test_runSampler_7")

        !call test%run(test_runSampler_8 , SK_"test_runSampler_8")

        !call test%run(test_runSampler_9 , SK_"test_runSampler_9")

        !call test%run(test_runSampler_10, SK_"test_runSampler_10")

        !call test%run(test_runSampler_11, SK_"test_runSampler_11")

        !call test%run(test_runSampler_12, SK_"test_runSampler_12")

        !call test%run(test_runSampler_13, SK_"test_runSampler_13")

        !call test%run(test_runSampler_14, SK_"test_runSampler_14")

        !call test%run(test_runSampler_15, SK_"test_runSampler_15")

        !call test%run(test_runSampler_16, SK_"test_runSampler_16")

        !call test%run(test_runSampler_17, SK_"test_runSampler_17")

        !call test%run(test_runSampler_18, SK_"test_runSampler_18")

        !call test%run(test_runSampler_19, SK_"test_runSampler_19")

        !call test%run(test_runSampler_20, SK_"test_runSampler_20")

        !call test%run(test_runSampler_21, SK_"test_runSampler_21")

        !call test%run(test_runSampler_22, SK_"test_runSampler_22")


        !call test%run(test_specbase_randomSeed_type_1, SK_"test_specbase_randomSeed_type_1")

        !call test%run(test_specbase_randomSeed_type_2, SK_"test_specbase_randomSeed_type_2")

        !call test%run(test_specbase_outputSampleSize_type_1, SK_"test_specbase_outputSampleSize_type_1")

        !call test%run(test_specbase_outputSampleSize_type_2, SK_"test_specbase_outputSampleSize_type_2")

        !call test%run(test_specbase_outputSampleSize_type_3, SK_"test_specbase_outputSampleSize_type_3")

        !call test%run(test_specbase_outputSampleSize_type_4, SK_"test_specbase_outputSampleSize_type_4")

        !call test%run(test_specbase_outputSeparator_type_1, SK_"test_specbase_outputSeparator_type_1")

        !call test%run(test_specbase_outputSeparator_type_2, SK_"test_specbase_outputSeparator_type_2")

        !call test%run(test_specbase_outputSeparator_type_3, SK_"test_specbase_outputSeparator_type_3")

        !call test%run(test_specbase_outputSeparator_type_4, SK_"test_specbase_outputSeparator_type_4")

        !call test%run(test_specbase_outputSeparator_type_5, SK_"test_specbase_outputSeparator_type_5")

        !call test%run(test_specbase_outputSeparator_type_6, SK_"test_specbase_outputSeparator_type_6")

        !call test%run(test_specbase_outputChainFileFormat_type_1, SK_"test_specbase_outputChainFileFormat_type_1")

        !call test%run(test_specbase_outputChainFileFormat_type_2, SK_"test_specbase_outputChainFileFormat_type_2")

        !call test%run(test_specbase_outputChainFileFormat_type_3, SK_"test_specbase_outputChainFileFormat_type_3")

        !call test%run(test_specbase_outputChainFileFormat_type_4, SK_"test_specbase_outputChainFileFormat_type_4")

        !call test%run(test_specbase_outputChainFileFormat_type_5, SK_"test_specbase_outputChainFileFormat_type_5")

        !call test%run(test_specbase_outputColumnWidth_type_1, SK_"test_specbase_outputColumnWidth_type_1")

        !call test%run(test_specbase_outputColumnWidth_type_2, SK_"test_specbase_outputColumnWidth_type_2")

        !call test%run(test_specbase_outputColumnWidth_type_3, SK_"test_specbase_outputColumnWidth_type_3")

        !call test%run(test_specbase_outputColumnWidth_type_4, SK_"test_specbase_outputColumnWidth_type_4")

        !call test%run(test_specbase_outputRestartFileFormat_type_1, SK_"test_specbase_outputRestartFileFormat_type_1")

        !call test%run(test_specbase_outputRestartFileFormat_type_2, SK_"test_specbase_outputRestartFileFormat_type_2")

        !call test%run(test_specbase_outputRestartFileFormat_type_3, SK_"test_specbase_outputRestartFileFormat_type_3")

        !call test%run(test_specbase_outputStatus_type_1, SK_"test_specbase_outputStatus_type_1")

        !call test%run(test_specbase_outputStatus_type_2, SK_"test_specbase_outputStatus_type_2")

        !call test%run(test_specbase_domainCubeLimitLower_type_1, SK_"test_specbase_domainCubeLimitLower_type_1")

        !call test%run(test_specbase_domainCubeLimitLower_type_2, SK_"test_specbase_domainCubeLimitLower_type_2")

        !call test%run(test_specbase_domainCubeLimitUpper_type_1, SK_"test_specbase_domainCubeLimitUpper_type_1")

        !call test%run(test_specbase_domainCubeLimitUpper_type_2, SK_"test_specbase_domainCubeLimitUpper_type_2")

        !call test%run(test_specbase_domainCubeLimitUpper_type_3, SK_"test_specbase_domainCubeLimitUpper_type_3")

        !call test%run(test_specbase_domainCubeLimitUpper_type_4, SK_"test_specbase_domainCubeLimitUpper_type_4")

        !call test%run(test_specbase_outputPrecision_type_1, SK_"test_specbase_outputPrecision_type_1")

        !call test%run(test_specbase_outputPrecision_type_2, SK_"test_specbase_outputPrecision_type_2")

        !call test%run(test_specbase_outputReportPeriod_type_1, SK_"test_specbase_outputReportPeriod_type_1")

        !call test%run(test_specbase_outputReportPeriod_type_2, SK_"test_specbase_outputReportPeriod_type_2")

        !call test%run(test_specbase_parallelism_type_1, SK_"test_specbase_parallelism_type_1")

        !call test%run(test_specbase_parallelism_type_2, SK_"test_specbase_parallelism_type_2")

        !call test%run(test_specbase_parallelism_type_3, SK_"test_specbase_parallelism_type_3")

        !call test%run(test_specbase_targetAcceptanceRate_type_1, SK_"test_specbase_targetAcceptanceRate_type_1")

        !call test%run(test_specbase_targetAcceptanceRate_type_2, SK_"test_specbase_targetAcceptanceRate_type_2")

        !call test%run(test_specbase_targetAcceptanceRate_type_3, SK_"test_specbase_targetAcceptanceRate_type_3")

        !call test%run(test_specbase_targetAcceptanceRate_type_4, SK_"test_specbase_targetAcceptanceRate_type_4")

        !call test%run(test_specbase_targetAcceptanceRate_type_5, SK_"test_specbase_targetAcceptanceRate_type_5")

        !call test%run(test_specbase_targetAcceptanceRate_type_6, SK_"test_specbase_targetAcceptanceRate_type_6")

        !call test%run(test_specbase_domainErrCount_type_1, SK_"test_specbase_domainErrCount_type_1")

        !call test%run(test_specbase_domainErrCount_type_2, SK_"test_specbase_domainErrCount_type_2")

        !call test%run(test_specbase_domainErrCount_type_3, SK_"test_specbase_domainErrCount_type_3")

        !call test%run(test_specbase_domainErrCountMax_type_1, SK_"test_specbase_domainErrCountMax_type_1")

        !call test%run(test_specbase_domainErrCountMax_type_2, SK_"test_specbase_domainErrCountMax_type_2")

        !call test%run(test_specbase_domainErrCountMax_type_3, SK_"test_specbase_domainErrCountMax_type_3")


        call test%summarize()


    end subroutine setTest


!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


end module test_pm_paraNest

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::RK
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_sampling
This module contains procedures and generic interfaces for the ParaMonte library sampler routines.
Definition: pm_sampling.F90:30

pm_sampling::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_sampling.F90:40

pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42

test_pm_paraNest
This module contains tests of the module pm_sampling.
Definition: test_pm_paraNest.F90:20

test_pm_paraNest::setTest
subroutine setTest()
Definition: test_pm_paraNest.F90:64

test_pm_paraNest::test
type(test_type) test
Definition: test_pm_paraNest.F90:30

pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209