corsum.f

Go to the documentation of this file.

      subroutine   corsum   ( tmmtch, timhrz, timvrt, nhrows, nhcols,
     $                        nsrows, nscols, nvrows, nvcols, output )
 
c     ==================================================================
c     ==================================================================
c     ====  corsum -- print summary of coarse decomposition         ====
c     ==================================================================
c     ==================================================================
 
c     created by john lewis, boeing computer services, sept. 17, 1990
 
      integer            nhcols, nhrows, nscols, nsrows, nvcols, nvrows,
     $                   output
 
      real               tmmtch, timhrz, timvrt
 
c     ==================================================================
 
      write (output, 60000) tmmtch, timhrz, timvrt, nhrows, nhcols,
     $                      nsrows, nscols, nvrows, nvcols
 
60000 format (/ '0coarse decomposition',
     $        / '0   time required for:',
     $        / '       maximum matching:', 1pe10.1,
     $        / '       horizontal block:', 1pe10.1,
     $        / '       vertical block  :', 1pe10.1,
     $        / '0   block dimensions --  rows   columns',
     $        / '         horizontal', 2i9, 
     $        / '         square    ', 2i9, 
     $        / '         vertical  ', 2i9 )
 
      return
      end