utils.f90 File Reference
Data Types | |
interface | ascending_order_array_check |
interface | nodes_coincidence_check |
Modules | |
module | mod_ascending_order_array_check |
Module contains routines to check if array elements are in ascending order. | |
module | mod_nodes_coincidence_check |
Module contains routines to check if all nodes. | |
Functions/Subroutines | |
subroutine | integrated_f11 (nsd, sca, nang, angles, p11, ang1, ang2, f11_intd) |
Routine returns a value of integrated in given scattering angle limits phase function. More... | |
real(sp) function | simps_coeff (nsimps, i) |
Routine returns Simpson's rule coefficient for numerical integration. More... | |
Variables | |
integer, parameter | single |
integer, parameter | precision |
integer, parameter | double |
integer, parameter | single |
integer, parameter | precision |
integer, parameter | double |
Function/Subroutine Documentation
◆ integrated_f11()
subroutine integrated_f11 | ( | integer, intent(in) | nsd, |
real(sp), dimension(nsd), intent(in) | sca, | ||
integer, intent(in) | nang, | ||
real(sp), dimension(nang), intent(in) | angles, | ||
real(sp), dimension(nang,nsd), intent(in) | p11, | ||
real(sp), intent(in) | ang1, | ||
real(sp), intent(in) | ang2, | ||
real(sp), intent(out) | f11_intd | ||
) |
Routine returns a value of integrated in given scattering angle limits phase function.
- Parameters
-
[in] nsd - number of components of particles [in] sca - scattering coefficients [in] nang - number of scattering angles for both X1 and Y1 arrays [in] angles - set of scattering angles [in] p11 - phase function array [in] limits - angle limits for integration [out] f11_intd - integrated phase function
- Date
- 11 SEP 2020
◆ simps_coeff()
real (sp) function simps_coeff | ( | integer, intent(in) | nsimps, |
integer, intent(in) | i | ||
) |
Routine returns Simpson's rule coefficient for numerical integration.
- Parameters
-
[in] nsimps - number of points for numerical integration [in] i - order index