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
Lorenz Huedepohl
ftimings
Commits
3d828456
Commit
3d828456
authored
Mar 28, 2014
by
Lorenz Huedepohl
Browse files
A default threshold of > 0 is not wise, use >= 0
Otherwise, very fast routines are simply not printed
parent
9d9387fc
Changes
1
Hide whitespace changes
Inline
Side-by-side
ftimings/ftimings_node.F90
View file @
3d828456
...
...
@@ -336,7 +336,7 @@ module ftimings_node
node
=>
self
%
firstChild
do
while
(
associated
(
node
))
node_value
=
node
%
get_value
()
if
(
node_value
%
micros
*
1e-6_rk
>
threshold_act
&
if
(
node_value
%
micros
*
1e-6_rk
>
=
threshold_act
&
.or.
associated
(
node
,
threshold_node
)
&
.or.
associated
(
node
,
own_node
))
then
call
node
%
print_graph
(
indent_level
+
1
,
threshold
,
is_sorted
,
cur_value
,
unit_act
)
...
...
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