functionA Function

private elemental function functionA(bValue, x, y) result(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: bValue
real(kind=dp), intent(in) :: x
real(kind=dp), intent(in) :: y

Return Value real(kind=dp)


Source Code

    elemental function functionA(bValue, x, y) result(r)
        ! calculated the "A" function used for Shavitts matrix element calc.
        real(dp), intent(in) :: bValue, x, y
        real(dp) :: r

        r = sqrt((bValue + x) / (bValue + y))

    end function functionA