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
d32bbcb3
Commit
d32bbcb3
authored
May 07, 2014
by
Lorenz Huedepohl
Browse files
These members in node_t where unnecessary
parent
3fe6c3d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
ftimings/ftimings.F90
View file @
d32bbcb3
...
...
@@ -83,10 +83,6 @@ module ftimings
integer
::
count
=
0
! Number of node_stop calls
type
(
value_t
)
::
value
! The actual counter data, see ftimings_values.F90
logical
::
is_running
=
.false.
! .true. if still running
logical
::
record_memory
=
.false.
! If set to .true., record also the current resident set size
#ifdef HAVE_LIBPAPI
logical
::
record_flop_counts
=
.false.
! If set to .true., record also FLOP counts via PAPI calls
#endif
type
(
node_t
),
pointer
::
firstChild
=>
NULL
()
type
(
node_t
),
pointer
::
lastChild
=>
NULL
()
type
(
node_t
),
pointer
::
parent
=>
NULL
()
...
...
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