subroutine ps_Delete_NonlocalProjectors(ps) type(ps_t), intent(inout) :: ps call destroy_nonlocal(ps%nonlocal) end subroutine ps_Delete_NonlocalProjectors