endGx Function

public elemental function endGx(csf_i, sOrb) result(gx)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

endGx

Source Code

    elemental function endGx(csf_i, sOrb) result(gx)
        ! flag function used in excitation tree generation to check if spatial
        ! orbital sOrb is 0,2,3.
        type(CSF_Info_t), intent(in) :: csf_i
        integer, intent(in) :: sOrb
        real(dp) :: gx


        if (csf_i%stepvector(sOrb) == 1) then
            gx = 0.0_dp
        else
            ! always one except d=1 at end
            gx = 1.0_dp
        end if
    end function endGx