LineGaussRuleInfo[ {rule_, numer_ }, point_ ] := Module [
{ g2 = {-1,1}/Sqrt[3],
w3={5/9,8/9,5/9},
g3={-Sqrt[3/5],0,Sqrt[3/5]},
w4={(1/2)-Sqrt[5/6]/6,
(1/2)+Sqrt[5/6]/6,
(1/2)+Sqrt[5/6]/6,
(1/2)-Sqrt[5/6]/6},
g4={-Sqrt[(3+2*Sqrt[6/5])/7],
-Sqrt[(3-2*Sqrt[6/5])/7],
Sqrt[(3-2*Sqrt[6/5])/7],
Sqrt[(3+2*Sqrt[6/5])/7]},
g5={-Sqrt[5+2*Sqrt[10/7]],
-Sqrt[5-2*Sqrt[10/7]],
0,
Sqrt[5-2*Sqrt[10/7]],
Sqrt[5+2*Sqrt[10/7]]}/3,
w5={322-13*Sqrt[70],
322+13*Sqrt[70],
512,
322+13*Sqrt[70],
322-13*Sqrt[70]}/900,
i=point,p=rule, info={Null,0}},
If [ p == 1,info = {0,2}];
If [ p == 2, info={g2[[i]],1}];
If [ p == 3, info={g3[[i]],w3[[i]]}];
If [ p == 4, info ={g4[[i]],w4[[i]]}];
If [ p == 5, info = {g5[[i]],w5[[i]]}];
If [ numer, Return [ N[info,20]], Return [ Simplify[info]]];
];