days_in_year Function

experimental
5 statements
Source File

public pure function days_in_year(year) result(d)

Return 366 for leap years, 365 otherwise.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	year

Return Value integer

Source Code

    pure function days_in_year(year) result(d)
        !! version: experimental
        !!
        !! Return 366 for leap years, 365 otherwise.
        integer, intent(in) :: year
        integer :: d
        d = merge(366, 365, is_leap_year_int(year))
    end function days_in_year