sort_pmd.F fixed.