mod_timing Module
- David Bauer
-
- KKRimp, special-functions
- 125 statements
- Source File
Set up of the timing routines. Generation of the out_timing files for each rank.
Uses
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | nkeys | = | 20 | |
| integer, | public, | parameter | :: | nkeylen | = | 40 | |
| character(len=nkeylen), | public | :: | timingkeys(nkeys) | = | '' | ||
| integer, | public | :: | start_time(nkeys) | = | 0 | ||
| real(kind=dp), | public | :: | interm_time(nkeys) | = | 0.0D0 | ||
| integer, | public | :: | ispaused(nkeys) | = | 0 | ||
| integer, | public | :: | writetiming | = | 1 | ||
| integer, | public | :: | init | = | 0 |
Functions
public function timing_findkey(char1, char2)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
C h e c k s
i f
k e y
h a s
a
t i m i n g
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 | |||
| character(len=*), | intent(in), | optional | :: | char2 |
Return Value integer
public function timing_setkey(char1)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
S e t
a
k e y
t o
t h e
t i m i n g s
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 |
Return Value integer
Subroutines
public subroutine timing_init(my_rank)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
I n i t i a l i z e
t i m i n g
f i l e s
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | my_rank |
MPI rank |
public subroutine timing_start(mykey2)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
S t a r t
t i m i n g
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
key for the timings |
public subroutine timing_pause(mykey2)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
P a u s e
t i m i n g
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_stop(mykey2)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
S t o p
t i m i n g
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_delkey(char1)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
D e l e t e s
a
k e y
f r o m
t h e
t i m i n g s
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 |