25
25
double precision crossijk, cross_check_process
26
26
c indirect_detection.f
27
double precision sigmav_ID, dm_vel_dist_ID, integrand, taacs_ID, vave_glob,vave_indirect
27
double precision sigmav_ID, dm_vel_dist_ID, integrand, taacs_ID, vave_glob, vave_indirect, vave_indirect_line
28
28
integer channel_glob
29
29
character(20) halo_profile
30
common/idstuff/ vave_glob, channel_glob, vave_indirect, halo_profile
30
common/idstuff/ vave_glob, channel_glob, vave_indirect, halo_profile, vave_indirect_line
32
32
c direct_detection.f
33
33
double precision sigma_proton_SI, sigma_neutron_SI, sigma_nucleon
117
117
common/ dd_process_ids/ dd_process_ids
118
118
common/ dd_eff_process_ids/ dd_eff_process_ids
119
119
common/ dd_tot_process_ids/ dd_tot_process_ids
120
logical ann_process_iden_init(maxdms,maxdms, %(max_dm2sm)i), dm2dm_process_iden_init(maxdms,maxdms,%(max_dm2dm)i)
120
logical ann_process_iden_init(maxdms,maxdms, %(max_dm2sm)i), dm2dm_process_iden_init(maxdms,maxdms,%(max_dm2dm)i), is_line_process(%(nb_me)i)
121
121
logical relic_canonical, calc_taacs_ann_array, calc_taacs_dm2dm_array, calc_taacs_scattering_array
122
logical do_relic_density, do_direct_detection, do_indirect_detection, xd_approx, only2to2lo
123
common/process_logical/ ann_process_iden_init, dm2dm_process_iden_init, relic_canonical,
122
logical do_relic_density, do_direct_detection, do_indirect_detection, do_indirect_spectral, xd_approx, only2to2lo
123
common/process_logical/ ann_process_iden_init, dm2dm_process_iden_init, is_line_process, relic_canonical,
124
124
. calc_taacs_ann_array, calc_taacs_dm2dm_array, calc_taacs_scattering_array, xd_approx, only2to2lo
126
126
c flags for the test subroutines to see if certain quantities have already been calculated