stpwtbl.i

计算能量损失,重离子经过介质后的能量沉积LET,射程

	real	ER1,RR,DEDX1R
	integer	NR 
	COMMON /ERTBL/ER1(170),RR(170),DEDX1R(170),NR 

	integer	maxin,maxtg
	real	INCIN(2,450),TG1(3,100),TG2(4,10,100)
	CHARACTER	INNAME(450)*8,TGNAME(100)*8
	COMMON /BEAMMAT/INNAME,TGNAME,INCIN,TG1,TG2,maxin,maxtg

	CHARACTER MAT*12
	integer	M1
	real	RHO,AIADJ,SZ,SA,FM
	COMMON /TARGET/mat,M1,RHO,AIADJ,SZ(10),SA(10),FM(10)

	real	pz,pa
	character beam*12
	COMMON /INCIDENT/beam,PZ,PA