function value = i4_to_l4 ( i4 )

%*****************************************************************************80
%
%% I4_TO_L4() converts an I4 to an L4.
%
%  Discussion:
%
%    0 is FALSE, and anything else if TRUE.
%
%    An I4 is an integer value.
%    An L4 is a logical value.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    10 January 2012
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer I4, an integer.
%
%    Output, logical I4_TO_L4, the logical value of I4.
%
  value = ( i4 ~= 0 );

  return
end
