EpetraExt Development
Loading...
Searching...
No Matches
finsum.f
Go to the documentation of this file.
1 subroutine finsum ( timhrz, timesq, timvrt, hrzcmp, sqcmpn,
2 $ vrtcmp, ccmstr, rcmstr, output )
3
4c ==================================================================
5c ==================================================================
6c ==== finsum -- print summary of fine block triangular ====
7c ==== decomposition ====
8c ==================================================================
9c ==================================================================
10
11c created by john lewis, boeing computer services, sept. 17, 1990
12
13 integer hrzcmp, sqcmpn, vrtcmp, output
14
15 integer ccmstr (*), rcmstr (*)
16
17 real timesq, timhrz, timvrt
18
19c ==================================================================
20
21 if ( hrzcmp .gt. 0 ) then
22 write (output, 60000) hrzcmp, timhrz
23 call fnrsum ( 1, hrzcmp, ccmstr, rcmstr, output )
24 endif
25
26 if ( sqcmpn .gt. 0 ) then
27 write (output, 61000) sqcmpn, timesq
28 call fnrsum ( hrzcmp + 1, hrzcmp + sqcmpn, ccmstr, rcmstr,
29 $ output )
30 endif
31
32 if ( vrtcmp .gt. 0 ) then
33 write (output, 62000) vrtcmp, timvrt
34 call fnrsum ( hrzcmp + sqcmpn + 1, hrzcmp + sqcmpn + vrtcmp,
35 $ ccmstr, rcmstr, output )
36 endif
37
38 return
39
4060000 format (/'0fine decomposition of horizontal block (hr-hc)',
41 $ /' number of connected components:', i10,
42 $ /' time required:', 1pe10.1,
43 $ /'0 component rows columns' )
44
4561000 format (/'0fine decomposition of square block (sr-sc)',
46 $ /' number of strong components:', i10,
47 $ /' time required:', 1pe10.1,
48 $ /'0 component rows columns' )
49
5062000 format (/'0fine decomposition of vertical block (vr-vc)',
51 $ /' number of connected components:', i10,
52 $ /' time required:', 1pe10.1,
53 $ /'0 component rows columns' )
54
55 end
56
subroutine finsum(timhrz, timesq, timvrt, hrzcmp, sqcmpn, vrtcmp, ccmstr, rcmstr, output)
Definition finsum.f:3
subroutine fnrsum(fstcmp, lstcmp, ccmstr, rcmstr, output)
Definition fnrsum.f:2