subroutine char SEGMENTS

rename atom CA sele history .a segm name SEGMENTS end 

return