g77 -O1 -malign-double -fno-automatic -I. -ffixed-line-length-none -fno-second-underscore -Wimplicit -Wall -Wsurprising call_pb_rss_kin.f pb_f1f2_qe_code.f  pb_f1f2in06.f fitemc_2006.f  -o get_pb_xn_f1f2