is_leap Interface

  1. forlab_time.f90
  2. forlab_time
  3. is_leap

public interface is_leap

Contents

Module Procedures


Module Procedures

private function is_leap_int8(year) result(is_leap)

Arguments

Type IntentOptional AttributesName
integer(kind=int8), intent(in) :: year

Return Value logical

private function is_leap_int16(year) result(is_leap)

Arguments

Type IntentOptional AttributesName
integer(kind=int16), intent(in) :: year

Return Value logical

private function is_leap_int32(year) result(is_leap)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(in) :: year

Return Value logical

private function is_leap_int64(year) result(is_leap)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(in) :: year

Return Value logical