Commit 69e1e9f4 authored by ulrich_y's avatar ulrich_y

minor changes to tests

parent dfe8782c
......@@ -3,6 +3,7 @@
!*.*
makefile
checks/*.f90
checks/stats.txt
### Vim ###
# Swap
[._]*.s[a-v][a-z]
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment