bug fix chgsplit.f90