subroutine char SEGMENTS

dele atom sele atom name H* end
!show vari WORK_SEGM
!show vari SEGMENTS
 key OXT sele atom name OXT .a segm name SEGMENTS end
 <MAIN_UTILS:break_residues.com OXT

key old sele all end

build
  sele segm name SEGMENTS .and. by resid active end
  fill
  sele segm name SEGMENTS .and. by resid active end
  dihed
exit
calc coor append sele segm name SEGMENTS .and. by resid active end


dele bond sele segm name SEGMENTS .and. bond range 3.7 1000. \
               .and. by resid active end
 set weigh sele temp -0.1 0.1 .a segm name SEGMENTS end = 0.0

 key OXT sele atom name OXT .a segm name SEGMENTS end
 <MAIN_UTILS:join_residues.com OXT

!return


 < DEF_ALL SEGMENTS

 mini any pos sele .n old end sele all end
 key old drop

< ?MAIN_CMDS:re_image.cmds SEGMENTS
return