fix 80 column in initialize_p.F