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 2 : subroutine test_ParaDXXX()
236 : implicit none
237 2 : Test = Test_type(moduleName=MODULE_NAME)
238 :
239 2 : call Test%run(test_runSampler_1 , "test_runSampler_1")
240 2 : call Test%run(test_runSampler_2 , "test_runSampler_2")
241 2 : call Test%run(test_runSampler_3 , "test_runSampler_3")
242 2 : call Test%run(test_runSampler_4 , "test_runSampler_4")
243 2 : call Test%run(test_runSampler_5 , "test_runSampler_5")
244 2 : call Test%run(test_runSampler_6 , "test_runSampler_6")
245 2 : call Test%run(test_runSampler_7 , "test_runSampler_7")
246 2 : call Test%run(test_runSampler_8 , "test_runSampler_8")
247 2 : call Test%run(test_runSampler_9 , "test_runSampler_9")
248 2 : call Test%run(test_runSampler_10, "test_runSampler_10")
249 2 : call Test%run(test_runSampler_11, "test_runSampler_11")
250 2 : call Test%run(test_runSampler_12, "test_runSampler_12")
251 2 : call Test%run(test_runSampler_13, "test_runSampler_13")
252 2 : call Test%run(test_runSampler_14, "test_runSampler_14")
253 2 : call Test%run(test_runSampler_15, "test_runSampler_15")
254 2 : call Test%run(test_runSampler_16, "test_runSampler_16")
255 2 : call Test%run(test_runSampler_17, "test_runSampler_17")
256 2 : call Test%run(test_runSampler_18, "test_runSampler_18")
257 2 : call Test%run(test_runSampler_19, "test_runSampler_19")
258 2 : call Test%run(test_runSampler_20, "test_runSampler_20")
259 2 : call Test%run(test_runSampler_21, "test_runSampler_21")
260 2 : call Test%run(test_runSampler_22, "test_runSampler_22")
261 :
262 2 : call Test%run(test_SpecBase_RandomSeed_type_1, "test_SpecBase_RandomSeed_type_1")
263 2 : call Test%run(test_SpecBase_RandomSeed_type_2, "test_SpecBase_RandomSeed_type_2")
264 2 : call Test%run(test_SpecBase_SampleSize_type_1, "test_SpecBase_SampleSize_type_1")
265 2 : call Test%run(test_SpecBase_SampleSize_type_2, "test_SpecBase_SampleSize_type_2")
266 2 : call Test%run(test_SpecBase_SampleSize_type_3, "test_SpecBase_SampleSize_type_3")
267 2 : call Test%run(test_SpecBase_SampleSize_type_4, "test_SpecBase_SampleSize_type_4")
268 2 : call Test%run(test_SpecBase_OutputDelimiter_type_1, "test_SpecBase_OutputDelimiter_type_1")
269 2 : call Test%run(test_SpecBase_OutputDelimiter_type_2, "test_SpecBase_OutputDelimiter_type_2")
270 2 : call Test%run(test_SpecBase_OutputDelimiter_type_3, "test_SpecBase_OutputDelimiter_type_3")
271 2 : call Test%run(test_SpecBase_OutputDelimiter_type_4, "test_SpecBase_OutputDelimiter_type_4")
272 2 : call Test%run(test_SpecBase_OutputDelimiter_type_5, "test_SpecBase_OutputDelimiter_type_5")
273 2 : call Test%run(test_SpecBase_OutputDelimiter_type_6, "test_SpecBase_OutputDelimiter_type_6")
274 2 : call Test%run(test_SpecBase_ChainFileFormat_type_1, "test_SpecBase_ChainFileFormat_type_1")
275 2 : call Test%run(test_SpecBase_ChainFileFormat_type_2, "test_SpecBase_ChainFileFormat_type_2")
276 2 : call Test%run(test_SpecBase_ChainFileFormat_type_3, "test_SpecBase_ChainFileFormat_type_3")
277 2 : call Test%run(test_SpecBase_ChainFileFormat_type_4, "test_SpecBase_ChainFileFormat_type_4")
278 2 : call Test%run(test_SpecBase_ChainFileFormat_type_5, "test_SpecBase_ChainFileFormat_type_5")
279 2 : call Test%run(test_SpecBase_OutputColumnWidth_type_1, "test_SpecBase_OutputColumnWidth_type_1")
280 2 : call Test%run(test_SpecBase_OutputColumnWidth_type_2, "test_SpecBase_OutputColumnWidth_type_2")
281 2 : call Test%run(test_SpecBase_OutputColumnWidth_type_3, "test_SpecBase_OutputColumnWidth_type_3")
282 2 : call Test%run(test_SpecBase_OutputColumnWidth_type_4, "test_SpecBase_OutputColumnWidth_type_4")
283 2 : call Test%run(test_SpecBase_RestartFileFormat_type_1, "test_SpecBase_RestartFileFormat_type_1")
284 2 : call Test%run(test_SpecBase_RestartFileFormat_type_2, "test_SpecBase_RestartFileFormat_type_2")
285 2 : call Test%run(test_SpecBase_RestartFileFormat_type_3, "test_SpecBase_RestartFileFormat_type_3")
286 2 : call Test%run(test_SpecBase_OverwriteRequested_type_1, "test_SpecBase_OverwriteRequested_type_1")
287 2 : call Test%run(test_SpecBase_OverwriteRequested_type_2, "test_SpecBase_OverwriteRequested_type_2")
288 2 : call Test%run(test_SpecBase_DomainLowerLimitVec_type_1, "test_SpecBase_DomainLowerLimitVec_type_1")
289 2 : call Test%run(test_SpecBase_DomainLowerLimitVec_type_2, "test_SpecBase_DomainLowerLimitVec_type_2")
290 2 : call Test%run(test_SpecBase_DomainUpperLimitVec_type_1, "test_SpecBase_DomainUpperLimitVec_type_1")
291 2 : call Test%run(test_SpecBase_DomainUpperLimitVec_type_2, "test_SpecBase_DomainUpperLimitVec_type_2")
292 2 : call Test%run(test_SpecBase_DomainUpperLimitVec_type_3, "test_SpecBase_DomainUpperLimitVec_type_3")
293 2 : call Test%run(test_SpecBase_DomainUpperLimitVec_type_4, "test_SpecBase_DomainUpperLimitVec_type_4")
294 2 : call Test%run(test_SpecBase_OutputRealPrecision_type_1, "test_SpecBase_OutputRealPrecision_type_1")
295 2 : call Test%run(test_SpecBase_OutputRealPrecision_type_2, "test_SpecBase_OutputRealPrecision_type_2")
296 2 : call Test%run(test_SpecBase_ProgressReportPeriod_type_1, "test_SpecBase_ProgressReportPeriod_type_1")
297 2 : call Test%run(test_SpecBase_ProgressReportPeriod_type_2, "test_SpecBase_ProgressReportPeriod_type_2")
298 2 : call Test%run(test_SpecBase_ParallelizationModel_type_1, "test_SpecBase_ParallelizationModel_type_1")
299 2 : call Test%run(test_SpecBase_ParallelizationModel_type_2, "test_SpecBase_ParallelizationModel_type_2")
300 2 : call Test%run(test_SpecBase_ParallelizationModel_type_3, "test_SpecBase_ParallelizationModel_type_3")
301 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_1, "test_SpecBase_TargetAcceptanceRate_type_1")
302 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_2, "test_SpecBase_TargetAcceptanceRate_type_2")
303 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_3, "test_SpecBase_TargetAcceptanceRate_type_3")
304 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_4, "test_SpecBase_TargetAcceptanceRate_type_4")
305 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_5, "test_SpecBase_TargetAcceptanceRate_type_5")
306 2 : call Test%run(test_SpecBase_TargetAcceptanceRate_type_6, "test_SpecBase_TargetAcceptanceRate_type_6")
307 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_1, "test_SpecBase_MaxNumDomainCheckToWarn_type_1")
308 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_2, "test_SpecBase_MaxNumDomainCheckToWarn_type_2")
309 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToWarn_type_3, "test_SpecBase_MaxNumDomainCheckToWarn_type_3")
310 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_1, "test_SpecBase_MaxNumDomainCheckToStop_type_1")
311 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_2, "test_SpecBase_MaxNumDomainCheckToStop_type_2")
312 2 : call Test%run(test_SpecBase_MaxNumDomainCheckToStop_type_3, "test_SpecBase_MaxNumDomainCheckToStop_type_3")
313 :
314 2 : call Test%run(test_SpecMCMC_ChainSize_type_1, "test_SpecMCMC_ChainSize_type_1")
315 2 : call Test%run(test_SpecMCMC_ChainSize_type_2, "test_SpecMCMC_ChainSize_type_2")
316 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_1, "test_SpecMCMC_ScaleFactor_type_1")
317 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_2, "test_SpecMCMC_ScaleFactor_type_2")
318 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_3, "test_SpecMCMC_ScaleFactor_type_3")
319 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_4, "test_SpecMCMC_ScaleFactor_type_4")
320 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_5, "test_SpecMCMC_ScaleFactor_type_5")
321 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_6, "test_SpecMCMC_ScaleFactor_type_6")
322 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_7, "test_SpecMCMC_ScaleFactor_type_7")
323 2 : call Test%run(test_SpecMCMC_ScaleFactor_type_8, "test_SpecMCMC_ScaleFactor_type_8")
324 2 : call Test%run(test_SpecMCMC_ProposalModel_type_1, "test_SpecMCMC_ProposalModel_type_1")
325 2 : call Test%run(test_SpecMCMC_ProposalModel_type_2, "test_SpecMCMC_ProposalModel_type_2")
326 2 : call Test%run(test_SpecMCMC_ProposalModel_type_3, "test_SpecMCMC_ProposalModel_type_3")
327 2 : call Test%run(test_SpecMCMC_ProposalModel_type_4, "test_SpecMCMC_ProposalModel_type_4")
328 2 : call Test%run(test_SpecMCMC_StartPointVec_type_1, "test_SpecMCMC_StartPointVec_type_1")
329 2 : call Test%run(test_SpecMCMC_StartPointVec_type_2, "test_SpecMCMC_StartPointVec_type_2")
330 2 : call Test%run(test_SpecMCMC_StartPointVec_type_3, "test_SpecMCMC_StartPointVec_type_3")
331 2 : call Test%run(test_SpecMCMC_StartPointVec_type_4, "test_SpecMCMC_StartPointVec_type_4")
332 2 : call Test%run(test_SpecMCMC_StartPointVec_type_5, "test_SpecMCMC_StartPointVec_type_5")
333 2 : call Test%run(test_SpecMCMC_ProposalStartCovMat_type_1, "test_SpecMCMC_ProposalStartCovMat_type_1")
334 2 : call Test%run(test_SpecMCMC_ProposalStartCovMat_type_2, "test_SpecMCMC_ProposalStartCovMat_type_2")
335 2 : call Test%run(test_SpecMCMC_ProposalStartCovMat_type_3, "test_SpecMCMC_ProposalStartCovMat_type_3")
336 2 : call Test%run(test_SpecMCMC_ProposalStartCovMat_type_4, "test_SpecMCMC_ProposalStartCovMat_type_4")
337 2 : call Test%run(test_SpecMCMC_ProposalStartCovMat_type_5, "test_SpecMCMC_ProposalStartCovMat_type_5")
338 2 : call Test%run(test_SpecMCMC_ProposalStartCorMat_type_1, "test_SpecMCMC_ProposalStartCorMat_type_1")
339 2 : call Test%run(test_SpecMCMC_ProposalStartCorMat_type_2, "test_SpecMCMC_ProposalStartCorMat_type_2")
340 2 : call Test%run(test_SpecMCMC_ProposalStartCorMat_type_3, "test_SpecMCMC_ProposalStartCorMat_type_3")
341 2 : call Test%run(test_SpecMCMC_ProposalStartCorMat_type_4, "test_SpecMCMC_ProposalStartCorMat_type_4")
342 2 : call Test%run(test_SpecMCMC_ProposalStartCorMat_type_5, "test_SpecMCMC_ProposalStartCorMat_type_5")
343 2 : call Test%run(test_SpecMCMC_ProposalStartStdVec_type_1, "test_SpecMCMC_ProposalStartStdVec_type_1")
344 2 : call Test%run(test_SpecMCMC_ProposalStartStdVec_type_2, "test_SpecMCMC_ProposalStartStdVec_type_2")
345 2 : call Test%run(test_SpecMCMC_ProposalStartStdVec_type_3, "test_SpecMCMC_ProposalStartStdVec_type_3")
346 2 : call Test%run(test_SpecMCMC_ProposalStartStdVec_type_4, "test_SpecMCMC_ProposalStartStdVec_type_4")
347 2 : call Test%run(test_SpecMCMC_ProposalStartStdVec_type_5, "test_SpecMCMC_ProposalStartStdVec_type_5")
348 2 : call Test%run(test_SpecMCMC_SampleRefinementCount_type_1, "test_SpecMCMC_SampleRefinementCount_type_1")
349 2 : call Test%run(test_SpecMCMC_SampleRefinementCount_type_2, "test_SpecMCMC_SampleRefinementCount_type_2")
350 2 : call Test%run(test_SpecMCMC_SampleRefinementCount_type_3, "test_SpecMCMC_SampleRefinementCount_type_3")
351 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_1, "test_SpecMCMC_SampleRefinementMethod_type_1")
352 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_2, "test_SpecMCMC_SampleRefinementMethod_type_2")
353 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_3, "test_SpecMCMC_SampleRefinementMethod_type_3")
354 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_4, "test_SpecMCMC_SampleRefinementMethod_type_4")
355 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_5, "test_SpecMCMC_SampleRefinementMethod_type_5")
356 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_6, "test_SpecMCMC_SampleRefinementMethod_type_6")
357 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_7, "test_SpecMCMC_SampleRefinementMethod_type_7")
358 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_8, "test_SpecMCMC_SampleRefinementMethod_type_8")
359 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_9, "test_SpecMCMC_SampleRefinementMethod_type_9")
360 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_10, "test_SpecMCMC_SampleRefinementMethod_type_10")
361 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_11, "test_SpecMCMC_SampleRefinementMethod_type_11")
362 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_12, "test_SpecMCMC_SampleRefinementMethod_type_12")
363 2 : call Test%run(test_SpecMCMC_SampleRefinementMethod_type_13, "test_SpecMCMC_SampleRefinementMethod_type_13")
364 2 : call Test%run(test_SpecMCMC_RandomStartPointRequested_type_1, "test_SpecMCMC_RandomStartPointRequested_type_1")
365 2 : call Test%run(test_SpecMCMC_RandomStartPointRequested_type_2, "test_SpecMCMC_RandomStartPointRequested_type_2")
366 2 : call Test%run(test_SpecMCMC_RandomStartPointRequested_type_3, "test_SpecMCMC_RandomStartPointRequested_type_3")
367 2 : call Test%run(test_SpecMCMC_RandomStartPointRequested_type_4, "test_SpecMCMC_RandomStartPointRequested_type_4")
368 2 : 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 2 : 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 2 : 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 2 : 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 2 : 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 2 : 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 2 : 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 2 : call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_1, "test_SpecDRAM_AdaptiveUpdateCount_type_1")
377 2 : call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_2, "test_SpecDRAM_AdaptiveUpdateCount_type_2")
378 2 : call Test%run(test_SpecDRAM_AdaptiveUpdateCount_type_3, "test_SpecDRAM_AdaptiveUpdateCount_type_3")
379 2 : call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_1, "test_SpecDRAM_AdaptiveUpdatePeriod_type_1")
380 2 : call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_2, "test_SpecDRAM_AdaptiveUpdatePeriod_type_2")
381 2 : call Test%run(test_SpecDRAM_AdaptiveUpdatePeriod_type_3, "test_SpecDRAM_AdaptiveUpdatePeriod_type_3")
382 2 : call Test%run(test_SpecDRAM_DelayedRejectionCount_type_1, "test_SpecDRAM_DelayedRejectionCount_type_1")
383 2 : call Test%run(test_SpecDRAM_DelayedRejectionCount_type_2, "test_SpecDRAM_DelayedRejectionCount_type_2")
384 2 : call Test%run(test_SpecDRAM_DelayedRejectionCount_type_3, "test_SpecDRAM_DelayedRejectionCount_type_3")
385 2 : call Test%run(test_SpecDRAM_DelayedRejectionCount_type_4, "test_SpecDRAM_DelayedRejectionCount_type_4")
386 2 : call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_1, "test_SpecDRAM_GreedyAdaptationCount_type_1")
387 2 : call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_2, "test_SpecDRAM_GreedyAdaptationCount_type_2")
388 2 : call Test%run(test_SpecDRAM_GreedyAdaptationCount_type_3, "test_SpecDRAM_GreedyAdaptationCount_type_3")
389 2 : call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_1, "test_SpecDRAM_BurninAdaptationMeasure_type_1")
390 2 : call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_2, "test_SpecDRAM_BurninAdaptationMeasure_type_2")
391 2 : call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_3, "test_SpecDRAM_BurninAdaptationMeasure_type_3")
392 2 : call Test%run(test_SpecDRAM_BurninAdaptationMeasure_type_4, "test_SpecDRAM_BurninAdaptationMeasure_type_4")
393 2 : call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_1, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_1")
394 2 : call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_2, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_2")
395 2 : call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_3, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_3")
396 2 : call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_4, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_4")
397 2 : call Test%run(test_SpecDRAM_DelayedRejectionScaleFactorVec_type_5, "test_SpecDRAM_DelayedRejectionScaleFactorVec_type_5")
398 :
399 2 : call Test%finalize()
400 2 : end subroutine test_ParaDXXX
401 :
402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 :
404 : ! end module Test_ParaDXXX_mod
|
