double2singlePrecision function

Converts double to single precision.