subroutine char SEGMENTS
write over file xx.pdb sele segm name SEGMENTS end coor pdb segm
read file xx.pdb coor init pdb 
make bond from topo
dele bond range sele bond range 3.4 1000 end
return