anchor.diff:          !
           !------------------------------------------------------------
           else if (this%calendar==THREESIXTY) then
  -            year=floor(mjd/360)
  -            day_fraction=mjd - year*360+1
  +            year = floor(mjd/360)
  +            day_fraction = mjd - year * 360 + (this%month_zero-1) * 30 + (this%day_zero-1) + this%hour_zero/24.0
               do f=1,12
  -                if (day_fraction>this%month_start(f)) then
  -                    month=f
  +                if (day_fraction > this%month_start(f)) then
  +                    month = f
                   endif
               end do
  -            day = floor(day_fraction - this%month_start(month))+1
  -            year=year+this%year_zero
  +            day = floor(day_fraction - this%month_start(month)) + 1
  +            year = year + this%year_zero
           end if
   
           !------------------------------------------------------------
  
positive.code:         !
          !------------------------------------------------------------
          else if (this%calendar==NOLEAP) then
              year=floor(mjd/365)
              day_fraction=mjd - year*365+1
              do f=1,12
                  if (day_fraction>this%month_start(f)) then
                      month=f
                  endif
              end do
              day = floor(day_fraction - this%month_start(month))+1
              year=year+this%year_zero
  
          !------------------------------------------------------------
          !
  
negative.code:         if ( present(hour_zero) ) then
              this%hour_zero = hour_zero
          endif
  
      end subroutine time_init_i
  
      !>------------------------------------------------------------
  