numBasisIndices Function

public elemental function numBasisIndices(nBasis) result(nBI)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nBasis

Return Value integer


Source Code

    elemental function numBasisIndices(nBasis) result(nBI)
        integer, intent(in) :: nBasis
        integer :: nBI

        if (tStoreSpinOrbs) then
            nBI = nBasis
        else
            nBI = nBasis.div.2
        end if

    end function numBasisIndices