ps_HasSemilocalPotentials Function

public function ps_HasSemilocalPotentials(ps) result(p)

Arguments

Type IntentOptional 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