blockdata

c.	block-data
c	implicit double precision(a-h,o-z)

	data h,bk,cluz,pi,xme,ec,pia0,xnu01,xmh/
     +6.6262E-27,1.38062E-16,2.997925E10,3.141593,9.10956E-28,
     +4.80325E-10,8.79737E-17,911.7634,1.67352e-24/

	data au,pc,xmsol,xlsol,tmw,gn,sigs,rsol/
     *	1.495979d13,3.085678d18,1.989d33,3.845d33,2.7d0,6.67d-8,
     *	5.67e-5,6.95508e10/

	data abe/
     .  1.000e0,8.5e-2,4.e-9,0.,0.,
     .  3.31e-4,9.12e-5,6.607e-4,3.98e-8,8.32e-5,
     .  1.778e-6,2.63e-5,2.455e-6,3.311e-5,3.31e-7,
     .  1.58e-5,3.98e-7,6.31e-6,8.91e-8,2.e-6,
     .  1.66e-9,1.35e-7,2.51e-8,7.08e-7,2.51e-7,
     .  3.98e-5,1.26e-7,2.e-6,3.16e-8,1.58e-8/

	data awe/
     +1.008,4.0026,6.939,9.013,10.812,12.0111,14.0067,15.9994,
     +18.999,20.184,22.9898,24.305,26.9815,28.086,30.9738,
     +32.066,35.454,39.949,39.102,40.08,44.956,47.90,
     +50.9414,51.996,54.938,55.847,58.9332,58.71,63.546,65.37 /

	data xio01e/
     +13.598,24.587,5.39,9.32,8.296,11.260,14.534,13.618,
     +17.418,21.559,5.139,7.646,5.986,8.151,10.486,
     +10.357,13.01,15.755,4.341,6.113,6.54,6.82,6.74,6.766,
     +7.435,7.870,7.86,7.635,7.726,9.394 /

	data xio12e/
     +0.,54.416,75.619,18.206,25.149,24.383,29.601,35.117,
     +34.98,41.07,47.286,15.035,18.826,16.345,19.725,
     +23.4,23.8,27.62,31.63,11.871,12.80,13.58,14.65,16.50,15.64
     +,16.16,17.06,18.168,20.292,17.964/

	data u0e/
     +2.,1.,2.09,1.02,6.03,9.33,4.07,8.71,5.89,2.04,2.04,1.02,5.89,9.55,
     +4.47,8.13,5.25,1.,2.19,1.17,12.02,30.20,41.69,10.47,6.46,
     +26.92,33.11,29.51,2.29,1./

	data u1e/
     +1.,2.,2.,1.,2.,6.026,8.91,3.98,8.32,1.,1.,2.04,1.,5.75,8.13,
     +4.17,7.76,4.9,1.,2.19,22.91,56.23,43.65,7.24,7.76,42.66,28.84,
     +10.47,1.02,2./

	data u2e/
     +0.,1.,2.,1.,2.,1.,6.,9.,4.,6.,6.,1.,2.,1.,6.,9.,4.,9.,6.,1.,10.,
     +21.,28.,25.,6.,25.,28.,21.,10.,1./