removing a bug in shftex.f (N instead of M)