FP_CLASS (real-number)

  Class:  Elemental function - Generic

  Returns the class of an IEEE real (S_floating, T_floating, or
  X_floating) argument.

  The result is of type default integer.

  The return values are defined in module "FORSYSDEF".  For
  information on the location of this file, see the HP Fortran for
  OpenVMS User Manual.

  Example:

  FP_CLASS (4.0_8) has the value 4 (FOR_K_FP_POS_NORM, a normal
  positive number).