EpetraExt Development
Loading...
Searching...
No Matches
corsum.f
Go to the documentation of this file.
1 subroutine corsum ( tmmtch, timhrz, timvrt, nhrows, nhcols,
2 $ nsrows, nscols, nvrows, nvcols, output )
3
4c ==================================================================
5c ==================================================================
6c ==== corsum -- print summary of coarse decomposition ====
7c ==================================================================
8c ==================================================================
9
10c created by john lewis, boeing computer services, sept. 17, 1990
11
12 integer nhcols, nhrows, nscols, nsrows, nvcols, nvrows,
13 $ output
14
15 real tmmtch, timhrz, timvrt
16
17c ==================================================================
18
19 write (output, 60000) tmmtch, timhrz, timvrt, nhrows, nhcols,
20 $ nsrows, nscols, nvrows, nvcols
21
2260000 format (/ '0coarse decomposition',
23 $ / '0 time required for:',
24 $ / ' maximum matching:', 1pe10.1,
25 $ / ' horizontal block:', 1pe10.1,
26 $ / ' vertical block :', 1pe10.1,
27 $ / '0 block dimensions -- rows columns',
28 $ / ' horizontal', 2i9,
29 $ / ' square ', 2i9,
30 $ / ' vertical ', 2i9 )
31
32 return
33 end
34
subroutine corsum(tmmtch, timhrz, timvrt, nhrows, nhcols, nsrows, nscols, nvrows, nvcols, output)
Definition: corsum.f:3