Function slamch

float slamch (
  char[] cmach
);