anchor.diff:          second = nint((day_fraction-(24d0*60*1d-5))*60)
           
       end subroutine calendar_date
  +
   
       !>------------------------------------------------------------
       !!  Return the day of the year corresponding to the current date_time
  
positive.code:         
          mjd = this%current_date_time+1d-5 ! add less than one second
          
          if (this%calendar==GREGORIAN) then
              if (this%year_zero == NON_VALID_YEAR) then
                  jday = nint(mjd+2400000.5)
  
negative.code:             month = mod(h/s+m,n)+1
              year  = e/p-y+(n+m-month)/n
                          
          !------------------------------------------------------------
          !
          ! Calculate the dates for a No leap Calendar
          !
          !------------------------------------------------------------
          else if (this%calendar==NOLEAP) then
              year=floor(mjd/365)
              day_fraction=mjd - year*365+1
  