ps_HasProjectors Function

public function ps_HasProjectors(ps) result(p)

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps

Return Value logical


Contents

Source Code

ps_HasProjectors

Source Code

function ps_HasProjectors(ps) result(p)
type(ps_t), intent(in) :: ps
logical                    :: p
!
p = (size(ps%nl_table) > 0)

end function ps_HasProjectors