Create sort_s.f

Scaled version of solomon sort.