Elemental Intrinsic Function (Generic): Returns the class of an IEEE* real (S_floating, T_floating, or X_floating) argument. This function cannot be passed as an actual argument.
Syntax
result = FP_CLASS (x)
x
(Input) Must be of type real.
Results
The result type is INTEGER(4). The return value is one of the following:
| Class of Argument | Return Value |
|---|---|
| Signaling NaN | FOR_K_FP_SNAN |
| Quiet NaN | FOR_K_FP_QNAN |
| Positive Infinity | FOR_K_FP_POS_INF |
| Negative Infinity | FOR_K_FP_NEG_INF |
| Positive Normalized Number | FOR_K_FP_POS_NORM |
| Negative Normalized Number | FOR_K_FP_NEG_NORM |
| Positive Denormalized Number | FOR_K_FP_POS_DENORM |
| Negative Denormalized Number | FOR_K_FP_NEG_DENORM |
| Positive Zero | FOR_K_FP_POS_ZERO |
| Negative Zero | FOR_K_FP_NEG_ZERO |
The preceding return values are defined in file fordef.for.
Example
FP_CLASS (4.0_8) has the value 4 (FOR_K_FP_POS_NORM).