EpetraExt  Development
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
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:1
Generated on Fri Dec 20 2024 09:27:22 for EpetraExt by   doxygen 1.8.5