extinction.f:      common /extinction_data/ tauv,tauh
extinction.f:      common /canopy_data/ N_species
extinction.f:      common /layer_segments/ N_layer
extinction.f:      common /extinction_data/ tauv,tauh
extinction.f:      common /layer_segments/ N_layer
extinction.f:      common / TBD / dm
extinction.f:      common /extinction_data/ tauv,tauh
extinction.f:      common /layer_segments/ N_layer
extinction.f:      common / TBD / dm
extinction_tst.f:      common /canopy_data/ N_species
extinction_tst.f:      common /layer_segments/ N_layer
extinction_tst.f:      common /incident/ theta_i,phi_i,k_0
extinction_tst.f:      common /dielectrics/ e_leaf,e_soil,e_stalk,e_grain
extinction_tst.f:      common /TBD/ dm
extinction_tst.f:      common /unfrm_data/ N_ppsm
extinction_tst.f:      common /s_cross_section/ stalk_cs,s_cs_store
extinction_tst.f:        common /stalk_blade_cs/ thick_s,width_s,curv_s,angle_s,w_s_save
extinction_tst.f:        common /blade_stalk_taper/ blade_taper_s
extinction_tst.f:        common /stalk_circle_cs/ diam_s,d_s_save,d_tpr
extinction_tst.f:        common /circ_stalk_taper/ circ_taper_s
extinction_tst.f:      common /int_data/ bound
extinction_tst.f:      common /stalk_limits/ amin,amax,z0min,z0max
extinction_tst.f:      common /stalk_pdf/ s_alf_pdf,sa_pdf,sz0_pdf
extinction_tst.f:      common /z0_stat/ z0_mn,z0_sig
extinction_tst.f:      common /a_stat/ a_mn,a_sig
extinction_tst.f:      common /leaf_eigen/ e1,e2,e3
extinction_tst.f:      common /l_cross_section/ leaf_cs,l_cs_store
extinction_tst.f:        common /leaf_blade_cs/ thick_l,width_l,curv_l,angle_l,w_l_save
extinction_tst.f:        common /blade_leaf_taper/ blade_taper_l
extinction_tst.f:        common /leaf_circle_cs/ diam_l,d_l_save
extinction_tst.f:        common /circ_leaf_taper/ circ_taper_l
extinction_tst.f:      common /r_leaf/ lz_pdf
extinction_tst.f:      common /uniform_l/ z_lc,del_leaf,N_leaves
extinction_tst.f:      common /leaf_limits/ vmin,vmax
extinction_tst.f:      common /leaf_pdf/ l_alf_pdf,lv_pdf
extinction_tst.f:      common /v_stat/ v_mn,v_sig
leaf_extinc.f:      common /TBD/dm
leaf_extinc.f:      common /leaf_flags/ l_tensor_flag,l_tau_flag
leaf_extinc.f:      common /tau_flag/ pol
leaf_extinc.f:      common /incident/ theta_i,phi_i,k_0
leaf_extinc.f:      common /store_lt/ leaf_fs_ave_h,leaf_fs_ave_v
leaf_extinc.f:      common /r_leaf/ lz_pdf
leaf_extinc.f:      common /unfrm_data/ N_ppsm
leaf_extinc.f:      common /uniform_l/ z_lc,del_leaf,N_leaves
leaf_extinc.f:      common /leaf_flags/ l_tensor_flag,l_tau_flag      
leaf_extinc.f:      common /leaf_limits/ vmin,vmax
leaf_extinc.f:      common /leaf_state/ phi,v
leaf_extinc.f:      common /leaf_state/ phi,v
leaf_extinc.f:      common /tau_flag/ pol
leaf_fs.f:      common /leaf_eigen/ e1,e2,e3
leaf_fs.f:      common /leaf_struct/ c1,c2,alpha,ell_0
leaf_fs.f:      common /incident/ theta_i,phi_i,k_0
leaf_fs.f:      common /leaf_flags/ l_tensor_flag,l_tau_flag
leaf_fs.f:       common /leaf_struct/ c1,c2,alpha,ell_0
leaf_fs.f:       common /leaf_struct/ c1,c2,alpha,ell_0
leaf_fs.f:       common /leaf_struct/ c1,c2,alpha,ell_0
stalk_extinc.f:      common /TBD/dm
stalk_extinc.f:      common /leaf_flags/ s_tensor_flag,s_tau_flag
stalk_extinc.f:      common /tau_flag/ pol
stalk_extinc.f:      common /incident/ theta_i,phi_i,k_0
stalk_extinc.f:      common /store_st/ stalk_fs_ave_h,stalk_fs_ave_v
stalk_extinc.f:      common /unfrm_data/ N_ppsm
stalk_extinc.f:      common /stalk_flags/ s_tensor_flag,s_tau_flag
stalk_extinc.f:      common /tau_position/ z
stalk_extinc.f:      common /stalk_limits/ amin,amax,z0min,z0max
stalk_extinc.f:      common /stalk_state/ phi_s,a_s,z0
stalk_extinc.f:      common /stalk_limits/ amin,amax,z0min,z0max
stalk_extinc.f:      common /stalk_state/ phi_s,a_s,z0
stalk_extinc.f:      common /tau_position/ z      
stalk_extinc.f:      common /tau_flag/ pol
stalk_extinc.f:      common /stalk_state/ phi_s,a_s,z0
stalk_fs.f:      common /stalk_flags/ s_tensor_flag,s_tau_flag
stalk_fs.f:      common /stalk_struct/ a,alpha_s,ell_0
stalk_fs.f:      common /incident/ theta_i,phi_i,k_0
stalk_fs.f:      common /TBD/ dm
stalk_fs.f:       common /stalk_struct/ a,alpha_s,ell_0
stalk_fs.f:       common /TBD/ dm
stalk_fs.f:       common /stalk_struct/ a,alpha_s,ell_0
stalk_fs.f:       common /TBD/ dm
stalk_fs.f:       common /stalk_struct/ a,alpha_s,ell_0
stalk_fs.f:       common /TBD/ dm