EpetraExt Development
Loading...
Searching...
No Matches
prtivs.f
Go to the documentation of this file.
1 subroutine prtivs ( title, n, x, output )
2
3c ==================================================================
4c ==== bcs sparse matrix package, release 0 ====
5c ==================================================================
6c ==================================================================
7c ==== prtivs -- print integer vector in table (short format) ====
8c ==================================================================
9c ==================================================================
10c
11c prtivs prints out the integer vector x of length n to logical
12c unit output in a short format. the character string in title is
13c printed as a title for the table
14c
15c last modified --- july 10, 1989 -- jgl --
16c
17c --------------
18c ... parameters
19c --------------
20
21 character * (*) title
22
23 integer n, output
24
25 integer x(n)
26
27c -------------------
28c ... local variables
29c -------------------
30
31 integer i, l
32
33 character * 75 line
34
35c ==================================================================
36
37c ---------------
38c ... write title
39c ---------------
40
41 l = min( len(title), 75 )
42
43 do 100 i = 1, l
44 line(i:i) = '-'
45 100 continue
46
47 do 200 i = l+1, 75
48 line(i:i) = ' '
49 200 continue
50
51 write ( output, 2000 ) title(1:l), line(1:l)
52
53c ------------------------
54c ... write out the vector
55c ------------------------
56
57 write ( output, 2100 ) x
58
59 return
60
61c -----------
62c ... formats
63c -----------
64
65 2000 format ( /5x, a /5x, a / )
66
67 2100 format ( (10x, 10 (1x, i5)) )
68
69 end
subroutine prtivs(title, n, x, output)
Definition prtivs.f:2