show vari Str_arg
inquire char vari Str_arg text "NEW SEGMENT NAME::"
rename segment  Str_arg select by resi neigh $1 -1 end
return
rename segment  Str_arg select by segm atom name $1 end