SetDirectory["/Users/monino/Work/bse/sfBSE/output"];

data=Import["h2_qchem_energy_sf_cis.txt","List"];
data1 = Import["h2_qchem_energy_sf_cis_double_exc.txt","List"];
newdata = data -2 *(-0.4998099076);
newdata1 = data1 -2 *(-0.4998099076);
coord = Import["seq","List"];
coord1 = Import["seq","List"];
plot = Transpose@{coord,newdata};(*or using Thread[{coord,newdata}]*)
plot1 = Transpose@{coord1,newdata1};
ListPlot[{Labeled[plot,"GS"],Labeled[plot1,"Double excitation"]},Joined->True,AxesLabel->"E (au)"]