Updated specsort.f90