dipelm_procs Module Reference

Functions/Subroutines
subroutine	calculate_oriented_dipoles (dipoles, ion_state, neutral_state, alpha, beta, gamma, ylm, mfdip)
subroutine	calculate_MFPAD (dipoles, mfdip, ion_state, neutral_state, mfpad)
subroutine	calculate_LFDip (dipoles, electron_direction, mol_orientation, steps_elec_direction, steps_mol_orientation, ion_state, neutral_state, mfdip)
subroutine	calculate_MFDip (dipoles, electron_direction, mol_orientation, steps_elec_direction, steps_mol_orientation, ion_state, neutral_state, mfdip)
subroutine	calculate_cross_section_and_beta_parameters (dipoles, select_ion_states, select_neutral_states, xsec, beta_1, beta_2l, beta_2c)
subroutine	make_ritchie_AL_coeff (dipoles, ion_state, neutral_state, lbig, p, al_coefficient)
subroutine	calculate_aligned_cross_section_and_beta_parameters (dipoles, select_ion_states, select_neutral_states, en_start, en_end, kq, akq, xsec, beta_lql, beta_lqc, lbig_max, perfect_aligned)
subroutine	make_aligned_BLQ_coeff (dipoles, en_start, en_end, ion_state, neutral_state, kq, akq, p, blq_coefficient)
subroutine	make_perfect_aligned_BLQ_coeff (dipoles, en_start, en_end, ion_state, neutral_state, polarization, n_t, blq_coefficient)
subroutine	determine_states_selected (no_ion_states, select_ion_states, no_ion_states_all, no_neutral_states, select_neutral_states, no_neutral_states_all)
subroutine	multiply_in_coulomb_phase_factor (dipoles)

Function/Subroutine Documentation

calculate_aligned_cross_section_and_beta_parameters()

subroutine dipelm_procs::calculate_aligned_cross_section_and_beta_parameters	(	type(moments)	dipoles,
		integer, dimension(:)	select_ion_states,
		integer, dimension(:)	select_neutral_states,
		integer	en_start,
		integer	en_end,
		integer, dimension(:,:)	kq,
		complex(kind=idp), dimension(:,:)	akq,
		complex(idp), dimension(:,:,:,:), allocatable	xsec,
		complex(idp), dimension(:,:,:,:,:), allocatable	beta_lql,
		complex(idp), dimension(:,:,:,:,:), allocatable	beta_lqc,
		integer	lbig_max,
		logical	perfect_aligned )

Here is the call graph for this function:

calculate_cross_section_and_beta_parameters()

subroutine dipelm_procs::calculate_cross_section_and_beta_parameters	(	type(moments)	dipoles,
		integer, dimension(:)	select_ion_states,
		integer, dimension(:)	select_neutral_states,
		real(idp), dimension(:,:,:), allocatable	xsec,
		real(idp), dimension(:,:,:), allocatable	beta_1,
		real(idp), dimension(:,:,:), allocatable	beta_2l,
		real(idp), dimension(:,:,:), allocatable	beta_2c )

Todo

Check whether xsec and beta_2 depend on if the light polarization is circular or linear. (I think they actually might do) Looks like beta_2 does.

Here is the call graph for this function:

calculate_LFDip()

subroutine dipelm_procs::calculate_LFDip	(	type(moments)	dipoles,
		real(idp), dimension(4)	electron_direction,
		real(idp), dimension(6)	mol_orientation,
		integer, dimension(2)	steps_elec_direction,
		integer, dimension(3)	steps_mol_orientation,
		integer	ion_state,
		integer	neutral_state,
		complex(idp), dimension(:,:,:), allocatable	mfdip )

calculate_MFDip()

subroutine dipelm_procs::calculate_MFDip	(	type(moments)	dipoles,
		real(idp), dimension(4)	electron_direction,
		real(idp), dimension(6)	mol_orientation,
		integer, dimension(2)	steps_elec_direction,
		integer, dimension(3)	steps_mol_orientation,
		integer	ion_state,
		integer	neutral_state,
		complex(idp), dimension(:,:,:), allocatable	mfdip )

calculate_MFPAD()

subroutine dipelm_procs::calculate_MFPAD	(	type(moments), intent(in)	dipoles,
		complex(kind=idp), dimension(:,:,:)	mfdip,
		integer	ion_state,
		integer	neutral_state,
		real(idp), dimension(:,:,:), allocatable	mfpad )

Here is the call graph for this function:

calculate_oriented_dipoles()

subroutine dipelm_procs::calculate_oriented_dipoles	(	type(moments)	dipoles,
		integer	ion_state,
		integer	neutral_state,
		real(idp)	alpha,
		real(idp)	beta,
		real(idp)	gamma,
		complex(idp), dimension(:,:)	ylm,
		complex(idp), dimension(:,:,:), allocatable	mfdip )

determine_states_selected()

subroutine dipelm_procs::determine_states_selected	(	integer	no_ion_states,
		integer, dimension(:), allocatable	select_ion_states,
		integer	no_ion_states_all,
		integer	no_neutral_states,
		integer, dimension(:), allocatable	select_neutral_states,
		integer	no_neutral_states_all )

make_aligned_BLQ_coeff()

subroutine dipelm_procs::make_aligned_BLQ_coeff	(	type(moments)	dipoles,
		integer	en_start,
		integer	en_end,
		integer	ion_state,
		integer	neutral_state,
		integer, dimension(:,:)	kq,
		complex(kind=idp), dimension(:,:)	akq,
		integer	p,
		complex(kind=idp), dimension(:,:,:), allocatable	blq_coefficient )

make_perfect_aligned_BLQ_coeff()

subroutine dipelm_procs::make_perfect_aligned_BLQ_coeff	(	type(moments)	dipoles,
		integer	en_start,
		integer	en_end,
		integer	ion_state,
		integer	neutral_state,
		complex(kind=idp), dimension(-1:1,1:n_t)	polarization,
		integer	n_t,
		complex(kind=idp), dimension(:,:,:), allocatable	blq_coefficient )

make_ritchie_AL_coeff()

subroutine dipelm_procs::make_ritchie_AL_coeff	(	type(moments)	dipoles,
		integer	ion_state,
		integer	neutral_state,
		integer	lbig,
		integer	p,
		complex(kind=idp), dimension(:)	al_coefficient )

multiply_in_coulomb_phase_factor()

subroutine dipelm_procs::multiply_in_coulomb_phase_factor

(

type(moments)

dipoles

)