EpetraExt Development
finsum.f
Go to the documentation of this file.
00001       subroutine   finsum   ( timhrz, timesq, timvrt, hrzcmp, sqcmpn,
00002      $                        vrtcmp, ccmstr, rcmstr, output )
00003 
00004 c     ==================================================================
00005 c     ==================================================================
00006 c     ====  finsum -- print summary of fine block triangular        ====
00007 c     ====            decomposition                                 ====
00008 c     ==================================================================
00009 c     ==================================================================
00010 
00011 c     created by john lewis, boeing computer services, sept. 17, 1990
00012 
00013       integer            hrzcmp, sqcmpn, vrtcmp, output
00014 
00015       integer            ccmstr (*), rcmstr (*)
00016 
00017       real               timesq, timhrz, timvrt
00018 
00019 c     ==================================================================
00020 
00021       if  ( hrzcmp .gt. 0 )  then
00022          write (output, 60000) hrzcmp, timhrz
00023          call fnrsum ( 1, hrzcmp, ccmstr, rcmstr, output ) 
00024       endif
00025 
00026       if  ( sqcmpn .gt. 0 )  then
00027          write (output, 61000) sqcmpn, timesq
00028          call fnrsum ( hrzcmp + 1, hrzcmp + sqcmpn, ccmstr, rcmstr,
00029      $                 output ) 
00030       endif
00031 
00032       if  ( vrtcmp .gt. 0 )  then
00033          write (output, 62000) vrtcmp, timvrt
00034          call fnrsum ( hrzcmp + sqcmpn + 1, hrzcmp + sqcmpn + vrtcmp,
00035      $                 ccmstr, rcmstr, output ) 
00036       endif
00037 
00038       return
00039 
00040 60000 format (/'0fine decomposition of horizontal block (hr-hc)',
00041      $        /'      number of connected components:', i10,
00042      $        /'                       time required:', 1pe10.1,
00043      $        /'0                    component    rows  columns' )
00044 
00045 61000 format (/'0fine decomposition of     square block (sr-sc)',
00046      $        /'         number of strong components:', i10,
00047      $        /'                       time required:', 1pe10.1,
00048      $        /'0                    component    rows  columns' )
00049 
00050 62000 format (/'0fine decomposition of   vertical block (vr-vc)',
00051      $        /'      number of connected components:', i10,
00052      $        /'                       time required:', 1pe10.1,
00053      $        /'0                    component    rows  columns' )
00054 
00055       end
00056 
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines