1 gaskelld 1.1 ! RADC.INC
 2              
 3              	integer intcor_mode
 4              	integer one_tail, use_expon, rad_flag, extrad_flag, ntail
 5              	real*8 fwhm, etatzai, etta, frac(3), lambda(3), bt(2), hardcorfac
 6              	real*8 c_int(0:3), c_ext(0:3), c(0:4), g_int, g_ext, g(0:4)
 7              	real*8 Egamma_used(3), Egamma_min(3), Egamma_max(3)
 8              	real*8 Egamma_res_limit
 9              	real*8 Egamma_tot_max, Egamma1_max, Egamma2_max, Egamma3_max
10              	logical doing_tail(3)
11              	logical use_offshell_rad, rad_proton_this_ev, hardwired_rad
12              
13              	common /radccom/	fwhm,etatzai,etta,frac,lambda,bt,hardcorfac,
14                   >  	c_int,c_ext,c,g_int,g_ext,g,Egamma_used,Egamma_min,
15                   >		Egamma_max,Egamma_res_limit,
16                   >  	Egamma_tot_max,Egamma1_max,Egamma2_max,Egamma3_max,
17                   >  	intcor_mode, one_tail, use_expon,
18                   >  	rad_flag,extrad_flag,ntail,doing_tail,
19                   >  	use_offshell_rad,rad_proton_this_ev,hardwired_rad
20              
21              	real*8 lim1,lim2,lim3
22 gaskelld 1.1 	real*8 phot1,phot2,phot3
23              	common /radctest/lim1,lim2,lim3,phot1,phot2,phot3