subroutine char SEGMENT
image center calc sele by seq atom numb $1 .a segm name SEGMENT end
return