subroutine char SEGMENTS 
set vari CUT_OFF = MAP_CONT
set vari THE_MAP local int = MAP_ACT
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
set weight sele XX_KEY end = 1.0
set weight sele XX_KEY .a atom name H* end = 0.0
! wr sele XX_KEY end coor xpl
key XX_KEY sele  XX_KEY .and. map THE_MAP -100000. CUT_OFF \
                 .a weight 0.1 10.0 end
! show key XX_KEY
set vari IRES inte resi sele by resi XX_KEY end
if ( IRES .gt. 0 ) then
defin clas sele by resi XX_KEY end by root CA
<MAIN_UTILS:set_weight_auto_loop.com xx
end_if
key XX_KEY drop
< ?MAIN_CMDS:re_image.cmds SEGMENTS
return