subroutine beta = get_beta ( dummy )

%% GET_BETA returns the value of BETA, for use by problem 5.
%
%  Modified:
%
%    05 November 2006
%
%  Parameters:
%
%    Output, real BETA, the value of BETA.
%
  beta = -0.9;