get_stdlib_version 子程序

public pure subroutine get_stdlib_version(major, minor, patch, string)

获取标准库版本的函数

参数

类型 意图可选 属性 名称
integer, intent(out), optional :: major

标准库版本的主版本号
integer, intent(out), optional :: minor

标准库版本的次版本号
integer, intent(out), optional :: patch

标准库版本的补丁版本号
character(len=:), intent(out), optional, allocatable :: string

标准库版本的字符串表示

源代码

pure subroutine get_stdlib_version(major, minor, patch, string)

    !> Major version number of the standard library version
    integer, intent(out), optional :: major

    !> Minor version number of the standard library version
    integer, intent(out), optional :: minor

    !> Patch version number of the standard library version
    integer, intent(out), optional :: patch

    !> String representation of the standard library version
    character(len=:), allocatable, intent(out), optional :: string

    if (present(major)) then
        major = stdlib_major
    end if
    if (present(minor)) then
        minor = stdlib_minor
    end if
    if (present(patch)) then
        patch = stdlib_patch
    end if
    if (present(string)) then
        string = stdlib_version_string
    end if

end subroutine get_stdlib_version