REAL intrinsic function
Standard: F77 F90 F95 F2003 F2008   Example Program
<Syntax>
REAL ( A [ , KIND ] )

A : Integer, Real, Complex or a BOZ literal constant;
KIND : scalar Integer constant expression;

Result : if KIND is present, Real(Kind=KIND), otherwise if A is Complex then Real(Kind=Kind(A)), otherwise Real.
<Semantics>

If A is Complex, the result is the real part of A. If A is Real or Integer, the result is an approximation to A in the type and kind of the result.

If A is a BOZ literal constant it is interpreted as the internal representation (as a bitstring) of the result. Note that this bitstring must not be longer that the number of bits in the result, unless the excess bits are all leading zeroes. If the bitstring is shorter than the number of bits in the result, it is padded on the left with leading zeroes.

Like many intrinsic functions, this is elemental; the result has the same shape as A, with the conversion being applied elementwise.

<Related>
AIMAG intrinsic function, DBLE intrinsic function, COMPLEX type, REAL type.