function spiral_array_test ( )

%*****************************************************************************80
%
%% spiral_array_test() tests spiral_array().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 December 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'spiral_array_test():\n' );
  fprintf ( 1, '  spiral_array(thick,k) makes a 2*thick+1 order array S\n' );
  fprintf ( 1, '  of integers, spiralling out from a central value of k.\n' );

  thick = 3;
  k = 1;
  S = spiral_array ( thick, k );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  thick = %d\n', thick );
  fprintf ( 1, '  k = %d\n', k );
  fprintf ( 1, '  S:\n' );
  disp ( S )
  
  return
end

