SELECTED_REAL_KIND

 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