This is a bit faster, but it may or may not give the exact number format that you want:
SumLev2[k_] :=
IntegerPart[(Max[Floor[k]] + Total[FractionalPart[k]])*10]/10.;
If you work with floating-point inputs only, compilation may help with speed, but I don't have expertise in that area.