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
Checks if key has a timing
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
Set a key to the timings
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
Initialize timing files
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
Start timing
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
Pause timing
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_stop(mykey2)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
Stop timing
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_delkey(char1)
- Author
- David Bauer
- License
- Category
- KKRimp, special-functions
Deletes a key from the timings
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 |