EpetraExt Development
corsum.f
Go to the documentation of this file.
00001       subroutine   corsum   ( tmmtch, timhrz, timvrt, nhrows, nhcols,
00002      $                        nsrows, nscols, nvrows, nvcols, output )
00003 
00004 c     ==================================================================
00005 c     ==================================================================
00006 c     ====  corsum -- print summary of coarse decomposition         ====
00007 c     ==================================================================
00008 c     ==================================================================
00009 
00010 c     created by john lewis, boeing computer services, sept. 17, 1990
00011 
00012       integer            nhcols, nhrows, nscols, nsrows, nvcols, nvrows,
00013      $                   output
00014 
00015       real               tmmtch, timhrz, timvrt
00016 
00017 c     ==================================================================
00018 
00019       write (output, 60000) tmmtch, timhrz, timvrt, nhrows, nhcols,
00020      $                      nsrows, nscols, nvrows, nvcols
00021 
00022 60000 format (/ '0coarse decomposition',
00023      $        / '0   time required for:',
00024      $        / '       maximum matching:', 1pe10.1,
00025      $        / '       horizontal block:', 1pe10.1,
00026      $        / '       vertical block  :', 1pe10.1,
00027      $        / '0   block dimensions --  rows   columns',
00028      $        / '         horizontal', 2i9, 
00029      $        / '         square    ', 2i9, 
00030      $        / '         vertical  ', 2i9 )
00031 
00032       return
00033       end
00034 
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines