1 gaskelld 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 gaskelld 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 gaskelld 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