The exact type depends on that of argument A--if A is
COMPLEX, this function's type is
with the same
KIND= value as the type of A.
Otherwise, this function's type is the same as that of A.
COMPLEX; scalar; INTENT(IN).
Intrinsic groups: (standard FORTRAN 77).
Returns the absolute value of A.
If A is type
COMPLEX, the absolute
value is computed as:
Otherwise, it is computed by negating A if it is negative, or returning A.
See Sign Intrinsic, for how to explicitly compute the positive or negative form of the absolute value of an expression.