Needs["NumericalDifferentialEquationAnalysis`"]

n = 127;
digits = 30;
xw=GaussianQuadratureWeights[n,-1, +1,digits];
Do [ 
      Print["    x(",i,") = ",N[xw[[i]][[1]], 30] ],{i,1,n,1}];
Do [   
      Print["    w(",i,") = ",N[xw[[i]][[2]], 30] ],{i,1,n,1}];