12 April 2006 07:12:55 AM

BLAS1_D_PRB_ALPHA:
  Tests for Level 1 BLAS,
  the Double Precision basic linear algebra subprograms.

TEST01
  IDAMAX returns the index of maximum absolute magnitude;

  The vector X:

       0             2
       1            -2
       2             5
       3             1
       4            -3
       5             4
       6             0
       7            -4
       8             3
       9            -1
      10            -5

  The index of maximum absolute magnitude = 3

TEST02
  Demonstrate the use of DASUM
  which adds the absolute values of elements of a vector.

  X =

     0   -2.000000
     1    4.000000
     2   -6.000000
     3    8.000000
     4  -10.000000
     5   12.000000
     6  -14.000000
     7   16.000000
     8  -18.000000
     9   20.000000

  DASUM_ ( 10, X, 1 ) = 110
  DASUM_ ( 5, X, 2 ) = 50
  DASUM_ ( 2, X, 1 ) = 6

  Demonstrate with a matrix A:

          11          12          13          14
          21          22          23          24
          31          32          33          34
          41          42          43          44
          51          52          53          54

  DASUM_ ( 5, A+6, 1 ) = 160
  DASUM_ ( 4, A+1, 6 ) = 90

BLAS1_D_PRB_ALPHAB:
  Normal end of execution.

12 April 2006 07:12:55 AM