subroutine char THE_KEY real rad
set rad sele THE_KEY end = rad
if ( rad .lt. 0.0 ) set rad sele THE_KEY end vdw
image sele THE_KEY end atom ball
return