|
EpetraExt
Development
|
|
EpetraExt
Development
|
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
1.7.6.1
