EpetraExt Development
Loading...
Searching...
No Matches
izero.f
Go to the documentation of this file.
1 subroutine izero ( n, x, incx )
2
3c ==================================================================
4c ==================================================================
5c ==== izero -- initialize integer vector to zero ====
6c ==================================================================
7c ==================================================================
8
9c purpose ... initializes integer vector to zero
10
11c created ... mar. 8, 1985
12c last modified ... apr. 19, 1985
13
14c ==================================================================
15
16c --------------
17c ... parameters
18c --------------
19
20 integer n, incx
21
22 integer x (*)
23
24c -------------------
25c ... local variables
26c -------------------
27
28 integer xaddr, i
29
30c ==================================================================
31
32 if ( incx .eq. 1 ) then
33
34c ----------------------------------
35c ... unit increment (standard case)
36c ----------------------------------
37
38 do 100 i = 1, n
39 x(i) = 0
40 100 continue
41
42 else
43
44c ----------------------
45c ... non-unit increment
46c ----------------------
47
48 xaddr = 1
49 if ( incx .lt. 0 ) then
50 xaddr = (-n+1)*incx + 1
51 endif
52
53 do 200 i = 1, n
54 x(xaddr) = 0
55 xaddr = xaddr + incx
56 200 continue
57
58 endif
59
60 return
61
62 end
subroutine izero(n, x, incx)
Definition izero.f:2