Next: ACCESS, Previous: ABORT, Up: Intrinsic Procedures [Contents][Index]
ABS — Absolute valueABS(A) computes the absolute value of A.
Fortran 77 and later, has overloads that are GNU extensions
Elemental function
RESULT = ABS(A)
| A | The type of the argument shall be an INTEGER,
REAL, or COMPLEX. |
The return value is of the same type and
kind as the argument except the return value is REAL for a
COMPLEX argument.
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
| 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 |
BABS(A) | INTEGER(1) A | INTEGER(1) | GNU extension |
IIABS(A) | INTEGER(2) A | INTEGER(2) | GNU extension |
JIABS(A) | INTEGER(4) A | INTEGER(4) | GNU extension |
KIABS(A) | INTEGER(8) A | INTEGER(8) | GNU extension |
ZABS(A) | COMPLEX(8) A | REAL(8) | GNU extension |
CDABS(A) | COMPLEX(8) A | REAL(8) | GNU extension |