days_in_year Function

private pure function days_in_year(year, leap_years) result(days)

Arguments

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

Return Value integer