Loading [MathJax]/extensions/tex2jax.js
ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
•All Classes Namespaces Files Functions Variables Pages
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
main
program main
This is main entry to the tests of the ParaMonte kernel library.
Definition: main.F90:27
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
pm_test::setSummary
subroutine setSummary()
Summarize the collection of all tests performed on all modules (or scoping units).
Definition: pm_test.F90:308