abs(x): Absolute Value¶
Valor absoluto.
Declaration¶
Sintaxe¶
retval = abs(x)
elemental integer function iabs(x)
elemental real(sp) function abs(x)
Argumentos¶
x the input value, can be integer, real, or complex.
Valores de retorno¶
The return value is of type and kind same as of x. For complex input value,
return value is real.
Descrição¶
abs(x) calculates and returns absolute value of x. Result is calculated
using mathematical formula:
\(|x|\)
If x is complex, the result is calculated using mathematical formula:
\(\sqrt{(x^2 + y^2)}\)
Tipos¶
Supported argument types are real and integer.
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
Exemplos¶
program intrinsics_abs
implicit none
print *, abs(1.5)
print *, abs(-1.5)
end program
Resultado:
1.5
1.5