config_ext.f90

!#######################################################################

 MODULE config_ext

!########################################################################

 IMPLICIT NONE
 CONTAINS

!#######################################################################

 FUNCTION Conf_p_avrg(S,x) RESULT(pav)
!========================================================================
! Function returns the value of <p>, i.e. the flux averaged pitch
! <p>=<sqrt(1-x*b)>,
! where p=vpar/v, 0<=x<=1, x = (1-p*p)/b, and b = B(s,theta,phi)/Bmax(s)
!========================================================================
 USE const_and_precisions
 IMPLICIT NONE
 REAL(wp_), INTENT(in) :: S,x
 REAL(wp_) :: pav
!========================================================================
! pav = ?
!========================================================================
 END FUNCTION Conf_p_avrg

!########################################################################
!########################################################################
!########################################################################

 FUNCTION Conf_p_avrg_integr(S,x) RESULT(ipav)
!========================================================================
! Function returns the value of Integral(from x to 1) dx'/p_avrg(s,x') ,
!    where p_avrg(s,x) = <sqrt(1-x*B(s,th,ph)/Bmax(s))> 0<=x<=1, 0<=s<=1,
!    s is the normalized magnetic flux
!========================================================================
 USE const_and_precisions
 IMPLICIT NONE
 REAL(wp_), INTENT(in) :: S,x
 REAL(wp_) :: ipav
!========================================================================
! ipav = ?
!========================================================================
 END FUNCTION Conf_p_avrg_integr

!#######################################################################

 END MODULE config_ext

!#######################################################################