Elevation of pain threshold to tooth shock by brain stimulation in primates