Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
1fb7c13e
Commit
1fb7c13e
authored
Jul 17, 2017
by
Andreas Marek
Browse files
Correct timer calls in QR-decomposition
parent
cc6e4fe4
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/elpa2/qr/elpa_pdgeqrf_template.X90
View file @
1fb7c13e
...
...
@@ -153,7 +153,7 @@
pdlarft_size
(
1
),
pdlarfb_size
(
1
),
&
tmerge_pdlarfb_size
(
1
)))
#endif
call
obj
%
timer
%
stop
(
"qr_pdgeqrf_2dcomm_&
call
obj
%
timer
%
stop
(
"qr_pdgeqrf_2dcomm_&
&PRECISION&
&"
)
return
...
...
@@ -396,7 +396,7 @@
end
if
!print *,'stop decomposition',rowidx,colidx
call
obj
%
timer
%
st
art
(
"qr_pdgeqrf_2dcomm_&
call
obj
%
timer
%
st
op
(
"qr_pdgeqrf_2dcomm_&
&PRECISION&
&"
)
end
subroutine
...
...
@@ -1306,7 +1306,9 @@
work
(
1
)
=
8.0_rk4
#endif
call
obj
%
timer
%
stop
(
"qr_pdlarfg2_1dcomm_seed"
)
call
obj
%
timer
%
stop
(
"qr_pdlarfg2_1dcomm_seed_&
&PRECISION&
&"
)
return
end
if
call
MPI_Comm_rank
(
mpicomm
,
mpirank
,
mpierr
)
...
...
@@ -1888,6 +1890,10 @@
#else
work
(
1
)
=
real
(
2
*
sendrecv_size
,
kind
=
rk4
)
#endif
call
obj
%
timer
%
stop
(
"qr_pdlarfgk_1dcomm_seed_&
&PRECISION&
&"
)
return
end
if
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment