endLx Function

private elemental function endLx(csf_i, ind) result(ret)

Arguments

Type IntentOptional Attributes Name
type(CSF_Info_t), intent(in) :: csf_i
integer, intent(in) :: ind

Return Value real(kind=dp)


Source Code

    elemental function endLx(csf_i, ind) result(ret)
        ! special function to determine if branching at the single overlap
        ! site of a RR excitation is possible
        type(CSF_Info_t), intent(in) :: csf_i
        integer, intent(in) :: ind
        real(dp) :: ret

        if (csf_i%stepvector(ind) == 2 .and. csf_i%B_int(ind) > 1) then
            ret = 1.0_dp
        else
            ret = 0.0_dp
        end if
    end function endLx