Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
solverstack
mini-examples
starpu_example_dgemm
Commits
2b92bc75
Commit
2b92bc75
authored
Nov 26, 2021
by
Antoine Jego
Browse files
same output as c variant
parent
e9048866
Changes
1
Hide whitespace changes
Inline
Side-by-side
fstarpu_example_dgemm.f90
View file @
2b92bc75
...
...
@@ -181,7 +181,7 @@ program fstarpu_example_dgemm
call
system_clock
(
te
,
tr
)
tf
=
max
(
real
(
te
-
ts
)/
real
(
tr
),
1e-20
)
gflops
=
2.0
*
m
*
n
*
k
/(
tf
*
10
**
9
)
if
(
comm_rank
.eq.
0
)
write
(
*
,
'("RANK ",i3," -> took ",e15.8," s | ", e15.8,"Gflop/s")'
)
&
if
(
comm_rank
.eq.
0
)
write
(
*
,
'("RANK ",i3," -> took ",e15.8," s | ", e15.8,"
Gflop/s")'
)
&
comm_rank
,
tf
,
gflops
! unregister matrices
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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