zabs()

program zabs

zabs tests the robustness and precision of the intrinsic ABS for double complex

Author

Weslley S. Pereira, University of Colorado Denver, U.S.

 Real values for test:
 (1) x = 2**m, where m = MINEXPONENT-DIGITS, ..., MINEXPONENT-1. Stop on the first success.
     Mind that not all platforms might implement subnormal numbers.
 (2) x = 2**m, where m = MINEXPONENT, ..., 0. Stop on the first success.
 (3) x = OV, where OV is the overflow threshold. OV^2 overflows but the norm is OV.
 (4) x = 2**m, where m = MAXEXPONENT-1, ..., 1. Stop on the first success.

 Tests:
 (a) y = x + 0 * I, |y| = x
 (b) y = 0 + x * I, |y| = x
 (c) y = (3/4)*x + x * I, |y| = (5/4)*x whenever (3/4)*x and (5/4)*x can be exactly stored
 (d) y = (1/2)*x + (1/2)*x * I, |y| = (1/2)*x*sqrt(2) whenever (1/2)*x can be exactly stored

 Special cases:

 (i) Inf propagation
    (1) y = Inf + 0 * I, |y| is Inf.
    (2) y =-Inf + 0 * I, |y| is Inf.
    (3) y = 0 + Inf * I, |y| is Inf.
    (4) y = 0 - Inf * I, |y| is Inf.
    (5) y = Inf + Inf * I, |y| is Inf.

 (n) NaN propagation
    (1) y = NaN + 0 * I, |y| is NaN.
    (2) y = 0 + NaN * I, |y| is NaN.
    (3) y = NaN + NaN * I, |y| is NaN.

Definition at line 44 of file test_zcomplexabs.f.

Here is the caller graph for this function: