! solar year
PROGRAM ex4_1

  IMPLICIT NONE
  INTEGER :: d, h, m
  REAL :: year, day, hour, minute, second

  ! 年
  year = 365.2422E0

  ! 日
  day = AINT( year )
  d = INT( day )

  ! 時
  hour = 24.0E0 * ( year - day )
  h = INT( hour )

  ! 分
  minute = 60.0E0 * ( hour - AINT( hour ) )
  m = INT( minute )

  ! 秒
  second = 60.0E0 * ( minute - AINT( minute ) )

  PRINT *, '1年は', d, '日', h, '時間', m, '分', second, '秒'

END PROGRAM ex4_1