#!/usr/bin/env python

def r8_to_dhms ( r ):

%*****************************************************************************80
%
%% R8_TO_DHMS converts decimal days into days, hours, minutes, seconds.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    04 June 2013
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, real R, a decimal number representing a time 
%    period measured in days.
%
%    Output, integer D, H, M, S, the equivalent number of days, hours,
%    minutes and seconds.
%
  from r8_sign import r8_sign

  r_sign = r8_sign ( r )
  r = abs ( r )

  d = int ( r )

  r = r - d
  r = 24.0 * r
  h = int ( r )

  r = r - h
  r = 60.0 * r
  m = int ( r )

  r = r - m
  r = 60.0 * r
  s = int ( r )

  d = r_sign * d
  h = r_sign * h
  m = r_sign * m
  s = r_sign * s

  return d, h, m, s