1 jones 1.1 ! TARGET.INC
 2           
 3           ! Constants
 4           
 5           	real*8		rho_Al, Z_Al, A_Al, X0_Al, X0_cm_Al
 6           	parameter	(rho_Al = 2.70)
 7           	parameter	(Z_Al = 13.)
 8           	parameter	(A_Al = 26.98)
 9           	parameter	(X0_Al = 24.01)
10           	parameter	(X0_cm_Al = X0_Al/rho_Al)
11                   real*8          rho_mylar, Z_mylar, A_mylar, X0_mylar, X0_cm_mylar
12                   parameter       (rho_mylar = 1.39)
13                   parameter       (Z_mylar = 4.545)
14                   parameter       (A_mylar = 8.735)
15                   parameter       (X0_mylar = 39.95)
16                   parameter       (X0_cm_mylar = X0_mylar/rho_mylar)
17                   real*8          rho_kevlar, Z_kevlar, A_kevlar, X0_kevlar, X0_cm_kevlar
18                   parameter       (rho_kevlar = 0.74)
19                   parameter       (Z_kevlar = 2.67)
20                   parameter       (A_kevlar = 4.67)
21                   parameter       (X0_kevlar = 55.2)
22 jones 1.1         parameter       (X0_cm_kevlar = X0_kevlar/rho_kevlar)
23           	real*8          rho_air, Z_air, A_air, X0_air, X0_cm_air
24                   parameter       (rho_air = 0.00121)
25                   parameter       (Z_air = 7.2)   !80% N2, 20% O2
26                   parameter       (A_air = 14.4)
27                   parameter       (X0_air = 36.66)
28                   parameter       (X0_cm_air = X0_air/rho_air)
29                   real*8		inch_cm, target_pi
30           	parameter	(inch_cm = 2.54)
31           ! ........ stupid name to avoid conflict with definition in constants.inc
32           	parameter	(target_pi = 3.14159265358979)
33           
34           ! Target information
35           
36           	structure /target_function/
37           		real*8		ave, min, max
38           	end structure
39           
40           	structure /target_info/
41           		real*8	A, Z, N, mass_amu, M, mrec_amu, Mrec, rho, thick, angle,
42                >			abundancy, length, zoffset, X0, X0_cm, L1, L2,
43 jones 1.1      >			fr1, fr2, xoffset, yoffset
44           		integer fr_pattern,can
45           		record /target_function/ Eloss(3), teff(3), Coulomb
46           		real*8	Coulomb_constant, musc_max(3), musc_nsig_max
47           		real*8  Mtar_struck, Mrec_struck
48           	end structure
49           
50           	record /target_info/	targ
51           	common /target_info/	targ