matter.inc
IADJ
DATA N_MATTER /'LI ','BE ','B ','C ',
* 'MG ','AL ','SI ','CA ','FE ',
* 'CU ','GE ','ZR ','AG ','SN ',
* 'W ','AU ','HG ','PB ','U ',
* 'ANTHRA ','STILBEN','PLASTIC','POLYETH','LUCITE ',
* 'TOLUENE ','XYLENE ','H2O ','KCL ','AGCL ',
* 'AGBR ','EMULSIO','LII ','NAI ','NAF ',
* 'AIR ','H2LIQ ','HE ','N2 ','O2 ',
* 'NE ','AR ','KR ','XE ','CH4 ',
* 'TA ','MYLAR ','KAPTON '/
DATA N_MATTER_S/'li ','be ','b ','c ',
* 'mg ','al ','si ','ca ','fe ',
* 'cu ','ge ','zr ','ag ','sn ',
* 'w ','au ','hg ','pb ','u ',
* 'anthra ','stilben','plastic','polyeth','lucite ',
* 'toluene ','xylene ','h2o ','kcl ','agcl ',
* 'agbr ','emulsio','lii ','nai ','naf ',
* 'air ','h2liq ','he ','n2 ','o2 ',
* 'ne ','ar ','kr ','xe ','ch4 ',
* 'ta ','mylar ','kapton '/

DATA ADJ_MATTER / 38., 60., 70.3 , 78.3,
* 156.0, 163.0, 172.3, 191.9, 273.,
* 314.0, 342.8, 380.9, 487.0, 516.0,
* 748.0, 797.0, 810.0, 826.0, 923.0,
* 67.0, 65.2, 63.6, 54.6, 65.6,
* 62.1 , 61.0, 65.1, 184.0, 384.5,
* 434.1, 320.0, 472.5, 433.0, 135.4,
* 85.8, 18.7, 42.0, 85.0, 89.0,
* 131.0, 210.0, 381.0, 555.0, 44.1,