gfortran fixes in src_CSA for initialize_p.F