%% BLAS1_S_TEST tests the BLAS1 routines.
%
%  Modified:
%
%    15 May 2006
%
%  Author:
%
%    John Burkardt
%
  clear

  timestamp;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'BLAS1_S_TEST\n' );
  fprintf ( 1, '  Tests for BLAS1_S,\n' );
  fprintf ( 1, '  the Level 1\n' );
  fprintf ( 1, '  Single Precision Real\n' );
  fprintf ( 1, '  Basic Linear Algebra Subprograms\n' );
 
  blas1_s_test01
  blas1_s_test02
  blas1_s_test03
  blas1_s_test04
  blas1_s_test05
  blas1_s_test06
  blas1_s_test07
  blas1_s_test08
  blas1_s_test09

  blas1_s_test10
  blas1_s_test11
  blas1_s_test12
 
  fprintf ( 1, '\n' );
  fprintf ( 1, 'BLAS1_S_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

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