!-----  Ex4_1: Solar year   -----
      REAL :: year, day, jikan, hun, byo
      INTEGER :: d, h, m
      year = 365.2422
      day = AINT(year); d = INT(day)
      jikan = 24.0*(year - day);  h = INT(jikan)
      hun = 60.0*(jikan - AINT(jikan));  m = INT(hun)
      byo = 60.0*(hun - AINT(hun))
      PRINT*, '1年は', d, '日', h, '時間', m, '分', byo, '秒'
      END