May  8 2002   8:18:08.576 AM
 
MXM
  A Fortran90 program to multiply two matrices.
 
  A * B = C
 
  Dimensions:
 
    Matrix    Rows    Columns    Entries
 
         A     100        100      10000
         B     100        100      10000
         C     100        100      10000
 
  Floating point operations:
 
    Adds:            1000000
    Multiplies:      1000000
 
Begin execution.
 
Set A by calling A_SET.
Set B = Transpose(A) by calling B_SET.
Compute C by calling A_TIMES_B.
Call REPORT.
 
  Task                     Ticks   Seconds
 
  1 Tick                       1  0.100000E-03
  Set A                      168  0.168000E-01
  Set B = Trans(A):           18  0.180000E-02
  Set C = A * B:              91  0.910000E-02
 
Initial block of the matrix:
 
          1             2             3             4             5
 
   1   1.00000      0.340515E-08  0.387226E-07  0.314867E-07  0.154541E-07
   2  0.340515E-08   1.00000     -0.349773E-07 -0.306354E-07 -0.315631E-07
   3  0.387226E-07 -0.349773E-07   1.00000     -0.396612E-07 -0.552754E-07
   4  0.314867E-07 -0.306354E-07 -0.396612E-07   1.00000      0.434375E-08
   5  0.154541E-07 -0.315631E-07 -0.552754E-07  0.434375E-08   1.00000    
 
MXM:
  Normal end of execution.