subroutine char SEGMENTS
make ctab sele active end init
make ctab sele active end from topo
calc bond resi sele atom name OXT C end
dele bond sele active .and. bond range 3.7 999999. end
return