abs(x)：绝对值

绝对值。

声明

语法

retval = abs(x)
elemental integer function iabs(x)
elemental real(sp) function abs(x)

参数

x 输入值，可以是整数、实数或复数。

返回值

返回值的类型和种类与 x 相同。 对于复数输入值，返回值是实数。

描述

abs(x) 计算并返回 x 的绝对值。 结果使用数学公式计算：

\(|x|\)

如果 x 是复数，则使用数学公式计算结果：

\(\sqrt{(x^2 + y^2)}\)

类型

支持的参数类型是实数和整数。

interface mod
    module procedure iabs, i8abs, i16abs, i64abs, sabs, dabs, cabs, zabs
end interface

contains

elemental integer(i16) function i16abs(x)
integer(i16), intent(in) :: x
end function

elemental integer(i8) function i8abs(x)
integer(i8), intent(in) :: x
end function

elemental integer function iabs(x)
integer, intent(in) :: x
end function

elemental integer function i64abs(x)
integer(i64), intent(in) :: x
end function

elemental real(sp) function sabs(x)
real(sp), intent(in) :: x
end function

elemental real(dp) function dabs(x)
real(dp), intent(in) :: x
end function

elemental real(sp) function cabs(x)
complex(sp), intent(in) :: x
end function

elemental real(dp) function zabs(x)
complex(dp), intent(in) :: x
end function

示例

program intrinsics_abs
    implicit none
	print *, abs(1.5)
	print *, abs(-1.5)
end program

结果：

1.5
1.5

也可以看看

ceiling，floor。