← Back to branch summary

~ubuntu-branches/ubuntu/utopic/blitz++/utopic

« back to all changes in this revision

Viewing changes to benchmarks/loop12f.f

  • Committer: Package Import Robot
  • Author(s): Christophe Trophime
  • Date: 2012-07-06 09:15:30 UTC
  • mfrom: (11.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20120706091530-vzrb8zf0vpbf8tp9
Tags: 1:0.10-1
http://bugs.debian.org/679407
* New upstream release
  Closes: #679407
* debian/rules:
  - update for new release
  - add override_dh_auto_test target
  - regenerate configure and Makefile.am
* debian/control:
  - add libtool, automake to BuildDepends
* debian/libblitz-doc.install
  - modify path for html files
* remove uneeded patches
* add examples.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
benchmarks/loop12f.f
1
 
      SUBROUTINE loop12_F77(N, y, a, x, b, c, d, u)
 
1
 
 
2
      SUBROUTINE loop12_F77(N, y, x, a, b, c, d, u)
2
3
      INTEGER i, N
3
 
      REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u
 
4
      REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
4
5
 
5
6
      DO i=1,N
6
 
          y(i)=u+a(i)
7
 
          x(i)=a(i)+b(i)+c(i)+d(i)
 
7
          y(i) = u+a(i); x(i) = a(i)+b(i)+c(i)+d(i);
8
8
      END DO
9
9
      RETURN
10
10
      END
11
11
 
12
12
 
13
 
      SUBROUTINE loop12_F77Overhead(N, y, a, x, b, c, d, u)
 
13
      SUBROUTINE loop12_F77Overhead(N, y, x, a, b, c, d, u)
14
14
      INTEGER i, N
15
 
      REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u
 
15
      REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
16
16
      RETURN
17
17
      END