sngl(a) converts the double precision real a to a default real value. This is an archaic form of real that is specific to one type for a.
FORTRAN 77 and later
Elemental function
result = sngl(a)
a - The type shall be a double precision real.The return value is of type default real.