Fix for single precision. Comments in _test.f90