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:             year=year+this%year_zero
          end if
          
          day_fraction=mod(mjd,1.0)
          hour=floor(day_fraction*24)
          
  
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
  