15 June 2018 08:07:05 AM

BLAS2_S_TEST
  C version
  Test the BLAS2_S library.

SGEMV_TEST
  SGEMV computes y := alpha * A * x + beta * y
  or             y := alpha * A'' * x + beta * y,
  for a general matrix A.

  Matrix A:

  Col:          0             1             2             3     
  Row

    0:              11              12              13              14
    1:              21              22              23              24
    2:              31              32              33              34
    3:              41              42              43              44
    4:              51              52              53              54

  Vector X:

         0:       1.000000
         1:       2.000000
         2:       3.000000
         3:       4.000000

  Vector Y:

         0:      10.000000
         1:      20.000000
         2:      30.000000
         3:      40.000000
         4:      50.000000

  Result Y = alpha * A  * x + beta * y

         0:     290.000000
         1:     520.000000
         2:     750.000000
         3:     980.000000
         4:    1210.000000

  Matrix A:

  Col:          0             1             2             3     
  Row

    0:              11              21              31              41
    1:              12              22              32              42
    2:              13              23              33              43
    3:              14              24              34              44
    4:              15              25              35              45

  Vector X:

         0:       1.000000
         1:       2.000000
         2:       3.000000
         3:       4.000000
         4:       5.000000

  Vector Y:

         0:      10.000000
         1:      20.000000
         2:      30.000000
         3:      40.000000

  Result Y = alpha * A  * x + beta * y

         0:     440.000000
         1:     770.000000
         2:    1100.000000
         3:    1430.000000

SGER_TEST
  SGER computes A := A + alpha * x * y'
  for a general matrix A.

  Matrix A:

  Col:          0             1             2             3     
  Row

    0:              11              12              13              14
    1:              21              22              23              24
    2:              31              32              33              34
    3:              41              42              43              44
    4:              51              52              53              54

  Vector X:

         0:       1.000000
         1:       2.000000
         2:       3.000000
         3:       4.000000
         4:       5.000000

  Vector Y:

         0:      10.000000
         1:      20.000000
         2:      30.000000
         3:      40.000000

  Result A = A + alpha * x * y

  Col:          0             1             2             3     
  Row

    0:              31              52              73              94
    1:              61             102             143             184
    2:              91             152             213             274
    3:             121             202             283             364
    4:             151             252             353             454

STRMV_TEST
  STRMV computes y := A * x or y := A' * x
  for a triangular matrix A.

  Result y = A * x

         0:      70.000000
         1:      82.000000
         2:      86.000000
         3:      77.000000
         4:      50.000000

  Result y = A' * x

         0:       2.000000
         1:      11.000000
         2:      32.000000
         3:      70.000000
         4:     130.000000

BLAS2_S_TEST
  Normal end of execution.

15 June 2018 08:07:05 AM