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
|
