finsum.f

Go to the documentation of this file.

      subroutine   finsum   ( timhrz, timesq, timvrt, hrzcmp, sqcmpn,
     $                        vrtcmp, ccmstr, rcmstr, output )
 
c     ==================================================================
c     ==================================================================
c     ====  finsum -- print summary of fine block triangular        ====
c     ====            decomposition                                 ====
c     ==================================================================
c     ==================================================================
 
c     created by john lewis, boeing computer services, sept. 17, 1990
 
      integer            hrzcmp, sqcmpn, vrtcmp, output
 
      integer            ccmstr (*), rcmstr (*)
 
      real               timesq, timhrz, timvrt
 
c     ==================================================================
 
      if  ( hrzcmp .gt. 0 )  then
         write (output, 60000) hrzcmp, timhrz
         call fnrsum ( 1, hrzcmp, ccmstr, rcmstr, output ) 
      endif
 
      if  ( sqcmpn .gt. 0 )  then
         write (output, 61000) sqcmpn, timesq
         call fnrsum ( hrzcmp + 1, hrzcmp + sqcmpn, ccmstr, rcmstr,
     $                 output ) 
      endif
 
      if  ( vrtcmp .gt. 0 )  then
         write (output, 62000) vrtcmp, timvrt
         call fnrsum ( hrzcmp + sqcmpn + 1, hrzcmp + sqcmpn + vrtcmp,
     $                 ccmstr, rcmstr, output ) 
      endif
 
      return
 
60000 format (/'0fine decomposition of horizontal block (hr-hc)',
     $        /'      number of connected components:', i10,
     $        /'                       time required:', 1pe10.1,
     $        /'0                    component    rows  columns' )
 
61000 format (/'0fine decomposition of     square block (sr-sc)',
     $        /'         number of strong components:', i10,
     $        /'                       time required:', 1pe10.1,
     $        /'0                    component    rows  columns' )
 
62000 format (/'0fine decomposition of   vertical block (vr-vc)',
     $        /'      number of connected components:', i10,
     $        /'                       time required:', 1pe10.1,
     $        /'0                    component    rows  columns' )
 
      end