EpetraExt
Development
Loading...
Searching...
No Matches
src
btf
pothen
prtivs.f
Go to the documentation of this file.
1
subroutine
prtivs
( title, n, x, output )
2
3
c ==================================================================
4
c ==== bcs sparse matrix package, release 0 ====
5
c ==================================================================
6
c ==================================================================
7
c ==== prtivs -- print integer vector in table (short format) ====
8
c ==================================================================
9
c ==================================================================
10
c
11
c prtivs prints out the integer vector x of length n to logical
12
c unit output in a short format. the character string in title is
13
c printed as a title for the table
14
c
15
c last modified --- july 10, 1989 -- jgl --
16
c
17
c --------------
18
c ... parameters
19
c --------------
20
21
character * (*)
title
22
23
integer
n, output
24
25
integer
x(n)
26
27
c -------------------
28
c ... local variables
29
c -------------------
30
31
integer
i, l
32
33
character * 75
line
34
35
c ==================================================================
36
37
c ---------------
38
c ... write title
39
c ---------------
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
53
c ------------------------
54
c ... write out the vector
55
c ------------------------
56
57
write
( output, 2100 ) x
58
59
return
60
61
c -----------
62
c ... formats
63
c -----------
64
65
2000
format
( /5x, a /5x, a / )
66
67
2100
format
( (10x, 10 (1x, i5)) )
68
69
end
prtivs
subroutine prtivs(title, n, x, output)
Definition
prtivs.f:2
Generated by
1.10.0