mod_timing Module
Wrapper routine to handle the measurements of the different processes
Uses
-
- mod_datatypes
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=dp), | public, | dimension(:,:), allocatable, save | :: | timings_1a | |||
| real(kind=dp), | public, | dimension(:), allocatable, save | :: | timings_1b | |||
| integer, | public, | dimension(:), allocatable, save | :: | load_imbalance | |||
| integer, | private, | parameter | :: | nkeys | = | 20 | |
| integer, | private, | parameter | :: | nkeylen | = | 40 | |
| character(len=nkeylen), | private, | dimension(nkeys) | :: | timingkeys | = | '' | |
| integer, | private, | dimension(nkeys) | :: | start_time | = | 0 | |
| real(kind=dp), | private, | dimension(nkeys) | :: | interm_time | = | 0.0d0 | |
| integer, | private, | dimension(nkeys) | :: | ispaused | = | 0 | |
| integer, | private | :: | init | = | 0 |
Functions
private function timing_findkey(char1, char2)
- License
- Category
- profiling, KKRhost
F i n d
i f
t h e
c u r r e n t
p r o c e s s
i n
i n
m y
p r e d e f i n e d
t i m i n g
k e y w o r d s
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 | |||
| character(len=*), | intent(in), | optional | :: | char2 |
Return Value integer
private function timing_setkey(char1)
- License
- Category
- profiling, KKRhost
S e t
t h e
k e y w o r d
f o r
t h e
t i m i n g
p r o c e s s e s .
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen), | intent(in) | :: | char1 |
Return Value integer
Subroutines
public subroutine timing_init(my_rank, disable_serial_number)
- License
- Category
- profiling, input-output, KKRhost
I n i t i a l i z e
t h e
p r i n t i n g
o f
t h e
t i m i n g
i n f o r m a t i o n
f o r
e a c h
r a n k
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | my_rank | |||
| logical, | intent(in), | optional | :: | disable_serial_number |
public subroutine timing_start(mykey2)
- License
- Category
- profiling, KKRhost
S t a r t
t h e
m e a s u r e m e n t
o f
a
g i v e n
p r o c e s s
i d e n t i f i e d
b y
m
y
k
e
y
2
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_pause(mykey2)
- License
- Category
- profiling, KKRhost
P a u s e
t h e
t i m i n g
o f
t h e
p r o c e s s
d e s c r i b e d
b y
m
y
k
e
y
2
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 |
public subroutine timing_stop(mykey2, save_out)
- License
- Category
- profiling, KKRhost
S t o p
t h e
t i m i n g
o f
t h e
p r o c e s s
d e s c r i b e d
b y
m
y
k
e
y
2
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mykey2 | |||
| real(kind=dp), | intent(out), | optional | :: | save_out |
private subroutine timing_delkey(char1)
- License
- Category
- profiling, KKRhost
S e t s
t h e
k e y
c o r r e s p o n d i n g
t o
t h e
p r e s e n t
k e y w o r d
t o
b l a n k ,
a n d
r e s e t s
i t s
t i m i n g .
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=nkeylen) | :: | char1 |
public subroutine print_time_and_date(message)
- License
- Category
- profiling, input-output, KKRhost
H e l p e r
r o u t i n e
t h a t
p r i n t
' m e s s a g e '
w i t h
a
t i m e
s t a m p
t o
s c r e e n
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message |