anchor.diff:      !!  Set the object calendar and base year
       !!
       !!------------------------------------------------------------
  -    subroutine time_init(this, calendar_name, year_zero, month_zero, day_zero)
  +    subroutine time_init_c(this, calendar_name, year_zero, month_zero, day_zero)
           implicit none
           class(Time_type) :: this
           character(len=*), intent(in) :: calendar_name
  
positive.code:             this%day_zero = day_zero
          endif
  
      end subroutine time_init
  
      !>------------------------------------------------------------
      !!  Set the calendar from a given name
  
negative.code:             if (this%year_zero == NON_VALID_YEAR) then
                  jday = nint(mjd+2400000.5)
              else
                  jday = nint(mjd + gregorian_julian_day(this%year_zero, this%month_zero, this%day_zero, 0, 0, 0))
              endif
              f = jday+j+(((4*jday+B)/146097)*3)/4+C
              e = r*f+v
  