is_leap_year Function

function is_leap_year(year)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year

Return Value logical


Called by

proc~~is_leap_year~~CalledByGraph proc~is_leap_year is_leap_year proc~compute_incymd compute_incymd proc~compute_incymd->proc~is_leap_year proc~tick tick proc~tick->proc~compute_incymd program~time_ave time_ave program~time_ave->proc~tick

Source Code

   logical function is_leap_year(year)
      integer, intent(in) :: year
      is_leap_year = (mod(year,4) == 0) .and. (mod(year,100) == 0 .or. mod(year,400) == 0)
   end function is_leap_year