ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
main.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27program main
28
29use pm_test, only: setSummary
30
31call random_seed()
32
33!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34
35block; use test_pm_arrayCenter; call setTest(); end block
36block; use test_pm_arrayChange; call setTest(); end block
37block; use test_pm_arrayChoice; call setTest(); end block
38block; use test_pm_arrayCompact; call setTest(); end block
39block; use test_pm_arrayComplement; call setTest(); end block
40block; use test_pm_arrayCompareLex; call setTest(); end block
41block; use test_pm_arrayCopy; call setTest(); end block
42block; use test_pm_arrayCopy; call setTest(); end block
43block; use test_pm_arrayFill; call setTest(); end block
44block; use test_pm_arraySearch; call setTest(); end block
45block; use test_pm_arrayFind; call setTest(); end block
46block; use test_pm_arrayInit; call setTest(); end block
47block; use test_pm_arrayInsert; call setTest(); end block
48block; use test_pm_arrayMerge; call setTest(); end block
49block; use test_pm_arrayPad; call setTest(); end block
50block; use test_pm_arrayRange; call setTest(); end block
51block; use test_pm_arrayRank; call setTest(); end block
52block; use test_pm_arrayRefill; call setTest(); end block
53block; use test_pm_arrayRebill; call setTest(); end block
54block; use test_pm_arrayRebind; call setTest(); end block
55block; use test_pm_arrayRemap; call setTest(); end block
56block; use test_pm_arrayRemove; call setTest(); end block
57block; use test_pm_arrayReplace; call setTest(); end block
58block; use test_pm_arrayResize; call setTest(); end block
59block; use test_pm_arrayReverse; call setTest(); end block
60block; use test_pm_arraySpace; call setTest(); end block
61block; use test_pm_arraySelect; call setTest(); end block
62block; use test_pm_arrayShuffle; call setTest(); end block
63block; use test_pm_arraySort; call setTest(); end block
64block; use test_pm_arraySplit; call setTest(); end block
65block; use test_pm_arrayStrip; call setTest(); end block
66block; use test_pm_arrayUnique; call setTest(); end block
67block; use test_pm_arrayVerbose; call setTest(); end block
68block; use test_pm_bench; call setTest(); end block
69block; use test_pm_complexAbs; call setTest(); end block
70block; use test_pm_complexDiv; call setTest(); end block
71block; use test_pm_complexCompareAll; call setTest(); end block
72block; use test_pm_complexCompareAny; call setTest(); end block
73block; use test_pm_complexCompareLex; call setTest(); end block
74block; use test_pm_cosmicRate; call setTest(); end block
75block; use test_pm_cosmology; call setTest(); end block
76block; use test_pm_dateTime; call setTest(); end block
77block; use test_pm_distanceEuclid; call setTest(); end block
78block; use test_pm_distBern; call setTest(); end block
79block; use test_pm_distExp; call setTest(); end block
80block; use test_pm_distGamma; call setTest(); end block
81block; use test_pm_distGenExpGamma; call setTest(); end block
82block; use test_pm_distPareto; call setTest(); end block
83block; use test_pm_distPower; call setTest(); end block
84block; use test_pm_distPiwiPoweto; call setTest(); end block
85block; use test_pm_except; call setTest(); end block
86block; use test_pm_mathCompare; call setTest(); end block
87block; use test_pm_mathCumPropExp; call setTest(); end block
88block; use test_pm_mathCumSum; call setTest(); end block
89block; use test_pm_mathFactorial; call setTest(); end block
90block; use test_pm_mathFactoring; call setTest(); end block
91block; use test_pm_mathExp; call setTest(); end block
92block; use test_pm_mathRoot; call setTest(); end block
93block; use test_pm_matrixChol; call setTest(); end block
94block; use test_pm_matrixMulAdd; call setTest(); end block
95block; use test_pm_matrixMulTri; call setTest(); end block
96block; use test_pm_sampleCCF; call setTest(); end block
97block; use test_pm_sampleCor; call setTest(); end block
98block; use test_pm_sampleCov; call setTest(); end block
99block; use test_pm_sampleMean; call setTest(); end block
100block; use test_pm_sampleShift; call setTest(); end block
101block; use test_pm_sampleVar; call setTest(); end block
102block; use test_pm_timer; call setTest(); end block
103
104!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
106!!block; use test_pm_matrixInit; call setTest(); end block
107
108!!block; use test_pm_distBand; call setTest(); end block
109!!block; use test_pm_batse; call setTest(); end block
110!!block; use test_pm_except; call setTest(); end block
111!!block; use test_pm_val2complex; call setTest(); end block
112!!block; use test_pm_sampleCrossCorr; call setTest(); end block
113!!block; use test_pm_distanceMahal; call setTest(); end block
114!!block; use test_pm_distMultiNorm; call setTest(); end block
115!!block; use test_pm_distMultiNorm; call setTest(); end block
116!!block; use test_pm_distUnifEll; call setTest(); end block
117!!block; use test_pm_distMultiSkewNorm; call setTest(); end block
118!!block; use test_pm_distNorm; call setTest(); end block
119
120!!block; use test_pm_distUnif; call setTest(); end block
121!!block; use test_pm_distUnif; call setTest(); end block
122!!block; use test_pm_domainCube; call setTest(); end block
123!!block; use test_pm_domainBall; call setTest(); end block
124!!block; use test_pm_err; call setTest(); end block
125!!block; use test_pm_io; call setTest(); end block
126!!block; use Test_FileContents_pmod; call setTest(); end block
127!!block; use test_pm_io; call setTest(); end block
128!!block; use test_pm_distGeomCyclic; call setTest(); end block
129!!block; use test_pm_knn; call setTest(); end block
130!!block; use test_pm_ellipsoid; call setTest(); end block
131!!block; use test_pm_histogram; call setTest(); end block
132!!block; use test_pm_statest; call setTest(); end block
133!!block; use test_pm_val2int; call setTest(); end block
134!!!block; use test_pm_polation; call setTest(); end block
135!!block; use test_pm_quadRomb; call setTest(); end block
136!!block; use test_pm_polation; call setTest(); end block
137!!block; use test_pm_clusKmeans; call setTest(); end block
138!!block; use test_pm_logicalCompare; call setTest(); end block
139!!block; use test_pm_val2logical; call setTest(); end block
140!
141!!block; use test_pm_math; call setTest(); end block
142!!block; use test_pm_mathGamma; call setTest(); end block
143!!block; use test_pm_mathLogAddExp; call setTest(); end block
144!!block; use test_pm_mathLogSumExp; call setTest(); end block
145!!block; use test_pm_mathMinMax; call setTest(); end block
146!
147!block; use test_pm_matrix; call setTest(); end block
148!block; use test_pm_matrixDet; call setTest(); end block
149!block; use test_pm_matrixInit; call setTest(); end block
150!block; use test_pm_matrixCopy; call setTest(); end block
151!block; use test_pm_matrixTrans; call setTest(); end block
152!
153!block; use test_pm_optimization; call setTest(); end block
154!block; use test_pm_option; call setTest(); end block
155!block; use test_pm_partition; call setTest(); end block
156
157!!!block; use test_pm_partitionRecursiveMaxDen; call setTest(); end block
158!!!block; use test_pm_partitionRecursiveMinVol; call setTest(); end block
159!!!block; use Test_PartitionBenchm_pmod; call setTest(); end block
160!!!block; use test_pm_partitionMaxDen; call setTest(); end block
161
162!block; use test_pm_parallelism; call setTest(); end block
163!block; use test_pm_sysPath; call setTest(); end block
164!!block; use test_pm_processPoisson; call setTest(); end block
165!block; use test_pm_sampleQuan; call setTest(); end block
166!block; use test_pm_randomSeed; call setTest(); end block
167!block; use test_pm_val2real; call setTest(); end block
168!block; use Test_SampleCovMat_pmod; call setTest(); end block
169!block; use test_pm_sampleECDF; call setTest(); end block
170!block; use test_pm_sampleShift; call setTest(); end block
171!block; use Test_SampleVariance_pmod; call setTest(); end block
172!block; use Test_Set_pmod; call setTest(); end block
173!block; use test_pm_statistics; call setTest(); end block
174!!block; use test_pm_mathGamma; call setTest(); end block
175!block; use test_pm_strASCII; call setTest(); end block
176!block; use test_pm_container; call setTest(); end block
177!block; use test_pm_val2str; call setTest(); end block
178!block; use test_pm_str; call setTest(); end block
179!block; use test_pm_sysShell; call setTest(); end block
180!block; use test_pm_timer; call setTest(); end block
181!block; use test_pm_timer; call setTest(); end block
182!block; use test_pm_tranGaus; call setTest(); end block
183
184#if SAMPLER_TEST_ENABLED && 1
185!block; use test_pm_paraDRAM; call setTest(); end block
186!block; use test_pm_paraDISE; call setTest(); end block
187!block; use test_pm_paraNest; call setTest(); end block
188!block; use test_pm_paraDRAM_RefinedChain; call setTest(); end block
189!block; use test_pm_paraDISE_RefinedChain; call setTest(); end block
190!block; use test_pm_paraDRAM_ChainFileContents; call setTest(); end block
191!block; use test_pm_paraDISE_ChainFileContents; call setTest(); end block
192!!block; use test_pm_paraNest_ChainFileContents; call setTest(); end block
193#endif
194
195call setSummary()
196
197!block
198! use pm_except, only: BELL
199! write(*,*) BELL
200!end block
201
202end program main
program main
This is main entry to the tests of the ParaMonte kernel library.
Definition: main.F90:27
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
subroutine setSummary()
Summarize the collection of all tests performed on all modules (or scoping units).
Definition: pm_test.F90:308