ps_HasSemilocalPotentials Function

public function ps_HasSemilocalPotentials(ps) result(p)

Arguments

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

Return Value logical

Contents

Source Code

ps_HasSemilocalPotentials

Source Code

function ps_HasSemilocalPotentials(ps) result(p)
type(ps_t), intent(in) :: ps
logical                    :: p
!
p = (associated(ps%semilocal))

end function ps_HasSemilocalPotentials