File: fidaxpy.f

package info (click to toggle)
blitz%2B%2B 1%3A0.10-3.2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 13,276 kB
  • ctags: 12,037
  • sloc: cpp: 70,465; sh: 11,116; fortran: 1,510; python: 1,246; f90: 852; makefile: 701
file content (27 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (13) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
      subroutine fidaxpy(a, x, y, n, iters)

      integer i
      double precision x(n), y(n), a
      double precision b
      b = - a

      do 2000 j = 1, iters
      do 1000 i = 1, n
         y(i) = y(i) + a * x(i)
 1000 continue

      do 3000 i = 1, n
         y(i) = y(i) + b * x(i)
 3000 continue
 2000 continue

      return
      end

      subroutine fidaxpyo(a, x, y, n, iters)

      double precision x(n), y(n), a

      return
      end