Functions/Subroutines
subroutine	driver (ifail)

subroutine	calculate_beta_two_photon (no_intermediate_states, index_final_state, amplitudes, dipoles, lab_frame_p1, lab_frame_p2, lab_frame_E_p2, ionization_potential, escat, beta)

subroutine	print_beta_two_photon (beta, energies_first)

subroutine	get_dipoles (dip_elm, ichl, evchl, lvchl, mvchl, no_channels, escat, no_dipole_components, dipole_component_order, bound_state_energies, target_energy, lu_pw_dipoles, nset_pw_dipoles, format_pw_dipoles, ifail)

Variables
integer, parameter	iwrite = 6

integer, parameter	max_intermediate_states = 10

logical	use_dummy_dipoles = .false.

logical	bound_transition_chiral = .true.

logical	continuum_transition_chiral = .true.

Function/Subroutine Documentation

◆ calculate_beta_two_photon()

subroutine analytic_1p1_photon_pad::calculate_beta_two_photon	(	integer, intent(in)	no_intermediate_states,
		integer, intent(in)	index_final_state,
		complex(kind=idp), dimension(1:3,1:max_intermediate_states)	amplitudes,
		complex(kind=idp), dimension(:,:,:,:,:), allocatable	dipoles,
		integer, intent(in)	lab_frame_p1,
		integer, intent(in)	lab_frame_p2,
		real(kind=idp), dimension(3), intent(in)	lab_frame_E_p2,
		real(kind=idp), intent(in)	ionization_potential,
		real(kind=idp), dimension(size(dipoles,3)), intent(in)	escat,
		complex(kind=idp), dimension(:,:), allocatable	beta
	)

Here is the call graph for this function:

subroutine analytic_1p1_photon_pad::driver ( integer, intent(out) ifail )

Here is the call graph for this function:

subroutine analytic_1p1_photon_pad::get_dipoles	(	complex(kind=icp), dimension(:,:,:,:), allocatable	dip_elm,
		integer, dimension(:,:), allocatable	ichl,
		real(kind=idp), dimension(:,:), allocatable	evchl,
		integer, dimension(:,:), allocatable	lvchl,
		integer, dimension(:,:), allocatable	mvchl,
		integer, dimension(maxprop_par)	no_channels,
		real(kind=idp), dimension(:), allocatable	escat,
		integer	no_dipole_components,
		character(len=1), dimension(maxprop_par)	dipole_component_order,
		real(kind=idp), dimension(:), allocatable	bound_state_energies,
		real(kind=idp)	target_energy,
		integer, dimension(maxprop_par)	lu_pw_dipoles,
		integer, dimension(maxprop_par)	nset_pw_dipoles,
		character(len=11)	format_pw_dipoles,
		integer	ifail
	)

Here is the call graph for this function:

subroutine analytic_1p1_photon_pad::print_beta_two_photon	(	complex(kind=idp), dimension(:,:), intent(in)	beta,
		logical, intent(in)	energies_first
	)

Here is the call graph for this function:

logical analytic_1p1_photon_pad::bound_transition_chiral = .true.

logical analytic_1p1_photon_pad::continuum_transition_chiral = .true.

integer, parameter analytic_1p1_photon_pad::iwrite = 6

integer, parameter analytic_1p1_photon_pad::max_intermediate_states = 10

logical analytic_1p1_photon_pad::use_dummy_dipoles = .false.