anchor.diff:              year=year+this%year_zero
           end if
           
  +        !------------------------------------------------------------
  +        !
  +        ! Calculate the hour/minute/second for any calendar
  +        !
  +        !------------------------------------------------------------
           day_fraction=mod(mjd,1.0)
           hour=floor(day_fraction*24)
           
  
positive.code:             month = mod(h/s+m,n)+1
              year  = e/p-y+(n+m-month)/n
                          
          else if (this%calendar==NOLEAP) then
              year=floor(mjd/365)
              day_fraction=mjd - year*365+1
  
negative.code:         
          mjd = this%current_date_time+1d-5 ! add less than one second
          
          !------------------------------------------------------------
          !
          ! Calculate the dates for a Gregorian Calendar
          !
          !------------------------------------------------------------
          if (this%calendar==GREGORIAN) then
              if (this%year_zero == NON_VALID_YEAR) then
                  jday = nint(mjd+2400000.5)
  