?lamch supports s, d. See mfi_lamch for the modern version.
SLAMCH determines single precision machine parameters.