subroutine char SEGMENTS
anal init
anal param bond sele segm name SEGMENTS .a weight 0.1 1.1 end
show anal sele segm name SEGMENTS end
return