20230917  102227.783
 
blas3_c_test():
  FORTRAN77 version
  Test blas3_c().
 
TEST01
  CGEMM can combine scale, multiply and add matrices
  using single precision complex arithmetic.
 
  Here, we simply compute C = A * B.
  Because B is inverse ( A ), C should be the identity.
 
  Matrix A:
 
  Col:          1                   2                   3          
  Row
  ---
    1: 0.577               0.577               0.577              
    2: 0.577              -0.289     0.500    -0.289    -0.500    
    3: 0.577              -0.289    -0.500    -0.289     0.500    
 
  Matrix B:
 
  Col:          1                   2                   3          
  Row
  ---
    1: 0.577               0.577               0.577              
    2: 0.577              -0.289    -0.500    -0.289     0.500    
    3: 0.577              -0.289     0.500    -0.289    -0.500    
 
  Product C = A * B:
 
  Col:          1                   2                   3          
  Row
  ---
    1:  1.00              -0.298E-07 0.298E-07-0.596E-07 0.596E-07
    2:-0.298E-07-0.298E-07  1.00              -0.149E-07 0.298E-07
    3:-0.596E-07-0.596E-07-0.149E-07-0.298E-07  1.00              
 
blas3_c_test():
  Normal end of execution.
 
20230917  102227.783