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 This file contains the implementations of the tests of module [pm_val2Real](@ref pm_timer).
      18             : !>
      19             : !>  \fintest
      20             : !>
      21             : !>  \author
      22             : !>  \AmirShahmoradi, Tuesday March 7, 2017, 3:50 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
      23             : 
      24             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      25             : 
      26             : submodule (test_pm_timer) routines
      27             : 
      28             :     use pm_val2str, only: getStr
      29             :     use pm_kind, only: IK
      30             : 
      31             :     implicit none
      32             : 
      33             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      34             : 
      35             : contains
      36             : 
      37             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      38             : 
      39             : #define timer_ENABLED 1
      40             : 
      41           1 :     module procedure test_timer_type
      42             :         use pm_timer, only: timer_type
      43             : #include "test_pm_timer@routines.inc.F90"
      44           1 :     end procedure
      45             : 
      46             : #undef timer_ENABLED
      47             : 
      48             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      49             : 
      50             : #define timerCPU_ENABLED 1
      51             : 
      52           1 :     module procedure test_timerCPU_type
      53             :         use pm_timer, only: timer_type => timerCPU_type
      54             : #include "test_pm_timer@routines.inc.F90"
      55           1 :     end procedure
      56             : 
      57             : #undef timerCPU_ENABLED
      58             : 
      59             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      60             : 
      61             : #define timerDAT_ENABLED 1
      62             : 
      63           1 :     module procedure test_timerDAT_type
      64             :         use pm_timer, only: timer_type => timerDAT_type
      65             : #include "test_pm_timer@routines.inc.F90"
      66           1 :     end procedure
      67             : 
      68             : #undef timerDAT_ENABLED
      69             : 
      70             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      71             : 
      72             : #define timerSYS_ENABLED 1
      73             : 
      74           1 :     module procedure test_timerSYS_type
      75             :         use pm_timer, only: timer_type => timerSYS_type
      76             : #include "test_pm_timer@routines.inc.F90"
      77           1 :     end procedure
      78             : 
      79             : #undef timerSYS_ENABLED
      80             : 
      81             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      82             : 
      83             : #define timerMPI_ENABLED 1
      84             : 
      85             : #if MPI_ENABLED
      86             :     module procedure test_timerMPI_type
      87             :         use pm_timer, only: timer_type => timerMPI_type
      88             : #include "test_pm_timer@routines.inc.F90"
      89             :     end procedure
      90             : #endif
      91             : 
      92             : #undef timerMPI_ENABLED
      93             : 
      94             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      95             : 
      96             : #define timerOMP_ENABLED 1
      97             : 
      98             : #if OMP_ENABLED
      99             :     module procedure test_timerOMP_type
     100             :         use pm_timer, only: timer_type => timerOMP_type
     101             : #include "test_pm_timer@routines.inc.F90"
     102             :     end procedure
     103             : #endif
     104             : 
     105             : #undef timerOMP_ENABLED
     106             : 
     107             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     108             : 
     109             : end submodule routines ! LCOV_EXCL_LINE