gcd 接口

公共接口 gcd

返回两个整数的最大公约数 (规范)

版本：实验性


模块过程

私有基本函数 gcd_int8(a, b) 结果(res)

使用欧几里得算法返回两个 int8 类型整数的最大公约数。

参数

类型 意图可选 属性 名称
integer(kind=int8), intent(in) :: a
integer(kind=int8), intent(in) :: b

返回值 integer(kind=int8)

私有基本函数 gcd_int16(a, b) 结果(res)

使用欧几里得算法返回两个 int16 类型整数的最大公约数。

参数

类型 意图可选 属性 名称
integer(kind=int16), intent(in) :: a
integer(kind=int16), intent(in) :: b

返回值 integer(kind=int16)

私有基本函数 gcd_int32(a, b) 结果(res)

使用欧几里得算法返回两个 int32 类型整数的最大公约数。

参数

类型 意图可选 属性 名称
integer(kind=int32), intent(in) :: a
integer(kind=int32), intent(in) :: b

返回值 integer(kind=int32)

私有基本函数 gcd_int64(a, b) 结果(res)

使用欧几里得算法返回两个 int64 类型整数的最大公约数。

参数

类型 意图可选 属性 名称
integer(kind=int64), intent(in) :: a
integer(kind=int64), intent(in) :: b

返回值 integer(kind=int64)