ps_HasProjectors Function

public function ps_HasProjectors(ps) result(p)

Arguments

Type	Intent	Optional	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