subroutine ps_Delete_LocalPotential(ps) type(ps_t), intent(inout) :: ps call destroy_local(ps%local) end subroutine ps_Delete_LocalPotential