Next: , Previous: ABORT, Up: Intrinsic Procedures


6.3 ABS — Absolute value

Description:
ABS(X) computes the absolute value of X.
Standard:
F77 and later, has overloads that are GNU extensions
Class:
Elemental function
Syntax:
RESULT = ABS(X)
Arguments:

X The type of the argument shall be an INTEGER(*), REAL(*), or COMPLEX(*).

Return value:
The return value is of the same type and kind as the argument except the return value is REAL(*) for a COMPLEX(*) argument.
Example:
          program test_abs
            integer :: i = -1
            real :: x = -1.e0
            complex :: z = (-1.e0,0.e0)
            i = abs(i)
            x = abs(x)
            x = abs(z)
          end program test_abs
     

Specific names:

Name Argument Return type Standard
CABS(Z) COMPLEX(4) Z REAL(4) F77 and later
DABS(X) REAL(8) X REAL(8) F77 and later
IABS(I) INTEGER(4) I INTEGER(4) F77 and later
ZABS(Z) COMPLEX(8) Z COMPLEX(8) GNU extension
CDABS(Z) COMPLEX(8) Z COMPLEX(8) GNU extension