ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_timer.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
27module test_pm_timer
28
29 use pm_timer
30 use pm_test, only: test_type, LK
31
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42 module function test_timer_type() result(assertion); logical(LK) :: assertion; end function
43 module function test_timerCPU_type() result(assertion); logical(LK) :: assertion; end function
44 module function test_timerDAT_type() result(assertion); logical(LK) :: assertion; end function
45 module function test_timerSYS_type() result(assertion); logical(LK) :: assertion; end function
46 module function test_timerMPI_type() result(assertion); logical(LK) :: assertion; end function
47 module function test_timerOMP_type() result(assertion); logical(LK) :: assertion; end function
48
49 end interface
50
51!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52
53contains
54
55!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56
57 subroutine setTest()
58
59 implicit none
60
61 test = test_type(MODULE_NAME)
62
63 call test%run(test_timer_type, SK_"test_timer_type")
64 call test%run(test_timerCPU_type, SK_"test_timerCPU_type")
65 call test%run(test_timerDAT_type, SK_"test_timerDAT_type")
66 call test%run(test_timerSYS_type, SK_"test_timerSYS_type")
67#if MPI_ENABLED
68 call test%run(test_timerMPI_type, SK_"test_timerMPI_type")
69#endif
70#if OMP_ENABLED
71 call test%run(test_timerOMP_type, SK_"test_timerOMP_type")
72#endif
73 call test%summarize()
74
75 end subroutine setTest
76
77!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78
79end module test_pm_timer ! LCOV_EXCL_LINE
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
pm_timer
This module contains the timer procedures and derived types to facilitate timing applications at runt...
Definition: pm_timer.F90:99
pm_timer::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_timer.F90:117
test_pm_timer
This module contains tests of the module pm_timer.
Definition: test_pm_timer.F90:27
test_pm_timer::setTest
subroutine setTest()
Definition: test_pm_timer.F90:58
test_pm_timer::test
type(test_type) test
Definition: test_pm_timer.F90:36
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209