SELECTED_REAL_KIND ([integer-p] [,integer-r])

  Class:  Transformational function - Generic

  Returns the value of the kind type parameter of a real data type.

  The "integer-p" specifies decimal precision.  The "integer-r"
  specifies decimal exponent range.  At least one argument must be
  specified.

  The result is a scalar of type default integer.

  Example:

  SELECTED_REAL_KIND (6, 70) = 8