#pragma rtGlobals=1		// Use modern global access method.


Function Write2Save(w,name)
	wave w
	String name
	
	Variable ii,num
	num=numpnts(w)
	
	printf "Make/O/D/N=%d  %s\r\r",num,name

	for(ii=0;ii<num;ii+=1)
		printf "%s[%d] = %g\r",name,ii,w[ii]
	endfor
	
	return(0)
end

Function MakeUSANSEmptyWaves()

	SetDataFolder root:Packages:NIST:USANS:Globals
	
//Write2Save(CR_EC_0p25Gd,"CR_0p25")
  Make/O/D/N=44  CR_0p25

  CR_0p25[0] = 3873.7
  CR_0p25[1] = 3227.55
  CR_0p25[2] = 2617.25
  CR_0p25[3] = 1918.8
  CR_0p25[4] = 1286.5
  CR_0p25[5] = 647.8
  CR_0p25[6] = 166.5
  CR_0p25[7] = 35.15
  CR_0p25[8] = 14.15
  CR_0p25[9] = 6.95
  CR_0p25[10] = 1.62
  CR_0p25[11] = 1.04
  CR_0p25[12] = 0.44
  CR_0p25[13] = 0.4
  CR_0p25[14] = 0.18
  CR_0p25[15] = 0.22
  CR_0p25[16] = 0.15
  CR_0p25[17] = 0.11
  CR_0p25[18] = 0.06
  CR_0p25[19] = 0.07
  CR_0p25[20] = 0.09
  CR_0p25[21] = 0.05
  CR_0p25[22] = 0.0453333
  CR_0p25[23] = 0.0226667
  CR_0p25[24] = 0.0333333
  CR_0p25[25] = 0.028
  CR_0p25[26] = 0.0413333
  CR_0p25[27] = 0.0253333
  CR_0p25[28] = 0.028
  CR_0p25[29] = 0.024
  CR_0p25[30] = 0.0266667
  CR_0p25[31] = 0.0158333
  CR_0p25[32] = 0.0275
  CR_0p25[33] = 0.0208333
  CR_0p25[34] = 0.0275
  CR_0p25[35] = 0.0291667
  CR_0p25[36] = 0.035
  CR_0p25[37] = 0.0291667
  CR_0p25[38] = 0.0208333
  CR_0p25[39] = 0.0283333
  CR_0p25[40] = 0.0208333
  CR_0p25[41] = 0.0241667
  CR_0p25[42] = 0.0175
  CR_0p25[43] = 0.0266667
  
//
///Write2Save(Q_EC_0p25Gd,"Q_0p25")
  Make/O/D/N=44  Q_0p25

  Q_0p25[0] = 5.52469e-06
  Q_0p25[1] = 8.29969e-06
  Q_0p25[2] = 1.10747e-05
  Q_0p25[3] = 1.38497e-05
  Q_0p25[4] = 1.66247e-05
  Q_0p25[5] = 1.93997e-05
  Q_0p25[6] = 2.21747e-05
  Q_0p25[7] = 2.49497e-05
  Q_0p25[8] = 2.77247e-05
  Q_0p25[9] = 3.04997e-05
  Q_0p25[10] = 4.15997e-05
  Q_0p25[11] = 5.26997e-05
  Q_0p25[12] = 6.37997e-05
  Q_0p25[13] = 7.48997e-05
  Q_0p25[14] = 8.59997e-05
  Q_0p25[15] = 9.70997e-05
  Q_0p25[16] = 0.0001082
  Q_0p25[17] = 0.00013595
  Q_0p25[18] = 0.0001637
  Q_0p25[19] = 0.00019145
  Q_0p25[20] = 0.0002192
  Q_0p25[21] = 0.00024695
  Q_0p25[22] = 0.0002747
  Q_0p25[23] = 0.00030245
  Q_0p25[24] = 0.0003302
  Q_0p25[25] = 0.00035795
  Q_0p25[26] = 0.0003857
  Q_0p25[27] = 0.00041345
  Q_0p25[28] = 0.0004412
  Q_0p25[29] = 0.00046895
  Q_0p25[30] = 0.0004967
  Q_0p25[31] = 0.0005522
  Q_0p25[32] = 0.000593825
  Q_0p25[33] = 0.00063545
  Q_0p25[34] = 0.000677075
  Q_0p25[35] = 0.0007187
  Q_0p25[36] = 0.000760325
  Q_0p25[37] = 0.00080195
  Q_0p25[38] = 0.000843575
  Q_0p25[39] = 0.0008852
  Q_0p25[40] = 0.000926825
  Q_0p25[41] = 0.00096845
  Q_0p25[42] = 0.00101007
  Q_0p25[43] = 0.0010517

//„Write2Save(CR_EC_0p50Gd,"CR_0p50")
  Make/O/D/N=38  CR_0p50

  CR_0p50[0] = 15828.3
  CR_0p50[1] = 14044.4
  CR_0p50[2] = 12109.6
  CR_0p50[3] = 10097.2
  CR_0p50[4] = 7897.4
  CR_0p50[5] = 5685.8
  CR_0p50[6] = 1497.28
  CR_0p50[7] = 22
  CR_0p50[8] = 4.15
  CR_0p50[9] = 1.60833
  CR_0p50[10] = 0.841667
  CR_0p50[11] = 0.591667
  CR_0p50[12] = 0.2625
  CR_0p50[13] = 0.141667
  CR_0p50[14] = 0.0791667
  CR_0p50[15] = 0.075
  CR_0p50[16] = 0.05
  CR_0p50[17] = 0.0291667
  CR_0p50[18] = 0.0333333
  CR_0p50[19] = 0.05
  CR_0p50[20] = 0.0416667
  CR_0p50[21] = 0.0416667
  CR_0p50[22] = 0.0208333
  CR_0p50[23] = 0.0291667
  CR_0p50[24] = 0.022
  CR_0p50[25] = 0.021
  CR_0p50[26] = 0.035
  CR_0p50[27] = 0.023
  CR_0p50[28] = 0.035
  CR_0p50[29] = 0.0225
  CR_0p50[30] = 0.026
  CR_0p50[31] = 0.022
  CR_0p50[32] = 0.0245
  CR_0p50[33] = 0.0355
  CR_0p50[34] = 0.0255
  CR_0p50[35] = 0.0265
  CR_0p50[36] = 0.028
  CR_0p50[37] = 0.0235
  
//„Write2Save(Q_EC_0p50Gd,"Q_0p50")
  Make/O/D/N=38  Q_0p50

  Q_0p50[0] = 3.68132e-06
  Q_0p50[1] = 6.45632e-06
  Q_0p50[2] = 9.23131e-06
  Q_0p50[3] = 1.20063e-05
  Q_0p50[4] = 1.47813e-05
  Q_0p50[5] = 1.75563e-05
  Q_0p50[6] = 2.31063e-05
  Q_0p50[7] = 3.42063e-05
  Q_0p50[8] = 4.53063e-05
  Q_0p50[9] = 5.64063e-05
  Q_0p50[10] = 6.75063e-05
  Q_0p50[11] = 7.86063e-05
  Q_0p50[12] = 9.52563e-05
  Q_0p50[13] = 0.000117456
  Q_0p50[14] = 0.000139656
  Q_0p50[15] = 0.000161856
  Q_0p50[16] = 0.000184056
  Q_0p50[17] = 0.000206256
  Q_0p50[18] = 0.000228456
  Q_0p50[19] = 0.000261756
  Q_0p50[20] = 0.000317256
  Q_0p50[21] = 0.000372756
  Q_0p50[22] = 0.000428256
  Q_0p50[23] = 0.000483756
  Q_0p50[24] = 0.000539256
  Q_0p50[25] = 0.000650256
  Q_0p50[26] = 0.000761256
  Q_0p50[27] = 0.000872256
  Q_0p50[28] = 0.000983256
  Q_0p50[29] = 0.00109426
  Q_0p50[30] = 0.00131626
  Q_0p50[31] = 0.00153826
  Q_0p50[32] = 0.00176026
  Q_0p50[33] = 0.00198226
  Q_0p50[34] = 0.00220426
  Q_0p50[35] = 0.00242626
  Q_0p50[36] = 0.00264826
  Q_0p50[37] = 0.00287026
  
//  „Write2Save(CR_EC_0p625Gd,"CR_0p625")
  Make/O/D/N=111  CR_0p625

  CR_0p625[0] = 21097
  CR_0p625[1] = 18615.3
  CR_0p625[2] = 16007.7
  CR_0p625[3] = 12783.3
  CR_0p625[4] = 9399.83
  CR_0p625[5] = 5951.17
  CR_0p625[6] = 2945.17
  CR_0p625[7] = 938.8
  CR_0p625[8] = 210.3
  CR_0p625[9] = 75.4667
  CR_0p625[10] = 34.4333
  CR_0p625[11] = 18.5
  CR_0p625[12] = 11.6667
  CR_0p625[13] = 7
  CR_0p625[14] = 5.26667
  CR_0p625[15] = 4.06667
  CR_0p625[16] = 3.06667
  CR_0p625[17] = 1.96667
  CR_0p625[18] = 1.73333
  CR_0p625[19] = 1.4
  CR_0p625[20] = 1
  CR_0p625[21] = 1.03333
  CR_0p625[22] = 0.9
  CR_0p625[23] = 0.666667
  CR_0p625[24] = 0.466667
  CR_0p625[25] = 0.733333
  CR_0p625[26] = 0.4
  CR_0p625[27] = 0.433333
  CR_0p625[28] = 0.4
  CR_0p625[29] = 0.333333
  CR_0p625[30] = 0.266667
  CR_0p625[31] = 0.366667
  CR_0p625[32] = 0.2
  CR_0p625[33] = 0.3
  CR_0p625[34] = 0.3
  CR_0p625[35] = 0.233333
  CR_0p625[36] = 0.2
  CR_0p625[37] = 0.3
  CR_0p625[38] = 0.172222
  CR_0p625[39] = 0.166667
  CR_0p625[40] = 0.105556
  CR_0p625[41] = 0.1
  CR_0p625[42] = 0.127778
  CR_0p625[43] = 0.116667
  CR_0p625[44] = 0.111111
  CR_0p625[45] = 0.122222
  CR_0p625[46] = 0.0944444
  CR_0p625[47] = 0.0777778
  CR_0p625[48] = 0.0888889
  CR_0p625[49] = 0.0777778
  CR_0p625[50] = 0.0888889
  CR_0p625[51] = 0.102778
  CR_0p625[52] = 0.0777778
  CR_0p625[53] = 0.05
  CR_0p625[54] = 0.0472222
  CR_0p625[55] = 0.05
  CR_0p625[56] = 0.0416667
  CR_0p625[57] = 0.0444444
  CR_0p625[58] = 0.0388889
  CR_0p625[59] = 0.0305556
  CR_0p625[60] = 0.0333333
  CR_0p625[61] = 0.0583333
  CR_0p625[62] = 0.0388889
  CR_0p625[63] = 0.0277778
  CR_0p625[64] = 0.05
  CR_0p625[65] = 0.0361111
  CR_0p625[66] = 0.0355556
  CR_0p625[67] = 0.0455556
  CR_0p625[68] = 0.0411111
  CR_0p625[69] = 0.0388889
  CR_0p625[70] = 0.0433333
  CR_0p625[71] = 0.0366667
  CR_0p625[72] = 0.0288889
  CR_0p625[73] = 0.0244444
  CR_0p625[74] = 0.0377778
  CR_0p625[75] = 0.04
  CR_0p625[76] = 0.0355556
  CR_0p625[77] = 0.0322222
  CR_0p625[78] = 0.0355556
  CR_0p625[79] = 0.0277778
  CR_0p625[80] = 0.0277778
  CR_0p625[81] = 0.0344444
  CR_0p625[82] = 0.0233333
  CR_0p625[83] = 0.0322222
  CR_0p625[84] = 0.0233333
  CR_0p625[85] = 0.0411111
  CR_0p625[86] = 0.0305556
  CR_0p625[87] = 0.0222222
  CR_0p625[88] = 0.0259259
  CR_0p625[89] = 0.037037
  CR_0p625[90] = 0.025
  CR_0p625[91] = 0.0342593
  CR_0p625[92] = 0.0333333
  CR_0p625[93] = 0.0277778
  CR_0p625[94] = 0.0240741
  CR_0p625[95] = 0.0287037
  CR_0p625[96] = 0.0333333
  CR_0p625[97] = 0.0231481
  CR_0p625[98] = 0.0240741
  CR_0p625[99] = 0.025
  CR_0p625[100] = 0.025
  CR_0p625[101] = 0.0266667
  CR_0p625[102] = 0.0225
  CR_0p625[103] = 0.0358333
  CR_0p625[104] = 0.0233333
  CR_0p625[105] = 0.0208333
  CR_0p625[106] = 0.0366667
  CR_0p625[107] = 0.0266667
  CR_0p625[108] = 0.0308333
  CR_0p625[109] = 0.0341667
  CR_0p625[110] = 0.0208333
  
//„Write2Save(Q_EC_0p625Gd,"Q_0p625")
  Make/O/D/N=111  Q_0p625

  Q_0p625[0] = 4.51567e-06
  Q_0p625[1] = 7.29067e-06
  Q_0p625[2] = 1.00657e-05
  Q_0p625[3] = 1.28407e-05
  Q_0p625[4] = 1.56157e-05
  Q_0p625[5] = 1.83907e-05
  Q_0p625[6] = 2.11657e-05
  Q_0p625[7] = 2.39407e-05
  Q_0p625[8] = 2.67157e-05
  Q_0p625[9] = 2.94907e-05
  Q_0p625[10] = 3.22657e-05
  Q_0p625[11] = 3.50407e-05
  Q_0p625[12] = 3.78157e-05
  Q_0p625[13] = 4.05907e-05
  Q_0p625[14] = 4.33657e-05
  Q_0p625[15] = 4.61407e-05
  Q_0p625[16] = 4.89157e-05
  Q_0p625[17] = 5.16907e-05
  Q_0p625[18] = 5.44657e-05
  Q_0p625[19] = 5.72407e-05
  Q_0p625[20] = 6.00157e-05
  Q_0p625[21] = 6.27907e-05
  Q_0p625[22] = 6.55657e-05
  Q_0p625[23] = 6.83407e-05
  Q_0p625[24] = 7.11157e-05
  Q_0p625[25] = 7.38907e-05
  Q_0p625[26] = 7.66657e-05
  Q_0p625[27] = 7.94407e-05
  Q_0p625[28] = 8.22157e-05
  Q_0p625[29] = 8.49907e-05
  Q_0p625[30] = 8.77657e-05
  Q_0p625[31] = 9.05407e-05
  Q_0p625[32] = 9.33157e-05
  Q_0p625[33] = 9.60907e-05
  Q_0p625[34] = 9.88657e-05
  Q_0p625[35] = 0.000101641
  Q_0p625[36] = 0.000104416
  Q_0p625[37] = 0.000107191
  Q_0p625[38] = 0.000112741
  Q_0p625[39] = 0.000118291
  Q_0p625[40] = 0.000123841
  Q_0p625[41] = 0.000129391
  Q_0p625[42] = 0.000134941
  Q_0p625[43] = 0.000140491
  Q_0p625[44] = 0.000146041
  Q_0p625[45] = 0.000151591
  Q_0p625[46] = 0.000157141
  Q_0p625[47] = 0.000162691
  Q_0p625[48] = 0.000168241
  Q_0p625[49] = 0.000173791
  Q_0p625[50] = 0.000179341
  Q_0p625[51] = 0.000184891
  Q_0p625[52] = 0.000195991
  Q_0p625[53] = 0.000207091
  Q_0p625[54] = 0.000218191
  Q_0p625[55] = 0.000229291
  Q_0p625[56] = 0.000240391
  Q_0p625[57] = 0.000251491
  Q_0p625[58] = 0.000262591
  Q_0p625[59] = 0.000273691
  Q_0p625[60] = 0.000284791
  Q_0p625[61] = 0.000295891
  Q_0p625[62] = 0.000306991
  Q_0p625[63] = 0.000318091
  Q_0p625[64] = 0.000329191
  Q_0p625[65] = 0.000340291
  Q_0p625[66] = 0.000351391
  Q_0p625[67] = 0.000379141
  Q_0p625[68] = 0.000406891
  Q_0p625[69] = 0.000434641
  Q_0p625[70] = 0.000462391
  Q_0p625[71] = 0.000490141
  Q_0p625[72] = 0.000517891
  Q_0p625[73] = 0.000545641
  Q_0p625[74] = 0.000573391
  Q_0p625[75] = 0.000601141
  Q_0p625[76] = 0.000628891
  Q_0p625[77] = 0.000684391
  Q_0p625[78] = 0.000739891
  Q_0p625[79] = 0.000795391
  Q_0p625[80] = 0.000850891
  Q_0p625[81] = 0.000906391
  Q_0p625[82] = 0.000961891
  Q_0p625[83] = 0.00101739
  Q_0p625[84] = 0.00107289
  Q_0p625[85] = 0.00112839
  Q_0p625[86] = 0.00118389
  Q_0p625[87] = 0.00129489
  Q_0p625[88] = 0.00140589
  Q_0p625[89] = 0.00151689
  Q_0p625[90] = 0.00162789
  Q_0p625[91] = 0.00173889
  Q_0p625[92] = 0.00184989
  Q_0p625[93] = 0.00196089
  Q_0p625[94] = 0.00207189
  Q_0p625[95] = 0.00218289
  Q_0p625[96] = 0.00229389
  Q_0p625[97] = 0.00240489
  Q_0p625[98] = 0.00251589
  Q_0p625[99] = 0.00262689
  Q_0p625[100] = 0.00273789
  Q_0p625[101] = 0.00284889
  Q_0p625[102] = 0.00312639
  Q_0p625[103] = 0.00340389
  Q_0p625[104] = 0.00368139
  Q_0p625[105] = 0.00395889
  Q_0p625[106] = 0.00423639
  Q_0p625[107] = 0.00451389
  Q_0p625[108] = 0.00479139
  Q_0p625[109] = 0.00506889
  Q_0p625[110] = 0.00534639


//„Write2Save(CR_EB_1p75Cd,"CR_1p75")
  Make/O/D/N=62  CR_1p75

  CR_1p75[0] = 56049.9
  CR_1p75[1] = 51240.5
  CR_1p75[2] = 45919
  CR_1p75[3] = 39577.8
  CR_1p75[4] = 32971.3
  CR_1p75[5] = 25348.7
  CR_1p75[6] = 15999.1
  CR_1p75[7] = 5576.9
  CR_1p75[8] = 1142.1
  CR_1p75[9] = 387.5
  CR_1p75[10] = 167.9
  CR_1p75[11] = 78.5
  CR_1p75[12] = 44.7
  CR_1p75[13] = 29.3
  CR_1p75[14] = 13.0967
  CR_1p75[15] = 7.51667
  CR_1p75[16] = 4.38667
  CR_1p75[17] = 3.09
  CR_1p75[18] = 1.97667
  CR_1p75[19] = 1.48667
  CR_1p75[20] = 1.18333
  CR_1p75[21] = 0.953333
  CR_1p75[22] = 0.84
  CR_1p75[23] = 0.736667
  CR_1p75[24] = 0.596667
  CR_1p75[25] = 0.513333
  CR_1p75[26] = 0.573333
  CR_1p75[27] = 0.47125
  CR_1p75[28] = 0.3775
  CR_1p75[29] = 0.345
  CR_1p75[30] = 0.27875
  CR_1p75[31] = 0.25625
  CR_1p75[32] = 0.20125
  CR_1p75[33] = 0.2175
  CR_1p75[34] = 0.21875
  CR_1p75[35] = 0.20125
  CR_1p75[36] = 0.15
  CR_1p75[37] = 0.1725
  CR_1p75[38] = 0.14375
  CR_1p75[39] = 0.1275
  CR_1p75[40] = 0.12
  CR_1p75[41] = 0.1275
  CR_1p75[42] = 0.095
  CR_1p75[43] = 0.075
  CR_1p75[44] = 0.0708333
  CR_1p75[45] = 0.0666667
  CR_1p75[46] = 0.045
  CR_1p75[47] = 0.0558333
  CR_1p75[48] = 0.0525
  CR_1p75[49] = 0.0508333
  CR_1p75[50] = 0.0416667
  CR_1p75[51] = 0.0341667
  CR_1p75[52] = 0.05
  CR_1p75[53] = 0.0325
  CR_1p75[54] = 0.0433333
  CR_1p75[55] = 0.0341667
  CR_1p75[56] = 0.0391667
  CR_1p75[57] = 0.0375
  CR_1p75[58] = 0.0275
  CR_1p75[59] = 0.0241667
  CR_1p75[60] = 0.0258333
  CR_1p75[61] = 0.0308333
  
//„Write2Save(Q_EB_1p75Cd,"Q_1p75")
  Make/O/D/N=62  Q_1p75

  Q_1p75[0] = 2.39312e-06
  Q_1p75[1] = 5.16812e-06
  Q_1p75[2] = 7.94312e-06
  Q_1p75[3] = 1.07181e-05
  Q_1p75[4] = 1.34931e-05
  Q_1p75[5] = 1.62681e-05
  Q_1p75[6] = 1.90431e-05
  Q_1p75[7] = 2.18181e-05
  Q_1p75[8] = 2.45931e-05
  Q_1p75[9] = 2.73681e-05
  Q_1p75[10] = 3.01431e-05
  Q_1p75[11] = 3.29181e-05
  Q_1p75[12] = 3.56931e-05
  Q_1p75[13] = 3.84681e-05
  Q_1p75[14] = 4.40181e-05
  Q_1p75[15] = 4.95681e-05
  Q_1p75[16] = 5.51181e-05
  Q_1p75[17] = 6.06681e-05
  Q_1p75[18] = 6.62181e-05
  Q_1p75[19] = 7.17681e-05
  Q_1p75[20] = 7.73181e-05
  Q_1p75[21] = 8.28681e-05
  Q_1p75[22] = 8.84181e-05
  Q_1p75[23] = 9.39681e-05
  Q_1p75[24] = 9.95181e-05
  Q_1p75[25] = 0.000105068
  Q_1p75[26] = 0.000110618
  Q_1p75[27] = 0.000116168
  Q_1p75[28] = 0.000127268
  Q_1p75[29] = 0.000138368
  Q_1p75[30] = 0.000149468
  Q_1p75[31] = 0.000160568
  Q_1p75[32] = 0.000171668
  Q_1p75[33] = 0.000182768
  Q_1p75[34] = 0.000193868
  Q_1p75[35] = 0.000204968
  Q_1p75[36] = 0.000216068
  Q_1p75[37] = 0.000227168
  Q_1p75[38] = 0.000238268
  Q_1p75[39] = 0.000249368
  Q_1p75[40] = 0.000260468
  Q_1p75[41] = 0.000271568
  Q_1p75[42] = 0.000282668
  Q_1p75[43] = 0.000310418
  Q_1p75[44] = 0.000338168
  Q_1p75[45] = 0.000365918
  Q_1p75[46] = 0.000393668
  Q_1p75[47] = 0.000421418
  Q_1p75[48] = 0.000449168
  Q_1p75[49] = 0.000476918
  Q_1p75[50] = 0.000504668
  Q_1p75[51] = 0.000532418
  Q_1p75[52] = 0.000560168
  Q_1p75[53] = 0.000615668
  Q_1p75[54] = 0.000671168
  Q_1p75[55] = 0.000726668
  Q_1p75[56] = 0.000782168
  Q_1p75[57] = 0.000837668
  Q_1p75[58] = 0.000893168
  Q_1p75[59] = 0.000948668
  Q_1p75[60] = 0.00100417
  Q_1p75[61] = 0.00105967

//„Write2Save(CR_EB_2p0Cd,"CR_2p0")
  Make/O/D/N=98  CR_2p0

  CR_2p0[0] = 56491
  CR_2p0[1] = 54551
  CR_2p0[2] = 52643
  CR_2p0[3] = 50831
  CR_2p0[4] = 49123
  CR_2p0[5] = 47027
  CR_2p0[6] = 44771
  CR_2p0[7] = 42107
  CR_2p0[8] = 39800
  CR_2p0[9] = 37302
  CR_2p0[10] = 34395
  CR_2p0[11] = 31471
  CR_2p0[12] = 28303
  CR_2p0[13] = 25128
  CR_2p0[14] = 21653
  CR_2p0[15] = 17922
  CR_2p0[16] = 12174
  CR_2p0[17] = 7115.8
  CR_2p0[18] = 3326.9
  CR_2p0[19] = 1589.9
  CR_2p0[20] = 891.4
  CR_2p0[21] = 535.63
  CR_2p0[22] = 220.89
  CR_2p0[23] = 107.1
  CR_2p0[24] = 56.514
  CR_2p0[25] = 32.152
  CR_2p0[26] = 20.343
  CR_2p0[27] = 12.414
  CR_2p0[28] = 8.627
  CR_2p0[29] = 6.7108
  CR_2p0[30] = 4.9465
  CR_2p0[31] = 4.1578
  CR_2p0[32] = 3.3081
  CR_2p0[33] = 2.766
  CR_2p0[34] = 2.4332
  CR_2p0[35] = 2.1247
  CR_2p0[36] = 1.8241
  CR_2p0[37] = 1.714
  CR_2p0[38] = 1.5203
  CR_2p0[39] = 1.3497
  CR_2p0[40] = 1.1631
  CR_2p0[41] = 1.0898
  CR_2p0[42] = 0.92233
  CR_2p0[43] = 0.86104
  CR_2p0[44] = 0.85208
  CR_2p0[45] = 0.73172
  CR_2p0[46] = 0.70148
  CR_2p0[47] = 0.66529
  CR_2p0[48] = 0.61247
  CR_2p0[49] = 0.4913
  CR_2p0[50] = 0.39919
  CR_2p0[51] = 0.35199
  CR_2p0[52] = 0.30181
  CR_2p0[53] = 0.27288
  CR_2p0[54] = 0.26265
  CR_2p0[55] = 0.21062
  CR_2p0[56] = 0.17651
  CR_2p0[57] = 0.18255
  CR_2p0[58] = 0.16052
  CR_2p0[59] = 0.16645
  CR_2p0[60] = 0.14246
  CR_2p0[61] = 0.12039
  CR_2p0[62] = 0.10952
  CR_2p0[63] = 0.099616
  CR_2p0[64] = 0.060274
  CR_2p0[65] = 0.068665
  CR_2p0[66] = 0.059424
  CR_2p0[67] = 0.059445
  CR_2p0[68] = 0.037673
  CR_2p0[69] = 0.041021
  CR_2p0[70] = 0.028466
  CR_2p0[71] = 0.035992
  CR_2p0[72] = 0.031814
  CR_2p0[73] = 0.031632
  CR_2p0[74] = 0.031634
  CR_2p0[75] = 0.02913
  CR_2p0[76] = 0.02812
  CR_2p0[77] = 0.026116
  CR_2p0[78] = 0.027619
  CR_2p0[79] = 0.027621
  CR_2p0[80] = 0.024099
  CR_2p0[81] = 0.024603
  CR_2p0[82] = 0.028119
  CR_2p0[83] = 0.027782
  CR_2p0[84] = 0.025783
  CR_2p0[85] = 0.026126
  CR_2p0[86] = 0.025121
  CR_2p0[87] = 0.028149
  CR_2p0[88] = 0.025849
  CR_2p0[89] = 0.024509
  CR_2p0[90] = 0.023831
  CR_2p0[91] = 0.026867
  CR_2p0[92] = 0.026525
  CR_2p0[93] = 0.028867
  CR_2p0[94] = 0.0282
  CR_2p0[95] = 0.023507
  CR_2p0[96] = 0.029929
  CR_2p0[97] = 0.032651
  
//„Write2Save(Q_EB_2p0Cd,"Q_2p0")
  Make/O/D/N=98  Q_2p0

  Q_2p0[0] = 1.4972e-06
  Q_2p0[1] = 2.6072e-06
  Q_2p0[2] = 3.7172e-06
  Q_2p0[3] = 4.8272e-06
  Q_2p0[4] = 5.9372e-06
  Q_2p0[5] = 7.0472e-06
  Q_2p0[6] = 8.1572e-06
  Q_2p0[7] = 9.2672e-06
  Q_2p0[8] = 1.0377e-05
  Q_2p0[9] = 1.1487e-05
  Q_2p0[10] = 1.2597e-05
  Q_2p0[11] = 1.3707e-05
  Q_2p0[12] = 1.4817e-05
  Q_2p0[13] = 1.5927e-05
  Q_2p0[14] = 1.7037e-05
  Q_2p0[15] = 1.8147e-05
  Q_2p0[16] = 1.9257e-05
  Q_2p0[17] = 2.0367e-05
  Q_2p0[18] = 2.1477e-05
  Q_2p0[19] = 2.2587e-05
  Q_2p0[20] = 2.3697e-05
  Q_2p0[21] = 2.4807e-05
  Q_2p0[22] = 2.7582e-05
  Q_2p0[23] = 3.0357e-05
  Q_2p0[24] = 3.3132e-05
  Q_2p0[25] = 3.5907e-05
  Q_2p0[26] = 3.8682e-05
  Q_2p0[27] = 4.1457e-05
  Q_2p0[28] = 4.4232e-05
  Q_2p0[29] = 4.7007e-05
  Q_2p0[30] = 4.9782e-05
  Q_2p0[31] = 5.2557e-05
  Q_2p0[32] = 5.5332e-05
  Q_2p0[33] = 5.8107e-05
  Q_2p0[34] = 6.0882e-05
  Q_2p0[35] = 6.3657e-05
  Q_2p0[36] = 6.6432e-05
  Q_2p0[37] = 6.9207e-05
  Q_2p0[38] = 7.1982e-05
  Q_2p0[39] = 7.4757e-05
  Q_2p0[40] = 7.7532e-05
  Q_2p0[41] = 8.0307e-05
  Q_2p0[42] = 8.3082e-05
  Q_2p0[43] = 8.5857e-05
  Q_2p0[44] = 8.8632e-05
  Q_2p0[45] = 9.1407e-05
  Q_2p0[46] = 9.4182e-05
  Q_2p0[47] = 9.6957e-05
  Q_2p0[48] = 0.00010251
  Q_2p0[49] = 0.00011361
  Q_2p0[50] = 0.00012471
  Q_2p0[51] = 0.00013581
  Q_2p0[52] = 0.00014691
  Q_2p0[53] = 0.00015801
  Q_2p0[54] = 0.00016911
  Q_2p0[55] = 0.00018021
  Q_2p0[56] = 0.00019131
  Q_2p0[57] = 0.00020241
  Q_2p0[58] = 0.00021351
  Q_2p0[59] = 0.00022461
  Q_2p0[60] = 0.00023571
  Q_2p0[61] = 0.00024681
  Q_2p0[62] = 0.00025791
  Q_2p0[63] = 0.00026901
  Q_2p0[64] = 0.00029676
  Q_2p0[65] = 0.00032451
  Q_2p0[66] = 0.00035226
  Q_2p0[67] = 0.00038001
  Q_2p0[68] = 0.00040776
  Q_2p0[69] = 0.00043551
  Q_2p0[70] = 0.00046326
  Q_2p0[71] = 0.00049101
  Q_2p0[72] = 0.00051876
  Q_2p0[73] = 0.00054651
  Q_2p0[74] = 0.00060201
  Q_2p0[75] = 0.00065751
  Q_2p0[76] = 0.00071301
  Q_2p0[77] = 0.00076851
  Q_2p0[78] = 0.00082401
  Q_2p0[79] = 0.00087951
  Q_2p0[80] = 0.00093501
  Q_2p0[81] = 0.00099051
  Q_2p0[82] = 0.001046
  Q_2p0[83] = 0.0011015
  Q_2p0[84] = 0.0012125
  Q_2p0[85] = 0.0013235
  Q_2p0[86] = 0.0014345
  Q_2p0[87] = 0.0015455
  Q_2p0[88] = 0.0016565
  Q_2p0[89] = 0.0017675
  Q_2p0[90] = 0.0018785
  Q_2p0[91] = 0.0019895
  Q_2p0[92] = 0.0021005
  Q_2p0[93] = 0.0022115
  Q_2p0[94] = 0.0023225
  Q_2p0[95] = 0.0024335
  Q_2p0[96] = 0.0025445
  Q_2p0[97] = 0.0026555


	SetDataFolder root:
	return(0)
End