DIPELM
2.0
|
Dipole smoothing routines. More...
Functions/Subroutines | |
real(idp) function | energy_dependent_width (Ek, Eleft, Eright) |
Energy-dependent Gaussian smoothing width. More... | |
subroutine | sigma2i (E, Estart, escat, escat2, is, limits) |
real(kind=idp) function | sigma (E) |
subroutine | binary_search (arr, val, lr, i) |
subroutine | least_squares (pol_order, istart_point, iend_point, x_points, y_points) |
real(kind=idp) function | gaussian (E, Ep, sigma_E) |
Dipole smoothing routines.
Routines for smoothing partial wave dipoles before calculation of observables.
ismooth | Test |
subroutine dipelm_smooth::binary_search | ( | real(kind=idp), dimension(:) | arr, |
real(kind=idp) | val, | ||
integer | lr, | ||
integer | i | ||
) |
real(idp) function dipelm_smooth::energy_dependent_width | ( | real(idp), intent(in) | Ek, |
real(idp), intent(in) | Eleft, | ||
real(idp), intent(in) | Eright | ||
) |
Energy-dependent Gaussian smoothing width.
real(kind=idp) function dipelm_smooth::gaussian | ( | real(idp) | E, |
real(idp) | Ep, | ||
real(idp) | sigma_E | ||
) |
subroutine dipelm_smooth::least_squares | ( | integer | pol_order, |
integer, intent(in) | istart_point, | ||
integer, intent(in) | iend_point, | ||
real(idp), dimension(:), intent(in) | x_points, | ||
real(idp), dimension(:), intent(inout) | y_points | ||
) |
real(kind=idp) function dipelm_smooth::sigma | ( | real(kind=idp) | E | ) |
subroutine dipelm_smooth::sigma2i | ( | real(kind=idp) | E, |
real(kind=idp) | Estart, | ||
real(kind=idp), dimension(:) | escat, | ||
real(kind=idp), dimension(:), allocatable | escat2, | ||
integer | is, | ||
integer, dimension(:,:), allocatable | limits | ||
) |