%% BLAS1_D_TEST tests the BLAS1_D routines.
%
%  Modified:
%
%    15 May 2006
%
%  Author:
%
%    John Burkardt
%
  clear

  timestamp;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'BLAS1_D_TEST\n' );
  fprintf ( 1, '  Tests for BLAS1,\n' );
  fprintf ( 1, '  the Level 1\n' );
  fprintf ( 1, '  Double precision real\n' );
  fprintf ( 1, '  Basic Linear Algebra Subprograms.\n' );
 
  blas1_d_test01
  blas1_d_test02
  blas1_d_test03
  blas1_d_test04
  blas1_d_test05
  blas1_d_test06
  blas1_d_test07
  blas1_d_test08
  blas1_d_test09

  blas1_d_test10
  blas1_d_test11
  blas1_d_test12
 
  fprintf ( 1, '\n' );
  fprintf ( 1, 'BLAS1_D_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  fprintf ( 1, '\n' );
  timestamp;