root / synthbench / euroben-dm / mod2cr / .svn / text-base / dotpr.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (568 Bytes)
1 |
Function dotpr( n, x, y ) Result( sum ) |
---|---|
2 |
Use numerics |
3 |
Use floptime |
4 |
Implicit None |
5 |
|
6 |
Integer :: n |
7 |
Real(l_) :: x(n), y(n) |
8 |
|
9 |
Integer :: i, ierr |
10 |
Real(l_) :: sum |
11 |
! --------------------------------------------------------------------- |
12 |
sum = 0.0_l_ |
13 |
Do i = 1, n |
14 |
sum = sum + x(i)*y(i) |
15 |
End Do |
16 |
flops = flops + 2*n ! --- Keep track of flops. |
17 |
! --------------------------------------------------------------------- |
18 |
End Function dotpr |