ShowPlot[Listofplots_,LabelPlot_,FontSizeLabel_,xLabel_,yLabel_,FontSizexyLabel_]:=Module[{ShowFrame},


ShowFrame=Show[Listofplots,Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX[LabelPlot,FontSize->FontSizeLabel],
ImageSize->800,FrameLabel-> {
MaTeX[xLabel,FontSize->FontSizexyLabel],
MaTeX[yLabel,FontSize->FontSizexyLabel]
}];

Return[ShowFrame]];

PlotList[plot_,colorline_,rangeplot_,legend_,legendSize_,placement_,styleplot_]:=Module[{plotlist},

plotlist=ListPlot[plot,PlotStyle->{Directive[Thickness[0.006],colorline,styleplot]},PlotRange->rangeplot,InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{colorline,Thickness[0.01]}]},{MaTeX[legend,FontSize->legendSize]}],placement]];

Return[plotlist]];

TwoAxisPlot[{f_,g_},{x_,x1_,x2_}]:=Module[{fgraph,ggraph,frange,grange,fticks,gticks},{fgraph,ggraph}=MapIndexed[Plot[#,{x,x1,x2},Axes->True,PlotStyle->ColorData[1][#2[[1]]]]&,{f,g}];{frange,grange}=(PlotRange/.AbsoluteOptions[#,PlotRange])[[2]]&/@{fgraph,ggraph};fticks=N@FindDivisions[frange,5];
gticks=Quiet@Transpose@{fticks,ToString[NumberForm[#,2],StandardForm]&/@Rescale[fticks,frange,grange]};
Show[fgraph,ggraph/.Graphics[graph_,s___]:>Graphics[GeometricTransformation[graph,RescalingTransform[{{0,1},grange},{{0,1},frange}]],s],Axes->False,Frame->True,FrameStyle->{ColorData[1]/@{1,2},{Automatic,Automatic}},FrameTicks->{{fticks,gticks},{Automatic,Automatic}}]]

R around 2.2 bohr (around 1.15 A)

unfold G0W0

unfsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[4]]*HaToeV},{k,0.95,2.50,0.05}];

unfsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[5]]*HaToeV},{k,0.95,2.50,0.05}];

unfZ4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[4]]},{k,0.95,2.50,0.05}];

unfZ5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[5]]},{k,0.95,2.50,0.05}];

unfplotsol4=ListPlot[unfsol4,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}],Frame->{True,True,True,False}];

unfplotsol5=ListPlot[unfsol5,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

unfploteq=Show[{unfplotsol4,unfplotsol5}];

unfPlotZ4=ListPlot[unfZ4,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{0.0,1}},InterpolationOrder->2,Joined->True,PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]},Dashed]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}],Frame->{True,True,True,False},(*FrameStyle->{Automatic,ColorData[97][1],Automatic,Automatic},*)FrameLabel->{{"Plot a",None},{None,None}}];

unfPlotZ5=ListPlot[unfZ5,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{0.0,1}},InterpolationOrder->2,Joined->True,PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]},Dashed]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

unfplotZ=Show[{unfPlotZ4,unfPlotZ5}];

Show[{unfPlotZ4,unfPlotZ5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\textbf{Z}_{\\textbf{p}}  ",FontSize->22]
}];

Show[{unfplotsol4,unfplotsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}];

Overlay[{unfplotsol4,unfplotsol5,unfPlotZ4}]

Regularized self-energy

Reg1dot1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"]*HaToeV},{k,0.95,2.50,0.05}];

PlotReg1dot1=ListPlot[Reg1dot1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3}",FontSize->16]}],{Right,Bottom}]];

Show[PlotReg1dot1,Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~ (\\kappa=1.1)",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Reg150dot1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"]*HaToeV},{k,0.95,2.50,0.05}];

PlotReg150dot1=ListPlot[Reg150dot1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3}",FontSize->16]}],{Right,Bottom}]];

Show[PlotReg150dot1,Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\kappa=60.1)",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Using η for the self-energy

η = 0.0 meV

eta0meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z0meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta0meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z0meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta0meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z0meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

PlotZ0meVsol3=ListPlot[Z0meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ0meVsol4=ListPlot[Z0meVsol4,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ0meVsol5=ListPlot[Z0meVsol5,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta0meVsol4=ListPlot[eta0meVsol4,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta0meVsol5=ListPlot[eta0meVsol5,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta0meVsol4,Ploteta0meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=0~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ0meVsol4,PlotZ0meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=0~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 1 neV ((10^(-9))eV)

eta1neVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z1neVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta1neVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z1neVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta1neVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z1neVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

PlotZ1neVsol3=ListPlot[Z1neVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ1neVsol4=ListPlot[Z1neVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ1neVsol5=ListPlot[Z1neVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta1neVsol3=ListPlot[eta1neVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta1neVsol4=ListPlot[eta1neVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta1neVsol5=ListPlot[eta1neVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta1neVsol3,Ploteta1neVsol4,Ploteta1neVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\text{neV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ1neVsol3,PlotZ1neVsol4,PlotZ1neVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\text{neV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 1 μeV ((10^(-6))eV)

eta1μeVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z1μeVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta1μeVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z1μeVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta1μeVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z1μeVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

PlotZ1μeVsol3=ListPlot[Z1μeVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ1μeVsol4=ListPlot[Z1μeVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ1μeVsol5=ListPlot[Z1μeVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta1μeVsol3=ListPlot[eta1μeVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta1μeVsol4=ListPlot[eta1μeVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta1μeVsol5=ListPlot[eta1μeVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta1μeVsol3,Ploteta1μeVsol4,Ploteta1μeVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\mu\\text{eV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ1μeVsol3,PlotZ1μeVsol4,PlotZ1μeVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\mu\\text{eV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 0.1 meV ((10^(-4))eV)

eta0dot1meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z0dot1meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta0dot1meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z0dot1meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta0dot1meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z0dot1meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

eta0dot1meVsol6=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[6]]*HaToeV},{k,0.95,1.50,0.05}];

Z0dot1meVsol6=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[6]]},{k,0.95,1.50,0.05}];

PlotZ0dot1meVsol3=ListPlot[Z0dot1meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ0dot1meVsol4=ListPlot[Z0dot1meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ0dot1meVsol5=ListPlot[Z0dot1meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

PlotZ0dot1meVsol6=ListPlot[Z0dot1meVsol6,PlotStyle->{Directive[Thickness[0.006],Red]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Red,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°6}",FontSize->16]}],{After,Center}]];

Ploteta0dot1meVsol3=ListPlot[eta0dot1meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta0dot1meVsol4=ListPlot[eta0dot1meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta0dot1meVsol5=ListPlot[eta0dot1meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta0dot1meVsol6=ListPlot[eta0dot1meVsol6,PlotStyle->{Directive[Thickness[0.006],Red]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Red,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta0dot1meVsol3,Ploteta0dot1meVsol4,Ploteta0dot1meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=0.1~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ0dot1meVsol3,PlotZ0dot1meVsol4,PlotZ0dot1meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=0.1~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 1 meV ((10^(-3))eV)

eta1meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z1meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta1meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z1meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta1meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z1meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

PlotZ1meVsol3=ListPlot[Z1meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ1meVsol4=ListPlot[Z1meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ1meVsol5=ListPlot[Z1meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta1meVsol3=ListPlot[eta1meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta1meVsol4=ListPlot[eta1meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta1meVsol5=ListPlot[eta1meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta1meVsol3,Ploteta1meVsol4,Ploteta1meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ1meVsol3,PlotZ1meVsol4,PlotZ1meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 10 meV ((10^(-2))eV)

eta10meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z10meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

eta10meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[4]]*HaToeV},{k,0.95,1.50,0.05}];

Z10meVsol4=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[4]]},{k,0.95,1.50,0.05}];

eta10meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[5]]*HaToeV},{k,0.95,1.50,0.05}];

Z10meVsol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[5]]},{k,0.95,1.50,0.05}];

PlotZ10meVsol3=ListPlot[Z10meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

PlotZ10meVsol4=ListPlot[Z10meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

PlotZ10meVsol5=ListPlot[Z10meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Ploteta10meVsol3=ListPlot[eta10meVsol3,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta10meVsol4=ListPlot[eta10meVsol4,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°4}",FontSize->16]}],{After,Center}]];

Ploteta10meVsol5=ListPlot[eta10meVsol5,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°5}",FontSize->16]}],{After,Center}]];

Show[{Ploteta10meVsol3,Ploteta10meVsol4,Ploteta10meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=10~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ10meVsol3,PlotZ10meVsol4,PlotZ10meVsol5},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=10~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 100 meV (0.1eV)

eta100meVsol1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[1]]*HaToeV},{k,0.95,1.50,0.05}];

Z100meVsol1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[1]]},{k,0.95,1.50,0.05}];

eta100meVsol2=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[2]]*HaToeV},{k,0.95,1.50,0.05}];

Z100meVsol2=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[2]]},{k,0.95,1.50,0.05}];

eta100meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[3]]*HaToeV},{k,0.95,1.50,0.05}];

Z100meVsol3=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["ZG0W0w"][[3]]},{k,0.95,1.50,0.05}];

PlotZ100meVsol1=ListPlot[Z100meVsol1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°1}",FontSize->16]}],{After,Center}]];

PlotZ100meVsol2=ListPlot[Z100meVsol2,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°2}",FontSize->16]}],{After,Center}]];

PlotZ100meVsol3=ListPlot[Z100meVsol3,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},All},(*InterpolationOrder->2,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°3}",FontSize->16]}],{After,Center}]];

Ploteta100meVsol1=ListPlot[eta100meVsol1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°1}",FontSize->16]}],{After,Center}]];

Ploteta100meVsol2=ListPlot[eta100meVsol2,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°2}",FontSize->16]}],{After,Center}]];

Ploteta100meVsol3=ListPlot[eta100meVsol3,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=3 sol n°2}",FontSize->16]}],{After,Center}]];

Show[{Ploteta100meVsol1,Ploteta100meVsol2,Ploteta100meVsol3},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=100 \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Show[{PlotZ100meVsol1,PlotZ100meVsol2,PlotZ100meVsol3},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=100~ \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 1000 meV (1eV)

eta1000meVsol1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[1]]*HaToeV},{k,0.95,1.50,0.05}];

Ploteta1000meVsol1=ListPlot[eta1000meVsol1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3}",FontSize->16]}],{Right,Bottom}]];

Show[{Ploteta1000meVsol1},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=1000 \\text{meV})",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

η = 10000 meV (10eV)

eta10000meVsol1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"][[1]]*HaToeV},{k,0.95,1.50,0.05}];

Ploteta10000meVsol1=ListPlot[eta10000meVsol1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.95,1.3},{20,30}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=3}",FontSize->16]}],{Right,Bottom}]];

Show[{Ploteta10000meVsol1},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~(\\eta=0.367493)",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

R around 1.0 bohr (around 0.5 A)

sol5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[5]]*HaToeV},{k,0.30,0.65,0.05}];

Z5=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[5]]},{k,0.30,0.65,0.01}];

plotsol5=ListPlot[sol5,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.30,0.65},{35,50}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°5}",FontSize->16]}],{After,Center}]];

plotZ5=ListPlot[Z5,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.30,0.65},All},(*InterpolationOrder->3,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°5}",FontSize->16]}],{After,Center}]];

sol6=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[6]]*HaToeV},{k,0.30,0.65,0.05}];

Z6=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[6]]},{k,0.30,0.65,0.01}];

plotsol6=ListPlot[sol6,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.30,0.65},{45,55}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°6}",FontSize->16]}],{After,Center}]];

plotZ6=ListPlot[Z6,PlotStyle->{Directive[Thickness[0.006],Orange]},PlotRange->{{0.30,0.65},All},(*InterpolationOrder->3,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Orange,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°6}",FontSize->16]}],{After,Center}]];

sol7=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[7]]*HaToeV},{k,0.30,0.65,0.05}];

Z7=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[7]]},{k,0.30,0.65,0.01}];

plotsol7=ListPlot[sol7,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.30,0.65},{45,65}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°7}",FontSize->16]}],{After,Center}]];

plotZ7=ListPlot[Z7,PlotStyle->{Directive[Thickness[0.006],Darker[Green]]},PlotRange->{{0.30,0.65},All},(*InterpolationOrder->3,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Darker[Green],Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°7}",FontSize->16]}],{After,Center}]];

sol8=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["FFeG0W0"][[8]]*HaToeV},{k,0.30,0.65,0.05}];

Z8=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","unfG0W0"},True,False]["ZunfG0W0"][[8]]},{k,0.30,0.65,0.01}];

plotsol8=ListPlot[sol8,PlotStyle->{Directive[Thickness[0.006],Red]},PlotRange->{{0.30,0.65},{45,70}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Red,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°8}",FontSize->16]}],{After,Center}]];

plotZ8=ListPlot[Z8,PlotStyle->{Directive[Thickness[0.006],Red]},PlotRange->{{0.30,0.65},All},(*InterpolationOrder->3,*)Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Red,Thickness[0.01]}]},{MaTeX["\\textbf{p=4 sol n°8}",FontSize->16]}],{After,Center}]];

Show[{plotsol5,plotsol6,plotsol7,plotsol8},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
},PlotRange->{{0.30,0.65},{40,67}}]

Show[{plotZ5,plotZ6,plotZ7,plotZ8},Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{Z}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
},PlotRange->{{0.30,0.65},{0.0,1.0}}]

Reg1dot1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"]*HaToeV},{k,0.30,0.65,0.05}];

PlotReg1dot1=ListPlot[Reg1dot1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.30,0.65},{40,67}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=4}",FontSize->16]}],{After,Center}]];

Show[PlotReg1dot1,Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~ (\\kappa=1.1)",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]

Reg60dot1=Table[{k,MainModule[2,4,2,{1,1},{{0.0,0.0,0.0},{0.0,0.0,k}},"6-31g",{"HF","dynGOWO"},True,False]["eG0W0w"]*HaToeV},{k,0.30,0.65,0.05}];

PlotReg60dot1=ListPlot[Reg60dot1,PlotStyle->{Directive[Thickness[0.006],Blue]},PlotRange->{{0.30,0.65},{40,67}},InterpolationOrder->2,Joined->True,
PlotLegends->Placed[LineLegend[{Directive[{Blue,Thickness[0.01]}]},{MaTeX["\\textbf{p=4}",FontSize->16]}],{After,Center}]];

Show[PlotReg60dot1,Frame->True,FrameStyle->Directive[Black,Thick],
BaseStyle->20,PlotLabel-> MaTeX["\\textbf{\\ce{H2}~/~6-31G}~ (\\kappa=60.1)",FontSize->24],
ImageSize->800,FrameLabel-> {
MaTeX["\\bm{R} ~\\textbf{(\\AA)}",FontSize->22],
MaTeX["\\bm{\\epsilon}_{\\textbf{p}}  \\textbf{(eV)}",FontSize->22]
}]