Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
McMule
handyG
Commits
69e1e9f4
Commit
69e1e9f4
authored
Jul 17, 2019
by
ulrich_y
Browse files
minor changes to tests
parent
dfe8782c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
18 additions
and
0 deletions
+18
-0
.gitignore
.gitignore
+1
-0
src/test.f90
src/test.f90
+17
-0
No files found.
.gitignore
View file @
69e1e9f4
...
...
@@ -3,6 +3,7 @@
!*.*
makefile
checks/*.f90
checks/stats.txt
### Vim ###
# Swap
[._]*.s[a-v][a-z]
...
...
src/test.f90
View file @
69e1e9f4
...
...
@@ -289,6 +289,23 @@ CONTAINS
print
*
,
write
(
*
,
901
)
msg
,
size
(
args
,
1
)/
ttime
(
2
)/
1000.
,
size
(
args
,
1
)/
ttime
(
1
)/
1000.
,
int
(
ttime
(
2
)/
ttime
(
1
))
! Lets to another, fair comparison
call
system_clock
(
cstart
,
count_rate
=
count_rate
)
do
j
=
1
,
size
(
args
,
1
)
res
=
evalt
(
args
(
j
,:,
1
),
0
)
enddo
call
system_clock
(
cend
,
count_rate
=
count_rate
)
ttime
(
1
)
=
real
(
cend
-
cstart
)/
count_rate
call
system_clock
(
cstart
,
count_rate
=
count_rate
)
do
j
=
1
,
size
(
args
,
1
)
res
=
evalt
(
args
(
j
,:,
1
),
1
)
enddo
call
system_clock
(
cend
,
count_rate
=
count_rate
)
ttime
(
2
)
=
real
(
cend
-
cstart
)/
count_rate
write
(
*
,
901
)
msg
,
size
(
args
,
1
)/
ttime
(
2
)/
1000.
,
size
(
args
,
1
)/
ttime
(
1
)/
1000.
,
int
(
ttime
(
2
)/
ttime
(
1
))
900
FORMAT
(
a
,
'Function '
,
i4
,
'/'
,
i4
,
' for '
,
a
)
901
format
(
'Evaluating '
,
A
,
' using GiNaC at '
,
F9.2
,
'kG/s and GPL at '
,
F9.2
,
'kG/s ('
,
I3
,
'x)'
)
end
subroutine
...
...
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