function lambda_minus (jtot, lambda)
USE Numeric_Kinds_Module
USE FileUnits_Module
IMPLICIT NONE
!==============================================================================
INTEGER :: jtot, lambda
REAL (dp) :: lambda_minus
!-----------------------------------------------------------------
! See APH theory paper Eq. (158).
!-----------------------------------------------------------------
lambda_minus = (jtot - lambda + 1) * (jtot + lambda)

lambda_minus = sqrt (lambda_minus)
RETURN
END function lambda_minus