subroutine char SEGMENTS

if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele by resi atom numb $1 end
if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele active end
if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele  segm name SEGMENTS end


build
sele XX_KEY end
fill
sele by resi XX_KEY end
dihed
exit
calc coor append sele by resi XX_KEY end
dele bond sele by resi XX_KEY .and. bond range 3.7 1000. end
< ?MAIN_CMDS:re_image.cmds SEGMENTS
return