Line data    Source code

       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             : 
      17             : !>  \brief
      18             : !>  This is main entry to the tests of the ParaMonte kernel library.
      19             : !>
      20             : !>  \finmain
      21             : !>
      22             : !>  \author
      23             : !>  \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
      24             : 
      25             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      26             : 
      27             : program main
      28             : 
      29          27 : use pm_test, only: setSummary
      30             : 
      31             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      32             : 
      33             : !block; use test_pm_arrayCenter; call setTest(); end block
      34             : !block; use test_pm_arrayChange; call setTest(); end block
      35             : !block; use test_pm_arrayChoice; call setTest(); end block
      36             : !block; use test_pm_arrayCompact; call setTest(); end block
      37             : !block; use test_pm_arrayComplement; call setTest(); end block
      38             : !block; use test_pm_arrayCompareLex; call setTest(); end block
      39             : !block; use test_pm_arrayCopy; call setTest(); end block
      40             : !block; use test_pm_arrayCopy; call setTest(); end block
      41             : !block; use test_pm_arrayFill; call setTest(); end block
      42             : !block; use test_pm_arraySearch; call setTest(); end block
      43             : !block; use test_pm_arrayFind; call setTest(); end block
      44             : !block; use test_pm_arrayInit; call setTest(); end block
      45             : !block; use test_pm_arrayInsert; call setTest(); end block
      46             : !block; use test_pm_arrayMerge; call setTest(); end block
      47             : !block; use test_pm_arrayPad; call setTest(); end block
      48             : !block; use test_pm_arrayRange; call setTest(); end block
      49             : !block; use test_pm_arrayRank; call setTest(); end block
      50             : !block; use test_pm_arrayRefill; call setTest(); end block
      51             : !block; use test_pm_arrayRebill; call setTest(); end block
      52             : !block; use test_pm_arrayRebind; call setTest(); end block
      53             : !block; use test_pm_arrayRemap; call setTest(); end block
      54             : !block; use test_pm_arrayRemove; call setTest(); end block
      55             : !block; use test_pm_arrayReplace; call setTest(); end block
      56             : !block; use test_pm_arrayResize; call setTest(); end block
      57             : !block; use test_pm_arrayReverse; call setTest(); end block
      58             : !block; use test_pm_arraySpace; call setTest(); end block
      59             : !block; use test_pm_arraySelect; call setTest(); end block
      60             : !block; use test_pm_arrayShuffle; call setTest(); end block
      61             : !block; use test_pm_arraySort; call setTest(); end block
      62             : !block; use test_pm_arraySplit; call setTest(); end block
      63             : !block; use test_pm_arrayStrip; call setTest(); end block
      64             : !block; use test_pm_arrayUnique; call setTest(); end block
      65             : !block; use test_pm_arrayVerbose; call setTest(); end block
      66             : !block; use test_pm_bench; call setTest(); end block
      67             : !block; use test_pm_complexAbs; call setTest(); end block
      68             : !block; use test_pm_complexDiv; call setTest(); end block
      69             : !block; use test_pm_complexCompareAll; call setTest(); end block
      70             : !block; use test_pm_complexCompareAny; call setTest(); end block
      71             : !block; use test_pm_complexCompareLex; call setTest(); end block
      72             : !block; use test_pm_cosmicRate; call setTest(); end block
      73             : !block; use test_pm_cosmology; call setTest(); end block
      74             : !block; use test_pm_dateTime; call setTest(); end block
      75             : !block; use test_pm_distanceEuclid; call setTest(); end block
      76             : !block; use test_pm_distBern; call setTest(); end block
      77             : !block; use test_pm_distExp; call setTest(); end block
      78             : !block; use test_pm_distGamma; call setTest(); end block
      79             : !block; use test_pm_distGenExpGamma; call setTest(); end block
      80             : !block; use test_pm_distPareto; call setTest(); end block
      81             : !block; use test_pm_distPower; call setTest(); end block
      82             : !block; use test_pm_distPiwiPoweto; call setTest(); end block
      83             : !block; use test_pm_except; call setTest(); end block
      84             : !block; use test_pm_mathCompare; call setTest(); end block
      85             : !block; use test_pm_mathCumPropExp; call setTest(); end block
      86             : !block; use test_pm_mathCumSum; call setTest(); end block
      87             : !block; use test_pm_mathFactorial; call setTest(); end block
      88             : !block; use test_pm_mathFactoring; call setTest(); end block
      89             : !block; use test_pm_mathExp; call setTest(); end block
      90             : !block; use test_pm_mathRoot; call setTest(); end block
      91             : !block; use test_pm_matrixChol; call setTest(); end block
      92             : !block; use test_pm_matrixMulAdd; call setTest(); end block
      93             : !block; use test_pm_matrixMulTri; call setTest(); end block
      94             : !block; use test_pm_sampleCCF; call setTest(); end block
      95             : !block; use test_pm_sampleCor; call setTest(); end block
      96             : !block; use test_pm_sampleCov; call setTest(); end block
      97             : !block; use test_pm_sampleMean; call setTest(); end block
      98             : !block; use test_pm_sampleShift; call setTest(); end block
      99             : !block; use test_pm_sampleVar; call setTest(); end block
     100             : !block; use test_pm_timer; call setTest(); end block
     101             : 
     102             : !!block; use test_pm_matrixInit; call setTest(); end block
     103             : 
     104             : !!block; use test_pm_distBand; call setTest(); end block
     105             : !!block; use test_pm_batse; call setTest(); end block
     106             : !!block; use test_pm_except; call setTest(); end block
     107             : !!block; use test_pm_val2complex; call setTest(); end block
     108             : !!block; use test_pm_sampleCrossCorr; call setTest(); end block
     109             : !!block; use test_pm_distanceMahal; call setTest(); end block
     110             : !!block; use test_pm_distMultiNorm; call setTest(); end block
     111             : !!block; use test_pm_distMultiNorm; call setTest(); end block
     112             : !!block; use test_pm_distUnifEll; call setTest(); end block
     113             : !!block; use test_pm_distMultiSkewNorm; call setTest(); end block
     114             : !!block; use test_pm_distNorm; call setTest(); end block
     115             : 
     116             : !!block; use test_pm_distUnif; call setTest(); end block
     117             : !!block; use test_pm_distUnif; call setTest(); end block
     118             : !!block; use test_pm_domainCube; call setTest(); end block
     119             : !!block; use test_pm_domainBall; call setTest(); end block
     120             : !!block; use test_pm_err; call setTest(); end block
     121             : !!block; use test_pm_io; call setTest(); end block
     122             : !!block; use Test_FileContents_pmod; call setTest(); end block
     123             : !!block; use test_pm_io; call setTest(); end block
     124             : !!block; use test_pm_distGeomCyclic; call setTest(); end block
     125             : !!block; use test_pm_knn; call setTest(); end block
     126             : !!block; use test_pm_ellipsoid; call setTest(); end block
     127             : !!block; use test_pm_histogram; call setTest(); end block
     128             : !!block; use test_pm_statest; call setTest(); end block
     129             : !!block; use test_pm_val2int; call setTest(); end block
     130             : !!!block; use test_pm_polation; call setTest(); end block
     131             : !!block; use test_pm_quadRomb; call setTest(); end block
     132             : !!block; use test_pm_polation; call setTest(); end block
     133             : !!block; use test_pm_clustering; call setTest(); end block
     134             : !!block; use test_pm_logicalCompare; call setTest(); end block
     135             : !!block; use test_pm_val2logical; call setTest(); end block
     136             : !
     137             : !!block; use test_pm_math; call setTest(); end block
     138             : !!block; use test_pm_mathGamma; call setTest(); end block
     139             : !!block; use test_pm_mathLogAddExp; call setTest(); end block
     140             : !!block; use test_pm_mathLogSumExp; call setTest(); end block
     141             : !!block; use test_pm_mathMinMax; call setTest(); end block
     142             : !
     143             : !block; use test_pm_matrix; call setTest(); end block
     144             : !block; use test_pm_matrixDet; call setTest(); end block
     145             : !block; use test_pm_matrixInit; call setTest(); end block
     146             : !block; use test_pm_matrixCopy; call setTest(); end block
     147             : !block; use test_pm_matrixTrans; call setTest(); end block
     148             : !
     149             : !block; use test_pm_optimization; call setTest(); end block
     150             : !block; use test_pm_option; call setTest(); end block
     151             : !block; use test_pm_partition; call setTest(); end block
     152             : 
     153             : !!!block; use test_pm_partitionRecursiveMaxDen; call setTest(); end block
     154             : !!!block; use test_pm_partitionRecursiveMinVol; call setTest(); end block
     155             : !!!block; use Test_PartitionBenchm_pmod; call setTest(); end block
     156             : !!!block; use test_pm_partitionMaxDen; call setTest(); end block
     157             : 
     158             : !block; use test_pm_parallelism; call setTest(); end block
     159             : !block; use test_pm_sysPath; call setTest(); end block
     160             : !!block; use test_pm_processPoisson; call setTest(); end block
     161             : !block; use test_pm_sampleQuan; call setTest(); end block
     162             : !block; use test_pm_randomSeed; call setTest(); end block
     163             : !block; use test_pm_val2real; call setTest(); end block
     164             : !block; use Test_SampleCovMat_pmod; call setTest(); end block
     165             : !block; use test_pm_sampleECDF; call setTest(); end block
     166             : !block; use test_pm_sampleShift; call setTest(); end block
     167             : !block; use Test_SampleVariance_pmod; call setTest(); end block
     168             : !block; use Test_Set_pmod; call setTest(); end block
     169             : !block; use test_pm_statistics; call setTest(); end block
     170             : !!block; use test_pm_mathGamma; call setTest(); end block
     171             : !block; use test_pm_strASCII; call setTest(); end block
     172             : !block; use test_pm_container; call setTest(); end block
     173             : !block; use test_pm_val2str; call setTest(); end block
     174             : !block; use test_pm_str; call setTest(); end block
     175             : !block; use test_pm_sysShell; call setTest(); end block
     176             : !block; use test_pm_timer; call setTest(); end block
     177             : !block; use test_pm_timer; call setTest(); end block
     178             : !block; use test_pm_tranGaus; call setTest(); end block
     179             : 
     180             : #if SAMPLER_TEST_ENABLED && 1
     181             : !block; use test_pm_paraDRAM; call setTest(); end block
     182             : !block; use test_pm_paraDISE; call setTest(); end block
     183             : !block; use test_pm_paraNest; call setTest(); end block
     184             : !block; use test_pm_paraDRAM_RefinedChain; call setTest(); end block
     185             : !block; use test_pm_paraDISE_RefinedChain; call setTest(); end block
     186             : !block; use test_pm_paraDRAM_ChainFileContents; call setTest(); end block
     187             : !block; use test_pm_paraDISE_ChainFileContents; call setTest(); end block
     188             : !!block; use test_pm_paraNest_ChainFileContents; call setTest(); end block
     189             : #endif
     190             : 
     191          27 : call setSummary()
     192             : 
     193             : !block
     194             : !    use pm_except, only: BELL
     195             : !    write(*,*) BELL
     196             : !end block
     197             : 
     198             : end program main