Update quick_sort_vec_ord_map_data.f90

Not tested yet, but this template should work.