Next: ACCESS, Previous: ABORT, Up: Intrinsic Procedures

`ABS`

— Absolute value*Description*:`ABS(A)`

computes the absolute value of`A`

.*Standard*:- Fortran 77 and later, has overloads that are GNU extensions
*Class*:- Elemental function
*Syntax*:`RESULT = ABS(A)`

*Arguments*:-
`A`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 `ABS(A)`

`REAL(4) A`

`REAL(4)`

Fortran 77 and later `CABS(A)`

`COMPLEX(4) A`

`REAL(4)`

Fortran 77 and later `DABS(A)`

`REAL(8) A`

`REAL(8)`

Fortran 77 and later `IABS(A)`

`INTEGER(4) A`

`INTEGER(4)`

Fortran 77 and later `ZABS(A)`

`COMPLEX(8) A`

`COMPLEX(8)`

GNU extension `CDABS(A)`

`COMPLEX(8) A`

`COMPLEX(8)`

GNU extension